ucosttype.dfm

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

inherited fmcosttype: Tfmcosttype
  Left = 217
  Top = 112
  Width = 678
  Height = 501
  Caption = #25104#26412#31867#22411
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited PageControl: TPageControl
    Width = 670
    Height = 434
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Height = 402
      end
      inherited Panel1: TPanel
        Width = 662
        Height = 402
        inherited DBGrid1: TdxDBGrid
          Width = 660
          Height = 230
          Filter.Criteria = {00000000}
          object DBGrid1CostType: TdxDBGridMaskColumn
            Visible = False
            Width = 54
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CostType'
          end
          object DBGrid1TypeLabel: TdxDBGridMaskColumn
            Width = 54
            BandIndex = 0
            RowIndex = 0
            FieldName = 'TypeLabel'
          end
          object DBGrid1TypeName: TdxDBGridMaskColumn
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'TypeName'
          end
          object DBGrid1CategoryID: TdxDBGridMaskColumn
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CategoryID'
          end
          object DBGrid1CategoryName: TdxDBGridMaskColumn
            Width = 54
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CategoryName'
          end
          object DBGrid1Enabled: TdxDBGridCheckColumn
            Width = 49
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Enabled'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBGrid1Balance: TdxDBGridCheckColumn
            Visible = False
            Width = 69
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Balance'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBGrid1CostRate: TdxDBGridMaskColumn
            Visible = False
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CostRate'
          end
          object DBGrid1Remark: TdxDBGridMaskColumn
            Width = 1204
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
          object DBGrid1Creater: TdxDBGridMaskColumn
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Creater'
          end
          object DBGrid1CreateDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CreateDate'
          end
          object DBGrid1Updater: TdxDBGridMaskColumn
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Updater'
          end
          object DBGrid1UpdateDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UpdateDate'
          end
        end
        inherited Panel3: TPanel
          Top = 254
          Width = 660
          Height = 147
          Visible = True
          object Label2: TLabel
            Left = 172
            Top = 8
            Width = 24
            Height = 12
            Caption = #21517#31216
            FocusControl = DBEdit2
          end
          object Label5: TLabel
            Left = 520
            Top = 66
            Width = 24
            Height = 12
            Caption = #20215#29575
            FocusControl = DBEdit5
            Visible = False
          end
          object Label6: TLabel
            Left = 6
            Top = 99
            Width = 24
            Height = 12
            Caption = #22791#27880
            FocusControl = DBEdit6
          end
          object Label7: TLabel
            Left = 8
            Top = 8
            Width = 48
            Height = 12
            Caption = #29992#25143#32534#21495
            FocusControl = DBEdit4
          end
          object DBEdit2: TDBEdit
            Left = 172
            Top = 24
            Width = 478
            Height = 20
            DataField = 'TypeName'
            DataSource = DSMain
            TabOrder = 1
          end
          object DBEdit5: TDBEdit
            Left = 544
            Top = 62
            Width = 105
            Height = 20
            DataField = 'CostRate'
            DataSource = DSMain
            TabOrder = 5
            Visible = False
          end
          object DBEdit6: TDBEdit
            Left = 6
            Top = 115
            Width = 642
            Height = 20
            DataField = 'Remark'
            DataSource = DSMain
            TabOrder = 6
          end
          object DBCheckBox1: TDBCheckBox
            Left = 348
            Top = 64
            Width = 57
            Height = 17
            Caption = #21551#29992'?'
            DataField = 'Enabled'
            DataSource = DSMain
            TabOrder = 3
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBCheckBox2: TDBCheckBox
            Left = 432
            Top = 64
            Width = 74
            Height = 17
            Caption = #32479#19968#20215#29575
            DataField = 'Balance'
            DataSource = DSMain
            TabOrder = 4
            ValueChecked = 'True'
            ValueUnchecked = 'False'
            Visible = False
          end
          object DBEdit4: TDBEdit
            Left = 6
            Top = 24
            Width = 141
            Height = 20
            CharCase = ecUpperCase
            DataField = 'TypeLabel'
            DataSource = DSMain
            TabOrder = 0
          end
          object DBRadioGroup1: TDBRadioGroup
            Left = 6
            Top = 54
            Width = 305
            Height = 37
            Caption = #25104#26412#20998#31867
            Columns = 4
            DataField = 'CategoryID'
            DataSource = DSMain
            Items.Strings = (
              'MAT-'#29289#26009
              'PRO-'#24037#26102
              'OUT-'#22806#21457
              'EXT-'#26434#39033)
            TabOrder = 2
            Values.Strings = (
              'MAT'
              'PRO'
              'OUT'
              'EXT')
          end
        end
        object TypeTabSet: TTabSet
          Left = 1
          Top = 231
          Width = 660
          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 = (
            #24050#24212#29992#39033
            #26410#21551#29992#39033)
          TabIndex = 0
          OnChange = TypeTabSetChange
        end
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 670
    inherited TBAdd: TToolButton
      DropdownMenu = nil
      Style = tbsButton
    end
    inherited TBEdit: TToolButton
      Left = 137
    end
    inherited TBDelete: TToolButton
      Left = 172
    end
    inherited TBSave: TToolButton
      Left = 207
      DropdownMenu = nil
      Style = tbsButton
    end
    inherited TBCancel: TToolButton
      Left = 242
    end
    inherited TBBlank5: TToolButton
      Left = 277
    end
    inherited TBClose: TToolButton
      Left = 285
    end
    inherited TBHelp: TToolButton
      Left = 320
    end
  end
  inherited DSMain: TDataSource
    DataSet = DMBase.CCostType
  end
end