📄 recunit2.pas

📁 工资管理系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
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 messagedlg('你确认要保存吗?',mtconfirmation,[mbyes,mbno],0)=mryes 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.SpeedButton9Click(Sender: TObject);
var
   bz:string;
begin
     with datat.table4 do
          begin
               datat.table4.DisableControls;
               open;
               first;
               while not eof do
               begin
                    edit;
                    if (edit1.text='0') or (edit1.text='1') then
                       fieldbyname('zjqt5').asstring:=edit1.text;
                     post;
                    next;
               end;
               close;
               datat.Table4.EnableControls;
               bz:=edit1.text;
               application.MessageBox(pchar('税金设置完毕,税金标志全部为:'+(bz)),'提示',mb_ok+mb_iconinformation);
          end;
end;

procedure TRecForm.GDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if (Rect.Top = TStringGrid(gdbgrid1).CellRect(TStringGrid(gdbgrid1).col,TStringGrid(gdbgrid1).row).top) and       (not (gdFocused in State)) then
    begin
     gdbgrid1.Canvas.Brush.Color := clblue;
      gdbgrid1.Canvas.font.Color:=clwhite;
    end;
 gdbgrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end;



procedure TRecForm.DBEdit20KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
with datat.table4 do
begin
edit;
fieldbyname('zjbzqt').asfloat:=fieldbyname('jt_7x').asfloat+fieldbyname('jt_hz').asfloat
end;
end;

end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -