ser110_02.dfm.svn-base

一个用Delphi开发的ERP软件

inherited Ser110_02Form: TSer110_02Form
  Left = 166
  Top = 180
  Width = 513
  Height = 177
  Caption = #26469#30005#29366#24577#32500#25252
  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
    ImeName = ''
    TabOrder = 0
  end
  object edtName: TEdit [6]
    Left = 224
    Top = 32
    Width = 257
    Height = 20
    ImeName = ''
    TabOrder = 1
  end
  object edtRemark: TEdit [7]
    Left = 224
    Top = 64
    Width = 257
    Height = 20
    ImeName = ''
    TabOrder = 2
  end
  object cbColor: TColorBox [8]
    Left = 72
    Top = 64
    Width = 81
    Height = 22
    ItemHeight = 16
    TabOrder = 3
  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
  object PopupMenu1: TPopupMenu
    Left = 16
    Top = 120
    object MenuItem1: TMenuItem
      Caption = #30028#38754#35789#27719#32534#36753'(&L)...'
      Visible = False
    end
    object MenuItem2: TMenuItem
      Caption = #30028#38754#26679#24335#35774#35745'(&I)...'
      Visible = False
    end
    object MenuItem3: TMenuItem
      Caption = #34920#32467#26500#32500#25252'(&T)...'
      Visible = False
    end
  end
  object qrySer110: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qrySer110AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from ser110 ')
    Left = 56
    Top = 128
    object qrySer110S110_001: TAutoIncField
      FieldName = 'S110_001'
      ReadOnly = True
    end
    object qrySer110S110_002: TWideStringField
      FieldName = 'S110_002'
      Size = 10
    end
    object qrySer110S110_003: TWideStringField
      FieldName = 'S110_003'
      Size = 50
    end
    object qrySer110S110_004: TWideStringField
      FieldName = 'S110_004'
      Size = 100
    end
    object qrySer110S110_005: TIntegerField
      FieldName = 'S110_005'
    end
  end
end