shanchu.pas

来自「职工档案管理设计主要实现对企业人员基本情况的档案的操作」· PAS 代码 · 共 88 行

unit shanchu;

interface

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

type
  Txg05210_shanc = class(TForm)
    lblzgh: TLabel;
    lblxm1: TLabel;
    Label1: TLabel;
    edtzgh: TEdit;
    edtxm1: TEdit;
    btncx: TButton;
    DBGrid1: TDBGrid;
    btnsc: TButton;
    btntc: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure btncxClick(Sender: TObject);
    procedure btnscClick(Sender: TObject);
    procedure btntcClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xg05210_shanc: Txg05210_shanc;

implementation

uses ygdagl;

{$R *.dfm}

procedure Txg05210_shanc.btncxClick(Sender: TObject);
begin
   adoquery1.Active:=true;
    with ADOQuery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * from 职工信息表 where 姓名='''+edtxm1.Text+''' or 职工号='''+edtzgh.text+'''');
    execsql;
    open;
    if recordcount=0 then showmessage('没有这条记录');
    end;
end;

procedure Txg05210_shanc.btnscClick(Sender: TObject);
begin
 with ADOQuery1 do
    begin
    if messagedlg('确定要删除吗？',mtconfirmation,[mbyes,mbno],0)=mryes
      then
      begin
      close;
      sql.Clear;
      sql.Add('delete from 职工信息表 where 姓名='''+edtxm1.Text+''' or 职工号='''+edtzgh.text+'''');
      execsql;
      close;
      showmessage('职工号'+edtzgh.text+'已成功删除!');
      sql.Clear;
      sql.Add('select * from 职工信息表 ');
      open;
      end;
    end;
end;

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

end.