type
TZapr = class(TForm)
TabbedNotebook1: TTabbedNotebook;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBImage1: TDBImage;
DBMemo1: TDBMemo;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
Panel1: TPanel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
Label19: TLabel;
P1: TEdit;
Button2: TButton;
DataSource1: TDataSource;
Query1: TQuery;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
Panel2: TPanel;
Label8: TLabel;
Label9: TLabel;
Label20: TLabel;
S1: TSpinEdit;
S2: TSpinEdit;
S3: TSpinEdit;
S4: TSpinEdit;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DataSource2: TDataSource;
Query2: TQuery;
DBNavigator1: TDBNavigator;
Edit1: TEdit;
Query3: TQuery;
DataSource3: TDataSource;
Query4: TQuery;
DataSource4: TDataSource;
procedure BitBtn1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Zapr: TZapr;
implementation
{$R *.DFM}
procedure TZapr.BitBtn1Click(Sender: TObject);
begin
Zapr.Visible:=False;
end;
procedure TZapr.Button2Click(Sender: TObject);
begin
if (P1.Text='') or (P1.Text=' ')then
ShowMessage('Введите номер рейса!')else
begin
Query1.Active:=false;
Query3.Active:=false;
Query4.Active:=false;
Query1.SQL.Clear;
Query3.SQL.Clear;
Query4.SQL.Clear;
Query1.SQL.Add('Select * From Plane where NumberFligth='+''''+P1.Text+'''');
Query3.SQL.Add('Select * From Route where NumberFligth='+''''+P1.Text+'''');
Query4.SQL.Add('Select * From DiagramMovement where Siroute='+''''+P1.Text+'''');
Query1.Active:=true;
Query2.Active:=true;
Query4.Active:=true;
end;
end;
procedure TZapr.BitBtn2Click(Sender: TObject);
begin
Query2.Close;
Query2.SQL.Clear;
Query2.sql.add('Select * from Personel where Salary>= '+inttostr(S1.Value)+ 'and Salary<=' +inttostr(S2.Value)+ 'and YearBorn >='+inttostr(S3.Value)+'and YearBorn<='+inttostr(S4.Value));
Query2.Open;
Query2.Locate('Surname',Edit1.Text,[LoCaseInsensitive,LoPartialKey]);
end;
procedure TZapr.BitBtn3Click(Sender: TObject);
begin
Query2.Close;
Query2.SQL.Clear;
Query2.sql.add('Select * from Personel where Salary>= '+inttostr(S1.Value)+ 'and Salary<=' +inttostr(s2.Value)+ 'and YearBorn >='+inttostr(s3.Value)+'and YearBorn<='+inttostr(s4.Value));
Query2.Open;
Query2.Locate('Surname',Edit1.Text,[LoCaseInsensitive,LoPartialKey]);
end;
procedure TZapr.Edit1Change(Sender: TObject);
begin
Query2.Locate('Surname',Edit1.Text,[LoCaseInsensitive,LoPartialKey]);
end;
end.
unit Report;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, quickrpt,MainUnit,All_Table, Db, DBTables, Menus, Qrctrls;
type
TFReport = class(TForm)
QuickRep1: TQuickRep;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRSysData1: TQRSysData;
GroupHeaderBand1: TQRBand;
QRLabel2: TQRLabel;
QRSubDetail1: TQRSubDetail;
QRLabel3: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBRichText1: TQRDBRichText;
QRLabel4: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRDBText4: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBImage1: TQRDBImage;
QRBand1: TQRBand;
QRLabel8: TQRLabel;
QRSysData2: TQRSysData;
Query1: TQuery;
DataSource1: TDataSource;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FReport: TFReport;
implementation
{$R *.DFM}
procedure TFReport.N2Click(Sender: TObject);
begin
FReport.Visible:=false;
end;
procedure TFReport.N3Click(Sender: TObject);
begin
FReport.QuickRep1.Preview;
end;
procedure TFReport.N4Click(Sender: TObject);
begin
FReport.QuickRep1.Print;
end;
end.
unit Report1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MainUnit, All_Table, Qrctrls, quickrpt, Menus, ExtCtrls;
type
TFReport1 = class(TForm)
QuickRep1: TQuickRep;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRBand2: TQRBand;
QRLabel4: TQRLabel;
QRSubDetail1: TQRSubDetail;
QRLabel5: TQRLabel;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRLabel6: TQRLabel;
QRDBText7: TQRDBText;
QRLabel7: TQRLabel;
QRDBText8: TQRDBText;
QRDBImage1: TQRDBImage;
QRLabel8: TQRLabel;
QRBand3: TQRBand;
QRLabel9: TQRLabel;
QRSubDetail2: TQRSubDetail;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRBand4: TQRBand;
QRLabel14: TQRLabel;
QRDBText13: TQRDBText;
QRSubDetail3: TQRSubDetail;
QRLabel15: TQRLabel;
QRDBText14: TQRDBText;
QRLabel16: TQRLabel;
QRDBText15: TQRDBText;
QRLabel17: TQRLabel;
QRDBText16: TQRDBText;
QRBand5: TQRBand;
QRLabel18: TQRLabel;
QRDBText17: TQRDBText;
QRSysData1: TQRSysData;
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FReport1: TFReport1;
implementation
{$R *.DFM}
procedure TFReport1.N2Click(Sender: TObject);
begin
FReport1.QuickRep1.Preview;
end;
end.
unit Route;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MainUnit,All_Table, StdCtrls, Buttons, DBCtrls, ExtCtrls;
type
TFRoute = class(TForm)
Label1: TLabel;
DBText1: TDBText;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FRoute: TFRoute;
implementation
{$R *.DFM}
end.
unit TranzitCyti;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MainUnit, All_Table, DBCtrls, StdCtrls, Buttons, ExtCtrls;
type
TTranzCyti = class(TForm)
Label1: TLabel;
DBText1: TDBText;
Panel1: TPanel;
BitBtn1: TBitBtn;
DBNavigator1: TDBNavigator;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TranzCyti: TTranzCyti;
implementation
{$R *.DFM}
procedure TTranzCyti.BitBtn1Click(Sender: TObject);
begin
close
end;
end.
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ExtCtrls, About_Program, Grids, DBGrids, StdCtrls, Db, DBTables,
DBCtrls, Mask;
type
TFormMain = class(TForm)
Panel1: TPanel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
DBGrid1: TDBGrid;
Label2: TLabel;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
Table1: TTable;
RGF: TRadioGroup;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DataSource2: TDataSource;
Table2: TTable;
DataSource3: TDataSource;
Table3: TTable;
N12: TMenuItem;
N13: TMenuItem;
Edit1: TEdit;
Label1: TLabel;
N11: TMenuItem;
N14: TMenuItem;