unit3.dfm

Delphi编写的基于Oracle的分布式数据库的演示程序

object Form3: TForm3
  Left = 196
  Top = 122
  Width = 696
  Height = 540
  Caption = 'Form3'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Label1: TLabel
    Left = 25
    Top = 16
    Width = 60
    Height = 16
    Caption = #35831#36755#20837#23398#21495
  end
  object Label2: TLabel
    Left = 25
    Top = 64
    Width = 60
    Height = 16
    Caption = #35831#36755#20837#23494#30721
  end
  object Label3: TLabel
    Left = 272
    Top = 16
    Width = 24
    Height = 16
    Caption = #22995#21517
  end
  object Label4: TLabel
    Left = 256
    Top = 64
    Width = 48
    Height = 16
    Caption = #24050#20462#23398#20998
  end
  object Label5: TLabel
    Left = 32
    Top = 144
    Width = 20
    Height = 100
    Caption = #24320#35774#35838#31243
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object Edit1: TEdit
    Left = 112
    Top = 9
    Width = 113
    Height = 24
    TabOrder = 0
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 112
    Top = 64
    Width = 113
    Height = 24
    TabOrder = 1
    Text = 'Edit2'
  end
  object DBEdit1: TDBEdit
    Left = 329
    Top = 9
    Width = 120
    Height = 24
    DataField = 'SNAME'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit2: TDBEdit
    Left = 329
    Top = 64
    Width = 120
    Height = 24
    DataField = 'SUM(CREDIT)'
    DataSource = DataSource2
    TabOrder = 3
  end
  object Button1: TButton
    Left = 489
    Top = 9
    Width = 73
    Height = 24
    Caption = #30830#35748#36523#20221
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 489
    Top = 64
    Width = 73
    Height = 25
    Caption = #36820#22238
    TabOrder = 5
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 73
    Top = 128
    Width = 480
    Height = 113
    DataSource = DataSource3
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator2: TDBNavigator
    Left = 121
    Top = 96
    Width = 240
    Height = 25
    DataSource = DataSource3
    TabOrder = 7
  end
  object Button3: TButton
    Left = 201
    Top = 265
    Width = 104
    Height = 32
    Caption = #36873#35838
    Enabled = False
    TabOrder = 8
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 393
    Top = 265
    Width = 104
    Height = 32
    Caption = #36864#36873
    Enabled = False
    TabOrder = 9
    OnClick = Button4Click
  end
  object StringGrid1: TStringGrid
    Left = 73
    Top = 320
    Width = 496
    Height = 137
    ColCount = 6
    RowCount = 6
    TabOrder = 10
    OnSelectCell = StringGrid1SelectCell
  end
  object Button5: TButton
    Left = 64
    Top = 265
    Width = 129
    Height = 32
    Caption = #26174#31034#24403#21069#23398#29983#35838#34920
    Enabled = False
    TabOrder = 11
    OnClick = Button5Click
  end
  object Query1: TQuery
    DatabaseName = 'ORACLE1'
    Left = 584
    Top = 8
  end
  object Query2: TQuery
    DatabaseName = 'ORACLE1'
    SQL.Strings = (
      'select sname from student'
      'where sno=:sno')
    Left = 632
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'sno'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query2
    Left = 632
    Top = 48
  end
  object Query3: TQuery
    DatabaseName = 'ORACLE1'
    SQL.Strings = (
      'select sum(credit) from sc, course'
      'where sno=:sno and sc.cno=course.cno and grade>=60'
      'group by sno')
    Left = 584
    Top = 48
    ParamData = <
      item
        DataType = ftString
        Name = 'sno'
        ParamType = ptUnknown
      end>
  end
  object DataSource2: TDataSource
    DataSet = Query3
    Left = 632
    Top = 88
  end
  object DataSource3: TDataSource
    DataSet = Table1
    Left = 560
    Top = 128
  end
  object Table1: TTable
    DatabaseName = 'ORACLE1'
    TableName = 'COURSE'
    Left = 592
    Top = 128
    object Table1CNO: TStringField
      FieldName = 'CNO'
      Required = True
      FixedChar = True
      Size = 8
    end
    object Table1CNAME: TStringField
      FieldName = 'CNAME'
      Required = True
      FixedChar = True
      Size = 10
    end
    object Table1CREDIT: TFloatField
      FieldName = 'CREDIT'
    end
    object Table1CTIME: TFloatField
      FieldName = 'CTIME'
    end
    object Table1QUOTA: TFloatField
      FieldName = 'QUOTA'
    end
  end
  object Query4: TQuery
    DatabaseName = 'ORACLE1'
    SQL.Strings = (
      'insert into sc(sno,cno)'
      'values(:sno,:cno)')
    Left = 312
    Top = 264
    ParamData = <
      item
        DataType = ftInteger
        Name = 'sno'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'cno'
        ParamType = ptUnknown
      end>
  end
  object Query5: TQuery
    DatabaseName = 'ORACLE1'
    SQL.Strings = (
      'select * from course'
      'where cno in'
      '    (select cno from sc where sno=:sno and grade is null)')
    Left = 352
    Top = 264
    ParamData = <
      item
        DataType = ftInteger
        Name = 'sno'
        ParamType = ptUnknown
      end>
    object Query5CNO: TStringField
      FieldName = 'CNO'
      FixedChar = True
      Size = 8
    end
    object Query5CNAME: TStringField
      FieldName = 'CNAME'
      FixedChar = True
      Size = 10
    end
    object Query5CREDIT: TFloatField
      FieldName = 'CREDIT'
    end
    object Query5CTIME: TFloatField
      FieldName = 'CTIME'
    end
    object Query5QUOTA: TFloatField
      FieldName = 'QUOTA'
    end
  end
  object Query6: TQuery
    DatabaseName = 'ORACLE1'
    SQL.Strings = (
      'delete from sc'
      'where sno=:sno and cno=:cno')
    Left = 520
    Top = 264
    ParamData = <
      item
        DataType = ftInteger
        Name = 'sno'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'cno'
        ParamType = ptUnknown
      end>
  end
end