Автосалон
Автор работы: Пользователь скрыл имя, 15 Апреля 2014 в 22:16, курсовая работа
Краткое описание
Әртүрлі ұйымдардың табысты жұмыс жасауы үшін ақпаратты жүйенің дамығанын талап етеді. Сонда сол деректермен автоматтандырылған жинауды, өңдеуді және монипуляциялауды іске асырады. Мәліметтер базасы деп, деректердің электрондық сақтаушысын айтады. Оларға қатынас, бір немесе бірнеше компьютерлер көмегімен іске асады. Әдетте деректер базасы деректерді сақтау үшін жасалады. Мәліметтер базасы – ақпаратты сақтауды және де мәліметтерге ыңғайлы, тез кіруді қамтамасыз етеді.
Содержание
КІРІСПЕ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ....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 файл
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.
Информация о работе Автосалон