viewunit.pas

人事管理源码 Delphi+ADO+Acce

          dataform.ntquy.Locate('main_id',i,[]);

        end;
      2:begin                    //ty
          i := dataform.TYquy.Fields.fieldbyname('main_id').AsInteger;
          parameters.ParamByName('mainid').Value := i;
          parameters.ParamByName('zt').Value := 'ty';
          parameters.ParamByName('gsbt').Value := viewform.TYGS.Value;
          parameters.ParamByName('lgdate').Value := viewform.TYdate.Date;
          parameters.ParamByName('bl').Value := viewform.TYBL.Value;
          parameters.ParamByName('tolpay').Value := viewform.TYTolPay.Value;
          parameters.ParamByName('starpay').Value := viewform.TYstarPay.Value;
          parameters.ParamByName('ztsd').Value := viewform.TYSD.Value;
          parameters.ParamByName('ztny').Value := viewform.TYNY.Value;
          parameters.ParamByName('txdate').Value := null;      //

          Execute;
          barform.DelNode(barform.TYTree,i);
          barform.AddNode(barform.TYTree,bm.Text,viewform.name.Text,sex.Text,i);
          barform.TYTree.Refresh;
          dataform.TYquy.Requery([eoAsyncFetch]);
          dataform.TYquy.Locate('main_id',i,[]);

        end;
      3:begin                    //tx
          i := dataform.TXquy.Fields.fieldbyname('main_id').AsInteger;
          parameters.ParamByName('mainid').Value := i;
          parameters.ParamByName('zt').Value := 'tx';
          parameters.ParamByName('gsbt').Value := viewform.TXGS.Value;
          parameters.ParamByName('lgdate').Value := viewform.LGdate.Date;
          parameters.ParamByName('bl').Value := viewform.TXBL.Value;
          parameters.ParamByName('tolpay').Value := viewform.TXTolPay.Value;
          parameters.ParamByName('txdate').Value := viewform.TXdate.Date;
          parameters.ParamByName('starpay').Value := viewform.TXstarPay.Value;
          parameters.ParamByName('ztsd').Value := viewform.TXSD.Value;
          parameters.ParamByName('ztny').Value := viewform.TXNY.Value;

          Execute;
          barform.DelNode(barform.TXTree,i);
          barform.AddNode(barform.TXTree,bm.Text,viewform.name.Text,sex.Text,i);
          barform.TXTree.Refresh;
          dataform.TXquy.Requery();
          dataform.TXquy.Locate('main_id',i,[]);

        end;
      4:begin                    //js
          i := dataform.JSquy.Fields.fieldbyname('main_id').AsInteger;
          parameters.ParamByName('mainid').Value := i;
          parameters.ParamByName('zt').Value := 'js';
          parameters.ParamByName('tingxindate').Value := TingXinDate.Date;
          parameters.ParamByName('jswhy').Value := JSwhy.Text;
          parameters.ParamByName('gsbt').Value := viewform.GSBT.Value;
          parameters.ParamByName('txdate').Value := viewform.JSDate.Date;
          parameters.ParamByName('lgdate').Value := null;       //
          parameters.ParamByName('bl').Value := null;           //
          parameters.ParamByName('tolpay').Value := null;       //
          parameters.ParamByName('starpay').Value := null;      //
          parameters.ParamByName('ztsd').Value := null;         //
          parameters.ParamByName('ztny').Value := null;         //

          Execute;
          barform.DelNode(barform.JSTree,i);
          barform.AddNode(barform.JSTree,bm.Text,viewform.name.Text,sex.Text,i);
          barform.JSTree.Refresh;
          dataform.JSquy.Requery();
          dataform.jsquy.Locate('main_id',i,[]);

        end;
    end;    // case
  end;    // with

end;


//delete a record
procedure TViewForm.DelRecord(quy:tadoquery;mainid:integer);
begin
  with dataform.CMD do
  begin
    commandtext := 'delete from main where main_id=:mainid';
    parameters.ParamByName('mainid').Value := mainid;
    execute;
  end;    // with
  quy.Requery();
end;

function TViewForm.GetNewID;  //get new record mainid
begin
  with dataform.selquy do
  begin
    close;
    sql.Clear;
    sql.Add('select max(main_id) from main');
    open;
    first;
    result := fields.Fields[0].AsInteger;
  end;    // with
end;

procedure tviewform.CheckRecord;
begin
if trim(name.text) = '' then
  begin
    messagebox(application.Handle,'姓名 不能为空！','提示',MB_OK+MB_ICONQUESTION);
    MainPage.ActivePageIndex := 0;
    name.SetFocus;
    abort;
  end;

if trim(sex.Text) = '' then
  begin
    messagebox(application.Handle,'性别 不能为空！','提示',MB_OK+MB_ICONQUESTION);
    MainPage.ActivePageIndex := 0;
    sex.SetFocus;
    abort;
  end;

if trim(born.Text) = '' then
  begin
    messagebox(application.Handle,'出生年月 不能为空！','提示',MB_OK+MB_ICONQUESTION);
    MainPage.ActivePageIndex := 0;
    born.SetFocus;
    abort;
  end;

if trim(idcard.Text) = '' then
  begin
    messagebox(application.Handle,'身份证号 不能为空！','提示',MB_OK+MB_ICONQUESTION);
    MainPage.ActivePageIndex := 0;
    idcard.SetFocus;
    abort;
  end;

if trim(bm.Text) = '' then
  begin
    messagebox(application.Handle,'部门 不能为空！','提示',MB_OK+MB_ICONQUESTION);
    MainPage.ActivePageIndex := 0;
    bm.SetFocus;
    abort;
  end;

if trim(dw.text) = '' then
  begin
    messagebox(application.Handle,'单位 不能为空！','提示',MB_OK+MB_ICONQUESTION);
    MainPage.ActivePageIndex := 0;
    dw.SetFocus;
    abort;
  end;

if trim(WorkLB.Text) = '' then
  begin
    messagebox(application.Handle,'工作类别 不能为空！','提示',MB_OK+MB_ICONQUESTION);
    MainPage.ActivePageIndex := 0;
    WorkLB.SetFocus;
    abort;
  end;

if trim(yg.Text) = '' then
  begin
    messagebox(application.Handle,'用工性质 不能为空！','提示',MB_OK+MB_ICONQUESTION);
    MainPage.ActivePageIndex := 0;
    yg.SetFocus;
    abort;
  end;

if trim(JobDate.Text) = '' then
  begin
    messagebox(application.Handle,'工作时间 不能为空！','提示',MB_OK+MB_ICONQUESTION);
    MainPage.ActivePageIndex := 0;
    JobDate.SetFocus;
    abort;
  end;

case barform.Tag of  //
1:begin      //nt
  if trim(NTdate.Text) = '' then
    begin
      messagebox(application.Handle,'内退时间 不能为空！','提示',MB_OK+MB_ICONQUESTION);
      MainPage.ActivePageIndex := 4;
      ntdate.SetFocus;
      abort;
    end;
  end;
2:begin     //ty
  if trim(TYdate.Text) = '' then
    begin
      messagebox(application.Handle,'退养时间 不能为空！','提示',MB_OK+MB_ICONQUESTION);
      MainPage.ActivePageIndex := 5;
      tydate.SetFocus;
      abort;
    end;
  end;
3:begin     //tx
  if trim(LGdate.Text) = '' then
    begin
      messagebox(application.Handle,'离岗时间 不能为空！','提示',MB_OK+MB_ICONQUESTION);
      MainPage.ActivePageIndex := 3;
      LGdate.SetFocus;
      abort;
    end;

  if trim(txdate.Text) = '' then
    begin
      messagebox(application.Handle,'退休时间 不能为空！','提示',MB_OK+MB_ICONQUESTION);
      MainPage.ActivePageIndex := 3;
      txdate.SetFocus;
      abort;
    end;
  end;
4:begin     //js
  if trim(jsdate.Text) = '' then
    begin
      messagebox(application.Handle,'减少时间 不能为空！','提示',MB_OK+MB_ICONQUESTION);
      MainPage.ActivePageIndex := 6;
      jsdate.SetFocus;
      abort;
    end;

  if trim(TingXinDate.Text) = '' then
    begin
      messagebox(application.Handle,'停薪时间 不能为空！','提示',MB_OK+MB_ICONQUESTION);
      MainPage.ActivePageIndex := 6;
      TingXinDate.SetFocus;
      abort;
    end;

  if trim(JSwhy.Text) = '' then
    begin
      messagebox(application.Handle,'减少原因 不能为空！','提示',MB_OK+MB_ICONQUESTION);
      MainPage.ActivePageIndex := 6;
      JSwhy.SetFocus;
      abort;
    end;
  end;
end;//case
end;

procedure tviewform.AddRecord;   //Add a new record
var
  ms:tmemorystream;
  i:integer;
  tempsql:tstrings;
begin
  with dataform.CMD do
  begin
  if fileexists(filepath+'SQL\ins.sql') then
    begin
      tempsql := tstringlist.Create;
    try
      tempsql.LoadFromFile(filepath+'SQL\ins.sql');
      commandtext:=tempsql.Text;
    finally
      tempsql.Free;
    end;
    end;
    parameters.ParamByName('name').Value := viewform.name.Text;
    parameters.ParamByName('sex').Value := viewform.sex.Text;
    parameters.ParamByName('mz').Value := viewform.MZ.Text;
    parameters.ParamByName('born').Value := viewform.born.Date;
    parameters.ParamByName('jobdate').Value := viewform.JobDate.Date;

    if trim(viewform.CGdate.Text) = '' then
      parameters.ParamByName('cgdate').Value := null
    else
      parameters.ParamByName('cgdate').Value := viewform.CGdate.Date;

    parameters.ParamByName('hunyin').Value := viewform.HY.Text;
    parameters.ParamByName('gw').Value := viewform.GW.Text;
    parameters.ParamByName('xueli').Value := viewform.XL.Text;
    parameters.ParamByName('zc').Value := viewform.ZC.Text;
    parameters.ParamByName('zm').Value := viewform.ZM.Text;

    if trim(viewform.ZM_date.Text) = '' then
      parameters.ParamByName('zm_date').Value := null
    else
      parameters.ParamByName('zm_date').Value := viewform.ZM_date.Date;

    if trim(viewform.LiangXi.Text) = '' then
      parameters.ParamByName('lianxi').Value := ' '
    else
      parameters.ParamByName('lianxi').Value := viewform.LiangXi.Text;

    if trim(viewform.Address.Text) = '' then
      parameters.ParamByName('address').Value := ' '
    else
      parameters.ParamByName('address').Value := viewform.Address.Text;
    if trim(viewform.JL.Text) = ''  then
      parameters.ParamByName('jl').Value := ' '
    else
      parameters.ParamByName('JL').Value := viewform.Jl.Text;

    if trim(viewform.JTQK.Text) = '' then
      parameters.ParamByName('jtqk').Value := ' '
    else
      parameters.ParamByName('jtqk').Value := viewform.JTQK.Text;

    parameters.ParamByName('idcard').Value := viewform.IDcard.Text;
    parameters.ParamByName('dangan').Value := viewform.DAH.Text;
    parameters.ParamByName('diannao').Value := viewform.DNH.Text;
    parameters.ParamByName('yiliaocard').Value := viewform.YLcard.Text;
    parameters.ParamByName('jnpay').Value := viewform.JNpay.Value;
    parameters.ParamByName('gw94').Value := viewform.GW94.Value;
    parameters.ParamByName('gw96').Value := viewform.GW96.Value;
    parameters.ParamByName('gw2003').Value := viewform.GW2003.Value;
    parameters.ParamByName('worklb').Value := viewform.WorkLB.Text;
    parameters.ParamByName('yonggong').Value := viewform.YG.Text;

    if (photo.Tag = 0) and (not photo.Picture.Bitmap.Empty) then            //load photo
      begin
        ms := tmemorystream.Create;
        photo.Picture.Bitmap.SaveToStream(ms);
        parameters.ParamByName('photo').LoadFromStream(ms,ftblob);
      end
    else
      begin
        parameters.ParamByName('photo').Value := null;
      end;

    parameters.ParamByName('dw_id').Value := getdwid(bm.Text,dw.Text);

    case barform.Tag of    //
      0:begin                    //zz
          parameters.ParamByName('zt').Value := 'zz';
          parameters.ParamByName('gsbt').Value := viewform.GSBT.Value;
          parameters.ParamByName('bl').Value := null;          //
          parameters.ParamByName('lgdate').Value := null;      //
          parameters.ParamByName('txdate').Value := null;      //
          parameters.ParamByName('starpay').Value := null;     //
          parameters.ParamByName('tolpay').Value := null;      //
          parameters.ParamByName('ztsd').Value := null;        //
          parameters.ParamByName('ztny').Value := null;        //
          Execute;
          i := GetNewID;
          barform.ZZAddNode(bm.Text,dw.Text,viewform.name.Text,sex.Text,i);
          barform.ZZTree.Refresh;
          dataform.ZZquy.Requery();
          dataform.ZZquy.Locate('main_id',i,[]);
        end;
      1:begin                    //nt
          parameters.ParamByName('zt').Value := 'nt';
          parameters.ParamByName('gsbt').Value := viewform.GSBT.Value;
          parameters.ParamByName('lgdate').Value := viewform.NTdate.Date;
          parameters.ParamByName('bl').Value := viewform.NTBL.Value;
          parameters.ParamByName('tolpay').Value := viewform.NTTolPay.Value;
          parameters.ParamByName('txdate').Value := null;       //
          parameters.ParamByName('starpay').Value := null;      //
          parameters.ParamByName('ztsd').Value := null;         //
          parameters.ParamByName('ztny').Value := null;         //
          Execute;
          i := GetNewID;
          barform.AddNode(barform.ntTree,bm.Text,viewform.name.Text,sex.Text,i);
          barform.ntTree.Refresh;
          dataform.ntquy.Requery();
          dataform.ntquy.Locate('main_id',i,[]);
        end;
      2:begin                    //ty
          parameters.ParamByName('zt').Value := 'ty';
          parameters.ParamByName('gsbt').Value := viewform.TYGS.Value;
          parameters.ParamByName('lgdate').Value := viewform.TYdate.Date;
          parameters.ParamByName('bl').Value := viewform.TYBL.Value;
          parameters.ParamByName('tolpay').Value := viewform.TYTolPay.Value;
          parameters.ParamByName('starpay').Value := viewform.TYstarPay.Value;
          parameters.ParamByName('ztsd').Value := viewform.TYSD.Value;
          parameters.ParamByName('ztny').Value := viewform.TYNY.Value;
          parameters.ParamByName('txdate').Value := null;      //
          Execute;
          i := GetNewID;