📄 umain.pas

📁 delphi 开发的完整的仓库管理系统（带数据库）
💻 PAS
字号:
unit UMAIN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, XPMan, ExtCtrls, jpeg, StdCtrls,shellapi;
type
    UserInfo = record
    UserID: string;
    UserName: string;
  end;
type
  TMAIN = class(TForm)
    Image1: TImage;
    SpeedButton6: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    Auser:UserInfo;
    { Public declarations }
  end;

var
  MAIN: TMAIN;
  ActionCD:string;
implementation

uses UGYSXX, UDM, ULOGIN, USC, USPCKXX, USPKCCX, USPRKXX, USPJBXX,
  UGYSXX_Z, USPJBXX_Z, USPRKXX_Z, USPCKXX_Z, UABOUT, USJBF, USJHF, UMMXG;

{$R *.dfm}

procedure TMAIN.SpeedButton6Click(Sender: TObject);
begin
  CLOSE;
end;

procedure TMAIN.SpeedButton1Click(Sender: TObject);
begin             //通过获取屏幕分辨率，控制窗体在桌面的位置
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Application.CreateForm(TGYSXX_Z,GYSXX_Z);
      GYSXX_Z.Left:=0;
      GYSXX_Z.Width:=800;
      GYSXX_Z.Top:=0;
      GYSXX_Z.Height:=566;
      ActionCD:='M';
      GYSXX_Z.ShowModal;
      GYSXX_Z.Free;
    end;
    if (Screen.Width=1024) and ( Screen.Height=768) then
    begin
      Application.CreateForm(TGYSXX_Z,GYSXX_Z);
      GYSXX_Z.Width:=800;
      GYSXX_Z.Height:=566;
      GYSXX_Z.Position:=poDesktopCenter;
      ActionCD:='M';
      GYSXX_Z.ShowModal;
      GYSXX_Z.Free;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600','提示！',0+64);
    exit;
  end;
end;

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

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

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

procedure TMAIN.SpeedButton5Click(Sender: TObject);
begin
  Application.CreateForm(TSPKCCX,SPKCCX);
  SPKCCX.ShowModal;
  SPKCCX.Free;
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.FormCreate(Sender: TObject);
begin
  try
    if (Screen.Width=800) and (Screen.Height=600) then
    begin
      Main.Left:=0;
      Main.Width:=800;
      Main.Top:=0;
      Main.Height:=566;
    end;
    if (Screen.Width=1024) and ( Screen.Height=768) then
    begin
      Main.Width:=800;
      Main.Height:=566;
      Main.Position:=poDesktopCenter;
    end;
  except
    Application.MessageBox('请正确选择屏幕分辨率：1024X768 或 800X600 !','提示！',0+64);
    exit;
  end;
end;

procedure TMAIN.SpeedButton7Click(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.Q do
        begin
          try
            Screen.Cursor := crHourGlass;
            DM.Q.Close;
            DM.Q.SQL.Clear;
            DM.Q.SQL.Add(' BACKUP DATABASE '+'CKGL'+ '  TO DISK =''' +Str_Path+'''');
            DM.Q.ExecSQL();
            Screen.Cursor := crDefault;
            Application.MessageBox('数据库备份成功完成','数据库备份',0+mb_iconinformation);
         except
            Screen.Cursor := crDefault;
            Application.MessageBox('数据库备份失败！请检查备份路径或网络状态','数据库备份',0+mb_iconinformation);
            exit;
          end;
        end;
    end; }
begin

  Application.CreateForm(TSJBF,SJBF);
  SJBF.ShowModal;
  SJBF.Free;      
end;

procedure TMAIN.SpeedButton8Click(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.Q do
    begin
    try
      try
        Screen.Cursor := crHourGlass;
        DM.Q.Close;
        DM.Q.SQL.Clear;
        DM.Q.SQL.Add('use master restore  DATABASE '+'CKGL'+ '  from DISK =''' +Str_Path+'''');
        DM.Q.ExecSQL();
        Screen.Cursor := crDefault;
        Application.MessageBox('数据库恢复成功完成!','数据库恢复',0+mb_iconinformation);
      except
        Screen.Cursor := crDefault;
        Application.MessageBox('数据库恢复失败！请检查备份路径或网络状态','数据库恢复',0+mb_iconinformation);
        exit;
      end;
      Finally
        with DM.Qsjcsh do
          begin
            Close;
            SQL.Clear;
            SQL.Add('USE CKGL');
            ExecSQL;
          end;
      end;
    end;
  end;      }
begin
  Application.CreateForm(TSJHF,SJHF);
  SJHF.ShowModal;
  SJHF.Free; 
end;

procedure TMAIN.SpeedButton9Click(Sender: TObject);
begin        //记事本
  ShellExecute(handle,'open','notepad.exe',nil,nil,sw_shownormal);
end;

procedure TMAIN.SpeedButton10Click(Sender: TObject);
begin       //计算器
  ShellExecute(handle,'open','calc.exe',nil,nil,sw_shownormal);
end;

procedure TMAIN.SpeedButton11Click(Sender: TObject);
begin
  Application.CreateForm(TABOUT,ABOUT);
  ABOUT.ShowModal;
  ABOUT.Free;
end;

procedure TMAIN.SpeedButton12Click(Sender: TObject);
begin
  Application.CreateForm(TMMXG,MMXG);
  MMXG.ShowModal;
  MMXG.Free;
end;

procedure TMAIN.Timer1Timer(Sender: TObject);
begin
//  Label2.Caption:='操作员：'+Auser.UserName;
  Label1.Caption:='系统时间：'+DateTimeToStr(now);
end;

end.
⌨️ 快捷键说明

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