ygzlcx.pas

一个用vb mysql实现的人事管理信息系统希望对大家有用。

unit ygzlcx;

interface

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

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;
    CheckBox1: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    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);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ygzlcx: Tfrm_ygzlcx;

implementation

uses pub,dm;

{$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 ADOQuery1.active then
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from ygzlb where 1=1');
if DBLookupComboBox1.text<>'' then
   begin
   ADOQuery1.sql.add('and ssbm=:ssbm');
   ADOQuery1.Parameters.parambyname('ssbm').Value:=DBLookupComboBox1.keyvalue;
   end;
if DBLookupComboBox2.text<>'' then
   begin
   ADOQuery1.sql.add('and zw=:zw');
   ADOQuery1.Parameters.parambyname('zw').Value:=DBLookupComboBox2.keyvalue ;
   end;
if DBLookupComboBox3.text<>'' then
   begin
   ADOQuery1.sql.add('and zc=:zc');
   ADOQuery1.Parameters.parambyname('zc').Value:=DBLookupComboBox3.keyvalue;
   end;
if combobox1.text<>'' then
   begin
   ADOQuery1.sql.add('and xl=:xl');
   ADOQuery1.Parameters.ParamByName('xl').Value:=combobox1.text;
   end;
if combobox2.text<>'' then
   begin
   ADOQuery1.sql.add('and zzmm=:zzmm');
   ADOQuery1.Parameters.ParamByName('zzmm').Value:=combobox2.text;
   end;
if combobox3.text<>'' then
   begin
   ADOQuery1.sql.add('and xb=:xb');
   ADOQuery1.Parameters.ParamByName('xb').Value:=combobox3.text;
   end;
if edit1.text<>'' then
   begin
   ADOQuery1.sql.add('and ygh=:ygh');
   ADOQuery1.Parameters.parambyname('ygh').Value:=edit1.text;
   end;
if edit2.text<>'' then
   begin
   ADOQuery1.sql.add('and xm=:xm');
   ADOQuery1.Parameters.parambyname('xm').Value:=edit2.text
   end;
if checkbox1.checked then
   ADOQuery1.sql.add('and yxbz=1');
ADOQuery1.open;
if ADOQuery1.isempty then
showmessage('没有你所要的员工资料,请确认条件是否正确');



end;

procedure Tfrm_ygzlcx.BitBtn2Click(Sender: TObject);
begin
PUB_INSET_EXCEL(ADOQuery1,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;

procedure Tfrm_ygzlcx.FormCreate(Sender: TObject);
begin
   ADOQuery2.Open;
   ADOQuery3.Open;
   ADOQuery4.Open;
end;

end.