怎么用delphi7 编写数据库程序？

在delphi中有一批数据库专用的控件，比如ADO类的，可以直接用于数据库开发，你可以先用一个Access数据库自己进行一下测试。

首先在窗体上放一个ADOConnection1控制，用于与Access数据库进行连接，连接字符串为：

ADOConnection1.ADOC_Data.ConnectionString:='provider=Microsoft.Jet.OLEDB.4.0'

+'user ID=Admin'

//+'Data Source='+ExtractFilePath(Application.ExeName)+'MyRecord.mdb'

+'Data Source='+MyDataBaseName+''

+'Mode=Share Deny NoneExtended Properties=""'

+'Jet OLEDB:System database=""'

+'Jet OLEDB:Registry Path=""'

+'Jet OLEDB:Database Password="123456' //数据库密码

+'Jet OLEDB:Engine Type=5'

+'Jet OLEDB:Database Locking Mode=1'

+'Jet OLEDB:Global Partial Bulk Ops=2'

+'Jet OLEDB:Global Bulk Transactions=1'

+'Jet OLEDB:New Database Password=""'

+'Jet OLEDB:Create System Database=False'

+'Jet OLEDB:Encrypt Database=False'

+'Jet OLEDB:Don'+''''+'t Copy Locale on Compact=False'

+'Jet OLEDB:Compact Without Replica Repair=False'

+'Jet OLEDB:SFP=False'

DM.ADOC_Data.LoginPrompt:=False

再放一个ADOQuery1控制，用于 *** 作数据表，将它的Connection属性设置为ADOConnection1。或用语句实现：ADOQuery1.Connection:=ADOConnection1

然后再分别放置一个DataSource1和一个DBGrid1控件，

将DataSource1的DataSet属性设置为ADOQuery1。

将DBGrid1的DataSource属性设置为DataSource1。

这时就可以通过ADOQuery1来执行SQL语句来查询数据表，并通过DBGrid1显示出来了。

界面放入Button1，ADOConnection1、ADOQuery1，如果还要显示数据可以再加DataSource1和DBGrid1。

首先设置ADOConnection1来连接ORA，先设置ADOConnection1.ConnectionString属性，也可以写到程序里，然后将ADOConnection1.LoginPrompt设为false以避免连接数据库时再输一次密码。

将ADOQuery1.Connection设为ADOConnection1，将SQL写在ADOQuery1.SQL中

将DataSource1.DataSet设为ADOQuery1

将DBGrid1.DataSource设为DataSource1，将DBGrid1.ReadOnly设为true以防止通过DBGrid1随意修改数据库

然后在Button1Click事件中写上ADOQuery1.open这句代码就能实现一个简单的查询了。

而要通过界面取的变量查询数据就要将Button1Click事件的代码改成：

ADOQuery1.Close

ADOQuery1.SQL.Clear

ADOQuery1.SQL.Add(你的SQL)//注意SQL必须是字符型的，其中包括单引号（‘’）

ADOQuery1.Open

---