glzjunit.pas

工资管理系统

unit GlZjUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls;

type
  TGlForm = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Edit1: TEdit;
    UpDown1: TUpDown;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GlForm: TGlForm;

implementation

uses DataTUnit;

{$R *.DFM}





procedure TGlForm.BitBtn1Click(Sender: TObject);
begin
     with datat.Table4 do
     begin
          open;
          first;
          datat.Table4.DisableControls;
          while not eof do
          begin
             if (fieldbyname('bz_gw').asfloat+fieldbyname('bz_jn').asfloat>0)  and (fieldbyname('rysx').asstring='在职')then
             begin
              edit;
              fieldbyname('jt_kl').asfloat:=fieldbyname('jt_kl').asfloat+strtofloat(edit1.text);
              post;
             end;
             next;
          end;
          datat.table4.EnableControls;
          close;
     end;
     application.messagebox('转换完毕，请退出！！！','消息框',mb_ok+mb_iconinformation);
     bitbtn1.Enabled:=false;
end;

end.