.


:




:

































 

 

 

 





- , .

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

- . ϳ .

- ? .

 

 





:


: 2016-03-28; !; : 1165 |


:

:

.
==> ...

1821 - | 1678 -


© 2015-2024 lektsii.org - -

: 0.016 .