rl_ygxx_unit.~pas

通用人力资源系统,分类可以自设定 可以熟练掌握DELPHI语言

unit rl_ygxx_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, Grids, DBGridEh, DB, ExtCtrls, ComCtrls, StdCtrls,
  DBCtrls, RzEdit, Mask, PrnDbgeh;

type
  Trl_ygxx = class(TForm)
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    Query1: TQuery;
    DBGridEh1: TDBGridEh;
    Table1: TTable;
    Label2: TLabel;
    cb_dw: TComboBox;
    Label3: TLabel;
    cb_fc: TComboBox;
    Label4: TLabel;
    cb_bz: TComboBox;
    tb_dw: TTable;
    tb_fc: TTable;
    tb_bz: TTable;
    tb_whcd: TTable;
    tb_mz: TTable;
    tb_byxx: TTable;
    tb_jszw: TTable;
    tb_zw: TTable;
    tb_zy: TTable;
    Label22: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label30: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label31: TLabel;
    Label1: TLabel;
    cb_whcd: TComboBox;
    cb_xl: TComboBox;
    cb_byxx: TComboBox;
    cb_zy: TComboBox;
    cb_xb: TComboBox;
    cb_mz: TComboBox;
    cb_jszw: TComboBox;
    cb_rysf: TComboBox;
    cb_zw: TComboBox;
    cb_gw: TComboBox;
    cb_zzmm: TComboBox;
    tb_gw: TTable;
    Label5: TLabel;
    edt_xm: TEdit;
    Button1: TButton;
    p: TPrintDBGridEh;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cb_dwChange(Sender: TObject);
    procedure cb_fcChange(Sender: TObject);
    procedure cb_xbExit(Sender: TObject);
    procedure cb_mzExit(Sender: TObject);
    procedure cb_zzmmExit(Sender: TObject);
    procedure cb_whcdExit(Sender: TObject);
    procedure cb_xlExit(Sender: TObject);
    procedure cb_byxxExit(Sender: TObject);
    procedure cb_zyExit(Sender: TObject);
    procedure cb_jszwExit(Sender: TObject);
    procedure cb_rysfExit(Sender: TObject);
    procedure cb_zwExit(Sender: TObject);
    procedure cb_gwExit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rl_ygxx: Trl_ygxx;

implementation

{$R *.dfm}

procedure Trl_ygxx.FormCreate(Sender: TObject);
begin
  tb_dw.Open;
  tb_dw.First;
  with tb_dw do
    while not eof do
    begin
      cb_dw.Items.Add(tb_dw['dw']);
      next;
    end;
//
  cb_gw.Items.Clear;
  cb_gw.Items.Add('无');
  tb_gw.Open;
  tb_gw.First;
  with tb_gw do
    while not eof do
    begin
      cb_gw.Items.Add(tb_gw['gwmc']);
      next;
    end;
  tb_gw.close;
//
  cb_whcd.Items.Clear;
  cb_whcd.Items.Add('无');
  tb_whcd.Open;
  tb_whcd.First;
  with tb_whcd do
    while not eof do
    begin
      cb_whcd.Items.Add(tb_whcd['whcdmc']);
      next;
    end;
  tb_whcd.close;
//
  cb_byxx.Items.Clear;
  cb_byxx.Items.Add('无');
  tb_byxx.Open;
  tb_byxx.First;
  with tb_byxx do
    while not eof do
    begin
      cb_byxx.Items.Add(tb_byxx['byxxmc']);
      next;
    end;
  tb_byxx.close;
//
  cb_zy.Items.Clear;
  cb_zy.Items.Add('无');
  tb_zy.Open;
  tb_zy.First;
  with tb_zy do
    while not eof do
    begin
      cb_zy.Items.Add(tb_zy['zymc']);
      next;
    end;
  tb_zy.close;
//
  cb_mz.Items.Clear;
  cb_mz.Items.Add('无');
  tb_mz.Open;
  tb_mz.First;
  with tb_mz do
    while not eof do
    begin
      cb_mz.Items.Add(tb_mz['mzmc']);
      next;
    end;
  tb_mz.close;
  //
  cb_jszw.Items.Clear;
  cb_jszw.Items.Add('无');
  tb_jszw.Open;
  tb_jszw.First;
  with tb_jszw do
    while not eof do
    begin
      cb_jszw.Items.Add(tb_jszw['jszwmc']);
      next;
    end;
  tb_jszw.close;
//
  cb_zw.Items.Clear;
  cb_zw.Items.Add('无');
  tb_zw.Open;
  tb_zw.First;
  with tb_zw do
    while not eof do
    begin
      cb_zw.Items.Add(tb_zw['zwmc']);
      next;
    end;
  tb_zw.close;



end;

procedure Trl_ygxx.cb_dwChange(Sender: TObject);
begin
  cb_fc.Items.Clear;
  cb_bz.Items.Clear;
  tb_fc.Open;
  tb_fc.First;
  with tb_fc do
    while not eof do
    begin
      if (trim(cb_dw.Text) = trim(tb_fc['bmlb'])) then
        cb_fc.Items.Add(tb_fc['bmmc']);
      next;
    end;
  cb_fc.Text := '';
  cb_bz.Text := '';
  cb_fc.ItemIndex := -1;
  cb_bz.ItemIndex := -1;
end;

procedure Trl_ygxx.cb_fcChange(Sender: TObject);
begin
  cb_bz.Items.Clear;
  tb_bz.Open;
  tb_bz.First;
  with tb_bz do
    while not eof do
    begin
      if (trim(cb_fc.Text) = trim(tb_bz['fcmc'])) and (trim(cb_dw.Text) = trim(tb_bz['lbmc'])) then
        cb_bz.Items.Add(tb_bz['bzmc']);
      next;
    end;
  cb_bz.Text := '';
  cb_bz.ItemIndex := -1;
end;

procedure Trl_ygxx.cb_xbExit(Sender: TObject);
begin
  if cb_xb.Text = '无' then
    cb_xb.Text := '';
end;

procedure Trl_ygxx.cb_mzExit(Sender: TObject);
begin
  if cb_mz.Text = '无' then
    cb_mz.Text := '';
end;

procedure Trl_ygxx.cb_zzmmExit(Sender: TObject);
begin
  if cb_zzmm.Text = '无' then
    cb_zzmm.Text := '';
end;

procedure Trl_ygxx.cb_whcdExit(Sender: TObject);
begin
  if cb_whcd.Text = '无' then
    cb_whcd.Text := '';
end;

procedure Trl_ygxx.cb_xlExit(Sender: TObject);
begin
  if cb_xl.Text = '无' then
    cb_xl.Text := '';
end;

procedure Trl_ygxx.cb_byxxExit(Sender: TObject);
begin
  if cb_byxx.Text = '无' then
    cb_byxx.Text := '';
end;

procedure Trl_ygxx.cb_zyExit(Sender: TObject);
begin
  if cb_zy.Text = '无' then
    cb_zy.Text := '';
end;

procedure Trl_ygxx.cb_jszwExit(Sender: TObject);
begin
  if cb_jszw.Text = '无' then
    cb_jszw.Text := '';
end;

procedure Trl_ygxx.cb_rysfExit(Sender: TObject);
begin
  if cb_rysf.Text = '无' then
    cb_rysf.Text := '';
end;

procedure Trl_ygxx.cb_zwExit(Sender: TObject);
begin
  if cb_zw.Text = '无' then
    cb_zw.Text := '';
end;

procedure Trl_ygxx.cb_gwExit(Sender: TObject);
begin
  if cb_gw.Text = '无' then
    cb_gw.Text := '';
end;

procedure Trl_ygxx.Button1Click(Sender: TObject);
var
  sql1, sql2: string;
begin
  query1.Close;
  sql2 := '';
  sql1 := 'select a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a25,a26,a27,a28 from gzzk where ';
  if trim(cb_dw.Text) = '' then
  begin
    Application.MessageBox('请选择单位，返回！', '重新操作', MB_ICONWARNING);
    exit;
  end
  else
    sql2 := sql2 + 'a2=' + '''' + cb_dw.Text + '''';
//
  if trim(cb_fc.Text) <> '' then
    sql2 := sql2 + ' and a3=' + '''' + cb_fc.Text + '''';
//
  if trim(cb_bz.Text) <> '' then
    sql2 := sql2 + ' and a4=' + '''' + cb_bz.Text + '''';
//
  if trim(edt_xm.Text) <> '' then
    sql2 := sql2 + ' and a5=' + '''' + edt_xm.Text + '''';
//
  if trim(cb_xb.Text) <> '' then
    sql2 := sql2 + ' and a6=' + '''' + cb_xb.Text + '''';
//
  if trim(cb_mz.Text) <> '' then
    sql2 := sql2 + ' and a7=' + '''' + cb_mz.Text + '''';
//
  if trim(cb_jszw.Text) <> '' then
    sql2 := sql2 + ' and a8=' + '''' + cb_jszw.Text + '''';
//
  if trim(cb_rysf.Text) <> '' then
    sql2 := sql2 + ' and a9=' + '''' + cb_rysf.Text + '''';
//
  if trim(cb_zw.Text) <> '' then
    sql2 := sql2 + ' and a10=' + '''' + cb_zw.Text + '''';
//
  if trim(cb_whcd.Text) <> '' then
    sql2 := sql2 + ' and a11=' + '''' + cb_whcd.Text + '''';
//
  if trim(cb_zzmm.Text) <> '' then
    sql2 := sql2 + ' and a25=' + '''' + cb_zzmm.Text + '''';
//
  if trim(cb_xl.Text) <> '' then
    sql2 := sql2 + ' and a26=' + '''' + cb_xl.Text + '''';
//
  if trim(cb_byxx.Text) <> '' then
    sql2 := sql2 + ' and a27=' + '''' + cb_byxx.Text + '''';
//
  if trim(cb_zy.Text) <> '' then
    sql2 := sql2 + ' and a28=' + '''' + cb_zy.Text + '''';
  sql1 := sql1 + sql2 + ' order by a5 asc';
  with query1 do
  begin
    sql.Clear;
    sql.Add(sql1);
    query1.Prepare;
    query1.open;
  end;
  if query1.RecordCount = 0 then
  begin
    Application.MessageBox('没有发现所查数据，返回！', '重新查询', MB_ICONWARNING);
  end;



end;

procedure Trl_ygxx.Button3Click(Sender: TObject);
begin
  close;
end;

procedure Trl_ygxx.Button2Click(Sender: TObject);
begin
  p.Preview;
end;

end.