inv510_02.dfm.svn-base

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

        ShowHorzScrollBar = True
        EditControlOptions = [ecoSearchOwnerForm, ecoDisableEditorIfReadOnly]
        Align = alClient
        DataSource = dsInv510B
        ImeName = ''
        KeyOptions = [dgEnterToTab, dgAllowInsert]
        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgShowFooter]
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Pitch = fpFixed
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        OnColExit = wwDBGrid1ColExit
        OnEnter = wwDBGrid1Enter
        OnExit = wwDBGrid1Exit
        OnUpdateFooter = wwDBGrid1UpdateFooter
        FooterColor = clWindow
        FooterCellColor = clWindow
      end
      object edtItem: TwwDBComboDlg
        Left = 24
        Top = 24
        Width = 121
        Height = 20
        OnCustomDlg = edtItemCustomDlg
        ShowButton = True
        Style = csDropDown
        TabOrder = 1
        WordWrap = False
        UnboundDataType = wwDefault
      end
      object edtUnit: TwwDBComboDlg
        Left = 648
        Top = 24
        Width = 65
        Height = 20
        OnCustomDlg = edtUnitCustomDlg
        ShowButton = True
        Style = csDropDown
        TabOrder = 3
        WordWrap = False
        UnboundDataType = wwDefault
      end
      object edtOutLocID: TwwDBComboDlg
        Left = 192
        Top = 24
        Width = 121
        Height = 20
        OnCustomDlg = edtOutLocIDCustomDlg
        ShowButton = True
        Style = csDropDown
        TabOrder = 2
        WordWrap = False
        UnboundDataType = wwDefault
      end
      object edtInLocID: TwwDBComboDlg
        Left = 400
        Top = 24
        Width = 121
        Height = 20
        OnCustomDlg = edtInLocIDCustomDlg
        ShowButton = True
        Style = csDropDown
        TabOrder = 4
        WordWrap = False
        UnboundDataType = wwDefault
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select A.*,'
      '       B.*,'
      
        '       C.I100_001 as FOutWhsNo,C.I100_002 as FOutWhsID,C.I100_00' +
        '3 as FOutWhsName,'
      
        '       D.I100_001 as FInWhsNo,D.I100_002 as FInWhsID,D.I100_003 ' +
        'as FInWhsName'
      'from INV510A A,INV550 B,INV100 C,INV100 D'
      
        'where I510A_002=I550_001 and I510A_005=C.I100_001 and I510A_007=' +
        'D.I100_001'
      'order by I510A_001')
    object ADOQuery1I510A_001: TWideStringField
      DisplayLabel = #36716#20179#21333#21495
      FieldName = 'I510A_001'
      Size = 30
    end
    object ADOQuery1I510A_002: TIntegerField
      FieldName = 'I510A_002'
      Visible = False
    end
    object ADOQuery1I550_002: TWideStringField
      DisplayLabel = #31867#22411#32534#21495
      FieldName = 'I550_002'
      Size = 10
    end
    object ADOQuery1I550_003: TWideStringField
      DisplayLabel = #31867#22411#21517#31216
      FieldName = 'I550_003'
      Size = 30
    end
    object ADOQuery1I510A_003: TWideStringField
      DisplayLabel = #25688#35201#35828#26126
      FieldName = 'I510A_003'
      Size = 60
    end
    object ADOQuery1I510A_004: TDateTimeField
      DisplayLabel = #36716#20179#26085#26399
      FieldName = 'I510A_004'
    end
    object ADOQuery1I510A_005: TIntegerField
      FieldName = 'I510A_005'
      Visible = False
    end
    object ADOQuery1I510A_006: TIntegerField
      FieldName = 'I510A_006'
      Visible = False
    end
    object ADOQuery1I510A_007: TIntegerField
      FieldName = 'I510A_007'
      Visible = False
    end
    object ADOQuery1I510A_008: TIntegerField
      FieldName = 'I510A_008'
      Visible = False
    end
    object ADOQuery1FOutWhsID: TWideStringField
      DisplayLabel = #36716#20986#20179#21495
      FieldName = 'FOutWhsID'
    end
    object ADOQuery1FOutWhsName: TWideStringField
      DisplayLabel = #36716#20986#20179#21517
      FieldName = 'FOutWhsName'
      Size = 50
    end
    object ADOQuery1FInWhsID: TWideStringField
      DisplayLabel = #36716#20837#20179#21495
      FieldName = 'FInWhsID'
    end
    object ADOQuery1FInWhsName: TWideStringField
      DisplayLabel = #36716#20837#20179#21517
      FieldName = 'FInWhsName'
      Size = 50
    end
    object ADOQuery1I510A_009: TMemoField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'I510A_009'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1I510A_010: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'I510A_010'
    end
    object ADOQuery1I510A_011: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'I510A_011'
    end
    object ADOQuery1I510A_012: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'I510A_012'
    end
    object ADOQuery1I510A_013: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'I510A_013'
    end
    object ADOQuery1I510A_014: TBooleanField
      DisplayLabel = #24050#36807#24080#21542
      FieldName = 'I510A_014'
      OnGetText = ADOQuery1I510A_014GetText
    end
    object ADOQuery1I550_001: TAutoIncField
      FieldName = 'I550_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1I550_004: TSmallintField
      FieldName = 'I550_004'
      Visible = False
    end
    object ADOQuery1I550_005: TSmallintField
      FieldName = 'I550_005'
      Visible = False
    end
    object ADOQuery1I550_006: TBooleanField
      FieldName = 'I550_006'
      Visible = False
    end
    object ADOQuery1I550_007: TSmallintField
      FieldName = 'I550_007'
      Visible = False
    end
    object ADOQuery1I550_008: TWideStringField
      FieldName = 'I550_008'
      Visible = False
    end
    object ADOQuery1I550_009: TIntegerField
      FieldName = 'I550_009'
      Visible = False
    end
    object ADOQuery1I550_010: TSmallintField
      FieldName = 'I550_010'
      Visible = False
    end
    object ADOQuery1I550_011: TWideStringField
      FieldName = 'I550_011'
      Visible = False
      Size = 30
    end
    object ADOQuery1FOutWhsNo: TAutoIncField
      FieldName = 'FOutWhsNo'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1FInWhsNo: TAutoIncField
      FieldName = 'FInWhsNo'
      ReadOnly = True
      Visible = False
    end
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select I150_001,I150_002,I150_003,I150_004,I140_001,I140_002,I14' +
        '0_003'
      'from INV150,INV140'
      'where I150_011=I140_001'
      'order by I150_002')
    Left = 96
    Top = 304
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I150_002: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryInv150I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryInv150I140_001: TAutoIncField
      FieldName = 'I140_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I140_002: TWideStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'I140_002'
    end
    object qryInv150I140_003: TWideStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'I140_003'
      Size = 50
    end
  end
  object qryInv110A: TADOQuery
    Connection = SYSDM.ADOC
    DataSource = dsInv100A
    Parameters = <
      item
        Name = 'I100_001'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select I110_001,I110_002,I110_003,I110_004 from INV110 where I11' +
        '0_002=:I100_001 order by I110_003')
    Left = 264
    Top = 304
    object qryInv110AI110_001: TAutoIncField
      FieldName = 'I110_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv110AI110_002: TIntegerField
      FieldName = 'I110_002'
      Visible = False
    end
    object qryInv110AI110_003: TWideStringField
      DisplayLabel = #24211#20301#32534#21495
      FieldName = 'I110_003'
    end
    object qryInv110AI110_004: TWideStringField
      DisplayLabel = #24211#20301#21517#31216
      FieldName = 'I110_004'
      Size = 50
    end
  end
  object qryInv510B: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 120
    Top = 360
  end
  object adsInv510B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsInv510BBeforePost
    OnNewRecord = adsInv510BNewRecord
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FItemNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FItemID'
        DataType = ftString
        Size = 30