recunit2.pas

不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.

   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.ReleaseBookmark(bmark);
    datat.table4.Close;
    datat.Table1.Close;
    datat.BmTable2.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)
else
if key in[vk_down] then
sendmessage(handle,wm_nextdlgctl,0,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
       else
       datat.Table4.Cancel;
    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
    try
        datat.table4.FieldByName('jt_7x').asfloat:=75;
        datat.table4.FieldByName('kk_gj').asfloat:=35;
    except
        Application.MessageBox('数据没打开，请打开！！！','提示框',mb_ok+mb_iconstop);
        abort;
    end;

    end else
  if dbcombobox4.Text='女' then
    begin
    try
    datat.table4.FieldByName('jt_7x').asfloat:=77;
    datat.table4.FieldByName('kk_gj').asfloat:=35;
    except
        Application.MessageBox('数据没打开，请打开！！！','提示框',mb_ok+mb_iconstop);
        abort;
    end;
    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);
// datat.Table4.FieldByName('bmno').AsString:=dblookupcombobox1.KeyField;
// postmessage(handle,wm_keydown,vk_return,0);
// postmessage(handle,wm_keydown,vk_return,0);
    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;
procedure TRecForm.DBEdit14KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
     begin
     selectnext(sender as twincontrol,true,true);
     key:=#0;
     end;
end;

procedure TRecForm.DBComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key in[vk_RETURN] then
sendmessage(handle,wm_nextdlgctl,0,0);
end;




procedure TRecForm.GDBGrid1DblClick(Sender: TObject);
begin
     tstringgrid(gdbgrid1).fixedcols:=4;
     datat.Table4.EnableControls;
     gdbgrid1.ShowHint:=false;
end;




procedure TRecForm.DBEdit7Exit(Sender: TObject);
begin
    datat.table4.Edit;
    datat.table4.FieldByName('bz_hj').asfloat:= datat.table4.FieldByName('bz_jn').asfloat+ datat.table4.FieldByName('bz_gw').asfloat;
end;








procedure TRecForm.Button1Click(Sender: TObject);
begin
  if inputform=nil then
     Application.CreateForm(TInputForm, InputForm);
     inputform.show;
end;


end.