.


:




:

































 

 

 

 





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 , . .

- . ϳ .

- ? .

 





:


: 2016-11-18; !; : 313 |


:

:

, .
==> ...

1602 - | 1527 -


© 2015-2024 lektsii.org - -

: 0.016 .