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

Проектування АІС для обслуговування та ремонту автомобілів

Курсовой проект - Компьютеры, программирование

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

TObject);

procedure N20Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N23Click (Sender: TObject);

procedure N6Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

tfl: TextFile;

str1, str2, str3: String;

password: string;

implementation

uses UPoslygu, Unit1, UZapchastunu, UClientu, UZakaz, UShow, UZaputPoslyg,

UZaputZapchastun, UZvit1, UZvit2, UConnect, UPassword2, UZminaPassword;

{$R *. dfm}

procedure TForm1. N9Click (Sender: TObject);

begin

Form2. ShowModal;

end;

procedure TForm1. N2Click (Sender: TObject);

begin

fmConnect. ShowModal;

end;

procedure TForm1. FormShow (Sender: TObject);

begin

Form1. N3. Enabled: =false;

Form1. N4. Enabled: =false;

Form1. N7. Enabled: =false;

Form1. N8. Enabled: =false;

Form1. N13. Enabled: =false;

Form1. N15. Enabled: =false;

Form1. N23. Enabled: =false;

Form1. N6. Enabled: =false;

password: =1111;

Label2. Caption: =password;

end;

procedure TForm1. N7Click (Sender: TObject);

begin

Form1. N3. Enabled: =false;

Form1. N4. Enabled: =false;

Form1. N7. Enabled: =false;

Form1. N8. Enabled: =false;

Form1. N13. Enabled: =false;

Form1. N15. Enabled: =false;

Form1. N23. Enabled: =false;

Form1. N6. Enabled: =false;

Form1. N17. Enabled: =true;

Form1. N2. Enabled: =true;

DataModule1. IBTable1. Close;

DataModule1. IBTable2. Close;

DataModule1. IBTable3. Close;

DataModule1. IBTable4. Close;

DataModule1. IBTable5. Close;

DataModule1. Avto. Close;

DataModule1. Poslygu. Close;

DataModule1. Zapchastunu. Close;

DataModule1. IBDatabase1. Connected: =false;

Form1. GroupBox1. Visible: =false;

end;

procedure TForm1. N17Click (Sender: TObject);

begin

Form1. Close;

end;

procedure TForm1. N10Click (Sender: TObject);

begin

Form3. ShowModal;

end;

procedure TForm1. N11Click (Sender: TObject);

begin

Form4. ShowModal;

end;

procedure TForm1. N12Click (Sender: TObject);

begin

Form5. ShowModal;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Form6. ShowModal;

end;

procedure TForm1. N18Click (Sender: TObject);

begin

Form7. ShowModal;

end;

procedure TForm1. N19Click (Sender: TObject);

begin

Form8. ShowModal;

end;

procedure TForm1. N20Click (Sender: TObject);

begin

Form9. ShowModal;

end;

procedure TForm1. N21Click (Sender: TObject);

begin

Form10. ShowModal;

end;

procedure TForm1. N23Click (Sender: TObject);

begin

Form12. ShowModal;

{if not pass then

begin

ShowMessage (Невipний паpоль! );

Exit;

end

else

begin

Form1. N3. Enabled: =true;

Form1. N8. Enabled: =true;

end; }

end;

procedure TForm1. N6Click (Sender: TObject);

begin

form13. showmodal;

end;

end.

unit UPoslygu;

interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask;

type

TForm2 = class (TForm)

GroupBox1: TGroupBox;

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBNavigator1: TDBNavigator;

Button1: TButton;

DBNavigator2: TDBNavigator;

Label4: TLabel;

procedure GiveIndex;

procedure Button1Click (Sender: TObject);

procedure DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

procedure DBNavigator2Click (Sender: TObject; Button: TNavigateBtn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

index,max: Integer;

implementation

uses UAvto, Unit1;

{$R *. dfm}

procedure TForm2. GiveIndex;

begin

if DataModule1. IBTable1. RecNo<>0 then

begin

DataModule1. IBTable1. First;

max: =DataModule1. IBTable1. FieldByName (id_poslygu). AsInteger;

while not DataModule1. IBTable1. Eof do begin

if max<DataModule1. IBTable1. fieldByName (id_poslygu). AsInteger then max: =DataModule1. IBTable1. fieldByName (id_poslygu). AsInteger;

DataModule1. IBTable1. Next;

end;

index: =max+1;

end else index: =1;

end;

procedure TForm2. Button1Click (Sender: TObject);

begin

GiveIndex;

DataModule1. IBTable1. Insert;

DBEdit1. Text: =IntToStr (index);

Button1. Enabled: =false;

end;

procedure TForm2. DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

begin

Button1. Enabled: =true;

end;

procedure TForm2. DBNavigator2Click (Sender: TObject; Button: TNavigateBtn);

begin

Button1. Enabled: =true;

end;

end.

unit Unit1;

interface

uses

SysUtils, Classes, DB, DBTables, IBDatabase, IBCustomDataSet, IBTable,

IBQuery;

type

TDataModule1 = class (TDataModule)

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

IBTable1: TIBTable;

IBTable2: TIBTable;

IBTable3: TIBTable;

IBTable4: TIBTable;

IBDatabase1: TIBDatabase;

IBTransaction1: TIBTransaction;

IBTable5: TIBTable;

DataSource5: TDataSource;

avto: TIBTable;

IBTable5ID_ZAKAZY: TIntegerField;

IBTable5ID_AVTO: TIntegerField;

IBTable5ID_POSLYGU: TIntegerField;

IBTable5ID_ZAPCHASTUN: TIntegerField;

IBTable5COUNT_ZAPCHASTUN: TIntegerField;

IBTable5DATA_POSLYGU: TDateTimeField;

IBTable5DATA_OPLATU: TDateTimeField;

IBTable5avto: TStringField;

Poslygu: TIBTable;

IBTable5poslygu: TStringField;

Zapchastunu: TIBTable;

IBTable5zapchastunu: TStringField;

IBQuery1: TIBQuery;

DataSource6: TDataSource;

IBTable1ID_POSLYGU: TIntegerField;

IBTable1POSLYGA: TIBStringField;

IBTable1PRICE_POSLYGU: TIBBCDField;

IBQuery2: TIBQuery;

DataSource7: TDataSource;

IBQuery3: TIBQuery;

DataSource8: TDataSource;

IBQuery2ID_ZAKAZY: TIntegerField;

IBQuery2POSLYGA: TIBStringField;

IBQuery2PRICE: TIBBCDField;

IBQuery2ZAPCHASTUNU: TIBStringField;

IBQuery2PRICE1: TIBBCDField;

IBQuery2KOUNT: TIntegerField;

IBQuery2SYMA: TIBBCDField;

IBQuery3ID_ZAKAZY: TIntegerField;

IBQuery3POSLYGA: TIBStringField;

IBQuery3PRICE: TIBBCDField;

IBQuery3ZAPCHASTUNU: TIBStringField;

IBQuery3PRICE1: TIBBCDField;

IBQuery3KOUNT: TIntegerField;

IBQuery3SYMA: TIBBCDField;

IBQuery1NAME: TIBStringField;

IBQuery1PRICE: TIBBCDField;

IBQuery1KOUNT: TIntegerField;

IBQuery1F_1: TIBBCDField;

IBQuery3SYMA1: TIBBCDField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule1: TDataModule1;

implementation

uses UPrint;

{$R *. dfm}

end.

unit UZapchastunu;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;

type

TForm3 = class (TForm)

GroupBox1: TGroupBox;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBGrid1: TDBGrid;

Button1: TButton;

DBNavigator2: TDBNavigator;

DBNavigator1: TDBNavigator;

Label4: TLabel;

procedure GiveIndex;

procedure Button1Click (Sender: TObject);

procedure DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

procedure DBNavigator2Click (Sender: TObject; Button: TNavigateBtn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

index,max: Integer;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm3. GiveIndex;

begin

if DataModule1. IBTable2. RecNo<>0 then

begin

DataModule1. IBTable2. First;

max: =DataModule1. IBTable2. FieldByName (id_zapchastun). AsInteger;

while not DataModule1. IBTable2. Eof do begin

if max<DataModule1. IBTable2. fieldByName (id_zapchastun). AsInteger then max: =DataModule1. IBTable2. fieldByName (id_zapchastun). AsInteger;

DataModule1. IBTable2. Next;

end;

index: =max+1;

end else index: =1;

end;

procedure TForm3. Button1Click (Sender: TObject);

begin

GiveIndex;

DataModule1. IBTable2. Insert;

DBEdit1. Text: =IntToStr (index);

Button1. Enabled: =false;

end;

procedure TForm3. DBNavigator1Click (Sender: TObject; Button

• Назад
• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• Далее