xinzeng.pas

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

unit xinzeng;

interface

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

type
  Txg05210_xinz = class(TForm)
    Panel1: TPanel;
    btntc: TButton;
    btntj: 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;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure btntjClick(Sender: TObject);
    procedure btntcClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xg05210_xinz: Txg05210_xinz;

implementation

uses ygdagl;

{$R *.dfm}

procedure Txg05210_xinz.btntjClick(Sender: TObject);
begin
  ADOQuery1.active:=true;
  if not (adoquery1.Locate('姓名',edtxm2.Text,[]))or(adoquery1.Locate('职工号',edtzgh2.Text,[])) then
   begin
    with ADOquery1 do
      begin
      close;
      sql.Clear;
      sql.Add('insert into 职工信息表 values('''+edtxm2.Text+''','''+edtzgh2.Text+''','''+cbbxb.Text+''','''+edtjg.text+''','''+edtjtzz.text+''','''+atpcsrq.Format+''','''+edtsfzh.text+''','''+edtlxdh.text+''','''+edtqt.text+''')');
      execsql;
      close;
      sql.Clear;
      sql.Add('select * from 职工信息表 ');
      open;
      showmessage(''+edtzgh2.text+'已添加成功');
      end
    end
      else showmessage('不能插入重复的姓名或职工号!');
     
end;

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

end.