showfindrs.~pas

毕业设计时候开发的人事管理系统

unit showfindrs;

interface

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

type
  Tfrmbmzl = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    ToolBar1: TToolBar;
    btnshow: TBitBtn;
    btnpreview: TBitBtn;
    btnexit: TBitBtn;
    dbgdshow: TDBGrid;
    btncustomerbm: TBitBtn;
    Image1: TImage;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure btnexitClick(Sender: TObject);
    procedure btncustomerbmClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnshowClick(Sender: TObject);
    procedure btnpreviewClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmbmzl: Tfrmbmzl;
  pubstrbm:string;
implementation

uses bmcoustomer, datarsgl, printbm;

{$R *.dfm}

procedure Tfrmbmzl.btnexitClick(Sender: TObject);
begin
close;
end;

procedure Tfrmbmzl.btncustomerbmClick(Sender: TObject);
begin
application.CreateForm(tfrmcustomerbm,frmcustomerbm);
frmcustomerbm.Show;
end;

procedure Tfrmbmzl.FormCreate(Sender: TObject);
begin
with dmrsgl.ygbmqry do
begin
close;
sql.Clear;
sql.Add('select * from ygbmtb');
open;
if recordcount=0 then
begin
showmessage('部门定义数据库资料为空,不能加载.');
end
else
combobox1.Items.Add(fieldbyname('ygbm1').AsString);
combobox1.Items.Add(fieldbyname('ygbm2').AsString);
combobox1.Items.Add(fieldbyname('ygbm3').AsString);
combobox1.Items.Add(fieldbyname('ygbm4').AsString);
combobox1.Items.Add(fieldbyname('ygbm5').AsString);
combobox1.Items.Add(fieldbyname('ygbm6').AsString);
combobox1.Items.Add(fieldbyname('ygbm7').AsString);
combobox1.Items.Add(fieldbyname('ygbm8').AsString);
combobox1.Items.Add(fieldbyname('ygbm9').AsString);
combobox1.Items.Add(fieldbyname('ygbm10').AsString);
end;
end;

procedure Tfrmbmzl.btnshowClick(Sender: TObject);
begin
if combobox1.Text='' then
begin
messagedlg('具体部门不能为空.',mtwarning,[mbyes],0);
combobox1.SetFocus;
exit;
end;
with dmrsgl.ygbmqry do
begin
close;
sql.Clear;
sql.Add('select * from employeer where ygbm='+quotedstr(combobox1.Text));
open;
if recordcount=0 then
begin
showmessage('没查询到您要的记录!');
exit;
end
else
datasource1.DataSet:=dmrsgl.ygbmqry;
dbgdshow.DataSource:=datasource1;
dbgdshow.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
dbgdshow.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
dbgdshow.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
dbgdshow.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+50;
dbgdshow.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
dbgdshow.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
dbgdshow.Columns[3].Field:=datasource1.DataSet.FieldByName('worksort');
dbgdshow.Columns[3].Width:=datasource1.DataSet.Fields[8].DisplayWidth+50;
dbgdshow.Columns[4].Field:=datasource1.DataSet.FieldByName('position');
dbgdshow.Columns[4].Width:=datasource1.DataSet.Fields[9].DisplayWidth+50;
dbgdshow.Columns[5].Field:=datasource1.DataSet.FieldByName('phone');
dbgdshow.Columns[5].Width:=datasource1.DataSet.Fields[7].DisplayWidth+50;
end;
end;
procedure Tfrmbmzl.btnpreviewClick(Sender: TObject);
var summan:string;
begin
inherited;
with tfrmprintbm.create(self) do
begin
adoquery1.Connection:=dmrsgl.adorsgl;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from employeer where ygbm='+quotedstr(combobox1.Text));
adoquery1.Active:=true;
summan:=inttostr(adoquery1.RecordCount);
QuickRep1.DataSet:=adoquery1;
qrlabel1.Caption:=combobox1.Text+'部门资料表';
qrdbtext1.DataSet:=adoquery1;
qrdbtext1.DataField:='number';
qrdbtext2.DataSet:=adoquery1;
qrdbtext2.DataField:='name';
qrdbtext3.DataSet:=adoquery1;
qrdbtext3.DataField:='sex';
qrdbtext4.DataSet:=adoquery1;
qrdbtext4.DataField:='worksort';
qrdbtext5.DataSet:=adoquery1;
qrdbtext5.DataField:='position';
qrdbtext6.DataSet:=adoquery1;
qrdbtext6.DataField:='phone';
qrlabel11.Caption:=summan;
hide;
QuickRep1.PreviewModal;
end;
end;
end.