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

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

企业管理

开发平台：

Delphi

f_rscx.pas：源码内容
  1. unit f_rscx;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Grids, DBGrids, StdCtrls, Buttons, DB, ADODB, FR_DSet, FR_DBSet,
  8.   FR_Class;
  10. type
  11.   Tw_rscx = class(TForm)
  12.     GroupBox1: TGroupBox;
  13.     RadioButton1: TRadioButton;
  14.     RadioButton2: TRadioButton;
  15.     gb_1: TGroupBox;
  16.     Label1: TLabel;
  17.     Label3: TLabel;
  18.     Label4: TLabel;
  19.     Label5: TLabel;
  20.     ComboBox1: TComboBox;
  21.     Edit1: TEdit;
  22.     Edit3: TEdit;
  23.     GroupBox2: TGroupBox;
  24.     b_xs: TBitBtn;
  25.     b_cx: TBitBtn;
  26.     b_dy: TBitBtn;
  27.     b_gb: TBitBtn;
  28.     DBGrid1: TDBGrid;
  29.     data_rsxt: TDataSource;
  30.     ado_rsxt: TADOQuery;
  31.     ado_rsxtrs_id: TStringField;
  32.     ado_rsxtrs_name: TStringField;
  33.     ado_rsxtrs_depart: TStringField;
  34.     ado_rsxtrs_job: TStringField;
  35.     ado_rsxtrs_xueli: TStringField;
  36.     ado_rsxtrs_xb: TStringField;
  37.     ado_rsxtrs_nl: TIntegerField;
  38.     ado_rsxtrs_gl: TIntegerField;
  39.     ado_rsxtrs_zzmm: TStringField;
  40.     ado_rsxtrs_hf: TStringField;
  41.     ComboBox2: TComboBox;
  42.     frReport1: TfrReport;
  43.     frDBDataSet1: TfrDBDataSet;
  44.     procedure RadioButton1Click(Sender: TObject);
  45.     procedure b_xsClick(Sender: TObject);
  46.     procedure b_cxClick(Sender: TObject);
  47.     procedure FormCreate(Sender: TObject);
  48.     procedure b_gbClick(Sender: TObject);
  49.     procedure b_dyClick(Sender: TObject);
  50.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  51.   private
  52.     { Private declarations }
  53.   public
  54.     { Public declarations }
  55.   end;
  57. var
  58.   w_rscx: Tw_rscx;
  59.   bsy:string;
  60. implementation
  62. uses f_main;
  64. {$R *.dfm}
  66. procedure Tw_rscx.RadioButton1Click(Sender: TObject);
  67. begin
  68. if  RadioButton1.Checked then
  69.      bsy:='rs_gl'
  70.   else
  71.      bsy:='rs_xueli';
  72. end;
  74. procedure Tw_rscx.b_xsClick(Sender: TObject);
  75. begin
  76. ado_rsxt.Close;
  77. ado_rsxt.SQL.Clear;
  78. ado_rsxt.SQL.Add('select * from rsxt order by '+bsy);
  79. ado_rsxt.Open;
  80. end;
  82. procedure Tw_rscx.b_cxClick(Sender: TObject);
  83. var
  84. ss:string;
  85. begin
  86. ss:='';
  87. if edit1.Text+combobox1.Text+combobox2.Text='' then
  88.    begin
  89.     application.MessageBox('您没有输入查询条件！请重新输入！','提示',mb_ok+mb_iconinformation);
  90.    end
  91. else
  92.    begin
  93.   if combobox1.Text<>''  then
  94.    ss:=ss+'and rs_xueli='+''''+combobox1.Text+'''';
  95.   if combobox2.Text<>'' then
  96.    ss:=ss+'and rs_xb='+''''+combobox2.Text+'''';
  97.   if edit1.Text<>'' then
  98.    ss:=ss+'and rs_depart='+''''+edit1.Text+'''';
  99.    ss:='select * from rsxt where 1=1'+ss;
  100.     ado_rsxt.Close;
  101.     ado_rsxt.SQL.Clear;
  102.     ado_rsxt.SQL.Add(ss);
  103.     ado_rsxt.Open;
  104.     if ado_rsxt.RecordCount=0 then
  105.       begin
  106.           application.MessageBox('没有符合要求的记录,请和管理员联系，请重新输入！','提示',mb_ok+mb_iconinformation);
  107.       end;
  108.     end;
  109. end;
  110. procedure Tw_rscx.FormCreate(Sender: TObject);
  111. begin
  112. bsy:='rs_gl';
  113. RadioButton1.Checked;
  114. w_main.Enabled:=false;
  115. end;
  117. procedure Tw_rscx.b_gbClick(Sender: TObject);
  118. begin
  119. close;
  120. end;
  122. procedure Tw_rscx.b_dyClick(Sender: TObject);
  123. begin
  124. frReport1.ShowReport;
  125. end;
  127. procedure Tw_rscx.FormClose(Sender: TObject; var Action: TCloseAction);
  128. begin
  129. w_main.Enabled:=true;
  130. end;
  132. end.