⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 umain.~pas

📁 专业品质
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TFRM_HWTYGL,FRM_HWTYGL);
      FRM_HWTYGL.Left:=0;
      FRM_HWTYGL.Width:=800;
      FRM_HWTYGL.Top:=0;
      FRM_HWTYGL.Height:=566;
      ACtionCD:='M';
      FRM_HWTYGL.ShowModal;
      FRM_HWTYGL.Free;
    end;
    if (Screen.Width=1024) and ( Screen.Height=768) then
    begin
      Application.CreateForm(TFRM_HWTYGL,FRM_HWTYGL);
      FRM_HWTYGL.Width:=800;
      FRM_HWTYGL.Height:=566;
      FRM_HWTYGL.Position:=poDesktopCenter;
      ACtionCD:='M';
      FRM_HWTYGL.ShowModal;
      FRM_HWTYGL.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600 !','提示！',0+64);
    exit;
  end;
end;                  

procedure TFRM_MAIN.SpeedButton9Click(Sender: TObject);
begin
  Application.CreateForm(TFRM_KHYSXX,FRM_KHYSXX);
  ACtionCD:='M';
  FRM_KHYSXX.ShowModal;
  FRM_KHYSXX.Free;
end;

procedure TFRM_MAIN.FormShow(Sender: TObject);
begin
 StatusBar1.Panels.Items[1].Text := '系统时间：'+DateTimeToStr(now);
    StatusBar1.Panels.Items[0].Text := '操 作 员:  ' + Auser.UserName;
   
end;

procedure TFRM_MAIN.N6Click(Sender: TObject);
begin
 Application.CreateForm(TFRM_GSJBXX,FRM_GSJBXX);
  FRM_GSJBXX.ShowModal;
  FRM_GSJBXX.Free;
end;

procedure TFRM_MAIN.N7Click(Sender: TObject);
begin
Application.CreateForm(TFRM_BMJBXX,FRM_BMJBXX);
  ACtionCD:='M';
  FRM_BMJBXX.ShowModal;
  FRM_BMJBXX.Free;
end;

procedure TFRM_MAIN.N8Click(Sender: TObject);
begin
Application.CreateForm(TFRM_YGJBXX,FRM_YGJBXX);
  ACtionCD:='M';
  FRM_YGJBXX.ShowModal;
  FRM_YGJBXX.Free;
end;

procedure TFRM_MAIN.N9Click(Sender: TObject);
begin
 Application.CreateForm(TFRM_KHJBXX,FRM_KHJBXX);
  ACtionCD:='M';
  FRM_KHJBXX.ShowModal;
  FRM_KHJBXX.Free;
end;

procedure TFRM_MAIN.N10Click(Sender: TObject);
begin
 Application.CreateForm(TFRM_SJJBXX,FRM_SJJBXX);
  ACtionCD:='M';
  FRM_SJJBXX.ShowModal;
  FRM_SJJBXX.Free;
end;

procedure TFRM_MAIN.N11Click(Sender: TObject);
begin
 Application.CreateForm(TFRM_CLJBXX,FRM_CLJBXX);
  ACtionCD:='M';
  FRM_CLJBXX.ShowModal;
  FRM_CLJBXX.Free;
end;

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

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

procedure TFRM_MAIN.N14Click(Sender: TObject);
begin
 Application.CreateForm(TFRM_KHYSXX,FRM_KHYSXX);
  ACtionCD:='M';
  FRM_KHYSXX.ShowModal;
  FRM_KHYSXX.Free;
end;

procedure TFRM_MAIN.N15Click(Sender: TObject);
var
  Str_Path:string;
begin
  SaveDialog1.Filter := '所有文件(*.*)|*.*';
  SaveDialog1.Title := '选择备份路径和文件名';
  if SaveDialog1.Execute=true then
    begin
      Str_Path:=SaveDialog1.FileName;
    end;
  if Str_Path<>'' then
    begin
      with DM.QSJBF do
        begin
          try
            Screen.Cursor := crHourGlass;
            DM.QSJBF.Close;
            DM.QSJBF.SQL.Clear;
            DM.QSJBF.SQL.Add(' BACKUP DATABASE 物流管理系统 TO DISK ='+'''' +Str_Path+'''');
            DM.QSJBF.ExecSQL();
            Screen.Cursor := crDefault;
            Application.MessageBox('数据库备份成功完成','数据库备份',0+mb_iconinformation);
         except
            Screen.Cursor := crDefault;
            Application.MessageBox('数据库备份失败！请检查备份路径或网络状态','数据库备份',0+mb_iconinformation);
            exit;
          end;
        end;
    end;
end;

procedure TFRM_MAIN.N16Click(Sender: TObject);
var
  Str_Path:string;
begin
  DM.ADOConn.Close;
  DM.ADOConn.Connected:=False;
  Opendialog1.Filter := '所有文件(*.*)|*.*';
  Opendialog1.Title := '选择恢复文件路径和文件名';
  if Opendialog1.Execute then
    Str_Path:=opendialog1.FileName;
  if Str_Path<>'' then
  begin
    with DM.QSJHF do
    begin
    try
      try
        Screen.Cursor := crHourGlass;
        Close;
        SQL.Clear;
        SQL.Add('use master restore  DATABASE 物流管理系统 from DISK ='+'''' +Str_Path+'''');
        ExecSQL();
        Screen.Cursor := crDefault;
        Application.MessageBox('数据库恢复成功完成!','数据库恢复',0+mb_iconinformation);
      except
        Screen.Cursor := crDefault;
        Application.MessageBox('数据库恢复失败！请检查备份路径或网络状态','数据库恢复',0+mb_iconinformation);
        exit;
      end;
      Finally
        with DM.ADOQuery1 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('USE 物流管理系统');
            ExecSQL;
          end;
      end;
    end;
  end;
  DM.ADOConn.Open;
  DM.ADOConn.Connected:=True;

end;

procedure TFRM_MAIN.N18Click(Sender: TObject);
begin
Application.CreateForm(TFRM_YHQX,FRM_YHQX);
  ACtionCD:='M';
  FRM_YHQX.ShowModal;
  FRM_YHQX.Free;
end;

procedure TFRM_MAIN.N19Click(Sender: TObject);
begin
ShellExecute(handle,'open','calc.exe',nil,nil,sw_shownormal);
end;

procedure TFRM_MAIN.N20Click(Sender: TObject);
begin
 ShellExecute(handle,'open','notepad.exe',nil,nil,sw_shownormal);
end;

procedure TFRM_MAIN.N21Click(Sender: TObject);
begin
Application.CreateForm(TFRM_ABOUT,FRM_ABOUT);
  FRM_ABOUT.ShowModal;
  FRM_ABOUT.Free;
end;



procedure TFRM_MAIN.ListView1DblClick(Sender: TObject);
begin
if listview1.Selected.Caption='公司基本信息'then
 begin
 N6Click(Sender);
 end;
if  listview1.Selected.Caption='部门基本信息'then
 begin
 N7Click(Sender);
 end;
 if listview1.Selected.Caption='员工基本信息'then
 begin
 N8Click(Sender);
 end;
  if listview1.Selected.Caption='客户基本信息'then
 begin
 N9Click(Sender);
 end;
 if listview1.Selected.Caption='司机基本信息'then
 begin
 N10Click(Sender);
 end;
if listview1.Selected.Caption='车辆基本信息'then
 begin
 N11Click(Sender);
 end;
  if listview1.Selected.Caption='货物申请信息'then
 begin
 N12Click(Sender);
 end;
  if listview1.Selected.Caption='货物托运管理'then
 begin
 N13Click(Sender);
 end;
  if listview1.Selected.Caption='客户验收情况'then
 begin
 N14Click(Sender);
 end;
  if listview1.Selected.Caption='系统退出'then
 begin
close;
 end;
end;

procedure TFRM_MAIN.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
      
   if (Screen.Width=800) and ( Screen.Height=600) then
    begin

      listview1.Top:=frm_main.Top+toolbar1.Height+30;
      listview1.Height:=460;
      listview1.width:=180;
    end;

    if (Screen.Width=1024) and ( Screen.Height=768) then
    begin

      listview1.Top:=frm_main.Top+toolbar1.Height+40;
      listview1.Height:=560;
      listview1.width:=220;
    end;
  end;

procedure TFRM_MAIN.ToolButton1Click(Sender: TObject);
begin
N12click(sender);
end;

procedure TFRM_MAIN.ToolButton2Click(Sender: TObject);
begin
N13click(sender);
end;

procedure TFRM_MAIN.ToolButton3Click(Sender: TObject);
begin
N14click(sender);
end;

procedure TFRM_MAIN.ToolButton14Click(Sender: TObject);
begin
N19click(sender);
end;

procedure TFRM_MAIN.ToolButton5Click(Sender: TObject);
begin
N20click(sender);
end;

procedure TFRM_MAIN.ToolButton6Click(Sender: TObject);
begin
N15click(sender);
end;

procedure TFRM_MAIN.ToolButton8Click(Sender: TObject);
begin
N16click(sender);
end;

procedure TFRM_MAIN.ToolButton13Click(Sender: TObject);
begin
close;
end;

end.
12

⌨️ 快捷键说明

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