pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

New components, bug fixes, new example for tjlabel and tjbutton

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2778 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2013-08-29 10:42:04 +00:00
parent 58f603bdbe
commit a136018e37
40 changed files with 3048 additions and 226 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
components/jujiboutils/examples/example1/main.pas
View File

@ -5,9 +5,9 @@ unit main;
interface
uses
Classes, SysUtils, DB, BufDataset, FileUtil, Forms, Controls, Graphics,
Dialogs, StdCtrls, DBCtrls, Buttons, jdblabeledcurrencyedit,
jdblabeledintegeredit, jdblabeleddateedit;
Classes, SysUtils, DB, memds, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, DBCtrls, Buttons, jdblabeledcurrencyedit, jdblabeledintegeredit,
jdblabeleddateedit;
type
@ -15,7 +15,6 @@ type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BufDataset1: TBufDataset;
Datasource1: TDatasource;
DBNavigator1: TDBNavigator;
JDBLabeledCurrencyEdit1: TJDBLabeledCurrencyEdit;
@ -25,6 +24,7 @@ type
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
MemDataset1: TMemDataset;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
@ -45,26 +45,17 @@ procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
// Create BufDataset
with BufDataset1.FieldDefs do
begin
Add('ID', ftInteger, 0, False);
Add('DATE', ftDate, 0, False);
Add('TOTAL', ftCurrency, 0, False);
Add('ID2', ftInteger, 0, False);
end;
BufDataset1.CreateDataset;
// populate the memDataset
for i := 1 to 10 do
begin
BufDataset1.Append;
BufDataset1.FieldByName('ID').AsInteger := i;
BufDataset1.FieldByName('DATE').AsDateTime := Now;
BufDataset1.FieldByName('ID2').AsInteger := i * i;
BufDataset1.FieldByName('TOTAL').AsCurrency := i * i * i;
BufDataset1.Post;
MemDataset1.Append;
MemDataset1.FieldByName('ID').AsInteger := i;
MemDataset1.FieldByName('DATE').AsDateTime := Now;
MemDataset1.FieldByName('ID2').AsInteger := i * i;
MemDataset1.FieldByName('TOTAL').AsFloat := i * i * i;
MemDataset1.Post;
end;
BufDataset1.First;
MemDataset1.First;
end;
end.