rab500_01.dfm.svn-base

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

            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
          OnClick = SpeedButton3Click
        end
        object DBEdit1: TDBEdit
          Left = 296
          Top = 56
          Width = 209
          Height = 20
          DataField = 'H150_003'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 144
          Top = 184
          Width = 361
          Height = 20
          DataField = 'R500_006'
          DataSource = DataSource1
          TabOrder = 1
        end
        object DBEdit5: TDBEdit
          Left = 296
          Top = 120
          Width = 209
          Height = 20
          DataField = 'R100_003'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 3
        end
        object DBEdit6: TDBEdit
          Left = 296
          Top = 152
          Width = 209
          Height = 20
          DataField = 'R110_004'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 4
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 144
          Top = 88
          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 = 'R500_002'
          DataSource = DataSource1
          Epoch = 1950
          ShowButton = True
          TabOrder = 0
        end
        object CheckBox1: TCheckBox
          Left = 144
          Top = 32
          Width = 90
          Height = 15
          Caption = #26159#21542#36864#25151
          TabOrder = 5
          OnClick = CheckBox1Click
        end
        object Edit1: TEdit
          Left = 144
          Top = 56
          Width = 121
          Height = 20
          TabOrder = 6
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
        end
        object Edit2: TEdit
          Left = 144
          Top = 120
          Width = 121
          Height = 20
          TabOrder = 7
          OnExit = Edit2Exit
          OnKeyDown = Edit2KeyDown
        end
        object Edit3: TEdit
          Left = 144
          Top = 152
          Width = 121
          Height = 20
          TabOrder = 8
          OnExit = Edit3Exit
          OnKeyDown = Edit3KeyDown
        end
      end
    end
  end
  inherited DataSource1: TDataSource
    Left = 24
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    OnCalcFields = ADOQuery1CalcFields
    SQL.Strings = (
      'select * from RAB500')
    object ADOQuery1H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'R500_001'
      Lookup = True
    end
    object ADOQuery1H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'R500_001'
      Lookup = True
    end
    object ADOQuery1R500_002: TDateTimeField
      DisplayLabel = #29983#25928#26085#26399
      FieldName = 'R500_002'
    end
    object ADOQuery1R100_002: TStringField
      DisplayLabel = #23487#33293#32534#21495
      FieldKind = fkLookup
      FieldName = 'R100_002'
      LookupDataSet = qryRab100
      LookupKeyFields = 'R100_001'
      LookupResultField = 'R100_002'
      KeyFields = 'R500_003'
      Size = 10
      Lookup = True
    end
    object ADOQuery1R100_003: TStringField
      DisplayLabel = #23487#33293#35828#26126
      FieldKind = fkLookup
      FieldName = 'R100_003'
      LookupDataSet = qryRab100
      LookupKeyFields = 'R100_001'
      LookupResultField = 'R100_003'
      KeyFields = 'R500_003'
      Lookup = True
    end
    object ADOQuery1R110_003: TStringField
      DisplayLabel = #20303#25151#32534#21495
      FieldKind = fkLookup
      FieldName = 'R110_003'
      LookupDataSet = qryRab110
      LookupKeyFields = 'R110_001'
      LookupResultField = 'R110_003'
      KeyFields = 'R500_004'
      Size = 10
      Lookup = True
    end
    object ADOQuery1R110_004: TStringField
      DisplayLabel = #35268#26684#35828#26126
      FieldKind = fkLookup
      FieldName = 'R110_004'
      LookupDataSet = qryRab110
      LookupKeyFields = 'R110_001'
      LookupResultField = 'R110_004'
      KeyFields = 'R500_004'
      Lookup = True
    end
    object ADOQuery1R500_005: TBooleanField
      DisplayLabel = #26159#21542#36864#25151
      FieldName = 'R500_005'
    end
    object ADOQuery1R500_006: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'R500_006'
      Size = 50
    end
    object ADOQuery1R500_001: TIntegerField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'R500_001'
      Visible = False
    end
    object ADOQuery1R500_003: TIntegerField
      DisplayLabel = #23487#33293#32534#21495
      FieldName = 'R500_003'
      Visible = False
    end
    object ADOQuery1R500_004: TIntegerField
      DisplayLabel = #20303#25151#32534#21495
      FieldName = 'R500_004'
      Visible = False
    end
  end
  object dsRab100: TDataSource
    DataSet = qryRab100
    Left = 480
    Top = 224
  end
  object qryHrm150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from HRM150')
    Left = 472
    Top = 184
    object qryHrm150H150_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
      FixedChar = True
      Size = 10
    end
    object qryHrm150H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
  end
  object qryRab100: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from RAB100')
    Left = 488
    Top = 232
    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
    CursorType = ctStatic
    DataSource = dsRab100
    Parameters = <
      item
        Name = 'R100_001'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Value = 1
      end>
    SQL.Strings = (
      'select * from RAB110 where R110_002= :R100_001')
    Left = 424
    Top = 256
    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 = #35268#26684#35828#26126
      FieldName = 'R110_004'
    end
    object qryRab110R110_006: TIntegerField
      DisplayLabel = #21487#20303#20154#25968
      FieldName = 'R110_006'
    end
    object qryRab110R110_007: TIntegerField
      DisplayLabel = #24050#20303#20154#25968
      FieldName = 'R110_007'
    end
  end
  object qryRab500: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select R500_001,R500_004,R500_005,R500_006'
      'from RAB500 order by R500_001,R500_003 desc')
    Left = 496
    Top = 136
    object qryRab500R500_001: TIntegerField
      FieldName = 'R500_001'
    end
    object qryRab500R500_004: TIntegerField
      FieldName = 'R500_004'
    end
    object qryRab500R500_005: TIntegerField
      FieldName = 'R500_005'
    end
    object qryRab500R500_006: TStringField
      FieldName = 'R500_006'
      FixedChar = True
      Size = 1
    end
  end
end