unit1.dfm

DELPHI实现试题库出卷系统Word文档考卷的输出内含DELPHI实现源码

object Form1: TForm1
  Left = 190
  Top = 106
  Width = 600
  Height = 460
  Caption = #35797#21367#29983#25104
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 20
  object Label1: TLabel
    Left = 32
    Top = 8
    Width = 321
    Height = 20
    AutoSize = False
    Caption = #35831#36755#20837#35797#21367#30340#26631#39064#65306
  end
  object Label2: TLabel
    Left = 32
    Top = 104
    Width = 250
    Height = 20
    AutoSize = False
    Caption = #35831#36755#20837#32771#35797#29677#32423#65306
  end
  object Label3: TLabel
    Left = 32
    Top = 224
    Width = 250
    Height = 20
    AutoSize = False
    Caption = #35831#36873#25321#20986#21367#26085#26399#65306
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 395
    Width = 592
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object closedialog: TBitBtn
    Left = 400
    Top = 248
    Width = 97
    Height = 25
    Caption = '&'#20851#38381#25991#26723
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = closedialogClick
    Kind = bkClose
  end
  object richedit1: TRichEdit
    Left = 40
    Top = 32
    Width = 305
    Height = 41
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      '')
    ParentFont = False
    TabOrder = 2
  end
  object richedit2: TRichEdit
    Left = 40
    Top = 136
    Width = 305
    Height = 49
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object BitBtn1: TBitBtn
    Left = 400
    Top = 160
    Width = 97
    Height = 25
    Caption = #25554#20837#35797#21367
    TabOrder = 4
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object DateTimePicker1: TDateTimePicker
    Left = 40
    Top = 256
    Width = 186
    Height = 41
    CalAlignment = dtaLeft
    Date = 37760.7908075232
    Time = 37760.7908075232
    DateFormat = dfLong
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 5
  end
  object MainMenu1: TMainMenu
    Left = 384
    object comeout: TMenuItem
      Caption = #35797#21367#29983#25104
    end
    object manage: TMenuItem
      Caption = #35797#21367#31649#29702
      object savedialog: TMenuItem
        Caption = #20445#23384#25991#26723
        OnClick = savedialogClick
      end
      object opendialog: TMenuItem
        Caption = #25171#24320#25991#26723
        OnClick = opendialogClick
      end
    end
    object exitsystem: TMenuItem
      Caption = #36864#20986#31995#32479
      OnClick = exitsystemClick
    end
  end
  object WordApplication1: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 416
  end
  object WordDocument1: TWordDocument
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 464
  end
  object WordFont1: TWordFont
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 504
  end
  object ADOQuery1: TADOQuery
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from test')
    Left = 384
    Top = 40
    object ADOQuery1test_id: TWideStringField
      FieldName = 'test_id'
      Size = 50
    end
    object ADOQuery1type_id: TWideStringField
      FieldName = 'type_id'
      Size = 50
    end
    object ADOQuery1test: TMemoField
      FieldName = 'test'
      BlobType = ftMemo
    end
    object ADOQuery1answer: TMemoField
      FieldName = 'answer'
      BlobType = ftMemo
    end
    object ADOQuery1zhishidian_id: TWideStringField
      FieldName = 'zhishidian_id'
      Size = 50
    end
    object ADOQuery1nd_id: TWideStringField
      FieldName = 'nd_id'
      Size = 50
    end
  end
  object ADOQuery2: TADOQuery
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select distinct type_id from test')
    Left = 432
    Top = 40
    object ADOQuery2type_id: TWideStringField
      FieldName = 'type_id'
      Size = 50
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 544
  end
end