开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
f_kqcx.pas
资源名称：ERP人力资源管理系统毕业设计.rar　[点击查看]
上传用户：lcqxtx
上传日期：2013-02-15
资源大小：530k
文件大小：2k
源码类别：

企业管理

开发平台：

Delphi

f_kqcx.pas：源码内容
  1. unit f_kqcx;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, DB, ADODB, Buttons;
  9. type
  10.   Tw_kqcx = class(TForm)
  11.     Label1: TLabel;
  12.     GroupBox1: TGroupBox;
  13.     GroupBox2: TGroupBox;
  14.     b_xs: TBitBtn;
  15.     b_cx: TBitBtn;
  16.     b_gb: TBitBtn;
  17.     data_kaoqin: TDataSource;
  18.     ado_kaoqin: TADOQuery;
  19.     Label2: TLabel;
  20.     Label3: TLabel;
  21.     Edit1: TEdit;
  22.     Edit2: TEdit;
  23.     Label4: TLabel;
  24.     ComboBox1: TComboBox;
  25.     Panel1: TPanel;
  26.     DBGrid1: TDBGrid;
  27.     ado_kaoqinrs_id: TStringField;
  28.     ado_kaoqinrs_name: TStringField;
  29.     ado_kaoqins_time: TDateTimeField;
  30.     ado_kaoqinx_time: TDateTimeField;
  31.     ado_kaoqinc_sh: TStringField;
  32.     procedure b_cxClick(Sender: TObject);
  33.     procedure b_xsClick(Sender: TObject);
  34.     procedure b_gbClick(Sender: TObject);
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. var
  44.   w_kqcx: Tw_kqcx;
  46. implementation
  48. uses f_main;
  50. {$R *.dfm}
  52. procedure Tw_kqcx.b_cxClick(Sender: TObject);
  53. var
  54. ss:string;
  55. begin
  56. ss:='';
  57. if edit1.Text+combobox1.Text+edit2.Text='' then
  58.    begin
  59.     application.MessageBox('您没有输入查询条件！请重新输入！','提示',mb_ok+mb_iconinformation);
  60.    end
  61. else
  62.    begin
  63.   if edit1.Text<>''  then
  64.    ss:=ss+'and rs_id='+''''+edit1.Text+'''';
  65.   if edit2.Text<>'' then
  66.    ss:=ss+'and rs_name='+''''+edit2.Text+'''';
  67.   if combobox1.Text<>'' then
  68.    ss:=ss+'and c_sh='+''''+combobox1.Text+'''';
  69.    ss:='select * from kaoqin where 1=1'+ss;
  70.     ado_kaoqin.Close;
  71.     ado_kaoqin.SQL.Clear;
  72.     ado_kaoqin.SQL.Add(ss);
  73.     ado_kaoqin.Open;
  74.     if ado_kaoqin.RecordCount=0 then
  75.       begin
  76.           application.MessageBox('没有符合要求的记录,请和管理员联系，请重新输入！','提示',mb_ok+mb_iconinformation);
  77.       end;
  78.     end;
  79. end;
  80. procedure Tw_kqcx.b_xsClick(Sender: TObject);
  81. begin
  82. ado_kaoqin.Close;
  83. ado_kaoqin.SQL.Clear;
  84. ado_kaoqin.SQL.Add('select *  from kaoqin') ;
  85. ado_kaoqin.Open;
  86. end;
  87. procedure Tw_kqcx.b_gbClick(Sender: TObject);
  88. begin
  89. close;
  90. end;
  92. procedure Tw_kqcx.FormCreate(Sender: TObject);
  93. begin
  94. w_main.Enabled:=false;
  95. end;
  97. procedure Tw_kqcx.FormClose(Sender: TObject; var Action: TCloseAction);
  98. begin
  99. w_main.Enabled:=true;
  100. end;
  102. end.