Question

delphi中多个窗体 共用 ado 连接代码如何 写？

Answer 1

共用一个ADOConnection控件就行了。
例如：窗体一中放置ADOConnection1，窗体二、窗体三对应的单元中，添加对窗体一所对应的单元（如：Unit1）的引用：
Uses Unit1;

然后，三窗体二、三中，放置ADOQuery、ADOTable等组件，其Connection属性就可以设置为ADOConnection1。这不就实现共用了吗？

Answer 2

conn:=TADOConnection.Create(self);
str:='Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=jxcw;Data Source=.';
conn.LoginPrompt:=false;
conn.ConnectionString:=str;