umain.pas

来自「很好的汽车管理系统 很实用的 谢谢合作」· PAS 代码 · 共 938 行 · 第 1/2 页

PAS
938 行
字号
12
unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ToolWin, ComCtrls, Menus, Buttons,ShellAPI, jpeg,
  StdCtrls, DBTables, ExtDlgs;
type
    UserInfo = record
    UserID: string;
    UserName: string;
  end;
type
  TMain = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Timer1: TTimer;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N36: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N38: TMenuItem;
    N6: TMenuItem;
    N2: TMenuItem;
    N18: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    N10: TMenuItem;
    N17: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N7: TMenuItem;
    N19: TMenuItem;
    N35: TMenuItem;
    N39: TMenuItem;
    N22: TMenuItem;
    N40: TMenuItem;
    N46: TMenuItem;
    N5: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N26: TMenuItem;
    N28: TMenuItem;
    N37: TMenuItem;
    N41: TMenuItem;
    N45: TMenuItem;
    N32: TMenuItem;
    N27: TMenuItem;
    N31: TMenuItem;
    N15: TMenuItem;
    N33: TMenuItem;
    Label1: TLabel;
    SpeedButton8: TSpeedButton;
    Label3: TLabel;
    Timer2: TTimer;
    Label2: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    N34: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    procedure SpeedButton7Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N36Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    Auser:UserInfo;
    { Public declarations }
  end;

var
  Main: TMain;
  Hour, Min, Sec, MSec, year, month, day: Word;
  ActionCD:string;
implementation

uses Uabout, UCLXX, UKHXX, UJSYXX, UJYZXX, UXPCXX, UQXXG, USJBF, UZLDJ,
  UZLJS, UZLDJCX, UZLJSCX, UGHCLDJ, UGHCLDJCX, UGHCLJS, UGHCLJSCX, UWXJLCX,
  UWXXX, ULOGIN, UDM, UBXXX, UWZDJ, UCLXX_ED, UWZDJCX, UJYXX,
  UQTFY, UWXXX_ED, UWZDJ_ED, UBXXX_ED, UJSYXX_ED, UJYXX_ED, UKHXX_ED,
  UJYJLCX, UPUBLICFUNCTION, UHYXX, UHYXXCX, UHYXX_ED, UBXLXSZ, UQTFY_Z,
  UJYZXX_Z, UXPCXX_Z, USJHF;//StdCtrls|edit

{$R *.dfm}
procedure TMain.SpeedButton7Click(Sender: TObject);
begin
  Close;
end;

procedure TMain.N3Click(Sender: TObject);
begin
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TCLXX,CLXX);
      CLXX.Left:=0;
      CLXX.Width:=796;
      CLXX.Top:=0;
      CLXX.Height:=568;
      ActionCD:='M';
      CLXX.ShowModal;
      CLXX.Free;
    end;
    if (Screen.Width=1024) and ( Screen.Height=768) then
    begin
      Application.CreateForm(TCLXX,CLXX);
      CLXX.Width:=796;
      CLXX.Height:=568;
      CLXX.Position:=poDesktopCenter;
      ActionCD:='M';
      CLXX.ShowModal;
      CLXX.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600','提示！',0+64);
    exit;
  end;
end;

procedure TMain.N4Click(Sender: TObject);
begin
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TKHXX,KHXX);
      KHXX.Left:=0;
      KHXX.Width:=796;
      KHXX.Top:=0;
      KHXX.Height:=568;
      ActionCD:='M';
      KHXX.ShowModal;
      KHXX.Free;
    end;
    if (Screen.Width=1024) and ( Screen.Height=768) then
    begin
      Application.CreateForm(TKHXX,KHXX);
      KHXX.Width:=796;
      KHXX.Height:=568;
      KHXX.Position:=poDesktopCenter;
      ActionCD:='M';
      KHXX.ShowModal;
      KHXX.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600','提示！',0+64);
    exit;
  end;
end;

procedure TMain.SpeedButton1Click(Sender: TObject);
begin
  N3.Click;  
end;

procedure TMain.SpeedButton2Click(Sender: TObject);
begin
  N4.Click;
end;

procedure TMain.N18Click(Sender: TObject);
begin
  try
    Application.CreateForm(TSJBF,SJBF);
    SJBF.ShowModal;
    SJBF.Free;
  except
    MessageBox(0, '备份恢复窗体创建错误', '', MB_OK + MB_ICONSTOP);
  end;
end;

procedure TMain.SpeedButton5Click(Sender: TObject);
begin
  N18.Click;
end;

procedure TMain.N14Click(Sender: TObject);
begin
  Application.CreateForm(TQXXG,QXXG);
  ActionCD:='M';
  QXXG.ShowModal;
  QXXG.Free;
end;

procedure TMain.SpeedButton6Click(Sender: TObject);
begin
  N14.Click;
end;

procedure TMain.N12Click(Sender: TObject);
begin
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TZLDJ,ZLDJ);
      ZLDJ.Left:=0;
      ZLDJ.Width:=796;
      ZLDJ.Top:=0;
      ZLDJ.Height:=568;
      ActionCD:='M';
      ZLDJ.ShowModal;
      ZLDJ.Free;
    end;
    if (Screen.Width=1024) and (Screen.Height=768) then
    begin
      Application.CreateForm(TZLDJ,ZLDJ);
      ZLDJ.Width:=796;
      ZLDJ.Height:=568;
      ZLDJ.Position:=poDesktopCenter;
      ActionCD:='M';
      ZLDJ.ShowModal;
      ZLDJ.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600','提示！',0+64);
    exit;
  end;
end;

procedure TMain.SpeedButton3Click(Sender: TObject);
begin
  N12.Click;
end;

procedure TMain.N13Click(Sender: TObject);
begin
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TZLJS,ZLJS);
      ZLJS.Left:=0;
      ZLJS.Width:=796;
      ZLJS.Top:=0;
      ZLJS.Height:=568;
      ZLJS.DBG;
      ZLJS.ShowModal;
      ZLJS.Free;
    end;
    if (Screen.Width=1024) and (Screen.Height=768) then
    begin
      Application.CreateForm(TZLJS,ZLJS);
      ZLJS.Width:=796;
      ZLJS.Height:=568;
      ZLJS.Position:=poDesktopCenter;
      ZLJS.DBG;
      ZLJS.ShowModal;
      ZLJS.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600','提示！',0+64);
    exit;
  end;
end;

procedure TMain.SpeedButton4Click(Sender: TObject);
begin
  N13.Click;
end;

procedure TMain.N20Click(Sender: TObject);
begin
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TZLDJCX,ZLDJCX);
      ZLDJCX.Left:=0;
      ZLDJCX.Width:=796;
      ZLDJCX.Top:=0;
      ZLDJCX.Height:=568;
      ZLDJCX.ShowModal;
      ZLDJCX.Free;
    end;
    if (Screen.Width=1024) and (Screen.Height=768) then
    begin
      Application.CreateForm(TZLDJCX,ZLDJCX);
      ZLDJCX.Width:=796;
      ZLDJCX.Height:=568;
      ZLDJCX.Position:=poDesktopCenter;
      ZLDJCX.ShowModal;
      ZLDJCX.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600','提示！',0+64);
    exit;
  end;
end;

procedure TMain.N21Click(Sender: TObject);
begin
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TZLJSCX,ZLJSCX);
      ZLJSCX.Left:=0;
      ZLJSCX.Width:=796;
      ZLJSCX.Top:=0;
      ZLJSCX.Height:=568;
      ZLJSCX.ShowModal;
      ZLJSCX.Free;
    end;
    if (Screen.Width=1024) and (Screen.Height=768) then
    begin
      Application.CreateForm(TZLJSCX,ZLJSCX);
      ZLJSCX.Width:=796;
      ZLJSCX.Height:=568;
      ZLJSCX.Position:=poDesktopCenter;
      ZLJSCX.ShowModal;
      ZLJSCX.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600','提示！',0+64);
    exit;
  end;
end;

procedure TMain.N30Click(Sender: TObject);
begin
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TJSYXX,JSYXX);
      JSYXX.Left:=0;
      JSYXX.Width:=796;
      JSYXX.Top:=0;
      JSYXX.Height:=568;
      ActionCD:='M';
      JSYXX.ShowModal;
      JSYXX.Free;
    end;
    if (Screen.Width=1024) and ( Screen.Height=768) then
    begin
      Application.CreateForm(TJSYXX,JSYXX);
      JSYXX.Width:=796;
      JSYXX.Height:=568;
      JSYXX.Position:=poDesktopCenter;
      ActionCD:='M';
      JSYXX.ShowModal;
      JSYXX.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600','提示！',0+64);
    exit;
  end;
end;

procedure TMain.N24Click(Sender: TObject);
begin
  Application.CreateForm(TGHCLDJ,GHCLDJ);
  GHCLDJ.ShowModal;
  GHCLDJ.Free;
end;

procedure TMain.N25Click(Sender: TObject);
begin
  Application.CreateForm(TGHCLJS,GHCLJS);
  GHCLJS.ShowModal;
  GHCLJS.Free;
end;

procedure TMain.N27Click(Sender: TObject);
begin
  Application.CreateForm(TGHCLDJCX,GHCLDJCX);
  GHCLDJCX.ShowModal;
  GHCLDJCX.Free;
end;

procedure TMain.N31Click(Sender: TObject);
begin
  Application.CreateForm(TGHCLJSCX,GHCLJSCX);
  GHCLJSCX.ShowModal;
  GHCLJSCX.Free;
end;

procedure TMain.N28Click(Sender: TObject);
begin
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TWXJLCX,WXJLCX);
      WXJLCX.Left:=0;
      WXJLCX.Width:=796;
      WXJLCX.Top:=0;
      WXJLCX.Height:=568;
      WXJLCX.ShowModal;
      WXJLCX.Free;
    end;
    if (Screen.Width=1024) and (Screen.Height=768) then
    begin
      Application.CreateForm(TWXJLCX,WXJLCX);
      WXJLCX.Width:=796;
      WXJLCX.Height:=568;
      WXJLCX.Position:=poDesktopCenter;
      WXJLCX.ShowModal;
      WXJLCX.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600','提示！',0+64);
    exit;
  end;
end;

procedure TMain.N33Click(Sender: TObject);
begin
  Application.CreateForm(Tabout,about);
  about.ShowModal;
  about.Free;
end;

procedure TMain.N8Click(Sender: TObject);
12

umain.pas - 源码说明

本页面展示了「很好的汽车管理系统 很实用的 谢谢合作」中的 umain.pas 源码文件，采用 PAS 编程语言编写，共 938 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与汽车管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?