ygdagl.pas

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

unit ygdagl;

interface

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

type
  Txg05210_yg = class(TForm)
    panel1: TPanel;
    Label1: TLabel;
    lblxm1: TLabel;
    btncx: TButton;
    lblzgh: TLabel;
    edtxm1: TEdit;
    edtzgh: TEdit;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel2: TPanel;
    lblxm2: TLabel;
    lblzgh2: TLabel;
    lblxb: TLabel;
    lblcsrq: TLabel;
    lblsfzh: TLabel;
    lbljg: TLabel;
    lbljtzz: TLabel;
    lbllxdh: TLabel;
    lblqt: TLabel;
    edtxm2: TEdit;
    edtzgh2: TEdit;
    cbbxb: TComboBox;
    edtjg: TEdit;
    edtqt: TEdit;
    edtlxdh: TEdit;
    edtsfzh: TEdit;
    edtjtzz: TEdit;
    atpcsrq: TDateTimePicker;
    GroupBox1: TGroupBox;
    btnxz: TButton;
    btnxg: TButton;
    btnsc: TButton;
    ADOConnection1: TADOConnection;
    byntc: TButton;
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure btncxClick(Sender: TObject);
    procedure btnxgClick(Sender: TObject);
    procedure btnxzClick(Sender: TObject);
    procedure btnscClick(Sender: TObject);
    procedure byntcClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xg05210_yg: Txg05210_yg;

implementation

uses xiugai, shanchu, xinzeng;

{$R *.dfm}

procedure Txg05210_yg.ADOQuery1AfterScroll(DataSet: TDataSet);
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['其它'];
end;

procedure Txg05210_yg.btncxClick(Sender: TObject);
begin
   adoquery1.Open;
   if (adoquery1.Locate('姓名',edtxm1.Text,[]))or(adoquery1.Locate('职工号',edtzgh.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;
   cbbxb.Enabled:=false;
   edtjg.Enabled:=false;
   atpcsrq.Enabled:=false;
   edtlxdh.Enabled:=false;
   edtsfzh.Enabled:=false;
   edtjtzz.Enabled:=false;
   edtqt.Enabled:=false;
   end
   else  showmessage('没有这条记录');
end;

procedure Txg05210_yg.btnxgClick(Sender: TObject);
begin
    xg05210_yg.Hide ;
    xg05210_xiug.show;
end;

procedure Txg05210_yg.btnxzClick(Sender: TObject);
begin
    xg05210_yg.Hide ;
    xg05210_xinz.show;
end;

procedure Txg05210_yg.btnscClick(Sender: TObject);
begin
  xg05210_yg.Hide ;
  xg05210_shanc.show;
end;

procedure Txg05210_yg.byntcClick(Sender: TObject);
begin
xg05210_yg.close;
end;

end.