关闭

数据库(SQL基本操作)

标签: 数据库sqlquerybuttondelphiinteger
225人阅读 评论(0) 收藏 举报
分类:

数据库(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;

 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:27604次
    • 积分:848
    • 等级:
    • 排名:千里之外
    • 原创:63篇
    • 转载:0篇
    • 译文:0篇
    • 评论:2条
    文章存档
    最新评论