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

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

步骤二：向Form1中添加Table组件（BDE组中），DatabaseName---STANDARD1(上一步创建的)，TableName---Pza.DBF。

添加DataSource 组件（Data Access组中），DataSet---Table1。

添加DBGrid组件（Data Controls 组中）DataSource---DataSource1。

添加DBNavigator1组件（Data Controls 组中）DataSource---DataSource1。

向Form1中添加6个Button(Button1…Button6) , Caption依次为”添加”,”删除”,”修改”,”确定”,”取消”,”退出”
步骤三：
1.声明一个procedure （public后面一行）：
procedure setstate(s:integer); //0:browse;1:edit or insert
定义这个procedure（implementation {$R *.dfm}后面一行）：
procedure TForm1.setstate(s:integer);
begin
if s=0 then
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:
if MessageDLG('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;。