inv610_02.dfm.svn-base

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

      ReadOnly = True
      TabOrder = 7
    end
    object edtFromDate: TwwDBDateTimePicker
      Tag = 2
      Left = 80
      Top = 40
      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 = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 3
    end
    object edtToDate: TwwDBDateTimePicker
      Tag = 2
      Left = 264
      Top = 40
      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 = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 4
    end
  end
  object edtItemID: TwwDBComboDlg [4]
    Left = 24
    Top = 272
    Width = 121
    Height = 20
    OnCustomDlg = edtItemIDCustomDlg
    ShowButton = True
    Style = csDropDown
    ReadOnly = True
    TabOrder = 3
    WordWrap = False
    UnboundDataType = wwDefault
  end
  inherited ActionList1: TActionList
    inherited Action1: TAction
      Tag = 5
      Caption = #23457#26680
      Hint = #23457#26680#21644#21453#23457#26680#30424#28857#35745#21010
      ImageIndex = 13
      ShortCut = 32843
      Visible = True
      OnExecute = Action1Execute
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select * from INV610A,INV600A where I610A_002=I600A_001 order by' +
        ' I610A_001')
    Left = 64
    object ADOQuery1I610A_001: TWideStringField
      DisplayLabel = #27719#25253#21333#21495
      FieldName = 'I610A_001'
      Size = 30
    end
    object ADOQuery1I610A_002: TWideStringField
      DisplayLabel = #30424#28857#21333#21495
      FieldName = 'I610A_002'
      Size = 30
    end
    object ADOQuery1I600A_002: TWideStringField
      DisplayLabel = #30424#28857#21517#31216
      FieldName = 'I600A_002'
      Size = 60
    end
    object ADOQuery1I610A_003: TDateTimeField
      DisplayLabel = #24320#22987#26085#26399
      FieldName = 'I610A_003'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1I610A_004: TDateTimeField
      DisplayLabel = #32467#26463#26085#26399
      FieldName = 'I610A_004'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1I610A_007: TWideStringField
      DisplayLabel = #30424#28857#20154#21592
      FieldName = 'I610A_007'
      Size = 200
    end
    object ADOQuery1I610A_008: TDateTimeField
      DisplayLabel = #23457#26680#26085#26399
      FieldName = 'I610A_008'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1I610A_009: TWideStringField
      DisplayLabel = #23457#26680#20154#21592
      FieldName = 'I610A_009'
    end
    object ADOQuery1I610A_010: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'I610A_010'
      DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
    end
    object ADOQuery1I610A_011: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'I610A_011'
    end
    object ADOQuery1I610A_012: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'I610A_012'
      DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
    end
    object ADOQuery1I610A_013: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'I610A_013'
    end
    object ADOQuery1I610A_014: TMemoField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'I610A_014'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1I610A_005: TWideStringField
      FieldName = 'I610A_005'
      Visible = False
      Size = 50
    end
    object ADOQuery1I610A_006: TWideStringField
      FieldName = 'I610A_006'
      Visible = False
      Size = 100
    end
  end
  object dsInv610B: TDataSource
    DataSet = adsInv610B
    Left = 48
    Top = 320
  end
  object qryInv610B: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 112
    Top = 320
  end
  object pmInv610B: TPopupMenu
    OnPopup = pmInv610BPopup
    Left = 256
    Top = 360
    object mmiAdd: TMenuItem
      Caption = #26032#22686'(&I)'
      ShortCut = 32841
    end
    object mmiEdit: TMenuItem
      Caption = #20462#25913'(&U)'
      ShortCut = 32853
    end
    object mmiDel: TMenuItem
      Caption = #21024#38500'(&E)'
      ShortCut = 32837
    end
  end
  object qryInv600: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I600A_001,I600A_002 from INV600A where I600A_003=1')
    Left = 320
    Top = 64
    object qryInv600I600A_001: TWideStringField
      DisplayLabel = #30424#28857#21333#21495
      FieldName = 'I600A_001'
      Size = 30
    end
    object qryInv600I600A_002: TWideStringField
      DisplayLabel = #30424#28857#21517#31216
      FieldName = 'I600A_002'
      Size = 60
    end
  end
  object adsInv610B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      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 = 'FUnitName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FLocID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FLocName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FCount'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FBanlance'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FRemark'
        DataType = ftString
        Size = 200
      end>
    Parameters = <>
    StoreDefs = True
    Left = 80
    Top = 320
    object adsInv610BFItemID: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      DisplayWidth = 21
      FieldName = 'FItemID'
      Size = 30
    end
    object adsInv610BFItemName: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      DisplayWidth = 36
      FieldName = 'FItemName'
      Size = 60
    end
    object adsInv610BFItemSpec: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 35
      FieldName = 'FItemSpec'
      Size = 60
    end
    object adsInv610BFUnitName: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      DisplayWidth = 13
      FieldName = 'FUnitName'
      Size = 50
    end
    object adsInv610BFLocID: TWideStringField
      DisplayLabel = #24211#20301#32534#21495
      DisplayWidth = 12
      FieldName = 'FLocID'
    end
    object adsInv610BFLocName: TWideStringField
      DisplayLabel = #24211#20301#21517#31216
      DisplayWidth = 26
      FieldName = 'FLocName'
      Size = 50
    end
    object adsInv610BFQty: TFloatField
      DisplayLabel = #24211#23384#25968#37327
      DisplayWidth = 15
      FieldName = 'FQty'
    end
    object adsInv610BFCount: TFloatField
      DisplayLabel = #30424#28857#25968#37327
      DisplayWidth = 13
      FieldName = 'FCount'
    end
    object adsInv610BFBanlance: TFloatField
      DisplayLabel = #30408#20111#25968#37327
      DisplayWidth = 14
      FieldName = 'FBanlance'
    end
    object adsInv610BFRemark: TStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 54
      FieldName = 'FRemark'
      Size = 200
    end
    object adsInv610BFNo: TIntegerField
      DisplayLabel = #30424#28857#21345#21495
      DisplayWidth = 10
      FieldName = 'FNo'
      Visible = False
    end
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150')
    Left = 528
    Top = 80
    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
end