請問錯在哪裡? |
答題得分者是:Stallion
|
BIG-ROM
初階會員 發表:94 回覆:91 積分:37 註冊:2005-04-16 發送簡訊給我 |
--------------------------------------------
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WinSkinData, StdCtrls, ExtCtrls, Buttons; type
TXTDL = class(TForm)
Label1: TLabel;
Label2: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Image2: TImage;
Edit1: TEdit;
Edit2: TEdit;
SkinData1: TSkinData;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
XTDL: TXTDL;
LogTimes: Integer;
implementation uses Unit2, Unit3; {$R *.dfm} procedure TXTDL.SpeedButton1Click(Sender: TObject);
begin
if LJSJK.loginapp(edit1.Text,edit2.Text) then
begin
XTDL.Hide;
XTZJM := TXTZJM.Create(self);
XTZJM.ShowModal;
XTZJM.Free; application.Terminate;
end else
begin
LogTimes := LogTimes+1;
if messagebox(handle,'您填寫的用戶或密碼有錯誤!是否重新輸入?','出錯提示',mb_iconinformation+mb_okcancel)=IDcancel then application.Terminate;
if LogTimes>=3 then
begin
messagebox(handle,'對不起,登錄次數超過3次,程序自動關閉!','非法登錄',MB_ICONWARNING+mb_ok);
application.Terminate;
end;
end;
end; procedure TXTDL.SpeedButton2Click(Sender: TObject);
begin
application.Terminate;
end; procedure TXTDL.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then edit2.setfocus;
end; procedure TXTDL.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then SpeedButton1Click(self);
end; procedure TXTDL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
end; procedure TXTDL.FormCreate(Sender: TObject);
begin
LogTimes := 0;
end; end. ======================================================
unit Unit2; interface uses
SysUtils, Classes, DB, ADODB,dialogs,DateUtils; type
TLJSJK = class(TDataModule)
LJSJK: TADOConnection;
USER: TADOQuery;
private
{ Private declarations }
public
{ Public declarations }
function loginapp(username,passwd:string):boolean;
end;
Const
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;'; var
LJSJK: TLJSJK; implementation {$R *.dfm}
function setadoaccess(mdbpath:string;passwd:string):string;
begin
mdbpath:=trim(mdbpath);
passwd:=trim(passwd);
result:=format(SConnectionString,[mdbpath,passwd]);
end;
function TLJSJK.loginapp(username,passwd:string):boolean;
begin
result:=false;
with USER do
begin
close;
sql.clear;
sql.add('select * from USER where USER=:username and PASS=:passwd');
parameters.ParamByName('username').Value:=trim(username);
parameters.ParamByName('passwd').Value:=trim(passwd);
try
open;
if recordcount>0 then
result:=true;
except on e:exception do
begin
showmessage(e.Message);
end;
end;
end;
end; end. 寫程序——新問題會接踵而來!
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
您好:
sql.clear;
sql.add('select * from USER where USER=:username and PASS=:passwd');
parameters.ParamByName('username').Value:=trim(username);
parameters.ParamByName('passwd').Value:=trim(passwd); 放顛倒了吧??
parameters.ParamByName('username').Value:=trim(username);
parameters.ParamByName('passwd').Value:=trim(passwd);
sql.clear;
sql.add('select * from USER where USER=:username and PASS=:passwd');
|
BIG-ROM
初階會員 發表:94 回覆:91 積分:37 註冊:2005-04-16 發送簡訊給我 |
不是的,這不關順序問題的。
引言: 您好: sql.clear; sql.add('select * from USER where USER=:username and PASS=:passwd'); parameters.ParamByName('username').Value:=trim(username); parameters.ParamByName('passwd').Value:=trim(passwd); 放顛倒了吧?? parameters.ParamByName('username').Value:=trim(username); parameters.ParamByName('passwd').Value:=trim(passwd); sql.clear; sql.add('select * from USER where USER=:username and PASS=:passwd');寫程序——新問題會接踵而來! |
Stallion
版主 發表:52 回覆:1600 積分:1995 註冊:2004-09-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |