給你個簡單的登入例項。需要 資料庫操作支援庫。當然你也可改成讀取文字檔案的，就不需要資料連線這些了。。.程式集 啟動視窗程式集.子程式 __啟動視窗_建立完畢資料庫路徑 ＝ 取執行目錄 () ＋ “\date.mdb”資料庫連線1.連線Access (資料庫路徑, “”)記錄集1.置連線 (資料庫連線1)記錄集1.開啟 (“select * from Users”, 1)記錄集1.讀文字 (“使用者名稱”, UserName)記錄集1.讀文字 (“密碼”, Pass)記錄集1.讀文字 (“姓名”, Name)UserName.內容 ＝ UserName登陸.獲取焦點 ().子程式 _登陸_被單擊.區域性變數 位元組集, 文字型.如果 (UserName.內容 ≠ “”) 記錄集1.開啟 (“select 使用者名稱 from Users where 使用者名稱 = "” ＋ UserName.內容 ＋ “"”, 1) .如果 (記錄集1.記錄數量 ≠ 0) .如果 (Pwd.內容 ≠ “”) 記錄集1.開啟 (“select 密碼 from Users where 使用者名稱 = "” ＋ UserName.內容 ＋ “"”, 1) 記錄集1.讀文字 (“密碼”, Pass) 位元組集 ＝ 到文字 (Pwd.內容) .如果 (Pass ＝ “888") 記錄集1.關閉 () 資料庫連線1.關閉 () 執行 (4, “c:\a.exe”, , , ) .否則 資訊框 (“密碼不正確！請重新輸入。”, 0, ) Pwd.內容 ＝ “” Pwd.獲取焦點 () .如果結束 .否則 資訊框 (“密碼不能為空！”, 0, ) Pwd.獲取焦點 () .如果結束 .否則 資訊框 (“系統無此使用者，請核對！”, 0, ) UserName.獲取焦點 () .如果結束.否則 資訊框 (“使用者名稱不能為空！”, 0, ) UserName.獲取焦點 ().如果結束.子程式 _取消_被單擊記錄集1.關閉 ()資料庫連線1.關閉 ()結束 ()
給你個簡單的登入例項。需要 資料庫操作支援庫。當然你也可改成讀取文字檔案的，就不需要資料連線這些了。。.程式集 啟動視窗程式集.子程式 __啟動視窗_建立完畢資料庫路徑 ＝ 取執行目錄 () ＋ “\date.mdb”資料庫連線1.連線Access (資料庫路徑, “”)記錄集1.置連線 (資料庫連線1)記錄集1.開啟 (“select * from Users”, 1)記錄集1.讀文字 (“使用者名稱”, UserName)記錄集1.讀文字 (“密碼”, Pass)記錄集1.讀文字 (“姓名”, Name)UserName.內容 ＝ UserName登陸.獲取焦點 ().子程式 _登陸_被單擊.區域性變數 位元組集, 文字型.如果 (UserName.內容 ≠ “”) 記錄集1.開啟 (“select 使用者名稱 from Users where 使用者名稱 = "” ＋ UserName.內容 ＋ “"”, 1) .如果 (記錄集1.記錄數量 ≠ 0) .如果 (Pwd.內容 ≠ “”) 記錄集1.開啟 (“select 密碼 from Users where 使用者名稱 = "” ＋ UserName.內容 ＋ “"”, 1) 記錄集1.讀文字 (“密碼”, Pass) 位元組集 ＝ 到文字 (Pwd.內容) .如果 (Pass ＝ “888") 記錄集1.關閉 () 資料庫連線1.關閉 () 執行 (4, “c:\a.exe”, , , ) .否則 資訊框 (“密碼不正確！請重新輸入。”, 0, ) Pwd.內容 ＝ “” Pwd.獲取焦點 () .如果結束 .否則 資訊框 (“密碼不能為空！”, 0, ) Pwd.獲取焦點 () .如果結束 .否則 資訊框 (“系統無此使用者，請核對！”, 0, ) UserName.獲取焦點 () .如果結束.否則 資訊框 (“使用者名稱不能為空！”, 0, ) UserName.獲取焦點 ().如果結束.子程式 _取消_被單擊記錄集1.關閉 ()資料庫連線1.關閉 ()結束 ()