-------------------------------------------- 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. 寫程序——新問題會接踵而來！

您好: 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');

不是的，這不關順序問題的。    

引言: 您好: 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');

寫程序——新問題會接踵而來！

sql.add('select * from USER where [USER]=:username and PASS=:passwd'); //後面的USER如果是欄位的話，跟TABLE同名，加中括號看看！ ----------------------------------------------- Creation is the fundation of promotion. 發表人 - stallion 於 2005/05/12 21:39:55