天可怜见！有关数据模块！！

Question

直接放一个Tdatamodule得了，还要什么Create.

Answer 1

下面是动态生成DataModule，query的例程，delphi6下调试通过，希望对你有用。procedure TForm1.Button1Click(Sender: TObject);
var
  dm2: TDataModule;
  q1: Tquery;
  serv_date:string;
  dd :string;
begin
     dd := '135';
     dm2 := TDataModule.Create(self);
     q1 := Tquery.Create(self);
     dm2.InsertComponent(q1);
     q1.SQL.Clear;
     q1.Databasename :='df';
  //df是用Tdatabase控件database1静态生成的数据库别名，
  //database1里已含数据库连接信息。
     q1.SQL.Add('select kk = invoice_num from unify_goods where money = '+dd+'');
     q1.Open;
     serv_date:= q1.Fields[0].Value;
     q1.close;
     dm2.RemoveComponent(q1);
end;