unit4.dfm

DELPHI教师管理系统全套设计(论文+代码).设计好参考

object Form4: TForm4
  Left = 258
  Top = 184
  Width = 740
  Height = 401
  Caption = #25945#23398#35745#21010
  Color = 5920306
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 8
    Width = 80
    Height = 19
    Caption = #25945#23398#35745#21010
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 32
    Width = 649
    Height = 329
    ActivePage = TabSheet1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #21046#23450#21644#35843#25972#35745#21010
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object Label2: TLabel
        Left = 40
        Top = 16
        Width = 26
        Height = 16
        Caption = #32534#21495
        FocusControl = DBEdit1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 40
        Top = 64
        Width = 26
        Height = 16
        Caption = #23398#26399
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 40
        Top = 112
        Width = 26
        Height = 16
        Caption = #21608#25968
        FocusControl = DBEdit3
      end
      object Label5: TLabel
        Left = 40
        Top = 160
        Width = 52
        Height = 16
        Caption = #32771#35797#31185#30446
      end
      object Label6: TLabel
        Left = 40
        Top = 208
        Width = 78
        Height = 16
        Caption = #25945#23398#35745#21010#20869#23481
        FocusControl = DBEdit5
      end
      object DBNavigator1: TDBNavigator
        Left = 328
        Top = 240
        Width = 230
        Height = 33
        DataSource = DataSource1
        TabOrder = 0
      end
      object DBEdit1: TDBEdit
        Left = 40
        Top = 32
        Width = 200
        Height = 24
        DataField = #32534#21495
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 40
        Top = 128
        Width = 200
        Height = 24
        DataField = #21608#25968
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object DBEdit5: TDBEdit
        Left = 40
        Top = 224
        Width = 200
        Height = 24
        DataField = #25945#23398#35745#21010#20869#23481
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object DBComboBox1: TDBComboBox
        Left = 40
        Top = 80
        Width = 201
        Height = 24
        DataField = #23398#26399
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          #19968
          #20108
          #19977
          #22235
          #20116
          #20845
          #19971
          #20843)
        ParentFont = False
        TabOrder = 4
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 40
        Top = 176
        Width = 193
        Height = 24
        DataField = #32771#35797#31185#30446
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        KeyField = #35838#31243
        ListField = #35838#31243
        ListSource = DataSource6
        ParentFont = False
        TabOrder = 5
      end
    end
    object TabSheet4: TTabSheet
      Caption = #34920#26684#26041#24335
      ImageIndex = 3
      object DBGrid4: TDBGrid
        Left = 8
        Top = 8
        Width = 625
        Height = 281
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26597#35810
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 24
        Top = 56
        Width = 585
        Height = 169
        DataSource = DataSource3
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Button1: TButton
        Left = 264
        Top = 248
        Width = 113
        Height = 25
        Caption = #30830#23450
        TabOrder = 1
        OnClick = Button1Click
      end
      object ComboBox1: TComboBox
        Left = 120
        Top = 248
        Width = 113
        Height = 24
        ItemHeight = 16
        TabOrder = 2
        Text = #36873#25321#23398#26399
        Items.Strings = (
          #19968
          #20108
          #19977
          #22235
          #20116
          #20845
          #19971
          #20843)
      end
      object DBNavigator2: TDBNavigator
        Left = 24
        Top = 8
        Width = 350
        Height = 33
        DataSource = DataSource1
        TabOrder = 3
      end
    end
    object TabSheet3: TTabSheet
      Caption = #32479#35745
      ImageIndex = 2
      object Label7: TLabel
        Left = 16
        Top = 8
        Width = 91
        Height = 16
        Caption = #27599#23398#26399#23398#26102#32479#35745
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 376
        Top = 8
        Width = 91
        Height = 16
        Caption = #27599#23398#26399#23398#20998#32479#35745
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBGrid3: TDBGrid
        Left = 368
        Top = 32
        Width = 257
        Height = 209
        DataSource = DataSource4
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DBGrid2: TDBGrid
        Left = 16
        Top = 32
        Width = 305
        Height = 209
        DataSource = DataSource2
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet5: TTabSheet
      Caption = #21069#32493#21518#32493#27425#24207
      ImageIndex = 4
      object ComboBox2: TComboBox
        Left = 120
        Top = 248
        Width = 113
        Height = 24
        ItemHeight = 16
        TabOrder = 0
        Text = #36873#25321#23398#26399
        Items.Strings = (
          #19968
          #20108
          #19977
          #22235
          #20116
          #20845
          #19971
          #20843)
      end
      object DBGrid5: TDBGrid
        Left = 56
        Top = 24
        Width = 489
        Height = 169
        DataSource = DataSource5
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Button2: TButton
        Left = 280
        Top = 248
        Width = 121
        Height = 25
        Caption = #30830#23450
        TabOrder = 2
        OnClick = Button2Click
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 96
    Top = 336
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wl.mdb;Persist Secu' +
      'rity Info=False'
    CursorType = ctStatic
    TableName = 'jxjh_px'
    Left = 152
    Top = 336
    object ADOTable1DSDesigner: TIntegerField
      FieldName = #32534#21495
    end
    object ADOTable1DSDesigner2: TWideStringField
      FieldName = #23398#26399
      Size = 10
    end
    object ADOTable1DSDesigner3: TWideStringField
      FieldName = #21608#25968
      Size = 10
    end
    object ADOTable1DSDesigner4: TWideStringField
      FieldName = #32771#35797#31185#30446
      Size = 30
    end
    object ADOTable1DSDesigner5: TWideStringField
      FieldName = #25945#23398#35745#21010#20869#23481
      Size = 50
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery1
    Left = 572
    Top = 336
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wl.mdb;Persist Secu' +
      'rity Info=False'
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'ss'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM jxjh'
      'where '#23398#26399':=ss')
    Left = 524
    Top = 336
  end
  object ADOTable2: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wl.mdb;Persist Secu' +
      'rity Info=False'
    CursorType = ctStatic
    TableName = 'jh_xf'
    Left = 512
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 544
  end
  object ADOTable3: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wl.mdb;Persist Secu' +
      'rity Info=False'
    CursorType = ctStatic
    TableName = 'jh_xs'
    Left = 640
  end
  object DataSource4: TDataSource
    DataSet = ADOTable3
    Left = 680
  end
  object ADOQuery2: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wl.mdb;Persist Secu' +
      'rity Info=False'
    CursorType = ctStatic
    Parameters = <
      item
        Name = '=ss'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM jh_qh'
      'where '#23398#26399':=ss')
    Left = 636
    Top = 336
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery2
    Left = 684
    Top = 336
  end
  object ADOTable4: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wl.mdb;Persist Secu' +
      'rity Info=False'
    CursorType = ctStatic
    TableName = 'kclx'
    Left = 392
    Top = 240
  end
  object DataSource6: TDataSource
    DataSet = ADOTable4
    Left = 336
    Top = 240
  end
end