studentgeren.dfm.~1~

《Delphi程序员成长攻略》-蒙祖强龚涛的源代码

object StudentGerenForm: TStudentGerenForm
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = #23398#29983#20010#20154#25104#32489
  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 Panel1: TPanel
    Left = 48
    Top = 16
    Width = 601
    Height = 25
    TabOrder = 0
    object DBNavigator1: TDBNavigator
      Left = 24
      Top = 0
      Width = 240
      Height = 25
      DataSource = DataSource1
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 48
    Top = 40
    Width = 601
    Height = 137
    Caption = 'Panel2'
    TabOrder = 1
    object Label1: TLabel
      Left = 40
      Top = 32
      Width = 24
      Height = 13
      Caption = #23398#21495
    end
    object Label2: TLabel
      Left = 40
      Top = 64
      Width = 24
      Height = 13
      Caption = #22995#21517
    end
    object Label3: TLabel
      Left = 40
      Top = 96
      Width = 26
      Height = 13
      Caption = 'name'
    end
    object Label4: TLabel
      Left = 224
      Top = 24
      Width = 24
      Height = 13
      Caption = #22269#23478
    end
    object Label5: TLabel
      Left = 224
      Top = 56
      Width = 24
      Height = 13
      Caption = #31867#22411
    end
    object Label6: TLabel
      Left = 224
      Top = 88
      Width = 24
      Height = 13
      Caption = #29677#32423
    end
    object Label7: TLabel
      Left = 400
      Top = 24
      Width = 24
      Height = 13
      Caption = #24615#21035
    end
    object Label8: TLabel
      Left = 400
      Top = 56
      Width = 24
      Height = 13
      Caption = #30005#35805
    end
    object DBEdit1: TDBEdit
      Left = 88
      Top = 24
      Width = 121
      Height = 21
      DataField = 'studentno'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 88
      Top = 56
      Width = 121
      Height = 21
      DataField = 'name1'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 88
      Top = 88
      Width = 121
      Height = 21
      DataField = 'name2'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit5: TDBEdit
      Left = 272
      Top = 56
      Width = 121
      Height = 21
      DataField = 'type'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit6: TDBEdit
      Left = 272
      Top = 88
      Width = 121
      Height = 21
      DataField = 'name'
      DataSource = DataSource3
      TabOrder = 4
    end
    object DBEdit7: TDBEdit
      Left = 448
      Top = 24
      Width = 121
      Height = 21
      DataField = 'sex'
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBEdit8: TDBEdit
      Left = 448
      Top = 56
      Width = 121
      Height = 21
      DataField = 'tel1'
      DataSource = DataSource1
      TabOrder = 6
    end
    object DBEdit4: TDBEdit
      Left = 272
      Top = 24
      Width = 121
      Height = 21
      DataField = 'country'
      DataSource = DataSource1
      TabOrder = 7
    end
  end
  object Panel3: TPanel
    Left = 48
    Top = 184
    Width = 601
    Height = 209
    Caption = 'Panel3'
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 599
      Height = 207
      Align = alClient
      DataSource = DataSource2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 504
    Top = 16
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 544
    Top = 16
  end
  object Table1: TTable
    DatabaseName = 'xueshengODBC'
    TableName = 'stutable'
    Left = 464
    Top = 16
  end
  object Query1: TQuery
    DatabaseName = 'mysqldata'
    DataSource = DataSource1
    SQL.Strings = (
      'select restable.studentno,coutable.name,restable.pingshi1 '
      'from coutable,restable'
      'where restable.studentno=:studentno'
      'and restable.courseno=coutable.courseno')
    Left = 592
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'studentno'
        ParamType = ptUnknown
      end>
  end
  object DataSource3: TDataSource
    DataSet = Table2
    Left = 424
    Top = 16
  end
  object Table2: TTable
    DatabaseName = 'xueshengODBC'
    MasterSource = DataSource1
    TableName = 'clatable'
    Left = 392
    Top = 16
  end
end