1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
| unit Unit 1; interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls, ComCtrls, Grids, OBGrids, DBCtrls, StdCtrls, Spin, Mask, Db, DBTables, Buttons, QuickRpt;
type
TForml = class(TForm) StatusBarl: TStatusBar; PageControll: TPageControl; TabSheetl: TTabSheet; TabSheet2: TTabSheet; Labell: TLabel;
DBLookupComboBoxl: TDBLookupComboBox; DBGridl: TDBGrid; SpinEditl: TSpinEdit; Sp i n Ed it 2: TSpinEdit; SpinEdit3: TSpinEdit; Editl: TEdit; Edit2: TEdit; Edit3: TEdit; TabSheet3: TTabSheet; TabSheet4: TTabSheet; DBNavigatorl: TDBNavigator; DBEditl: TDBEdit; Label3: TLabel; DBGrid2: TDBGrid; Animatel: TAnimate; Label4: TLabel; DBNavigator2: TDBNavigator; DBGrid3: TDBGrid; Label6: TLabel; Label8: TLabel; DBEdit3: TDBEdit; DBNavigator3: TDBNavigator; CheckBoxl: TCheckBox; DBGrid4: TDBGrid;
DBLookupComboBox3: TDBLookupComboBox; DBLookupComboBox5: TDBLookupComboBox; DBLookupComboBox6: TDBLookupComboBox; DBLookupComboBox7: TDBLookupComboBox; DBLookupComboBox8: TDBLookupComboBox; DBEditl3: TDBEdit; DBEditl4: TDBEdit; DBEditl5: TDBEdit; DBEditl6: TDBEdit; LabellO: TLabel; DBNavigator4: TDBNavigator; CheckBox2: TCheckBox; GroupBoxl: TGroupBox; DBEditl8: TDBEdit; Labell7: TLabel; DBEdit2: TDBEdit; LabelS: TLabel; DBEditl7: TDBEdit; Labell8: TLabel; Labell9: TLabel; DBEditl9: TDBEdit; GroupBox2: TGroupBox; Labell2: TLabel; DBEdit4: TDBEdit; Label9: TLabel; Label7: TLabel; Label2: TLabel; DBEdit6: TDBEdit; DBEdit5: TDBEdit;
DBEdit9: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Labell3: TLabel;
Labell4: TLabel;
DBEditlO: TDBEdit;
DBEditl2: TDBEdit;
DBEditll: TDBEdit;
GroupBox3: TGroupBox;
Labell6: TLabel;
Labell5: TLabel;
Labelll: TLabel;
SpeedButton1: TSpeedButton;
DBTextl: TDBText;
Label20: TLabel;
DBText2: TDBText;
BitBtnl: TBitBtn;
procedure NICIickfSender: TObject);
procedure N 10Click(Sender: TObject);
procedure DBLookupComboBox2Enter(Sender: TObject);
procedure DBLookupComboBox2Exit(Sender: TObject);
procedure DBLookupComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure SpinEditlChange(Sender: TObject);
procedure SpinEd itlEnter(Sender: TObject);
procedure SpinEditlKeyPress(Sender: TObject; var Key: Char);
procedure Spin Edit2Change(Sender: TObject);
procedure Spin Edit2Enter(Sender: TObject);
procedure SpinEdit2KeyPress(Sender: TObject; var Key: Char);
procedure SpinEd it3Change(Sender: TObject);
procedure SpinEd it3Enter(Sender: TObject);
procedure DBGridlCellClick(Column: TColumn);
procedure DBGridlKeyPress(Sender: TObject; var Key: Char);
procedure DBEditlChange(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure DBEdit2Change(Sender: TObject);
procedure DBEditlKeyPress(Sender: TObject; var Key: Char);
procedure DBLookupComboBox6Exit(Sender: TObject);
procedure DBLookupComboBox7Exit(Sender: TObject);
procedure DBLookupComboBox8Exit(Sender: TObject);
procedure CheckBoxlClick(Sender: TObject);
procedure DBEditllExit(Sender: TObject);
procedure Ta bSheet4Show(Sender: TObject);
procedure DBLookupComboBox5Exit(Sender: TObject);
procedure DBEdit 13Exit(Sender: TObject);
procedure DBEditl4Exit(Sender: TObject);
procedure DBEditl5Exit(Sender: TObject);
procedure DBEdit 16Exit(Sender: TObject);
procedure DBLookupComboBox3Exit(Sender: TObject);
procedure DBEdit3Exit(Sender: TObject);
procedure DBEditl3Enter(Sender: TObject);
procedure DBEdit 14Enter(Sender: TObject);
procedure DBEditl5Enter(Sender: TObject);
procedure DBEditl6Enter(Sender: TObject);
procedure DBEdit4Exit(Sender: TObject);
procedure DBLookupComboBox3CloseL)p(Sender: TObject);
procedure DBEdit6Exit(Sender: TObject);
procedure DBEdit5Exit(Sender: TObject);
procedure DBEdit7Exit(Sender: TObject);
procedure DBEdit9Exit(Sender: TObject);
procedure DBEdit8Exit(Sender: TObject);
procedure DBEditlOExit(Sender: TObject);
procedure DBEditl2Exit(Sender: TObject);
procedure DBEdit3Change(Sender: TObject);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEditl3KeyPress(Sender: TObject; var Key: Char);
procedure DBEditl4KeyPress(Sender: TObject; var Key: Char);
procedure DBEditl5KeyPress(Sender: TObject; var Key: Char);
procedure DBLookupComboBox6CloseUp(Sender: TObject);
procedure DBLookupComboBox7CloseUp(Sender: TObject);
procedure DBLookupComboBox8CloseUp(Sender: TObject);
procedure DBLookupComboBox5CloseUp(Sender: TObject);
procedure DBEdit 16KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: object; var Key: Char);
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
procedure DBEditllKeyPress(Sender: TObject; var Key: Char);
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
procedure DBEditl2KeyPress(Sender: TObject; var Key: Char);
procedure DBLookupComboBoxlCloseUp(Sender: TObject);
procedure DBEditlOKeyPressfSender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure Speed Button lClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCIoseAction);
procedure Ta bSheet3Show(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure BitBtnlClick(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var
Forml: TForml; sl,s2:string;
implementation uses Unit8, Unit2; {$R *.DFM)
procedure TForm l.N lClick(Sender: TObject); begin
Forml.Close; end;
procedure TForm 1. N10Click(Sender: TObject); begin
StatusBarl.SimpleText: = 'Ti/ibKM B KOMepujMHifi Bepcii;)'; end;
procedure TForml. DBLookupComboBox2Enter(Sender: TObject); begin
DataModulel.Tablel.Filter: = sl;
DataModulel.Tablel. Filtered :*True;
end;
procedure TForml.DBLookupComboBox2Exit(Sender: TObject);
begin
{ s2: = 'Company = ' + #39 + DBLookupComboBox2.Text + #39;
If DataModulel.Tablel.Filtero" then
DataModulel.Tablel.Filter: = sl + ' and ' + s2 else
DataModulel.Tablel.Filter: = s2;
DataModulel.Tablel.Filtered: = True;
t: = lntToStr(DataModulel.TablelTotal_A.aslnteger-DataModulel.TablelBusy^A.aslnteger); t: = lntToStr(DataModulel.TablelTotal_B.aslnteger-DataModulel.TablelBusy_B.aslnteger); t: = lntToStr(DataModulel.TablelTotal_C.aslnteger-DataModulel.TablelBusy_C.aslnteger); If Strtolnt(Editl.Text)<0 then begin
ShowMessage('HeKoppeKTHO c<)>opMOBaHM Pi pefic!(K/iac A)');
DataModulel.Tablel.Edit;
DataModulel.Tablel.Delete; end;
If Strtolnt(Edit2.Text)<0 then begin
ShowMessage('He«oppeKTHO ccjjopMOBaHHii peMc!(K/iac B)');
DataModulel.Tablel.Edit;
DataModulel.Tablel.Delete; end;
If Strtolnt(Edit3.Text)<0 then begin
ShowMessage('HeKoppeKTHO c4>opMOBaHnii peMc!(K/iac C)');
DataModulel.Tablel.Edit;
DataModulel.Tablel.Delete;
else DBEdit9.Setfocus; end;
procedure TForm l.DBEdit9Exit(Sender: TObject); begin
If DBEdit9.Text = " then DBEdit9.Setfocus; end;
procedure TForm 1. DBEdit8Exit(Sender: TObject); begin
If DBEdit8.Text = " then DBEdit8.Setfocus else
If (Strtolnt(DBEdit8.Text)<Strtolnt(DBEdit9.Text)) then
begin
StatusBarl.SimpleText: = 'XT0Cb 3 Hac 4>aHT33ye...'; DBEdit9.Setfocus; end else DBEd itlO.Setf ocus; end;
procedure TForm l.DBEditlOExit(Sender: TObject); begin
If DBEditlO.Text = " then DBEd itlO.Setfocus
else DBEditl2.SetFocus; end;
procedure TForm 1. DBEdit 12Exit(Sender: TObject); begin
If DBEditl2.Text = " then DBEdit 12.Setfocus; end;
procedure TForml. DBEdit3Change(Sender: TObject); begin
Try StrtoTime(DBEdit3.Text)
except ShowMessage('HeBifloMa CMCTeiwa BMMipy nacy!'); DBEdit3.SetFocus;
end; end;
procedure TForm l.DBEdit3KeyPress(Sender: TObject; var Key: Char); begin
If Key=#13 then
begin
DBLookupComboBoxS.SetFocus;
end; end;
procedure TForm 1. DBEditl3KeyPress(Sender: TObject; var Key: Char); begin
If Key = #13 then
begin
DBLookupComboBox6.SetFocus;
end; end;
procedure TForml. DBEditl4KeyPress(Sender: TObject; var Key: Char); begin
If Key = #13 then
begin
DBLookupComboBox7.SetFocus;
end; end;
procedure TForml. DBEditl5KeyPress(Sender: TObject; var Key: Char); begin
If Key = #13 then
begin
DBLookupComboBox8.SetFocus;
end; end;
procedure TForml.DBLookupComboBox6CloseUp(Sender: TObject); begin
DBEditl4.SetFocus; end;
DataModulel.Table3.Close; end;
procedure TForml.TabSheet3Show(Sender: TObject); begin
DataModulel.Table3.Filtered: = False;
DataModulel.Table3.Filter: = "; end;
procedure TForml.CheckBox2Click(Sender: TObject); begin
If CheckBox2.Checked then DBNavigator4.Visible: = True
else DBNavigator4.Visible: = False;
try
DataModulel.Tablel.Edit; Data Modu lei.Table 1. Post;
except ShowMessage(' noMM/iKa ripn po6oTi 3 6a3oio!');
end; end;
procedure TForml. Bit BtnlClick(Sender: TObject); begin
DataModulel.Table2.Post;
Form2.QuickRepl.Preview; end;
end. |
(
