• Дисциплины
• Виды работ

База данных "Автосервис" в среде Borland Delphi 6.0.

Контрольная работа - Компьютеры, программирование

Другие контрольные работы по предмету Компьютеры, программирование

Просмотр и печать прайс-листа Услуги автосервиса. Функция необходима как для владельцев автосервиса, так и для его клиентов. Прайс-лист приведен в приложении к данному отчету.

Аналогично прайс-листу Услуги автосервиса, но по новым автозапчастям.

Занесение информации о новом владельце, ранее не пользовавшимся услугами автосервиса.

 

Регистрация нового автомобиля, до сей поры не замеченного в автосервисе.

Оформление нового заказа с занесением всей необходимой информации.

 

Здесь же есть возможность зарегистрировать новый автомобиль, нового владельца, напечатать отчет по данному заказу (чек), выполнить поиск заказов за определенный интервал времени и т.п.

Просмотр, редактирование и внесение новых компонентов в список услуг, которые предоставляет автосервис.

Аналогично услугам, но по новым автозапчастям.

 

 

5. Исходные тексты

 

unit Unit2;

 

interface

 

uses

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

Dialogs, StdCtrls, Menus, jpeg, ExtCtrls;

 

type

TForm2 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Image1: TImage;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form2: TForm2;

 

implementation

uses Unit1, Unit4, Unit5, Unit3, Unit6, Unit7, Unit8;

 

{$R *.dfm}

 

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.Show;

end;

 

procedure TForm2.Button2Click(Sender: TObject);

begin

Form4.Show;

Form4.Table1.Insert;

end;

 

procedure TForm2.Button3Click(Sender: TObject);

begin

Form5.Show;

end;

 

procedure TForm2.Button4Click(Sender: TObject);

begin

Form3.Show;

end;

 

procedure TForm2.Button5Click(Sender: TObject);

begin

Form2.Close;

end;

 

procedure TForm2.Button6Click(Sender: TObject);

begin

Form6.Show;

end;

 

procedure TForm2.Button7Click(Sender: TObject);

begin

Form7.Show;

end;

 

procedure TForm2.Button8Click(Sender: TObject);

begin

Form8.QuickRep3.Preview;

end;

 

end.

 

unit Unit4;

 

interface

 

uses

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

Dialogs, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls, Mask, Buttons;

 

type

TForm4 = class(TForm)

Table2OrderNum: TIntegerField;

Table2CodeWork: TIntegerField;

Table1OrderNum: TAutoIncField;

Table1CodeAuto: TIntegerField;

Table1CodeOwner: TIntegerField;

Table1ActDate: TDateField;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Panel1: TPanel;

DataSource1: TDataSource;

Panel2: TPanel;

Panel3: TPanel;

Splitter1: TSplitter;

Table1: TTable;

Table2: TTable;

DataSource2: TDataSource;

Table3: TTable;

DataSource3: TDataSource;

Table1Marca: TStringField;

Table1Reg: TStringField;

DBGrid3: TDBGrid;

Table4: TTable;

DataSource4: TDataSource;

Table4OrderNum: TIntegerField;

Table4CodePart: TIntegerField;

DataSource5: TDataSource;

Table5: TTable;

Table6: TTable;

DataSource6: TDataSource;

Table2KindWork: TStringField;

Table4PartName: TStringField;

DataSource7: TDataSource;

Table7: TTable;

Table1Name: TStringField;

Table1LasteName: TStringField;

Table1SecondName: TStringField;

Table6CodePart: TAutoIncField;

Table6PartName: TStringField;

Table6CostPart: TCurrencyField;

Table6Guarantee: TIntegerField;

Table5CodeWork: TAutoIncField;

Table5KindWork: TStringField;

Table5CostWork: TCurrencyField;

Table5PeriodExecution: TIntegerField;

Table5Guarantee: TIntegerField;

Table2CostWork: TCurrencyField;

Table1CostSum: TCurrencyField;

Table4CostPart: TCurrencyField;

Button1: TButton;

Button2: TButton;

Query1: TQuery;

Query1SUMOFCostWork: TCurrencyField;

Query1OrderNum: TIntegerField;

DataSource8: TDataSource;

Table3CodeAuto: TAutoIncField;

Table3Info: TMemoField;

Table3TradeMarkAuto: TStringField;

Table3StateSign: TStringField;

Table3TPassport: TStringField;

Table3ColourAuto: TStringField;

Table3OutputYear: TSmallintField;

Table3MotorNum: TStringField;

Table3BodyNum: TStringField;

Table3UnderCgeNum: TStringField;

Table7CodeOwner: TAutoIncField;

Table7OLastName: TStringField;

Table7OFirstName: TStringField;

Table7OSecondName: TStringField;

Table7OPassportNum: TStringField;

Table7ODrivingLicence: TStringField;

Table7OContactPhone: TStringField;

Table7Info: TMemoField;

Table7Photo: TBlobField;

DBEdit1: TDBEdit;

Button3: TButton;

Label2: TLabel;

Label1: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure Table1CalcFields(DataSet: TDataSet);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Query1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

procedure Table1AfterInsert(DataSet: TDataSet);

procedure Button3Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

 

var

Form4: TForm4;

 

implementation

 

uses Unit5, Unit6, Unit9;

 

{$R *.DFM}

 

procedure TForm4.FormCreate(Sender: TObject);

begin

Table1.Open;

Table2.Open;

//Edit1.Text:=DateToStr(Date);

Label2.Caption:=DateToStr(Date);

end;

 

procedure TForm4.Table1CalcFields(DataSet: TDataSet);

begin

//Table1CostSum.Value:=Summ(Table2CostWork.Value);

end;

 

procedure TForm4.Button1Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form6.Show;

end;

 

procedure TForm4.Query1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

//Query1.Filter:=OrderNum=+ Form4.Table1OrderNum.AsString;

end;

 

procedure TForm4.Table1AfterInsert(DataSet: TDataSet);

begin

Form4.Table1ActDate.Value:=Date;

end;

 

procedure TForm4.Button3Click(Sender: TObject);

begin

Form9.Show;

end;

 

end.

 

unit Unit8;

 

interface

 

uses

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

Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;

 

type

TForm8 = class(TForm)

QuickRep1: TQuickRep;

QuickRep2: TQuickRep;

QuickRep3: TQuickRep;

TitleBand1: TQRBand;

ColumnHeaderBand1: TQRBand;

DetailBand1: TQRBand;

SummaryBand1: TQRBand;

QRLabel1: TQRLabel;

Table1: TTable;

PageFooterBand1: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRSysData1: TQRSysData;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

Q

• Назад
• 1
• 2
• 3
• Далее