. , , ,

,,,

"" — ,

1.

1.1

1.2

1.3

1.4

1.4.1

1.4.2

1.4.3

1.4.4

2.

2.1

2.2.1

2.2.2

2.2.3

2.2.4

3.

4.

 


: "" 230103 " " .

.

, . , . . , , , , , .

, .

, , , , .

: , , , , . : , . , , . , . .


1.

1.1

"" . . . : , , , .

: (. 1).

:

-      ;

-      ;

-      ;

-      ;

-      , ..

, :

1. ,

-           ;
-           ;
-           ;

"". , , .

:

-      ;

-      .

-     

.

"" Microsoft Office :

-      Word, Excel ;

-      ;

-      , ;

-      ;

"". , .

, , :

-          ;

-          ;

-          ;

-         

-         

, :

2. .

1.      -           ;
2.     

-           ;

-           ;
3.     

-           ;

-           ,

-           ,

4.         

-           ;

-           ;
5.         

-           ;

-           ;

-           ;

, :

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

 

1.2

. , " " , , , , , .[1]

:

-   ;

-   ;

-   .

:

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

-  ;

:

-  , ;

-  , , ;

-  , , ;

-  , , .

:

-  , .

3:

 

3. , .

/
1 ""
2 ""
3

4:

4. , .

/

1.      

2.      

5:

5. , .

/
1.        

6:

6. .

/

1.         

2.           

. ( 2)

1.3

. , . : .

, , - . "", , . : Pentium IV, Canon 100 , .

, . . , . , Windows 98 Microsoft Office. .mdb (MS Access).

, Start.exe Baza.mdb. ADO, Microsoft .

, . RAD- . .

RAD- , .. . , . RAD .

RAD- . , , (Power Builder Sybase, Visual FoxPro Microsoft).

: Borland Delphi, Borland C++, Visual Basic, , , . . , , , . , - . , , , , , .

, RAD . , , .


1.4

1.4.1

, :

-      , ;

-      ;

-      ;

-      ;

-      .

:

-      ;

-      ;

-      ;

-      ;

-      .

:

-      ;

-      ;

-      ;

-      ;

: (. 3)

1.4.2

, , , :

1.         :

-                  ;

-          ;

-          ;

-          ;

2.         :

-          ;

-          ;

-          ;

-         

-         

-          ;

-          .

3.         :

-          ;

-          ;

-          ;

-          ;

-          ;

-          ;

-          ;

-          .

4.         :

-          ;

-          ;

-          ;

-          ;

-          .

5.         :

-          ;

-          ;

-          ;

-          ;

-          ;

-          .

( 4).

1.4.3

. (. 5).

1.4.4

, , . , , . "" "" "".


2.

2.1

 

, , 6.

-, . Start.exe ( 2), . :

-  "" ( 3) ;

-  "" ( 4) , "" ( 5), :

-"" ( 6) ;

-"" ( 7) , ( - 8);

-"" ( 10) ( 11) , ;

-"" ( 13) ( 14) , ;

-          " " ( 16) ( 17) ;

-          "" ( 19) ( 20) ;

-          " " ( 22) ( 23) ;

-          "" ( 25) ( 26)

-          " " ( 27) ( 28) ;

-          " " ( 30) ( 31) ;

8.

2.2

2.2.1

. , , , , . "" , , , . .

2.2.2

"" . :

-          Pentium 1;

-          - 64 ;

-          30 ;

-          ;

-          ;

-          ;

-          .

Windows. MS Office( 2000).

: Baza.mdb Start.exe .

2.2.3

Start.exe, Baza.mdb . Start.exe , , "" Enter, , . , "". "" Enter, . :

, "", , :

"" "", ; . "", , "", ;

-          . "" "" , , "";

-          . "" "" , , "", "" .

-          "";

-          " ".

, "", , :

-          "" "";

-          . "", , "", ;

-          . "" "" , , "";

-          . "" "" , , "", "" ;

-          "";

-          " ".

, "", , :

-          "" "";

-          . "", , "", ;

-          . "" "" , , "";

-          . "" "" , , "", "" ;

-          "";

-          " ".

" ", . . .

-          "";

-          " ".

" ", . , , "".

-          . , , "", "" ;

-          . , , "", "" ;

-          "";

-          "".

""

" ". , . " ".

2.2.4

:

1.         . ( 10.)

2.         , . ( 11.)

3.         . "". ( 12.)

9.


3.

- . - , - , , , , .

, .

, . " ". , , , .

3.1

" "" . . , . : ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; , .

3.2

, , , .

. 1

(.)
1 381
2 3437,27
3 618,708
4 103,60
5 501,73
6 438,66
7 , , ( 50-80 % ) 1718,63
8 7199,59
9 85
10 ( ) 7424,69

( )

3.2.1

. 2

/ (.) (.)
1 1 21 21
2 300 1 300
3 2 30 60
: 381

3.2.2

. 3

(.) 83 / (20%) (.)
4500 2029,89 405,97 2435,86
1850 834,51 166,90 1001,41
: 3437,27

3.2.3

18 % .

3437,27*18%/100%=618,708 .

3.2.4

) - /*-

..=n*P*/,


..: ,

n - , , 83

- , 1 .

0,13

/ - 1 /, 1,71 .

, :

..= 83*0,13*1,71 =18,45 .

) : /*- .

...=n*b*P*/,

... - (.)

n - , = 83

b - = 15

- , 1 1 .

0,04

/ - 1 /, 1,71 .

, :

...= 83*15*0,04 *1,71 = 85,15 .

:

18,45+85,15=103,60 .


3.2.5

)

: = /12 .

. . = *

=*/100%/12,

- , - (%) - 1/ *100%

- (.) 30000 .

= 30000*16,66%/100%/12=416,66 .

) :

( )=1629000 .

=2%

: = /12 .

. =*

. =2/100%/12*1629000

. =( . / )*

(2715/1500)*47=85,07 .

:

+

416,66+85,07=501,73 .


3.2.6

=..*S/S.

-

.. - (14000)

S - (47) .

S - (1500) .

=14000*47/1500=438,66 .

3.2.7

50-80% / ()

3437,27*50%/100%= 1718,63 .

3.2.8

2.1+2.2+2.3+2.4+2.5+2.6+2.7=

381+3437,27+618,708+103,60+501,73+438,66+1718,63=7199,59 .

3.2.9

. , : - , ( web - , ), - , - , . , , , . . Internet , .

. Internet Internet.

Internet:

: 5

Internet : 150

Internet: 1

/: 60

1= /30* +( Internet* )

1=150/30*5+(1*60)=85 .

:

=1

=85

10 , . .

.

CD-R 13 . : 130 .

5 , , :


..1=0,13*(5/60*1,71)=0,01 .

..1=15*0,04*(5/60*1,71)=0,08 .

=0,01+0,08= 0,10 .

:

/=(1850/168)*5/60=0,91 .

=(0,91+0,10)*10=10,1 .

:

=+* =10,1+13*10=140,1 .

, :

+=140,1+85=225,1 .

3.2.10

2.8 2.9 1

=7199,59+225,1=7424,69 .

3.3 ()

, , 10 . 10 (, ).

:

=++,

- ( ),

- ( 13 % ),

- ( 18 %),

:

=7424,69+(7424,69*13/100%)=8389,89 .

:

=8389,89+(8389,89*18)/100%=9900,07 .

, 10 : 83898,9 ., :( 8389,89*10)-225,1=83673,8 .


4.

, , - . , , , .

() :

-       , ;

-       ( 50 , , , ..);

-       ( , , , ..);

-       ;

-       ;

-       ( , );

-       ;

-       ;

-       ;

-       , .. ;

-       ;

-       - ;

-       - ( ..);

-       ;

, , , .

18 , .

.

:

-       ;

-       ;

-       ;

-       , , I ;

-       .

1 3 .

(). , , , , .

(), , 1.

1. , ,

, .

, , . , - () 1,2 %. , , . 2, 3.

2.

3. (1 - 2 - : 3 - () )

. 300-500 . .

, "" (3-5 ). .

63-8000 . , 15-20 . . 2 .

, , . : "", "-1 ", "-" . , - . 2 . . , , , .

. , .


4.

4. ,

, ( , , .) . - 6070 , 50 .

:

;

( 4 )

6 2 20,03 .

, .

() - , . , () , , , .

. 10 .

.

- :

-       220 240 ( ) 230 250 ( );

-       40-60% 75%;

-       0,1 /.

, , , .

: , , , . , .

, , "" ( , ). 1002 , , 04-5 -5. .

, , .

1.

- (, , ), .

, . .

2.

. 12.1.00588.

2.1. , 3/, ,

Q - , /; - , /(); = 1,2 /(); - , /3; t - , , ; t - , .

; 22,3 .

3.. .5 , , /3, ,

, , :


- , /; - , () , /.

:

; ;

, ;

(3... 5), . .

:

:

Q. - , , /; Q - , , /.

, ,

Q. = 3528βN

Q. = 3528*0.27*0.13=123.833

β - , , , ; β = 0,25...0,35; N - , .

, ,

Qp = nKp

Qp = 5*400=2000

n , .; p , , / ( 300 /; 400 /; 500 /).

, 1/,

L- , 3/; Vc- , 3

1 10.


, , (. ), . . . Access .

, . . - .

"", . .

.


1.         .., .. " ". . . " ", 2001;

2.         44 ();

3.         .. " Delphi 7" , "-", 2005. 1152.

4.         "Delphi v7.0 Book";

5.         " ";

6.         " ";

7.         19.404-79, 19.402-78, 10.505-79;

8.         .., .. "Delphi 6" ., -, 2002. 1152.

9.         "Delphi v6.0 Book";


1

1.


2

2. .


3

 

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


4

3.


5

4.


6

5.

6. ""


7. ""

8. " "


8


9. -.


9

10. " "

11. " "

12. " "


10

unit Glavnaya

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls, DB, ADODB, Grids, DBGrids,

XPMan,shellapi, ComCtrls;

type

TGlavnaya_f = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton4: TSpeedButton;

GroupBox1: TGroupBox;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Glavnaya_f: TGlavnaya_f;

implementation

uses Voditeli, Parol_red, Mashini , Operator, Oformlenie_poezdki,

Otchet, Status, Vybor_otcheta, Korrektirovka;

{$R *.dfm}

procedure TGlavnaya_f.SpeedButton1Click(Sender: TObject);

begin

//

if MessageDlg(' ?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Application.Terminate; //

end;

procedure TGlavnaya_f.SpeedButton5Click(Sender: TObject);

begin

Voditeli_f.Show;//

Glavnaya_f.Hide;//

end;

procedure TGlavnaya_f.SpeedButton6Click(Sender: TObject);

begin

Mashini_f.Show; //

Glavnaya_f.Hide;//

end;

procedure TGlavnaya_f.SpeedButton4Click(Sender: TObject);

begin

Glavnaya_f.Hide;

Oformlenie_poezdki_f.show;

end;

procedure TGlavnaya_f.SpeedButton8Click(Sender: TObject);

begin

Vybor_otcheta_.Show;

Glavnaya_f.Hide;

end;

procedure TGlavnaya_f.SpeedButton9Click(Sender: TObject);

begin

Glavnaya_f.Hide;

Status_f.show;

end;

procedure TGlavnaya_f.SpeedButton10Click(Sender: TObject);

begin

Korrektirovka_.Show;

Glavnaya_f.Hide;

end;

procedure TGlavnaya_f.SpeedButton7Click(Sender: TObject);

begin

Operatory_f.Show;//

Glavnaya_f.Hide;//

end;

end.

unit Korrektirovka

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls;

type

TKorrektirovka_ = class(TForm)

DBGrid1: TDBGrid;

Label1: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label2: TLabel;

Label3: TLabel;

GroupBox1: TGroupBox;

Button6: TButton;

Edit1: TEdit;

Label10: TLabel;

CheckBox2: TCheckBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button7: TButton;

procedure Button6Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Korrektirovka_: TKorrektirovka_;

implementation

uses DM, Glavnaya, Otchet_poezdki, Otchet_vse_voditeli;

{$R *.dfm}

procedure TKorrektirovka_.Button6Click(Sender: TObject);

begin

if

CheckBox2.Checked then

DM_f.ADOTable2.Filtered:=false

else

begin

DM_f.ADOTable2.Filtered:=false;

DM_f.ADOTable2.Filter:='_='''

+ (Edit1.Text)+'''';

DM_f.ADOTable2.Filtered:=true;

end;

end;

procedure TKorrektirovka_.Button5Click(Sender: TObject);

begin

Glavnaya_f.Show;

Korrektirovka_.Hide;

end;

procedure TKorrektirovka_.Button1Click(Sender: TObject);

begin

DBEdit2.ReadOnly:=false;

Button1.Enabled:=false;

Button2.Enabled:=false;

Button5.Enabled:=false;

Button7.Enabled:=false;

Button3.Enabled:=true;

Button4.Enabled:=true;

DM_f.ADOTable2.Edit;

DBEdit2.SetFocus;

end;

procedure TKorrektirovka_.Button2Click(Sender: TObject);

var

a:integer;

begin

a:=0;

DBEdit2.ReadOnly:=false;

DM_f.ADOTable2.Edit;

DBEdit2.Text:=IntToStr(a);

DM_f.ADOTable2.Post;

end;

procedure TKorrektirovka_.Button3Click(Sender: TObject);

begin

if DBEdit2.Text='' then

begin

ShowMessage(' ');

DBEdit2.SetFocus;

end

else

begin

DBEdit2.ReadOnly:=true;

Button1.Enabled:=true;

Button2.Enabled:=true;

Button5.Enabled:=true;

Button7.Enabled:=true;

Button3.Enabled:=false;

Button4.Enabled:=false;

DM_f.ADOTable2.Post;

ShowMessage(' ');

end;

end;

procedure TKorrektirovka_.Button4Click(Sender: TObject);

begin

DBEdit2.ReadOnly:=true;

Button1.Enabled:=true;

Button2.Enabled:=true;

Button5.Enabled:=true;

Button7.Enabled:=true;

Button3.Enabled:=false;

Button4.Enabled:=false;

DM_f.ADOTable2.Cancel;

end;

procedure TKorrektirovka_.Button7Click(Sender: TObject);

begin

if CheckBox2.Checked then

Otchet_vse_voditeli_.QuickRep1.Preview

else

Otchet_poezdki_.QuickRep1.Preview;

end;

end.

unit Mashini

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls, DB, ADODB, Grids,

DBGrids;

type

TMashini_f = class(TForm)

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

SpeedButton7: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton1: TSpeedButton;

SpeedButton8: TSpeedButton;

procedure SpeedButton7Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Mashini_f: TMashini_f;

implementation

uses Glavnaya, DM;

{$R *.dfm}

procedure TMashini_f.SpeedButton7Click(Sender: TObject);

begin

Mashini_f.Hide;//

Glavnaya_f.Show;//

end;

procedure TMashini_f.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then // Enter

DBEdit2.SetFocus;// Enter

end;

procedure TMashini_f.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then // Enter

DBEdit3.SetFocus;// Enter

end;

procedure TMashini_f.SpeedButton2Click(Sender: TObject);

begin

DM_f.ADOTable3.Prior;

end;

procedure TMashini_f.SpeedButton1Click(Sender: TObject);

begin

DM_f.ADOTable3.Next;

end;

procedure TMashini_f.SpeedButton3Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit1.SetFocus;

DM_f.ADOTable3.Insert;

end;

procedure TMashini_f.SpeedButton8Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DM_f.ADOTable3.Edit;

DBEdit1.SetFocus;

end;

procedure TMashini_f.SpeedButton4Click(Sender: TObject);

begin

DM_f.ADOTable3.Delete;

end;

procedure TMashini_f.SpeedButton5Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or

(DBEdit3.Text='')

then

ShowMessage(' ')

else begin

DM_f.ADOTable3.Post;

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

end;

end;

procedure TMashini_f.SpeedButton6Click(Sender: TObject);

begin

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DM_f.ADOTable3.Cancel;

end;

procedure TMashini_f.FormShow(Sender: TObject);

begin

DM_f.ADOTable3.Filtered:=false;

end;

end.

unit Oformlenie_poezdki

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls, Buttons,

ComCtrls;

type

TOformlenie_poezdki_f = class(TForm)

GroupBox1: TGroupBox;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit2: TDBEdit;

DBEdit1: TDBEdit;

DBEdit4: TDBEdit;

DBEdit3: TDBEdit;

DBGrid1: TDBGrid;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

DBEdit16: TDBEdit;

DBEdit15: TDBEdit;

SpeedButton11: TSpeedButton;

SpeedButton3: TSpeedButton;

GroupBox5: TGroupBox;

DBEdit5: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label1: TLabel;

SpeedButton7: TSpeedButton;

SpeedButton1: TSpeedButton;

DBEdit9: TDBEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

GroupBox4: TGroupBox;

SpeedButton10: TSpeedButton;

SpeedButton2: TSpeedButton;

DBEdit10: TDBEdit;

DBEdit8: TDBEdit;

Label8: TLabel;

Label9: TLabel;

Button4: TButton;

Button5: TButton;

GroupBox6: TGroupBox;

Button6: TButton;

Edit1: TEdit;

CheckBox2: TCheckBox;

Label10: TLabel;

DBEdit11: TDBEdit;

DateTimePicker1: TDateTimePicker;

Button7: TButton;

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure GroupBox5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Button7Click(Sender: TObject);

procedure GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure GroupBox6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Button6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label10MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure CheckBox2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Oformlenie_poezdki_f: TOformlenie_poezdki_f;

implementation

uses DM, Glavnaya;

{$R *.dfm}

procedure TOformlenie_poezdki_f.SpeedButton7Click(Sender: TObject);

begin

if

(DBEdit5.Text='') or (DBEdit6.Text='') or (DBEdit7.Text='')

then ShowMessage(' ')

else

begin

DM_f.ADOTable6.FieldByName(' ').AsInteger:=1;

DM_f.ADOTable6.FieldByName(' ').AsString:=DBEdit10.Text;

DM_f.ADOTable6.FieldByName(' ').AsString:=DBEdit16.Text;

DM_f.ADOTable6.FieldByName(' ').AsString:=DM_f.ADOTable5.FieldByName(' ').AsString;

DM_f.ADOTable6.FieldByName('_').AsString:=DBEdit9.Text;

DM_f.ADOTable6.Post;

ShowMessage(' !');//

DM_f.ADOTable2.Edit;

DM_f.ADOTable2.FieldByName('-_').AsInteger:=StrToInt(DBEdit11.Text)+1;

DM_f.ADOTable2.Post;

DM_f.ADOTable3.Edit; //

DM_f.ADOTable3.FieldByName('').AsString:='False'; //

DM_f.ADOTable3.Post; //

DM_f.ADOTable2.Edit; //

DM_f.ADOTable2.FieldByName('').AsString:='False'; //

DM_f.ADOTable2.Post; //

SpeedButton1.Enabled:=true;

Button4.Enabled:=true;

Button5.Enabled:=false;

SpeedButton7.Enabled:=false;

end;

end;

procedure TOformlenie_poezdki_f.SpeedButton10Click(Sender: TObject);

begin

DM_f.ADOTable2.Prior;

end;

procedure TOformlenie_poezdki_f.SpeedButton11Click(Sender: TObject);

begin

DM_f.ADOTable3.Prior;

end;

procedure TOformlenie_poezdki_f.SpeedButton2Click(Sender: TObject);

begin

DM_f.ADOTable2.Next;

end;

procedure TOformlenie_poezdki_f.SpeedButton3Click(Sender: TObject);

begin

DM_f.ADOTable3.Next;

end;

procedure TOformlenie_poezdki_f.SpeedButton1Click(Sender: TObject);

begin

Glavnaya_f.Show;

Oformlenie_poezdki_f.Hide;

end;

procedure TOformlenie_poezdki_f.FormShow(Sender: TObject);

begin

DBEdit9.Text:=DateToStr(date);

DM_f.ADOTable3.Filtered:=False; //

DM_f.ADOTable3.Filter:='=True'; //

DM_f.ADOTable3.Filtered:=True; //

DM_f.ADOTable2.Filtered:=False; //

DM_f.ADOTable2.Filter:='=True' ;// ;

DM_f.ADOTable2.Filtered:=True;//

end;

procedure TOformlenie_poezdki_f.Button3Click(Sender: TObject);

begin

DBEdit1.ReadOnly:=true;

DBEdit2.ReadOnly:=true;

DBEdit3.ReadOnly:=true;

DBEdit4.ReadOnly:=true;

Button1.Enabled:=true;

Button2.Enabled:=false;

Button3.Enabled:=false;

SpeedButton1.Enabled:=true;

DM_f.ADOTable5.Cancel;

end;

procedure TOformlenie_poezdki_f.Button2Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or

(DBEdit3.Text='') or (DBEdit4.Text='')

then

ShowMessage(' ')

else begin

DM_f.ADOTable5.Post;

DBEdit1.ReadOnly:=true;

DBEdit2.ReadOnly:=true;

DBEdit3.ReadOnly:=true;

DBEdit4.ReadOnly:=true;

Button1.Enabled:=true;

Button2.Enabled:=false;

Button3.Enabled:=false;

SpeedButton1.Enabled:=true;

end;

end;

procedure TOformlenie_poezdki_f.Button1Click(Sender: TObject);

begin

DBEdit1.ReadOnly:=false;

DBEdit2.ReadOnly:=false;

DBEdit3.ReadOnly:=false;

DBEdit4.ReadOnly:=false;

Button1.Enabled:=false;

Button2.Enabled:=true;

Button3.Enabled:=true;

SpeedButton1.Enabled:=False;

DM_f.ADOTable5.Insert;

DBEdit1.SetFocus;

end;

procedure TOformlenie_poezdki_f.SpeedButton5Click(Sender: TObject);

begin

DM_f.ADOTable5.Next;

end;

procedure TOformlenie_poezdki_f.SpeedButton4Click(Sender: TObject);

begin

DM_f.ADOTable5.Prior;

end;

procedure TOformlenie_poezdki_f.Button4Click(Sender: TObject);

begin

DM_f.ADOTable6.Insert;

SpeedButton1.Enabled:=False;

Button4.Enabled:=false;

Button5.Enabled:=true;

SpeedButton7.Enabled:=true;

end;

procedure TOformlenie_poezdki_f.Button5Click(Sender: TObject);

begin

DM_f.ADOTable6.Cancel;

Button4.Enabled:=true;

Button5.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton1.Enabled:=true;

end;

procedure TOformlenie_poezdki_f.Button6Click(Sender: TObject);

begin

if

CheckBox2.Checked then

DM_f.ADOTable5.Filtered:=false

else

begin

DM_f.ADOTable5.Filtered:=false;

DM_f.ADOTable5.Filter:='_='''

+ (Edit1.Text)+'''';

DM_f.ADOTable5.Filtered:=true;

end;

end;

procedure TOformlenie_poezdki_f.GroupBox5MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

DBEdit6.Text:=TimeToStr(DateTimePicker1.Time);

end;

procedure TOformlenie_poezdki_f.Button7Click(Sender: TObject);

begin

if (DBEdit16.Text='') and (DBEdit15.Text='') then

begin

ShowMessage(' '); //

Glavnaya_f.Show;

Oformlenie_poezdki_f.Hide;

end

else

if (DBEdit10.Text='') and (DBEdit8.Text='') then

begin

ShowMessage(' '); //

Glavnaya_f.Show;

Oformlenie_poezdki_f.Hide;

end;

end;

procedure TOformlenie_poezdki_f.GroupBox1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.GroupBox2MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.FormMouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.GroupBox6MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.DBGrid1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.Button6MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.Edit1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.Label10MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

procedure TOformlenie_poezdki_f.CheckBox2MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

Button7.Click;

end;

end.

unit Operator

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, Buttons;

type

TOperatory_f = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

SpeedButton7: TSpeedButton;

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

SpeedButton3: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton1: TSpeedButton;

Label5: TLabel;

DBEdit5: TDBEdit;

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Operatory_f: TOperatory_f;

implementation

uses Glavnaya, DM;

{$R *.dfm}

procedure TOperatory_f.SpeedButton7Click(Sender: TObject);

begin

Operatory_f.Hide;

Glavnaya_f.Show;

end;

procedure TOperatory_f.SpeedButton3Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit4.ReadOnly:=False;

DBEdit5.ReadOnly:=False;

DBEdit1.SetFocus;

DM_f.ADOTable4.Insert;

end;

procedure TOperatory_f.SpeedButton2Click(Sender: TObject);

begin

DM_f.ADOTable4.Prior;

end;

procedure TOperatory_f.SpeedButton8Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit4.ReadOnly:=False;

DBEdit5.ReadOnly:=False;

DM_f.ADOTable4.Edit;

DBEdit1.SetFocus;

end;

procedure TOperatory_f.SpeedButton4Click(Sender: TObject);

begin

DM_f.ADOTable4.Delete;

end;

procedure TOperatory_f.SpeedButton5Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or

(DBEdit3.Text='') or (DBEdit4.Text='')

then

ShowMessage(' ')

else begin

DM_f.ADOTable4.Post;

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DBEdit4.ReadOnly:=true;

DBEdit5.ReadOnly:=true;

end;

end;

procedure TOperatory_f.SpeedButton6Click(Sender: TObject);

begin

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DBEdit4.ReadOnly:=true;

DBEdit5.ReadOnly:=true;

DM_f.ADOTable4.Cancel;

end;

procedure TOperatory_f.SpeedButton1Click(Sender: TObject);

begin

DM_f.ADOTable4.Next;

end;

end.

unit Status

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, Buttons;

type

TStatus_f = class(TForm)

GroupBox2: TGroupBox;

GroupBox1: TGroupBox;

SpeedButton10: TSpeedButton;

SpeedButton16: TSpeedButton;

DBEdit33: TDBEdit;

ComboBox2: TComboBox;

DBEdit32: TDBEdit;

SpeedButton18: TSpeedButton;

SpeedButton17: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label31: TLabel;

SpeedButton20: TSpeedButton;

SpeedButton21: TSpeedButton;

DBEdit35: TDBEdit;

ComboBox3: TComboBox;

DBEdit34: TDBEdit;

SpeedButton19: TSpeedButton;

SpeedButton22: TSpeedButton;

Label4: TLabel;

Label5: TLabel;

Label50: TLabel;

Label7: TLabel;

SpeedButton1: TSpeedButton;

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure SpeedButton19Click(Sender: TObject);

procedure SpeedButton22Click(Sender: TObject);

procedure SpeedButton20Click(Sender: TObject);

procedure SpeedButton21Click(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Status_f: TStatus_f;

implementation

uses DM, Glavnaya;

{$R *.dfm}

procedure TStatus_f.SpeedButton10Click(Sender: TObject);

begin

ComboBox2.Enabled:=True; //

DM_f.ADOTable3.Edit;//

Label31.Font.Color:=ClGray; //

if DBEdit33.Text='True' then

Label31.Caption:='' //

else

Label31.Caption:='';//

SpeedButton16.Enabled:=True; //

SpeedButton10.Enabled:=False;//

SpeedButton17.Enabled:=False; //

SpeedButton18.Enabled:=False; //

end;

procedure TStatus_f.SpeedButton16Click(Sender: TObject);

begin

if DBEdit33.Text='True' then

Label31.Caption:='' //

else

Label31.Caption:='';//

DM_f.ADOTable3.FieldByName('').AsString:=DBEdit33.Text; //

DM_f.ADOTable3.Post; //

Label31.Font.Color:=ClRed;//

SpeedButton16.Enabled:=False; //

SpeedButton10.Enabled:=True; //

SpeedButton17.Enabled:=True; //

SpeedButton18.Enabled:=True; //

ComboBox2.Text:=''; //

ComboBox2.Enabled:=False; //

ShowMessage(' '); //

end;

procedure TStatus_f.SpeedButton17Click(Sender: TObject);

begin

DM_f.ADOTable3.Next;

if DBEdit33.Text='True' then

Label31.Caption:='' //

else

begin

Label31.Caption:='';//

ComboBox2.Text:=''; //

end;

end;

procedure TStatus_f.SpeedButton18Click(Sender: TObject);

begin

DM_f.ADOTable3.Prior;

if DBEdit33.Text='True' then

Label31.Caption:=''//

else

begin

Label31.Caption:='';//

ComboBox2.Text:=''; //

end;

end;

procedure TStatus_f.ComboBox2Change(Sender: TObject);

begin

if ComboBox2.Text='' then

DBEdit33.Text:='True' //

else

DBEdit33.Text:='False' //

end;

procedure TStatus_f.FormShow(Sender: TObject);

begin

DM_f.ADOTable3.Filtered:=False; //

DM_f.ADOTable2.Filtered:=False; //

if DBEdit33.Text='true' then

Label31.Caption:='' //

else

Label31.Caption:='';//

if DBEdit35.Text='true' then

Label50.Caption:=''

else

Label50.Caption:='';

end;

procedure TStatus_f.SpeedButton19Click(Sender: TObject);

begin

ComboBox3.Enabled:=True; //

DM_f.ADOTable2.Edit; //

Label50.Font.Color:=ClGray; //

if DBEdit35.Text='True' then

Label50.Caption:='' //

else

Label50.Caption:=''; //

SpeedButton22.Enabled:=True; //

SpeedButton19.Enabled:=False; //

SpeedButton20.Enabled:=False; //

SpeedButton21.Enabled:=False; //

ComboBox2.Text:=''; //

end;

procedure TStatus_f.SpeedButton22Click(Sender: TObject);

begin

if DBEdit35.Text='True' then

Label50.Caption:=''//

else

Label50.Caption:='';//

DM_f.ADOTable2.FieldByName('').AsString:=DBEdit35.Text; //

DM_f.ADOTable2.Post; //

Label50.Font.Color:=ClRed; //

SpeedButton22.Enabled:=False; //

SpeedButton19.Enabled:=True; //

SpeedButton20.Enabled:=True; //

SpeedButton21.Enabled:=True; //

ComboBox3.Text:=''; //

ComboBox3.Enabled:=False; //

ShowMessage(' ');//

end;

procedure TStatus_f.SpeedButton20Click(Sender: TObject);

begin

DM_f.ADOTable2.Prior; //

if DBEdit35.Text='True' then

Label50.Caption:=''

else

begin

Label50.Caption:='';

ComboBox3.Text:=''; //

end;

end;

procedure TStatus_f.SpeedButton21Click(Sender: TObject);

begin

DM_f.ADOTable2.Next; //

if DBEdit35.Text='True' then

Label50.Caption:=''

else

begin

Label50.Caption:='';

ComboBox3.Text:='';//

end;

end;

procedure TStatus_f.ComboBox3Change(Sender: TObject);

begin

if ComboBox3.Text='' then

DBEdit35.Text:='True' //

else

DBEdit35.Text:='False' //

end;

procedure TStatus_f.SpeedButton1Click(Sender: TObject);

begin

Glavnaya_f.Show; //

Status_f.Hide;//

end;

end.

unit Voditeli

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids,

Mask;

type

TVoditeli_f = class(TForm)

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

SpeedButton7: TSpeedButton;

DBEdit5: TDBEdit;

DBEdit7: TDBEdit;

Label5: TLabel;

Label7: TLabel;

SpeedButton3: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure SpeedButton7Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Voditeli_f: TVoditeli_f;

implementation

uses Glavnaya, DM;

{$R *.dfm}

procedure TVoditeli_f.SpeedButton7Click(Sender: TObject);

begin

Voditeli_f.Hide;//

Glavnaya_f.Show;//

end;

procedure TVoditeli_f.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then // Enter

DBEdit2.SetFocus;// Enter

end;

procedure TVoditeli_f.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then // Enter

DBEdit3.SetFocus;// Enter

end;

procedure TVoditeli_f.DBEdit3KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then // Enter

DBEdit4.SetFocus;// Enter

end;

procedure TVoditeli_f.SpeedButton3Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit4.ReadOnly:=False;

DBEdit5.ReadOnly:=False;

DBEdit7.ReadOnly:=False;

DBEdit1.SetFocus;

DM_f.ADOTable2.Insert;

end;

procedure TVoditeli_f.SpeedButton8Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit4.ReadOnly:=False;

DBEdit5.ReadOnly:=False;

DBEdit7.ReadOnly:=False;

DM_f.ADOTable2.Edit;

DBEdit1.SetFocus;

end;

procedure TVoditeli_f.SpeedButton4Click(Sender: TObject);

begin

DM_f.ADOTable2.Delete;

end;

procedure TVoditeli_f.SpeedButton5Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or

(DBEdit3.Text='') or (DBEdit4.Text='') or

(DBEdit5.Text='') or (DBEdit7.Text='')

then

ShowMessage(' ')

else begin

DM_f.ADOTable2.Post;

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DBEdit4.ReadOnly:=true;

DBEdit5.ReadOnly:=True;

DBEdit7.ReadOnly:=True;

end;

end;

procedure TVoditeli_f.SpeedButton6Click(Sender: TObject);

begin SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DBEdit4.ReadOnly:=true;

DBEdit5.ReadOnly:=True;

DBEdit7.ReadOnly:=True;

DM_f.ADOTable2.Cancel;

end;

procedure TVoditeli_f.SpeedButton2Click(Sender: TObject);

begin

DM_f.ADOTable2.Prior;

end;

procedure TVoditeli_f.SpeedButton1Click(Sender: TObject);

begin

DM_f.ADOTable2.Next;

end;

procedure TVoditeli_f.FormShow(Sender: TObject);

begin

DM_f.ADOTable2.Filtered:=false;

end;

end.

1. 1.1 1.2 1.3 1.4 1.4.1

 

 

 

! , , , .
. , :