main.pas

该源码采用DELPHI语言,主要实现了对员工信息管理的功能.

unit Main;

interface

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

type
  TForm3 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    N9: TMenuItem;
    t1: TMenuItem;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Label2: TLabel;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    Image1: TImage;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure t1Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form3: TForm3;

implementation

uses  Access, Password, Welcome, Scan, StudentAdd, Modify, Help, Message,
  Message1, Data, Unit13,Unit14,Unit16,Unit17,Unit18,Unit19,Unit20,Unit21,
  Unit22, Unit23, Unit24;

{$R *.dfm}

procedure TForm3.FormShow(Sender: TObject);
var x:string ;

begin             //显示当前登陆人员
    statusbar1.Panels[0].Width:=250;
    statusbar1.Panels[1].Width:=350;
    StatusBar1.Panels[0].Text:='欢迎使用员工信息管理系统';
    StatusBar1.Panels[1].Text:='当前登录系统人员：'+user;
    with ADOquery1 do
    begin
    datetimepicker1.date:=date;
     x:=FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date);
     label1.Caption :=x;
    //
    sql.Clear;
    sql.add('select 每日提醒 from tixing where 提醒日期=''' + FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date) + '''');
     Open;
    if RecordCount<>0 then
      label2.Caption :=FieldValues['每日提醒']
   else
    showmessage('无提醒');
    end;
end;




procedure TForm3.Timer1Timer(Sender: TObject);
begin        //显示当前日期和时间
StatusBar1.Panels[2].Text:='现在的日期是:'+datetostr(date)+'   时间是: '+timetostr(time);
end;

procedure TForm3.N2Click(Sender: TObject);
begin
Form4.show;
end;

procedure TForm3.N4Click(Sender: TObject);
begin
    if messagedlg('真的要退出系统吗？',mtconfirmation,[mbYes,mbNo],0)=mryes then
    form1.close;
end;

procedure TForm3.N5Click(Sender: TObject);
begin
Form5.show;
end;

procedure TForm3.N6Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
Form6.show;
end;
end;

procedure TForm3.N7Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
form7.show;
end;
end;

procedure TForm3.N8Click(Sender: TObject);
begin
Form9.show;
end;

procedure TForm3.N9Click(Sender: TObject);
begin      //根据身份不同，显示不同的界面
if flag1 = true then    Form11.show;
if flag2 = true then    Form10.Show;

end;

procedure TForm3.N3Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
Form8.show;
end;
end;
procedure TForm3.DateTimePicker1Change(Sender: TObject);
begin
with ADOQuery1 do
begin
  sql.Clear;
  sql.add('select 每日提醒 from rc where 提醒日期=''' + FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date) + '''');
   Open;
   if RecordCount<>0 then
      label2.Caption :=FieldValues['每日提醒']
   else
    label2.Caption :='无提醒';
    end;
end;


procedure TForm3.t1Click(Sender: TObject);
begin
      Form13.show
end;

procedure TForm3.N11Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
Form14.show;
end;
end;

procedure TForm3.N12Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
Form16.show;
end;
end;

procedure TForm3.N14Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
Form17.show;
end;
end;

procedure TForm3.N15Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
Form18.show;
end;
end;

procedure TForm3.N17Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
Form19.show;
end;
end;

procedure TForm3.N18Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
Form20.show;
end;
end;

procedure TForm3.N19Click(Sender: TObject);
begin
form21.show;
end;

procedure TForm3.N21Click(Sender: TObject);
begin
 if flag2 = true then showmessage('你没有权限！')
else
begin
Form22.show;
end;
end;

procedure TForm3.N22Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
Form23.show;
end;
end;

procedure TForm3.N23Click(Sender: TObject);
begin
if flag2 = true then showmessage('你没有权限！')
else
begin
Form24.show;
end;
end;

end.