各位大哥大姊你們好 小弟我之前有問過密碼登入框的問題 之後有順利做出來 但是 我現在想要把它加入可以選擇權限 如:以瀏覽者登入 or 監控者登入 請問 像這種的有權限選擇的登入框要如何寫啊? 以下是我之前的程式碼 (只有單純的密碼輸入 並無權限選擇)  另外 我知道要做密碼登入框的話 需要在資料庫裡 增加一個密碼的欄位 用來存放密碼 可是我這個密碼登入框 則是把密碼直接放入程式碼裡 所以 跟別人的寫密碼登入有點不一樣  我知道 如果要做出有權限選擇的密碼登入框 需要在資料庫裡 增加密碼的 欄位 來核對密碼 但我找過 許多delphi的書 都沒有教到 所以 在此 麻煩各位 幫幫我吧!    unit Unit2;    interface    uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ExtCtrls;    type   TForm2 = class(TForm)     Edit1: TEdit;     Button1: TButton;     Button2: TButton;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Bevel2: TBevel;     Bevel1: TBevel;     Bevel3: TBevel;     Bevel4: TBevel;     Bevel5: TBevel;     Bevel6: TBevel;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   Form2: TForm2;    implementation    {$R *.DFM}    procedure TForm2.Button1Click(Sender: TObject); begin if Edit1.text='1234567' then    ModalResult := mrok else    ShowMessage('您輸入的密碼是錯的，請再重新輸入一次'); end;    end. 我程式的主要元件有: Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtDlgs, DBCtrls, Db, Mask, ADODB, StdCtrls, ComCtrls, ToolWin, ImgList, ExtCtrls,Printers,Unit3,shellapi; 我所使用的資料庫是:Access

[database] test.mdb userinfo (name,password) [code] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; ComboBox1: TComboBox; Edit1: TEdit; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=Admin;Data Source=' ExtractFileDir(application.Exename) '\test.mdb;user id=admin;Persist Security Info=False'; adoconnection1.Connected:=true; ADOQuery1.Connection :=adoconnection1; adoquery1.SQL.Clear ; adoquery1.SQL.Text :='select name from userinfo order by name'; adoquery1.Open ; combobox1.Clear; while not adoquery1.Eof do begin combobox1.Items.Add(adoquery1.Fieldbyname('name').AsString); adoquery1.Next; end; combobox1.ItemIndex :=0; end; procedure TForm1.Button1Click(Sender: TObject); begin adoquery1.SQL.Clear ; adoquery1.SQL.Text :='select * from userinfo where name=''' trim(combobox1.Text) ''' and password=''' trim(edit1.Text ) ''' '; adoquery1.Close ; adoquery1.Open ; if adoquery1.RecordCount>0 then showmessage('通过') else showmessage('您的用户名或密码不正确！'); end; end.

SORRY sos_admin大大 我所使用控制Access資料庫的元件是 ADOTable 我沒用過ADOQuery 請問 一定要用ADOQuery元件 才能做出嗎?

sexy613兄： 最好使用adoquery,因为您的验证需要用户名和密码这2个条件同时满足才可以对结果做出判断。而用adotable的检索是不能一步到位的，并且很麻烦！！！ 所以，我建议您使用adoquery!

我之前 的密碼登入框有用到兩個 form 程式一開始 會先跳出以下的form procedure TForm2.Button1Click(Sender: TObject); begin if Edit1.text='1234567' then ModalResult := mrok else ShowMessage('您輸入的密碼是錯的，請再重新輸入一次'); end; 等到密碼輸入進去對了之後 就會跳進第二個form 以下是第2個form內的指令 procedure TForm1.FormShow(Sender: TObject); begin with TForm2.Create(Self) do try if ShowModal <> mrok then Application.Terminate; finally Free; end; sos_admin大大 我看你的程式碼好像只有用到一個form而已耶 另外 由於我還算是新手 所以光看程式碼 有點難懂 可以請你把完整的程式上傳 上來嗎? 讓我可以用delphi 開啟觀看

参见： http://delphi.ktop.com.tw/loadfile.php?TOPICID=11763805&CC=263095

HI sos_admin 大大 我曾看過 你有解說過 DELPHI 可放JPEG 我的DELPHI是5.0 版的 我曾下再過JUSTMADE 大大的程式(JpegInDB) 但 開啟有問題耶 我把它解壓縮到 C:\Program Files\Common Files\Borland Shared\Data 下 用DELPHI 開啟有錯誤 你給我的程式可以 正常執行(密碼登入框使用者登入權限) 所以 可以在麻煩你 提供一下JpegInDB 的程式嗎? 可以嗎? 麻煩你了

看看这2个的解说吧，原理都一样哦！ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18191 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19505

SORRY 我還有一個問題 如何用radiobutton 取代 combobox 啊! 如圖中畫面所示 它是用radiobutton 選取身份的

SORRY  我還有一個問題 如何用radiobutton 取代 combobox 啊! 如圖中畫面所示 它是用radiobutton 選取身份的

上面那一張傳失敗 因此補一張

RadioGroup1.Caption :='请选择用户'; RadioGroup1.Items.Clear ; RadioGroup1.Items.Add('教师'); RadioGroup1.Items.Add('学生'); RadioGroup1.Items.Add('校长'); RadioGroup1.Items.Add('家长'); RadioGroup1.Columns :=4; RadioGroup1.ItemIndex :=0;    用TRadioGroup控件实现！    您如果问题与本题所问没有多大关系，最好另开一个问题； 参见[ktop版规]！谢谢合作！

多謝sos_admin 你熱心的解答 

不好意思喔! sos_admin大哥 下列的設定都是在屬性質裡設的對吧! 那麼在屬性質裡設完後  RadioGroup1.Caption :='请选择用户'; RadioGroup1.Items.Clear ; RadioGroup1.Items.Add('教师'); RadioGroup1.Items.Add('学生'); RadioGroup1.Items.Add('校长'); RadioGroup1.Items.Add('家长'); RadioGroup1.Columns :=4; RadioGroup1.ItemIndex :=0; 那麼在屬性質裡設完後 在程式碼的部分要如何修改ㄋ  是否如以下的方式修改啊    RadioGroup1.Items.Clear; while not adoquery1.Eof do begin RadioGroup1.Items.Add(adoquery1.Fieldbyname('name').AsString); adoquery1.Next; end; RadioGroup1.ItemIndex :=0; end;    如果對的話 那麼下方Add() 中的字串要打什麼啊! RadioGroup1.Items.Add(adoquery1.Fieldbyname('name').AsString);    麻煩你了 多謝