rl_zhuanyi_unit.pas

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

unit rl_zhuanyi_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, ComCtrls, Animate, GIFCtrl;

type
  Trl_zhuanyi = class(TForm)
    cb_gjzd: TComboBox;
    cb_gjzd1: TComboBox;
    Table1: TTable;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    StatusBar1: TStatusBar;
    Button2: TButton;
    tb_gzzk: TTable;
    Label4: TLabel;
    cb_dw: TComboBox;
    Label5: TLabel;
    cb_fc: TComboBox;
    tb_dw: TTable;
    tb_bm: TTable;
    RxGIFAnimator1: TRxGIFAnimator;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure cb_dwChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rl_zhuanyi: Trl_zhuanyi;

implementation

{$R *.dfm}

procedure Trl_zhuanyi.FormCreate(Sender: TObject);
var
  i: integer;
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;
  tb_dw.close;
  cb_gjzd.Items.Clear;
  cb_gjzd1.Items.Clear;
  table1.open;
  table1.First;
  for i := 1 to 30 do
    table1.Next;
  with table1 do
    while not eof do
    begin
      cb_gjzd.Items.Add(table1['gzdm'] + '   ' + table1['xsmc']);
      cb_gjzd1.Items.Add(table1['gzdm'] + '   ' + table1['xsmc']);
      table1.Next;
    end;
  table1.Close;
  cb_gjzd.ItemIndex := -1;
  cb_gjzd1.ItemIndex := -1;
end;

procedure Trl_zhuanyi.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Trl_zhuanyi.Button1Click(Sender: TObject);
begin
  if (cb_dw.Text = '') or (cb_fc.text = '') or (cb_gjzd.Text = '') or (cb_gjzd1.Text = '') then
  begin
    Application.MessageBox('请选择单位 部门或要调整的字段！', '重新选择', MB_ICONWARNING);
    exit;
  end
  else
  begin
    tb_gzzk.Open;
    with tb_gzzk do
      while not eof do
      begin
        if (tb_gzzk['a2'] = cb_dw.Text) and (tb_gzzk['a3'] = cb_fc.Text) then
        begin
          edit;
          tb_gzzk[trim(copy(cb_gjzd1.Text, 1, 3))] := tb_gzzk[trim(copy(cb_gjzd.Text, 1, 3))];
          post;
        end;
        next;
      end;
    tb_gzzk.Close;
    Application.MessageBox('调整完毕！', '重新选择', MB_ICONWARNING);
    close;
  end;
end;

procedure Trl_zhuanyi.cb_dwChange(Sender: TObject);
begin
  cb_fc.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 := '';
end;

end.