monitorfrm.dfm

delphi 编制的服务器程序

inherited MonitorForm: TMonitorForm
  Left = 21
  Top = 67
  Caption = #29677#32423#31649#29702
  ClientHeight = 354
  ClientWidth = 739
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    Top = 313
    Width = 739
    inherited sbquery: TSpeedButton
      Left = 536
      Visible = False
    end
    inherited sbimport: TSpeedButton
      Visible = False
    end
    inherited sbexit: TSpeedButton
      Left = 384
    end
  end
  inherited PageControl1: TPageControl
    Width = 739
    Height = 313
    ActivePage = TabSheet2
    TabIndex = 1
    inherited TabSheet1: TTabSheet
      object Splitter1: TSplitter [0]
        Left = 141
        Top = 0
        Width = 3
        Height = 273
        Cursor = crHSplit
        Color = clActiveCaption
        ParentColor = False
      end
      inherited DBGrid1: TDBGrid
        Left = 144
        Width = 587
        Height = 273
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ClassCode'
            Title.Alignment = taCenter
            Width = 75
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ClassCaption'
            Title.Alignment = taCenter
            Width = 181
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'EnterYear'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'studentNums'
            Title.Alignment = taCenter
            Width = 85
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'professname'
            Title.Alignment = taCenter
            Width = 135
            Visible = True
          end>
      end
      object tv: TTreeView
        Left = 0
        Top = 0
        Width = 141
        Height = 273
        Align = alLeft
        AutoExpand = True
        Images = ImageList2
        Indent = 27
        ReadOnly = True
        TabOrder = 1
        OnClick = tvClick
      end
    end
    inherited TabSheet2: TTabSheet
      inherited Panel2: TPanel
        Width = 731
        Height = 273
        object Label1: TLabel
          Left = 32
          Top = 120
          Width = 60
          Height = 15
          Caption = #29677#32423#20195#30721
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 32
          Top = 168
          Width = 60
          Height = 15
          Caption = #29677#32423#21517#31216
          FocusControl = DBEdit2
        end
        object Label3: TLabel
          Left = 32
          Top = 24
          Width = 60
          Height = 15
          Caption = #20837#23398#24180#20221
          FocusControl = DBEdit3
        end
        object Label4: TLabel
          Left = 32
          Top = 216
          Width = 60
          Height = 15
          Caption = #23398#29983#20154#25968
          FocusControl = DBEdit4
        end
        object Label5: TLabel
          Left = 32
          Top = 72
          Width = 60
          Height = 15
          Caption = #25152#22312#19987#19994
          FocusControl = DBLookupComboBox1
        end
        object DBEdit1: TDBEdit
          Left = 32
          Top = 136
          Width = 137
          Height = 23
          DataField = 'ClassCode'
          DataSource = DataSource1
          TabOrder = 2
        end
        object DBEdit2: TDBEdit
          Left = 32
          Top = 184
          Width = 321
          Height = 23
          DataField = 'ClassCaption'
          DataSource = DataSource1
          TabOrder = 3
        end
        object DBEdit3: TDBEdit
          Left = 32
          Top = 40
          Width = 64
          Height = 23
          DataField = 'EnterYear'
          DataSource = DataSource1
          TabOrder = 0
        end
        object DBEdit4: TDBEdit
          Left = 32
          Top = 232
          Width = 154
          Height = 23
          DataField = 'studentNums'
          DataSource = DataSource1
          TabOrder = 4
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 32
          Top = 88
          Width = 314
          Height = 23
          DataField = 'professname'
          DataSource = DataSource1
          TabOrder = 1
        end
        object btnAuto: TButton
          Left = 179
          Top = 135
          Width = 294
          Height = 25
          Caption = #26681#25454#19987#19994#19982#20837#23398#24180#24230#33258#21160#20135#29983#22810#29677#32423#20195#30721
          TabOrder = 5
          OnClick = btnAutoClick
        end
      end
    end
  end
  inherited ImageList1: TImageList
    Left = 244
    Top = 66
  end
  inherited ADOQuery1: TADOQuery
    Connection = DmMain.ADOConnection1
    SQL.Strings = (
      'select * from Monitor')
    Left = 360
    Top = 64
    object ADOQuery1ClassCode: TWideStringField
      DisplayLabel = #29677#32423#20195#30721
      FieldName = 'ClassCode'
      Size = 8
    end
    object ADOQuery1ClassCaption: TWideStringField
      DisplayLabel = #29677#32423#21517#31216
      FieldName = 'ClassCaption'
      Size = 50
    end
    object ADOQuery1EnterYear: TWideStringField
      DisplayLabel = #20837#23398#24180#20221
      FieldName = 'EnterYear'