u_cxsz.pas

完整的人事关系管理系统源码,包含数据库,界面不错,适合初学者参考

unit U_cxsz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  Tfrm_cxsz = class(TForm)
    Panel1: TPanel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_cxsz: Tfrm_cxsz;

implementation

uses U_data;

{$R *.dfm}

procedure Tfrm_cxsz.BitBtn1Click(Sender: TObject);
begin
if ((combobox1.Text<>'') and (combobox2.Text<>'') and (edit1.Text<>'')) then
begin
with data1.ADOQYkhgl do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 考核表 where');
      sql.Add(combobox1.Text);
      sql.Add(combobox2.Text);
      sql.Add(':a');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      open;
   end;
   if data1.ADOQYkhgl.RecordCount>0 then
      application.MessageBox('找到符合条件的记录','提示',64)
   else
      application.MessageBox('没有找到符合条件的记录','提示',64);
end
else
   application.MessageBox('请设置查询条件！','提示',64);
end;

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

end.