登录界面问题

Question

我想用一个界面来登录两个不同系统..
通过下拉菜单,选取不同数据库,登录的系统而不同..有什么朋友做过啊.给点提示..有示例最好 ..

Answer 1

做一个数据连接基类，然后派生子类，比如派生两个子类，分别去负责连接access和sqlserver，根据你的要求去创建子类实例

Answer 2

方法很多的,例如再创建个数据库就是存储要连接的两个数据库名称,或读ini.很多种方法

Answer 3

单系统代码如下
procedure Tfrmmain.FormCreate(Sender: TObject);
var
i:integer;
sDate:string;
begin
frmSplash:=tfrmsplash.create(application);
frmSplash.show;
self.selfupdate;
timer1.enabled:=false;
bj:=false; //
ylogintime := time;
yLogindate := date;
if PassDlg= nil then PassDlg:=tPassDlg.create(self);
if PassDlg.ShowModal =mrOk then begin
//
//
end;
end;
end;
改的话.
passdlg.create放到哪里比较好

Answer 4

这是多帐套的意思了,可以把帐套名称(实际的数库名称)保存在任何一个数据库某个表中,或者保存在系统表master也行;
登陆界面做一个下位列表框,然后读取这个表信息到列表框中,就可以实现登陆选中的一个数据库了

Answer 5

两个系统是已经编译好的EXE？如果是这样的话，可以根据下拉列表的ItemIndex来判断要运行的EXE，界面就是一个用户名密码的验证。比如这样
adostr:string;
appname:string;
if 下拉表.ItemIndex = -1 then exit
case 下拉表.ItemIndex of
  0:  begin
        adostr := xxxxx
        appname := appname1; 
      end;
  1:  begin
        adostr := yyyyy 
        appname := appname2; 
      end;
end;验证通过就ShellExecute(0,'open',PChar(appName),PChar(''),nil,SW_SHOW);
_________________________________   用户名            密码              数据库  下拉表
        
         确定    取消
_________________________________

Answer 6

弄个下拉列表选择下
完了case