viewunit.pas

人事管理源码 Delphi+ADO+Acce

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

        end;
      3:begin                    //tx
          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;
          i := GetNewID;
          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
          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;
          i := GetNewID;
          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;

procedure tviewform.SetPages(pgs:TPageControl; CanUse:boolean);
var
  i,j:integer;
  con:tcontrol;
begin
  for I := 0 to pgs.PageCount - 1 do    // 遍历页控件所有页
  begin
    for j := 0 to pgs.Pages[i].ControlCount - 1 do    // 遍历此页所有控年
    begin
      con := pgs.Pages[i].Controls[j];
      if not (con is TLabel) then con.Enabled := CanUse;
    end;    // for
  end;    // for
end;

procedure tviewform.EmptyEdit;
var
  i:integer;
  prop:ppropinfo;
begin
for I := 0 to componentcount - 1 do    // Iterate
begin
// clear Tedit
  prop := getpropinfo(components[i].classinfo,'text');  //设置文本框
  if prop <> nil then
    setstrprop(components[i],prop,'');
 //clear Tdateedit
  prop := getpropinfo(components[i].classinfo,'date');
  if prop <> nil then
    setfloatprop(components[i],prop, -700000 );
//clear Tcombobox
  prop := getpropinfo(components[i].classinfo,'itemindex');
  if prop <> nil then
    setordprop(components[i],prop, -1 );

  prop := getpropinfo(components[i].classinfo,'value');
  if prop <> nil then
    setfloatprop(components[i],prop,0);
end;    // for
LiangXi.Text := ' ';
Address.Text := ' ';
jtqk.Text := ' ';
jl.Text := ' ';
end;


procedure tviewform.ZZView;  //view zz
var
  ms:tadoblobstream;
begin
  mainpage.ActivePageIndex := 0;
  ntpage.TabVisible := false;
  typage.TabVisible := false;
  txpage.TabVisible := false;
  jspage.TabVisible := false;
  gsbt.Visible := true;
  label25.Visible := true;

//rspage
  name.Text := dataform.ZZquy.Fields.fieldbyname('name').AsString;
  sex.ItemIndex := sex.Items.IndexOf(trim(dataform.ZZquy.Fields.fieldbyname('sex').AsString));
  mz.ItemIndex := mz.Items.IndexOf(trim(dataform.ZZquy.Fields.fieldbyname('mz').AsString));
  if dataform.ZZquy.Fields.FieldByName('born').IsNull then
    born.Text := ''
  else
    born.Date := dataform.ZZquy.Fields.fieldbyname('born').AsDateTime;

  xl.ItemIndex := xl.Items.IndexOf(trim(dataform.ZZquy.Fields.fieldbyname('xueli').AsString));
  zc.ItemIndex := zc.Items.IndexOf(trim(dataform.ZZquy.Fields.fieldbyname('zc').AsString));
  zm.ItemIndex := zm.Items.IndexOf(trim(dataform.ZZquy.Fields.fieldbyname('zm').AsString));
  if dataform.ZZquy.Fields.fieldbyname('ZM_date').IsNull then
    ZM_date.Text :=''
  else
    zm_date.Date := dataform.ZZquy.Fields.fieldbyname('ZM_date').AsDateTime;

  hy.ItemIndex := hy.Items.IndexOf(trim(dataform.ZZquy.Fields.fieldbyname('hunyin').AsString));
  IDcard.Text := dataform.ZZquy.Fields.fieldbyname('idcard').AsString;
  DAH.Text := dataform.ZZquy.Fields.fieldbyname('dangan').AsString;

  bm.ItemIndex := bm.Items.IndexOf(trim(dataform.ZZquy.Fields.fieldbyname('bm').AsString));
  if bm.ItemIndex > -1 then getdwlist(bm.Text,dw.Items);
  dw.ItemIndex := dw.Items.IndexOf(trim(dataform.ZZquy.Fields.fieldbyname('dw').AsString));

  WorkLB.ItemIndex := WorkLB.Items.IndexOf(trim(dataform.ZZquy.Fields.Fieldbyname('worklb').AsString));
  gw.ItemIndex := gw.Items.IndexOf(trim(dataform.ZZquy.Fields.fieldbyname('GW').AsString));
  yg.ItemIndex := yg.Items.IndexOf(trim(dataform.ZZquy.Fields.fieldbyname('yonggong').AsString));
  if dataform.ZZquy.Fields.fieldbyname('jobdate').IsNull then
    JobDate.Text := ''
  else
    JobDate.Date := dataform.ZZquy.Fields.fieldbyname('jobdate').AsDateTime;

  if dataform.ZZquy.Fields.fieldbyname('CGdate').IsNull then
    CGdate.Text := ''
  else
    CGdate.Date := dataform.ZZquy.Fields.fieldbyname('CGdate').AsDateTime;

  DNH.Text := dataform.ZZquy.fields.fieldbyname('diannao').AsString;
  YLcard.Text := dataform.ZZquy.Fields.fieldbyname('Yiliaocard').AsString;
  YBH.Text := dataform.ZZquy.Fields.fieldbyname('Yibaocard').AsString;
//show photo
  if dataform.ZZquy.Fields.FieldByName('photo').IsNull then
    begin
      photo.Tag := 1;
      if dataform.ZZquy.Fields.FieldByName('sex').Value = '男' then
        photo.Picture.LoadFromFile(filepath+'image\male.bmp')
      else
        photo.Picture.LoadFromFile(filepath+'image\female.bmp');
    end
  else
    begin
        ms := tadoblobstream.Create(tblobfield(dataform.ZZquy.Fields.FieldByName('photo')),bmread);
      try
        photo.Picture := nil;
        photo.Picture.Bitmap.LoadFromStream(ms);
        photo.Tag := 0;
      finally
        ms.Free;
      end;
    end;

//gzpage
  JNpay.Value := dataform.ZZquy.Fields.fieldbyname('jnpay').AsCurrency;
  GW94.Value := dataform.ZZquy.Fields.fieldbyname('gw94').AsCurrency;
  GW96.Value := dataform.ZZquy.Fields.fieldbyname('gw96').AsCurrency;
  GW2003.Value := dataform.ZZquy.Fields.fieldbyname('gw2003').AsCurrency;
  GSBT.Value := dataform.ZZquy.Fields.fieldbyname('gsbt').AsCurrency;

//otherpage
  LiangXi.Text := dataform.ZZquy.Fields.fieldbyname('lianxi').AsString;
  Address.Text := dataform.ZZquy.fields.fieldbyname('address').AsString;
  JTQK.Text := dataform.ZZquy.Fields.fieldbyname('jtqk').Asstring;
  jl.Text := dataform.ZZquy.Fields.fieldbyname('jl').AsString;
end;

procedure tviewform.NTView;     //view nt
var
  ms:tadoblobstream;
begin
  mainpage.ActivePageIndex := 0;
  ntpage.TabVisible := true;
  typage.TabVisible := false;
  txpage.TabVisible := false;
  jspage.TabVisible := false;
  gsbt.Visible := true;
  label25.Visible := true;

//rspage
  name.Text := dataform.NTquy.Fields.fieldbyname('name').AsString;
  sex.ItemIndex := sex.Items.IndexOf(trim(dataform.NTquy.Fields.fieldbyname('sex').AsString));
  mz.ItemIndex := mz.Items.IndexOf(trim(dataform.NTquy.Fields.fieldbyname('mz').AsString));
  if dataform.NTquy.Fields.fieldbyname('born').IsNull then
    born.Text := ''
  else
    born.Date := dataform.NTquy.Fields.fieldbyname('born').AsDateTime;

  xl.ItemIndex := xl.Items.IndexOf(trim(dataform.NTquy.Fields.fieldbyname('xueli').AsString));
  zc.ItemIndex := zc.Items.IndexOf(trim(dataform.NTquy.Fields.fieldbyname('zc').AsString));
  zm.ItemIndex := zm.Items.IndexOf(trim(dataform.NTquy.Fields.fieldbyname('zm').AsString));
  if dataform.NTquy.Fields.fieldbyname('ZM_date').IsNull then
    ZM_date.Text := ''
  else
    zm_date.Date := dataform.NTquy.Fields.fieldbyname('ZM_date').AsDateTime;

  hy.ItemIndex := hy.Items.IndexOf(trim(dataform.NTquy.Fields.fieldbyname('hunyin').AsString));
  IDcard.Text := dataform.NTquy.Fields.fieldbyname('idcard').AsString;
  DAH.Text := dataform.NTquy.Fields.fieldbyname('dangan').AsString;

  bm.ItemIndex := bm.Items.IndexOf(trim(dataform.NTquy.Fields.fieldbyname('bm').AsString));
  if bm.ItemIndex > -1 then getdwlist(bm.Text,dw.Items);
  dw.ItemIndex := dw.Items.IndexOf(trim(dataform.NTquy.Fields.fieldbyname('dw').AsString));

  WorkLB.ItemIndex := WorkLB.Items.IndexOf(trim(dataform.NTquy.Fields.Fieldbyname('worklb').AsString));
  gw.ItemIndex := gw.Items.IndexOf(trim(dataform.NTquy.Fields.fieldbyname('GW').AsString));
  yg.ItemIndex := yg.Items.IndexOf(trim(dataform.NTquy.Fields.fieldbyname('yonggong').AsString));
  if dataform.NTquy.Fields.fieldbyname('jobdate').IsNull then
    JobDate.Text := ''
  else
    JobDate.Date := dataform.NTquy.Fields.fieldbyname('jobdate').AsDateTime;
  if dataform.NTquy.Fields.fieldbyname('CGdate').IsNull then
    CGdate.Text := ''
  else
    CGdate.Date := dataform.NTquy.Fields.fieldbyname('CGdate').AsDateTime;
    
  DNH.Text := dataform.NTquy.fields.fieldbyname('diannao').AsString;
  YLcard.Text := dataform.NTquy.Fields.fieldbyname('Yiliaocard').AsString;
  YBH.Text := dataform.NTquy.Fields.fieldbyname('Yibaocard').AsString;

//show photo
  if dataform.NTquy.Fields.FieldByName('photo').IsNull then
    begin
      photo.Tag := 1;
      if dataform.NTquy.Fields.FieldByName('sex').Value = '男' then
        photo.Picture.LoadFromFile(filepath+'image\male.bmp')
      else
        photo.Picture.LoadFromFile(filepath+'image\female.bmp');
    end
  else
    begin
        ms := tadoblobstream.Create(tblobfield(dataform.NTquy.Fields.FieldByName('photo')),bmread);
      try
        photo.Picture := nil;
        photo.Picture.Bitmap.LoadFromStream(ms);
        photo.Tag := 0;
      finally
        ms.Free;
      end;
    end;

//gzpage
  JNpay.Value := dataform.NTquy.Fields.fieldbyname('jnpay').AsCurrency;
  GW94.Value := dataform.NTquy.Fields.fieldbyname('gw94').AsCurrency;
  GW96.Value := dataform.NTquy.Fields.fieldbyname('gw96').AsCurrency;
  GW2003.Value := dataform.NTquy.Fields.fieldbyname('gw2003').AsCurrency;
  GSBT.Value := dataform.NTquy.Fields.fieldbyname('gsbt').AsCurrency;

//otherpage
  LiangXi.Text := dataform.NTquy.Fields.fieldbyname('lianxi').AsString;
  Address.Text := dataform.NTquy.fields.fieldbyname('address').AsString;
  JTQK.Text := dataform.NTquy.Fields.fieldbyname('jtqk').Asstring;
  jl.Text := dataform.NTquy.Fields.fieldbyname('jl').AsString;

//NTpage
  if dataform.NTquy.Fields.fieldbyname('lgdate').IsNull then
    ntdate.Text := ''
  else
    ntdate.Date := dataform.NTquy.Fields.fieldbyname('lgdate').AsDateTime;

  NTBL.Value := dataform.NTquy.Fields.fieldbyname('bl').AsInteger;
  NTTolPay.Value := dataform.NTquy.Fields.fieldbyname('tolpay').AsCurrency;
end;

procedure tviewform.TYView;     //view ty
var
  ms:tadoblobstream;
begin
  mainpage.ActivePageIndex := 0;
  ntpage.TabVisible := false;
  typage.TabVisible := true;
  txpage.TabVisible := false;
  jspage.TabVisible := false;
  gsbt.Visible := false;
  label25.Visible := false;

//rspage
  name.Text := dataform.TYquy.Fields.fieldbyname('name').AsString;
  sex.ItemIndex := sex.Items.IndexOf(trim(dataform.TYquy.Fields.fieldbyname('sex').AsString));
  mz.ItemIndex := mz.Items.IndexOf(trim(dataform.TYquy.Fields.fieldbyname('mz').AsString));
  if dataform.TYquy.Fields.fieldbyname('born').IsNull then
    born.Text := ''
  else
    born.Date := dataform.TYquy.Fields.fieldbyname('born').AsDateTime;

  xl.ItemIndex := xl.Items.IndexOf(trim(dataform.TYquy.Fields.fieldbyname('xueli').AsString));
  zc.ItemIndex := zc.Items.IndexOf(trim(dataform.TYquy.Fields.fieldbyname('zc').AsString));
  zm.ItemIndex := zm.Items.IndexOf(trim(dataform.TYquy.Fields.fieldbyname('zm').AsString));
  if dataform.TYquy.Fields.fieldbyname('ZM_date').IsNull then
    ZM_date.Text := ''
  else
    zm_date.Date := dataform.TYquy.Fields.fieldbyname('ZM_date').AsDateTime;

  hy.ItemIndex := hy.Items.IndexOf(trim(dataform.TYquy.Fields.fieldbyname('hunyin').AsString));
  IDcard.Text := dataform.TYquy.Fields.fieldbyname('idcard').AsString;
  DAH.Text := dataform.TYquy.Fields.fieldbyname('dangan').AsString;

  bm.ItemIndex := bm.Items.IndexOf(trim(dataform.TYquy.Fields.fieldbyname('bm').AsString));
  if bm.ItemIndex > -1 then getdwlist(bm.Text,dw.Items);
  dw.ItemIndex := dw.Items.IndexOf(trim(dataform.TYquy.Fields.fieldbyname('dw').AsString));

  WorkLB.ItemIndex := WorkLB.Items.IndexOf(trim(dataform.TYquy.Fields.Fieldbyname('worklb').AsString));
  gw.ItemIndex := gw.Items.IndexOf(trim(dataform.TYquy.Fields.fieldbyname('GW').AsString));
  yg.ItemIndex := yg.Items.IndexOf(trim(dataform.TYquy.Fields.fieldbyname('yonggong').AsString));
  if dataform.TYquy.Fields.fieldbyname('jobdate').IsNull then
    JobDate.Text := ''
  else
    JobDate.Date := dataform.TYquy.Fields.fieldbyname('jobdate').AsDateTime;

  if dataform.TYquy.Fields.fieldbyname('CGdate').IsNull then
    CGdate.Text := ''
  else
    CGdate.Date := dataform.TYquy.Fields.fieldbyname('CGdate').AsDateTime;

  DNH.Text := dataform.TYquy.fields.fieldbyname('diannao').AsString;
  YLcard.Text := dataform.TYquy.Fields.fieldbyname('Yiliaocard').AsString;
  YBH.Text := dataform.TYquy.Fields.fieldbyname('Yibaocard').AsString;

//show photo
  if dataform.tyquy.Fields.FieldByName('photo').IsNull then
    begin
      photo.Tag := 1;
      if dataform.tyquy.Fields.FieldByName('sex').Value = '男' then
        photo.Picture.LoadFromFile(filepath+'image\male.bmp')
      else
        photo.Picture.LoadFromFile(filepath+'image\female.bmp');
    end
  else
    begin
        ms := tadoblobstream.Create(tblobfield(dataform.tyquy.Fields.FieldByName('photo')),bmread);
      try
        photo.Picture := nil;
        photo.Picture.Bitmap.LoadFromStream(ms);
        photo.Tag := 0;
      finally
        ms.Free;
      end;
    end;

//gzpage
  JNpay.Value := dataform.TYquy.Fields.fieldbyname('jnpay').AsCurrency;
  GW94.Value := dataform.TYquy.Fields.fieldbyname('gw94').AsCurrency;
  GW96.Value := dataform.TYquy.Fields.fieldbyname('gw96').AsCurrency;
  GW2003.Value := dataform.TYquy.Fields.fieldbyname('gw2003').AsCurrency;

//otherpage
  LiangXi.Text := dataform.TYquy.Fields.fieldbyname('lianxi').AsString;
  Address.Text := dataform.TYquy.fields.fieldbyname('address').AsString;
  JTQK.Text := dataform.TYquy.Fields.fieldbyname('jtqk').Asstring;
  jl.Text := dataform.TYquy.Fields.fieldbyname('jl').AsString;

//ntpage
  if dataform.TYquy.Fields.fieldbyname('lgdate').IsNull then
    TYdate.Text := ''