unit2.dfm

这是一个关于delphi数据库方面的源程序

object Form1: TForm1
  Left = 189
  Top = 285
  Width = 501
  Height = 225
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 233
    Height = 113
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 8
    Top = 128
    Width = 73
    Height = 25
    Caption = #25171#24320#25968#25454#34920
    TabOrder = 1
    OnClick = Button1Click
  end
  object DBGrid2: TDBGrid
    Left = 248
    Top = 8
    Width = 233
    Height = 177
    DataSource = DataSource2
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Table1: TTable
    AfterInsert = Table1AfterInsert
    AfterPost = Table1AfterPost
    BeforeDelete = Table1BeforeDelete
    DatabaseName = 'DBDEMOS'
    TableName = 'Student.DB'
    Left = 168
    Top = 56
  end
  object UpdateSQL1: TUpdateSQL
    InsertSQL.Strings = (
      'INSERT INTO "Result.db" (LessonName,Number) '
      'SELECT Lesson.LessonName,Student.Number '
      'FROM "lesson.DB" Lesson, "student.DB" Student'
      'WHERE Lesson.Class=:Class AND Student.Number=:Number')
    DeleteSQL.Strings = (
      'DELETE FROM "Result.db" '
      'WHERE Number=:Number')
    Left = 168
    Top = 88
  end
  object Table2: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'Result.DB'
    Left = 272
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 168
    Top = 24
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 272
    Top = 160
  end
end