ustatpro.pas

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

unit ustatpro;

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

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

var
  fmStatPro: TfmStatPro;
  NoSummary: array[0..100] of string;  

implementation

uses uWIPDM, SherryLib, udmbase;

{$R *.dfm}

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

procedure TfmStatPro.AConfirmExecute(Sender: TObject);
begin
  try
    ShowWait;
    DMWIP.CStatWip.Active := False;
    DMWIP.CStatWip.Params.ParamValues['@BillId'] :=Get_Value(Format('Select BillId From WorkBillInfo where BillName=''%s''',[CmbProject.Text]));
    if DateFrm.Date<>0 then
    DMWIP.CStatWip.Params.ParamValues['@StartDate'] := DateFrm.Datetime
    else
    DMWIP.CStatWip.Params.ParamByName('@StartDate').Clear;
    if DateTo.Date<>0 then
    DMWIP.CStatWip.Params.ParamValues['@EndDate'] := DateTo.Datetime
    else
    DMWIP.CStatWip.Params.ParamByName('@EndDate').Clear;
    DMWIP.CStatWip.Params.ParamValues['@Str'] := dxBtnSelect.Text;
    TClientDataSet(DMWIP.CStatWip).Active := True;
    with Temp_Data(Format('Select Reserved1, Reserved2 from WorkBillInfo where BillName=''%s''',[CmbProject.Text])) do
    Begin
      Active:=True;
      if (DMWIP.CStatWip.FindField('Reserved1')<>nil) then
      if (length(trim(fieldbyname('Reserved1').AsString))>0) then
        DMWIP.CStatWip.FindField('Reserved1').DisplayLabel:=FieldValues['Reserved1']
      else DMWIP.CStatWip.FindField('Reserved1').Visible:=False;
      if (DMWIP.CStatWip.FindField('Reserved2')<>nil) then
      if (length(trim(fieldbyname('Reserved1').AsString))>0) then
        DMWIP.CStatWip.FindField('Reserved2').DisplayLabel:=FieldValues['Reserved2']
      else DMWIP.CStatWip.FindField('Reserved2').Visible:=False;
      Close;
      Free;
    end;
    case CmbProject.ItemIndex of
      0: NoSummary[CmbProject.ItemIndex] := NoSummary[CmbProject.ItemIndex] + '单价汇率';
    end;
    ShowGrid(DBGrid1, NoSummary[CmbProject.ItemIndex]);
  finally
    hideWait;
  end;

end;

procedure TfmStatPro.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.