『壹』 怎麼用易語言做一個登入和注冊系統界面如下圖的。沒錢啊!
服務端
.版本 2
.支持庫 mysql
.程序集 窗口程序集1
.子程序 _伺服器1_數據到達
.局部變數 客戶, 文本型
.局部變數 數據, 位元組集
.局部變數 數據到文本, 文本型
.局部變數 數據分割, 文本型, , "0"
.局部變數 臨時記錄集, 整數型
.局部變數 密碼, 文本型
客戶 = 伺服器1.取回客戶 ()
數據 = 伺服器1.取回數據 ()
數據到文本 = 到文本 (數據)
數據分割 = 分割文本 (數據到文本, 「|」, )
.判斷開始 (數據分割 [1] = 「登錄」)
執行SQL語句 (mysql, 「SELECT * FROM `account_tbl` where account='」 + 數據分割 [2] + 「';」)
臨時記錄集 = 取記錄集 (mysql)
讀欄位值 (臨時記錄集, 「password」, 密碼)
.判斷開始 (欄位是否為空 (臨時記錄集, 「account」) = 假)
伺服器1.發送數據 (客戶, 「帳號錯誤」, )
.判斷 (密碼 ≠ 數據分割 [3])
伺服器1.發送數據 (客戶, 「密碼錯誤」, )
.默認
伺服器1.發送數據 (客戶, 「登錄成功」, )
.判斷結束
.判斷 (數據分割 [1] = 「注冊」)
執行SQL語句 (mysql, 「SELECT * FROM `account_tbl` where account='」 + 數據分割 [2] + 「';」)
臨時記錄集 = 取記錄集 (mysql)
.判斷開始 (欄位是否為空 (臨時記錄集, 「account」) = 假)
執行SQL語句 (mysql, 「insert into `account_tbl` VALUES ('」 + 數據分割 [2] + 「','」 + 數據分割 [3] + 「');」)
伺服器1.發送數據 (客戶, 「注冊成功」, )
.默認
伺服器1.發送數據 (客戶, 「帳號已存在」, )
.判斷結束
.默認
.判斷結束
.子程序 __啟動窗口_創建完畢
mysql = 連接MySql (「127.0.0.1」, 「test」, 「test」, 「account」, 3306)
客戶端
.版本 2
.程序集 窗口程序集1
.子程序 _按鈕1_被單擊
.如果真 (編輯框2.內容 = 「」 或 編輯框1.內容 = 「」)
信息框 (「請填寫完成所有信息」, 0, )
返回 ()
.如果真結束
客戶1.發送數據 (「登錄」 + 「|」 + 編輯框1.內容 + 「|」 + 編輯框2.內容)
.子程序 __啟動窗口_創建完畢
.局部變數 伺服器, 文本型
.局部變數 埠, 整數型
伺服器 = 「127.0.0.1」
埠 = 5678
.如果真 (客戶1.連接 (伺服器, 埠) = 假)
信息框 (「對不起連接伺服器失敗」, 0, )
結束 ()
.如果真結束
.子程序 _客戶1_數據到達
.局部變數 數據, 位元組集
.局部變數 數據到文本, 文本型
數據 = 客戶1.取回數據 ()
數據到文本 = 到文本 (數據)
.判斷開始 (數據到文本 = 「登錄成功」)
信息框 (數據到文本, 0, )
.判斷 (數據到文本 = 「注冊成功」)
信息框 (數據到文本, 0, )
.默認
信息框 (數據到文本, 0, )
.判斷結束
.子程序 _注冊_被單擊
載入 (窗口1, , 真)
多給點分!
『貳』 易語言如何連接伺服器
.版本 2
.支持庫 mysql
.子程序 _按鈕1_被單擊
.局部變數 b, 整數型
.局部變數 取查詢值, 整數型
.局部變數 MySQL語句, 文本型
.局部變數 記錄數量, 整數型
.局部變數 i, 整數型
.局部變數 姓名, 文本型
b = 連接MySql (「120.26.*.*」, 「root」, 「123445」, 「user」, 3306)
輸出調試文本 (b)
MySQL語句 = 「select * from user_table」
執行SQL語句 (b, MySQL語句)
取查詢值 = 取記錄集 (b)
記錄數量 = 取記錄集行數 (取查詢值)
輸出調試文本 (記錄數量)
.計次循環首 (記錄數量, i)
讀欄位值 (取查詢值, 「username」, 姓名)
.如果 (姓名 = 「admin」)
信息框 (「已找到」, 0, , )
跳出循環 ()
.否則
.如果結束
' //輸出調試文本 (姓名)
到下一行 (取查詢值)
.計次循環尾 ()
-來源於網路
『叄』 易語言客戶1.連接(IP,伺服器埠),還有伺服器怎麼填()設置了路由器映射的
虛擬伺服器定義了廣域網服務埠和區域網網路伺服器之間的映射關系,所有對該廣域網服務埠的訪問將會被重定位給通過IP地址指定的區域網網路伺服器。
這段話的意思是 所有訪問你外網IP指定埠的連接都轉到你的電腦上 [指定埠=服務埠號]
通俗點 比如 你客戶1連接的IP埠是1
那麼在服務埠號填1 IP地址就填你本地連接的IP地址(不可以自動獲取IP地址,要給它一個固定的)
協議選擇ALL
最後那個常用不用選 別管他
如果你是寫遠程的話 寫好後請發一份到我郵箱 要源碼
[email protected]
『肆』 易語言程序怎麼填寫連接發信伺服器地址
第一個參數 發信郵件伺服器地址 是smtp 一般有qq.smtp.com 163.smtp.com
第二個參數 埠 默認是25.