editstudent.~dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· ~DFM 代码 · 共 309 行

object EditStuFrm: TEditStuFrm
  Left = 210
  Top = 116
  Width = 459
  Height = 296
  Caption = #20462#25913#23398#29983#35760#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 6
    Top = 7
    Width = 45
    Height = 13
    AutoSize = False
    Caption = #23398#21495
  end
  object Label2: TLabel
    Left = 6
    Top = 43
    Width = 45
    Height = 13
    AutoSize = False
    Caption = #22995#21517
  end
  object Label3: TLabel
    Left = 6
    Top = 79
    Width = 45
    Height = 13
    AutoSize = False
    Caption = #24180#40836
  end
  object Label4: TLabel
    Left = 130
    Top = 8
    Width = 45
    Height = 13
    AutoSize = False
    Caption = #24615#21035
  end
  object Label5: TLabel
    Left = 130
    Top = 42
    Width = 45
    Height = 13
    AutoSize = False
    Caption = #29677#32423
  end
  object Label6: TLabel
    Left = 130
    Top = 77
    Width = 45
    Height = 13
    AutoSize = False
    Caption = #38498#31995
  end
  object Label7: TLabel
    Left = 277
    Top = 10
    Width = 45
    Height = 13
    AutoSize = False
    Caption = #23487#33293
  end
  object Label8: TLabel
    Left = 277
    Top = 43
    Width = 45
    Height = 13
    AutoSize = False
    Caption = #30005#35805
  end
  object Label9: TLabel
    Left = 277
    Top = 76
    Width = 69
    Height = 13
    AutoSize = False
    Caption = #20511#38405#35768#21487
  end
  object Label10: TLabel
    Left = 273
    Top = 110
    Width = 47
    Height = 13
    AutoSize = False
    Caption = #35760#24405#25968
  end
  object DBEdit1: TDBEdit
    Left = 41
    Top = 7
    Width = 76
    Height = 21
    DataField = 'StuNo'
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 41
    Top = 39
    Width = 76
    Height = 21
    DataField = 'StuName'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit3: TDBEdit
    Left = 41
    Top = 71
    Width = 76
    Height = 21
    DataField = 'StuAge'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit4: TDBEdit
    Left = 176
    Top = 7
    Width = 90
    Height = 21
    DataField = 'StuSex'
    DataSource = DataSource1
    TabOrder = 3
  end
  object BitBtn1: TBitBtn
    Left = 376
    Top = 104
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 4
    OnClick = BitBtn1Click
    Kind = bkClose
  end
  object DBGrid1: TDBGrid
    Left = 5
    Top = 134
    Width = 449
    Height = 115
    DataSource = DataSource1
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'StuNo'
        Title.Caption = #23398#21495
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'StuName'
        Title.Caption = #22995#21517
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'StuAge'
        Title.Caption = #24180#40836
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'StuSex'
        Title.Caption = #24615#21035
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Class'
        Title.Caption = #29677#32423
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Department'
        Title.Caption = #38498#31995
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Room'
        Title.Caption = #23487#33293
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Tel'
        Title.Caption = #30005#35805
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Permitted'
        Title.Caption = #20511#38405#35768#21487
        Width = 60
        Visible = True
      end>
  end
  object DBEdit5: TDBEdit
    Left = 325
    Top = 39
    Width = 121
    Height = 21
    DataField = 'Tel'
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBEdit6: TDBEdit
    Left = 325
    Top = 6
    Width = 121
    Height = 21
    DataField = 'Room'
    DataSource = DataSource1
    TabOrder = 7
  end
  object DBEdit7: TDBEdit
    Left = 176
    Top = 75
    Width = 90
    Height = 21
    DataField = 'Department'
    DataSource = DataSource1
    TabOrder = 8
  end
  object DBEdit8: TDBEdit
    Left = 176
    Top = 41
    Width = 90
    Height = 21
    DataField = 'Class'
    DataSource = DataSource1
    TabOrder = 9
  end
  object DBComboBox1: TDBComboBox
    Left = 346
    Top = 72
    Width = 100
    Height = 21
    DataField = 'Permitted'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'True'
      'False')
    TabOrder = 10
  end
  object Edit1: TEdit
    Left = 324
    Top = 107
    Width = 41
    Height = 21
    ReadOnly = True
    TabOrder = 11
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 104
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 12
  end
  object Database1: TDatabase
    AliasName = 'Library'
    Connected = True
    DatabaseName = 'libstu'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    Left = 56
    Top = 200
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'libstu'
    TableName = 'Student'
    Left = 88
    Top = 200
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 120
    Top = 200
  end
end