uqueryjgout.pas

来自「港口货物管理系统」· PAS 代码 · 共 64 行

unit uqueryjgout;

interface

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

type
  Tfmqueryjgout = class(TForm)
    Query1: TQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmqueryjgout: Tfmqueryjgout;

implementation

uses ulogin;

{$R *.dfm}

procedure Tfmqueryjgout.FormActivate(Sender: TObject);
var i:integer;
    sumpiece,sumcoil:integer;
    sumton:single;
begin
sumpiece:=0;
sumcoil:=0;
sumton:=0.000;
query1.First;
for i:=1 to query1.RecordCount do
begin
sumcoil:=sumcoil+query1.FieldValues['ncoil'];
if query1.FieldValues['npiece']<>null then
sumpiece:=sumpiece+query1.FieldValues['npiece']
else
sumpiece:=sumpiece+0;
sumton:=sumton+query1.FieldValues['nton'];
query1.Next;
end;

statusbar1.Panels[1].Text:=inttostr(query1.RecordCount)+' 个记录';
statusbar1.Panels[2].Text:=inttostr(sumcoil)+' 件';
statusbar1.Panels[3].Text:=inttostr(sumpiece)+' 支';
statusbar1.Panels[4].Text:=formatfloat('0.000',sumton)+' 吨';
end;

procedure Tfmqueryjgout.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;
end;

end.