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

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