subjectcount.dfm

一个不错的信息管理系统

object form16: Tform16
  Left = 218
  Top = 107
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #24120#29992#20027#39064#32479#35745
  ClientHeight = 379
  ClientWidth = 532
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object DBCheckBox1: TDBCheckBox
    Left = 0
    Top = -16
    Width = 97
    Height = 17
    Caption = 'A04'
    DataField = 'A04'
    TabOrder = 0
    ValueChecked = 'True'
    ValueUnchecked = 'False'
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 532
    Height = 379
    Align = alClient
    BevelOuter = bvSpace
    BorderStyle = bsSingle
    TabOrder = 1
    object Label7: TLabel
      Left = 3
      Top = 166
      Width = 75
      Height = 15
      Caption = #32479#35745#32467#26524#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 223
      Top = 320
      Width = 51
      Height = 16
      Caption = #26597#35810#21040
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label9: TLabel
      Left = 276
      Top = 320
      Width = 9
      Height = 16
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 316
      Top = 320
      Width = 51
      Height = 16
      Caption = #26465#35760#24405
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 22
      Top = 320
      Width = 51
      Height = 16
      Caption = #20849#26377#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label12: TLabel
      Left = 63
      Top = 320
      Width = 9
      Height = 16
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label13: TLabel
      Left = 22
      Top = 352
      Width = 119
      Height = 16
      Caption = #21344#25152#26377#35760#24405#30340#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label14: TLabel
      Left = 140
      Top = 352
      Width = 9
      Height = 16
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label15: TLabel
      Left = 110
      Top = 320
      Width = 34
      Height = 16
      Caption = #35760#24405
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 3
      Top = 10
      Width = 523
      Height = 152
      Caption = #23450#21046#32479#35745#33539#22260
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 42
        Top = 29
        Width = 45
        Height = 15
        Caption = #24180#40836#20174
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 185
        Top = 29
        Width = 15
        Height = 15
        Caption = #21040
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 42
        Top = 77
        Width = 45
        Height = 15
        Caption = #23398#21382#20174
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 185
        Top = 77
        Width = 15
        Height = 15
        Caption = #21040
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 42
        Top = 119
        Width = 53
        Height = 15
        Caption = #24615' '#21035#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object ComboBox1: TComboBox
        Left = 92
        Top = 29
        Width = 87
        Height = 23
        ItemHeight = 15
        TabOrder = 0
        Items.Strings = (
          '20'
          '30'
          '40'
          '50'
          '60')
      end
      object ComboBox2: TComboBox
        Left = 209
        Top = 29
        Width = 97
        Height = 23
        ItemHeight = 15
        TabOrder = 1
        Items.Strings = (
          '20'
          '30'
          '40'
          '50'
          '60')
      end
      object ComboBox3: TComboBox
        Left = 92
        Top = 77
        Width = 87
        Height = 23
        ItemHeight = 15
        TabOrder = 2
        Items.Strings = (
          #23567#23398
          #21021#20013
          #25216#24037
          #39640#20013
          #20013#19987
          #22823#19987
          #22823#26412
          #30740#31350#29983
          #30805#22763
          #21338#22763)
      end
      object ComboBox4: TComboBox
        Left = 209
        Top = 77
        Width = 97
        Height = 23
        ItemHeight = 15
        TabOrder = 3
        Items.Strings = (
          #23567#23398
          #21021#20013
          #25216#24037
          #39640#20013
          #20013#19987
          #22823#19987
          #22823#26412
          #30740#31350#29983
          #30805#22763
          #21338#22763)
      end
      object ComboBox5: TComboBox
        Left = 92
        Top = 119
        Width = 85
        Height = 23
        ItemHeight = 15
        TabOrder = 4
        Items.Strings = (
          #22899
          #30007)
      end
      object Button1: TButton
        Left = 392
        Top = 24
        Width = 75
        Height = 25
        Caption = #24320#22987#26597#35810
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 392
        Top = 68
        Width = 75
        Height = 25
        Caption = #28165#31354
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 392
        Top = 112
        Width = 75
        Height = 25
        Caption = #36864#20986
        TabOrder = 7
        OnClick = Button3Click
      end
    end
    object DBGrid1: TDBGrid
      Left = 3
      Top = 181
      Width = 520
      Height = 135
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 136
    Top = 8
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=ganbu' +
      'system.mdb;Mode=Share Deny None;Extended Properties="";Persist S' +
      'ecurity Info=False;Jet OLEDB:System database="";Jet OLEDB:Regist' +
      'ry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=' +
      '5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bul' +
      'k Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab' +
      'ase Password="";Jet OLEDB:Create System Database=False;Jet OLEDB' +
      ':Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=F' +
      'alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SF' +
      'P=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 184
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 224
    Top = 8
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'a01'
    Left = 264
    Top = 8
  end
end