ucostextra.pas

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

unit uCostExtra;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub2, dxExEdtr, Menus, ActnList, DB, ComCtrls, ToolWin, Tabs,
  ExtCtrls, dxCntner, dxTL, dxDBCtrl, dxDBGrid, DBCtrls, StdCtrls, Mask,
  wwdbdatetimepicker, dxDBTLCl, dxGrClms, dxGrClEx, dxLayout;

type
  TfmExtra = class(Tfmpub2)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    GridEnterSourceNo: TdxDBGridMaskColumn;
    GridEnterRemark: TdxDBGridMaskColumn;
    GridEnterTypeLabel: TdxDBGridButtonColumn;
    GridEnterOrderNo: TdxDBGridButtonColumn;
    GridEnterSubTotal: TdxDBGridCalcColumn;
    DsExtraList: TDataSource;
    GridEnterProject: TdxDBGridExtLookupColumn;
    dxDBGridLayoutList1: TdxDBGridLayoutList;
    ExtraCostList: TdxDBGridLayout;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmExtra: TfmExtra;

implementation

uses udmcost, SherryLib;

{$R *.dfm}

procedure TfmExtra.FormCreate(Sender: TObject);
begin
  inherited;
  OpenData(DsExtraList);
  with Temp_Data('Select distinct Project from ExtraSub order by 1') do
  Begin
    Active:=True;
    While not Eof do
    Begin
      if not DMCost.CExtraList.Locate('ItemName',Fields.Fields[0].asstring,[]) then
      DMCost.CExtraList.AppendRecord([10,nil,Fields.Fields[0].asstring, '系统提取']);
      Next;
    End;
    Active:=False;
    Free;
  End;
  //ExtraCostList.DBGrid.ApplyBestFit(nil);
end;

procedure TfmExtra.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  CloseData(DsExtraList);
end;

end.