ustatpo.pas

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

unit uStatPo;

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
  TfmStatPo = class(Tfmpub3)
    procedure AConfirmExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dxBtnSelectButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure CmbProjectChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmStatPo: TfmStatPo;

implementation

uses udmpo, SherryLib, udmbase;

{$R *.dfm}

procedure TfmStatPo.AConfirmExecute(Sender: TObject);
begin
  try
    ShowWait;
    DMPO.CStatPo.Active := False;
    DMPO.CStatPo.Params.ParamValues['@Flag'] := CmbProject.ItemIndex;
    if DateFrm.Date=0 then
      DMPO.CStatPo.Params.ParamValues['@StartDate'] :=null
    else
      DMPO.CStatPo.Params.ParamValues['@StartDate'] := DateFrm.Datetime;
    if DateTo.Date=0 then
      DMPO.CStatPo.Params.ParamValues['@EndDate'] := null
    else
      DMPO.CStatPo.Params.ParamValues['@EndDate'] := DateTo.Datetime;
    DMPO.CStatPo.Params.ParamValues['@Str'] := dxBtnSelect.Text;
    DMPO.CStatPo.Active := True;
    ShowGrid(DBGrid1,'汇率');
  finally
    hideWait;
  end;
end;

procedure TfmStatPo.FormCreate(Sender: TObject);
var i: integer;
begin
  inherited;
  i := 0;
  with Temp_Data('StatPo') do
  try
    Active := True;
    CmbProject.Items.Clear;
    while not eof do
    begin
      CmbProject.Items.Add(Fields.Fields[1].AsString);
      i := i + 1;
      next;
    end;
  finally
    free;
  end;
  CmbProject.ItemIndex := 0;
end;

procedure TfmStatPo.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;

procedure TfmStatPo.CmbProjectChange(Sender: TObject);
begin
  inherited;
  if CmbProject.ItemIndex>1 then PnlSelect.Visible:=False else PnlSelect.Visible:=True;
end;

end.