xiugai.pas

职工档案管理设计主要实现对企业人员基本情况的档案的操作

unit xiugai;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, DB, ADODB;

type
  Txg05210_xiug = class(TForm)
    GroupBox1: TGroupBox;
    lblzgh1: TLabel;
    edtzgh1: TEdit;
    edtxm1: TEdit;
    btncx: TButton;
    edtzgh2: TEdit;
    edtxm2: TEdit;
    edtsfzh: TEdit;
    edtqt: TEdit;
    edtlxdh: TEdit;
    edtjtzz: TEdit;
    edtjg: TEdit;
    cbbxb: TComboBox;
    atpcsrq: TDateTimePicker;
    lblcsrq: TLabel;
    lbljg: TLabel;
    lbljtzz: TLabel;
    lbllxdh: TLabel;
    lblqt: TLabel;
    lblsfzh: TLabel;
    lblxm2: TLabel;
    lblxb: TLabel;
    lblzgh2: TLabel;
    btnqd: TButton;
    btntc: TButton;
    lblxm1: TLabel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure btncxClick(Sender: TObject);
    procedure btnqdClick(Sender: TObject);
    procedure btntcClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xg05210_xiug: Txg05210_xiug;

implementation

uses ygdagl;

{$R *.dfm}

procedure Txg05210_xiug.btncxClick(Sender: TObject);
begin
 adoquery1.Open;
  if (adoquery1.Locate('姓名',edtxm1.Text,[]))or(adoquery1.Locate('职工号',edtzgh1.Text,[])) then
   begin
   edtxm2.text:=adoquery1.FieldValues['姓名'];
   edtzgh2.Text:=adoquery1.FieldValues['职工号'];
   cbbxb.text:=adoquery1.FieldValues['性别'];
   edtjg.Text:=adoquery1.FieldValues['籍贯'];
   atpcsrq.DateTime :=adoquery1.FieldValues['出生日期'];
   edtlxdh.Text:=adoquery1.FieldValues['联系电话'];
   edtsfzh.text:=adoquery1.FieldValues['身份证号'];
   edtjtzz.Text:=adoquery1.FieldValues['家庭地址'];
   edtqt.text:=adoquery1.FieldValues['其它'];
   edtxm2.Enabled :=false;
   edtzgh2.Enabled :=false;
  end
   else showmessage('没有这条记录，请重新输入!');
end;

procedure Txg05210_xiug.btnqdClick(Sender: TObject);
begin
  with ADOQuery1 do
    begin
    if messagedlg('确定要修改吗？',mtconfirmation,[mbyes,mbno],0)=mryes
    then
    begin
    close;
    sql.Clear;
    sql.Add('update 职工信息表 set 姓名='''+edtxm2.Text+''',职工号='''+edtzgh2.Text+''',性别='''+cbbxb.Text+''',籍贯='''+edtjg.text+''',出生日期='''+atpcsrq.Format+''',联系电话='''+edtlxdh.text+''',身份证号='''+edtsfzh.text+''',家庭地址='''+edtjtzz.text+''',其它='''+edtqt.text+''' where 姓名='''+edtxm1.Text+''' or 职工号='''+edtzgh1.text+'''');
    execsql;
    close;
    sql.Clear;
    sql.add('select * from 职工信息表 where  职工号='''+edtzgh1.text+'''');
    open;
    showmessage('修改成功');
    end;
    end;
end;

procedure Txg05210_xiug.btntcClick(Sender: TObject);
begin
   xg05210_yg.Show ;
   xg05210_xiug.close;
   with xg05210_yg.ADOQuery1 do
   begin
   close;
   sql.clear;
   sql.Add('select * from 职工信息表');
   execsql;
   open;
   end;
end;

end.