[通信電子]通訊錄管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-文庫吧資料
2024-09-22 11:11本頁面
【正文】 If Then MsgBox (對(duì)不起您輸入的用戶名和密碼錯(cuò)誤！ ) End If End If End If End Sub 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 19 頁 系統(tǒng)設(shè)置模塊 圖 系統(tǒng)設(shè)置模塊效果圖 Private Sub Command1_Click(Index As Integer) Dim s As Byte If = True Then !apart_type = True Else !apart_type = Flase End If If = 1 Then s = 1 ElseIf = 1 Then s = 2 Else s = 3 End If End Sub 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 20 頁 聯(lián)系人信息模塊實(shí)現(xiàn) 圖 聯(lián)系人信息模塊效果圖 Private Sub Command1_Click() Dim conid As Integer If = Then MsgBox (請(qǐng)輸入聯(lián)系人姓名！ ) Else = select * from [conifo] If 0 Then While Not If (姓名 ) = Trim() Then MsgBox (對(duì)不起該姓名已經(jīng)存 在，請(qǐng)重新輸入！ ) Exit Sub Else End If Wend 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 21 頁 conid = (0).Value + 1 Else conid = 1 End If (0) = conid (編號(hào) ) = Trim() (姓名 ) = Trim() (手機(jī) ) = Trim() (住宅 電話 ).Value = Trim() (傳真 ).Value = Trim() (電子郵件 ).Value = Trim() (分類 ).Value = Trim() Call WriteImage(Adodc1, Trim(mstrFileName)) MsgBox (添加成功！ ) End If End Sub 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 22 頁 組群信息模塊實(shí)現(xiàn) 圖 組群信息模塊效果圖 Private Sub Command1_Click() Dim conid As Integer If = Then MsgBox (請(qǐng)輸入組群 名！ ) Else = select * from [conifo] If 0 Then While Not If (姓名 ) = Trim() Then MsgBox (對(duì)不起該 組群 已經(jīng)存在，請(qǐng)重新輸入！ ) Exit Sub Else 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 23 頁 End If Wend conid = (0).Value + 1 Else conid = 1 End If (0) = conid (組群名 ) = Trim() (組群 類型 ) = Trim() (備注 ).Value = Trim() Call WriteImage(Adodc1, Trim(mstrFileName)) MsgBox (添加成功！ ) End If End Sub 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 24 頁 信息查詢模塊實(shí)現(xiàn) 圖 信息查詢模塊效果圖 Private Sub Command1_Click() If = True Then If Then = select * from [conifo] where 姓名 like 39。 說明四：首先判斷是否有輸入的查詢信息，若有，則根據(jù)所填信息查詢；若沒有，則提示“請(qǐng)輸入要查詢的信息” 。 說明二：根據(jù)輸入的組群信息，在組群信息表中查詢并顯示出來。 失敗 失敗 成功 成功 開始 窗體初始化 添加聯(lián)系人 （說明 一 ） 新建群組 （說明 一） 修改組群 （說明 二） 提示信息 保存（說明一） 更新（說明二） 提示信息 提示信息 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 15 頁 信息查詢模塊 設(shè)計(jì) 綜合信息查詢模塊主要實(shí)現(xiàn)用戶根據(jù)自己的需要對(duì)班次的具體信息進(jìn)行查詢，根據(jù)班次可以查詢對(duì)應(yīng)班次的剩余票數(shù)。 （ 1） 流程圖 圖 組群信息模塊流程圖 （ 2） 處理說明 說明一：單擊添加按鈕，根據(jù)需要在文本框里輸入相應(yīng)的聯(lián)系人信息，單擊提交按鈕，保存到數(shù)據(jù)庫。 說明二：單擊需要修改的聯(lián)系人，根據(jù)需要在文本框中修改信息，單擊修改按鈕并更新到數(shù)據(jù)庫，若要?jiǎng)h除此聯(lián)系人，則單擊刪除按鈕 。 成功 成功 開始 窗體初始化 系統(tǒng)設(shè)置 用戶組設(shè)置 保存（說明一） 保存（說明一 ） 失敗 失敗 提示信息 提示信息 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 13 頁 聯(lián)系人信息模塊 設(shè)計(jì) 聯(lián)系人信息模塊 主要實(shí)現(xiàn)對(duì)聯(lián)系人信息的添加、修改、刪除等操作。 開始 輸入帳戶、密碼 判斷是否合法用戶及身份（說明一 ) 說明一 用戶 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 12 頁 系統(tǒng)設(shè)置模塊 設(shè)計(jì) 系統(tǒng)設(shè)置模塊主要實(shí)現(xiàn) 對(duì)手機(jī)用戶基本信息的設(shè)置和保存、以及對(duì)該系統(tǒng)的一些設(shè)置。 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 9 頁 數(shù)據(jù)庫設(shè)計(jì) ER 模型設(shè)計(jì) 圖 ER 模型圖 表設(shè)計(jì) 表 手機(jī)通訊錄 (lianxi) 字段名 說明 類型 長度 主鍵或外鍵 bh 編號(hào) 數(shù)字 整型 是 xm 姓名 文本 10 Sj 手機(jī) 數(shù)字 長整型 zzdh 住宅電話 數(shù)字 長整型 用戶 手機(jī) 組群 SIM 卡 管
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1