如何连接数据库 Table1 怎么连接 .DB 数据库 谁能给我一个 小程序啊 就是一个*.DB 的数据库 添加 删除 上一条 下一条 还有 修改 这些基本功能的小程序呢? 我只是学过一点VB 其实也很菜 最近我想学DELPHI 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 1、添加ADOTable1.Insert;adotable1.FieldValues['FieldName']:=Edit1.Text;adotable1.Post;2、删除ADOTable1.Delete;3、ADOTable1.Prior;4、ADOTable1.Next;5、修改ADOTable1.Edit;adotable1.FieldValues['FieldName']:=Edit1.Text;ADOTable1.Post; 人事管理软件设计人事数据库准备。在编写软件之前首先要准备好数据库，我们用Access97来制做这个数据库，新建一个数据库，名称为Demo.mdb，在其中创建一个数据表名称为rs，数据表中有如下几个字段，字段名称最好采用英文字符，括号中为字段名称的解释（不要输入）：字段名称 字段类型 字段长度 num(编号) 文本 3xm(姓名) 文本 8bd(出生日期) 日期/时间 gz(工资) 数字（单精度） zc(职称) 文本 10 用Access制做这个数据库的详细步骤就不讲解了，如不会可阅读Access97的帮助文件。我们在Access中为rs数据表写入一条记录如下：001,张三，1970-1-25,550,工程师。数据库别名的定制。数据库别名是初学用Delphi进行数据库编程首先碰到的一个问题。Delphi中的许多数据库组件都需要指明数据库名称，数据库名称可以直接指定，如C:\DATA\DEMO.MDB，但在代码中可能多处需要使用数据库名称，如果都这样直接使用数据库的绝对路径名称，写起来可能较麻烦，但更麻烦的事情在于如果用户改变了数据库的存放路径（如在安装时让用户指定安装目录）或数据库名称，已编写好的程序（EXE文件）将无法正常工作，即使在编程阶段，也要对所有的代码都进行修改，是否太麻烦了，此时我们最好给数据库另取一个名字，这就是别名，此别名代替数据库的真实路径、名称，用户在编程中不必考虑数据库存放在何处，如果数据库的绝对路径或名称修改了，只需修改别名的转向即可，用户的程序无需做任何修改。设定数据库别名，需要使用BDE Administrator工具。这个工具可以在Delphi的BDE文件夹中找到（在Win9X的“开始\程序\Borland delphi4”菜单中也可找到它），程序文件名为bdeadmin.exe。ACCESS数据库可用两种方式设定别名，一种是本地（Native）数据库连接，另一种是ODBC(Open Database Connectivity)开放式数据库连接，我们使用本地方式。我们创建的别名为MYDEMO，数据驱动程序选择“MSACCESS”，指向的数据库为C:\data\demo.mdb。篇幅所限，不能详细说明别名创建方法，〈编程工具控件详解〉一书Delphi部分第六章对各种类型的数据库别名设定以及如何在程序中设定别名有详细的图文解释。上面的准备工作做完之后，我们就可以设计人事管理软件了，篇幅所限，我们制做得简陋一些，对界面不做任何修饰，不追求流行风格。界面如下：在窗体上放置两个按钮，一个按钮标题是“人员录入”，另一个按钮是“人员查询”。下面我们开始进行程序设计。人员录入界面制做及代码编写我们先制做主窗体。打开Delphi新建一工程文件，在窗体上放置两个按钮，按上面的要求修改它们的标题，双击按钮1写代码（在begin和end之间）：form2.show;（打开录入窗口）。双击按钮2写代码：form3.show;（打开查询窗口）。添加两个新窗体Form2、Form3，用来制做录入和查询界面，主窗体就这么简单。录入界面制做。录入界面是让用户输入新记录用的，我们在Form2上放置数据访问组件DataSource1、Table1各一个，这两个组件在Data Access组件页中。再放置数据控制组件（在Data Control页中） DBEdit五个（DBEdit1～DBEdit5），在每个DBEdit组件前放置一个标签组件将其标题属性分别设为：编号、姓名、年龄、工资、职称，再放置一个按钮，将标题属性改为“添加保存记录”。组件放置好了，我们设定它们的属性。首先我们看一下DataSource1组件，此组件称为数据源组件，也就是说我们要操作的数据的来源，它有一个Dataset属性，此属性的列表中只有一个可供选择，那就是Table1，选中即可，此属性说明数据来自Table1。Table1称之为数据集组件，它为DataSource1提供数据，数据来自何处呢？Table11组件有一个DatabaseName属性，从列表中选中我们的数据库别名mydemo，单指明数据库还不行，因为数据库可能有很多数据表，还需要进一步指定数据来自哪个数据表，所以我们设定其TableName属性，单击下拉列表会出现一个让输入用户名和密码的对话框，什么都不用输入，单击“确定”按钮就可以了，此时下拉列表中会出现数据库中所有的数据表名称，当然在这里只有一个RS，选中即可。下面我们设定DBEdit组件的属性，DBEdit是用来编辑字段内容的组件，所以我们需要知道它的数据来自何处。单击DBEdit1选中，在属性窗口找到DataSource属性，在列表中选择DataSource1,和哪个字段相连呢？找到DataField属性，在属性值列表中我们可以看到RS数据表中的五个字段（num、xm、bd、gz、zc），选中num（编号），这样以后在DBEdit1中编辑的就是编号字段的内容，同样方法设定DBEdit2～DBEdit5的DataSource属性为DataSource1,对应的DataField属性分别为xm、bd、gz、zc。下面我们将Table1的Active属性设定为True，此属性用来控制是否打开数据表。设定为True之后，又出现让输入用户名和密码的对话框，烦人吧，等一会去掉它，单击“确定”后，你发现了什么？五个DBEdit1分别出现了数据表中的第一条记录的对应字段内容：001、张三、70-1-25、550、工程师。大家发现没有，程序还没运行，我们已经就可以看到数据表的记录了。为按钮1写如下代码： procedure TForm2.Button1Click(Sender: TObject);begintable1.Append;end; 数据表的Append方法用于向数据表追加一条新记录，为什么我们的按钮标题为“添加保存记录”呢？大家知道，向数据表中添加新记录后需要保存才能将记录添加进去，数据表有一个POST方法是用来保存记录的，为什么我们这里没有使用POST方法呢?因为我们的程序运行后，打开录入窗口将会出现第一条记录，我们按一下“添加保存记录”按钮，将清空输入框，我们就可以输入新记录了（这时执行的是添加功能），输入完毕再按一下按钮，这时执行的功能是保存当前记录（保存）同时又提供一条空记录供用户输入。也就是说，第二次执行Append方法隐含着保存刚添加的新记录的功能，称为隐式调用POST方法，所以我们就不用写POST方法了，这也就是为什么这个按钮即可添加又可保存的原因。上面说了，我们要去掉每次打开数据库时出现的让输入用户名和密码的烦人登录对话框。在主窗体中放置一个DataBase组件，设定其DatabaseName属性为mydemo（数据库别名），可大家发现它还有一个AliasName（别名）属性呢，愿意选的话从列表中选中mydemo也可，此属性可以不设，详细说明可看〈控件详解〉一书。将其LoginPrompt属性设定为False，这才是最关键之处，此属性指明是否出现登录对话框，如果你的数据库有密码，就需要设定一些参数，单击Params属性后的省略号，打开参数设定对话框，在这里可写有关参数，如： USER NAME=xinlingPASSWORD=123456好了，在主窗体中设定好DataBase组件的属性后，保存工程文件。开始运行，出现主窗口后，单击“人员录入”按钮，打开录入窗口，显示了第一条记录，单击“添加保存记录”按钮，添加一条新空记录，输入一个新人员，再按一次按钮就保存了新添加的记录并又提供一个新的空记录供输入。到底记录是否添加进去了，在查询中我们将可以验证。在输入新记录的过程，大家发现有一个不方便之处就是输入完一个字段内容如编号后，习惯按一下回车键，但光标不移动，没有自动移到姓名输入框中。这需要用户自己写代码处理，比如对DBEdit1（编号）组件写其键盘OnKeyPress事件代码如下： procedure TForm2.DBEdit1KeyPress(Sender: TObject; var Key: Char);beginif key=#13 thenDBEdit2.setfocusend;对其他的DBEdit组件依次类推写类似代码就可以了，自己读者自己写吧。下面是人事管理软件运行后的主窗口和录入窗口界面，供设计时参考。 就用一个DBNavigator 一个DataSource 和Table 就好了啊！ 小程序还是Tabel好，最起码更新操作简单 能给我说说adotable1.FieldValues['FieldName']3、ADOTable1.Prior;4、ADOTable1.Next;这些是什么意思吗? 谢谢 其实很简单的直接使用DataNavigator或者使用代码控制了 TTable,设置它的 DatabaseName 为数据库表所在的目录路径；设置它的 TableName 为表名称 Table1.Open; //打开数据库表 Table1.Append;//添加一条记录 Table1.FieldByName('AField').AsString:='abcd';//新记录的内容 Table1.Post; //提交记录 Table1.Prior;//到前一条记录 Table1.Edit;//编辑当前记录 Table1.FieldByName('AField').AsString:='lll';//修改记录的内容 Table1.Post;//提交修改 Table1.Next;//下一条记录 Table1.Delete;//删除当前记录 Table1.EmptyTable;//清空表 for中出现了UFO之事? 弹出对话框或是窗体 马上可结：数组赋值时为何出错呀 case语句的嵌套怎么用？ XX 请帮一下，下面的语句应该点改？ Edit输入限制问题 我快风了！为何我现在不能进到我自己编的VCL代码中去？ 如何在delphi中实现TDBComboBox从一个编码表中读数据！！！！！ 我拿出自己能给的最高分，高手快来！ 如何让一个应用程序在window启动时自动运行？ intraweb头痛的问题！！！！！！！！
ADOTable1.Insert;
adotable1.FieldValues['FieldName']:=Edit1.Text;
adotable1.Post;
2、删除
ADOTable1.Delete;
3、ADOTable1.Prior;
4、ADOTable1.Next;
5、修改
ADOTable1.Edit;
adotable1.FieldValues['FieldName']:=Edit1.Text;
ADOTable1.Post;
人事管理软件设计人事数据库准备。在编写软件之前首先要准备好数据库，我们用Access97来制做这个数据库，新建一个数据库，名称为Demo.mdb，在其中创建一个数据表名称为rs，数据表中有如下几个字段，字段名称最好采用英文字符，括号中为字段名称的解释（不要输入）：字段名称 字段类型 字段长度 num(编号) 文本 3xm(姓名) 文本 8bd(出生日期) 日期/时间 gz(工资) 数字（单精度） zc(职称) 文本 10 用Access制做这个数据库的详细步骤就不讲解了，如不会可阅读Access97的帮助文件。我们在Access中为rs数据表写入一条记录如下：001,张三，1970-1-25,550,工程师。数据库别名的定制。数据库别名是初学用Delphi进行数据库编程首先碰到的一个问题。Delphi中的许多数据库组件都需要指明数据库名称，数据库名称可以直接指定，如C:\DATA\DEMO.MDB，但在代码中可能多处需要使用数据库名称，如果都这样直接使用数据库的绝对路径名称，写起来可能较麻烦，但更麻烦的事情在于如果用户改变了数据库的存放路径（如在安装时让用户指定安装目录）或数据库名称，已编写好的程序（EXE文件）将无法正常工作，即使在编程阶段，也要对所有的代码都进行修改，是否太麻烦了，此时我们最好给数据库另取一个名字，这就是别名，此别名代替数据库的真实路径、名称，用户在编程中不必考虑数据库存放在何处，如果数据库的绝对路径或名称修改了，只需修改别名的转向即可，用户的程序无需做任何修改。设定数据库别名，需要使用BDE Administrator工具。这个工具可以在Delphi的BDE文件夹中找到（在Win9X的“开始\程序\Borland delphi4”菜单中也可找到它），程序文件名为bdeadmin.exe。ACCESS数据库可用两种方式设定别名，一种是本地（Native）数据库连接，另一种是ODBC(Open Database Connectivity)开放式数据库连接，我们使用本地方式。我们创建的别名为MYDEMO，数据驱动程序选择“MSACCESS”，指向的数据库为C:\data\demo.mdb。篇幅所限，不能详细说明别名创建方法，〈编程工具控件详解〉一书Delphi部分第六章对各种类型的数据库别名设定以及如何在程序中设定别名有详细的图文解释。上面的准备工作做完之后，我们就可以设计人事管理软件了，篇幅所限，我们制做得简陋一些，对界面不做任何修饰，不追求流行风格。界面如下：在窗体上放置两个按钮，一个按钮标题是“人员录入”，另一个按钮是“人员查询”。下面我们开始进行程序设计。
人员录入界面制做及代码编写
我们先制做主窗体。打开Delphi新建一工程文件，在窗体上放置两个按钮，按上面的要求修改它们的标题，双击按钮1写代码（在begin和end之间）：form2.show;（打开录入窗口）。双击按钮2写代码：form3.show;（打开查询窗口）。添加两个新窗体Form2、Form3，用来制做录入和查询界面，主窗体就这么简单。录入界面制做。录入界面是让用户输入新记录用的，我们在Form2上放置数据访问组件DataSource1、Table1各一个，这两个组件在Data Access组件页中。再放置数据控制组件（在Data Control页中） DBEdit五个（DBEdit1～DBEdit5），在每个DBEdit组件前放置一个标签组件将其标题属性分别设为：编号、姓名、年龄、工资、职称，再放置一个按钮，将标题属性改为“添加保存记录”。组件放置好了，我们设定它们的属性。首先我们看一下DataSource1组件，此组件称为数据源组件，也就是说我们要操作的数据的来源，它有一个Dataset属性，此属性的列表中只有一个可供选择，那就是Table1，选中即可，此属性说明数据来自Table1。Table1称之为数据集组件，它为DataSource1提供数据，数据来自何处呢？Table11组件有一个DatabaseName属性，从列表中选中我们的数据库别名mydemo，单指明数据库还不行，因为数据库可能有很多数据表，还需要进一步指定数据来自哪个数据表，所以我们设定其TableName属性，单击下拉列表会出现一个让输入用户名和密码的对话框，什么都不用输入，单击“确定”按钮就可以了，此时下拉列表中会出现数据库中所有的数据表名称，当然在这里只有一个RS，选中即可。下面我们设定DBEdit组件的属性，DBEdit是用来编辑字段内容的组件，所以我们需要知道它的数据来自何处。单击DBEdit1选中，在属性窗口找到DataSource属性，在列表中选择DataSource1,和哪个字段相连呢？找到DataField属性，在属性值列表中我们可以看到RS数据表中的五个字段（num、xm、bd、gz、zc），选中num（编号），这样以后在DBEdit1中编辑的就是编号字段的内容，同样方法设定DBEdit2～DBEdit5的DataSource属性为DataSource1,对应的DataField属性分别为xm、bd、gz、zc。下面我们将Table1的Active属性设定为True，此属性用来控制是否打开数据表。设定为True之后，又出现让输入用户名和密码的对话框，烦人吧，等一会去掉它，单击“确定”后，你发现了什么？五个DBEdit1分别出现了数据表中的第一条记录的对应字段内容：001、张三、70-1-25、550、工程师。大家发现没有，程序还没运行，我们已经就可以看到数据表的记录了。为按钮1写如下代码： procedure TForm2.Button1Click(Sender: TObject);begintable1.Append;end; 数据表的Append方法用于向数据表追加一条新记录，为什么我们的按钮标题为“添加保存记录”呢？大家知道，向数据表中添加新记录后需要保存才能将记录添加进去，数据表有一个POST方法是用来保存记录的，为什么我们这里没有使用POST方法呢?因为我们的程序运行后，打开录入窗口将会出现第一条记录，我们按一下“添加保存记录”按钮，将清空输入框，我们就可以输入新记录了（这时执行的是添加功能），输入完毕再按一下按钮，这时执行的功能是保存当前记录（保存）同时又提供一条空记录供用户输入。也就是说，第二次执行Append方法隐含着保存刚添加的新记录的功能，称为隐式调用POST方法，所以我们就不用写POST方法了，这也就是为什么这个按钮即可添加又可保存的原因。上面说了，我们要去掉每次打开数据库时出现的让输入用户名和密码的烦人登录对话框。在主窗体中放置一个DataBase组件，设定其DatabaseName属性为mydemo（数据库别名），可大家发现它还有一个AliasName（别名）属性呢，愿意选的话从列表中选中mydemo也可，此属性可以不设，详细说明可看〈控件详解〉一书。将其LoginPrompt属性设定为False，这才是最关键之处，此属性指明是否出现登录对话框，如果你的数据库有密码，就需要设定一些参数，单击Params属性后的省略号，打开参数设定对话框，在这里可写有关参数，如： USER NAME=xinlingPASSWORD=123456好了，在主窗体中设定好DataBase组件的属性后，保存工程文件。开始运行，出现主窗口后，单击“人员录入”按钮，打开录入窗口，显示了第一条记录，单击“添加保存记录”按钮，添加一条新空记录，输入一个新人员，再按一次按钮就保存了新添加的记录并又提供一个新的空记录供输入。到底记录是否添加进去了，在查询中我们将可以验证。在输入新记录的过程，大家发现有一个不方便之处就是输入完一个字段内容如编号后，习惯按一下回车键，但光标不移动，没有自动移到姓名输入框中。这需要用户自己写代码处理，比如对DBEdit1（编号）组件写其键盘OnKeyPress事件代码如下： procedure TForm2.DBEdit1KeyPress(Sender: TObject; var Key: Char);beginif key=#13 thenDBEdit2.setfocusend;对其他的DBEdit组件依次类推写类似代码就可以了，自己读者自己写吧。下面是人事管理软件运行后的主窗口和录入窗口界面，供设计时参考。
adotable1.FieldValues['FieldName']
3、ADOTable1.Prior;
4、ADOTable1.Next;
这些是什么意思吗? 谢谢
直接使用DataNavigator
或者使用代码控制了
Table1.Append;//添加一条记录
Table1.FieldByName('AField').AsString:='abcd';//新记录的内容
Table1.Post; //提交记录
Table1.Prior;//到前一条记录
Table1.Edit;//编辑当前记录
Table1.FieldByName('AField').AsString:='lll';//修改记录的内容
Table1.Post;//提交修改
Table1.Next;//下一条记录
Table1.Delete;//删除当前记录
Table1.EmptyTable;//清空表