ycfindkq.~pas

人事管理

unit ycfindkq;

interface

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

type
  Tfrmycfindkq = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmycfindkq: Tfrmycfindkq;

implementation

uses datarsgl;

{$R *.dfm}

procedure Tfrmycfindkq.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tfrmycfindkq.BitBtn1Click(Sender: TObject);
begin
if edit3.Text='' then
begin
showmessage('查询内容不能为空!');
edit3.SetFocus;
end
else
with dmrsgl.ygkqywtbqry do
begin
close;
sql.Clear;
sql.Add('select * from ygkqywtb where name='+quotedstr(edit3.Text));
open;
if recordcount<>0 then
begin
datasource1.DataSet:=dmrsgl.ygkqywtbqry;
dbgrid1.DataSource:=datasource1;
dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('ygcdcs');
dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+50;
dbgrid1.Columns[5].Field:=datasource1.DataSet.FieldByName('ygztcs');
dbgrid1.Columns[5].Width:=datasource1.DataSet.Fields[5].DisplayWidth+50;
dbgrid1.Columns[6].Field:=datasource1.DataSet.FieldByName('ygkgcs');
dbgrid1.Columns[6].Width:=datasource1.DataSet.Fields[6].DisplayWidth+50;
dbgrid1.Columns[7].Field:=datasource1.DataSet.FieldByName('ygfdjrcs');
dbgrid1.Columns[7].Width:=datasource1.DataSet.Fields[7].DisplayWidth+50;
dbgrid1.Columns[8].Field:=datasource1.DataSet.FieldByName('ygqjcs');
dbgrid1.Columns[8].Width:=datasource1.DataSet.Fields[8].DisplayWidth+50;
end
else
messagedlg('查找不到该条记录值,请重新查.',mtwarning,[mbyes],0);
edit3.SetFocus;
end;
end;

end.