ser500_02.dfm.svn-base

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

      object ToolButton2: TToolButton
        Left = 253
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbSave: TToolButton
        Left = 261
        Top = 0
        Action = ActSave
        AutoSize = True
      end
      object tlbCancel: TToolButton
        Left = 296
        Top = 0
        Action = ActCancel
        AutoSize = True
      end
      object ToolButton3: TToolButton
        Left = 331
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 339
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 374
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 409
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 444
        Top = 0
        Action = ActPrint
        AutoSize = True
      end
      object ToolButton6: TToolButton
        Left = 479
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 487
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object gbPrice: TGroupBox [3]
    Left = 8
    Top = 304
    Width = 753
    Height = 49
    Enabled = False
    TabOrder = 4
    object lblDate1: TLabel
      Left = 24
      Top = 24
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #20445#20859#26085#26399
    end
    object lblDate2: TLabel
      Left = 304
      Top = 24
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #32493#20445#26085#26399
    end
    object lblItemFrom: TLabel
      Left = 584
      Top = 24
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #26469#28304#31867#22411
    end
    object edtFromDate1: TwwDBDateTimePicker
      Left = 80
      Top = 16
      Width = 105
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = clBtnFace
      Epoch = 1950
      ShowButton = True
      TabOrder = 0
    end
    object edtToDate1: TwwDBDateTimePicker
      Left = 192
      Top = 16
      Width = 105
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = clBtnFace
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
    end
    object edtFromDate2: TwwDBDateTimePicker
      Left = 360
      Top = 16
      Width = 105
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = clBtnFace
      Epoch = 1950
      ShowButton = True
      TabOrder = 2
    end
    object edtToDate2: TwwDBDateTimePicker
      Left = 472
      Top = 16
      Width = 105
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = clBtnFace
      Epoch = 1950
      ShowButton = True
      TabOrder = 3
    end
    object cbItemFrom: TComboBox
      Left = 640
      Top = 16
      Width = 89
      Height = 20
      Style = csDropDownList
      Color = clBtnFace
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 4
      Text = #38144#21806
      Items.Strings = (
        #38144#21806
        #22806#26469
        #21512#20316
        #36716#35753)
    end
  end
  object cbPrice: TCheckBox [4]
    Left = 16
    Top = 302
    Width = 73
    Height = 17
    Caption = #26159#21542#25253#20215
    Enabled = False
    TabOrder = 5
  end
  object gbDetail: TGroupBox [5]
    Left = 8
    Top = 360
    Width = 753
    Height = 161
    Caption = #35814#32454#35828#26126
    TabOrder = 2
    object lblDetails: TLabel
      Tag = 1
      Left = 24
      Top = 24
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #26469#30005#20869#23481
    end
    object lblCreateDate: TLabel
      Left = 24
      Top = 136
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #21046#21333#26085#26399
    end
    object lblCreateBy: TLabel
      Left = 208
      Top = 136
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #21046#21333#20154#21592
    end
    object lblUpdateDate: TLabel
      Left = 384
      Top = 136
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #20462#25913#26085#26399
    end
    object lblUpdateBy: TLabel
      Left = 568
      Top = 136
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #20462#25913#20154#21592
    end
    object memDetails: TMemo
      Left = 80
      Top = 16
      Width = 649
      Height = 105
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object edtCreateBy: TEdit
      Left = 264
      Top = 128
      Width = 105
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 2
    end
    object edtUpdateBy: TEdit
      Left = 624
      Top = 128
      Width = 105
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 4
    end
    object edtCreateDate: TEdit
      Left = 80
      Top = 128
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 1
    end
    object edtUpdateDate: TEdit
      Left = 440
      Top = 128
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 3
    end
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    OnCalcFields = qryOrd150CalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select O150_001,O150_002,O150_003,O150_004,O150_005,O150_006,O15' +
        '0_012'
      
        'from ORD150 where exists(select 1 from ORD153 where O153_001=O15' +
        '0_001)')
    Left = 120
    Top = 208
    object qryOrd150O150_002: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryOrd150O150_003: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd150O150_004: TStringField
      DisplayLabel = #23458#25143#31616#31216
      FieldName = 'O150_004'
    end
    object qryOrd150O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_005'
      Calculated = True
    end
    object qryOrd150O150_006: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'O150_006'
      Size = 50
    end
    object qryOrd150O150_012: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      FieldKind = fkCalculated
      FieldName = 'O150_012'
      Size = 100
      Calculated = True
    end
    object qryOrd150O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
  end
  object qryOrd153: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select C.I150_002,A.O153_003,C.I150_003,C.I150_004,D.I120_003,E.' +
        'O150_002,E.O150_003,C.I150_001,A.O153_007,A.O153_008,A.O153_009,' +
        'A.O153_010,A.O153_012'
      'from ORD153 A, ORD150 B, INV150 C, INV120 D, ORD150 E'
      
        'where A.O153_001=B.O150_001 and A.O153_002=C.I150_001 and C.I150' +
        '_007=D.I120_001 and C.I150_041=E.O150_001')
    Left = 120
    Top = 264
    object qryOrd153I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryOrd153O153_003: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'O153_003'
      Size = 30
    end
    object qryOrd153I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryOrd153I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryOrd153I120_003: TWideStringField
      DisplayLabel = #20135#21697#31867#21035
      FieldName = 'I120_003'
      Size = 50
    end
    object qryOrd153O150_002: TWideStringField
      DisplayLabel = #21046#36896#21830#21495
      FieldName = 'O150_002'
    end
    object qryOrd153O150_003: TWideStringField
      DisplayLabel = #21046#36896#21830#21517
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd153I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryOrd153O153_007: TDateTimeField
      DisplayLabel = #20445#20859#24320#22987#26085#26399
      FieldName = 'O153_007'
    end
    object qryOrd153O153_008: TDateTimeField
      DisplayLabel = #20445#20859#23436#25104#26085#26399
      FieldName = 'O153_008'
    end
    object qryOrd153O153_009: TDateTimeField
      DisplayLabel = #32493#20445#24320#22987#26085#26399
      FieldName = 'O153_009'
    end
    object qryOrd153O153_010: TDateTimeField
      DisplayLabel = #32493#20445#23436#25104#26085#26399
      FieldName = 'O153_010'
    end
    object qryOrd153O153_012: TSmallintField
      DisplayLabel = #26469#28304#31867#22411
      FieldName = 'O153_012'
    end
  end
  object qrySer500: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qrySer500AfterScroll
    OnCalcFields = qrySer500CalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select A.*,B.S100_002,C.S110_003,D.H150_001,D.H150_002,D.H150_00' +
        '3,'
      
        '       E.O150_001,E.O150_002,E.O150_003,E.O150_005,E.O150_006,E.' +
        'O150_012'
      'from SER500 A, SER100 B, SER110 C, HRM150 D, ORD150 E'
      'where A.S500_004=B.S100_001 and A.S500_003=C.S110_001 and '
      '      A.S500_010=D.H150_001 and A.S500_017=E.O150_001'
      'order by S500_001')
    Left = 8
    Top = 56
    object qrySer500S500_001: TWideStringField
      DisplayLabel = #26469#30005#32534#21495
      FieldName = 'S500_001'
      Size = 30
    end
    object qrySer500S500_002: TWideStringField
      DisplayLabel = #26469#30005#21517#31216
      FieldName = 'S500_002'
      Size = 50
    end
    object qrySer500S100_002: TWideStringField
      DisplayLabel = #26469#30005#31867#21035
      FieldName = 'S100_002'
      Size = 50
    end
    object qrySer500S110_003: TWideStringField
      DisplayLabel = #26469#30005#29366#24577
      FieldName = 'S110_003'
      Size = 50
    end
    object qrySer500S500_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'S500_005'
    end
    object qrySer500S500_006: TSmallintField
      DisplayLabel = #26469#30005#31867#22411