Кіріспе әр түрлі ұйымдардың табысты жұмыс жасауы үшін ақпаратты жүйенің дамығанын талап етеді. Сонда сол деректермен автоматтандырылған жинауды, өңдеуді және монипуляциялауды іске асырады. Мәліметтер базасы

жүктеу 5,08 Mb.

бет	5/5
Дата	24.01.2018
өлшемі	5,08 Mb.
	#7874

1 2 3 4 5

ҚОСЫМША Ә

(Жалғасы)

3-сурет

4-сурет

ҚОСЫМША Ә

(Жалғасы)

5-сурет

6-сурет

ҚОСЫМША Ә

(Жалғасы)

7-сурет

8-сурет

9-сурет

ҚОСЫМША Ә

(Жалғасы)

10-сурет

11-сурет

ҚОСЫМША Б
1) Unit1;

2) interface

3) uses

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

Dialogs,unit2,unit3,unit4,unit5,unit6,unit7,unit8,unit9,unit10,unit11,

StdCtrls, Buttons, Menus, jpeg, ExtCtrls;

4) type

5) TForm1 = class(TForm)

6) Image1: TImage;

Label1: TLabel;

7) MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

BitBtn1: TBitBtn;

8) procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

9) private

{ Private declarations }

public

{ Public declarations }

end;

ҚОСЫМША Б

(Жалғасы)

10) var

11) Form1: TForm1;

implementation

{$R *.dfm}

12) procedure TForm1.N6Click(Sender: TObject);

begin

form3.Show;

end;

13) procedure TForm1.N7Click(Sender: TObject);

begin

form4.Show;

end;

14) procedure TForm1.N8Click(Sender: TObject);

begin

form5.Show;

end;

15) procedure TForm1.N9Click(Sender: TObject);

begin

form6.Show;

end;

16) procedure TForm1.N10Click(Sender: TObject);

begin

form7.Show;

end;

17) procedure TForm1.N11Click(Sender: TObject);

begin

form8.Show;

end;

18) procedure TForm1.N12Click(Sender: TObject);

begin

form9.Show;

end;

19) procedure TForm1.N13Click(Sender: TObject);

begin

form10.Show;

end;

20) procedure TForm1.N14Click(Sender: TObject);

begin

form11.Show;

end;

21) procedure TForm1.N15Click(Sender: TObject);

begin

ҚОСЫМША Б

(Жалғасы)
If MessageDlg ('Вы действительно хотите завершить работу?', mtConfirmation, [mbYes, mbNo, mbCancel], 0)=mrYes

Then

Begin

MessageDlg ('Работа закончена', mtInformation, [mbOk], 0);

close;

end;

22) end;

23) procedure TForm1.BitBtn1Click(Sender: TObject);

begin

winexec(PChar('C:\Program Files\Borland\Delphi7\Projects\Баха практика\STO'),SW_show);

end;

end.
2) Unit2;

1) unit Unit2;

2) interface

3) uses

SysUtils, Classes, DB, DBTables;

4) type

TDataModule2 = class(TDataModule)

Database1: TDatabase;

Avtozapchasti: TTable;

Remont: TTable;

Texosmotr: TTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

Query1: TQuery;

DataSource4: TDataSource;

Query2: TQuery;

DataSource5: TDataSource;

Query3: TQuery;

DataSource6: TDataSource;

5) private

{ Private declarations }

public

{ Public declarations }

end;

6) var

7) DataModule2: TDataModule2;

ҚОСЫМША Б

(Жалғасы)
implementation

{$R *.dfm}

8) end.
3) Unit3;

1) unit Unit3;

2) interface

3) uses

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

Dialogs,unit2, StdCtrls, Buttons, Grids, DBGrids;

4) type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

5) procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

6) private

{ Private declarations }

public

{ Public declarations }

end;

7) var

8) Form3: TForm3;

implementation

{$R *.dfm}

9) procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Datamodule2.Avtozapchasti.Append;

end;

10) procedure TForm3.BitBtn2Click(Sender: TObject);

begin

Datamodule2.Avtozapchasti.Edit;

end;

11) procedure TForm3.BitBtn3Click(Sender: TObject);

begin

Datamodule2.Avtozapchasti.Post;

ҚОСЫМША Б

(Жалғасы)
end;

12) procedure TForm3.BitBtn4Click(Sender: TObject);

begin

Datamodule2.Avtozapchasti.Delete;

end;

13) end.
4) Unit4;

1) unit Unit4;

2) interface

3) uses

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

Dialogs,unit2, StdCtrls, Buttons, Grids, DBGrids;

4) type

TForm4 = class(TForm)

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

5) procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

6) private

{ Private declarations }

public

{ Public declarations }

end;

7) var

8) Form4: TForm4;

implementation

{$R *.dfm}

9) procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Datamodule2.Remont.Append;

end;

10) procedure TForm4.BitBtn2Click(Sender: TObject);

begin

Datamodule2.Remont.Edit;

end;

ҚОСЫМША Б

(Жалғасы)
11) procedure TForm4.BitBtn3Click(Sender: TObject);

begin

Datamodule2.Remont.Post;

end;

12) procedure TForm4.BitBtn4Click(Sender: TObject);

begin

Datamodule2.Remont.Delete;

end;

13) end.
5) Unit5;

1) unit Unit5;

2) interface

3) uses

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

Dialogs,unit2, StdCtrls, Buttons, Grids, DBGrids;

4) type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

5) procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

6) private

{ Private declarations }

public

{ Public declarations }

end;

7) var

8) Form5: TForm5;

implementation

{$R *.dfm}

9) procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Datamodule2.Texosmotr.Append;

end;

10) procedure TForm5.BitBtn2Click(Sender: TObject);

ҚОСЫМША Б

(Жалғасы)

begin

Datamodule2.Texosmotr.Edit;

end;

11) procedure TForm5.BitBtn3Click(Sender: TObject);

begin

Datamodule2.Texosmotr.Post;

end;

12) procedure TForm5.BitBtn4Click(Sender: TObject);

begin

Datamodule2.Texosmotr.Delete;

end;

13) end.
6) Unit6;

1) unit Unit6;

2) interface

3) uses

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

Dialogs,unit2, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask, jpeg;

4) type

TForm6 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

Label11: TLabel;

ҚОСЫМША Б

(Жалғасы)
DBEdit9: TDBEdit;

5) private

{ Private declarations }

public

{ Public declarations }

end;

6) var

7) Form6: TForm6;

implementation

{$R *.dfm}

8) end.
7) Unit7;

1) unit Unit7;

2) interface

3) uses

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

Dialogs,unit2, jpeg, ExtCtrls, DBCtrls, StdCtrls, Mask, Buttons;

4) type

TForm7 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

5) private

{ Private declarations }

public

{ Public declarations }

end;

ҚОСЫМША Б

(Жалғасы)
6) var

7) Form7: TForm7;

implementation

{$R *.dfm}

8) end.
8) Unit8;

1) unit Unit8;

2) interface

3) uses

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

Dialogs,unit2, StdCtrls, Buttons, RpCon, RpConDS, RpConBDE, RpDefine,

RpRave, Grids, DBGrids;

4) type

TForm8 = class(TForm)

DBGrid1: TDBGrid;

RvProject1: TRvProject;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

RvQueryConnection1: TRvQueryConnection;

5) procedure BitBtn1Click(Sender: TObject);

6) private

{ Private declarations }

public

{ Public declarations }

end;

7) var

8) Form8: TForm8;

implementation

{$R *.dfm}

9) procedure TForm8.BitBtn1Click(Sender: TObject);

begin

rvproject1.Execute;

end;

10) end.
9) Unit9;

1) unit Unit9;

2) interface

3) uses

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

Dialogs,unit2, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, StdCtrls,

ҚОСЫМША Б

(Жалғасы)
Buttons, Grids, DBGrids;

4) type

TForm9 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

RvProject2: TRvProject;

RvTableConnection1: TRvTableConnection;

5) procedure BitBtn1Click(Sender: TObject);

6) private

{ Private declarations }

public

{ Public declarations }

end;

7) var

8) Form9: TForm9;

implementation

{$R *.dfm}

9) procedure TForm9.BitBtn1Click(Sender: TObject);

begin

rvproject2.Execute;

end;

10) end.
10) Unit10;

1) unit Unit10;

2) interface

3) uses

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

Dialogs,unit2, StdCtrls, Buttons, jpeg, ExtCtrls;

4) type

TForm10 = class(TForm)

Image1: TImage;

Label1: TLabel;

Memo1: TMemo;

BitBtn1: TBitBtn;

5) private

{ Private declarations }

public

{ Public declarations }

end;

6) var

7) Form10: TForm10;

ҚОСЫМША Б

(Жалғасы)
implementation

{$R *.dfm}

8) end.
11) Unit11;

1) unit Unit11;

2) interface

3) uses

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

Dialogs,unit2, StdCtrls, Buttons, jpeg, ExtCtrls;

4) type

TForm11 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

BitBtn1: TBitBtn;

Image2: TImage;

Image3: TImage;

Image4: TImage;

5) private

{ Private declarations }

public

{ Public declarations }

end;

6) var

7) Form11: TForm11;

implementation

{$R *.dfm}

8) end.

ҚОСЫМША В
1) Unit1;

1) unit Unit1;

2) interface

3) uses

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

Dialogs,unit2,unit3,unit4, unit5,unit6,Menus, jpeg, ExtCtrls;

4) type

5) TForm1 = class(TForm)

6) Image1: TImage;

7) MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

8) procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N3Click(Sender: TObject);

9) private

{ Private declarations }

public

{ Public declarations }

end;

10) var

11) Form1: TForm1;

implementation

{$R *.dfm}

12) procedure TForm1.N4Click(Sender: TObject);

begin

form3.Show;

end;

13) procedure TForm1.N5Click(Sender: TObject);

begin

form4.Show;

end;

14) procedure TForm1.N6Click(Sender: TObject);

begin

form5.Show;

end;

ҚОСЫМША В

(Жалғасы)
15) procedure TForm1.N7Click(Sender: TObject);

begin

form6.Show;

end;

16) procedure TForm1.N3Click(Sender: TObject);

begin

If MessageDlg ('Вы действительно хотите выйти?', mtConfirmation, [mbYes, mbNo, mbCancel], 0)=mrYes

Then

Begin

MessageDlg ('Работа закончена', mtInformation, [mbOk], 0);

close;

end;

17) end.
2) Unit2;

1) unit Unit2;

2) interface

3) uses

SysUtils, Classes, DB, DBTables;

4) type

TDataModule2 = class(TDataModule)

Database1: TDatabase;

Boks: TTable;

Remonti: TTable;

Spesialisti: TTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

Query1: TQuery;

DataSource4: TDataSource;

5) private

{ Private declarations }

public

{ Public declarations }

end;

6) var

7) DataModule2: TDataModule2;

implementation

{$R *.dfm}

8) end.

ҚОСЫМША В

(Жалғасы)
3) Unit3;

1) unit Unit3;

2) interface

3) uses

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

Dialogs,unit2,Grids, DBGrids, StdCtrls, Buttons;

4) type

TForm3 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

DBGrid1: TDBGrid;

5) procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

6) private

{ Private declarations }

public

{ Public declarations }

end;

7) var

8) Form3: TForm3;

implementation

{$R *.dfm}

9) procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Datamodule2.Boks.Append;

end;

10) procedure TForm3.BitBtn2Click(Sender: TObject);

begin

Datamodule2.Boks.Edit;

end;

11) procedure TForm3.BitBtn3Click(Sender: TObject);

begin

Datamodule2.Boks.Post;

end;

12) procedure TForm3.BitBtn4Click(Sender: TObject);

begin

Datamodule2.Boks.Delete;

ҚОСЫМША В

(Жалғасы)

end;

13) end.

4) Unit4;

1) unit Unit4;

2) interface

3) uses

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

Dialogs,unit2, StdCtrls, Buttons, Grids, DBGrids;

4) type

TForm4 = class(TForm)

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

5) procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

6) private

{ Private declarations }

public

{ Public declarations }

end;

7) var

8) Form4: TForm4;

implementation

{$R *.dfm}

9) procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Datamodule2.Remonti.Append;

end;

10) procedure TForm4.BitBtn2Click(Sender: TObject);

begin

Datamodule2.Remonti.Edit;

end;

11) procedure TForm4.BitBtn3Click(Sender: TObject);

begin

Datamodule2.Remonti.Post;

end;

12) procedure TForm4.BitBtn4Click(Sender: TObject);

ҚОСЫМША В

(Жалғасы)

begin

Datamodule2.Remonti.Delete;

end;

13) end.
5) Unit5;

1) unit Unit5;

2) interface

3) uses

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

Dialogs,unit2, Grids, DBGrids, StdCtrls, Buttons;

4) type

TForm5 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

DBGrid1: TDBGrid;

5) procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

6) private

{ Private declarations }

public

{ Public declarations }

end;

7) var

8) Form5: TForm5;

implementation

{$R *.dfm}

9) procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Datamodule2.Spesialisti.Append;

end;

10) procedure TForm5.BitBtn2Click(Sender: TObject);

begin

Datamodule2.Spesialisti.Edit;

end;

11) procedure TForm5.BitBtn3Click(Sender: TObject);

begin

Datamodule2.Spesialisti.Post;

ҚОСЫМША В

(Жалғасы)

end;

12) procedure TForm5.BitBtn4Click(Sender: TObject);

begin

Datamodule2.Spesialisti.Delete;

end;

13) end.
6) Unit6;

1) unit Unit6;

2) interface

3) uses

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

Dialogs,unit2, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask, jpeg;

4) type

TForm6 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBNavigator1: TDBNavigator;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

BitBtn1: TBitBtn;

5) private

{ Private declarations }

public

{ Public declarations }

end;

6) var

7) Form6: TForm6;

implementation

{$R *.dfm}

8) end.

жүктеу 5,08 Mb.

Достарыңызбен бөлісу:

1 2 3 4 5