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

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

企业管理

开发平台：

Delphi

f_xscx.pas：源码内容
  1. unit f_xscx;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids, FR_DSet, FR_DBSet,
  8.   FR_Class;
  10. type
  11.   Tform2 = class(TForm)
  12.     GroupBox1: TGroupBox;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     Label4: TLabel;
  16.     Edit1: TEdit;
  17.     Edit2: TEdit;
  18.     Edit3: TEdit;
  19.     GroupBox2: TGroupBox;
  20.     b_xs: TBitBtn;
  21.     b_cx: TBitBtn;
  22.     b_gb: TBitBtn;
  23.     DBGrid1: TDBGrid;
  24.     DataSource1: TDataSource;
  25.     ado_xshou: TADOQuery;
  26.     ado_xshous_bh: TStringField;
  27.     ado_xshous_dw: TStringField;
  28.     ado_xshous_dz: TStringField;
  29.     ado_xshous_sq: TStringField;
  30.     ado_xshous_stime: TDateTimeField;
  31.     ado_xshous_xtime: TDateTimeField;
  32.     b_dy: TBitBtn;
  33.     frReport1: TfrReport;
  34.     frDBDataSet1: TfrDBDataSet;
  35.     procedure b_cxClick(Sender: TObject);
  36.     procedure b_xsClick(Sender: TObject);
  37.     procedure b_gbClick(Sender: TObject);
  38.     procedure b_dyClick(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  45. var
  46.   form2: Tform2;
  48. implementation
  50. uses f_main;
  52. {$R *.dfm}
  54. procedure Tform2.b_cxClick(Sender: TObject);
  55. var
  56. ss:string;
  57. begin
  58. ss:='';
  59. if edit1.Text+edit2.Text+edit3.Text='' then
  60.    begin
  61.     application.MessageBox('您没有输入查询条件！请重新输入！','提示',mb_ok+mb_iconinformation);
  62.    end
  63. else
  64.    begin
  65.   if edit1.Text<>''  then
  66.    ss:=ss+'and s_bh='+''''+edit1.Text+'''';
  67.   if edit2.Text<>'' then
  68.    ss:=ss+'and g_dw='+''''+edit2.Text+'''';
  69.   if edit3.Text<>'' then
  70.    ss:=ss+'and g_sq='+''''+edit3.Text+'''';
  71.    ss:='select * from xshuo where 1=1'+ss;
  72.     ado_xshou.Close;
  73.     ado_xshou.SQL.Clear;
  74.     ado_xshou.SQL.Add(ss);
  75.     ado_xshou.Open;
  76.     if ado_xshou.RecordCount=0 then
  77.       begin
  78.           application.MessageBox('没有符合要求的记录,请和管理员联系，请重新输入！','提示',mb_ok+mb_iconinformation);
  79.       end;
  80.     end;
  81. end;
  82. procedure Tform2.b_xsClick(Sender: TObject);
  83. begin
  84.     ado_xshou.Close;
  85.     ado_xshou.SQL.Clear;
  86.     ado_xshou.SQL.Add('select * from xshuo');
  87.     ado_xshou.Open;
  88. end;
  90. procedure Tform2.b_gbClick(Sender: TObject);
  91. begin
  92. close;
  93. end;
  95. procedure Tform2.b_dyClick(Sender: TObject);
  96. begin
  97. frReport1.ShowReport;
  98. end;
  100. end.