Автор работы: Пользователь скрыл имя, 12 Марта 2012 в 21:24, курсовая работа
Әртүрлі ұйымдардың табысты жұмыс жасауы үшін ақпаратты жүйенің дамығанын талап етеді. Сонда сол деректермен автоматтандырылған жинауды, өңдеуді және монипуляциялауды іске асырады.
Мәліметтер базасы деп, деректердің электрондық сақтаушысын айтады. Оларға қатынас, бір немесе бірнеше компьютерлер көмегімен іске асады. Әдетте деректер базасы деректерді сақтау үшін жасалады.
КІРІСПЕ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ....3
1 Есептің қойылымы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...4
2 Есептің алгоритмі . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...5
3 Теориялық бөлім . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .....6
3.1 Мәліметтер базасын ұйымдастыру . . . . . . . . . . . . . . . . . . . . .. ..6
3.2 BDE Administrator . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...6
3.3 Мәліметтер базасының кестесін құру . . . . . . . . . . . . . . . . . . . ...7
3.4 Кестенің қасиетін беру . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...9
3.5 Paradox форматының кестелері . . . . . ……………. . . . . . . . . ..11
3.6 Компоненттер парағы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ....13
4 Программаның баяндалуы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..15
4.1 Жалпы мағлұматтар . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...15
4.2 Функционалдық тағайындалуы . . . . . . . . . . . . . . . . . . . . . . . . ..15
4.3 Логикалық құрылымның баяндалуы . . . . . . . . . . . . . . . . . . . . .15
4.4 Шақыру және жүктеу . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..18
4.5 Қажетті техникалық жабдықтар . . . . . . . . . . . . . . . . . . . . . . .. ..18
4.6 Кіріс мәліметтер. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...18
4.7 Шығыс мәліметтер . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...19
5 Бақылау мысалдарын баяндау . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 19
Қорытынды . . . . . . . . . . . . . . . . . . . . . . .. . . . . . . . . . . . . .
Statistica менюіне отчеттарды жасадым. Отчеттарды жасау барысында отчет жасау генераторы Rave- ті қолдандым. Бірінші жағдайда билеттердің орта бағасы туралы отчет жасасам Form8 (Сурет14), ал екінші жағдайда жаңа DataModule қолданып, query көмегімен ең максималды билет бағасын таптым Form13 (Сурет 15).
O Programme менюына инструкция Form9 (Сурет 16) және об авторе туралы Form10 (Сурет 17) жаздым.
Vyhod менюына Delphi –дан шығу терезесін құрдым Form11 (Сурет18).
ҚОРЫТЫНДЫ
Қорыта келгенде, осы курстық жұмысты жаза отырып мен 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
ҚОСЫМША Б
1) 1)unit Unit1;
2) interface
3) uses
4) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5) Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, Menus;
6) type
7) TForm1 = class(TForm)
8) Panel1: TPanel;
9) Panel3: TPanel;
10) Panel4: TPanel;
11) Panel2: TPanel;
12) DBGrid1: TDBGrid;
13) DBGrid2: TDBGrid;
14) DBGrid3: TDBGrid;
15) DBNavigator1: TDBNavigator;
16) MainMenu1: TMainMenu;
17) N1: TMenuItem;
18) N2: TMenuItem;
19) N3: TMenuItem;
20) N4: TMenuItem;
21) N5: TMenuItem;
22) N6: TMenuItem;
23) N7: TMenuItem;
24) N8: TMenuItem;
25) N11: TMenuItem;
26) N12: TMenuItem;
27) N9: TMenuItem;
28) N10: TMenuItem;
29) N13: TMenuItem;
30) N14: TMenuItem;
31) procedure N5Click(Sender: TObject);
32) procedure N8Click(Sender: TObject);
33) procedure N7Click(Sender: TObject);
34) procedure N6Click(Sender: TObject);
35) procedure N9Click(Sender: TObject);
36) procedure N10Click(Sender: TObject);
37) procedure N11Click(Sender: TObject);
38) procedure N13Click(Sender: TObject);
39) procedure N12Click(Sender: TObject);
40) procedure N14Click(Sender: TObject);
41) private
42) { Private declarations }
43) public
44) { Public declarations }
45) end;
46) var
47) Form1: TForm1;
48) implementation
49) uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,unit8,
50) unit9,unit10,unit11;
51) {$R *.dfm}
52) procedure TForm1.N5Click(Sender: TObject);
53) begin
54) form1.Close;
55) end;
56) procedure TForm1.N8Click(Sender: TObject);
57) begin
58) form3.show;
59) end;
60) procedure TForm1.N7Click(Sender: TObject);
61) begin
62) form4.Show;
63) end;
64) procedure TForm1.N6Click(Sender: TObject);
65) begin
66) form5.Show;
67) end;
68) procedure TForm1.N9Click(Sender: TObject);
69) begin
70) form6.Show;
71) end;
72) procedure TForm1.N10Click(Sender: TObject);
73) begin
74) form7.show;
75) end;
76) procedure TForm1.N11Click(Sender: TObject);
77) begin
78) Form8.QuickRep1.Preview;
79) end;
80) procedure TForm1.N13Click(Sender: TObject);
81) begin
82) form9.show;
83) end;
84) procedure TForm1.N12Click(Sender: TObject);
85) begin
86) Form10.QuickRep1.Preview;
87) end;
88) procedure TForm1.N14Click(Sender: TObject);
89) begin
90) Form11.show;
91) end;
92) end.
2)unit Unit3;
1) interface
2) uses
3) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4) Dialogs, Grids, DBGrids, StdCtrls;
5) type
6) TForm3 = class(TForm)
7) DBGrid1: TDBGrid;
8) Button1: TButton;
9) Button2: TButton;
10) Button3: TButton;
11) procedure Button1Click(Sender: TObject);
12) procedure Button2Click(Sender: TObject);
13) procedure Button3Click(Sender: TObject);
14) private
15) { Private declarations }
16) public
17) { Public declarations }
18) end;
19) var
20) Form3: TForm3;
21) implementation
22) uses Unit1, Unit2;
23) {$R *.dfm}
24) procedure TForm3.Button1Click(Sender: TObject);
25) begin
26) DataModule2.Table1.Insert;
27) end;
28) procedure TForm3.Button2Click(Sender: TObject);
29) begin
30) DataModule2.Table1.cancel;
31) end;
32) procedure TForm3.Button3Click(Sender: TObject);
33) begin
34) form3.Close;
35) end;
36) end.
3) unit Unit4;
1) interface
2) uses
3) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4) Dialogs, Grids, DBGrids, StdCtrls;
5) type
6) TForm4 = class(TForm)
7) DBGrid1: TDBGrid;
8) Button1: TButton;
9) Button2: TButton;
10) Button3: TButton;
11) procedure Button1Click(Sender: TObject);
12) procedure Button2Click(Sender: TObject);
13) procedure Button3Click(Sender: TObject);
14) private
15) { Private declarations }
16) public
17) { Public declarations }
18) end;
19) var
20) Form4: TForm4;
21) implementation
22) uses Unit1, Unit2;
23) {$R *.dfm}
24) procedure TForm4.Button1Click(Sender: TObject);
25) begin
26) DataModule2.Table2.Insert;
27) end;
28) procedure TForm4.Button2Click(Sender: TObject);
29) begin
30) DataModule2.Table2.cancel;
31) end;
32) procedure TForm4.Button3Click(Sender: TObject);
33) begin
34) form4.Close;
35) end;
36) end.
4) unit Unit5;
1) interface
2) uses
3) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4) Dialogs, Grids, DBGrids, StdCtrls;
5) type
6) TForm5 = class(TForm)
7) DBGrid1: TDBGrid;
8) Button1: TButton;
9) Button2: TButton;
10) Button3: TButton;
11) procedure Button1Click(Sender: TObject);
12) procedure Button2Click(Sender: TObject);
13) procedure Button3Click(Sender: TObject);
14) private
15) { Private declarations }
16) public
17) { Public declarations }
18) end;
19) var
20) Form5: TForm5;
21) implementation
22) uses Unit1, Unit2;
23) {$R *.dfm}
24) procedure TForm5.Button1Click(Sender: TObject);
25) begin
26) DataModule2.Table3.Insert;
27) end;
28) procedure TForm5.Button2Click(Sender: TObject);
29) begin
30) DataModule2.Table3.cancel;
31) end;
32) procedure TForm5.Button3Click(Sender: TObject);
33) begin
34) form5.Close;
35) end;
36) end.
5) unit Unit6;
1) interface
2) uses
3) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4) Dialogs, StdCtrls;
5) type
6) TForm6 = class(TForm)
7) Label1: TLabel;
8) Label2: TLabel;
9) Label3: TLabel;
10) Label4: TLabel;
11) Label5: TLabel;
12) Label6: TLabel;
13) Button1: TButton;
14) procedure Button1Click(Sender: TObject);
15) private
16) { Private declarations }
17) public
18) { Public declarations }
19) end;
20) var
21) Form6: TForm6;
22) implementation
23) uses unit1;
24) {$R *.dfm}
25) procedure TForm6.Button1Click(Sender: TObject);
26) begin
27) form1.Show;
28) form6.Close;
29) end;
30) end.
6) unit Unit7;
1) interface
2) uses
3) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4) Dialogs, StdCtrls;
5) type
6) TForm7 = class(TForm)
7) Label2: TLabel;
8) Label3: TLabel;
9) Label4: TLabel;
10) Label5: TLabel;
11) Label6: TLabel;
12) Label7: TLabel;
13) Label8: TLabel;
14) Label9: TLabel;
15) Label10: TLabel;
16) Button1: TButton;
17) procedure Button1Click(Sender: TObject);
18) private
19) { Private declarations }
20) public
21) { Public declarations }
22) end;
23) var
24) Foкm7: TForm7;
25) implementation
26) uses Unit1;
27) {$R *.dfm}
28) procedure TForm7.Button1Click(Sender: TObject);
29) begin
30) form1.show;
31) form7.Close;
32) end;
33) end.
7) unit Unit8;
1) interface
2) uses
3) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4) Dialogs, DB, QRCtrls, QuickRpt, DBTables, ExtCtrls;
5) type
6) TForm8 = class(TForm)
7) QuickRep1: TQuickRep;
8) QRBand1: TQRBand;
9) QRBand3: TQRBand;
10) QRBand4: TQRBand;
11) Table1: TTable;
12) QRLabel1: TQRLabel;
13) QRDBText1: TQRDBText;
14) QRDBText2: TQRDBText;
15) QRDBText3: TQRDBText;
16) QRDBText4: TQRDBText;
17) QRDBText5: TQRDBText;
18) DataSource1: TDataSource;
19) QRLabel2: TQRLabel;
20) QRLabel3: TQRLabel;
21) QRLabel4: TQRLabel;
22) QRLabel5: TQRLabel;
23) QRLabel6: TQRLabel;
24) QRSysData1: TQRSysData;
25) QRSysData2: TQRSysData;
26) private
27) { Private declarations }
28) public
29) { Public declarations }
30) end;
31) var
32) Form8: TForm8;
33) implementation
34) uses Unit1, Unit2;
35) {$R *.dfm}
36) end.
8) unit Unit9;
1) interface
2) uses
3) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4) Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;
5) type
6) TForm9 = class(TForm)
7) DBEdit1: TDBEdit;
8) DBEdit2: TDBEdit;
9) Table1: TTable;
10) DataSource1: TDataSource;
11) DBEdit3: TDBEdit;
12) DBEdit4: TDBEdit;
13) DBEdit5: TDBEdit;
14) Label1: TLabel;
15) Label2: TLabel;
16) Label3: TLabel;
17) Label4: TLabel;
18) Label5: TLabel;
19) Button1: TButton;
20) Button2: TButton;
21) Button3: TButton;
22) procedure Button1Click(Sender: TObject);
23) procedure Button2Click(Sender: TObject);
24) procedure Button3Click(Sender: TObject);
25) private
26) { Private declarations }
27) public
28) { Public declarations }
29) end;
30) var
31) Form9: TForm9;
32) implementation
33) uses unit1,unit2;
34) {$R *.dfm}
35) procedure TForm9.Button1Click(Sender: TObject);
36) begin
37) table1.Next;
38) end;
39) procedure TForm9.Button2Click(Sender: TObject);
40) begin
41) table1.prior;
42) end;
43) procedure TForm9.Button3Click(Sender: TObject);
44) begin
45) form9.hide;
46) end;
47) end.
9) unit Unit10;
1) interface
2) uses
3) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4) Dialogs, QRCtrls, DB, QuickRpt, DBTables, ExtCtrls;
5) type
6) TForm10 = class(TForm)
7) QuickRep1: TQuickRep;
8) Table1: TTable;
9) Table2: TTable;
10) QRBand1: TQRBand;
11) QRBand2: TQRBand;
12) QRBand3: TQRBand;
13) QRLabel1: TQRLabel;
14) QRLabel2: TQRLabel;
15) QRLabel3: TQRLabel;
16) QRLabel4: TQRLabel;
17) QRLabel5: TQRLabel;
18) QRLabel6: TQRLabel;
19) QRBand4: TQRBand;
20) QRDBText1: TQRDBText;
21) QRDBText2: TQRDBText;
22) QRDBText3: TQRDBText;
23) QRDBText4: TQRDBText;
24) QRDBText5: TQRDBText;
25) QRDBText6: TQRDBText;
26) QRLabel7: TQRLabel;
27) QRSysData1: TQRSysData;
28) QRSysData2: TQRSysData;
29) DataSource1: TDataSource;
30) DataSource2: TDataSource;
31) QRExpr1: TQRExpr;
32) QRLabel8: TQRLabel;
33) QRExpr2: TQRExpr;
34) QRExpr3: TQRExpr;
35) private
36) { Private declarations }
37) public
38) { Public declarations }
39) end;
40) var
41) Form10: TForm10;
42) implementation
43) uses unit1;
44) {$R *.dfm}
45) end.
11) unit Unit11;
1) interface
2) uses
3) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4) Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;
5) type
6) TForm11 = class(TForm)
7) DBEdit1: TDBEdit;
8) DBEdit3: TDBEdit;
9) DBEdit4: TDBEdit;
10) DBEdit5: TDBEdit;
11) Table2: TTable;
12) DBEdit6: TDBEdit;
13) Label1: TLabel;
14) Label3: TLabel;
15) Label4: TLabel;
16) Label5: TLabel;
17) Label6: TLabel;
18) DBEdit7: TDBEdit;
19) Label7: TLabel;
20) Button1: TButton;
21) Button3: TButton;
22) DataSource1: TDataSource;
23) Button2: TButton;
24) procedure Button1Click(Sender: TObject);
25) procedure Button3Click(Sender: TObject);
26) procedure Button2Click(Sender: TObject);
27) private
28) { Private declarations }
29) public
30) { Public declarations }
31) end;
32) var
33) Form11: TForm11;
34) implementation
35) uses unit1;
36) {$R *.dfm}
37) procedure TForm11.Button1Click(Sender: TObject);
38) begin
39) table2.next;
40) end;
41) procedure TForm11.Button2Click(Sender: TObject);
42) begin
43) table2.Prior;
44) end;
45) procedure TForm11.Button3Click(Sender: TObject);
46) begin
47) form11.hide;
48) end;
49) end.