请问一个小小的问题。(50分)

  • 主题发起人 主题发起人 Delphi之旅
  • 开始时间 开始时间
慢慢来! 别急!
 
不是,
明天我就要把得把这个东西叫上去。
所以就。。。。

现在又没有书,
我真是欲哭无泪啊!

有谁能帮帮我啊。
 
毕业设计?
 
恩。
密码进入是该程序的一项功能,
可是到现在我还什么都不会。


谁假如知道,能帮上我的,我把所有的钱200都给他。
 
:) 别急嘛! 实在不行就把密码写死在程序里面!先应付一下也可以!
 
怎么写,
说说看。。。
 
你用了数据库来存用户和密码数据了吗? 用的什么格式?
 
用的是ACCESS
DBF的。
 
Delphi之旅:
我觉得在应用程序的工程文件中添加几行代码就可以了,如以下工程文件:
Program CreateCodes;
uses
Forms,
Main in 'Main.Pas' {MainForm};
Login in 'Login.pas' {LoginForm}
{$R *.res};
Begin
Application.Initilize;
LoginForm:=TLoginForm.Create(Application);
LoginForm.ShowModal;
LoginForm.UpData;
If LoginForm.ModeResult=1
then
begin
Application.CreateForm(TMainForm,MainForm);
Application.Run;
end
Else Application.Terminate;
End.

然后在登录窗口中对返回值进行处理(密码验证),如:
var i:integer;//i为一个外部的全局变量,在系统初始化时置1。

Procedure TLoginForm.BtnLoginClick(Send:TObject);
begin
while i<=3 do
begin
if 密码正确
then
begin
ModalResult:=1;
Break;
end
else
begin
inc(i);
end;
end;
if i>3 then ModalResult:=0;
end;


//说明:这段程序是我在看到该问题后写的,没有测试,里头可能存在很多问题,
在此我只提供一个解决该问题的一种思路,仅供参考。
 
后退
顶部