report.~pas

来自「软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/」· ~PAS 代码 · 共 111 行

unit Report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMenu, Buttons, ExtCtrls;

type
  Tfrm_Report = class(TForm)
    Panel1: TPanel;
    XPMenu2: TXPMenu;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Report: Tfrm_Report;

implementation

uses Car_Report, CarCheck_Report, Drive_Card_Report,
  Drive_Card_Check_Rteport, Car_Change_Report, Car_Bad_Report, Done_Report,
  Charge_Report;

{$R *.dfm}

procedure Tfrm_Report.SpeedButton1Click(Sender: TObject);
begin
    inherited;
    frm_Car_Report:=Tfrm_Car_Report.Create(self);
    frm_Car_Report.ShowModal;
    frm_Car_Report.Free;
end;

procedure Tfrm_Report.SpeedButton2Click(Sender: TObject);
begin
    inherited;
    frm_CarCheck_Report:=Tfrm_CarCheck_Report.Create(self);
    frm_CarCheck_Report.ShowModal;
    frm_CarCheck_Report.Free;
end;

procedure Tfrm_Report.SpeedButton3Click(Sender: TObject);
begin
    inherited;
    frm_Drive_Card_Report:=Tfrm_Drive_Card_Report.Create(self);
    frm_Drive_Card_Report.ShowModal;
    frm_Drive_Card_Report.Free;
end;

procedure Tfrm_Report.SpeedButton4Click(Sender: TObject);
begin
   inherited;
    frm_Drive_Card_Check_Rteport:=Tfrm_Drive_Card_Check_Rteport.Create(self);
    frm_Drive_Card_Check_Rteport.ShowModal;
    frm_Drive_Card_Check_Rteport.Free;
end;

procedure Tfrm_Report.SpeedButton5Click(Sender: TObject);
begin
    inherited;
    frm_Car_Change_Report:=Tfrm_Car_Change_Report.Create(self);
    frm_Car_Change_Report.ShowModal;
    frm_Car_Change_Report.Free;
end;

procedure Tfrm_Report.SpeedButton6Click(Sender: TObject);
begin
   inherited;
    frm_Car_Bad_Report:=Tfrm_Car_Bad_Report.Create(self);
    frm_Car_Bad_Report.ShowModal;
    frm_Car_Bad_Report.Free;
end;

procedure Tfrm_Report.SpeedButton7Click(Sender: TObject);
begin
    inherited;
    frm_Done_Report:=Tfrm_Done_Report.Create(self);
    frm_Done_Report.ShowModal;
    frm_Done_Report.Free;
end;

procedure Tfrm_Report.SpeedButton8Click(Sender: TObject);
begin
    inherited;
    frm_Charge_Report:=Tfrm_Charge_Report.Create(self);
    frm_Charge_Report.ShowModal;
    frm_Charge_Report.Free;
end;

end.