operatormanage.pas

这是工资管理系统,能够应用于各种类型的企业。

unit operatormanage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, DB, DBTables;

type
  TOperatorManageForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label4: TLabel;
    Edit4: TEdit;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Table1: TTable;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OperatorManageForm: TOperatorManageForm;
    i:integer;
implementation

{$R *.dfm}

procedure TOperatorManageForm.FormActivate(Sender: TObject);
begin
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    Edit4.Text:='';
    Edit4.Enabled:=false;
    RadioButton1.checked:=true;
    i:=3;
    if not FileExists('operator.db') then
    begin
            Application.MessageBox('用户数据库丢失，请退出！','提示信息',MB_OK);
            close;
    end;
    Table1.DatabaseName:='gzgl';
    Table1.TableName:='operator';
end;

procedure TOperatorManageForm.BitBtn2Click(Sender: TObject);
begin
    Close;
end;

procedure TOperatorManageForm.RadioButton1Click(Sender: TObject);
begin
      Edit1.SetFocus;
end;

procedure TOperatorManageForm.BitBtn1Click(Sender: TObject);
begin
              Table1.Active:=true;
              if RadioButton1.Checked then
              begin
                    with Table1 do
                    begin
                         Append;
                         edit;
               FieldByname('name').AsString:=Edit1.Text;
               FieldByname('password').AsString:=Edit2.Text;
               FieldByname('department').AsString:=Edit3.Text;
               FieldByname('time').AsDateTime:=StrToDate(Edit4.Text);
               FieldByname('Right_1').AsBoolean:=CheckBox1.Checked;
               FieldByname('Right_2').AsBoolean:=CheckBox2.Checked;
               FieldByname('Right_3').AsBoolean:=CheckBox3.Checked;
               post;
          end;
      end
      else if RadioButton2.Checked then
      begin
            Table1.Delete;
            Edit1.SetFocus;
      end
      else
      begin
               with Table1 do
               begin
                   Active:=true;
                   editkey;
                   FieldByname('name').AsString:=Edit1.Text;
                   GotoKey;
                   edit;
                   FieldByname('password').AsString:=Edit2.Text;
                   FieldByname('department').AsString:=Edit3.Text;
                   FieldByname('time').AsDateTime:=StrToDate(Edit4.Text);
                   FieldByname('Right_1').AsBoolean:=CheckBox1.Checked;
                   FieldByname('Right_2').AsBoolean:=CheckBox2.Checked;
                   FieldByname('Right_3').AsBoolean:=CheckBox3.Checked;
                   post;
               end;
      end;
      Table1.Active:=false;
      Edit1.Text:='';
      Edit2.Text:='';
      Edit3.Text:='';
      Edit4.Text:='';
      CheckBox1.Checked:=false;
      CheckBox2.Checked:=false;
      CheckBox3.Checked:=false;
end;

procedure TOperatorManageForm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
          if (Key=13) or (Key=VK_Tab) then
          begin
                Table1.Active:=true;
                Table1.EditKey;
                Table1.FieldByName('name').AsString:=Edit1.Text;
                Table1.GotoKey;
                if Table1.FieldByName('name').AsString=Edit1.Text then
                begin
                    if RadioButton1.Checked=true then
                    begin
                          Application.MessageBox('该用户存在，请重新输入！','提示信息',MB_OK);
                          Edit1.SetFocus;
                    end
                    else
                    begin
                          Edit2.Text:=Table1.FieldByname('password').AsString;
                          Edit3.Text:=Table1.FieldByname('department').AsString;
                          CheckBox1.checked:=Table1.FieldByname('Right_1').AsBoolean;
                          CheckBox2.checked:=Table1.FieldByname('Right_2').AsBoolean;
                          CheckBox3.checked:=Table1.FieldByname('Right_3').AsBoolean;
                          Edit4.Text:=DateToStr(date());
                          Edit2.SetFocus;
                    end;
              end
              else
              begin
                    if RadioButton2.Checked or RadioButton3.Checked then
                          Application.MessageBox('该用户不存在，请重新输入！','提示信息',MB_OK)
                   else
                   BEGIN
                        Edit2.SetFocus;
                        Edit4.Text:=DateToStr(Date());
                   end;
         end;
         Table1.Active:=false;
    end;
end;

end.