誰能給我一些 ADO 編程的源碼，謝了 100 分在線等待

Question

以前用VB編程，現剛轉向  delphi，熟悉ADO，誰能給我一個用ADO對　master/detail  完整編程的代碼，不要用把  ADOExpress　組件拖到　Form  上，用代碼來實現，也不要用DBNavigator　，自己用　command完成，即  Form  上只有　Edit,DBGrid,Command之類，先謝謝各位大師了，　[email protected]

Answer 1

procedure TFrmKeHXXCX.FormShow(Sender: TObject);
var dadoquery:tadoquery;
begin
    {$i ..\incs\NewQuery.inc}
    dadoquery.SQL.Add('select * from tYongHJB order by cYongHJBBH');
    dFbDbToCom(dadoquery,cmb_Level,'cYongHJBMC');    dadoquery.active:=false;
    dadoquery.sql.clear;
    dadoquery.SQL.Add('select * from tYongHLX order by cYongHLXBH');
    dFbDbToCom(dadoquery,cmb_Cust,'cYongHLXMC');    dadoquery.active:=false;
    dadoquery.sql.clear;
    dadoquery.SQL.Add('select * from tJuDA where len(cJuBH)=1 order by cJuBH');
    dFbDbToCom(dadoquery,CMB_STATION,'cJuMC');
{
    dadoquery.active:=false;
    dadoquery.sql.clear;
    dadoquery.SQL.Add('select * from tYongHZL order by cYongHZLBH');
    dFbDbToCom(dadoquery,cmb_Cust,'cYongHZLMC');
 }
    pg1.ActivePageIndex:=0;
    sb_ok.Caption:='查询(&Q)';
    SB_OK.Enabled:=TRUE;
    sb_ok.Visible:=true;
    speedbutton1.Visible:=false;
    sb_cancel.Caption:='返回(&X)';
    Rg_1.ItemIndex:=0;    CMB_LEVEL.ItemIndex:=-1;
    CMB_CUST.ItemIndex:=-1;
    EDT_CUST.Text:='';
    EDT_ANI.Text:='';
    EDT_PHONE.Text:='';
    EDT_CHARGE.Text:='';
    CMB_STATION.ItemIndex:=-1;
    CMB_PLATFORM.ItemIndex:=-1;
    {$i ..\incs\FreeQuery.inc}end;

Answer 2

www.codestudy.net上有几个不错的原码,去看看吧！

Answer 3

看你Delphi中自带的例子吧！自己查看delphi目录\Delphi7\Demos中有！