recunit.pas

工资管理系统

procedure TRecForm.FormShow(Sender: TObject);
begin
//   if not(datat.Table4.Active) then
try
   datat.table4.Close;
   datat.table4.Open;
   datat.Table4.EnableControls;
   datat.BmTable2.Close;
   datat.BmTable2.Open;
   recform.Caption:='记录管理';
   dbcombobox5.Items.LoadFromFile('sx2.Txt');
except
   Application.MessageBox('数据发生错误！！！请运行<维护>---><数据清理>菜单项！！！','提示框',mb_ok+mb_iconstop);
   abort;
end;

end;

procedure TRecForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var sss:boolean;
begin
sss:=datat.D4.State  in [dsEdit,dsInsert];
    if sss then
    begin
    canclose:=false;
    Application.MessageBox('数据已经修改,请保存!!!','提示框',mb_ok+mb_iconstop);
    end
    else
    begin
    canclose:=true;
//    datat.Table4.FreeBookmark(bmark);
    datat.table4.Close;
    end;
end;

procedure TRecForm.GDBGrid1KeyPress(Sender: TObject; var Key: Char);
//var i,j:integer;
begin
{ with GDBGrid1 do
     if Key=#13 then
     begin
     i:=GDBGRID1.Columns.Count;
     j:=GDBGrid1.SelectedIndex;
     if j<=i then
      GDBGrid1.SelectedIndex:=j+1;
  end;}
end;
procedure TRecForm.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key in[vk_RETURN] then
sendmessage(handle,wm_nextdlgctl,0,0)
else
if key in[vk_UP] then
sendmessage(handle,wm_nextdlgctl,1,0);
end;

procedure TRecForm.DBEdit2Exit(Sender: TObject);
var hz:string;
begin
if dbedit2.Text='' then
    begin
         Application.MessageBox('数据不能为空,请修改!!!','提示框',mb_ok+mb_iconstop);
         dbedit2.SetFocus;
         abort;
    end;
   with datat.Table4 do
   begin
    hz:=fieldbyname('name').asstring;
    edit;
    fieldbyname('xmdm').asstring:=uppercase(hzpy(hz));

   end;
end;


procedure TRecForm.SpeedButton6Click(Sender: TObject);
begin
   with datat.Table4 do
   begin
  recform.Caption:=datat.Table4.FieldByName('Name').AsString+'应发额为:'+
        floattostr(fieldbyname('bz_gw').asfloat+fieldbyname('bz_jn').asfloat+
        fieldbyname('jb_jj').asfloat+fieldbyname('jb_jc').asfloat
        +fieldbyname('jb_nt').asfloat+fieldbyname('jb_bj').asfloat
        +fieldbyname('jb_gs').asfloat+fieldbyname('jb_hc').asfloat
        +fieldbyname('jb_by').asfloat+fieldbyname('jb_qt').asfloat
        +fieldbyname('jl_jj').asfloat+fieldbyname('jl_ce').asfloat
        +fieldbyname('jl_qt').asfloat+fieldbyname('jt_xj').asfloat
        +fieldbyname('jt_gt').asfloat+fieldbyname('jt_zr').asfloat
        +fieldbyname('jt_yb').asfloat+fieldbyname('jt_jg').asfloat
        +fieldbyname('jt_st').asfloat+fieldbyname('jt_kl').asfloat
        +fieldbyname('jt_jh').asfloat+fieldbyname('jt_gat').asfloat
        +fieldbyname('jt_7x').asfloat+fieldbyname('jt_ly').asfloat
        +fieldbyname('jt_lc').asfloat+fieldbyname('jt_lj').asfloat
        +fieldbyname('jt_b9').asfloat+fieldbyname('jt_hz').asfloat
        +fieldbyname('jt_ft').asfloat+fieldbyname('jt_qt').asfloat
        +fieldbyname('qt_jb').asfloat+fieldbyname('qt_qt').asfloat
        +fieldbyname('fg_wc').asfloat+fieldbyname('fg_bj').asfloat)+'元';
     end;
end;


procedure TRecForm.SpeedButton7Click(Sender: TObject);
begin
 with datat.Table4 do
   begin
  recform.Caption:=datat.Table4.FieldByName('Name').AsString+'实发额为:'+
        floattostr(fieldbyname('bz_gw').asfloat+fieldbyname('bz_jn').asfloat
        +fieldbyname('jb_jj').asfloat+fieldbyname('jb_jc').asfloat
        +fieldbyname('jb_nt').asfloat+fieldbyname('jb_bj').asfloat
        +fieldbyname('jb_gs').asfloat+fieldbyname('jb_hc').asfloat
        +fieldbyname('jb_by').asfloat+fieldbyname('jb_qt').asfloat
        +fieldbyname('jl_jj').asfloat+fieldbyname('jl_ce').asfloat
        +fieldbyname('jl_qt').asfloat+fieldbyname('jt_xj').asfloat
        +fieldbyname('jt_gt').asfloat+fieldbyname('jt_zr').asfloat
        +fieldbyname('jt_yb').asfloat+fieldbyname('jt_jg').asfloat
        +fieldbyname('jt_st').asfloat+fieldbyname('jt_kl').asfloat
        +fieldbyname('jt_jh').asfloat+fieldbyname('jt_gat').asfloat
        +fieldbyname('jt_7x').asfloat+fieldbyname('jt_ly').asfloat
        +fieldbyname('jt_lc').asfloat+fieldbyname('jt_lj').asfloat
        +fieldbyname('jt_b9').asfloat+fieldbyname('jt_hz').asfloat
        +fieldbyname('jt_ft').asfloat+fieldbyname('jt_qt').asfloat
        +fieldbyname('qt_jb').asfloat+fieldbyname('qt_qt').asfloat
        +fieldbyname('fg_wc').asfloat+fieldbyname('fg_bj').asfloat
         -fieldbyname('kk_yl').asfloat-fieldbyname('kk_gj').asfloat
        -fieldbyname('kk_qt1').asfloat-fieldbyname('kk_qt2').asfloat)+'元';
     end;

end;

procedure TRecForm.DBEdit25KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 begin
   if MessageBox(Handle,'保存吗?',pchar(caption),mb_iconinformation+mb_okcancel)
    =mrok then
           begin
               speedbutton3.Click;
           end;
    if MessageBox(Handle,'继续增加吗?',pchar(caption),mb_iconinformation+mb_okcancel)
    =mrok then
             begin
             speedbutton1.Click;
             end;
       end;
end;


procedure TRecForm.DBEdit1Exit(Sender: TObject);
begin
    if dbedit1.Text='' then
    begin
         Application.MessageBox('数据不能为空,请修改!!!','提示框',mb_ok+mb_iconstop);
         dbedit1.SetFocus;
         abort;
    end;
end;

procedure TRecForm.DBEdit3Exit(Sender: TObject);
begin
if dbedit3.Text='' then
    begin
         Application.MessageBox('数据不能为空,请修改!!!','提示框',mb_ok+mb_iconstop);
         dbedit3.SetFocus;
         abort;
    end;
end;

procedure TRecForm.DBComboBox1Exit(Sender: TObject);
begin
if dbcombobox1.Text='' then
    begin
         Application.MessageBox('数据不能为空,请修改!!!','提示框',mb_ok+mb_iconstop);
         dbcombobox1.SetFocus;
         abort;
    end;
sendmessage(dbcombobox1.handle,cb_showdropdown,0,0);
sendmessage(dbcombobox2.handle,cb_showdropdown,1,0);


end;

procedure TRecForm.DBComboBox2Exit(Sender: TObject);
begin
if dbcombobox2.Text='' then
    begin
         Application.MessageBox('数据不能为空,请修改!!!','提示框',mb_ok+mb_iconstop);
         dbcombobox2.SetFocus;
         abort;
    end;
 sendmessage(dbcombobox2.handle,cb_showdropdown,0,0);
// sendmessage(dblookupcombobox1.handle,cb_showdropdown,1,0);
 dblookupcombobox1.DropDown;

end;

procedure TRecForm.DBLookupComboBox1Exit(Sender: TObject);
begin
if dblookupcombobox1.Text='' then
    begin
         Application.MessageBox('数据不能为空,请修改!!!','提示框',mb_ok+mb_iconstop);
         dblookupcombobox1.SetFocus;
         abort;
    end;
// dblookupcombobox1.
// sendmessage(dbcombobox3.handle,cb_showdropdown,1,0);
// sendmessage(dblookupcombobox1.handle,cb_showdropdown,0,0);

end;

procedure TRecForm.DBComboBox3Exit(Sender: TObject);
begin
if dbcombobox3.Text='' then
    begin
         Application.MessageBox('数据不能为空,请修改!!!','提示框',mb_ok+mb_iconstop);
         dbcombobox3.SetFocus;
         abort;
    end;
 sendmessage(dbcombobox3.handle,cb_showdropdown,0,0);
 sendmessage(dbcombobox4.handle,cb_showdropdown,1,0);

end;

procedure TRecForm.DBComboBox5Exit(Sender: TObject);
begin
if dbcombobox5.Text='' then
    begin
         Application.MessageBox('数据不能为空,请修改!!!','提示框',mb_ok+mb_iconstop);
         dbcombobox5.SetFocus;
         abort;
    end;
sendmessage(dbcombobox5.handle,cb_showdropdown,0,0);

end;

procedure TRecForm.DBEdit4Exit(Sender: TObject);
begin
sendmessage(dbcombobox1.handle,cb_showdropdown,1,0);
end;

procedure TRecForm.DBComboBox4Exit(Sender: TObject);
begin
 if dbcombobox4.Text='' then
    begin
         Application.MessageBox('数据不能为空,请修改!!!','提示框',mb_ok+mb_iconstop);
         dbcombobox4.SetFocus;
         abort;
    end
  else
  if dbcombobox4.Text='男' then
    begin
        dbedit15.Text:='75';
        dbedit25.Text:='35';
    end else
  if dbcombobox4.Text='女' then
    begin
         dbedit15.Text:='77';
         dbedit25.Text:='35';
    end;
  sendmessage(dbcombobox4.handle,cb_showdropdown,0,0);

end;

procedure TRecForm.DBEdit24Exit(Sender: TObject);
begin
 sendmessage(dbcombobox5.handle,cb_showdropdown,1,0);

end;

procedure TRecForm.DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key in[vk_end] then
   begin
//        dblookupcombobox1.CloseUp(false);
        sendmessage(handle,wm_nextdlgctl,0,0);
        sendmessage(dbcombobox3.handle,cb_showdropdown,1,0);
   end
   else
if key in[vk_up] then
   sendmessage(handle,wm_nextdlgctl,1,0);
end;
end.