ord500_01.dfm.svn-base

一个用Delphi开发的ERP软件

    end
    object ADOQuery1H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'O500A_005'
      Lookup = True
    end
    object ADOQuery1O500A_005: TIntegerField
      FieldName = 'O500A_005'
      Visible = False
    end
    object ADOQuery1O500A_006: TIntegerField
      FieldName = 'O500A_006'
      Visible = False
    end
    object ADOQuery1G100_002: TWideStringField
      DisplayLabel = #24065#21035#32534#21495
      FieldName = 'G100_002'
      Size = 10
    end
    object ADOQuery1G100_003: TWideStringField
      DisplayLabel = #24065#21035#21517#31216
      FieldName = 'G100_003'
      Size = 30
    end
    object ADOQuery1O500A_007: TIntegerField
      FieldName = 'O500A_007'
      Visible = False
    end
    object ADOQuery1O500A_008: TBCDField
      DisplayLabel = #24065#21035#27719#29575
      FieldName = 'O500A_008'
      DisplayFormat = '0.0000'
      Precision = 10
      Size = 6
    end
    object ADOQuery1G110_002: TWideStringField
      DisplayLabel = #20184#27454#26041#24335
      FieldName = 'G110_002'
      Size = 50
    end
    object ADOQuery1O500A_009: TIntegerField
      FieldName = 'O500A_009'
      Visible = False
    end
    object ADOQuery1O500A_010: TSmallintField
      DisplayLabel = #26469#28304#31867#22411
      FieldName = 'O500A_010'
      OnGetText = ADOQuery1O500A_010GetText
    end
    object ADOQuery1O500A_011: TWideStringField
      FieldName = 'O500A_011'
      Visible = False
      Size = 30
    end
    object ADOQuery1O500A_012: TFloatField
      DisplayLabel = #37329#39069#24635#35745
      FieldName = 'O500A_012'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1O500A_013: TBCDField
      DisplayLabel = #25240#25187#27604#29575
      FieldName = 'O500A_013'
      Precision = 8
      Size = 2
    end
    object ADOQuery1O500A_014: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'O500A_014'
    end
    object ADOQuery1O500A_015: TFloatField
      DisplayLabel = #29305#27530#36153#29992
      FieldName = 'O500A_015'
    end
    object ADOQuery1O500A_016: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      FieldName = 'O500A_016'
    end
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object ADOQuery1O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object ADOQuery1O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'O150_005'
      Size = 50
    end
    object ADOQuery1O150_006: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'O150_006'
      Size = 50
    end
    object ADOQuery1O150_012: TWideStringField
      DisplayLabel = #23458#25143#22336#22336
      FieldName = 'O150_012'
      Size = 100
    end
    object ADOQuery1O500A_017: TIntegerField
      FieldName = 'O500A_017'
      Visible = False
    end
    object ADOQuery1O500A_018: TWideStringField
      DisplayLabel = #20132#36135#22320#22336
      FieldName = 'O500A_018'
    end
    object ADOQuery1O500A_019: TSmallintField
      DisplayLabel = #25552#36135#26041#24335
      FieldName = 'O500A_019'
      OnGetText = ADOQuery1O500A_019GetText
    end
    object ADOQuery1O500A_020: TMemoField
      DisplayLabel = #38144#21806#26465#27454
      FieldName = 'O500A_020'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1O500A_021: TMemoField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'O500A_021'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1O500A_022: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'O500A_022'
    end
    object ADOQuery1O500A_023: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'O500A_023'
    end
    object ADOQuery1O500A_024: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'O500A_024'
    end
    object ADOQuery1O500A_025: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'O500A_025'
    end
  end
  inherited ActionList1: TActionList
    inherited Action1: TAction
      Caption = #30830#35748
      Hint = #30830#35748
      ImageIndex = 19
      ShortCut = 32845
      Visible = True
      OnExecute = Action1Execute
    end
    inherited Action2: TAction
      Caption = #25253#20215
      Hint = #25253#20215
      ImageIndex = 13
      ShortCut = 32844
      Visible = True
      OnExecute = Action2Execute
    end
    inherited Action3: TAction
      Caption = #23436#25104
      Hint = #23436#25104
      ImageIndex = 18
      ShortCut = 32857
      Visible = True
      OnExecute = Action3Execute
    end
    inherited Action4: TAction
      Caption = #21462#28040
      Hint = #21462#28040
      ImageIndex = 14
      ShortCut = 32846
      Visible = True
      OnExecute = Action4Execute
    end
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150')
    Left = 88
    Top = 160
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TWideStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
    end
    object qryHrm150H150_003: TWideStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
  end
  object adsOrd500: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FItemID'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FItemName'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FItemSpec'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FUnitID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FUnitName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FPrice'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAmount'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FDisRate'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FDisAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FNetAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FTax'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FTaxAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAcrAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FFactDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FReceQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FPlace'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FRemark'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FItemNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FUnitNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FUnitRate'
        DataType = ftFloat
      end
      item
        Name = 'FFromID'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FLineNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FReturn'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FIsBySum'
        Attributes = [faFixed]
        DataType = ftBoolean
      end>
    Parameters = <>
    StoreDefs = True
    Left = 80
    Top = 248
    object adsOrd500FItemID: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 22
      FieldName = 'FItemID'
      Size = 30
    end
    object adsOrd500FItemName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 40
      FieldName = 'FItemName'
      Size = 60
    end
    object adsOrd500FAmount: TFloatField
      DisplayLabel = #37329#39069
      DisplayWidth = 16
      FieldName = 'FAmount'
    end
    object adsOrd500FRemark: TStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 35
      FieldName = 'FRemark'
      Size = 100
    end
    object adsOrd500FItemSpec: TStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 40
      FieldName = 'FItemSpec'
      Visible = False
      Size = 60
    end
    object adsOrd500FPrice: TFloatField
      DisplayLabel = #38144#21806#21333#20215
      DisplayWidth = 10
      FieldName = 'FPrice'
      Visible = False
    end
    object adsOrd500FUnitID: TStringField
      DisplayLabel = #21333#20301#32534#21495
      DisplayWidth = 10
      FieldName = 'FUnitID'
      Visible = False
    end
    object adsOrd500FUnitName: TStringField
      DisplayLabel = #21333#20301#21517#31216
      DisplayWidth = 20
      FieldName = 'FUnitName'
      Visible = False
      Size = 50
    end