学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