ygzlcx.pas

用delphi开发的 人事管理系统

unit ygzlcx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, StdCtrls, DBCtrls, Buttons, Db, DBTables, Grids,
  DBGrids;

type
  Tfrm_ygzlcx = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Label19: TLabel;
    Label20: TLabel;
    Shape3: TShape;
    Shape4: TShape;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    Label5: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label8: TLabel;
    ComboBox3: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Bevel2: TBevel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    CheckBox1: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DataSource2: TDataSource;
    Query2: TQuery;
    DataSource3: TDataSource;
    Query3: TQuery;
    DataSource4: TDataSource;
    Query4: TQuery;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ygzlcx: Tfrm_ygzlcx;

implementation

uses pub;

{$R *.DFM}

procedure Tfrm_ygzlcx.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_ygzlcx.BitBtn1Click(Sender: TObject);
//var ssbm,zw,zc,xl,zzmm,xb:string;
begin
if query1.active then
query1.close;
query1.sql.clear;
Query1.sql.add('select * from ygzlb where 1=1');
if DBLookupComboBox1.text<>'' then
   begin
   query1.sql.add('and ssbm=:ssbm');
   query1.parambyname('ssbm').asstring:=DBLookupComboBox1.keyvalue;
   end;
if DBLookupComboBox2.text<>'' then
   begin
   query1.sql.add('and zw=:zw');
   query1.parambyname('zw').asstring:=DBLookupComboBox2.keyvalue ;
   end;
if DBLookupComboBox3.text<>'' then
   begin
   query1.sql.add('and zc=:zc');
   query1.parambyname('zc').asstring:=DBLookupComboBox3.keyvalue;
   end;
if combobox1.text<>'' then
   begin
   query1.sql.add('and xl=:xl');
   query1.ParamByName('xl').asstring:=combobox1.text;
   end;
if combobox2.text<>'' then
   begin
   query1.sql.add('and zzmm=:zzmm');
   query1.ParamByName('zzmm').asstring:=combobox2.text;
   end;
if combobox3.text<>'' then
   begin
   query1.sql.add('and xb=:xb');
   query1.ParamByName('xb').asstring:=combobox3.text;
   end;
if edit1.text<>'' then
   begin
   query1.sql.add('and ygh=:ygh');
   query1.parambyname('ygh').asstring:=edit1.text;
   end;
if edit2.text<>'' then
   begin
   query1.sql.add('and xm=:xm');
   query1.parambyname('xm').asstring:=edit2.text
   end;
if checkbox1.checked then
   query1.sql.add('and yxbz=1');
query1.open;
if query1.isempty then
showmessage('没有你所要的员工资料,请确认条件是否正确');



end;

procedure Tfrm_ygzlcx.BitBtn2Click(Sender: TObject);
begin
PUB_INSET_EXCEL(QUERY1,DBGRID1);
end;

procedure Tfrm_ygzlcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrm_ygzlcx.FormShow(Sender: TObject);
begin
left:=0;
top:=0;
end;

procedure Tfrm_ygzlcx.BitBtn3Click(Sender: TObject);
begin
print_dbgrid(DataSource1,dbgrid1,'HX') ;

end;

end.