[通信電子]通訊錄管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(文件)
【正文】 學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 10 頁 cz 傳真 數(shù)字 長整型 dzyj 電子郵件 文本 20 fl 分類 文字 2 （分類： A辦公類； B 個人類； C 商務(wù)類） 表 卡通訊錄 (lianxi) 字段名 說明 類型 長度 主鍵或外鍵 bh 編號 數(shù)字 整型 是 xm 姓名 文本 10 Sj 手機(jī) 數(shù)字 長整型 zzdh 住宅電話 數(shù)字 長整型 cz 傳真 數(shù)字 長整型 dzyj 電子郵件 文本 20 fl 分類 文字 2 （分類： A辦公類； B 個人 類； C 商務(wù)類） 表 組群信息表 (zuqun) 字段名 說明 類型 長度 主鍵或外鍵 zqm 組群名 文本 10 zqlx 組群類型 文本 2 bz 備注 文本 20 表 用戶信息表 (yonghu) 字段名 說明 數(shù)據(jù)類型 數(shù)據(jù)長度 是否為主鍵 yhm 用戶名 文本型（ char） 50 mm 密碼 文本型（ char） 50 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 11 頁 詳細(xì)設(shè)計(jì) 用戶登錄模塊設(shè)計(jì) 用戶登錄模塊主要根據(jù)用戶登錄的信息，與數(shù)據(jù)庫中信息成功匹配后，獲得其相應(yīng)的操作權(quá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)對聯(lián)系人信息的添加、修改、刪除等操作。 （ 1） 流程圖 圖 組群信息模塊流程圖 （ 2） 處理說明 說明一：單擊添加按鈕，根據(jù)需要在文本框里輸入相應(yīng)的聯(lián)系人信息，單擊提交按鈕，保存到數(shù)據(jù)庫。 說明二：根據(jù)輸入的組群信息，在組群信息表中查詢并顯示出來。 失敗 失敗 成功 成功 開始 窗體初始化 手機(jī)復(fù)制到SIM 卡（說明一） SIM 卡復(fù)制到手機(jī)（說明一） 提示信息 提示信息 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 17 頁 用戶登錄模塊實(shí)現(xiàn) 圖 用戶登錄模塊效果圖 該模塊主要根據(jù)輸入的用戶信息，判斷輸入的信息是否正確，主要代碼為： Private Sub Command1_Click() Dim user, pws user = Trim() pws = Trim() If = Then MsgBox (請輸入用戶名！ ) Else If = Then MsgBox (請輸入密碼！ ) Else While Not 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院畢業(yè)論文 (設(shè)計(jì) ) 第 18 頁 If Trim((username)) = user And Trim((password)) = pws Then userpurview = (purview) nickname = (nickname) loginname = (username) userpsw = (password) userid = (0) Unload Me Exit Sub Else End If Wend If Then MsgBox (對不起您輸入的用戶名和密碼錯誤！ ) 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 (請輸入聯(lián)系人姓名！ ) Else = select * from [conifo] If 0 Then While Not If (姓名 ) = Trim() Then MsgBox (對不起該姓名已經(jī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 (編號 ) = 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 (請輸入組群 名！ )
公司管理相關(guān)推薦
鄂ICP備17016276號-1