main.~pas

软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, StdCtrls, Buttons, ExtCtrls, DB, ADODB,
  OleCtrls, ImgList,  Mask, PageList, XPMenu, jpeg;

type
  Tfrm_Main = class(TForm)
    P1: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Splitter1: TSplitter;
    ImageList1: TImageList;
    Panel2: TPanel;
    P_Child: TPanel;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    PageList2: TPageList;
    Cmd_CarType: TSpeedButton;
    Cmd_Mond: TSpeedButton;
    Cmd_ChargeType: TSpeedButton;
    Cmd_ChargeName: TSpeedButton;
    Cmd_Car: TSpeedButton;
    Cmd_User: TSpeedButton;
    Cmd_Right: TSpeedButton;
    Cmd_UserType: TSpeedButton;
    Cmd_CarCheck: TSpeedButton;
    Cmd_CarBad: TSpeedButton;
    Cmd_CarCharge: TSpeedButton;
    Cmd_DataBack: TSpeedButton;
    Cmd_Cancel: TSpeedButton;
    Cmd_Drive: TSpeedButton;
    Cmd_DriveCheck: TSpeedButton;
    Cmd_CarDone: TSpeedButton;
    Cmd_CarChange: TSpeedButton;
    Cmd_Lock: TSpeedButton;
    XPMenu2: TXPMenu;
    Image1: TImage;
    Cmd_Report: TSpeedButton;
    Cmd_Search: TSpeedButton;
    Cmd_DataHF: TSpeedButton;
    Cmd_login: TSpeedButton;
    Cmd_Change: TSpeedButton;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Cmd_SystemSetClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Cmd_CancelClick(Sender: TObject);
    procedure Cmd_CarClick(Sender: TObject);
    procedure Cmd_DataBackClick(Sender: TObject);
    procedure Cmd_CarTypeClick(Sender: TObject);
    procedure Cmd_CarCheckClick(Sender: TObject);
    procedure Cmd_UserTypeClick(Sender: TObject);
    procedure Cmd_UserClick(Sender: TObject);
    procedure Cmd_RightClick(Sender: TObject);
    procedure Cmd_CarChargeClick(Sender: TObject);
    procedure Cmd_CarDoneClick(Sender: TObject);
    procedure Cmd_DriveClick(Sender: TObject);
    procedure Cmd_DriveCheckClick(Sender: TObject);
    procedure Cmd_ChargeTypeClick(Sender: TObject);
    procedure Cmd_MondClick(Sender: TObject);
    procedure Cmd_CarBadClick(Sender: TObject);
    procedure Cmd_CarChangeClick(Sender: TObject);
    procedure Cmd_LockClick(Sender: TObject);
    procedure Cmd_ChargeNameClick(Sender: TObject);
    procedure Cmd_ReportClick(Sender: TObject);
    procedure Cmd_SearchClick(Sender: TObject);
    procedure Cmd_ChangeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Main: Tfrm_Main;
  StrText,viewstring:String;
  commflg:boolean;
  Tbuf:array[1..10] of byte;
  grbuf:array[1..280] of byte;
  temptno:String;
  Date_Time:String;
implementation

uses Car, SystemSet, SystemManage, Data, Manager, func, Check, User_Type,
  User, User_Right, Charge, Done, Drive_Card, Drive_Card_Check, Charge_Type,
  Car_Type, Car_Bad, Car_Change, Lock, Charge_Name, Report, Chang;

{$R *.dfm}

procedure Tfrm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    inherited;
    system.Halt(0);
end;

procedure Tfrm_Main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    //{屏蔽 ALT＋F4}
    if (shift = [ssAlt]) and (key = vk_F4) then
    begin
        shift := [];
        key := 0;
    end;
end;

procedure Tfrm_Main.Cmd_SystemSetClick(Sender: TObject);
begin
    frm_SystemSet:=Tfrm_SystemSet.Create(self);
    frm_SystemSet.ShowModal;
    frm_SystemSet.Free;
end;

procedure Tfrm_Main.FormShow(Sender: TObject);
var
   i,icount,j,temppos:integer;
   ss,tempstr:string;
begin
    Timer2.Enabled:=False;
    Timer2.Enabled:=True;
    //Label1.Caption:='';
    tempstr:=func.pub_Right;
    icount:=0;
    while pos(',',tempstr)>0 do //取得逗号的位置
    begin
        temppos:=pos(',',tempstr); //取得逗号的位置
            ss:=copy(tempstr,1,temppos-1);
            //'a,b,c,d,e,'
            //从每个逗号后的一个字符，开始截取，截取的长度为整个长度减去逗号所在位置的长度
            tempstr:=copy(tempstr,temppos+1,length(tempstr)-temppos);
            if ss='车型设置' then
            begin
                Cmd_CarType.Enabled:=True;
            end;
            if ss='单位信息' then
            begin
                Cmd_Mond.Enabled:=True;
            end;
            if ss='收费类别' then
            begin
                Cmd_ChargeType.Enabled:=True;
            end;
            if ss='收费名称' then
            begin
                Cmd_ChargeName.Enabled:=True;
            end;
            if ss='用户类型 ' then
            begin
                Cmd_UserType.Enabled:=True;
            end;
            if ss='车辆信息' then
            begin
                Cmd_Car.Enabled:=True;
            end;
            if ss='用户管理' then
            begin
                Cmd_User.Enabled:=True;
            end;
            if ss='权限管理' then
            begin
                Cmd_Right.Enabled:=True;
            end;
            if ss='车辆审查' then
            begin
                Cmd_CarCheck.Enabled:=True;
            end;
            if ss='车辆报废' then
            begin
                Cmd_CarBad.Enabled:=True;
            end;
            if ss='车辆交费' then
            begin
                Cmd_CarCharge.Enabled:=True;
            end;
            if ss='驾照管理' then
            begin
                Cmd_Drive.Enabled:=True;
            end;
            if ss='驾照审查' then
            begin
                Cmd_DriveCheck.Enabled:=True;
            end;
            if ss='车辆过户' then
            begin
                Cmd_CarChange.Enabled:=True;
            end;
            if ss='违章信息' then
            begin
                Cmd_CarDone.Enabled:=True;
            end;
            if ss='报表管理' then
            begin
                Cmd_Report.Enabled:=True;
            end;
            if ss='信息查询' then
            begin
                Cmd_Search.Enabled:=True;
            end;
            if ss='更换操作' then
            begin
                Cmd_Change.Enabled:=True;
            end;
            if ss='数据备份' then
            begin
                Cmd_DataBack.Enabled:=True;
            end;
            if ss='数据恢复' then
            begin
                Cmd_DataHF.Enabled:=True;
            end;
            if ss='退出系统' then
            begin
                Cmd_Cancel.Enabled:=True;
            end;
            if ss='系统日志' then
            begin
                Cmd_login.Enabled:=True;
            end;
            if ss='锁定系统' then
            begin
                Cmd_Lock.Enabled:=True;
            end;
            if ss='关闭系统' then
            begin
                Cmd_Cancel.Enabled:=True;
            end;
        Next;
    end;
end;

procedure Tfrm_Main.Cmd_CancelClick(Sender: TObject);
begin
    if Application.MessageBox('确定需要退出［GPS定位车辆管理系统］吗？请确认！','GPS定位车辆管理系统',mb_okcancel)=idok then
    begin
        system.Halt(0);
    end;
end;

procedure Tfrm_Main.Cmd_CarClick(Sender: TObject);
begin
    if frm_Car=nil then
    begin
        frm_Car:=Tfrm_Car.Create(self,P_Child);
        frm_Car.Show;
    end else
    begin
        frm_Car.Free;
        frm_Car:=nil;
        frm_Car:=Tfrm_Car.Create(self,P_Child);
        frm_Car.Show;
    end;
end;

procedure Tfrm_Main.Cmd_DataBackClick(Sender: TObject);
begin
    frm_SystemManage:=Tfrm_SystemManage.Create(self);
    frm_SystemManage.ShowModal;
    frm_SystemManage.Free;
end;

procedure Tfrm_Main.Cmd_CarTypeClick(Sender: TObject);
begin
    System_Flag:='01';//车型设置
    {if frm_SystemSet=nil then
    begin
        frm_SystemSet:=Tfrm_SystemSet.Create(self,P_Child);
        frm_SystemSet.Show;
    end
    else
    begin
        frm_SystemSet.Free;
        frm_SystemSet:=nil;
        frm_SystemSet:=Tfrm_SystemSet.Create(self,P_Child);
        frm_SystemSet.Show;
    end; }
    frm_Car_Type:=Tfrm_Car_Type.Create(self);
    frm_Car_Type.ShowModal;
    frm_Car_Type.Free;
end;

procedure Tfrm_Main.Cmd_CarCheckClick(Sender: TObject);
begin

    if frm_Check=nil then
    begin
        frm_Check:=Tfrm_Check.Create(self,P_Child);
        frm_Check.Show;
    end
    else
    begin
        frm_Check.Free;
        frm_Check:=nil;
        frm_Check:=Tfrm_Check.Create(self,P_Child);
        frm_Check.Show;
    end;
end;

procedure Tfrm_Main.Cmd_UserTypeClick(Sender: TObject);
begin
    frm_User_Type:=tfrm_User_Type.Create(self);
    frm_User_Type.ShowModal;
    frm_User_Type.Free;
end;

procedure Tfrm_Main.Cmd_UserClick(Sender: TObject);
begin
    frm_User:=Tfrm_User.Create(self);
    frm_User.ShowModal;
    frm_User.Free;
end;

procedure Tfrm_Main.Cmd_RightClick(Sender: TObject);
begin
    frm_User_Right:=Tfrm_User_Right.Create(self);
    frm_User_Right.ShowModal;
    frm_User_Right.Free;
end;

procedure Tfrm_Main.Cmd_CarChargeClick(Sender: TObject);
begin
    //
    if frm_Charge=nil then
    begin
        frm_Charge:=Tfrm_Charge.Create(self,P_Child);
        frm_Charge.Show;
    end
    else
    begin
        frm_Charge.Free;
        frm_Charge:=nil;
        frm_Charge:=Tfrm_Charge.Create(self,P_Child);
        frm_Charge.Show;
    end;
end;

procedure Tfrm_Main.Cmd_CarDoneClick(Sender: TObject);
begin
    //
    if frm_Done=nil then
    begin
        frm_Done:=Tfrm_Done.Create(self,P_Child);
        frm_Done.Show;
    end
    else
    begin
        frm_Done.Free;
        frm_Done:=nil;
        frm_Done:=Tfrm_Done.Create(self,P_Child);
        frm_Done.Show;
    end;
end;

procedure Tfrm_Main.Cmd_DriveClick(Sender: TObject);
begin
    if frm_Drive_Card=nil then
    begin
        frm_Drive_Card:=Tfrm_Drive_Card.Create(self,P_Child);
        frm_Drive_Card.Show;
    end
    else
    begin
        frm_Drive_Card.Free;
        frm_Drive_Card:=nil;
        frm_Drive_Card:=Tfrm_Drive_Card.Create(self,P_Child);
        frm_Drive_Card.Show;
    end;
end;

procedure Tfrm_Main.Cmd_DriveCheckClick(Sender: TObject);
begin
    //frm_Drive_Card_Check
    if frm_Drive_Card_Check=nil then
    begin
        frm_Drive_Card_Check:=Tfrm_Drive_Card_Check.Create(self,P_Child);
        frm_Drive_Card_Check.Show;
    end
    else
    begin
        frm_Drive_Card_Check.Free;
        frm_Drive_Card_Check:=nil;
        frm_Drive_Card_Check:=Tfrm_Drive_Card_Check.Create(self,P_Child);
        frm_Drive_Card_Check.Show;
    end;
end;

procedure Tfrm_Main.Cmd_ChargeTypeClick(Sender: TObject);
begin
    frm_Charge_Type:=Tfrm_Charge_Type.Create(self);
    frm_Charge_Type.ShowModal;
    frm_Charge_Type.Free;
end;

procedure Tfrm_Main.Cmd_MondClick(Sender: TObject);
begin
    frm_SystemSet:=Tfrm_SystemSet.Create(self);
    frm_SystemSet.ShowModal;
    frm_SystemSet.Free;
end;

procedure Tfrm_Main.Cmd_CarBadClick(Sender: TObject);
begin
    if frm_Car_Bad=nil then
    begin
        frm_Car_Bad:=Tfrm_Car_Bad.Create(self,P_Child);
        frm_Car_Bad.Show;
    end
    else
    begin
        frm_Car_Bad.Free;
        frm_Car_Bad:=nil;
        frm_Car_Bad:=Tfrm_Car_Bad.Create(self,P_Child);
        frm_Car_Bad.Show;
    end;
end;

procedure Tfrm_Main.Cmd_CarChangeClick(Sender: TObject);
begin
    if frm_Car_Bad=nil then
    begin
        frm_Car_Change:=Tfrm_Car_Change.Create(self,P_Child);
        frm_Car_Change.Show;
    end
    else
    begin
        frm_Car_Change.Free;
        frm_Car_Change:=nil;
        frm_Car_Change:=Tfrm_Car_Change.Create(self,P_Child);
        frm_Car_Change.Show;
    end;
end;

procedure Tfrm_Main.Cmd_LockClick(Sender: TObject);
begin
    if Application.MessageBox('确定需要琐定系统吗？请确认！',Pchar(Application.Title),mb_okcancel)=idok then
    begin
        frm_Lock:=Tfrm_Lock.Create(application);
        frm_Lock.Label2.Caption:='系统已经被'+func.Login_Name+'琐定！'+#13+#13+'系统解琐请输入口令！'+#13+#13+'只有'+func.Login_Name+'才能解开';
        frm_Lock.Caption:='系统已经被琐定！';
        frm_Lock.ShowModal;
        frm_Lock.Free;
    end;
end;

procedure Tfrm_Main.Cmd_ChargeNameClick(Sender: TObject);
begin
    frm_Charge_Name:=Tfrm_Charge_Name.Create(self);
    frm_Charge_Name.ShowModal;
    frm_Charge_Name.Free;
end;

procedure Tfrm_Main.Cmd_ReportClick(Sender: TObject);
begin
    frm_Report:=Tfrm_Report.Create(self);
    frm_Report.Caption:='【报表管理】';
    frm_Report.ShowModal;
    frm_Report.Free;
end;

procedure Tfrm_Main.Cmd_SearchClick(Sender: TObject);
begin
    frm_Report:=Tfrm_Report.Create(self);
    frm_Report.Caption:='【信息查询】';
    frm_Report.ShowModal;
    frm_Report.Free;
end;

procedure Tfrm_Main.Cmd_ChangeClick(Sender: TObject);
begin
    frm_Chang:=Tfrm_Chang.Create(self);
    frm_Chang.ShowModal;
    frm_Chang.Free;
end;

end.