viewunit.pas

人事管理源码 Delphi+ADO+Acce

  else
    TYdate.Date := dataform.TYquy.Fields.fieldbyname('lgdate').AsDateTime;

  tybl.Value := dataform.TYquy.fields.fieldbyname('bl').AsInteger;
  tysd.Value := dataform.TYquy.Fields.fieldbyname('ztsd').AsCurrency;
  tyny.Value := dataform.TYquy.Fields.Fieldbyname('ztny').AsCurrency;
  tygs.Value := dataform.TYquy.Fields.fieldbyname('gsbt').AsCurrency;
  TYstarPay.Value := dataform.TYquy.fields.fieldbyname('starpay').AsCurrency;

end;

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

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

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

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

  bm.ItemIndex := bm.Items.IndexOf(trim(dataform.TXquy.Fields.fieldbyname('bm').AsString));
  if bm.ItemIndex > -1 then getdwlist(bm.Text,dw.Items);
  dw.ItemIndex := dw.Items.IndexOf(trim(dataform.TXquy.Fields.fieldbyname('dw').AsString));
  WorkLB.ItemIndex := WorkLB.Items.IndexOf(trim(dataform.TXquy.Fields.Fieldbyname('worklb').AsString));
  gw.ItemIndex := gw.Items.IndexOf(trim(dataform.TXquy.Fields.fieldbyname('GW').AsString));
  yg.ItemIndex := yg.Items.IndexOf(trim(dataform.TXquy.Fields.fieldbyname('yonggong').AsString));
  if dataform.TXquy.Fields.fieldbyname('jobdate').IsNull then
    JobDate.Text := ''
  else
    JobDate.Date := dataform.TXquy.Fields.fieldbyname('jobdate').AsDateTime;
  if dataform.TXquy.Fields.fieldbyname('CGdate').IsNull then
    CGdate.Text := ''
  else
    CGdate.Date := dataform.TXquy.Fields.fieldbyname('CGdate').AsDateTime;

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

//show photo
  if dataform.txquy.Fields.FieldByName('photo').IsNull then
    begin
      photo.Tag := 1;
      if dataform.txquy.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.txquy.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.TXquy.Fields.fieldbyname('jnpay').AsCurrency;
  GW94.Value := dataform.TXquy.Fields.fieldbyname('gw94').AsCurrency;
  GW96.Value := dataform.TXquy.Fields.fieldbyname('gw96').AsCurrency;
  GW2003.Value := dataform.TXquy.Fields.fieldbyname('gw2003').AsCurrency;
  GSBT.Value := dataform.TXquy.Fields.fieldbyname('gsbt').AsCurrency;

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

//txpage
  if dataform.TXquy.Fields.fieldbyname('lgdate').IsNull then
    LGdate.Text := ''
  else
    LGdate.Date := dataform.TXquy.Fields.fieldbyname('lgdate').AsDateTime;
  if dataform.TXquy.Fields.fieldbyname('txdate').IsNull then
    TXdate.text := ''
  else
    TXdate.Date := dataform.TXquy.Fields.fieldbyname('txdate').AsDateTime;

  txbl.Value := dataform.TXquy.Fields.fieldbyname('bl').AsInteger;
  TXstarPay.Value := dataform.TXquy.Fields.fieldbyname('starpay').AsCurrency;
  TXAddPay.Value := dataform.TXquy.fields.fieldbyname('addpay').AsCurrency;
  TXNY.Value := dataform.txquy.Fields.fieldbyname('ztny').AsCurrency;
  txsd.Value := dataform.TXquy.fields.fieldbyname('ztsd').AsCurrency;
  txgs.Value := dataform.TXquy.Fields.fieldbyname('gsbt').AsCurrency;
  TXTolPay.Value := dataform.TXquy.Fields.fieldbyname('tolpay').AsCurrency;
end;

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

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

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

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

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

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

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

//show photo
  if dataform.jsquy.Fields.FieldByName('photo').IsNull then
    begin
      photo.Tag := 1;
      if dataform.jsquy.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.jsquy.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.JSquy.Fields.fieldbyname('jnpay').AsCurrency;
  GW94.Value := dataform.JSquy.Fields.fieldbyname('gw94').AsCurrency;
  GW96.Value := dataform.JSquy.Fields.fieldbyname('gw96').AsCurrency;
  GW2003.Value := dataform.JSquy.Fields.fieldbyname('gw2003').AsCurrency;
  GSBT.Value := dataform.JSquy.Fields.fieldbyname('gsbt').AsCurrency;

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

//jspage
  if dataform.JSquy.Fields.fieldbyname('txdate').IsNull then
    JSDate.Text := ''
  else
    jsdate.Date := dataform.JSquy.Fields.fieldbyname('txdate').AsDateTime;
  if dataform.JSquy.Fields.fieldbyname('tingxindate').IsNull then
    TingXinDate.Text := ''
  else
    TingXinDate.Date := dataform.JSquy.Fields.fieldbyname('tingxindate').AsDateTime;
    
  JSwhy.ItemIndex := JSwhy.Items.IndexOf(trim(dataform.JSquy.Fields.fieldbyname('jswhy').AsString));
end;


procedure TViewForm.FormCreate(Sender: TObject);
begin
getbmlist(bm.Items);

if fileexists(filepath+'data\0.dat') then
  sex.Items.LoadFromFile(filepath+'data\0.dat');

if fileexists(filepath+'data\1.dat') then
  mz.Items.LoadFromFile(filepath+'data\1.dat');

if fileexists(filepath+'data\2.dat') then
  xl.Items.LoadFromFile(filepath+'data\2.dat');

if fileexists(filepath+'data\3.dat') then
  zc.Items.LoadFromFile(filepath+'data\3.dat');

if fileexists(filepath+'data\4.dat') then
  zm.Items.LoadFromFile(filepath+'data\4.dat');

if fileexists(filepath+'data\5.dat') then
  hy.Items.LoadFromFile(filepath+'data\5.dat');

if fileexists(filepath+'data\6.dat') then
  worklb.Items.LoadFromFile(filepath+'data\6.dat');

if fileexists(filepath+'data\7.dat') then
  gw.Items.LoadFromFile(filepath+'data\7.dat');

if fileexists(filepath+'data\8.dat') then
  Yg.Items.LoadFromFile(filepath+'data\8.dat');

if fileexists(filepath+'data\9.dat') then
  JSwhy.Items.LoadFromFile(filepath+'data\9.dat');
end;

procedure TViewForm.bornKeyPress(Sender: TObject; var Key: Char);
begin
  key := #0;
end;

procedure TViewForm.MainPageChange(Sender: TObject);
begin
  photo.Parent := MainPage.ActivePage;
end;

procedure TViewForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  mainform.ViewBtn.Down := false;
end;

procedure TViewForm.FormShow(Sender: TObject);
begin
  if not mainform.ViewBtn.Down then
    mainform.ViewBtn.Down := true;
end;

procedure TViewForm.CancelBtnClick(Sender: TObject);
begin
  if name.Enabled then
    begin
      SetPages(MainPage,false);
      case barform.Tag of    //
        0: ZZview;
        1: NTView;
        2: TYView;
        3: TXView;
        4: JSView;
      end;    // case
      tag := 1;
    end
  else
    begin
      close;
    end;
end;

procedure TViewForm.BMChange(Sender: TObject);
begin
  if bm.Text <> '' then
    getdwlist(bm.Text,dw.Items);
    
end;

procedure TViewForm.photoDblClick(Sender: TObject);
begin
  if photo.Enabled then
    if openpicturedialog1.Execute then
      begin
        photo.Picture.LoadFromFile(openpicturedialog1.FileName);
        photo.Tag := 0;
      end;
end;

procedure TViewForm.OKbtnClick(Sender: TObject);
begin
  case tag of    //
    1:begin     //view
        tag:= 1 ;
      end;
    2:begin     //edit
        CheckRecord;
        UpdateRecord;
        tag := 1;
      end;
    3:begin     //add new record
        CheckRecord;
        AddRecord;
        tag := 1;
      end;
  end;    // case
  SetPages(mainpage,false);
end;

procedure TViewForm.IDcardKeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['1'..'9']) then
  key := #0;
  
end;

procedure TViewForm.DWEnter(Sender: TObject);
begin
if bm.ItemIndex > -1 then
  begin
    if (bm.Items.Objects[bm.ItemIndex] <> nil) then
      dw.Items.Assign(tstrings(bm.Items.objects[bm.itemindex]));
  end
else
  begin
    messagebox(0,'请先选择部门！','提示',mb_ok+mb_iconquestion);
    bm.SetFocus;
  end;
end;

procedure TViewForm.C1Click(Sender: TObject);
begin
photo.Picture := nil;
end;

procedure TViewForm.T1Click(Sender: TObject);
begin
  if t1.Checked then
    viewform.FormStyle := fsstayontop
  else
    viewform.FormStyle := fsnormal;
    
end;

end.