ucostextra.pas

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

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.