ustatout.pas

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· PAS 代码 · 共 65 行

unit uStatOut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub3, dxExEdtr, Menus, ActnList, DB, ComCtrls, ToolWin,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls, dxEditor, dxEdLib,
  StdCtrls, wwdbdatetimepicker;

type
  TfmStatOut = class(Tfmpub3)
    procedure AApproveExecute(Sender: TObject);
    procedure dxBtnSelectButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmStatOut: TfmStatOut;

implementation

uses uWIPDM, SherryLib, udmbase;

{$R *.dfm}

procedure TfmStatOut.AApproveExecute(Sender: TObject);
begin
  try
    ShowWait;
    DMWIP.CStatOut.Active := False;
    DMWIP.CStatOut.Params.ParamValues['@Flag'] :=1;
    if DateFrm.Date=0 then
      DMWIP.CStatOut.Params.ParamValues['@StartDate'] :=null
    else
      DMWIP.CStatOut.Params.ParamValues['@StartDate'] := DateFrm.Datetime;
    if DateTo.Date=0 then
      DMWIP.CStatOut.Params.ParamValues['@EndDate'] := null
    else
      DMWIP.CStatOut.Params.ParamValues['@EndDate'] := DateTo.Datetime;
    DMWIP.CStatOut.Params.ParamValues['@Str'] := dxBtnSelect.Text;
    DMWIP.CStatOut.Active := True;
    ShowGrid(DBGrid1,'汇率单价');
  finally
    hideWait;
  end;
end;

procedure TfmStatOut.dxBtnSelectButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  if not lookup(DMBase.CVOrderData) then exit;
  if length(dxBtnSelect.Text) > 0 then
    dxBtnSelect.Text := dxBtnSelect.Text + ',' + DMBase.CVOrderData['OrderNo']
  else
    dxBtnSelect.Text := DMBase.CVOrderData['OrderNo'];
  AConfirm.Execute;
end;

end.