rab120_01.dfm.svn-base

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

            FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
            00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
            000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
            00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
            0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
            BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
            0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
            00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
            0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
          OnClick = SpeedButton2Click
        end
        object DBEdit4: TDBEdit
          Left = 152
          Top = 152
          Width = 121
          Height = 20
          DataField = 'R120_006'
          DataSource = DataSource1
          TabOrder = 3
          OnExit = DBEdit4Exit
          OnKeyPress = DBEdit4KeyPress
        end
        object DBEdit5: TDBEdit
          Left = 392
          Top = 152
          Width = 121
          Height = 20
          DataField = 'R120_007'
          DataSource = DataSource1
          TabOrder = 4
          OnExit = DBEdit4Exit
          OnKeyPress = DBEdit4KeyPress
        end
        object DBEdit6: TDBEdit
          Left = 152
          Top = 184
          Width = 121
          Height = 20
          Color = clWhite
          DataField = 'R120_008'
          DataSource = DataSource1
          TabOrder = 5
        end
        object DBEdit7: TDBEdit
          Left = 152
          Top = 216
          Width = 369
          Height = 20
          DataField = 'R120_009'
          DataSource = DataSource1
          TabOrder = 6
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 152
          Top = 120
          Width = 121
          Height = 20
          CalendarAttributes.Font.Charset = DEFAULT_CHARSET
          CalendarAttributes.Font.Color = clWindowText
          CalendarAttributes.Font.Height = -11
          CalendarAttributes.Font.Name = 'MS Sans Serif'
          CalendarAttributes.Font.Style = []
          CalendarAttributes.PopupYearOptions.ShowEditYear = True
          DataField = 'R120_004'
          DataSource = DataSource1
          Epoch = 1950
          ShowButton = True
          TabOrder = 1
        end
        object wwDBDateTimePicker2: TwwDBDateTimePicker
          Left = 392
          Top = 120
          Width = 121
          Height = 20
          CalendarAttributes.Font.Charset = DEFAULT_CHARSET
          CalendarAttributes.Font.Color = clWindowText
          CalendarAttributes.Font.Height = -11
          CalendarAttributes.Font.Name = 'MS Sans Serif'
          CalendarAttributes.Font.Style = []
          CalendarAttributes.PopupYearOptions.ShowEditYear = True
          DataField = 'R120_005'
          DataSource = DataSource1
          Epoch = 1950
          ShowButton = True
          TabOrder = 2
        end
        object DBEdit1: TDBEdit
          Left = 304
          Top = 56
          Width = 209
          Height = 20
          DataField = 'R100_003'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 7
        end
        object DBEdit2: TDBEdit
          Left = 304
          Top = 88
          Width = 209
          Height = 20
          DataField = 'R110_004'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 8
        end
        object ComboBox1: TComboBox
          Left = 152
          Top = 24
          Width = 121
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 0
          Items.Strings = (
            '1='#27700#36153
            '2='#30005#36153)
        end
        object Edit1: TEdit
          Left = 152
          Top = 56
          Width = 121
          Height = 20
          TabOrder = 9
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
        end
        object Edit2: TEdit
          Left = 152
          Top = 88
          Width = 121
          Height = 20
          TabOrder = 10
          OnExit = Edit2Exit
          OnKeyDown = Edit2KeyDown
        end
      end
    end
  end
  inherited pmUISet: TPopupMenu
    Left = 552
    Top = 224
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    OnCalcFields = ADOQuery1CalcFields
    SQL.Strings = (
      'select * from RAB120')
    object ADOQuery1R120_001: TSmallintField
      DisplayLabel = #27700#36153#30005#36153
      FieldName = 'R120_001'
      OnGetText = ADOQuery1R120_001GetText
    end
    object ADOQuery1R120_002: TIntegerField
      DisplayLabel = #23487#33293#32534#21495
      FieldName = 'R120_002'
      Visible = False
    end
    object ADOQuery1R120_003: TIntegerField
      DisplayLabel = #20303#25151#32534#21495
      FieldName = 'R120_003'
      Visible = False
    end
    object ADOQuery1R120_004: TDateTimeField
      DisplayLabel = #36215#22987#26085#26399
      FieldName = 'R120_004'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1R120_005: TDateTimeField
      DisplayLabel = #32467#26463#26085#26399
      FieldName = 'R120_005'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1R120_006: TFloatField
      DisplayLabel = #32791#29992#25968#37327
      FieldName = 'R120_006'
    end
    object ADOQuery1R120_007: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'R120_007'
    end
    object ADOQuery1R120_008: TFloatField
      DisplayLabel = #36153#29992
      FieldName = 'R120_008'
    end
    object ADOQuery1R120_009: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'R120_009'
      Size = 30
    end
    object ADOQuery1R100_002: TStringField
      DisplayLabel = #23487#33293#32534#21495
      FieldKind = fkCalculated
      FieldName = 'R100_002'
      FixedChar = True
      Size = 10
      Calculated = True
    end
    object ADOQuery1R100_003: TStringField
      DisplayLabel = #23487#33293#35828#26126
      FieldKind = fkCalculated
      FieldName = 'R100_003'
      Calculated = True
    end
    object ADOQuery1R110_003: TStringField
      DisplayLabel = #20303#25151#32534#21495
      FieldKind = fkCalculated
      FieldName = 'R110_003'
      FixedChar = True
      Size = 10
      Calculated = True
    end
    object ADOQuery1R110_004: TStringField
      DisplayLabel = #35268#26684#35828#26126
      FieldKind = fkCalculated
      FieldName = 'R110_004'
      Calculated = True
    end
  end
  inherited pmGrid: TPopupMenu
    Left = 304
    Top = 248
  end
  object dsRab100: TDataSource
    DataSet = qryRab100
    Left = 350
    Top = 126
  end
  object qryRab100: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from RAB100')
    Left = 368
    Top = 144
    object qryRab100R100_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'R100_001'
      ReadOnly = True
      Visible = False
    end
    object qryRab100R100_002: TStringField
      DisplayLabel = #23487#33293#32534#21495
      FieldName = 'R100_002'
      FixedChar = True
      Size = 10
    end
    object qryRab100R100_003: TStringField
      DisplayLabel = #23487#33293#35828#26126
      FieldName = 'R100_003'
    end
  end
  object qryRab110: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    DataSource = dsRab100
    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')
    Left = 368
    Top = 192
    object qryRab110R110_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'R110_001'
      ReadOnly = True
      Visible = False
    end
    object qryRab110R110_002: TIntegerField
      DisplayLabel = #23487#33293#32534#21495
      FieldName = 'R110_002'
      Visible = False
    end
    object qryRab110R110_003: TStringField
      DisplayLabel = #20303#25151#32534#21495
      FieldName = 'R110_003'
      FixedChar = True
      Size = 10
    end
    object qryRab110R110_004: TStringField
      DisplayLabel = #20303#25151#35828#26126
      FieldName = 'R110_004'
    end
  end
end