updaters.~pas

人事管理

unit updaters;

interface

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

type
  Tfrmupdaters = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Panel1: TPanel;
    ygphoto: TImage;
    ToolBar1: TToolBar;
    btnmodify: TBitBtn;
    btndel: TBitBtn;
    btncancel: TBitBtn;
    GroupBox2: TGroupBox;
    dbgdshow: TDBGrid;
    dbednumber: TDBEdit;
    dbedname: TDBEdit;
    dbcbsex: TDBComboBox;
    dbcbhf: TDBComboBox;
    dbcbeducation: TDBComboBox;
    dbedposition: TDBEdit;
    dbedbirthday: TDBEdit;
    dbedbm: TDBEdit;
    dbedphone: TDBEdit;
    dbedrcrq: TDBEdit;
    dbedjy: TDBEdit;
    dbedjg: TDBEdit;
    dbedmz: TDBEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    dbedworksort: TDBEdit;
    btnsave: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure btndelClick(Sender: TObject);
    procedure btnmodifyClick(Sender: TObject);
    procedure btnsaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmupdaters: Tfrmupdaters;

implementation

{$R *.dfm}

procedure Tfrmupdaters.FormCreate(Sender: TObject);
begin
dbcbeducation.Text:='';
dbcbhf.Text:='';
dbcbsex.Text:='';
dbedbirthday.Text:='';
dbedbm.Text:='';
dbedjg.Text:='';
dbedjy.Text:='';
dbedmz.Text:='';
dbedname.Text:='';
dbednumber.Text:='';
dbedphone.Text:='';
dbedposition.Text:='';
dbedrcrq.Text:='';
dbedworksort.Text:='';
end;

procedure Tfrmupdaters.btncancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrmupdaters.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrmupdaters.FormShow(Sender: TObject);
begin
adoquery1.Active:=true;
dbgdshow.DataSource:=datasource1;
dbgdshow.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
dbgdshow.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
dbgdshow.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
dbgdshow.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+40;
dbgdshow.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
dbgdshow.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
end;
procedure Tfrmupdaters.btndelClick(Sender: TObject);
begin
if messagedlg('请确认删除数据记录吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
adoquery1.Delete;
end
else
adoquery1.Cancel;
end;

procedure Tfrmupdaters.btnmodifyClick(Sender: TObject);
begin
 if not (adoquery1.State in [dsedit]) then
     begin
       adoquery1.Edit;
       dbednumber.SetFocus;
     end;
end;

procedure Tfrmupdaters.btnsaveClick(Sender: TObject);
begin
 if adoquery1.State in [dsedit,dsinsert] then
    adoquery1.Post;
end;

end.