mainform.~pas

人事管理

unit mainform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Menus, jpeg, ExtCtrls, ImgList,shellapi, DB,
  ADODB;


type
  Tfrmmain = class(TForm)
    MainMenu1: TMainMenu;
    StatusBar1: TStatusBar;
    menusys: TMenuItem;
    menuedit: TMenuItem;
    menubasic: TMenuItem;
    menurs: TMenuItem;
    menugz: TMenuItem;
    menurep: TMenuItem;
    menuhelp: TMenuItem;
    menuuse: TMenuItem;
    menuabout: TMenuItem;
    mucompany: TMenuItem;
    Timer1: TTimer;
    ImageList1: TImageList;
    dataini: TMenuItem;
    databack: TMenuItem;
    N2: TMenuItem;
    datarepair: TMenuItem;
    N3: TMenuItem;
    adduser: TMenuItem;
    modrights: TMenuItem;
    modkey: TMenuItem;
    N5: TMenuItem;
    sysquit: TMenuItem;
    muemployer: TMenuItem;
    bmzl: TMenuItem;
    ygmove: TMenuItem;
    mukqzl: TMenuItem;
    mukqsettime: TMenuItem;
    mukqdj: TMenuItem;
    ydjz: TMenuItem;
    ywjz: TMenuItem;
    txjh: TMenuItem;
    N13: TMenuItem;
    tjxz: TMenuItem;
    ydtj: TMenuItem;
    nztj: TMenuItem;
    ygzlbb: TMenuItem;
    kqzlbb: TMenuItem;
    ygxzbb: TMenuItem;
    Image1: TImage;
    calcuate: TMenuItem;
    datefind: TMenuItem;
    mukqtj: TMenuItem;
    muoutmove: TMenuItem;
    muctyg: TMenuItem;
    kqfind: TMenuItem;
    N1: TMenuItem;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    tools: TToolBar;
    tbtrim: TToolButton;
    tbcopy: TToolButton;
    tbpaste: TToolButton;
    tbfind: TToolButton;
    tbfirst: TToolButton;
    tbprev: TToolButton;
    tbnext: TToolButton;
    tblast: TToolButton;
    tbexit: TToolButton;
    procedure sysquitClick(Sender: TObject);
    procedure tbexitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure menuaboutClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure mucompanyClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure datainiClick(Sender: TObject);
    procedure databackClick(Sender: TObject);
    procedure datarepairClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure adduserClick(Sender: TObject);
    procedure modrightsClick(Sender: TObject);
    procedure modkeyClick(Sender: TObject);
    procedure calcuateClick(Sender: TObject);
    procedure datefindClick(Sender: TObject);
    procedure muemployerClick(Sender: TObject);
    procedure bmzlClick(Sender: TObject);
    procedure ygmoveClick(Sender: TObject);
    procedure muoutmoveClick(Sender: TObject);
    procedure muctygClick(Sender: TObject);
    procedure mukqdjClick(Sender: TObject);
    procedure mukqzlClick(Sender: TObject);
    procedure mukqsettimeClick(Sender: TObject);
    procedure ygzlbbClick(Sender: TObject);
    procedure mukqtjClick(Sender: TObject);
    procedure kqfindClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure txjhClick(Sender: TObject);
    procedure ydjzClick(Sender: TObject);
    procedure ywjzClick(Sender: TObject);
    procedure ydtjClick(Sender: TObject);
    procedure nztjClick(Sender: TObject);
    procedure ygxzbbClick(Sender: TObject);
    procedure kqzlbbClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;
  pubuser:string;
  identify:string;
  companyname:string;
implementation

uses company, datarsgl, login, about, init, datarepair, usermanager,
  MonthCalendar, employee, kqmanage, showfindrs, rszhgl, kqdj, kqjbzlgl,
  kqsettime, rpemployeer, kqtj, ycfindkq, gzffbz, txgl, monthjzgl, yggzjs,
  monthendtj, prtjdrp, monthgzrp, kqzlrp;


{$R *.dfm}
procedure Tfrmmain.sysquitClick(Sender: TObject);
begin
if(application.MessageBox('确认退出系统吗?','提示',mb_okcancel))=1 then
application.Terminate;
end;

procedure Tfrmmain.tbexitClick(Sender: TObject);
begin
if(application.MessageBox('确认退出系统吗?','提示',mb_okcancel))=1 then
application.Terminate;
end;
procedure Tfrmmain.FormCreate(Sender: TObject);
begin
if 
if identify='系统管理员' then
    begin
    //frmmain.menugz.Enabled:=false;
    statusbar1.Panels.Items[0].Text:='欢迎使用人事管理系统';
    statusbar1.Panels.Items[1].Text:='用户名称:'+pubuser;
    statusbar1.Panels.Items[2].Text:='级别:'+identify;
    statusbar1.Panels.Items[3].Text:=datetostr(now);
    end
else
    begin
    //操作者应有的权限
    statusbar1.Panels.Items[0].Text:='欢迎使用人事管理系统';
    statusbar1.Panels.Items[1].Text:='用户名称:'+pubuser;
    statusbar1.Panels.Items[2].Text:='级别:'+identify;
    statusbar1.Panels.Items[3].Text:=datetostr(now);
    //设定其相应的菜单为FALSE状态
    dataini.Enabled:=false;
    adduser.Enabled:=false;
    modrights.Enabled:=false;
    modkey.Enabled:=false;
    mukqzl.Enabled:=false;
    end;
end;

procedure Tfrmmain.menuaboutClick(Sender: TObject);
begin
application.CreateForm(tfrmabout,frmabout);
frmabout.Show;
end;

procedure Tfrmmain.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels.Items[4].Text:=timetostr(time);
end;
procedure Tfrmmain.mucompanyClick(Sender: TObject);
begin
application.CreateForm(tfrmcompany,frmcompany);
frmcompany.Show;
end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin
dmrsgl.companyqry.Close;
dmrsgl.companyqry.SQL.Clear;
dmrsgl.companyqry.SQL.Add('select * from companytb');
dmrsgl.companyqry.Open;
if dmrsgl.companyqry.RecordCount<>0 then
frmmain.Caption:=dmrsgl.companyqry.fieldbyname('name').AsString+'人事管理系统';
end;

procedure Tfrmmain.datainiClick(Sender: TObject);
begin
application.CreateForm(tfrminit,frminit);
frminit.Show;
end;

procedure Tfrmmain.databackClick(Sender: TObject);
begin
application.CreateForm(tfrmdatarepair,frmdatarepair);
frmdatarepair.Show;
frmdatarepair.btnbak.SetFocus;
end;

procedure Tfrmmain.datarepairClick(Sender: TObject);
begin
application.CreateForm(tfrmdatarepair,frmdatarepair);
frmdatarepair.Show;
frmdatarepair.btnundo.SetFocus;
end;

procedure Tfrmmain.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
close;
end;

procedure Tfrmmain.adduserClick(Sender: TObject);
begin
application.CreateForm(tfrmusermanager,frmusermanager);
frmusermanager.Show;
frmusermanager.GroupBox2.Enabled:=false;
frmusermanager.GroupBox3.Enabled:=false;
frmusermanager.btnmdkey.Enabled:=false;
frmusermanager.btnmdright.Enabled:=false;
frmusermanager.ednewuser.SetFocus;
end;

procedure Tfrmmain.modrightsClick(Sender: TObject);
begin
application.CreateForm(tfrmusermanager,frmusermanager);
frmusermanager.Show;
frmusermanager.GroupBox2.Enabled:=false;
frmusermanager.GroupBox1.Enabled:=false;
frmusermanager.btnadduser.Enabled:=false;
frmusermanager.btnmdkey.Enabled:=false;
frmusermanager.cmbuser2.SetFocus;
end;

procedure Tfrmmain.modkeyClick(Sender: TObject);
begin
application.CreateForm(tfrmusermanager,frmusermanager);
frmusermanager.Show;
frmusermanager.GroupBox3.Enabled:=false;
frmusermanager.GroupBox1.Enabled:=false;
frmusermanager.btnadduser.Enabled:=false;
frmusermanager.btnmdright.Enabled:=false;
frmusermanager.cmbuser.SetFocus;
end;

procedure Tfrmmain.calcuateClick(Sender: TObject);
begin
shellexecute(handle,'open','calc.exe',nil,nil,sw_show);
end;

procedure Tfrmmain.datefindClick(Sender: TObject);
begin
application.CreateForm(tfrmmonthcalendar,frmmonthcalendar);
frmmonthcalendar.Show;
end;

procedure Tfrmmain.muemployerClick(Sender: TObject);
begin
application.CreateForm(tfrmemployee,frmemployee);
frmemployee.Show;
end;

procedure Tfrmmain.bmzlClick(Sender: TObject);
begin
application.CreateForm(tfrmbmzl,frmbmzl);
frmbmzl.Show;
end;

procedure Tfrmmain.ygmoveClick(Sender: TObject);
begin
frmrszhgl:=tfrmrszhgl.Create(self);
frmrszhgl.Show;
end;

procedure Tfrmmain.muoutmoveClick(Sender: TObject);
begin
frmrszhgl:=tfrmrszhgl.Create(self);
frmrszhgl.Show;
frmrszhgl.PageControl1.ActivePageIndex:=1;
frmrszhgl.edname1.Enabled:=false;
frmrszhgl.edsex1.Enabled:=false;
frmrszhgl.edbm1.Enabled:=false;
with dmrsgl.ygwptbqry do
begin
close;
sql.Clear;
sql.Add('select * from employeer');
open;
first;
while not eof do
begin
frmrszhgl.combobox2.Items.Add(fieldbyname('number').AsString);
next;   //下移动符值
end;
end;
end;

procedure Tfrmmain.muctygClick(Sender: TObject);
begin
frmrszhgl:=tfrmrszhgl.Create(self);
frmrszhgl.Show;
frmrszhgl.PageControl1.ActivePageIndex:=2;
frmrszhgl.edname3.Enabled:=false;
frmrszhgl.edsex3.Enabled:=false;
frmrszhgl.edposition.Enabled:=false;
frmrszhgl.edbm3.Enabled:=false;
frmrszhgl.edctdate.Text:=formatdatetime('yyyy-mm-dd',now);
with dmrsgl.ygwptbqry do
begin
close;
sql.Clear;
sql.Add('select * from employeer');
open;
first;
while not eof do
begin
frmrszhgl.combobox3.Items.Add(fieldbyname('number').AsString);
next;   //下移动符值
end;
end;
end;

procedure Tfrmmain.mukqdjClick(Sender: TObject);
begin
frmkqdj:=tfrmkqdj.Create(self);
frmkqdj.Show;
end;

procedure Tfrmmain.mukqzlClick(Sender: TObject);
begin
frmkqjbzlgl:=tfrmkqjbzlgl.Create(self);
frmkqjbzlgl.Show;
end;

procedure Tfrmmain.mukqsettimeClick(Sender: TObject);
begin
frmkqsettime:=tfrmkqsettime.Create(self);
frmkqsettime.Show;
end;

procedure Tfrmmain.ygzlbbClick(Sender: TObject);
begin
with tfrmrpemployeer.Create(self) do
begin
quickrep1.Preview;
end;
end;

procedure Tfrmmain.mukqtjClick(Sender: TObject);
begin
with tfrmkqtj.Create(self) do
begin
show;
end; 
end;

procedure Tfrmmain.kqfindClick(Sender: TObject);
begin
with tfrmycfindkq.Create(self) do
begin
show;
end; 
end;

procedure Tfrmmain.N1Click(Sender: TObject);
begin
with tfrmgzffbz.Create(self) do
begin
show;
end; 
end;

procedure Tfrmmain.txjhClick(Sender: TObject);
begin
with tfrmtxgl.Create(self) do
begin
show;
end; 
end;

procedure Tfrmmain.ydjzClick(Sender: TObject);
begin
with tfrmmonthjzgl.Create(self) do
begin
show;
end;
end;

procedure Tfrmmain.ywjzClick(Sender: TObject);
begin
with tfrmyggzjs.Create(self) do
begin
show;
end; 
end;

procedure Tfrmmain.ydtjClick(Sender: TObject);
begin
with tfrmmonthendtj.Create(self) do
begin
show;
end; 
end;

procedure Tfrmmain.nztjClick(Sender: TObject);
begin
with tfrmprtjdrp.Create(self) do
begin
show;
end; 
end;

procedure Tfrmmain.ygxzbbClick(Sender: TObject);
begin
with tfrmmonthgzrp.Create(self) do
begin
adoquery1.Active:=true;
quickrep1.DataSet:=adoquery1;
qrdbtext1.DataSet:=adoquery1;
qrdbtext1.DataField:='number';
qrdbtext3.DataSet:=adoquery1;
qrdbtext3.DataField:='ygbm';
qrdbtext4.DataSet:=adoquery1;
qrdbtext4.DataField:='gzze';
qrdbtext5.DataSet:=adoquery1;
qrdbtext5.DataField:='kcgz';
qrdbtext6.DataSet:=adoquery1;
qrdbtext6.DataField:='sjgz';
qrdbtext2.DataSet:=adoquery1;
qrdbtext2.DataField:='name';
quickrep1.Preview;
end;
end;

procedure Tfrmmain.kqzlbbClick(Sender: TObject);
begin
with tfrmkqzlrp.Create(self)do
begin
adoquery2.Active:=true;
quickrep1.DataSet:=adoquery2;
qrdbtext1.DataSet:=adoquery2;
qrdbtext1.DataField:='number';
qrdbtext2.DataSet:=adoquery2;
qrdbtext2.DataField:='name';
qrdbtext3.DataSet:=adoquery2;
qrdbtext3.DataField:='sex';
qrdbtext4.DataSet:=adoquery2;
qrdbtext4.DataField:='ygbm';
qrdbtext5.DataSet:=adoquery2;
qrdbtext5.DataField:='ygcdcs';
qrdbtext6.DataSet:=adoquery2;
qrdbtext6.DataField:='ygztcs';
qrdbtext7.DataSet:=adoquery2;
qrdbtext7.DataField:='ygkgcs';
qrdbtext8.DataSet:=adoquery2;
qrdbtext8.DataField:='ygfdjrcs';
qrdbtext9.DataSet:=adoquery2;
qrdbtext9.DataField:='ygqjcs';
quickrep1.Preview;
end;
end;

end.