movunit.pas

人事管理系统 人事管理系统

unit MovUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TMovForm = class(TForm)
    GroupBox1: TGroupBox;
    NTRadBtn: TRadioButton;
    TXRadBtn: TRadioButton;
    JSRadBtn: TRadioButton;
    CancelBtn: TBitBtn;
    OKBtn: TBitBtn;
    procedure CancelBtnClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MovePerson(MainID:integer;NewZT:string);
  end;

var
  MovForm: TMovForm;

implementation

uses  viewunit,barunit,dataunit;
{$R *.dfm}

procedure tmovform.MovePerson(MainID:integer;NewZT:string);
begin
  with dataform.CMD do
  begin
    commandtext := 'update main set zt=:zt where main_id=:mainid';
    parameters.ParamByName('zt').Value := NewZT;
    parameters.ParamByName('mainid').Value := MainID;
    execute;
  end;    // with
end;


procedure TMovForm.CancelBtnClick(Sender: TObject);
begin
  NTRadBtn.Enabled := true;
  TXRadBtn.Enabled := true;
  JSRadBtn.Enabled := true;

  close;
end;

procedure TMovForm.OKBtnClick(Sender: TObject);
var
  mainid:integer;
  bm,Dname,sex:string;
begin
  NTRadBtn.Enabled := true;
  TXRadBtn.Enabled := true;
  JSRadBtn.Enabled := true;

  case barform.Tag of    //
    0: begin   //zz
       if NTRadBtn.Checked then        //zz move to nt
         begin
           dname := dataform.ZZquy.Fields.fieldbyname('name').AsString;
           sex := dataform.ZZquy.Fields.fieldbyname('sex').AsString;
           bm := dataform.ZZquy.Fields.fieldbyname('bm').AsString;
           mainid := dataform.ZZquy.Fields.fieldbyname('main_id').AsInteger;
           barform.DelNode(barform.ZZTree,mainid);
           barform.AddNode(barform.NTTree,bm,dname,sex,mainid);
           MovePerson(MainID,'nt');
           dataform.ZZquy.Requery();
           dataform.NTquy.Requery();
           barform.ntenter;
           dataform.NTquy.Locate('main_id',MainID,[]);
         end;

       if TXRadBtn.Checked then         //zz move to TX
         begin
           dname := dataform.ZZquy.Fields.fieldbyname('name').AsString;
           sex := dataform.ZZquy.Fields.fieldbyname('sex').AsString;
           bm := dataform.ZZquy.Fields.fieldbyname('bm').AsString;
           mainid := dataform.ZZquy.Fields.fieldbyname('main_id').AsInteger;
           barform.DelNode(barform.ZZTree,mainid);
           barform.AddNode(barform.txTree,bm,dname,sex,mainid);
           MovePerson(MainID,'tx');
           dataform.ZZquy.Requery();
           dataform.txquy.Requery();
           barform.txenter;
           dataform.txquy.Locate('main_id',MainID,[]);
         end;

       if JSRadBtn.Checked then       //zz move to js
         begin
           dname := dataform.ZZquy.Fields.fieldbyname('name').AsString;
           sex := dataform.ZZquy.Fields.fieldbyname('sex').AsString;
           bm := dataform.ZZquy.Fields.fieldbyname('bm').AsString;
           mainid := dataform.ZZquy.Fields.fieldbyname('main_id').AsInteger;
           barform.DelNode(barform.ZZTree,mainid);
           barform.AddNode(barform.JSTree,bm,dname,sex,mainid);
           MovePerson(MainID,'JS');
           dataform.ZZquy.Requery();
           dataform.jsquy.Requery();
           barform.jsenter;
           dataform.jsquy.Locate('main_id',MainID,[]);
         end;
       end;
    1: begin   //nt
       if TXRadBtn.Checked then         //nt move to TX
         begin
           dname := dataform.NTquy.Fields.fieldbyname('name').AsString;
           sex := dataform.NTquy.Fields.fieldbyname('sex').AsString;
           bm := dataform.NTquy.Fields.fieldbyname('bm').AsString;
           mainid := dataform.NTquy.Fields.fieldbyname('main_id').AsInteger;
           barform.DelNode(barform.NTTree,mainid);
           barform.AddNode(barform.txTree,bm,dname,sex,mainid);
           MovePerson(MainID,'tx');
           dataform.NTquy.Requery();
           dataform.txquy.Requery();
           barform.txenter;
           dataform.txquy.Locate('main_id',MainID,[]);
         end;

       if JSRadBtn.Checked then       //nt move to js
         begin
           dname := dataform.NTquy.Fields.fieldbyname('name').AsString;
           sex := dataform.NTquy.Fields.fieldbyname('sex').AsString;
           bm := dataform.NTquy.Fields.fieldbyname('bm').AsString;
           mainid := dataform.NTquy.Fields.fieldbyname('main_id').AsInteger;
           barform.DelNode(barform.NTTree,mainid);
           barform.AddNode(barform.JSTree,bm,dname,sex,mainid);
           MovePerson(MainID,'JS');
           dataform.NTquy.Requery();
           dataform.JSquy.Requery();
           barform.JSenter;
           dataform.JSquy.Locate('main_id',MainID,[]);
         end;
       end;
    2: begin   //ty
       if TXRadBtn.Checked then         //ty move to TX
         begin
           dname := dataform.TYquy.Fields.fieldbyname('name').AsString;
           sex := dataform.TYquy.Fields.fieldbyname('sex').AsString;
           bm := dataform.TYquy.Fields.fieldbyname('bm').AsString;
           mainid := dataform.TYquy.Fields.fieldbyname('main_id').AsInteger;
           barform.DelNode(barform.TYTree,mainid);
           barform.AddNode(barform.txTree,bm,dname,sex,mainid);
           MovePerson(MainID,'TX');
           dataform.TYquy.Requery();
           dataform.TXquy.Requery();
           barform.TXenter;
           dataform.TXquy.Locate('main_id',MainID,[]);
         end;

       if JSRadBtn.Checked then       //ty move to js
         begin
           dname := dataform.TYquy.Fields.fieldbyname('name').AsString;
           sex := dataform.TYquy.Fields.fieldbyname('sex').AsString;
           bm := dataform.TYquy.Fields.fieldbyname('bm').AsString;
           mainid := dataform.TYquy.Fields.fieldbyname('main_id').AsInteger;
           barform.DelNode(barform.TYTree,mainid);
           barform.AddNode(barform.JSTree,bm,dname,sex,mainid);
           MovePerson(MainID,'JS');
           dataform.TYquy.Requery();
           dataform.JSquy.Requery();
           barform.JSenter;
           dataform.JSquy.Locate('main_id',MainID,[]);
         end;
       end;
    3: begin   //tx
       if JSRadBtn.Checked then       //tx move to js
         begin
           dname := dataform.TXquy.Fields.fieldbyname('name').AsString;
           sex := dataform.TXquy.Fields.fieldbyname('sex').AsString;
           bm := dataform.TXquy.Fields.fieldbyname('bm').AsString;
           mainid := dataform.TXquy.Fields.fieldbyname('main_id').AsInteger;
           MovePerson(MainID,'JS');
           barform.DelNode(barform.TXTree,mainid);
           barform.AddNode(barform.JSTree,bm,dname,sex,mainid);
           dataform.TXquy.Requery();
           dataform.JSquy.Requery();
           barform.JSenter;
           dataform.JSquy.Locate('main_id',MainID,[]);
         end;
       end;
    4: begin   //js

       end;
  end;    // case

  viewform.SetPages(viewform.MainPage,true);   //设置控件可编辑
  viewform.Tag := 2;     //进入编辑状态
  viewform.Show;
  NTRadBtn.Enabled := true;
  TXRadBtn.Enabled := true;
  JSRadBtn.Enabled := true;

  close;
end;

end.