ustatinv.pas

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

unit ustatInv;

interface

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

type
  TfmStatInv = class(Tfmpub3)
    ColumnAA1: TdxDBGridMaskColumn;
    ColumnBB2: TdxDBGridColumn;
    procedure FormCreate(Sender: TObject);
    procedure dxBtnSelectButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure AConfirmExecute(Sender: TObject);
    procedure APreviewExecute(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  fmStatInv: TfmStatInv;
  NoSummary: array[0..100] of string;

implementation

uses udminv, SherryLib, udmbase, uReport, udata;

{$R *.dfm}

procedure TfmStatInv.FormCreate(Sender: TObject);
var i: integer;
begin
  inherited;
  i := 0;
  with Temp_Data('StatInOut') do
  try
    if not Active then
    Active := True;
    CmbProject.Items.Clear;
    while not eof do
    begin
      CmbProject.Items.Add(Fields.Fields[1].AsString);
      //info(Fields.Fields[1].AsString+'->'+CmbProject.Items.Strings[i]);
      NoSummary[i] := Fields.Fields[2].AsString;
      i := i + 1;
      next;
    end;
  finally
    free;
  end;
  CmbProject.ItemIndex := 0;
end;

procedure TfmStatInv.dxBtnSelectButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  if Pos('流水帐',CmbProject.Text)=0 then
  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'];
  End
  else if lookup(DMBase.CVMateriel) then
  dxBtnSelect.Text:=DMBase.CVMateriel['PartNo'];
  AConfirm.Execute;
end;

procedure TfmStatInv.AConfirmExecute(Sender: TObject);
begin
  try
    ShowWait;
    DMINV.CInvStat.Active := False;
    DMINV.CInvStat.Params.ParamValues['@Flag'] := CmbProject.ItemIndex + 1;
    if DateFrm.Date=0 then
      DMINV.CInvStat.Params.ParamValues['@Date_Frm'] :=null
    else
      DMINV.CInvStat.Params.ParamValues['@Date_Frm'] := DateFrm.Datetime;
    if DateTo.Date=0 then
      DMINV.CInvStat.Params.ParamValues['@Date_To'] := null
    else
      DMINV.CInvStat.Params.ParamValues['@Date_To'] := DateTo.Datetime;
    DMINV.CInvStat.Params.ParamValues['@Str'] := dxBtnSelect.Text;
    TClientDataSet(DMINV.CInvStat).Active := True;
    case CmbProject.ItemIndex of
      0: NoSummary[CmbProject.ItemIndex] := NoSummary[CmbProject.ItemIndex] + '单价汇率';
    end;
    ShowGrid(DBGrid1, NoSummary[CmbProject.ItemIndex]);
  finally
    hideWait;
  end;
end;

procedure TfmStatInv.APreviewExecute(Sender: TObject);
begin
  Preview(Self.Name + IntToStr(CmbProject.ItemIndex + 1), False, DataSource1.DataSet);
end;

end.