Бақылау мысалдарын баяндау
Курсовая работа, 22 Ноября 2012, автор: пользователь скрыл имя
Описание работы
Әртүрлі ұйымдардың табысты жұмыс жасауы үшін ақпаратты жүйенің дамығанын талап етеді. Сонда сол деректермен автоматтандырылған жинауды, өңдеуді және монипуляциялауды іске асырады.
Мәліметтер базасы деп, деректердің электрондық сақтаушысын айтады. Оларға қатынас, бір немесе бірнеше компьютерлер көмегімен іске асады. Әдетте деректер базасы деректерді сақтау үшін жасалады.
Содержание
КІРІСПЕ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ....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
Қорытынды . . . . . . . . . . . . . . . . . . . . . . .. . . . . . . . . . . . . . . . . . . . . . . 20 Қолданылған әдебиеттер . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 21
Қосымша А . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. . . . . . . . .22
Қосымша Б . . . . . . . . . . . . . . . . . . . .. . . . . . . . . . . . . . . . . . . . . . . . . . .29
Работа содержит 1 файл
Автосалон.doc
— 562.50 Кб (Скачать)
2)unit Unit3;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, Grids, DBGrids, StdCtrls;
- type
- TForm3 = class(TForm)
- DBGrid1: TDBGrid;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form3: TForm3;
- implementation
- uses Unit1, Unit2;
- {$R *.dfm}
- procedure TForm3.Button1Click(Sender: TObject);
- begin
- DataModule2.Table1.Insert;
- end;
- procedure TForm3.Button2Click(Sender: TObject);
- begin
- DataModule2.Table1.cancel;
- end;
- procedure TForm3.Button3Click(Sender: TObject);
- begin
- form3.Close;
- end;
- end.
3) unit Unit4;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, Grids, DBGrids, StdCtrls;
- type
- TForm4 = class(TForm)
- DBGrid1: TDBGrid;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form4: TForm4;
- implementation
- uses Unit1, Unit2;
- {$R *.dfm}
- procedure TForm4.Button1Click(Sender: TObject);
- begin
- DataModule2.Table2.Insert;
- end;
- procedure TForm4.Button2Click(Sender: TObject);
- begin
- DataModule2.Table2.cancel;
- end;
- procedure TForm4.Button3Click(Sender: TObject);
- begin
- form4.Close;
- end;
- end.
4) unit Unit5;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, Grids, DBGrids, StdCtrls;
- type
- TForm5 = class(TForm)
- DBGrid1: TDBGrid;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form5: TForm5;
- implementation
- uses Unit1, Unit2;
- {$R *.dfm}
- procedure TForm5.Button1Click(Sender: TObject);
- begin
- DataModule2.Table3.Insert;
- end;
- procedure TForm5.Button2Click(Sender: TObject);
- begin
- DataModule2.Table3.cancel;
- end;
- procedure TForm5.Button3Click(Sender: TObject);
- begin
- form5.Close;
- end;
- end.
5) unit Unit6;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
- type
- TForm6 = class(TForm)
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- Label4: TLabel;
- Label5: TLabel;
- Label6: TLabel;
- Button1: TButton;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form6: TForm6;
- implementation
- uses unit1;
- {$R *.dfm}
- procedure TForm6.Button1Click(Sender: TObject);
- begin
- form1.Show;
- form6.Close;
- end;
- end.
6) unit Unit7;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
- type
- TForm7 = class(TForm)
- Label2: TLabel;
- Label3: TLabel;
- Label4: TLabel;
- Label5: TLabel;
- Label6: TLabel;
- Label7: TLabel;
- Label8: TLabel;
- Label9: TLabel;
- Label10: TLabel;
- Button1: TButton;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Foкm7: TForm7;
- implementation
- uses Unit1;
- {$R *.dfm}
- procedure TForm7.Button1Click(Sender: TObject);
- begin
- form1.show;
- form7.Close;
- end;
- end.
7) unit Unit8;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, DB, QRCtrls, QuickRpt, DBTables, ExtCtrls;
- type
- TForm8 = class(TForm)
- QuickRep1: TQuickRep;
- QRBand1: TQRBand;
- QRBand3: TQRBand;
- QRBand4: TQRBand;
- Table1: TTable;
- QRLabel1: TQRLabel;
- QRDBText1: TQRDBText;
- QRDBText2: TQRDBText;
- QRDBText3: TQRDBText;
- QRDBText4: TQRDBText;
- QRDBText5: TQRDBText;
- DataSource1: TDataSource;
- QRLabel2: TQRLabel;
- QRLabel3: TQRLabel;
- QRLabel4: TQRLabel;
- QRLabel5: TQRLabel;
- QRLabel6: TQRLabel;
- QRSysData1: TQRSysData;
- QRSysData2: TQRSysData;
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form8: TForm8;
- implementation
- uses Unit1, Unit2;
- {$R *.dfm}
- end.
8) unit Unit9;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;
- type
- TForm9 = class(TForm)
- DBEdit1: TDBEdit;
- DBEdit2: TDBEdit;
- Table1: TTable;
- DataSource1: TDataSource;
- DBEdit3: TDBEdit;
- DBEdit4: TDBEdit;
- DBEdit5: TDBEdit;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- Label4: TLabel;
- Label5: TLabel;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form9: TForm9;
- implementation
- uses unit1,unit2;
- {$R *.dfm}
- procedure TForm9.Button1Click(Sender: TObject);
- begin
- table1.Next;
- end;
- procedure TForm9.Button2Click(Sender: TObject);
- begin
- table1.prior;
- end;
- procedure TForm9.Button3Click(Sender: TObject);
- begin
- form9.hide;
- end;
- end.
9) unit Unit10;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, QRCtrls, DB, QuickRpt, DBTables, ExtCtrls;
- type
- TForm10 = class(TForm)
- QuickRep1: TQuickRep;
- Table1: TTable;
- Table2: TTable;
- QRBand1: TQRBand;
- QRBand2: TQRBand;
- QRBand3: TQRBand;
- QRLabel1: TQRLabel;
- QRLabel2: TQRLabel;
- QRLabel3: TQRLabel;
- QRLabel4: TQRLabel;
- QRLabel5: TQRLabel;
- QRLabel6: TQRLabel;
- QRBand4: TQRBand;
- QRDBText1: TQRDBText;
- QRDBText2: TQRDBText;
- QRDBText3: TQRDBText;
- QRDBText4: TQRDBText;
- QRDBText5: TQRDBText;
- QRDBText6: TQRDBText;
- QRLabel7: TQRLabel;
- QRSysData1: TQRSysData;
- QRSysData2: TQRSysData;
- DataSource1: TDataSource;
- DataSource2: TDataSource;
- QRExpr1: TQRExpr;
- QRLabel8: TQRLabel;
- QRExpr2: TQRExpr;
- QRExpr3: TQRExpr;
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form10: TForm10;
- implementation
- uses unit1;
- {$R *.dfm}
- end.
11) unit Unit11;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;
- type
- TForm11 = class(TForm)
- DBEdit1: TDBEdit;
- DBEdit3: TDBEdit;
- DBEdit4: TDBEdit;
- DBEdit5: TDBEdit;
- Table2: TTable;
- DBEdit6: TDBEdit;
- Label1: TLabel;
- Label3: TLabel;
- Label4: TLabel;
- Label5: TLabel;
- Label6: TLabel;
- DBEdit7: TDBEdit;
- Label7: TLabel;
- Button1: TButton;
- Button3: TButton;
- DataSource1: TDataSource;
- Button2: TButton;
- procedure Button1Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form11: TForm11;
- implementation
- uses unit1;
- {$R *.dfm}
- procedure TForm11.Button1Click(Sender: TObject);
- begin
- table2.next;
- end;
- procedure TForm11.Button2Click(Sender: TObject);
- begin
- table2.Prior;
- end;
- procedure TForm11.Button3Click(Sender: TObject);
- begin
- form11.hide;
- end;
- end.