Question

想用delphi做一个系统登陆界面，应该怎么办

Answer 1

这是手动连接方法:
1，新建Project。
　　2，在FORM中放入ADOConnection,ADOQuery,DataSource,dbgrid控件。
　　3，双击ADOConnection控件，然后点击Build...按钮，在“提供者”页中选择“Microsoft Jet 4.0 OLE DB 　　Provider”，然后点击“下一步”按钮，在“连接”页中选择要连接的Access数据库的路径和数据库的文件名，这时如果点“测试连接”按钮时，出现“初始化提供者时发生错误，测试连接失败，密码无效”的错误提示。
　　4，把ADOConnection控件的LoginPromtp设为false.
　　5，设置连接完成。

动态连接:
procedure TFrm_main.ConnectDB;
var
ConnStr,DBPath,Msg:String;
begin
DBPath:= ExtractFilePath(Application.ExeName)+'db1.mdb';
if not FileExists(DBPath) then
begin
Msg:= '数据库文件路径设置不对! 确定数据库文件: "DiaryDB.mdb" 存在,且置于目录:' +#10#13+ DBPath+' 中.';
Application.MessageBox(Pchar(Msg),'数据库连接错误!',MB_OK+MB_ICONERROR);
Application.Terminate;
end;
ConnStr:= 'Provider=Microsoft.Jet.OLEDB.4.0;'
+'Data Source='+DBPath
+';Persist Security Info=False';
ADOConnection1.Close;
ADOConnection1.ConnectionString:=ConnStr;
.ADOconnection1.LoginPrompt:=False;
try
ADOConnection1.Connected:= true
except
Application.MessageBox('数据库连接错误，请重试！','错误',MB_OK+MB_ICONERROR);
Application.Terminate;
end;
end;