uunitset.dfm

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

inherited fmunitset: Tfmunitset
  Left = 174
  Top = 117
  Caption = #21333#20301#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited PageControl: TPageControl
    inherited Tabbrowse: TTabSheet
      object Splitter1: TSplitter [1]
        Left = 197
        Top = 0
        Width = 5
        Height = 264
        Align = alRight
        MinSize = 40
      end
      inherited Panel1: TPanel
        Width = 197
        inherited DBGrid1: TdxDBGrid
          Width = 195
          KeyField = 'un_abbr'
          Filter.Criteria = {00000000}
          ScrollBars = ssNone
          object DBGrid1UnitID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitID'
          end
          object DBGrid1UnitName: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitName'
          end
          object DBGrid1UnitLogo: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitLogo'
          end
          object DBGrid1Remark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
          object DBGrid1Creater: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Creater'
          end
          object DBGrid1CreateDate: TdxDBGridDateColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CreateDate'
          end
          object DBGrid1Updater: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Updater'
          end
          object DBGrid1UpDateDate: TdxDBGridDateColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UpDateDate'
          end
          object DBGrid1QConvertInfo: TdxDBGridColumn
            Visible = False
            BandIndex = 0
            RowIndex = 0
            FieldName = 'QConvertInfo'
          end
        end
        inherited Panel3: TPanel
          Width = 195
        end
      end
      object dxDBGrid1: TdxDBGrid
        Left = 202
        Top = 0
        Width = 347
        Height = 264
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alRight
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        BandFont.Charset = ANSI_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -12
        BandFont.Name = #23435#20307
        BandFont.Style = []
        DataSource = DataSource1
        DefaultRowHeight = 25
        Filter.Criteria = {00000000}
        GridLineColor = clBlue
        HeaderFont.Charset = ANSI_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -12
        HeaderFont.Name = #23435#20307
        HeaderFont.Style = []
        OptionsDB = [edgoCanAppend, edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoHotTrack, edgoIndicator, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = #23435#20307
        PreviewFont.Style = []
        ScrollBars = ssNone
        object dxDBGrid1Column8: TdxDBGridMaskColumn
          Caption = ' '
          DisableEditor = True
          BandIndex = 0
          RowIndex = 0
          OnCustomDrawCell = dxDBGrid1Column8CustomDrawCell
        end
        object dxDBGrid1Scale: TdxDBGridMaskColumn
          DisableEditor = True
          Width = 54
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Scale'
        end
        object dxDBGrid1UnitName: TdxDBGridLookupColumn
          DisableEditor = True
          Width = 58
          BandIndex = 0
          RowIndex = 0
          FieldName = 'UnitName'
        end
        object dxDBGrid1Remark: TdxDBGridMaskColumn
          DisableEditor = True
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Remark'
        end
        object dxDBGrid1Creater: TdxDBGridMaskColumn
          DisableEditor = True
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Creater'
        end
        object dxDBGrid1CreateDate: TdxDBGridDateColumn
          DisableEditor = True
          Width = 112
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CreateDate'
        end
        object dxDBGrid1Updater: TdxDBGridMaskColumn
          DisableEditor = True
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Updater'
        end
        object dxDBGrid1UpdateDate: TdxDBGridDateColumn
          DisableEditor = True
          Width = 112
          BandIndex = 0
          RowIndex = 0
          FieldName = 'UpdateDate'
        end
      end
    end
    inherited TabEdit: TTabSheet
      inherited GroupBox1: TGroupBox
        Width = 593
        Height = 264
        object Label1: TLabel
          Left = 8
          Top = 32
          Width = 48
          Height = 12
          Caption = #21333#20301#31616#31216
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 8
          Top = 72
          Width = 48
          Height = 12
          Caption = #21333#20301#21517#31216
          FocusControl = DBEdit2
        end
        object Label3: TLabel
          Left = 8
          Top = 112
          Width = 48
          Height = 12
          Caption = #22791#27880#20449#24687
          FocusControl = DBEdit3
        end
        object Label4: TLabel
          Left = 2
          Top = 250
          Width = 589
          Height = 12
          Align = alBottom
          Caption = #27492#22788#21482#20801#35768#24405#20837#20174#22823#21333#20301#21040#23567#21333#20301#30340#36716#25442
        end
        object DBEdit1: TDBEdit
          Left = 8
          Top = 48
          Width = 76
          Height = 20
          DataField = 'UnitID'
          DataSource = DSMain
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 8
          Top = 88
          Width = 76
          Height = 20
          DataField = 'UnitName'
          DataSource = DSMain
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 8
          Top = 128
          Width = 184
          Height = 20
          DataField = 'Remark'
          DataSource = DSMain
          TabOrder = 2
        end
        object dxDBGrid2: TdxDBGrid
          Left = 8
          Top = 174
          Width = 297
          Height = 252
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          TabOrder = 3
          OnKeyDown = dxDBGrid2KeyDown
          DataSource = DataSource1
          Filter.Criteria = {00000000}
          GridLineColor = clBlue
          HeaderColor = clWhite
          OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoTabThrough, edgoVertThrough]
          OptionsView = [edgoBandHeaderWidth, edgoHotTrack, edgoUseBitmap]
          ScrollBars = ssVertical
          object dxDBGrid2UnitName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitName'
            ImmediateDropDown = True
            PopupBorder = pbSingle
          end
          object dxDBGrid2Scale: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Scale'
          end
          object dxDBGrid2Remark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
      end
      inherited Panel2: TPanel
        Left = 593
        Width = 423
        Height = 264
      end
    end
  end
  inherited DSMain: TDataSource
    DataSet = DMBase.CUnitSet
  end
  object DataSource1: TDataSource [5]
    DataSet = DMBase.Cconvert
    Left = 304
    Top = 40
  end
end