rab110_01.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

inherited Rab110_01Form: TRab110_01Form
  Left = 98
  Top = 78
  Width = 638
  Height = 464
  HelpContext = 52
  Caption = #20303#25151#36164#26009#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 630
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 626
      end>
    inherited ToolBar2: TToolBar
      Width = 613
    end
  end
  inherited Panel1: TPanel
    Width = 630
    inherited Image1: TImage
      Width = 626
    end
    object Label1: TLabel
      Left = 95
      Top = 15
      Width = 48
      Height = 12
      Caption = #23487#33293#32534#21495
      FocusControl = DBEdit1
      Transparent = True
    end
    object Label2: TLabel
      Left = 272
      Top = 15
      Width = 48
      Height = 12
      Caption = #23487#33293#35828#26126
      FocusControl = DBEdit2
      Transparent = True
    end
    object DBEdit1: TDBEdit
      Left = 152
      Top = 11
      Width = 107
      Height = 20
      DataField = 'R100_002'
      DataSource = DataSource1
      Enabled = False
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 330
      Top = 10
      Width = 195
      Height = 20
      DataField = 'R100_003'
      DataSource = DataSource1
      Enabled = False
      TabOrder = 1
    end
  end
  inherited PageControl1: TPageControl
    Width = 630
    Height = 357
    inherited TabSheet1: TTabSheet
      inherited ScrollBox2: TScrollBox
        Width = 622
        Height = 327
        inherited dxDBGrid1: TdxDBGrid
          Width = 618
          Height = 323
          Filter.Criteria = {00000000}
          object dxDBGrid1R110_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'R110_003'
          end
          object dxDBGrid1R110_004: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'R110_004'
          end
          object dxDBGrid1R110_005: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'R110_005'
          end
          object dxDBGrid1R110_006: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'R110_006'
          end
          object dxDBGrid1R110_007: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            OnCustomDrawCell = dxDBGrid1R110_007CustomDrawCell
            FieldName = 'R110_007'
          end
          object dxDBGrid1R110_008: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'R110_008'
          end
          object dxDBGrid1R110_009: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'R110_009'
          end
          object dxDBGrid1R110_010: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 78
            BandIndex = 0
            RowIndex = 0
            FieldName = 'R110_010'
          end
        end
      end
    end
    inherited TabSheet2: TTabSheet
      inherited ScrollBox1: TScrollBox
        Width = 622
        Height = 327
        object Label3: TLabel
          Tag = 1
          Left = 112
          Top = 56
          Width = 48
          Height = 12
          Caption = #20303#25151#32534#21495
          FocusControl = DBEdit3
        end
        object Label4: TLabel
          Tag = 1
          Left = 112
          Top = 88
          Width = 48
          Height = 12
          Caption = #35268#26684#35828#26126
          FocusControl = DBEdit4
        end
        object Label5: TLabel
          Tag = 1
          Left = 112
          Top = 120
          Width = 48
          Height = 12
          Caption = #20303#25151#38754#31215
          FocusControl = DBEdit5
        end
        object Label6: TLabel
          Tag = 1
          Left = 112
          Top = 152
          Width = 48
          Height = 12
          Caption = #21487#20303#20154#25968
          FocusControl = DBEdit6
        end
        object Label7: TLabel
          Left = 320
          Top = 152
          Width = 48
          Height = 12
          Caption = #24050#20303#20154#25968
          FocusControl = DBEdit7
        end
        object Label8: TLabel
          Left = 112
          Top = 184
          Width = 48
          Height = 12
          Caption = #25151#38388#36153#29992
          FocusControl = DBEdit8
        end
        object Label9: TLabel
          Left = 320
          Top = 184
          Width = 48
          Height = 12
          Caption = #20154#22343#36153#29992
          FocusControl = DBEdit9
        end
        object Label10: TLabel
          Left = 136
          Top = 216
          Width = 24
          Height = 12
          Caption = #22791#27880
          FocusControl = DBEdit10
        end
        object DBEdit3: TDBEdit
          Left = 168
          Top = 48
          Width = 130
          Height = 20
          DataField = 'R110_003'
          DataSource = DataSource2
          TabOrder = 0
        end
        object DBEdit4: TDBEdit
          Left = 168
          Top = 80
          Width = 337
          Height = 20
          DataField = 'R110_004'
          DataSource = DataSource2
          TabOrder = 1
        end
        object DBEdit5: TDBEdit
          Left = 168
          Top = 112
          Width = 130
          Height = 20
          DataField = 'R110_005'
          DataSource = DataSource2
          TabOrder = 2
        end
        object DBEdit6: TDBEdit
          Left = 168
          Top = 144
          Width = 130
          Height = 20
          DataField = 'R110_006'
          DataSource = DataSource2
          TabOrder = 3
        end
        object DBEdit7: TDBEdit
          Left = 376
          Top = 144
          Width = 129
          Height = 20
          DataField = 'R110_007'
          DataSource = DataSource2
          Enabled = False
          TabOrder = 4
        end
        object DBEdit8: TDBEdit
          Left = 168
          Top = 176
          Width = 129
          Height = 20
          DataField = 'R110_008'
          DataSource = DataSource2
          TabOrder = 5
        end
        object DBEdit9: TDBEdit
          Left = 376
          Top = 176
          Width = 129
          Height = 20
          DataField = 'R110_009'
          DataSource = DataSource2
          TabOrder = 6
        end
        object DBEdit10: TDBEdit
          Left = 168
          Top = 208
          Width = 337
          Height = 20
          DataField = 'R110_010'
          DataSource = DataSource2
          TabOrder = 7
        end
      end
    end
  end
  inherited pmUISet: TPopupMenu
    Left = 584
  end
  inherited DataSource1: TDataSource
    Left = 32
    Top = 144
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select * from RAB100')
    object ADOQuery1R100_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'R100_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1R100_002: TStringField
      FieldName = 'R100_002'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1R100_003: TStringField
      FieldName = 'R100_003'
    end
  end
  inherited DataSource2: TDataSource
    Left = 96
    Top = 144
  end
  inherited ADOQuery2: TADOQuery
    CursorType = ctStatic
    DataSource = DataSource1
    Parameters = <
      item
        Name = 'R100_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from RAB110 where R110_002= :R100_001')
    object ADOQuery2R110_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'R110_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery2R110_002: TIntegerField
      DisplayLabel = #23487#33293#32534#21495
      FieldName = 'R110_002'
      Visible = False
    end
    object ADOQuery2R110_003: TStringField
      DisplayLabel = #20303#25151#32534#21495
      FieldName = 'R110_003'
      FixedChar = True
      Size = 10
    end
    object ADOQuery2R110_004: TStringField
      DisplayLabel = #35268#26684#35828#26126
      FieldName = 'R110_004'
    end
    object ADOQuery2R110_005: TFloatField
      DisplayLabel = #20303#25151#38754#31215
      FieldName = 'R110_005'
    end
    object ADOQuery2R110_006: TIntegerField
      DisplayLabel = #21487#20303#20154#25968
      FieldName = 'R110_006'
    end
    object ADOQuery2R110_007: TIntegerField
      DisplayLabel = #24050#20303#20154#25968
      FieldName = 'R110_007'
    end
    object ADOQuery2R110_008: TFloatField
      DisplayLabel = #25151#38388#36153#29992
      FieldName = 'R110_008'
    end
    object ADOQuery2R110_009: TFloatField
      DisplayLabel = #20154#22343#36153#29992
      FieldName = 'R110_009'
    end
    object ADOQuery2R110_010: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'R110_010'
      Size = 30
    end
  end
  inherited pmGrid: TPopupMenu
    Left = 584
    Top = 208
  end
end