txxhstunit1.~pas

来自「《Delphi案例设计》源代码」· ~PAS 代码 · 共 89 行

unit TXXHSTUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls,
  Buttons;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Table1: TTable;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    Table1BDEDesigner: TFloatField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TFloatField;
    Table1BDEDesigner7: TFloatField;
    Table1BDEDesigner8: TFloatField;
    Table1BDEDesigner9: TMemoField;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
{var
sum1:real;
sum2:real;}
begin
{sum1:=0.00;
sum2:=0.00;
with table1 do
begin
while not eof do
sum1:=sum1+table1yjfy.value;
sum2:=sum2+table1byjf.Value;
end; }
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
sum1:real;
sum2:real;
sum3:real;
s:string;
bookmark1:tbookmark;
begin
sum1:=0.00;
sum2:=0.00;
bookmark1:=table1.getbookmark;
table1.disablecontrols;
table1.first;
while not table1.eof do
begin
sum1:=sum1+table1.fieldbyname('预缴费用').value;
sum2:=sum2+table1.fieldbyname('本月缴费').value;
table1.Next;
end;
table1.gotobookmark(bookmark1);
table1.FreeBookmark(bookmark1);
table1.EnableControls;
sum3:=sum1-sum2;
str(sum3:8:2,s);
memo1.text:=s;
if sum3<=100 then
memo1.text:=s+'提示该机用户缴预缴下一服务期预缴款';
end;
end.