?? u_main.pas

?? delphi做的管理信息系統
?? PAS
字號:
unit U_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ExtCtrls, ShellApi, Buttons, jpeg,
  StdCtrls;

type
  Tfrm_main = class(TForm)
    MainMenu1: TMainMenu;
    txxi1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ToolButton2: TToolButton;
    SpeedButton6: TSpeedButton;
    N26: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    SaveDialog1: TSaveDialog;
    N32: TMenuItem;
    SpeedButton7: TSpeedButton;
    ToolButton3: TToolButton;
    StatusBar1: TStatusBar;
    N3: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N38: TMenuItem;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    SpeedButton3: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    N50: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    OpenDialog1: TOpenDialog;
    procedure N57Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    log:integer;
  end;

var
  frm_main: Tfrm_main;

implementation

uses U_bmxx, U_gzxx, U_pxkc, U_khxm, U_htlx, U_pylx, U_zcxx, U_whcd,
  U_zzmm, U_mzxx, U_xygdj, U_ygdd, U_yglz, U_ygfz, U_kqlr, U_sl, U_khgl,
  U_ygxxll, U_dwxx, U_htgl, U_data, U_flash, U_cxsz, U_gzsz, U_gzb, U_gzda,
  U_xgmm, U_czy, U_login, U_yp, U_ypll, U_about, U_zwxx;

{$R *.dfm}

procedure Tfrm_main.N57Click(Sender: TObject);
begin
ShellExecute(handle,'open','notepad.exe',Nil,Nil,SW_SHOWNORMAL);
end;

procedure Tfrm_main.N58Click(Sender: TObject);
begin
ShellExecute(handle,'open','calc.exe',Nil,Nil,SW_SHOWNORMAL);
end;

procedure Tfrm_main.N14Click(Sender: TObject);
begin
application.CreateForm(Tfrm_bmxx,frm_bmxx);
frm_bmxx.ShowModal;
frm_bmxx.Free;
end;

procedure Tfrm_main.SpeedButton6Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要退出系統嗎？','人力資源管理系統',mb_yesno+mb_iconquestion)=idyes then
application.Terminate;
end;

procedure Tfrm_main.N15Click(Sender: TObject);
begin
application.CreateForm(Tfrm_gzxx,frm_gzxx);
frm_gzxx.ShowModal;
frm_gzxx.Free;
end;

procedure Tfrm_main.N22Click(Sender: TObject);
begin
application.CreateForm(Tfrm_sl,frm_sl);
frm_sl.ShowModal;
frm_sl.Free;
end;

procedure Tfrm_main.N23Click(Sender: TObject);
begin
application.CreateForm(Tfrm_kqxx,frm_kqxx);
frm_kqxx.ShowModal;
frm_kqxx.Free;
end;

procedure Tfrm_main.N24Click(Sender: TObject);
begin
application.CreateForm(Tfrm_gzsz,frm_gzsz);
frm_gzsz.ShowModal;
frm_gzsz.Free;
end;

procedure Tfrm_main.N25Click(Sender: TObject);
begin
application.CreateForm(Tfrm_gzb,frm_gzb);
frm_gzb.ShowModal;
frm_gzb.Free;
end;

procedure Tfrm_main.N16Click(Sender: TObject);
begin
application.CreateForm(Tfrm_zcxx,frm_zcxx);
frm_zcxx.ShowModal;
frm_zcxx.Free;
end;

procedure Tfrm_main.N18Click(Sender: TObject);
begin
application.CreateForm(Tfrm_whcd,frm_whcd);
frm_whcd.ShowModal;
frm_whcd.Free;
end;

procedure Tfrm_main.N19Click(Sender: TObject);
begin
application.CreateForm(Tfrm_zzmm,frm_zzmm);
frm_zzmm.ShowModal;
frm_zzmm.Free;
end;

procedure Tfrm_main.N20Click(Sender: TObject);
begin
application.CreateForm(Tfrm_mzxx,frm_mzxx);
frm_mzxx.ShowModal;
frm_mzxx.Free;
end;

procedure Tfrm_main.N27Click(Sender: TObject);
begin
application.CreateForm(Tfrm_xygdj,frm_xygdj);
frm_xygdj.ShowModal;
frm_xygdj.Free;
end;

procedure Tfrm_main.N28Click(Sender: TObject);
begin
application.CreateForm(Tfrm_ygdd,frm_ygdd);
frm_ygdd.ShowModal;
frm_ygdd.Free;
end;

procedure Tfrm_main.N29Click(Sender: TObject);
begin
application.CreateForm(Tfrm_yglz,frm_yglz);
frm_yglz.ShowModal;
frm_yglz.Free;
end;

procedure Tfrm_main.N30Click(Sender: TObject);
begin
application.CreateForm(Tfrm_ygfz,frm_ygfz);
frm_ygfz.ShowModal;
frm_ygfz.Free;
end;

procedure Tfrm_main.N36Click(Sender: TObject);
begin
application.CreateForm(Tfrm_khgl,frm_khgl);
frm_khgl.ShowModal;
frm_khgl.Free;
end;

procedure Tfrm_main.N26Click(Sender: TObject);
begin
application.CreateForm(Tfrm_ygxill,frm_ygxill);
frm_ygxill.ShowModal;
frm_ygxill.Free;
end;

procedure Tfrm_main.N7Click(Sender: TObject);
begin
application.CreateForm(Tfrm_dwxx,frm_dwxx);
frm_dwxx.ShowModal;
frm_dwxx.Free;
end;

procedure Tfrm_main.N37Click(Sender: TObject);
begin
application.CreateForm(Tfrm_htgl,frm_htgl);
frm_htgl.ShowModal;
frm_htgl.Free;
end;

procedure Tfrm_main.SpeedButton4Click(Sender: TObject);
var
save:string;
begin
savedialog1.Filter:='備份文件(*.bak)|*.bak';
savedialog1.Title:='請選擇備份路徑';
if savedialog1.Execute then
   begin
      save:=savedialog1.FileName;
   end;
if save<>'' then
   begin
      with data1.ADOpublic do
         begin
            try
            screen.Cursor:=crHourGlass;
            close;
            sql.Clear;
            sql.Add(' BACKUP DATABASE '+'db_manpowerinfo'+ '  TO DISK =''' +save+'''');
            execsql;
            screen.Cursor:=crdefault;
            application.MessageBox('數據備份成功','提示',0+64);
            except
            screen.Cursor:=crdefault;
            application.MessageBox('數據庫備份失敗，請檢查備份的路徑或網絡狀態！','數據庫備份',0+mb_iconinformation);
            end;
         end;
   end;
end;

procedure Tfrm_main.SpeedButton5Click(Sender: TObject);
var
  dir : string;
begin
  try
    if OpenDialog1.Execute then
     begin
        dir:=OpenDialog1.FileName;

        With data1.ADOQuery1 do
        begin
          Close;
          SqL.Clear;
          SQL.Add('use master restore database db_manpowerinfo from disk='+''''+dir+'''');
          ExecSQL;
          Close;
          SqL.Clear;
          SQL.Add('use  db_manpowerinfo ');
          ExecSQL ;
        end;

        showmessage('恢復成功');
     end;
  except
    showmessage('恢復失敗');
  end;
end;

procedure Tfrm_main.N10Click(Sender: TObject);
begin
application.CreateForm(Tfrm_login,frm_login);
frm_login.ShowModal;
frm_login.Free;

end;

procedure Tfrm_main.N32Click(Sender: TObject);
begin
application.CreateForm(Tfrm_gzll,frm_gzll);
frm_gzll.ShowModal;
frm_gzll.Free;
end;

procedure Tfrm_main.N9Click(Sender: TObject);
begin
application.CreateForm(Tfrm_xgmm,frm_xgmm);
frm_xgmm.ShowModal;
frm_xgmm.Free;
end;

procedure Tfrm_main.SpeedButton1Click(Sender: TObject);
begin
N27.Click;
end;

procedure Tfrm_main.SpeedButton2Click(Sender: TObject);
begin
N3.Click;
end;

procedure Tfrm_main.N8Click(Sender: TObject);
begin
application.CreateForm(Tfrm_gly,frm_gly);
frm_gly.ShowModal;
frm_gly.Free;
end;

procedure Tfrm_main.FormShow(Sender: TObject);
begin
log:=0;
toolbar1.SetFocus;
application.CreateForm(Tfrm_login,frm_login);
frm_login.ShowModal;
frm_login.free;  
end;

procedure Tfrm_main.SpeedButton7Click(Sender: TObject);
begin
application.CreateForm(Tfrm_dwxx,frm_dwxx);
frm_dwxx.ShowModal;
frm_dwxx.Free;
end;

procedure Tfrm_main.N11Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要退出系統嗎？','人力資源管理系統',mb_yesno+mb_iconquestion)=idyes then
application.Terminate;
end;

procedure Tfrm_main.N3Click(Sender: TObject);
begin
application.CreateForm(Tfrm_yp,frm_yp);
frm_yp.ShowModal;
frm_yp.Free;
end;

procedure Tfrm_main.N33Click(Sender: TObject);
begin
application.CreateForm(Tfrm_ypll,frm_ypll);
frm_ypll.ShowModal;
frm_ypll.Free;
end;

procedure Tfrm_main.N59Click(Sender: TObject);
begin
application.CreateForm(Tfrm_about,frm_about);
frm_about.ShowModal;
frm_about.Free;
end;

procedure Tfrm_main.N38Click(Sender: TObject);
begin
application.CreateForm(Tfrm_zwxx,frm_zwxx);
frm_zwxx.ShowModal;
frm_zwxx.Free;
end;

procedure Tfrm_main.BitBtn6Click(Sender: TObject);
begin
N24.Click;
end;

procedure Tfrm_main.SpeedButton3Click(Sender: TObject);
begin
N28.Click;
end;

procedure Tfrm_main.SpeedButton8Click(Sender: TObject);
begin
N29.Click;
end;

procedure Tfrm_main.SpeedButton9Click(Sender: TObject);
begin
N30.Click;
end;

procedure Tfrm_main.SpeedButton11Click(Sender: TObject);
begin
N24.Click;
end;

procedure Tfrm_main.SpeedButton10Click(Sender: TObject);
begin
N25.Click;
end;

procedure Tfrm_main.N50Click(Sender: TObject);
begin
speedbutton4.Click;
end;

procedure Tfrm_main.N39Click(Sender: TObject);
begin
speedbutton5.Click;
end;

procedure Tfrm_main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if application.MessageBox('真的要退出系統嗎？','人力資源管理系統',mb_yesno)=id_no then
    canclose := False;
end;

end.
?? 文件大小 2812 K
?? 上傳用戶 hwyzy
?? 所屬分類 Delphi控件源碼
??? 相關標簽

#delphi #管理信息系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? u_main.pas

?? 快捷鍵說明
