1、1Delphi7.0中如何用代碼訪問數(shù)據(jù)的方法中如何用代碼訪問數(shù)據(jù)的方法一、第一種方法：一、第一種方法：1、設(shè)計(jì)的界面如下：、設(shè)計(jì)的界面如下：2、主要代碼：、主要代碼：（1）啟動(dòng)窗口中的主要代碼：）啟動(dòng)窗口中的主要代碼：Se:=ExtractFilePath(Application.ExeName)datajczk.mdb動(dòng)態(tài)取出系統(tǒng)文件的路徑ADOADOQuery1.ConnectionString:=Provider=Microso

2、ft.Jet.OLEDB.4.0DataSource=SePersistSecurityInfo=FalseADOADOQuery1.CloseADOADOQuery1.SQL.ClearADOADOQuery1.SQL.Add(fromyhz)ADOADOQuery1.OpenADOADOQuery1.ExecSQL本句表示不返回值時(shí)的記錄集合ADOADOQuery1.Active:=true（2）查詢其它表時(shí)的代碼：）查詢其它表時(shí)的

3、代碼：ADOADOQuery1.CloseADOADOQuery1.SQL.ClearADOADOQuery1.SQL.Add(fromjf11)ADOADOQuery1.OpenADOADOQuery1.Active:=true（3）提示窗口：）提示窗口：Application.MessageBox(ss提示64)（4）說明：）說明：DataSource1必須要與ADOADOQuery1連接在一起；DBGrid1必須要與DataSou

4、rce1連接在一起。（5）取值：）取值：EDIT1.Text:=ADOADOQuery1.FieldByName(yhz04).AsString（6）怎么使用）怎么使用ADOQuery1給數(shù)據(jù)庫添加數(shù)據(jù)給數(shù)據(jù)庫添加數(shù)據(jù)ADOQuery1.CloseADOQuery1.SQL.ClearADOQuery1.SQL.Add(into“Tab_Contron_recd“)ADOQuery1.SQL.Add((str_V))ADOQuery1.

5、SQL.Add(values(str_T))ADOQuery1.ParamByName(用戶名).AsString:=admin3Application.MessageBox(您設(shè)有查詢到了相關(guān)的記錄，點(diǎn)擊退出！提示64)closeendADOQuery1.Active:=trueADOQuery1.Next下一條記錄Edit1.Text:=ADOQuery1.FieldValues[sname]取出它的值A(chǔ)DODataSet1.Nex

6、t下一條ADODataSet1.Pri前一條ADODataSet1.First第一條ADODataSet1.Last最后一條edit1.Text:=ADODataSet1.FieldValues[姓名]（10）記錄的數(shù)據(jù)值如何進(jìn)行修改。）記錄的數(shù)據(jù)值如何進(jìn)行修改。beginADOQuery1.CloseADOQuery1.SQL.ClearADOQuery1.SQL.Add(fromsinfowheresclass=Quotedstr(

7、高一一))ADOQuery1.OpenADOQuery1.Active:=trueifADOQuery1.RecdCount0thenbeginApplication.MessageBox(您已經(jīng)查詢到了相關(guān)的記錄！提示64)edit1.text:=ADOQuery1.FieldValues[sname]取出它的值以下是對(duì)取得的值進(jìn)行修改ADOQuery1.Edit進(jìn)入修改模式ADOQuery1.FieldValues[sname]:=

8、廖裕10修改的數(shù)值A(chǔ)DOQuery1.Post進(jìn)行修改并寫回?cái)?shù)據(jù)庫中去；ADOQuery1.Cancel不進(jìn)行修改以下重新打開數(shù)據(jù)庫并進(jìn)行顯示ADOQuery1.CloseADOQuery1.SQL.ClearADOQuery1.SQL.Add(fromsinfowheresclass=Quotedstr(高一一))ADOQuery1.OpenADOQuery1.Active:=trueendend（11）如何向數(shù)據(jù)庫中追加記錄的方法）