p align="left">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. 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 }
Страницы: 1, 2, 3, 4, 5, 6, 7
|