Курстық жобаға ТҮсіндірме жазба

ҚОРЫТЫНДЫ
Қорыта келгенде, осы курстық жұмысты жаза отырып мен DELPHI ортасымен таныстым. DELPHI құралы үлкен бір программалық орта болып саналады. Соған қарамастан DELPHI ортасында жұмыс істеу онша қиын емес және де өте қолайлы. DELPHI – деректер базасын басқару жүйесі болмаса да, деректер базасымен жұмыс істегенде жоғарғы дәрежеде жұмыс істейтініне көзім жетті. DELPHI–де өзім үшін екінші рет деректер базасын жасадым. DELPHI қолданушы үшін мәліметтер базасын жасауда көп мүмкіншіліктерді береді. Сол мүмкіншіліктердің біразын біз осы курстық жұмысты жазу барысында қолдандық.

Қазіргі кезде DELPHI құралының мүмкіншіліктері күннен – күнге артуда. Бүгінгі күні DELPHI – дің көмегімен деректер базасын интернетте де жариялауға болады .

Қорыта келсек, әрбір программист үшін DELPHI құралын білген өте пайдалы, әрі тиімді екенін айта кеткен жөн.

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
1. В.В.Фаронов DELPHI 5 . Руководство программиста.

Издательство «Нолидж», Москва 2001 г.

2. В.Гофман, А.Хомоненко Работа с базами данных в DELPHI.

Издательство «БХВ – Петербург», Санкт – Петербург 2000 г.

3. А.М. Епанешников , В.А. Епанешников DELPHI база данных

Издательство «ДИАЛОГ – МИФИ», Москва 2000 г.

4. А.Я. Архангельский Програмирование в Delphi 7.

Издательство «Бином», Москва 2004 г.

5. Электронный учебник по Delphi 6.

ҚОСЫМША А



Сурет 1

ҚОСЫМША А


Сурет 2


Сурет 3
ҚОСЫМША А


Сурет 4


Сурет 5
ҚОСЫМША А


Сурет 6


Сурет 7

ҚОСЫМША А



Сурет 8


Сурет 9


ҚОСЫМША А


Сурет 10


Сурет 11


ҚОСЫМША А



Сурет 12


Сурет 13


ҚОСЫМША А




Сурет 14
ҚОСЫМША А



СУРЕТ 15
Қосымша А


Сурет 16


Сурет 17
Қосымша А


Сурет 18

ҚОСЫМША Б

1)Unit1
1)unit Unit1;

2) interface

3)uses

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

4) Forms,

5) Dialogs, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, ExtCtrls, Menus;

6) type

7) TForm1 = class(TForm)

8) Panel1: TPanel;

9) Panel2: TPanel;

10) Panel3: TPanel;

11) DBGrid1: TDBGrid;

12) DBGrid2: TDBGrid;

13) DBGrid3: TDBGrid;

14) DBNavigator1: TDBNavigator;

15) BitBtn1: TBitBtn;

16) MainMenu1: TMainMenu;

17) RabotasBD1: TMenuItem;

18) Komanda1: TMenuItem;

19) Raspisanie1: TMenuItem;

20) Stadion1: TMenuItem;

21) Dokumenty1: TMenuItem;

22) Raspisanie2: TMenuItem;

23) Bilet1: TMenuItem;

24) Statistika1: TMenuItem;

25) Otchet11: TMenuItem;

26) Otchet21: TMenuItem;

27) Oprogramme1: TMenuItem;

28) Instrukcia1: TMenuItem;

29) Obavtore1: TMenuItem;

30) Vyhod1: TMenuItem;

31) procedure BitBtn1Click(Sender: TObject);

32) procedure Komanda1Click(Sender: TObject);

33) procedure Raspisanie1Click(Sender: TObject);

34) procedure Stadion1Click(Sender: TObject);

35) procedure Raspisanie2Click(Sender: TObject);

36) procedure Bilet1Click(Sender: TObject);

37) procedure Otchet11Click(Sender: TObject);

38) procedure Vyhod1Click(Sender: TObject);

39) procedure Instrukcia1Click(Sender: TObject);

40) procedure Obavtore1Click(Sender: TObject);

41) procedure Otchet21Click(Sender: TObject);

42) private { Private declarations }

43) public { Public declarations }

44) end;

45) var

46) Form1: TForm1;

47) implementation

48) uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,

Unit11, Unit12, Unit13;

{$R *.dfm}

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

50) begin

51) form1.Close;

52) end;

53) procedure TForm1.Komanda1Click(Sender: TObject);

54) begin

55) form3.Show;

56) end;

57) procedure TForm1.Raspisanie1Click(Sender: TObject);

58) begin

59) form4.Show;

60) end;

61) procedure TForm1.Stadion1Click(Sender: TObject);

62) begin

63) form5.Show;

64) end;

65) procedure TForm1.Raspisanie2Click(Sender: TObject);

66) begin

67) Form6.Show;

68) end;

69) procedure TForm1.Bilet1Click(Sender: TObject);

70) begin

71) form7.Show;

72) end;

73) procedure TForm1.Otchet11Click(Sender: TObject);

74) begin

75) form8.show;

76) end;

77) procedure TForm1.Vyhod1Click(Sender: TObject);

78) begin

79) form11.Show;

80) end;

81) procedure TForm1.Instrukcia1Click(Sender: TObject);

82) begin

83) form9.show;

84) end;

85) procedure TForm1.Obavtore1Click(Sender: TObject);

86) begin

87) form10.show;

88) end;

89) procedure TForm1.Otchet21Click(Sender: TObject);

90) begin

91) form13.Show;

92) end;

93) end.
2) Unit2
1) unit Unit2;

2) interface

3) uses

4) SysUtils, Classes, DB, DBTables;

5) type

6) TDataModule2 = class(TDataModule)

7) Database1: TDatabase;

8) Table1: TTable;

9) Table2: TTable;

10) Table3: TTable;

11) DataSource1: TDataSource;

12) DataSource2: TDataSource;

13) DataSource3: TDataSource;

14) private

{ Private declarations

15) public

{ Public declarations }

16) end;

17) var

18) DataModule2: TDataModule2;

19) implementation

20) uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,Unit11;

{$R *.dfm}

21) end.
3) Unit3
1) unit Unit3;

2) interface

3) uses

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

5) Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

6) type

7) TForm3 = class(TForm)

8) Panel1: TPanel;

9) DBGrid1: TDBGrid;

10) BitBtn1: TBitBtn;

11) BitBtn2: TBitBtn;

12) BitBtn3: TBitBtn;

13) BitBtn4: TBitBtn;

14) BitBtn5: TBitBtn;

15) procedure BitBtn5Click(Sender: TObject);

16) procedure BitBtn1Click(Sender: TObject);

17) procedure BitBtn3Click(Sender: TObject);

18) procedure BitBtn4Click(Sender: TObject);

19) procedure BitBtn2Click(Sender: TObject);

20) private

{ Private declarations }

21) public

{ Public declarations }

22) end;

23) var

24) Form3: TForm3;

25) implementation

26) uses Unit1, Unit2;

{$R *.dfm}

27) procedure TForm3.BitBtn5Click(Sender: TObject);

28) begin

29) form3.Close;

30) end;

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

32) begin

33) datamodule2.Table1.Insert;

34) end;

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

36) begin

37) datamodule2.Table1.Edit;

38) end;

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

40) begin

41)if messagedlg('Sohranit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then

42)datamodule2.table1.post;

43)end;

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

45)begin

46)if messagedlg('Udalit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then 47)datamodule2.table1.delete;

48)end;

49)end.
4) Unit4
1) unit Unit4;

2) interface

3) uses

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

5) Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

6) type

7) TForm4 = class(TForm)

8) Panel1: TPanel;

9) DBGrid1: TDBGrid;

10) BitBtn1: TBitBtn;

11) BitBtn2: TBitBtn;

12) BitBtn3: TBitBtn;

13) BitBtn4: TBitBtn;

14) BitBtn5: TBitBtn;

15) procedure BitBtn1Click(Sender: TObject);

16) procedure BitBtn3Click(Sender: TObject);

17) procedure BitBtn5Click(Sender: TObject);

18) procedure BitBtn2Click(Sender: TObject);

19) procedure BitBtn4Click(Sender: TObject);

20) private

{ Private declarations }

21) public

{ Public declarations }

22) end;

23) var

24) Form4: TForm4;

25) implementation

26) uses Unit1, Unit2;

{ $R *.dfm}

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

28) begin

29) Datamodule2.Table2.Insert;

30) end;

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

32) begin

33) datamodule2.Table2.Edit;

34) end;

35) procedure TForm4.BitBtn5Click(Sender: TObject);

36) begin

37) form4.Close;

38) end;

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

40) begin

41)if messagedlg('Udalit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then 42)datamodule2.table2.delete;

43) end;

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

45) begin

46)if messagedlg('Sohranit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then 47)datamodule2.table2.post;

48) end;

49) end.
5) Unit5
1) unit Unit5;

2) interface

3) uses

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

5) Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

6) type

7) TForm5 = class(TForm)

8) Panel1: TPanel;

9) DBGrid1: TDBGrid;

10) BitBtn1: TBitBtn;

11) BitBtn2: TBitBtn;

12) BitBtn3: TBitBtn;

13 ) BitBtn4: TBitBtn;

14 ) BitBtn5: TBitBtn;

15) procedure BitBtn1Click(Sender: TObject);

16) procedure BitBtn3Click(Sender: TObject);

17) procedure BitBtn5Click(Sender: TObject);

18) procedure BitBtn4Click(Sender: TObject);

19) procedure BitBtn2Click(Sender: TObject);

20) private

{ Private declarations }

21) public

{ Public declarations }

22) end;

23) var

24) Form5: TForm5;

25) implementation

26) uses Unit1, Unit2;

{$R *.dfm}

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

28) begin

29) datamodule2.Table3.Insert;

30) end;

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

32) begin

33) datamodule2.Table3.Edit;

34) end;

35) procedure TForm5.BitBtn5Click(Sender: TObject);

36) begin

37) form5.close;

38) end;

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

40) begin

41) if messagedlg('Sohranit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then 42)datamodule2.table3.post;

43) end;

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

45) begin

46)if messagedlg('Udalit?',mtconfirmation,[mbYes,mbNo],0)=mrYes then 47)datamodule2.table3.delete;

48) end;

49) end.
6) Unit6
1) unit Unit6;

2) interface

3) uses

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

5) Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, Buttons;

6) type

7) TForm6 = class(TForm)

8) Table1: TTable;

9) DBEdit1: TDBEdit;

10) Label1: TLabel;

11) Label2: TLabel;

12) DBEdit2: TDBEdit;

13) DBEdit3: TDBEdit;

14) DBEdit4: TDBEdit;

15) DBEdit5: TDBEdit;

16) Label3: TLabel;

17) Label4: TLabel;

18) Label5: TLabel;

19) Label6: TLabel;

20) BitBtn1: TBitBtn;

21) DataSource1: TDataSource;

22) procedure BitBtn1Click(Sender: TObject);

23) private

{ Private declarations }

24) public

{ Public declarations }

25) end;

26) var

27) Form6: TForm6;

28) implementation

29) uses Unit1, Unit2;

{$R *.dfm}

30) procedure TForm6.BitBtn1Click(Sender: TObject);

31) begin

32) form6.Close;

33) end;

34) end.

7) Unit7
1) unit Unit7;

2) interface

3) uses

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

5) Dialogs, StdCtrls, Buttons, Mask, DBCtrls, DB, DBTables;

6) type

7) TForm7 = class(TForm)

8) Query1: TQuery;

9) DataSource1: TDataSource;

10) DBEdit1: TDBEdit;

11) DBEdit2: TDBEdit;

12) DBEdit3: TDBEdit;

13) DBEdit4: TDBEdit;

14) DBEdit5: TDBEdit;

15) Label1: TLabel;

16) Label2: TLabel;

17) BitBtn1: TBitBtn;

18) Label3: TLabel;

19) Label4: TLabel;

20) Label5: TLabel;

21) Label6: TLabel;

22) procedure BitBtn1Click(Sender: TObject);

23) private

{ Private declarations }

24) public

{ Public declarations }

25) end;

26) var

27) Form7: TForm7;

28) implementation

29) uses Unit1, Unit2;

{$R *.dfm}

30) procedure TForm7.BitBtn1Click(Sender: TObject);

31) begin

32) form7.close;

33) end;

34) end.
8) Unit8
1) unit Unit8;

2) interface

3) uses

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

5) Dialogs, StdCtrls, Buttons, RpRave, RpDefine, RpCon, RpConDS, RpConBDE,

6) DBCtrls, Grids, DBGrids, ExtCtrls;

7) type

8) TForm8 = class(TForm)

9 ) Panel1: TPanel;

10) Panel2: TPanel;

11) DBGrid1: TDBGrid;

12) BitBtn1: TBitBtn;

13) RvTableConnection1: TRvTableConnection;

14) RvProject1: TRvProject;

15) procedure BitBtn1Click(Sender: TObject);

16) private

{ Private declarations }

17) public

{ Public declarations }

18) end;

19) var

20) Form8: TForm8;

21) implementation

22) uses Unit1, Unit2;

{$R *.dfm}

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

24) begin

25) RvProject1.Execute;

26) end;

27) end.
9) Unit9
1) unit Unit9;

2) interface

3) uses

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

5) Dialogs, StdCtrls, Buttons;

6) type

7) TForm9 = class(TForm)

8) Label1: TLabel;

9) Label2: TLabel;

10) Label3: TLabel;

11) BitBtn1: TBitBtn;

12) Label4: TLabel;

13) Label5: TLabel;

14) Label6: TLabel;

15) procedure BitBtn1Click(Sender: TObject);

16) private

{ Private declarations }

17) public

{ Public declarations }

18) end;

19) var

20) Form9: TForm9;

21) implementation

22) uses Unit1, Unit2;

{$R *.dfm}

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

24) begin

25) form9.Close;

26) end;

27) end.

10) Unit10
1) unit Unit10;

2) interface

3) uses

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

5) Dialogs, StdCtrls, Buttons;

6) type

7) TForm10 = class(TForm)

8) Label1: TLabel;

9) Label2: TLabel;

10) BitBtn1: TBitBtn;

11) Label3: TLabel;

12) Label4: TLabel;

13) Label5: TLabel;

14) Label6: TLabel;

15 ) procedure BitBtn1Click(Sender: TObject);

16) private

{ Private declarations }

17) public

{ Public declarations }

18) end;

19) var

20) Form10: TForm10;

21) implementation

22) uses Unit1, Unit2;

{$R *.dfm}

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

24) begin

25) form10.Close;

26) end;

27) end.
11) Unit11
1) unit Unit11;

2) interface

3) uses

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

5) Dialogs, StdCtrls, Buttons;

6) type

7) TForm11 = class(TForm)

8) Label1: TLabel;

9) BitBtn1: TBitBtn;

10) BitBtn2: TBitBtn;

11) procedure BitBtn2Click(Sender: TObject);

12) procedure BitBtn1Click(Sender: TObject);

13) private

{ Private declarations }

14) public

{ Public declarations }

15) end;

16) var

17) Form11: TForm11;

18) implementation

19) uses Unit3, Unit1, Unit10, Unit2;

{$R *.dfm}

20) procedure TForm11.BitBtn2Click(Sender: TObject);

21) begin

22) form11.Close;

23) end;

24) procedure TForm11.BitBtn1Click(Sender: TObject);

25) begin

26) form1.close;

27) end;

28) end.
12) Unit12
1) unit Unit12;

2) interface

3) uses

4) SysUtils, Classes, DB, DBTables;

5) type

6) TDataModule12 = class(TDataModule)

7) Query1: TQuery;

8) DataSource1: TDataSource;

9) private

{ Private declarations }

10) public

{ Public declarations }

11) end;
13) Unit13
1) procedure TForm13.BitBtn1Click(Sender: TObject);

2) begin

3) RvProject2.execute;

4) end;

5) end.