cz.dfm

某计算机学院的毕业设计及论文

object frCZ: TfrCZ
  Left = 104
  Top = 98
  Width = 631
  Height = 470
  Caption = #25945#23460#20351#29992#24773#20917#26597#35810
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Label9: TLabel
    Left = 11
    Top = 235
    Width = 75
    Height = 15
    Caption = #26597#25214#32467#26524#65306
  end
  object GroupBox1: TGroupBox
    Left = 11
    Top = 75
    Width = 598
    Height = 70
    Caption = ' * '#25945#23460#36873#25321' * '
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 20
      Width = 45
      Height = 15
      Caption = #23398#21306#65306
    end
    object Label2: TLabel
      Left = 128
      Top = 20
      Width = 30
      Height = 15
      Caption = #27004#65306
    end
    object Label3: TLabel
      Left = 232
      Top = 20
      Width = 30
      Height = 15
      Caption = #23618#65306
    end
    object Label4: TLabel
      Left = 336
      Top = 20
      Width = 45
      Height = 15
      Caption = #25945#23460#65306
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 24
      Top = 38
      Width = 97
      Height = 23
      DataField = #23398#21306
      DataSource = dstemp
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DataSource1
      TabOrder = 0
      OnClick = DBLookupComboBox1Click
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 128
      Top = 38
      Width = 97
      Height = 23
      DataField = #27004#21495
      DataSource = dstemp
      KeyField = 'LBH'
      ListField = 'Name'
      ListSource = DataSource2
      TabOrder = 1
      OnClick = DBLookupComboBox1Click
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 232
      Top = 38
      Width = 97
      Height = 23
      DataField = #27004#23618
      DataSource = dstemp
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DataSource3
      TabOrder = 2
      OnClick = DBLookupComboBox1Click
    end
    object cbXZMT: TCheckBox
      Left = 500
      Top = 22
      Width = 93
      Height = 17
      Caption = #26174#31034#23186#20307
      TabOrder = 3
      OnClick = cbXZMTClick
    end
    object cbJXSDMT: TCheckBox
      Left = 494
      Top = 42
      Width = 92
      Height = 17
      Alignment = taLeftJustify
      Caption = #22810#23186#20307#25945#23460
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = cbJXSDMTClick
    end
    object DBLookupComboBox4: TDBLookupComboBox
      Left = 334
      Top = 37
      Width = 153
      Height = 23
      DataField = #25945#23460
      DataSource = dstemp
      KeyField = 'JSBH'
      ListField = 'Name'
      ListSource = dsJS
      TabOrder = 5
      OnClick = DBLookupComboBox1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 11
    Top = 11
    Width = 246
    Height = 55
    Caption = ' * '#26102#38388' * '
    TabOrder = 1
    object Label5: TLabel
      Left = 8
      Top = 27
      Width = 30
      Height = 15
      Caption = #21608#65306
    end
    object Label6: TLabel
      Left = 109
      Top = 27
      Width = 30
      Height = 15
      Caption = #33410#65306
    end
    object cbZhou: TComboBox
      Left = 32
      Top = 23
      Width = 73
      Height = 23
      Style = csDropDownList
      ItemHeight = 15
      ItemIndex = 1
      TabOrder = 0
      Text = #21608#19968
      Items.Strings = (
        #21608#26085
        #21608#19968
        #21608#20108
        #21608#19977
        #21608#22235
        #21608#20116
        #21608#20845)
    end
    object cbJie: TComboBox
      Left = 136
      Top = 23
      Width = 89
      Height = 23
      Style = csDropDownList
      ItemHeight = 15
      ItemIndex = 0
      TabOrder = 1
      Text = #31532#19968#33410
      Items.Strings = (
        #31532#19968#33410
        #31532#20108#33410
        #31532#19977#33410
        #31532#22235#33410
        #31532#20116#33410)
    end
  end
  object Button1: TButton
    Left = 536
    Top = 203
    Width = 73
    Height = 25
    Caption = #26597#25214
    TabOrder = 2
    OnClick = Button1Click
  end
  object DBGrid2: TDBGrid
    Left = 11
    Top = 256
    Width = 598
    Height = 145
    DataSource = DataSource4
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -15
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object Button3: TButton
    Left = 529
    Top = 408
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 4
    OnClick = Button3Click
  end
  object rgCZ: TRadioGroup
    Left = 10
    Top = 152
    Width = 599
    Height = 49
    Caption = ' * '#26597#25214#20869#23481' * '
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      #26576#26102#38388#20869#25945#23460#21344#29992#24773#20917
      #26576#26102#38388#20869#26576#31995#26576#24180#32423#20351#29992#25945#23460#24773#20917)
    TabOrder = 5
  end
  object GroupBox3: TGroupBox
    Left = 272
    Top = 10
    Width = 337
    Height = 57
    Caption = ' * '#24180#32423' * '
    TabOrder = 6
    object Label7: TLabel
      Left = 24
      Top = 29
      Width = 30
      Height = 15
      Caption = #31995#65306
    end
    object Label8: TLabel
      Left = 168
      Top = 29
      Width = 45
      Height = 15
      Caption = #24180#32423#65306
    end
    object dblXi: TDBLookupComboBox
      Left = 64
      Top = 25
      Width = 97
      Height = 23
      DataField = #31995
      DataSource = dstemp
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = dsXi
      TabOrder = 0
      OnClick = DBLookupComboBox1Click
    end
    object cbNJ: TComboBox
      Left = 224
      Top = 25
      Width = 89
      Height = 23
      Style = csDropDownList
      ItemHeight = 15
      ItemIndex = 0
      TabOrder = 1
      Text = #19968#24180#32423
      Items.Strings = (
        #19968#24180#32423
        #20108#24180#32423
        #19977#24180#32423
        #22235#24180#32423)
    end
  end
  object cbQT: TCheckBox
    Left = 16
    Top = 208
    Width = 97
    Height = 17
    Caption = #20840#22825#26597#35810
    TabOrder = 7
  end
  object temp: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
      'Security Info=False;User ID=Admin;Password=""'
    CursorType = ctStatic
    TableName = 'temp'
    Left = 96
    Top = 3
  end
  object dstemp: TDataSource
    DataSet = temp
    Left = 128
    Top = 3
  end
  object LH: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
      'Security Info=False;User ID=Admin;Password=""'
    CursorType = ctStatic
    IndexFieldNames = 'XQID'
    MasterFields = 'ID'
    MasterSource = DataSource1
    TableName = #27004
    Left = 155
    Top = 131
    object LHXQID: TIntegerField
      FieldName = 'XQID'
      Visible = False
    end
    object LHID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object LHLBH: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'LBH'
      Size = 6
    end
    object LHName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 14
      FieldName = 'Name'
      Size = 30
    end
  end
  object DataSource2: TDataSource
    DataSet = LH
    Left = 187
    Top = 131
  end
  object DataSource1: TDataSource
    DataSet = XQ
    Left = 64
    Top = 131
  end
  object XQ: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
      'Security Info=False;User ID=Admin;Password=""'
    CursorType = ctStatic
    IndexName = 'ID'
    TableName = #23398#21306
    Left = 32
    Top = 131
    object XQID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object XQName: TWideStringField
      DisplayLabel = #23398#21306#21517
      DisplayWidth = 10
      FieldName = 'Name'
      Size = 30
    end
  end
  object LC: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
      'Security Info=False;User ID=Admin;Password=""'
    CursorType = ctStatic
    IndexName = 'ID'
    TableName = #23618
    Left = 251
    Top = 131
    object LCID: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'ID'
      Size = 2
    end
    object LCName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 8
      FieldName = 'Name'
      Size = 30
    end
  end
  object DataSource3: TDataSource
    DataSet = LC
    Left = 283
    Top = 131
  end
  object JS: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
      'Security Info=False;User ID=Admin;Password=""'
    CursorType = ctStatic
    Filtered = True
    OnFilterRecord = JSFilterRecord
    TableName = #25945#23460
    Left = 352
    Top = 131
    object JSJSBH: TWideStringField
      FieldName = 'JSBH'
      Visible = False
      Size = 14
    end
    object JSName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 8
      FieldName = 'Name'
    end
    object JSMT: TBooleanField
      DisplayLabel = #22810#23186#20307
      FieldName = 'MT'
      OnGetText = JSMTGetText
    end
    object JSallname: TWideStringField
      FieldName = 'allname'
      Visible = False
      Size = 100
    end
  end
  object dsJS: TDataSource
    DataSet = JS
    Left = 384
    Top = 131
  end
  object Xi: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
      'Security Info=False;User ID=Admin;Password=""'
    CursorType = ctStatic
    IndexName = 'ID'
    TableName = #31995
    Left = 339
    Top = 35
    object XiID: TWideStringField
      FieldName = 'ID'
      Size = 2
    end
    object XiName: TWideStringField
      FieldName = 'Name'
      Size = 30
    end
  end
  object dsXi: TDataSource
    DataSet = Xi
    Left = 371
    Top = 35
  end
  object DataSource4: TDataSource
    DataSet = QDYB
    Left = 259
    Top = 267
  end
  object QDYB: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
      'Security Info=False;User ID=Admin;Password=""'
    Parameters = <>
    Left = 200
    Top = 216
    object QDYBWideStringField: TWideStringField
      DisplayWidth = 10
      FieldName = #26102#38388
      OnGetText = QDYBWideStringFieldGetText
      Size = 2
    end
    object QDYBWideStringField2: TWideStringField
      DisplayWidth = 16
      FieldName = #29677#32423
      OnGetText = QDYBWideStringField2GetText
      Size = 6
    end
    object QDYBWideStringField3: TWideStringField
      FieldName = #25945#23460
      Visible = False
      Size = 14
    end
    object QDYBStringField: TStringField
      DisplayWidth = 40
      FieldKind = fkLookup
      FieldName = #25945#23460#20840#31216
      LookupDataSet = JS
      LookupKeyFields = 'JSBH'
      LookupResultField = 'allname'
      KeyFields = #25945#23460
      Size = 100
      Lookup = True
    end
  end
end