fm_getmarcfileform.dfm

delphi控件的使用

object GenerateMarcFrm: TGenerateMarcFrm
  Left = 222
  Top = 155
  Width = 692
  Height = 541
  Caption = '生成Marc码'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 9
    Top = 15
    Width = 65
    Height = 13
    Caption = '商品条码：'
  end
  object Label2: TLabel
    Left = 10
    Top = 45
    Width = 65
    Height = 13
    Caption = '商品类别：'
  end
  object Label3: TLabel
    Left = 275
    Top = 45
    Width = 65
    Height = 13
    Caption = '商品等级：'
  end
  object Label4: TLabel
    Left = 22
    Top = 73
    Width = 52
    Height = 13
    Caption = '出版社：'
  end
  object Label5: TLabel
    Left = 274
    Top = 15
    Width = 65
    Height = 13
    Caption = '商品名称：'
  end
  object EnterAsTab1: TEnterAsTab
    Left = 556
    Top = 66
    Width = 100
    Height = 30
    Caption = 'EnterAsTab'
  end
  object tBarCodeEditPro: TEditPro
    Left = 75
    Top = 11
    Width = 142
    Height = 21
    TabOrder = 0
    DataType = dfString
    ForbiddenChars = '^|"'
  end
  object tClassCodeCombo: TComboBox
    Left = 75
    Top = 40
    Width = 174
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    OnKeyPress = tClassCodeComboKeyPress
  end
  object tGoodsLevelCombo: TComboBox
    Left = 340
    Top = 40
    Width = 169
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    OnKeyPress = tClassCodeComboKeyPress
  end
  object tPressCombo: TComboBox
    Left = 75
    Top = 69
    Width = 196
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    OnKeyPress = tClassCodeComboKeyPress
  end
  object BitBtn1: TBitBtn
    Left = 579
    Top = 9
    Width = 75
    Height = 25
    Caption = '查询'
    TabOrder = 5
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 579
    Top = 39
    Width = 75
    Height = 25
    Caption = '保存'
    TabOrder = 6
    OnClick = BitBtn2Click
  end
  object tGoodsNameEditPro: TEditPro
    Left = 340
    Top = 11
    Width = 181
    Height = 21
    Enabled = False
    TabOrder = 1
    DataType = dfString
    ForbiddenChars = '^|"'
  end
  object tMarcStringGrid: TStringGridPro
    Left = 0
    Top = 108
    Width = 684
    Height = 406
    Align = alBottom
    DefaultRowHeight = 20
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing]
    TabOrder = 7
    Columns = <
      item
        CanDel = False
      end
      item
        CanDel = False
      end
      item
        CanDel = False
      end
      item
        CanDel = False
      end
      item
        CanDel = False
      end>
    RowCountMin = 0
    SelectedIndex = 1
    CanDel = False
  end
  object Database1: TDatabase
    AliasName = 'xhsd'
    Connected = True
    DatabaseName = 'Database'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=jbcmis'
      'USER NAME=xhsd'
      'NET PROTOCOL=TNS'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ENABLE INTEGERS=FALSE'
      'LIST SYNONYMS=NONE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'OBJECT MODE=TRUE'
      'PASSWORD=xhsd')
    SessionName = 'Default'
    Left = 294
    Top = 66
  end
  object tMarcQuery: TQuery
    DatabaseName = 'Database'
    Left = 332
    Top = 66
  end
  object tMarcDataSource: TDataSource
    DataSet = tMarcQuery
    Left = 372
    Top = 66
  end
  object tMarcSaveDialog: TSaveDialog
    DefaultExt = 'iso'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 436
    Top = 72
  end
end