小弟想再資料庫建立一些人員的資料跟密碼
然後再開啟程式前要請使用者輸入密碼
輸入正確即可開啟程式使用 並且署上該使用者的人名
請問該怎麼寫呢??

PS.資料庫以建立好人名 跟假設的密碼
EMP_NAME EMP_CODE
ANDY 1234
EIRC 2222

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

複雜一點,
建一個Login的Form
在MainForm.onShow加入下面的程式
Application.CreateForm(TfmSysLogin, fmSysLogin);
fmSysLogin.ShowModal;
Login_OK:= Login_Passed;
if not Login_OK then Application.Terminate;

簡單一點,

function TfmMain.Login_Check: Boolean;
var sUser, sPass, sSQL, user_Level: String;
begin
Result:= false;
if not LoginDialog('Graphic Modal', sUser, sPass) then exit;
sSQL:= 'SELECT * FROM USERS'
' WHERE ' QuotedStr(sUser);
if OpenADOQry(Q1, sSQL)<=0 then exit;
/ /判斷是否密碼正確
Result:= true;
Q1.Close;
end;

在MainForm.onShow加入
if not Login_Check then Application.Terminate;