gz_inunit.pas

DELPHI 编写的人事管理系统,根据职工查询各种信息

unit GZ_InUnit;

interface

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

type
  TGZ_InForm = class(TForm)
    GroupBox5: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Panel1: TPanel;
    Label8: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    BitBtn7: TBitBtn;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GZ_InForm: TGZ_InForm;

implementation
 uses Login_Unit;
{$R *.dfm}

procedure TGZ_InForm.BitBtn6Click(Sender: TObject);
begin
close;
end;

procedure TGZ_InForm.BitBtn4Click(Sender: TObject);
begin
  ADOTable1.Prior;
  if self.ADOTable1.Bof then
     BitBtn4.Enabled:=false;
  BitBtn5.Enabled:=true;
end;

procedure TGZ_InForm.BitBtn5Click(Sender: TObject);
begin
  ADOTable1.Next;
  if self.ADOTable1.Eof then
     BitBtn5.Enabled:=false;
  BitBtn4.Enabled:=true;
end;

procedure TGZ_InForm.BitBtn1Click(Sender: TObject);
begin
BitBtn2.Enabled:=true;
self.DBEdit1.Clear;
self.DBEdit1.SetFocus;
self.DBEdit2.Clear;
self.DBEdit3.Clear;
self.DBEdit4.Clear;
self.DBEdit5.Clear;
self.DBEdit6.Clear;
self.DBEdit7.Clear;
self.DBEdit8.Clear;
self.DBEdit9.Clear;
self.DBEdit10.Clear;
self.DBEdit11.Clear;
self.DBEdit12.Clear;
self.ADOTable1.Append;

end;

procedure TGZ_InForm.BitBtn2Click(Sender: TObject);
begin
   try
     begin
        self.ADOTable1.Post;
        MessageDlg('保存成功!',mtInformation,[mbOk],0);
        self.BitBtn2.Enabled:=false;
        self.ADOTable1.Append;
        self.DBEdit1.SetFocus;
        self.DBEdit1.Clear;
        self.DBEdit2.Clear;
     end;
   except
     begin
       if self.DBEdit1.Text='' then
          MessageDlg('职工编号不能为空！',mtInformation,[mbOk],0)
        else
          MessageDlg('职工编号重复！',mtInformation,[mbOk],0);
       self.DBEdit1.Clear;
       self.DBEdit1.SetFocus;
       self.DBEdit2.Clear;
     end;
    end;
end;

procedure TGZ_InForm.BitBtn3Click(Sender: TObject);
begin
   try
     begin
       self.ADOTable1.Delete;
       MessageDlg('删除成功!',mtInformation,[mbOK],0);
     end;
   except
     MessageDlg('删除出错!',mtInformation,[mbOK],0);
   end;
end;

procedure TGZ_InForm.BitBtn7Click(Sender: TObject);
begin
Self.DBEdit12.Text:=Floattostr(strtoFloat(self.DBEdit3.Text)+strtoFloat(self.DBEdit4.Text)+strtoFloat(self.DBEdit5.Text)+strtoFloat(self.DBEdit6.Text)+strtoFloat(self.DBEdit7.Text)+strtoFloat(self.DBEdit8.Text)+strtoFloat(self.DBEdit9.Text)+strtoFloat(self.DBEdit10.Text)+strtoFloat(self.DBEdit11.Text));
//BitBtn2.Enabled:=true;
end;

end.