urpt2_unitsel.~pas

是分布式粮库程序,是采用Delphi实现的

unit uRPT2_UnitSel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, DBCtrls, StdCtrls, Buttons;

type
  TfrmRPT2_UnitSel = class(TForm)
    Label1: TLabel;
    DBLUnitSel: TDBLookupComboBox;
    qryUnit: TQuery;
    dsUnit: TDataSource;
    btnCreate: TBitBtn;
    btnCancel: TBitBtn;
    qryTemp: TQuery;
    procedure btnCancelClick(Sender: TObject);
    procedure btnCreateClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    function TestRpt2isNull(iUID : integer):boolean;
  public
    { Public declarations }
  end;

var
  frmRPT2_UnitSel: TfrmRPT2_UnitSel;

implementation
uses URpt2_1;

{$R *.DFM}

procedure TfrmRPT2_UnitSel.btnCancelClick(Sender: TObject);
begin
        Close;
end;

procedure TfrmRPT2_UnitSel.btnCreateClick(Sender: TObject);
var i : integer;
    s:string;
begin
        i := StrToInt(DBLUnitSel.KeyValue);
        //CreateReport_2(i+10000);
        if not TestRpt2isNull(i) then
        begin
         modalresult:=mrcancel;
         exit;
        end;
        CreateReport_2(i);
        FreeReport_2;
        modalresult:=mrok;
end;

procedure TfrmRPT2_UnitSel.FormActivate(Sender: TObject);
begin
        qryUnit.First;
        DBLUnitSel.KeyValue := qryUnit.FieldByName('UNIT_ID').AsString;
end;

procedure TfrmRPT2_UnitSel.FormShow(Sender: TObject);
begin
  qryUnit.Active:=true;
end;

function TfrmRPT2_UnitSel.TestRpt2isNull(iUID: integer): boolean;
var
  sUID,s:string;
begin
    u2_qry := TQuery.Create(nil);
    u2_qry.DatabaseName := 'LYDB';
    sUID:=inttostr(iUID);
    s :=' select ATTRIBUTE,IN_FOOD,FS=sum(STORAGE),NS=ISNULL(sum(R_NEW),0),OS=ISNULL(sum(R_OLD),0),MS=ISNULL(sum(R_MISC),0)'+
        ' from ENT_INSTACK  where Unit_ID='+sUID+'   group by ATTRIBUTE,IN_FOOD  order by ATTRIBUTE ';
    u2_qry.SQL.Clear;
    u2_qry.SQL.Add(s);
    u2_qry.Open;
    if u2_qry.IsEmpty then
    begin
      application.MessageBox('没有生成该报表的数据！','报表',MB_OK+MB_ICONEXCLAMATION);
      result:=false;
    end
    else
      result:=true;  
end;

end.