tas520_02.dfm.svn-base

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

      Alignment = taRightJustify
      Caption = #20135#21697#31867#21035
    end
    object lblModel: TLabel
      Left = 24
      Top = 120
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #35268#26684#22411#21495
    end
    object lblMacNo: TLabel
      Left = 520
      Top = 96
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #26426#36523#32534#21495
    end
    object lblMaker: TLabel
      Left = 24
      Top = 144
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #21046#36896#21830#21495
    end
    object lblMakerName: TLabel
      Left = 208
      Top = 144
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #21046#36896#21830#21517
    end
    object edtCust: TEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      TabOrder = 0
    end
    object edtCustName: TEdit
      Left = 208
      Top = 16
      Width = 305
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 1
    end
    object edtAddress: TEdit
      Left = 80
      Top = 40
      Width = 433
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 3
    end
    object edtPhone: TEdit
      Left = 576
      Top = 16
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 2
    end
    object edtContact: TEdit
      Left = 576
      Top = 40
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 4
    end
    object edtPost: TEdit
      Left = 80
      Top = 64
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 5
    end
    object edtEmail: TEdit
      Left = 264
      Top = 64
      Width = 465
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 6
    end
    object edtItem: TEdit
      Left = 80
      Top = 88
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      TabOrder = 7
    end
    object edtItemName: TEdit
      Left = 208
      Top = 88
      Width = 305
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 8
    end
    object edtModel: TEdit
      Left = 80
      Top = 112
      Width = 433
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 10
    end
    object edtMaker: TEdit
      Left = 80
      Top = 136
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 12
    end
    object edtMacNo: TEdit
      Left = 576
      Top = 88
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 9
    end
    object edtMakerName: TEdit
      Left = 264
      Top = 136
      Width = 465
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 13
    end
    object edtItemClass: TEdit
      Left = 576
      Top = 112
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 11
    end
  end
  object gbDetail: TGroupBox [2]
    Left = 8
    Top = 352
    Width = 753
    Height = 169
    Caption = #35814#32454#35828#26126
    TabOrder = 2
    object lblResolvent: TLabel
      Tag = 1
      Left = 24
      Top = 24
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #24037#21333#35828#26126
    end
    object lblCreateDate: TLabel
      Left = 24
      Top = 144
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #21046#21333#26085#26399
    end
    object lblCreateBy: TLabel
      Left = 208
      Top = 144
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #21046#21333#20154#21592
    end
    object lblUpdateDate: TLabel
      Left = 384
      Top = 144
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #20462#25913#26085#26399
    end
    object lblUpdateBy: TLabel
      Left = 568
      Top = 144
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #20462#25913#20154#21592
    end
    object memResolvent: TMemo
      Left = 80
      Top = 16
      Width = 649
      Height = 113
      ScrollBars = ssVertical
      TabOrder = 0
      OnExit = memResolventExit
    end
    object edtCreateDate: TEdit
      Left = 80
      Top = 136
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 1
    end
    object edtCreateBy: TEdit
      Left = 264
      Top = 136
      Width = 105
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 2
    end
    object edtUpdateDate: TEdit
      Left = 440
      Top = 136
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 3
    end
    object edtUpdateBy: TEdit
      Left = 624
      Top = 136
      Width = 105
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 4
    end
  end
  object CoolBar1: TCoolBar [3]
    Left = 0
    Top = 0
    Width = 769
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 765
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 752
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 31
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object tlbFirst: TToolButton
        Left = 0
        Top = 0
        Action = ActFirst
        AutoSize = True
      end
      object tlbPrior: TToolButton
        Left = 35
        Top = 0
        Action = ActPrior
        AutoSize = True
      end
      object tlbNext: TToolButton
        Left = 70
        Top = 0
        Action = ActNext
        AutoSize = True
      end
      object tlbLast: TToolButton
        Left = 105
        Top = 0
        Action = ActLast
        AutoSize = True
      end
      object ToolButton1: TToolButton
        Left = 140
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbInsert: TToolButton
        Left = 148
        Top = 0
        Action = ActInsert
        AutoSize = True
      end
      object tlbUpdate: TToolButton
        Left = 183
        Top = 0
        Action = ActUpdate
        AutoSize = True
      end
      object tlbDelete: TToolButton
        Left = 218
        Top = 0
        Action = ActDelete
        AutoSize = True
      end
      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 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
  object qryTas520: TADOQuery
    Connection = SYSDM.ADOC
    AfterScroll = qryTas520AfterScroll
    OnCalcFields = qryTas520CalcFields
    Parameters = <>
    SQL.Strings = (
      'select A.*,B.*,C.T100_001,C.T100_002,C.T100_003,D.T120_003,'
      
        '       G.O150_001,G.O150_002,G.O150_003,G.O150_005,G.O150_007,G.' +
        'O150_012'
      'from TAS520 A,TAS510 B,TAS100 C,TAS120 D,ORD150 G'
      
        'where A.T520_002=B.T510_001 and B.T510_004=C.T100_001 and A.T520' +
        '_016=D.T120_001 and'
      '      B.T510_016=G.O150_001 '
      'order by T520_001')
    Left = 16
    Top = 80
    object qryTas520T520_001: TWideStringField
      DisplayLabel = #24037#21333#32534#21495
      FieldName = 'T520_001'
      Size = 30
    end
    object qryTas520T520_002: TWideStringField
      DisplayLabel = #20219#21153#32534#21495
      FieldName = 'T520_002'
      Size = 30
    end
    object qryTas520T510_002: TWideStringField
      DisplayLabel = #20219#21153#21517#31216
      FieldName = 'T510_002'
      Size = 50
    end
    object qryTas520T100_002: TWideStringField
      DisplayLabel = #20219#21153#31867#21035
      FieldName = 'T100_002'
      Size = 50
    end
    object qryTas520T510_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'T510_005'
    end
    object qryTas520T520_003: TWideStringField
      FieldName = 'T520_003'
      Visible = False
      Size = 50
    end
    object qryTas520T520_018: TWideStringField
      FieldName = 'T520_018'
      Visible = False