unit5.dfm

来自「理论考试程序,可以自由下载,学习,请多多指点,批评」· DFM 代码 · 共 99 行

object Form5: TForm5
  Left = 213
  Top = 254
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #27979#39564#32467#26524
  ClientHeight = 241
  ClientWidth = 342
  Color = clInfoBk
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlue
  Font.Height = -24
  Font.Name = #21326#25991#20013#23435
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 27
  object Label1: TLabel
    Left = 24
    Top = 14
    Width = 273
    Height = 169
    AutoSize = False
    Caption = '12345222222222222222222222222222222'
    Color = 6271036
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -35
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
    WordWrap = True
  end
  object Label2: TLabel
    Left = 88
    Top = 216
    Width = 140
    Height = 14
    Caption = #27880#65306#25353'"'#32467#26463'"'#38190#32467#26463#12290
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
  end
  object BitBtn5: TBitBtn
    Left = 107
    Top = 176
    Width = 89
    Height = 31
    Caption = #32467#26463'&2'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn5Click
  end
  object Edit1: TEdit
    Left = 568
    Top = 112
    Width = 121
    Height = 35
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 1
    Text = 'Edit1'
  end
  object Tab1: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=C:\'#21333#26426#29256'\' +
      'drvexam.dat;Persist Security Info=True'
    TableName = 'kscjb'
    Left = 192
    Top = 120
    object Tab1ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object Tab1sfzmhm: TWideStringField
      FieldName = 'sfzmhm'
      Size = 50
    end
    object Tab1kscj: TWideStringField
      FieldName = 'kscj'
      Size = 50
    end
    object Tab1kssj: TWideStringField
      FieldName = 'kssj'
      Size = 50
    end
  end
end