关闭

数据库1(基本编辑操作)

149人阅读 评论(0) 收藏 举报

数据库1(基本编辑操作)

 

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

步骤二:向Form1中添加Table组件(BDE组中),DatabaseName---STANDARD1(上一步创建的),TableName---Pza.DBF。添加DataSource 组件(DataAccess组中),DataSet---Table1。添加DBGrid组件(Data Controls 组中) DataSource---DataSource1。添加DBNavigator1组件(DataControls组中)DataSource---DataSource1。

       向Form1中添加6个Button(Button1…Button6) , Caption依次为”添加”,”删除”,”修改”,”确定”,”取消”,”退出”

 

步骤三:

       1.声明一个procedure (public后面一行):

         procedure setstate(s:integer);  //0:browse;1:editor insert

        定义这个procedure(implementation{$R *.dfm}后面一行):

        procedure TForm1.setstate(s:integer);

begin

if s=0then

 begin

 button1.Enabled:=True;

 button2.Enabled:=True;

 button3.Enabled:=True;

 button4.Enabled:=False;

 button5.Enabled:=False;

 button6.Enabled:=True;

 end

else

 begin

 button1.Enabled:=False;

 button2.Enabled:=False;

 button3.Enabled:=False;

 button4.Enabled:=True;

 button5.Enabled:=True;

 button6.Enabled:=False;

 end;

end;

         2.定义变量x(implementation下面一行):

            var x:integer;

         3.打开Table(Form1---OnActivate) :

            Table1.Open;

            setstate(0);

         4. Button1:

            Table1.Append;

            DBGrid1.SetFocus;

           setstate(1);

           Button2:

           ifMessageDLG('Delete?',mtwarning,[mbYes,mbNo],0)=mrYes then Table1.Delete;

           Button3:

           Table1.Edit;

           DBGrid1.SetFocus;

           setstate(1);

           Button4:

           Table1.Post;

           setstate(0);

           Button5:

           Table1.Cancel;

           setstate(0);

           Button6:

           Table1.Close;

           Application.Terminate;

        5.Datasource1---AutoEdit: false;

 

0
0

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