umain.~pas

来自「很好的汽车管理系统很实用的谢谢合作」· ~PAS 代码 · 共 1,126 行 · 第 1/3 页
~PAS
1,126 行
      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;
{※--------※--------※--------※--------※--------※--------※--------※--------※

 ★★《Delphi编程词典》软件是由吉林省明日科技有限公司开发的面向程序员和编程爱好者
 的技术最全、案例最多和使用最方便的Delphi编程技术词典。它包含30个实际项目的开发过
 程和源码（每月新增加一个实际开发项目）；最完整、最全面、最实用的函数、控件和基础
 技术大全；上千个编程技巧和几百个典型实例；同时还提供了编程中所需的各种素材和资源。
 价值无限，服务无限。技术服务及升级请访问www.cccxy.com , 电话：（0431）4978981,49
 78982

 ★★《Delphi编程词典》软件源码项目部分对所有代码都作了详细的注释和说明，同时提供
 了所有源码项目详尽、完整的开发过程文档和录像。技术支持及升级请访问www.cccxy.com
 电话：（0431）4978981,4978982

 ★★《Delphi编程词典》对所有实例的开发过程和设计思路都作了详细的介绍。技术支持及
 升级请访问www.cccxy.com   电话：（0431）4978981,4978982

 ★★如果您在使用《Delphi编程词典》中有疑问或好的建议，请访问我公司"编程词典"技术
 服务网站www.cccxy.com或拨打我公司电话（0431-4978981，4978982），我们愿为广大编程
 者提供最好的产品和最佳的服务。对于提出好的建议的读者，我们将给与奖励，详情请访问
 www.cccxy.com。电话：（0431）4978981,4978982

※--------※--------※--------※--------※--------※--------※--------※--------※}

procedure TMain.N8Click(Sender: TObject);
var
  OFile:String;
  HWndCalculator:HWnd;
begin
  HWndCalculator:=FindWindow(nil,'计算器');
  if (HWndCalculator=0) then
  begin
    OFile:='calc.exe';
    Shellexecute(handle,'Open',pchar(OFile),nil,pchar(ExtractFilePath(OFile)),SW_SHOWNORMAL);
  end;
end;

procedure TMain.N9Click(Sender: TObject);
var
  OFile:String;
  HWndCalculator:HWnd;
begin
  HWndCalculator:=FindWindow(nil,'记事本');
  if (HWndCalculator=0) then
  begin
    OFile:='NOTEPAD.EXE';
    Shellexecute(handle,'Open',pchar(OFile),nil,pchar(ExtractFilePath(OFile)),SW_SHOWNORMAL);
  end;
end;

procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageBox(0,'是否要退出本系统？','提示信息',MB_YESNO+MB_ICONQUESTION)=IDYES then
  begin
    Application.Terminate;
    end
    else
    begin
      Action := caNone;
    end;
end;

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

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

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

procedure TMain.FormShow(Sender: TObject);
begin
  label6.Caption:='操 作 员:  ' + Auser.UserName;
  Label7.Caption:='系统时间:  '+DateTimeToStr(now);
end;

procedure TMain.Timer1Timer(Sender: TObject);
begin
  Label7.Caption:='系统时间:  '+DateTimeToStr(now)+'''';
end;

procedure TMain.N38Click(Sender: TObject);
begin
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TXPCXX_Z,XPCXX_Z);
      XPCXX_Z.Left:=0;
      XPCXX_Z.Width:=796;
      XPCXX_Z.Top:=0;
      XPCXX_Z.Height:=568;
      ActionCD:='M';
      XPCXX_Z.ShowModal;
      XPCXX_Z.Free;
    end;
umain.~pas - 源码说明

本页面展示了「很好的汽车管理系统很实用的谢谢合作」中的 umain.~pas 源码文件，采用 ~PAS 编程语言编写，共 1,126 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与汽车管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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