umain.~pas

来自「很好的汽车管理系统很实用的谢谢合作」· ~PAS 代码 · 共 1,126 行 · 第 1/3 页
~PAS
1,126 行
    if (Screen.Width=1024) and ( Screen.Height=768) then
    begin
      Application.CreateForm(TXPCXX_Z,XPCXX_Z);
      XPCXX_Z.Width:=796;
      XPCXX_Z.Height:=568;
      XPCXX_Z.Position:=poDesktopCenter;
      ActionCD:='M';
      XPCXX_Z.ShowModal;
      XPCXX_Z.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600','提示！',0+64);
    exit;
  end;
end;

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

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

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

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

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

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

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

procedure TMain.Timer2Timer(Sender: TObject);
begin
  if label1.left>-label1.Width then
    label1.left:=label1.left-1
  else
    label1.left:=self.Width;
end;

procedure TMain.SpeedButton8Click(Sender: TObject);
begin
  N35.Click;
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.N10Click(Sender: TObject);
var
stable:TStringList;
i:integer;
begin
  if application.messagebox(pchar('系统初始化将清空所有数据，是否要开始？'),
     pchar('警告'),64+MB_YESNO)<>IDYES then
  begin
    exit;
  end;
  stable:=TStringlist.create;
  stable.Add('BXLXSZ');
  stable.Add('CLXX');
  stable.Add('KHXX');
  stable.Add('BXXX');
  stable.Add('JSYXX');
  stable.Add('XPCXX');
  stable.Add('JYZXX');
  stable.Add('ZLDJ');
  stable.Add('ZLJS');
  stable.Add('JYXX');
  stable.Add('WZDJ');
  stable.Add('WXXX');
  stable.Add('HYXX');
  stable.Add('QTFY');
  stable.Add('userpower');
  stable.Add('userlogin');
  for i:=0 to stable.count-1 do
    begin
      dm.csh.SQL.clear;
      dm.csh.SQL.Add('delete from '+stable.Strings[i]);
      dm.csh.ExecSQL;
    end;
    dm.csh.SQL.Clear;
    dm.csh.sql.add('insert into userpower(UserNo,UserName,pas,n1,n2,n5,n11) values(''1001'',''mingrisoft'',''mingrisoft'',''1'',''1'',''1'',''1'')');
    dm.csh.ExecSQL;
    dm.ADOConn.Close;
    dm.ADOConn.Open;
    application.MessageBox('系统初始化成功！','提示',0);
    exit;
    stable.free;
end;

procedure TMain.N34Click(Sender: TObject);
begin
  Application.CreateForm(TBXLXSZ,BXLXSZ);
  Actioncd:='M';
  BXLXSZ.ShowModal;
  BXLXSZ.Free;
end;

procedure TMain.N43Click(Sender: TObject);
begin
  Application.CreateForm(TSJHF,SJHF);
  SJHF.ShowModal;
  SJHF.Free;
end;

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

end.
{※-------------※--------------※-------------※--------------※--------------※

  ★★ 版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商业
 用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费下载，必须经过吉林省
 明日科技有限公司授权，并保证程序的完整（不得修改代码、注释和相关内容），否则，
 我公司将追究其法律责任。

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

 ★★《Delphi编程词典》是各级编程人员不可缺少的编程技术资源管理软件。如果您是初
 学者，本软件提供了大量实例、项目的源码及其详尽、完整的开发过程文档和技术说明文
 件，同时还配有各方面的学习录像，让您快速入门，快速精通；如果您是编程设计高手，
 本软件提供了大量编程技巧、源码速查和全方位的技术资源，让您轻松编程、轻松赚钱。

 ★★《Delphi编程词典》软件是软件开发商和软件服务商的资源宝库，它提供了几十个实
 际项目案例的项目源码、软件升级和有限服务支持，同时每月还提供新的行业软件，让您
 用最好、最多的软件资源开拓您的软件市场，创造更多的利润空间。价值无限，服务无限。
 技术服务及升级请访问www.cccxy.com

 ★★《Delphi编程词典》对所有源码项目的实例的开发过程和代码功能都作了详细说明，
 让您真正融会贯通，迅速提高编程本领。

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

 ★★吉林省明日科技有限公司 www.mingrisoft.com  www.cccxy.com  价值无限，服务无
 限（0431）4978981,4978982

※-------------※--------------※-------------※--------------※--------------※}
umain.~pas - 源码说明

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

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