rl_whcd_wh_unit.~pa

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

unit rl_whcd_wh_Unit;

interface

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

type
  Trl_whcd_wh = class(TForm)
    Splitter1: TSplitter;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    edt_zw: TEdit;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    cb_dw: TComboBox;
    cb_fc: TComboBox;
    cb_bz: TComboBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    StatusBar1: TStatusBar;
    Table1: TTable;
    DataSource1: TDataSource;
    tb_dw: TTable;
    tb_fc: TTable;
    tb_bz: TTable;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure cb_dwChange(Sender: TObject);
    procedure cb_fcChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rl_whcd_wh: Trl_whcd_wh;

implementation

{$R *.dfm}

procedure Trl_whcd_wh.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;
end;

procedure Trl_whcd_wh.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_whcd_wh.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_whcd_wh.Button1Click(Sender: TObject);
begin
  if trim(edt_zw.Text) = '' then
  begin
    Application.MessageBox('请填写学校名称，返回！', '重新操作', MB_ICONWARNING);
    exit;
  end
  else
  begin
    table1.Append;
    table1['whcdmc'] := edt_zw.Text;
    table1.Post;
    Application.MessageBox('添加成功！', '操作提示', MB_ICONWARNING);
  end;
end;

procedure Trl_whcd_wh.Button2Click(Sender: TObject);
var
  shanchu_xs: string;
begin
  shanchu_xs := '真的要删除 ' + table1['whcdmc'] + '  )这项吗？';
  if Application.MessageBox(pchar(shanchu_xs), '请慎重选择！', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
    table1.Delete;
end;

procedure Trl_whcd_wh.Button3Click(Sender: TObject);
var
  dybb_bz: integer;
  sql1, sql2: string;
begin
  if trim(cb_dw.Text) = '' then
  begin
    Application.MessageBox('请选择单位，返回！', '重新操作', MB_ICONWARNING);
    exit;
  end;
  if (trim(cb_dw.Text) <> '') and (trim(cb_fc.text) = '') and (trim(cb_bz.Text) = '') then
  begin
    dybb_bz := 1;
    sql1 := 'select count(a11) from gzzk where a2=' + '''' + cb_dw.Text + '''';
  end;
  if (trim(cb_dw.Text) <> '') and (trim(cb_fc.text) <> '') and (trim(cb_bz.Text) = '') then
  begin
    sql1 := 'select count(a11) from gzzk where a2=' + '''' + cb_dw.Text + '''' + 'and a3=' + '''' + cb_fc.Text + ''''; //+ ' and a4=' +''''+ cb_bz.Text+'''';
    dybb_bz := 2;
  end;
  if (trim(cb_dw.Text) <> '') and (trim(cb_fc.text) <> '') and (trim(cb_bz.Text) <> '') then
  begin
    sql1 := 'select count(a11) from gzzk where a2=' + '''' + cb_dw.Text + '''' + 'and a3=' + '''' + cb_fc.Text + '''' + ' and a4=' + '''' + cb_bz.Text + '''';
    dybb_bz := 3;
  end;
  table1.First;
  with table1 do
    while not eof do
    begin
      sql2 := sql1 + 'and a11=' + '''' + table1['whcdmc'] + '''';
      with query1 do
      begin

        sql.Clear;
        sql.Add(sql2);
        query1.Prepare;
        query1.Open;
      end;
      if query1.Fields[0].AsInteger = null then
      begin
        table1.Edit;
        table1['renshu'] := 0;
        table1.Post;
      end
      else
      begin
        table1.Edit;
        table1['renshu'] := query1.Fields[0].AsInteger;
        table1.Post;

      end;
      query1.Close;

      table1.next;
    end;
  table1.First;
end;

procedure Trl_whcd_wh.Button5Click(Sender: TObject);
begin
  close;
end;

end.