⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sz.dfm

📁 某计算机学院的毕业设计及论文
💻 DFM
字号:
object frSZ: TfrSZ
  Left = 98
  Top = 66
  Width = 630
  Height = 470
  Caption = #24180#32423#35838#31243#20351#29992#25945#23460#35774#32622
  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 = 275
    Width = 135
    Height = 15
    Caption = #35838#31243#19982#25945#23460#23545#24212#34920#65306
  end
  object GroupBox1: TGroupBox
    Left = 11
    Top = 11
    Width = 353
    Height = 257
    Caption = ' * '#25945#23460#36873#25321' * '
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 45
      Height = 15
      Caption = #23398#21306#65306
    end
    object Label2: TLabel
      Left = 24
      Top = 80
      Width = 30
      Height = 15
      Caption = #27004#65306
    end
    object Label3: TLabel
      Left = 24
      Top = 136
      Width = 30
      Height = 15
      Caption = #23618#65306
    end
    object Label4: TLabel
      Left = 128
      Top = 24
      Width = 45
      Height = 15
      Caption = #25945#23460#65306
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 24
      Top = 48
      Width = 97
      Height = 23
      DataField = #23398#21306
      DataSource = dstemp
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DataSource1
      TabOrder = 0
      OnClick = DBLookupComboBox1Click
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 24
      Top = 104
      Width = 97
      Height = 23
      DataField = #27004#21495
      DataSource = dstemp
      KeyField = 'LBH'
      ListField = 'Name'
      ListSource = DataSource2
      TabOrder = 1
      OnClick = DBLookupComboBox1Click
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 24
      Top = 160
      Width = 97
      Height = 23
      DataField = #27004#23618
      DataSource = dstemp
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DataSource3
      TabOrder = 2
      OnClick = DBLookupComboBox1Click
    end
    object DBGrid1: TDBGrid
      Left = 128
      Top = 48
      Width = 209
      Height = 193
      DataSource = dsJS
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object cbC: TCheckBox
      Left = 56
      Top = 136
      Width = 57
      Height = 17
      Caption = #36873#25321
      TabOrder = 4
      OnClick = DBLookupComboBox1Click
    end
    object cbL: TCheckBox
      Left = 56
      Top = 80
      Width = 57
      Height = 17
      Caption = #36873#25321
      Checked = True
      State = cbChecked
      TabOrder = 5
      OnClick = cbLClick
    end
    object cbXZMT: TCheckBox
      Left = 56
      Top = 192
      Width = 57
      Height = 17
      Caption = #36873#25321
      TabOrder = 6
      OnClick = cbXZMTClick
    end
    object cbJXSDMT: TCheckBox
      Left = 22
      Top = 216
      Width = 83
      Height = 17
      Alignment = taLeftJustify
      Caption = #22810#23186#20307
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = cbJXSDMTClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 371
    Top = 19
    Width = 233
    Height = 209
    Caption = ' * '#26102#38388#12289#24180#32423#36873#25321' * '
    TabOrder = 1
    object Label5: TLabel
      Left = 8
      Top = 48
      Width = 30
      Height = 15
      Caption = #21608#65306
    end
    object Label6: TLabel
      Left = 109
      Top = 48
      Width = 30
      Height = 15
      Caption = #33410#65306
    end
    object Label7: TLabel
      Left = 8
      Top = 136
      Width = 30
      Height = 15
      Caption = #31995#65306
    end
    object Label8: TLabel
      Left = 120
      Top = 140
      Width = 45
      Height = 15
      Caption = #24180#32423#65306
    end
    object cbZhou: TComboBox
      Left = 32
      Top = 44
      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 = 44
      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
    object dblXi: TDBLookupComboBox
      Left = 8
      Top = 160
      Width = 97
      Height = 23
      DataField = #31995
      DataSource = dstemp
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = dsXi
      TabOrder = 2
      OnClick = DBLookupComboBox1Click
    end
    object cbNJ: TComboBox
      Left = 120
      Top = 160
      Width = 89
      Height = 23
      Style = csDropDownList
      ItemHeight = 15
      ItemIndex = 0
      TabOrder = 3
      Text = #19968#24180#32423
      Items.Strings = (
        #19968#24180#32423
        #20108#24180#32423
        #19977#24180#32423
        #22235#24180#32423)
    end
  end
  object Button1: TButton
    Left = 400
    Top = 243
    Width = 204
    Height = 25
    Caption = #28155#21152#21040#35838#31243#19982#25945#23460#23545#24212#34920
    TabOrder = 2
    OnClick = Button1Click
  end
  object DBGrid2: TDBGrid
    Left = 11
    Top = 294
    Width = 594
    Height = 102
    DataSource = DataSource4
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -15
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object Button2: TButton
    Left = 416
    Top = 403
    Width = 108
    Height = 25
    Caption = #21024#38500#35838#31243#20998#37197
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 531
    Top = 403
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 5
    OnClick = Button3Click
  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 = 112
    Top = 187
  end
  object dstemp: TDataSource
    DataSet = temp
    Left = 144
    Top = 187
  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 = 19
    Top = 99
    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 = 51
    Top = 99
  end
  object DataSource1: TDataSource
    DataSet = XQ
    Left = 48
    Top = 51
  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 = 16
    Top = 51
    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 = 19
    Top = 139
    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 = 51
    Top = 139
  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 = 112
    Top = 227
    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 = 144
    Top = 227
  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 = 379
    Top = 107
    object XiID: TWideStringField
      FieldName = 'ID'
      Size = 2
    end
    object XiName: TWideStringField
      FieldName = 'Name'
      Size = 30
    end
  end
  object dsXi: TDataSource
    DataSet = Xi
    Left = 411
    Top = 107
  end
  object DYB: 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 = #23545#24212#34920
    Left = 227
    Top = 267
    object DYBDSDesigner2: TWideStringField
      DisplayWidth = 10
      FieldName = #26102#38388
      OnGetText = DYBDSDesigner2GetText
      Size = 2
    end
    object DYBDSDesigner: TWideStringField
      DisplayWidth = 16
      FieldName = #29677#32423
      OnGetText = DYBDSDesignerGetText
      Size = 6
    end
    object DYBDSDesigner3: TWideStringField
      FieldName = #25945#23460
      Visible = False
      Size = 14
    end
    object DYBStringField: 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
  object DataSource4: TDataSource
    DataSet = DYB
    Left = 259
    Top = 267
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -