在sql server 的northwide 中建立主表
create table sell_h( sell_id char(10),cust_name char(10) primary key(sell_id) )
gocreate table sell_h( sell_id char(10),inv char(10) ,amt float,qty float primary key(sell_id,inv) )
首先,要注意以下設定
1.要注意報從表qrydetail設定,批儲存開式. 即.locktype= batchoptimistic ,cursor=keyset,cursorlocation =cluseclient
2.procedure tform1.formcreate(sender: tobject);
begin
qrymain.close;
qrydetail.close;
qrymain.sql.add(' select * from sell_h') ;
qrydetail.sql.add('select * from sell_b where sell_id = :sell_id') ;
qrymain.open;
qrydetail.open;
end;
3.procedure tform1.qrymainafterscroll(dataset: tdataset);
begin
qrydetail.close;
qrydetail.parameters.parambyname('sell_id').value := qrymain.fieldbyname('sell_id').value;
qrydetail.open;
end;
以上就是主要的設定..還有注意主從表的儲存問題:
主表不要用批處理，直接儲存。把ltbatchoptimistic去掉。
明細表用批處理。
儲存時先儲存明細表，再儲存主表即可。
例用AdoQuery分頁
首先在窗體上放個listview,兩個button，乙個label,乙個adoquery,乙個adoconnection 然後用adoconnection建立乙個連線 unit unit1 inte ce uses windows,messages,sysutils,variants,classes...
經驗 ADOQUERY使用記錄
查詢記錄 procedure tform1.button1click sender tobject begin adoquery.close adoquery.sql.clear adoquery.sql.add select from yourtable where 查詢條件 adoquery.o...
ADOQuery 查詢 刪除 修改 插入
利用combobox元件查詢資料庫表 procedure tform1.button1click sender tobject begin adoquery1.close adoquery1.sql.clear adoquery1.sql.add select from trim combobox2...