tas120_02.dfm.svn-base

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

inherited Tas120_02Form: TTas120_02Form
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20219#21153#29366#24577#32500#25252
  ClientHeight = 152
  ClientWidth = 505
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel [0]
    Left = 8
    Top = 8
    Width = 489
    Height = 105
    Shape = bsFrame
  end
  object lblCode: TLabel [1]
    Left = 16
    Top = 40
    Width = 48
    Height = 12
    Caption = #29366#24577#32534#21495
  end
  object lblName: TLabel [2]
    Left = 168
    Top = 40
    Width = 48
    Height = 12
    Caption = #29366#24577#21517#31216
  end
  object lblRemark: TLabel [3]
    Left = 168
    Top = 72
    Width = 48
    Height = 12
    Caption = #22791#27880#35828#26126
  end
  object lblColor: TLabel [4]
    Left = 16
    Top = 72
    Width = 48
    Height = 12
    Caption = #29366#24577#39068#33394
  end
  object edtCode: TEdit [5]
    Left = 72
    Top = 32
    Width = 81
    Height = 20
    TabOrder = 0
  end
  object edtName: TEdit [6]
    Left = 224
    Top = 32
    Width = 257
    Height = 20
    TabOrder = 1
  end
  object edtRemark: TEdit [7]
    Left = 224
    Top = 64
    Width = 257
    Height = 20
    TabOrder = 3
  end
  object cbColor: TColorBox [8]
    Left = 72
    Top = 64
    Width = 81
    Height = 22
    ItemHeight = 16
    TabOrder = 2
  end
  object bbtnOk: TBitBtn [9]
    Left = 320
    Top = 120
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 4
    OnClick = bbtnOkClick
  end
  object bbtnExit: TBitBtn [10]
    Left = 408
    Top = 120
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 5
    OnClick = bbtnExitClick
  end
  inherited pmUISet: TPopupMenu
    Left = 16
    Top = 120
  end
  object qryTas120: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    AfterScroll = qryTas120AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from TAS120 order by T120_002')
    Left = 56
    Top = 120
    object qryTas120T120_001: TIntegerField
      FieldName = 'T120_001'
      Visible = False
    end
    object qryTas120T120_002: TWideStringField
      DisplayLabel = #29366#24577#32534#21495
      FieldName = 'T120_002'
      Size = 10
    end
    object qryTas120T120_003: TWideStringField
      DisplayLabel = #29366#24577#21517#31216
      FieldName = 'T120_003'
      Size = 50
    end
    object qryTas120T120_004: TWideStringField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'T120_004'
      Size = 100
    end
    object qryTas120T120_005: TIntegerField
      DisplayLabel = #29366#24577#39068#33394
      FieldName = 'T120_005'
      Visible = False
    end
  end
end