user.pas

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

unit user;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ToolWin, ComCtrls,db,dbtables;

type
  TUserForm = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure LoadFromtable;
    procedure SaveToTable;
  end;

var
  UserForm: TUserForm;
  Table1:TTable;
implementation

{$R *.dfm}

procedure TUserForm.FormActivate(Sender: TObject);
begin
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    Edit4.Text:='';
    Edit4.ReadOnly:=true;
    Edit4.TabStop:=false;
    Checkbox1.Checked:=false;
    Checkbox2.Checked:=false;
    Checkbox3.Checked:=false;
    edit4.text:=datetostr(date());
    Table1:=TTable.create(self);
    table1.DatabaseName:='rsgl';
    table1.TableName:='operator.db';
    table1.Open;
    if not Table1.Eof then
        LoadFromTable;
    Table1.Close;
    Radiobutton2.Checked:=true; 
end;

procedure TUserForm.SpeedButton1Click(Sender: TObject);
begin
  Table1:=TTable.create(self);
  table1.DatabaseName:='rsgl';
  table1.TableName:='operator.db';
  table1.Open;
  table1.setkey;
  Table1.FieldByName('name').asstring:=edit1.text;
  if table1.gotokey then
  begin
      if RadioButton1.Checked then
      begin
          Application.MessageBox('用户名相同，请检查！','提示信息',mb_ok);
          edit1.text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit1.SetFocus;
      end
      else if RadioButton2.Checked then
      begin
          Table1.edit;
          savetotable;
          table1.post;
      end
      else
      begin
          table1.edit;
          table1.Delete;
          table1.first;
          loadfromtable;
      end;
  end
  else
  begin
      if RadioButton1.Checked then
      begin
          Table1.Append;
          table1.edit;
          savetotable;
          table1.post;
      end
      else
      begin
          Application.MessageBox('没有该用户，请检查！','提示信息',mb_ok);
          edit1.text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit1.SetFocus;
      end;
  end;
  table1.close;
end;
procedure TUserForm.LoadFromtable;
begin
  Edit1.text:=Table1.FieldByName('name').asstring;
  Edit2.text:=Table1.FieldByName('password').asstring;
  Edit3.text:=Table1.FieldByName('department').asstring;
  Edit4.Text:=datetostr(table1.FieldByName('stamp').asdatetime);
  checkbox1.Checked:=table1.FieldByName('right_1').asboolean;
  checkbox2.Checked:=table1.FieldByName('right_2').asboolean;
  checkbox3.Checked:=table1.FieldByName('right_3').asboolean;
end;
procedure TUserForm.SaveToTable;
begin
  Table1.FieldByName('name').asstring:=edit1.text;
  Table1.FieldByName('password').asstring:=edit2.text;
  Table1.FieldByName('department').asstring:=edit3.text;
  table1.FieldByName('stamp').asdatetime:=strtodate(edit4.text);
  table1.FieldByName('right_1').asboolean:=checkbox1.Checked;
  table1.FieldByName('right_2').asboolean:=checkbox2.Checked;
  table1.FieldByName('right_3').asboolean:=checkbox3.Checked;
end;
procedure TUserForm.SpeedButton2Click(Sender: TObject);
begin
    Close;
end;

procedure TUserForm.RadioButton1Click(Sender: TObject);
begin
    edit1.text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:=datetostr(date());
    checkbox1.Checked:=false;
    checkbox2.Checked:=false;
    checkbox3.Checked:=false;
    edit1.SetFocus;
end;

procedure TUserForm.Edit1Exit(Sender: TObject);
begin
    if not RadioButton1.Checked then
    begin
        table1.open;
        table1.SetKey;
        Table1.FieldByName('name').asstring:=edit1.text;
        if not table1.gotokey then
        begin
               Application.MessageBox('没有该用户，请检查！','提示信息',mb_ok);
               edit1.SetFocus;
        end
        else
              loadfromtable;
    end;
    Table1.Close;
end;

end.