unit2.pas

停车厂管理系统 麻雀虽小 但是五脏齐全

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls, ExtCtrls, DB, DBCtrls, ADODB, Grids,
  DBGrids, Buttons, Mask, frxClass, frxDBSet, frxDesgn, ImgList, ToolWin,
  ActnMan, ActnCtrls;

type
  Tmainform = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    H1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N17: TMenuItem;
    N6: TMenuItem;
    N11: TMenuItem;
    N19: TMenuItem;
    adot_customers: TADOTable;
    adot_history: TADOTable;
    N18: TMenuItem;
    N21: TMenuItem;
    histroy: TfrxDBDataset;
    customers: TfrxDBDataset;
    frxDesigner1: TfrxDesigner;
    N22: TMenuItem;
    N23: TMenuItem;
    frxReport1: TfrxReport;
    N2: TMenuItem;
    N3: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N20: TMenuItem;
    N24: TMenuItem;
    ImageList1: TImageList;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton8: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;
  SystemTime: TSystemTime;
  FormOldWid: integer;

implementation

uses Unit1 , Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit11,
  Unit12, Unit13, Unit_settime, Unit14, Unit17, Unit18, Unit19, Unit20,
  Unit21, Unit22, Unit23, Unit24, Unit25, Unit26, Unit27;

{$R *.dfm}

procedure Tmainform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    if  messagedlg('你要退出系统？',mtconfirmation,[mbok,mbno],0)=mrok then
      canclose:=true
    else
      canclose:=false;
    if canclose then
      AnimateWindow(handle,500,AW_HIDE or AW_BLEND);
end;

procedure Tmainform.FormShow(Sender: TObject);
begin
     if trim(opcase)<>'管理员' then
     begin
     mainmenu1.Items.Remove(n6);
     end ;
     FormOldWid:=self.Width;
     ToolBar1.Width:=ControlBar1.Width;
     mainform.Caption:='停车场管理系统 - '+user;
end;

procedure Tmainform.N9Click(Sender: TObject);
begin
  password.Show;
end;

procedure Tmainform.N15Click(Sender: TObject);
begin
  if tccx=nil then
  Application.CreateForm(Ttccx, tccx);
  tccx.ActiveMDIChild;
end;

procedure Tmainform.N16Click(Sender: TObject);
begin
  YuOuChX.Show;
end;

procedure Tmainform.N17Click(Sender: TObject);
begin
  if history=nil then
  Application.CreateForm(Thistory, history);
  history.Show;
end;

procedure Tmainform.N11Click(Sender: TObject);
begin
  form6.Show;
end;

procedure Tmainform.N19Click(Sender: TObject);
begin
   form7.Show;
end;

procedure Tmainform.N18Click(Sender: TObject);
begin
  form8.Show;
end;

procedure Tmainform.N21Click(Sender: TObject);
begin
   form9.Show;
end;

procedure Tmainform.N5Click(Sender: TObject);
begin
  allcharge.Show
end;

procedure Tmainform.N14Click(Sender: TObject);
begin
    form12.Show;
end;

procedure Tmainform.FormResize(Sender: TObject);
begin
    if FormOldWid>0 then
    begin
     ScaleBy(self.Width,FormOldWid);
     FormOldWid:=self.Width;
    end ;
    ToolBar1.Width:=ControlBar1.Width;
end;

procedure Tmainform.N22Click(Sender: TObject);
begin
   timecharge.Show;
end;

procedure Tmainform.N23Click(Sender: TObject);
begin
  form14.Show;
end;

procedure Tmainform.N24Click(Sender: TObject);
begin
  if tckwh=nil then
  Application.CreateForm(Ttckwh, tckwh);
  tckwh.Show ;
end;

procedure Tmainform.N8Click(Sender: TObject);
begin
    if kclc=nil then
    Application.CreateForm(Tkclc, kclc);
    kclc.Show; //显示开车离场页面
end;

procedure Tmainform.N2Click(Sender: TObject);
begin
  if rctc=nil then
  Application.CreateForm(Trctc, rctc);
  rctc.Show; //显示入场停车页面
end;

procedure Tmainform.N20Click(Sender: TObject);
begin
  if tckbl=nil then
    Application.CreateForm(Ttckbl, tckbl);
 tckbl.Show;
end;

procedure Tmainform.N12Click(Sender: TObject);
begin
  if khwh=nil then
  Application.CreateForm(Tkhwh, khwh);
  khwh.Show ; //显示停车卡页面
end;

procedure Tmainform.N3Click(Sender: TObject);
begin
ShouFenJinEr.Show;
end;

procedure Tmainform.N25Click(Sender: TObject);
begin
  form27.show;
end;

procedure Tmainform.ToolButton3Click(Sender: TObject);
begin
    if kclc=nil then
    Application.CreateForm(Tkclc, kclc);
    kclc.Show; //显示开车离场页面
end;

procedure Tmainform.ToolButton2Click(Sender: TObject);
begin
  if rctc=nil then
  Application.CreateForm(Trctc, rctc);
  rctc.Show; //显示入场停车页面
end;

procedure Tmainform.ToolButton4Click(Sender: TObject);
begin
  if tckbl=nil then
    Application.CreateForm(Ttckbl, tckbl);
 tckbl.Show;
end;

procedure Tmainform.ToolButton9Click(Sender: TObject);
begin
  if tckwh=nil then
  Application.CreateForm(Ttckwh, tckwh);
  tckwh.Show ;
end;

procedure Tmainform.ToolButton10Click(Sender: TObject);
begin
  if khwh=nil then
  Application.CreateForm(Tkhwh, khwh);
  khwh.Show ; //显示停车卡页面
end;

procedure Tmainform.ToolButton5Click(Sender: TObject);
begin
  if tccx=nil then
  Application.CreateForm(Ttccx, tccx);
  tccx.ActiveMDIChild;
end;

procedure Tmainform.ToolButton6Click(Sender: TObject);
begin
 YuOuChX.Show;
end;

procedure Tmainform.ToolButton7Click(Sender: TObject);
begin
  if history=nil then
  Application.CreateForm(Thistory, history);
  history.Show;
end;

procedure Tmainform.ToolButton1Click(Sender: TObject);
begin
  password.Show;
end;

end.