1unit BudgetEditForm;
 2
 3interface
 4
 5uses
 6  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,
 7  Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.ExtCtrls, Vcl.DBCtrls, DataModule, TL.Components;
 8
 9type
10  TfrmBudgetEdit = class(TLForm)
11    Label1: TLabel;
12    Label2: TLabel;
13    Label3: TLabel;
14    DBEditJan: TDBEdit;
15    DBEditFeb: TDBEdit;
16    DBEditMrt: TDBEdit;
17    DBEditApr: TDBEdit;
18    DBEditMei: TDBEdit;
19    DBEditJun: TDBEdit;
20    DBEditJul: TDBEdit;
21    DBEditAug: TDBEdit;
22    DBEditSep: TDBEdit;
23    DBEditOkt: TDBEdit;
24    DBEditNov: TDBEdit;
25    DBEditDec: TDBEdit;
26    Button1: TButton;
27    Button2: TButton;
28    Label4: TLabel;
29    Label5: TLabel;
30    Label6: TLabel;
31    Label7: TLabel;
32    Label8: TLabel;
33    Label9: TLabel;
34    Label10: TLabel;
35    Label11: TLabel;
36    Label12: TLabel;
37    Label13: TLabel;
38    Label14: TLabel;
39    Label15: TLabel;
40    DBText1: TDBText;
41    DBText2: TDBText;
42    DBText3: TDBText;
43    Button3: TButton;
44    Button4: TButton;
45    Edit1: TEdit;
46    procedure Button4Click(Sender: TObject);
47    procedure Button3Click(Sender: TObject);
48    procedure FormShow(Sender: TObject);
49  private
50    { Private declarations }
51  public
52    { Public declarations }
53  end;
54
55var
56  frmBudgetEdit: TfrmBudgetEdit;
57
58implementation
59
60{$R *.dfm}
61
62procedure TfrmBudgetEdit.Button3Click(Sender: TObject);
63begin
64  dm.DataSetBudgetEdit.Edit;
65  with dm.DataSetBudgetEdit do
66    begin
67      FieldByName('Jan').AsString:= Edit1.Text;
68      FieldByName('Feb').AsString:= Edit1.Text;
69      FieldByName('Mrt').AsString:= Edit1.Text;
70      FieldByName('Apr').AsString:= Edit1.Text;
71      FieldByName('Mei').AsString:= Edit1.Text;
72      FieldByName('Jun').AsString:= Edit1.Text;
73      FieldByName('Jul').AsString:= Edit1.Text;
74      FieldByName('Aug').AsString:= Edit1.Text;
75      FieldByName('Sep').AsString:= Edit1.Text;
76      FieldByName('Okt').AsString:= Edit1.Text;
77      FieldByName('Nov').AsString:= Edit1.Text;
78      FieldByName('Dec').AsString:= Edit1.Text;
79    end;
80end;
81
82procedure TfrmBudgetEdit.Button4Click(Sender: TObject);
83begin
84  dm.DataSetBudgetEdit.Edit;
85  with dm.DataSetBudgetEdit do
86    begin
87      FieldByName('Jan').AsString:= Edit1.Text;
88      FieldByName('Feb').AsString:= '0';
89      FieldByName('Mrt').AsString:= '0';
90      FieldByName('Apr').AsString:= Edit1.Text;
91      FieldByName('Mei').AsString:= '0';
92      FieldByName('Jun').AsString:= '0';
93      FieldByName('Jul').AsString:= Edit1.Text;
94      FieldByName('Aug').AsString:= '0';
95      FieldByName('Sep').AsString:= '0';
96      FieldByName('Okt').AsString:= Edit1.Text;
97      FieldByName('Nov').AsString:= '0';
98      FieldByName('Dec').AsString:= '0';
99    end;
100end;
101
102procedure TfrmBudgetEdit.FormShow(Sender: TObject);
103begin
104  Self.Edit1.Text:= '';
105  Self.Edit1.SetFocus;
106end;
107
108end.
109