rl_ryxx_gj_unit.pas

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

unit rl_ryxx_gj_Unit;

interface

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

type
  Trl_ryxx_gj = class(TForm)
    Splitter1: TSplitter;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    cb_dw: TComboBox;
    cb_fc: TComboBox;
    cb_bz: TComboBox;
    edt_xm: TEdit;
    Button2: TButton;
    Button3: TButton;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    Query1: TQuery;
    tb_dw: TTable;
    tb_fc: TTable;
    tb_bz: TTable;
    p: TPrintDBGridEh;
    Button1: TButton;
    Edit1: TEdit;
    procedure edt_xmChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cb_fcChange(Sender: TObject);
    procedure cb_dwChange(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure edt_xmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rl_ryxx_gj: Trl_ryxx_gj;

implementation

{$R *.dfm}

procedure Trl_ryxx_gj.edt_xmChange(Sender: TObject);
var
  sql1, sql2: string;
begin
  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 like ' + '''' + edt_xm.Text + '%' + '''';
  sql2 := sql1 + sql2 + ' order by a5 asc'; ;
  with query1 do
  begin
    sql.Clear;
    sql.Add(sql2);
    query1.Prepare;
    open;


  end;



end;

procedure Trl_ryxx_gj.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_dw.ItemIndex := 0;
end;

procedure Trl_ryxx_gj.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_ryxx_gj.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_ryxx_gj.Button2Click(Sender: TObject);
begin
  p.Preview;
end;

procedure Trl_ryxx_gj.Button1Click(Sender: TObject);
begin
  close;
end;

procedure Trl_ryxx_gj.edt_xmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
  begin

    edt_xm.Text := query1.Fields[0].AsString;
    edit1.Text := '选中了！';
    edit1.SetFocus;
  end;
  if key = $26 then query1.Prior;
  if key = $28 then query1.next;








end;

end.