main.pas

一个DELPHI的人事管理系统,具有一般人事管理系统的基本功能

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ToolWin, ComCtrls, Menus,checkuser,user,changepassword,dbtables,rsxx,seek;

type
  TMain_Form = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    procedure N8Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main_Form: TMain_Form;
  username,password:string;
  qx1,qx2,qx3:boolean;
implementation

{$R *.dfm}

procedure TMain_Form.N8Click(Sender: TObject);
begin
    Close;
end;

procedure TMain_Form.FormActivate(Sender: TObject);
begin
    //用户检测初始化
    username:='';
    password:='';
    qx1:=false;
    qx2:=false;
    qx3:=false;
    checkuserform.ShowModal();
    if username<>'' then
    begin
        //管理员权限
        if qx1=true then
        begin
          n4.Enabled:=true;
          n6.Enabled:=true;
          speedbutton1.Enabled:=true;
          speedbutton3.Enabled:=true;
        end
        else
        begin
          n4.Enabled:=false;
          n6.Enabled:=false;
          speedbutton1.Enabled:=false;
          speedbutton3.Enabled:=false;
        end;
        //操作员权限
        if qx2=true then
        begin
          n2.Enabled:=true;
          speedbutton4.enabled:=true;
        end
        else
        begin
          n3.Enabled:=false;
          speedbutton4.enabled:=false;
        end;
        //查询权限
        if qx3=true then
        begin
          n3.Enabled:=true;
          speedbutton5.enabled:=true;
        end
        else
        begin
          n3.Enabled:=false;
          speedbutton5.enabled:=false;          
        end;
    end
    else
        close;
end;

procedure TMain_Form.N4Click(Sender: TObject);
begin
    UserForm.ShowModal(); 
end;

procedure TMain_Form.N5Click(Sender: TObject);
begin
    PasswordChangeForm.ShowModal();
end;

procedure TMain_Form.N6Click(Sender: TObject);
var
  Table1:TTable;
begin
  Table1:=TTable.create(self);
  table1.DatabaseName:='rsgl';
  //初始化Operator.db
  Table1.TableName:='Operator.db';
  table1.EmptyTable;
  Table1.open;
  Table1.Append;
  Table1.FieldByName('name').asstring:='admin';
  Table1.FieldByName('password').asstring:='admin';
  Table1.FieldByName('department').asstring:='网管中心';
  Table1.FieldByName('stamp').asdatetime:=date();
  Table1.FieldByName('right_1').asboolean:=true;
  Table1.FieldByName('right_2').asboolean:=true;
  Table1.FieldByName('right_3').asboolean:=true;
  Table1.post;
  Table1.Close;
  //初始化Info.db
  Table1.TableName:='info.db';
  Table1.EmptyTable;
  Application.MessageBox('初始化结束！','提示信息',mb_ok); 
end;

procedure TMain_Form.N2Click(Sender: TObject);
begin
      Info_Form.ShowModal();
end;

procedure TMain_Form.N3Click(Sender: TObject);
begin
    SeekForm.ShowModal();
end;

end.