Delphi中ADO查询多表更新单表解决方法

学Delphi也好久了，但一直没怎么总结，这不好久没弄ADO了，趁这个星期一直看公司的代码，自己也来实践一下。以前一直用ADO操作单表，一直没怎么弄过ADO操作多表的程序，不自己实践一下还真不知道操作多表时有要注意的地方。下面是一个例子。

第一步，新建一个测试库Test，表结构如下：

第二步，新建一个Delphi应用程序，在界面上放置adoconnection和adoquery以及 datasource和DBGridEh等控件，截图如下：

dfm文件如下：

object Form1: TForm1
  Left = 328
  Top = 78
  Width = 601
  Height = 403
  Caption = '数据库操作'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object tlb1: TToolBar
    Left = 0
    Top = 0
    Width = 585
    Height = 25
    AutoSize = True
    ButtonHeight = 21
    ButtonWidth = 31
    Caption = 'tlb1'
    ShowCaptions = True
    TabOrder = 0
    Transparent = False
    object btnAdd: TToolButton
      Left = 0
      Top = 2
      Caption = '添加'
      ImageIndex = 0
      OnClick = btnAddClick
    end
    object btnDel: TToolButton
      Left = 31
      Top = 2
      Caption = '删除'
      ImageIndex = 1
      OnClick = btnDelClick
    end
    object btnEdit: TToolButton
      Left = 62
      Top = 2
      Caption = '修改'
      ImageIndex = 2
      OnClick = btnEditClick
    end
    object btnSave: TToolButton
      Left = 93