1.
. 1 - 2 .
2. ֳ .
, . 1
3. ,
, . 2
4.
, . , , . 2 3 .
5.
. 1-2 .
6.
:
1. : , ,
2. '.
3. 볺
4.
.
.
. newRecord. INSERT .
QueryExecute(TIBQuery), . SQL(TStrings).
QueryExecute.Params.ParamByName('ID'), Variant, . ϳ QueryExecute.ExecSQL.
function TcontractorForm.saveFields:boolean;
begin
result:=true;
if (lnameEd.Text='') or (snameEd.Text='') or (fnameEd.Text='') or (telEd.Text='')//
or (emailEd.Text='') or (emailEd.Text='') or (priceEd.Text='') or (infoMe.Text='')
or (activityCb.ItemIndex<0) then begin
result:=false;
exit;
end;
7-9 .
. 5 8 . .
˳
( ) - 10
|
|
Times New Roman, 14.
.exe . InitFile.ini, Inspector.exe , . \DB Insprctor.gdb. \LI .
Inspector.exe , .
.7
, , . , , - , .
, , .
.8
. . , , .
.9
, , . :
- . ϳ:
1. - .
2. - 璺 璺 .
.10
3. - .
- . ϳ:
1. . . ̳ .
2. . . ̳ .
3. . ̳ , .
- . ϳ:
1. . , .
.11
, -, . . .
, .
: , , , , . . 볿
2. . , , , , .
.12
, , . , , , , .
3. . , 䳺 .
.13
, , . , , . , . , .
|
|
4. . .
.14
, , , .
- . ϳ:
1. . ³ .
.15
, . . , , . .
2. . .
.16
, . , . , , e-mail , . .
- . ϳ .
- ? .