dj.dfm

等级考试辅助软件

object Form1: TForm1
  Left = 226
  Top = 150
  Width = 511
  Height = 387
  Align = alClient
  Caption = 'DJ'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 33
    Width = 503
    Height = 308
    Align = alClient
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 503
    Height = 33
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 1
    object ComboBox1: TComboBox
      Left = 8
      Top = 8
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = #19968#32423
      Items.Strings = (
        #19968#32423
        #19968#32423'B'
        #19968#32423'WPS Office'
        #19968#32423'MS Office'
        #20108#32423'QBASIC'
        #20108#32423'C'
        #20108#32423'FOXBASE+'
        #20108#32423'VB'
        #20108#32423'VFP'
        #20108#32423'JAVA'
        #20108#32423'ACCESS'
        #20108#32423'C++'
        #19977#32423'PC'#25216#26415
        #19977#32423#20449#24687#31649#29702#25216#26415
        #19977#32423#32593#32476#25216#26415
        #19977#32423#25968#25454#24211#25216#26415)
    end
    object Button1: TButton
      Left = 504
      Top = 6
      Width = 75
      Height = 25
      Caption = #26597#25214
      TabOrder = 1
      OnClick = Button1Click
    end
    object RD: TRadioGroup
      Left = 168
      Top = 0
      Width = 321
      Height = 33
      Columns = 3
      Ctl3D = True
      ItemIndex = 0
      Items.Strings = (
        #20840#32771#20154#25968
        #34917#32771#19978#26426#20154#25968
        #34917#32771#31508#35797#20154#25968)
      ParentCtl3D = False
      TabOrder = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 416
    Top = 216
  end
  object Query1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      '')
    Left = 376
    Top = 216
  end
  object MainMenu1: TMainMenu
    Left = 456
    Top = 216
    object N3: TMenuItem
      Caption = #25490#24207
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #32479#35745
      OnClick = N4Click
    end
    object N2: TMenuItem
      Caption = #26597#35810
      OnClick = N2Click
    end
    object N5: TMenuItem
      Caption = #25171#21360
      object N9: TMenuItem
        Caption = #25171#21360#19978#25253#34920
        OnClick = N9Click
      end
      object N11: TMenuItem
        Caption = #25171#21360#32479#35745#34920
        OnClick = N11Click
      end
    end
    object N8: TMenuItem
      Caption = #28165#38500
      OnClick = N8Click
    end
    object N6: TMenuItem
      Caption = #24037#20855
      object N10: TMenuItem
        Caption = #28165#38500#26410#32771#35760#24405
        OnClick = N10Click
      end
    end
    object N7: TMenuItem
      Caption = #36864#20986
      OnClick = N7Click
    end
    object N1: TMenuItem
      Caption = #20851#20110
      OnClick = N1Click
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=data\' +
      'bmk.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:Sy' +
      'stem database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database P' +
      'assword="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mo' +
      'de=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk T' +
      'ransactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Creat' +
      'e System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLE' +
      'DB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Without ' +
      'Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 336
    Top = 216
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 376
    Top = 256
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADOTable1
    Left = 416
    Top = 256
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'BMK1'
    Left = 336
    Top = 256
  end
  object ADOTable2: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'tonji'
    Left = 336
    Top = 296
  end
  object frDBDataSet2: TfrDBDataSet
    DataSet = ADOTable2
    Left = 416
    Top = 296
  end
  object frReport2: TfrReport
    Dataset = frDBDataSet2
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 376
    Top = 296
    ReportForm = {19000000}
  end
end