gz_zhglr_unit.~pas

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

unit gz_zhglr_Unit;

interface

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

type
  Tgz_zhglr = class(TForm)
    Panel2: TPanel;
    tb_zk: TTable;
    DataSource1: TDataSource;
    pdbgeh1: TPrintDBGridEh;
    Splitter1: TSplitter;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    dbnp1: TDBNavPlus;
    Panel3: TPanel;
    Splitter2: TSplitter;
    cb_dw: TComboBox;
    cb_fc: TComboBox;
    cb_bz: TComboBox;
    Button1: TButton;
    rg_lb: TRadioGroup;
    tb_dw: TTable;
    tb_bm: TTable;
    tb_bz: TTable;
    dbedt_dwlb: TDBEdit;
    dbedt_fc: TDBEdit;
    dbedt_bz: TDBEdit;
    dbedt_xm: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    sb_hf: TSpeedButton;
    sb_bc: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    cb_dw1: TComboBox;
    cb_fc1: TComboBox;
    cb_bz1: TComboBox;
    Button2: TButton;
    Button3: TButton;
    RxGIFAnimator1: TRxGIFAnimator;
    Label11: TLabel;
    DBEdt_bh: TDBEdit;
    q_bh: TQuery;
    procedure rg_lbClick(Sender: TObject);
    procedure cb_dwChange(Sender: TObject);
    procedure cb_fcChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure cb_dw1Change(Sender: TObject);
    procedure cb_fc1Change(Sender: TObject);
    procedure cb_bz1Change(Sender: TObject);
    procedure sb_bcClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sb_hfClick(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gz_zhglr: Tgz_zhglr;

implementation

{$R *.dfm}

procedure Tgz_zhglr.rg_lbClick(Sender: TObject);
begin
  if rg_lb.ItemIndex = 0 then
  begin
    if tb_zk.Active then
      tb_zk.Active := false;
    cb_dw.Items.Clear;
    cb_fc.Items.Clear;
    cb_bz.Items.Clear;
    cb_dw.Enabled := true;
    cb_fc.Enabled := true;
    cb_bz.Enabled := true;
    tb_dw.Open;
    tb_dw.First;
    with tb_dw do
      while not eof do
      begin
        cb_dw.Items.Add(tb_dw['dw']);
        next;
      end;
    tb_dw.Close;
  end
  else
  begin
    cb_dw.Enabled := false;
    cb_fc.Enabled := false;
    cb_bz.Enabled := false;
  end;


end;

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

end;

procedure Tgz_zhglr.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;
  tb_bz.close;
  cb_bz.ItemIndex := -1;
  cb_bz.Text := '';

end;

procedure Tgz_zhglr.Button1Click(Sender: TObject);
begin
  if rg_lb.ItemIndex = 0 then
  begin
    if tb_zk.Active then
      tb_zk.Active := false;
    tb_zk.Filtered := false;
    if (trim(cb_dw.Text) <> '') and (trim(cb_fc.text) = '') and (trim(cb_bz.Text) = '') then
      tb_zk.Filter := 'a2=' + '''' + cb_dw.Text + ''''; //+ 'and a3=' +''''+ cb_fc.Text +''''+ ' and a4=' +''''+ cb_bz.Text+'''';
    if (trim(cb_dw.Text) <> '') and (trim(cb_fc.text) <> '') and (trim(cb_bz.Text) = '') then

      tb_zk.Filter := 'a2=' + '''' + cb_dw.Text + '''' + 'and a3=' + '''' + cb_fc.Text + ''''; //+ ' and a4=' +''''+ cb_bz.Text+'''';
    if (trim(cb_dw.Text) <> '') and (trim(cb_fc.text) <> '') and (trim(cb_bz.Text) <> '') then

      tb_zk.Filter := 'a2=' + '''' + cb_dw.Text + '''' + 'and a3=' + '''' + cb_fc.Text + '''' + ' and a4=' + '''' + cb_bz.Text + '''';
    tb_zk.Filtered := true;
    tb_zk.Active := true;
  end
  else
  begin
    if tb_zk.Active then
      tb_zk.Active := false;
    tb_zk.Filtered := false;
    tb_zk.Active := true;
  end


end;

procedure Tgz_zhglr.SpeedButton1Click(Sender: TObject);
var
i:integer;
bh_ls:string;
bh_ls0:string;
begin
with q_bh do
begin
q_bh.Prepare;
open;
end;
bh_ls:=inttostr(q_bh.Fields[0].AsInteger+1);
q_bh.Close;
if strlen(pchar(bh_ls))<10 then
for i:=1 to 10-strlen(pchar(bh_ls)) do
bh_ls0:=bh_ls0+'0';
bh_ls:=bh_ls0+bh_ls;
  if rg_lb.ItemIndex = 0 then
  begin
    tb_zk.Insert;
    tb_zk['a2'] := cb_dw.Text;
    tb_zk['a3'] := cb_fc.Text;
    tb_zk['a4'] := cb_bz.Text;
    tb_zk['a1'] := bh_ls;
    tb_dw.Close;
    cb_dw1.Enabled := true;
    cb_fc1.Enabled := true;
    cb_bz1.Enabled := true;
  end
  else
  begin
    tb_zk.Insert;
    cb_dw1.Enabled := true;
    cb_fc1.Enabled := true;
    cb_bz1.Enabled := true;
  end;
  dbnp1.Enabled := false;
  tb_zk.post;
  Application.MessageBox('添加成功，请编辑修改具体信息', '提示信息', mb_iconInformation + mb_defbutton1);
  dbedt_xm.Focused;
  dbedt_xm.Color:=clskyblue;
  speedbutton3.Click;
end;

procedure Tgz_zhglr.cb_dw1Change(Sender: TObject);
begin
  cb_fc1.Items.Clear;
  cb_bz1.Items.Clear;
  tb_bm.Open;
  tb_bm.First;
  with tb_bm do
    while not eof do
    begin
      if trim(cb_dw1.Text) = trim(tb_bm['bmlb']) then
        cb_fc1.Items.Add(tb_bm['bmmc']);
      next;
    end;
  tb_bm.close;
  with tb_zk do
    if State = dsEdit then
      tb_zk['a2'] := trim(cb_dw1.Text);
  cb_bz1.ItemIndex := -1;
  cb_bz1.Text := '';
  cb_fc1.ItemIndex := -1;
  cb_fc1.Text := '';

end;

procedure Tgz_zhglr.cb_fc1Change(Sender: TObject);
begin
  cb_bz1.Items.Clear;
  tb_bz.Open;
  tb_bz.First;
  with tb_bz do
    while not eof do
    begin
      if (trim(cb_fc1.Text) = trim(tb_bz['fcmc'])) and (trim(cb_dw1.Text) = trim(tb_bz['lbmc'])) then
        cb_bz1.Items.Add(tb_bz['bzmc']);
      next;
    end;
  tb_bz.close;
  with tb_zk do
    if State = dsEdit then
      tb_zk['a3'] := trim(cb_fc1.Text);
  cb_bz1.ItemIndex := -1;
  cb_bz1.Text := '';
end;

procedure Tgz_zhglr.cb_bz1Change(Sender: TObject);
begin
  with tb_zk do
    if State = dsEdit then
      tb_zk['a4'] := trim(cb_bz1.Text);
end;

procedure Tgz_zhglr.sb_bcClick(Sender: TObject);

begin
  with tb_zk do
    if State = dsEdit then
      tb_zk.post;
  sb_bc.Enabled := not sb_bc.Enabled;
  sb_hf.Enabled := not sb_hf.Enabled;
end;

procedure Tgz_zhglr.SpeedButton3Click(Sender: TObject);
begin
  with tb_zk do
    if State <> dsEdit then
      edit;
  sb_bc.Enabled := true;
  sb_hf.Enabled := true;
  dbedt_xm.ReadOnly := false;
end;

procedure Tgz_zhglr.FormCreate(Sender: TObject);
begin
  tb_dw.Open;
  tb_dw.First;
  with tb_dw do
    while not eof do
    begin
      cb_dw1.Items.Add(tb_dw['dw']);
      next;
    end;
end;

procedure Tgz_zhglr.sb_hfClick(Sender: TObject);
begin
  tb_zk.Cancel;
  sb_bc.Enabled := not sb_bc.Enabled;
  sb_hf.Enabled := not sb_hf.Enabled;
end;

procedure Tgz_zhglr.SpeedButton6Click(Sender: TObject);
begin
  tb_zk.Refresh;
end;

procedure Tgz_zhglr.Button2Click(Sender: TObject);
begin
  pdbgeh1.Preview;
end;

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

procedure Tgz_zhglr.SpeedButton2Click(Sender: TObject);
begin
    if Application.MessageBox('是否真的要删除所选记录？', '请慎重选择！', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
    begin
    tb_zk.Delete;
    end;
end;

end.