studentfrm.dfm

delphi 编制的服务器程序

inherited StudentForm: TStudentForm
  Left = 4
  Top = 54
  Caption = #23398#29983#33457#21517#20876
  ClientWidth = 789
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    Width = 789
    inherited sbquery: TSpeedButton
      Left = 688
      Visible = False
    end
    inherited sbimport: TSpeedButton
      Left = 612
      Visible = False
    end
    inherited sbexit: TSpeedButton
      Left = 384
    end
  end
  inherited PageControl1: TPageControl
    Width = 789
    ActivePage = TabSheet2
    TabIndex = 1
    inherited TabSheet1: TTabSheet
      object Splitter1: TSplitter [0]
        Left = 161
        Top = 0
        Width = 5
        Height = 389
        Cursor = crHSplit
        Beveled = True
        Color = clActiveCaption
        MinSize = 1
        ParentColor = False
      end
      inherited DBGrid1: TDBGrid
        Left = 166
        Width = 615
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'StudentCode'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'StudentName'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ClassCaption'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'sex'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'telephone'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Identify'
            PickList.Strings = (
              #23398#29983
              #32769#24072)
            Title.Alignment = taCenter
            Visible = True
          end>
      end
      object tv: TTreeView
        Left = 0
        Top = 0
        Width = 161
        Height = 389
        Align = alLeft
        AutoExpand = True
        BevelInner = bvLowered
        BevelOuter = bvRaised
        BevelKind = bkSoft
        BevelWidth = 2
        BorderWidth = 1
        Images = ImageListTree
        Indent = 23
        ReadOnly = True
        RowSelect = True
        TabOrder = 1
        OnClick = tvClick
      end
    end
    inherited TabSheet2: TTabSheet
      inherited Panel2: TPanel
        Width = 781
        object Panel3: TPanel
          Left = 32
          Top = 24
          Width = 721
          Height = 345
          BevelInner = bvLowered
          BevelOuter = bvSpace
          BorderWidth = 2
          BorderStyle = bsSingle
          TabOrder = 0
          object Label1: TLabel
            Left = 110
            Top = 42
            Width = 30
            Height = 15
            Caption = #23398#21495
            FocusControl = DBEdit1
          end
          object Label2: TLabel
            Left = 382
            Top = 42
            Width = 30
            Height = 15
            Caption = #22995#21517
            FocusControl = DBEdit2
          end
          object Label4: TLabel
            Left = 110
            Top = 270
            Width = 30
            Height = 30
            Caption = #21021#22987#23494#30721
            FocusControl = DBEdit4
            WordWrap = True
          end
          object Label8: TLabel
            Left = 110
            Top = 141
            Width = 30
            Height = 30
            Caption = #25152#22312#29677#32423
            FocusControl = DBLookupComboBox1
            WordWrap = True
          end
          object Label3: TLabel
            Left = 110
            Top = 90
            Width = 30
            Height = 15
            Caption = #24615#21035
          end
          object Label5: TLabel
            Left = 382
            Top = 90
            Width = 30
            Height = 15
            Caption = #30005#35805
            FocusControl = DBEdit5
          end
          object Label7: TLabel
            Left = 110
            Top = 214
            Width = 30
            Height = 15
            Caption = #36523#20221
          end
          object spAuto: TSpeedButton
            Left = 261
            Top = 38
            Width = 113
            Height = 22
            Caption = #25209#37327#20135#29983#23398#21495
            Flat = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            OnClick = spAutoClick
          end
          object DBEdit1: TDBEdit
            Left = 150
            Top = 38
            Width = 107
            Height = 23
            DataField = 'StudentCode'
            DataSource = DataSource1
            TabOrder = 0
          end
          object DBEdit2: TDBEdit
            Left = 430
            Top = 38
            Width = 155
            Height = 23
            DataField = 'StudentName'
            DataSource = DataSource1
            TabOrder = 1
          end
          object DBEdit4: TDBEdit
            Left = 150
            Top = 274
            Width = 155
            Height = 23
            DataField = 'LoginPass'
            DataSource = DataSource1
            TabOrder = 2
          end
          object DBLookupComboBox1: TDBLookupComboBox
            Left = 150
            Top = 144
            Width = 194
            Height = 23
            DataField = 'ClassCaption'
            DataSource = DataSource1
            TabOrder = 3
          end
          object DBEdit5: TDBEdit
            Left = 430
            Top = 85
            Width = 154
            Height = 23
            DataField = 'telephone'
            DataSource = DataSource1
            TabOrder = 4
          end
          object DBComboBox1: TDBComboBox
            Left = 150
            Top = 91
            Width = 66
            Height = 23
            DataField = 'sex'
            DataSource = DataSource1
            ItemHeight = 15
            Items.Strings = (
              #22899
              #30007)
            TabOrder = 5
          end
          object Panel4: TPanel
            Left = 368
            Top = 143
            Width = 257
            Height = 177
            TabOrder = 6
            Visible = False
            object Label6: TLabel
              Left = 4
              Top = 61
              Width = 16
              Height = 60
              Caption = #30456'      '#29255
              FocusControl = DBImage1