48401 (Проектування АІС для обслуговування та ремонту автомобілів), страница 5

2016-07-30СтудИзба

Описание файла

Документ из архива "Проектування АІС для обслуговування та ремонту автомобілів", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "48401"

Текст 5 страницы из документа "48401"

program AvtoServis;

uses

Forms,

UAvto in 'UAvto. pas' {Form1},

UPoslygu in 'UPoslygu. pas' {Form2},

Unit1 in 'Unit1. pas' {DataModule1: TDataModule},

UZapchastunu in 'UZapchastunu. pas' {Form3},

UClientu in 'UClientu. pas' {Form4},

UZakaz in 'UZakaz. pas' {Form5},

UShow in 'UShow. pas' {Form6},

UZaputPoslyg in 'UZaputPoslyg. pas' {Form7},

UZaputZapchastun in 'UZaputZapchastun. pas' {Form8},

UPrint in 'UPrint. pas' {fmPrint},

UZvit1 in 'UZvit1. pas' {Form9},

UZvit2 in 'UZvit2. pas' {Form10},

UConnect in 'UConnect. pas' {fmConnect},

UPassword2 in 'UPassword2. pas' {Form12},

UZminaPassword in 'UZminaPassword. pas' {Form13};

{$R *. res}

begin

Application. Initialize;

Application. CreateForm (TForm1, Form1);

Application. CreateForm (TForm2, Form2);

Application. CreateForm (TDataModule1, DataModule1);

Application. CreateForm (TForm3, Form3);

Application. CreateForm (TForm4, Form4);

Application. CreateForm (TForm5, Form5);

Application. CreateForm (TForm6, Form6);

Application. CreateForm (TForm7, Form7);

Application. CreateForm (TForm8, Form8);

Application. CreateForm (TForm9, Form9);

Application. CreateForm (TForm10, Form10);

Application. CreateForm (TfmConnect, fmConnect);

Application. CreateForm (TForm12, Form12);

Application. CreateForm (TForm13, Form13);

Application.run;

end.

unit UAvto;

interface

uses

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

Dialogs, Menus, StdCtrls, ExtCtrls;

type

TForm1 = class (TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

Help1: TMenuItem;

N14: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N15: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N6: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

Label1: TLabel;

GroupBox1: TGroupBox;

Label2: TLabel;

procedure N9Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N17Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N18Click (Sender: TObject);

procedure N19Click (Sender: 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. 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. 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: TNavigateBtn);

begin

Button1. Enabled: =true;

end;

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

begin

Button1. Enabled: =true;

end;

end.

unit UClientu;

interface

uses

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

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

type

TForm4 = class (TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

GroupBox2: TGroupBox;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

DBEdit15: TDBEdit;

DBNavigator2: TDBNavigator;

Button1: TButton;

DBNavigator1: TDBNavigator;

DBNavigator3: TDBNavigator;

procedure GiveIndex;

procedure Button1Click (Sender: TObject);

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

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

index,max: Integer;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm4. GiveIndex;

begin

if DataModule1. IBTable3. RecNo<>0 then

begin

DataModule1. IBTable3. First;

max: =DataModule1. IBTable3. FieldByName ('id_clienta'). AsInteger;

while not DataModule1. IBTable3. Eof do begin

if max

DataModule1. IBTable3. Next;

end;

index: =max+1;

end else index: =1;

end;

procedure TForm4. Button1Click (Sender: TObject);

begin

GiveIndex;

DataModule1. IBTable3. Insert;

DBEdit1. Text: =IntToStr (index);

Button1. Enabled: =false;

end;

procedure TForm4. DBNavigator3Click (Sender: TObject; Button: TNavigateBtn);

begin

Button1. Enabled: =true;

end;

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

begin

Button1. Enabled: =true;

end;

end.

unit UZakaz;

interface

uses

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

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

type

TForm5 = class (TForm)

GroupBox1: TGroupBox;

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit2: TDBEdit;

Label8: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

Label9: TLabel;

Label10: TLabel;

DBGrid1: TDBGrid;

DBNavigator2: TDBNavigator;

Button1: TButton;

DBNavigator3: TDBNavigator;

Label11: TLabel;

procedure GiveIndex;

procedure Button1Click (Sender: TObject);

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

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

index,max: Integer;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm5. GiveIndex;

begin

if DataModule1. IBTable5. RecNo<>0 then

begin

DataModule1. IBTable5. First;

max: =DataModule1. IBTable5. FieldByName ('id_zakazy'). AsInteger;

while not DataModule1. IBTable5. Eof do begin

if max

DataModule1. IBTable5. Next;

end;

index: =max+1;

end else index: =1;

end;

procedure TForm5. Button1Click (Sender: TObject);

begin

GiveIndex;

DataModule1. IBTable5. Insert;

DBEdit1. Text: =IntToStr (index);

Button1. Enabled: =false;

end;

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

begin

Button1. Enabled: =true;

end;

procedure TForm5. DBNavigator3Click (Sender: TObject; Button: TNavigateBtn);

begin

Button1. Enabled: =true;

end;

end.

unit UShow;

interface

uses

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

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

type

TForm6 = class (TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1;

{$R *. dfm}

end.

unit UZaputPoslyg;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ComCtrls;

type

TForm7 = class (TForm)

DBGrid1: TDBGrid;

Button1: TButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Picker1: TDateTimePicker;

Picker2: TDateTimePicker;

GroupBox2: TGroupBox;

Edit1: TEdit;

Label5: TLabel;

procedure Button1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

sum: real;

i: integer;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm7. Button1Click (Sender: TObject);

var dat1,dat2: TDate;

begin

dat1: =Picker1. Date;

dat2: =Picker2. Date;

DataModule1. IBQuery1. Close;

DataModule1. IBQuery1. SQL. Clear;

DataModule1. IBQuery1. SQL. Add ('select poslyga, price_poslygu');

DataModule1. IBQuery1. SQL. Add ('from zakaz, poslygu');

DataModule1. IBQuery1. SQL. Add ('where poslygu. id_poslygu=zakaz. id_poslygu');

DataModule1. IBQuery1. SQL. Add ('and data_oplatu between'+Label1. Caption+DateToStr (dat1) +Label1. Caption+'and'+Label1. Caption+DateToStr (dat2) +Label1. Caption);

DataModule1. IBQuery1. Open;

sum: =0;

for i: =1 to DataModule1. IBQuery1. RecordCount do

begin

sum: =sum+DataModule1. IBQuery1. fieldbyname ('price_poslygu'). AsFloat;

DataModule1. IBQuery1. Next;

end;

Edit1. Text: =FloatToStr (sum);

end;

procedure TForm7. FormClose (Sender: TObject; var Action: TCloseAction);

begin

DataModule1. IBQuery1. Close;

end;

end.

unit UZaputZapchastun;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ComCtrls;

type

TForm8 = class (TForm)

GroupBox1: TGroupBox;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBGrid1: TDBGrid;

Button1: TButton;

Label1: TLabel;

Picker1: TDateTimePicker;

Picker2: TDateTimePicker;

GroupBox2: TGroupBox;

Edit1: TEdit;

Label5: TLabel;

procedure Button1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

sum: real;

i: integer;

implementation

uses Unit1, UPrint;

{$R *. dfm}

procedure TForm8. Button1Click (Sender: TObject);

var dat1,dat2: TDate;

begin

dat1: =Picker1. Date;

dat2: =Picker2. Date;

DataModule1. IBQuery1. Close;

DataModule1. IBQuery1. SQL. Clear; // поле F_1

DataModule1. IBQuery1. SQL. Add ('select name_zapchastun as name, price_zapchastun as price, count_zapchastun as kount, price_zapchastun*count_zapchastun');

DataModule1. IBQuery1. SQL. Add ('from zakaz, zapchastunu');

DataModule1. IBQuery1. SQL. Add ('where zapchastunu. id_zapchastun=zakaz. id_zapchastun');

DataModule1. IBQuery1. SQL. Add ('and data_oplatu between'+Label1. Caption+DateToStr (dat1) +Label1. Caption+'and'+Label1. Caption+DateToStr (dat2) +Label1. Caption);

DataModule1. IBQuery1. Open;

sum: =0;

for i: =1 to DataModule1. IBQuery1. RecordCount do

begin

sum: =sum+DataModule1. IBQuery1. fieldbyname ('F_1'). AsFloat;

DataModule1. IBQuery1. Next;

end;

Edit1. Text: =FloatToStr (sum);

end;

procedure TForm8. FormClose (Sender: TObject; var Action: TCloseAction);

begin

DataModule1. IBQuery1. Close;

end;

end.

unit UPrint;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

TfmPrint = class (TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRBand2: TQRBand;

QRSubDetail1: TQRSubDetail;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRLabel10: TQRLabel;

QRLabel11: TQRLabel;

QRLabel12: TQRLabel;

QRLabel13: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

QRBand3: TQRBand;

QRLabel14: TQRLabel;

QRSysData1: TQRSysData;

QRLabel15: TQRLabel;

QRLabel17: TQRLabel;

QRLabel16: TQRLabel;

QRLabel18: TQRLabel;

QRSysData2: TQRSysData;

QRLabel19: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmPrint: TfmPrint;

implementation

uses UZaputPoslyg, Unit1, UZvit1;

{$R *. dfm}

end.

unit UZvit1;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, ComCtrls;

type

TForm9 = class (TForm)

GroupBox1: TGroupBox;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Edit3: TEdit;

Label5: TLabel;

Label6: TLabel;

Edit4: TEdit;

Label7: TLabel;

Label8: TLabel;

Edit5: TEdit;

Label9: TLabel;

Panel1: TPanel;

Button3: TButton;

Picker1: TDateTimePicker;

Picker2: TDateTimePicker;

procedure Button1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

i: integer;

sum: real;

dat1,dat2: TDate;

implementation

uses Unit1, UPrint, DB;

{$R *. dfm}

procedure TForm9. Button1Click (Sender: TObject);

begin

dat1: =Picker1. Date;

dat2: =Picker2. Date;

DataModule1. IBQuery2. Close;

DataModule1. IBQuery2. SQL. Clear;

DataModule1. IBQuery2. SQL. Add ('select id_zakazy, poslyga as poslyga, price_poslygu as price, name_zapchastun as zapchastunu, price_zapchastun as price, count_zapchastun as kount, (price_poslygu+price_zapchastun*count_zapchastun) as syma');

DataModule1. IBQuery2. SQL. Add ('from zakaz, poslygu, zapchastunu');

DataModule1. IBQuery2. SQL. Add ('where zapchastunu. id_zapchastun=zakaz. id_zapchastun and poslygu. id_poslygu=zakaz. id_poslygu');

DataModule1. IBQuery2. SQL. Add ('and data_oplatu between'+Label1. Caption+DateToStr (dat1) +Label1. Caption+'and'+Label1. Caption+DateToStr (dat2) +Label1. Caption);

DataModule1. IBQuery2. Open;

sum: =0;

for i: =1 to DataModule1. IBQuery2. RecordCount do

begin

sum: =sum+DataModule1. IBQuery2. fieldbyname ('syma'). AsFloat;

DataModule1. IBQuery2. Next;

end;

Edit3. Text: =FloatToStr (sum);

end;

procedure TForm9. FormClose (Sender: TObject; var Action: TCloseAction);

begin

DataModule1. IBQuery2. Close;

Edit3. Text: ='';

Edit5. Text: ='';

end;

procedure TForm9. Button2Click (Sender: TObject);

begin

if DataModule1. IBQuery2. Active=false

then MessageDlg ('Виконайте запит', mtWarning, mbOKCancel, 0)

else begin

fmPrint: =TfmPrint. Create (Self);

fmPrint. QRLabel4. Caption: =DateToStr (Picker1. Date);

fmPrint. QRLabel6. Caption: =DateToStr (Picker2. Date);

fmPrint. QRLabel17. Caption: =Form9. Edit3. Text+' гpн. ';

fmPrint. QRLabel18. Caption: =Form9. Edit5. Text+' гpн. ';

fmPrint. QuickRep1. Preview;

fmPrint. Free;

end;

end;

procedure TForm9. Button3Click (Sender: TObject);

begin

if DataModule1. IBQuery2. Active=false

then MessageDlg ('Виконайте запит', mtWarning, mbOKCancel, 0)

else begin

Edit5. Text: =FloatToStr (StrToFloat (Edit3. Text) *StrToFloat ('0,'+Edit4. Text));

end;

end;

end.

unit UZvit2;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, ComObj;

type

TForm10 = class (TForm)

GroupBox1: TGroupBox;

Label2: TLabel;

Label4: TLabel;

DBGrid1: TDBGrid;

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Button2: TButton;

Label1: TLabel;

Label3: TLabel;

Edit3: TEdit;

Panel1: TPanel;

Label5: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Label6: TLabel;

Edit6: TEdit;

Label7: TLabel;

procedure Button1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

sum,sum1,sum2: real;

i: integer;

implementation

uses Unit1, UPrint1;

{$R *. dfm}

procedure TForm10. Button1Click (Sender: TObject);

begin

if (Edit1. Text='') or (Edit2. Text='') or (Edit3. Text='') then MessageDlg ('Введiть значення в поля', mtWarning, [mbOk], 0) else

begin

DataModule1. IBQuery3. Close;

DataModule1. IBQuery3. SQL. Clear;

DataModule1. IBQuery3. SQL. Add ('select id_zakazy, poslyga as poslyga, price_poslygu as price, name_zapchastun as zapchastunu, price_zapchastun as price, count_zapchastun as kount, (price_zapchastun*count_zapchastun) as syma1, (price_poslygu+price_zapchastun*count_zapchastun) as syma');

DataModule1. IBQuery3. SQL. Add ('from zakaz, poslygu, zapchastunu, avto, clientu');

DataModule1. IBQuery3. SQL. Add ('where zapchastunu. id_zapchastun=zakaz. id_zapchastun and poslygu. id_poslygu=zakaz. id_poslygu');

DataModule1. IBQuery3. SQL. Add ('and avto. nomer_reestracii=zakaz. id_avto and clientu. id_clienta=avto. id_clienta');

DataModule1. IBQuery3. SQL. Add ('and first_name='+Label1. Caption+Edit1. Text+Label1. Caption+'and nomer_reestracii='+Label1. Caption+Edit2. Text+Label1. Caption+'and marka='+Label1. Caption+Edit3. Text+Label1. Caption);

DataModule1. IBQuery3. Open;

sum: =0;

sum1: =0;

sum2: =0;

for i: =1 to DataModule1. IBQuery3. RecordCount do

begin

sum: =sum+DataModule1. IBQuery3. fieldbyname ('syma'). AsFloat;

sum1: =sum1+DataModule1. IBQuery3. fieldbyname ('price'). AsFloat;

sum2: =sum2+DataModule1. IBQuery3. fieldbyname ('syma1'). AsFloat;

DataModule1. IBQuery3. Next;

end;

Edit4. Text: =FloatToStr (sum);

Edit5. Text: =FloatToStr (sum1);

Edit6. Text: =FloatToStr (sum2);

end;

end;

procedure TForm10. FormClose (Sender: TObject; var Action: TCloseAction);

begin

DataModule1. IBQuery3. Close;

end;

procedure TForm10. Button2Click (Sender: TObject);

var

Exc,Colum: OleVariant;

i,jj,j: byte;

begin

if DataModule1. IBQuery3. Active=false

then MessageDlg ('Виконайте запит', mtWarning, mbOKCancel, 0)

else begin

Exc: =CreateOleObject ('Excel. Application');

// Exc. WorkBooks. Open ('D: \Документи\ХПК\мої куpcаки\куpcак - ПАIC\InterBase-паpктика\пpоект\akt. xls');

Exc. Visible: =true;

Exc. Workbooks. Add (-4167);

Exc. Workbooks [1]. WorkSheets [1]. Name: ='Отчёт';

Colum: =Exc. Workbooks [1]. WorkSheets ['Отчёт']. Columns;

Colum. Columns [1]. ColumnWidth: =7;

Colum. Columns [2]. ColumnWidth: =25;

Colum. Columns [3]. ColumnWidth: =10;

Colum. Columns [4]. ColumnWidth: =25;

Colum. Columns [5]. ColumnWidth: =10;

Colum. Columns [6]. ColumnWidth: =7;

Colum. Columns [7]. ColumnWidth: =10;

j: =1;

for i: =0 to DBGrid1. Columns. Count-1 do

begin

Exc. Cells [1,j]: =DBGrid1. Columns [i]. Title. Caption;

Exc. Cells [1,j]. Font. Bold: = True;

Exc. Cells [1,j]. Font. Size: =12;

j: =j+1;

end;

j: =0;

DataModule1. IBQuery3. First;

for i: =1 to DataModule1. IBQuery3. RecordCount do

begin

jj: =1;

begin

for j: =0 to DBGrid1. Columns. Count-1 do

begin

Exc. Cells [i+1,jj]: =DBGrid1. Columns [j]. Field. AsString;

jj: =jj+1;

end;

end;

DataModule1. IBQuery3. Next;

end;

end;

end;

end.

unit UConnect;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TfmConnect = class (TForm)

GroupBox1: TGroupBox;

RadioGroup1: TRadioGroup;

Button2: TButton;

Button3: TButton;

OpenDialog1: TOpenDialog;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

procedure Button3Click (Sender: TObject);

procedure RadioGroup1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmConnect: TfmConnect;

tfl: TextFile;

implementation

uses Unit1, UAvto;

{$R *. dfm}

procedure TfmConnect. Button3Click (Sender: TObject);

begin

if (Edit2. Text='') then MessageDlg ('Вкажiть шлях! ', mtWarning, [mbOk], 0) else

begin

if RadioGroup1. ItemIndex=0 then

begin

DataModule1. IBDatabase1. DatabaseName: =Edit2. Text;

end

else

begin

DataModule1. IBDatabase1. DatabaseName: =Edit1. Text+': '+Edit2. Text;

end;

DataModule1. IBDatabase1. Connected: =true;

DataModule1. IBTable1. Open;

DataModule1. IBTable2. Open;

DataModule1. IBTable3. Open;

DataModule1. IBTable4. Open;

DataModule1. IBTable5. Open;

DataModule1. Avto. Open;

DataModule1. Poslygu. Open;

DataModule1. Zapchastunu. Open;

Form1. N4. Enabled: =true;

Form1. N7. Enabled: =true;

Form1. N13. Enabled: =true;

Form1. N15. Enabled: =true;

Form1. N23. Enabled: =true;

Form1. N6. Enabled: =true;

Form1. N2. Enabled: =false;

Form1. N17. Enabled: =false;

AssignFile (tfl,ExtractFileDir (Application. ExeName) +'/connect. db');

Rewrite (tfl);

writeln (tfl,Edit1. Text);

writeln (tfl,Edit2. Text);

if RadioGroup1. ItemIndex=0 then writeln (tfl,'0') else writeln (tfl,'1');

CloseFile (tfl);

Form1. GroupBox1. Visible: =true;

fmConnect. Close;

end;

end;

procedure TfmConnect. RadioGroup1Click (Sender: TObject);

begin

if RadioGroup1. ItemIndex=0 then

begin

Label1. Enabled: =false;

Edit1. Enabled: =FALSE;

end

else

begin

Label1. Enabled: =true;

Edit1. Enabled: =true;

end;

end;

procedure TfmConnect. Button2Click (Sender: TObject);

begin

OpenDialog1. Execute;

Edit2. Text: =OpenDialog1. FileName;

end;

procedure TfmConnect. FormShow (Sender: TObject);

begin

AssignFile (tfl,ExtractFileDir (Application. ExeName) +'/connect. db');

Reset (tfl);

readln (tfl,str1);

readln (tfl,str2);

readln (tfl,str3);

if str3='0' then RadioGroup1. ItemIndex: =0 else RadioGroup1. ItemIndex: =1;

Edit1. Text: =str1;

Edit2. Text: =str2;

CloseFile (tfl);

end;

end.

unit UPassword2;

interface

uses

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

Dialogs, StdCtrls, Mask;

type

TForm12 = class (TForm)

MaskEdit1: TMaskEdit;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

PWchar=record

C: string [1];

end;

var

Form12: TForm12;

pass: boolean;

password: string;

PSWDChar: array [1. .36] of PWchar;

f2: file of PWchar;

implementation

uses UAvto, UZminaPassword;

{$R *. dfm}

procedure TForm12. Button1Click (Sender: TObject);

begin

if MaskEdit1. Text=Form1. Label2. Caption then

begin

Form1. N3. Enabled: =true;

Form1. N8. Enabled: =true;

Close;

end

else

ShowMessage ('Невipно введено паpоль. ');

end;

procedure TForm12. Button2Click (Sender: TObject);

begin

Close;

end;

procedure TForm12. FormShow (Sender: TObject);

var i: byte;

chk: byte;

begin

password: ='';

MaskEdit1. Text: ='';

chk: =2;

AssignFile (f2,ExtractFileDir (Application. ExeName) +'/info. ini');

Reset (f2);

for i: =1 to 36 do begin

Read (f2,PSWDChar [i]);

if (chk=i) {and (PSWDChar [i]. C<>'') } then begin

password: =password+PSWDChar [i]. C;

chk: =chk+3;

end;

end;

CloseFile (f2);

Form1. Label2. Caption: =password;

end;

end.

unit UZminaPassword;

interface

uses

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

Dialogs, StdCtrls, Mask;

const

Chars='~ЙЦУКЕНГШЩЗХЪФЫВАПPОЛДЖЭЯЧCМИТЬБЮЁ,. ! йцукенгшщзхъфывапpолджэячcмитьбюёqwertyuiop [] \; lkjhgfdsazxcvbnm,. /1234567890-=`~! @#$%^&* () _+<>?: |}{MNBVCXZLKJHGFDSAPOIUYTREWQ';

type

TForm13 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

MaskEdit1: TMaskEdit;

MaskEdit2: TMaskEdit;

MaskEdit3: TMaskEdit;

Button1: TButton;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

PWchar=record

C: string [1];

end;

var

Form13: TForm13;

password: string;

PSWDChar: array [1. .36] of PWchar;

f2: file of PWchar;

implementation

uses UAvto, UPassword2;

{$R *. dfm}

procedure TForm13. Button1Click (Sender: TObject);

var l,r, i: byte;

begin

r: =0;

i: =0;

if MaskEdit1. Text=password then

begin

if MaskEdit2. Text=MaskEdit3. Text then

begin

password: =MaskEdit2. Text;

Form1. Label2. Caption: =password;

l: =length (password);

while i<=33 do begin

inc (r);

inc (i);

PSWDChar [i]. C: =copy (Chars,random (162),1);

inc (i);

if i

else PSWDChar [i]. C: ='';

inc (i);

PSWDChar [i]. C: =copy (Chars,random (162),1);

end;

assignfile (f2,ExtractFileDir (Application. ExeName) +'/info. ini');

rewrite (f2);

for i: =1 to 36 do begin

Write (f2,PSWDChar [i]);

end;

CloseFile (f2);

Form1. Label2. Caption: =password;

Close;

end

else ShowMessage ('Паpолi не cпiвпадають. ');

end

else ShowMessage ('Невipно введено паpоль. ');

end;

procedure TForm13. Button2Click (Sender: TObject);

begin

Close;

end;

procedure TForm13. FormShow (Sender: TObject);

var i: byte;

chk: byte;

begin

MaskEdit1. Text: ='';

MaskEdit2. Text: ='';

MaskEdit3. Text: ='';

password: ='';

chk: =2;

AssignFile (f2,ExtractFileDir (Application. ExeName) +'/info. ini');

Reset (f2);

for i: =1 to 36 do begin

Read (f2,PSWDChar [i]);

if (chk=i) and (PSWDChar [i]. C<>'') then begin

password: =password+PSWDChar [i]. C;

chk: =chk+3;

end;

end;

CloseFile (f2);

Form1. Label2. Caption: =password;

end;

end

Свежие статьи
Популярно сейчас
Почему делать на заказ в разы дороже, чем купить готовую учебную работу на СтудИзбе? Наши учебные работы продаются каждый год, тогда как большинство заказов выполняются с нуля. Найдите подходящий учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4098
Авторов
на СтудИзбе
673
Средний доход
с одного платного файла
Обучение Подробнее