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

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

企业管理

开发平台：

Delphi

f_gzcx.pas：源码内容
  1. unit f_gzcx;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, DB, ADODB;
  9. type
  10.   Tw_gzcx = class(TForm)
  11.     Panel1: TPanel;
  12.     DBGrid1: TDBGrid;
  13.     GroupBox1: TGroupBox;
  14.     Label2: TLabel;
  15.     Label3: TLabel;
  16.     Label4: TLabel;
  17.     Edit1: TEdit;
  18.     Edit2: TEdit;
  19.     GroupBox2: TGroupBox;
  20.     b_xs: TBitBtn;
  21.     b_cx: TBitBtn;
  22.     b_gb: TBitBtn;
  23.     ado_gzxt: TADOQuery;
  24.     Edit3: TEdit;
  25.     Label1: TLabel;
  26.     Edit4: TEdit;
  27.     data_gzxt: TDataSource;
  28.     ado_gzxtg_nf: TStringField;
  29.     ado_gzxtg_yf: TStringField;
  30.     ado_gzxtrs_id: TStringField;
  31.     ado_gzxtrs_name: TStringField;
  32.     ado_gzxtg_jbgz: TFloatField;
  33.     ado_gzxtg_fdgz: TFloatField;
  34.     ado_gzxtg_grss: TFloatField;
  35.     ado_gzxtg_gwgz: TFloatField;
  36.     ado_gzxtg_shbz: TFloatField;
  37.     ado_gzxtg_bxkc: TFloatField;
  38.     ado_gzxtg_zgz: TFloatField;
  39.     ado_gzxtg_zkc: TFloatField;
  40.     ado_gzxtg_sfgz: TFloatField;
  41.     procedure b_xsClick(Sender: TObject);
  42.     procedure b_cxClick(Sender: TObject);
  43.     procedure b_gbClick(Sender: TObject);
  44.     procedure FormCreate(Sender: TObject);
  45.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  46.   private
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.   end;
  52. var
  53.   w_gzcx: Tw_gzcx;
  55. implementation
  57. uses f_main;
  59. {$R *.dfm}
  61. procedure Tw_gzcx.b_xsClick(Sender: TObject);
  62. begin
  63. ado_gzxt.Close;
  64. ado_gzxt.SQL.Clear;
  65. ado_gzxt.SQL.Add('select * from gzxt');
  66. ado_gzxt.Open;
  67. end;
  68. procedure Tw_gzcx.b_cxClick(Sender: TObject);
  69. var
  70. ss:string;
  71. begin
  72. ss:='';
  73. if edit1.Text+edit2.Text+edit3.Text+edit4.Text='' then
  74.    begin
  75.     application.MessageBox('您没有输入查询条件！请重新输入！','提示',mb_ok+mb_iconinformation);
  76.    end
  77. else
  78.    begin
  79.   if edit1.Text<>''  then
  80.    ss:=ss+'and g_nf='+''''+edit1.Text+'''';
  81.   if edit2.Text<>'' then
  82.    ss:=ss+'and g_yf='+''''+edit2.Text+'''';
  83.   if edit3.Text<>'' then
  84.    ss:=ss+'and rs_id='+''''+edit3.Text+'''';
  85.   if edit4.Text<>'' then
  86.   ss:=ss+'and rs_name='+''''+edit4.Text+'''';
  87.    ss:='select * from gzxt where 1=1'+ss;
  88.     ado_gzxt.Close;
  89.     ado_gzxt.SQL.Clear;
  90.     ado_gzxt.SQL.Add(ss);
  91.     ado_gzxt.Open;
  92.     if ado_gzxt.RecordCount=0 then
  93.       begin
  94.           application.MessageBox('没有符合要求的记录,请和管理员联系，请重新输入！','提示',mb_ok+mb_iconinformation);
  95.       end;
  96.     end;
  97. end;
  98. procedure Tw_gzcx.b_gbClick(Sender: TObject);
  99. begin
  100.  close;
  101. end;
  103. procedure Tw_gzcx.FormCreate(Sender: TObject);
  104. begin
  105. w_main.Enabled:=false;
  106. end;
  108. procedure Tw_gzcx.FormClose(Sender: TObject; var Action: TCloseAction);
  109. begin
  110. w_main.Enabled:=true;
  111. end;
  113. end.