- , .
1.
. 1 .
2. ֳ .
. , , . 1
3.
, . 2 3 .
4.
. 1-2 .
5.
:
5.1
5.2
5.3
5.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;
5-8 .
. 5 8 . !!!
˳
( ) - 10
.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 , . .
- . ϳ .
- ? .