数据库（SQL基本操作）

数据库（SQL基本操作）

步骤一：开始---程序---Borland Delphi 6---BDE---Object---New---OK(默认STANDARD)---PATH---设置为含有数据库文件的目录下。

步骤二：向Form1中添加2个Query组件（BDE组中），DatabaseName---STANDARD1(上一步创建的)，SQL----select * from pza,pzb wherepza.id=pzb.id and pza.num=1; 添加DataSource 组件（DataAccess组中），DataSet---Query1。添加DBGrid组件（Data Controls 组中） DataSource---DataSource1。添加3个DBEdit，分别用来输出“编号”，“日期”，“备忘录”，Datasource----Datasource1, Datafield----分别为NUM,DATE, MEMO。添加3个Button, 分别用来 移动上一个编号，移动下一个编号，删除元组。

步骤三：1.定义变量i,n(implementation下面一行) :

vari,n:integer;

2. Form1----OnActivate:

Query1.Open;

i:=1;

3. Button1:

query1.Close;

query1.SQL.Clear;

i:=i-1;

query1.SQL.Add('select * from pza,pzbwhere pza.id=pzb.id and pza.num='+inttostr(i)) ;

query1.Open;

Button2:

query1.Close;

query1.SQL.Clear;

i:=i+1;

query1.SQL.Add('select * from pza,pzb where pza.id=pzb.id andpza.num='+inttostr(i)) ;

query1.Open;

Button3:

n:=query1num.Value;

query2.Close;

query2.SQL.Clear;

query2.SQL.Add('delete from pzawhere pza.num='+inttostr(n));

query2.ExecSQL;