delphi数据库连接

Question

实例如下：
窗体一（名称connect）:
有控件如下：edit1:服务器名,edit2:数据库名，edit3:用户名,edit4:密码,button1:连接
功能如下：输入相关信息(服务器名/数据库名/用户名/密码),点连接后正常连接数据库（此步已经实现，现在的问题如下）
窗体二(名称showusers)：
功能如下：当在窗体一中连接数据库成功后，显示窗体二，窗体二中会显示数据表（users）中的所有用户信息（用户名username，姓名usertruename，性别usersex，用户级别usertype），但要求在此窗体中是通过前面这个窗体的数据库连接进行与数据库的连接，不需要另外再次设置数据库连接
数据表（users如下）
userid      username   usertruename         usersex usertype 
----------- ---------- -------------------- ------- -------- 
1           st1        张三                   男       1
2           st2        小丽                   女       2

Answer 1

uses 连接好的那个窗体名称在代码中写指定连接就可以了：
如：ADOQuery1.Connection := 连接好的那个窗体名称.ADOConnection1;

Answer 2

加上DBGrid,数据源控件等，写SQL语句就可以实现了

Answer 3

可以放一个conn.udl文件，
然后创建的时候连接这个conn.udl文件的连接即可。
如例：
  adocConnDB.ConnectionString := 'FILE NAME=' +ExtractFilePath(Application.ExeName)+'conn.udl'; 
  adocConnDB.Connected:=true;

Answer 4

窗体一（名称connect）:
有控件如下：edit1:服务器名,edit2:数据库名，edit3:用户名,edit4:密码,button1:连接
功能如下：输入相关信息(服务器名/数据库名/用户名/密码),点连接后正常连接数据库，并把相应的数据库名显示在edit2中
这个功能咋实现的，你说你已经实现了，能不能把源代码发给我！