ufinish.dfm

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

inherited fmFinish: TfmFinish
  Caption = #35746#21333#23436#25104#30331#35760
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited OptionPanel: TPanel
    Visible = True
    inherited PnlProject: TPanel
      inherited LblProject: TLabel
        Width = 48
        Caption = #35774#32622#29366#24577
      end
      inherited CmbProject: TComboBox
        Left = 59
        Width = 102
        Items.Strings = (
          #29983#20135
          #23436#25104
          #21462#28040)
      end
    end
    inherited PnlMonth: TPanel
      Width = 143
      Visible = True
      inherited LblMonth: TLabel
        Width = 48
        Caption = #20132#36135#26085#26399
      end
      inherited DTPMonth: TDateTimePicker
        Left = 58
        Format = 'yyyy-MM-dd'
      end
    end
    inherited PnlDate: TPanel
      Left = 318
    end
    inherited PnlSelect: TPanel
      Left = 630
      inherited dxBtnSelect: TdxButtonEdit
        StoredValues = 2
        ExistButtons = True
      end
    end
  end
  inherited PageControl: TPageControl
    inherited TabBrowse: TTabSheet
      inherited Splitter: TSplitter
        Height = 228
      end
      inherited DBGrid1: TdxDBGrid
        Height = 228
        Hint = #20808#36873#25321#22909#35201#35774#32622#30340#35746#21333#29366#24577', '#20877#36873#25321#24403#21069#29366#24577#19979#24453#22788#29702#30340#35746#21333','#21452#20987#36873#25321#30340#35746#21333','#26368#24460#20445#23384#21363#21487'.'
        KeyField = 'OrderNo'
        ParentShowHint = False
        ShowHint = True
        OnDblClick = DBGrid1DblClick
        Filter.Criteria = {00000000}
        object DBGrid1OrderNo: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'OrderNo'
        end
        object DBGrid1ShortName: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ShortName'
        end
        object DBGrid1FullName: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'FullName'
        end
        object DBGrid1OrderDate: TdxDBGridDateColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'OrderDate'
        end
        object DBGrid1PoNo: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'PoNo'
        end
        object DBGrid1Status1: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Status1'
        end
        object DBGrid1ShipDate: TdxDBGridDateColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'ShipDate'
        end
        object DBGrid1ShipedDate: TdxDBGridDateColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'ShipedDate'
        end
      end
      object TypeTabSet: TTabSet
        Left = 0
        Top = 228
        Width = 528
        Height = 23
        Align = alBottom
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        SelectedColor = clYellow
        Tabs.Strings = (
          #29983#20135
          #23436#25104
          #21462#28040
          #25152#26377)
        TabIndex = 0
        OnChange = TypeTabSetChange
      end
    end
  end
  inherited DataSource1: TDataSource
    DataSet = DMCost.COrderFinish
  end
  inherited SubAction: TActionList
    inherited AApprove: TAction
      Visible = False
    end
    inherited AConfirm: TAction
      Caption = #20445#23384
      OnExecute = AConfirmExecute
    end
  end
end