unit2.dfm

主要实现试卷的录入

object DataModule1: TDataModule1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 80
  Top = 118
  Height = 168
  Width = 179
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\stg' +
      'gl.mdb;Mode=Share Deny None;Extended Properties="";Persist Secur' +
      'ity Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry P' +
      'ath="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Je' +
      't OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Op' +
      's=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database ' +
      'Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Enc' +
      'rypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False' +
      ';Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=Fa' +
      'lse'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 8
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'st'
    Left = 72
    Top = 8
    object ADOTable1th: TIntegerField
      DisplayWidth = 9
      FieldName = 'th'
    end
    object ADOTable1txdm: TWordField
      DisplayWidth = 10
      FieldName = 'txdm'
    end
    object ADOTable1ndxs: TWordField
      DisplayWidth = 10
      FieldName = 'ndxs'
    end
    object ADOTable1zj: TStringField
      DisplayWidth = 9
      FieldName = 'zj'
    end
    object ADOTable1zsd: TStringField
      DisplayWidth = 9
      FieldName = 'zsd'
      Size = 50
    end
    object ADOTable1tmnr: TMemoField
      DisplayWidth = 8
      FieldName = 'tmnr'
      BlobType = ftMemo
    end
    object ADOTable1fs: TWordField
      DisplayWidth = 8
      FieldName = 'fs'
    end
    object ADOTable1ckda: TMemoField
      DisplayWidth = 12
      FieldName = 'ckda'
      BlobType = ftMemo
    end
    object ADOTable1yypd: TWordField
      DisplayWidth = 12
      FieldName = 'yypd'
    end
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'sj'
    CommandType = cmdTable
    Parameters = <>
    Left = 120
    Top = 8
    object ADODataSet1sjbh: TWordField
      DisplayWidth = 9
      FieldName = 'sjbh'
    end
    object ADODataSet1sjm: TStringField
      DisplayWidth = 11
      FieldName = 'sjm'
      Size = 30
    end
    object ADODataSet1kssj: TDateTimeField
      DisplayWidth = 9
      FieldName = 'kssj'
    end
    object ADODataSet1ksdx: TStringField
      DisplayWidth = 15
      FieldName = 'ksdx'
      Size = 30
    end
    object ADODataSet1js: TStringField
      DisplayWidth = 12
      FieldName = 'js'
      Size = 40
    end
    object ADODataSet1sjnr: TMemoField
      DisplayWidth = 12
      FieldName = 'sjnr'
      BlobType = ftMemo
    end
    object ADODataSet1jspj: TMemoField
      DisplayWidth = 12
      FieldName = 'jspj'
      BlobType = ftMemo
    end
    object ADODataSet1pjf: TIntegerField
      FieldName = 'pjf'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'tmnr'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select tmnr from sj')
    Left = 64
    Top = 64
  end
  object ADODataSet2: TADODataSet
    Connection = ADOConnection1
    Parameters = <>
    Left = 16
    Top = 64
  end
end