求一主从表操作的例子源码, 顺祝D兄新年快乐~~~~~~~~~

Question

hi all!
谁有ado操作主从表的例子（有增加 修改 删除等功能），能不能给我发一份 ( [email protected] ) 谢谢！
----------------------------------------------------------------------------------------
春节将至 祝 D兄弟们新年快乐 在新的一年里身体健康 工作顺利~~~~~

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM TABLE1');
  ADOQuery1.Open;
end;procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('SELECT * FROM TABLE2 WHERE ID=:ID');
  ADOQuery2.Parameters.ParamByName('ID').Value:=ADOQuery1.fieldbyname('ID').Value;
  ADOQuery2.Open;
end;end.

Answer 2

ADOQuery1：主数据集，SQL语句为SELECT * FROM TABLE1；
DataSource1.DataSet为ADOQuery1；
ADOQuery2的DataSource设为DataSource1，SQL语句为SELECT * FROM TABLE2 WHERE PID=:ID；
OK了，这里假设Table1中ID为主键与从表Table中PID字段关联

Answer 3

邮件已发，不知道有不有用
DBGrid1,DBGrid2->Options->dgMultiSelect 设置为TRUE;

Answer 4

weizi2000(秋风啊)  我以前就是这么作的 但是感觉控制起来很麻烦 子表增加的时候 连接子表的grid双击后添加会自动更新到库里   或许我方法不对

Answer 5

设ADOQuery的LockType为ltBatchOptimistic不行吗

Answer 6

回复人： lzy6204(为了忘却的记忆) ( ) 信誉：101  2005-02-02 09:30:00  得分: 0  
 
 
   楼上怎么多了一个角啊
  
 
一不小心……