【正文】 程設(shè)計(jì)專用紙 No 沈陽理工大學(xué) 13 單擊“是”按鈕時，運(yùn)行結(jié)果如圖 示 ： 圖 注冊操作 如果已注冊則出現(xiàn)提示如圖 示： 圖 已注冊提示 重新輸入多次提示如圖 示： 圖 錯誤提示 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽理工大學(xué) 14 管理員登錄 管理員登錄窗體如圖 示： 圖 管理員登錄 代碼實(shí)現(xiàn)如下： Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As Boolean Private Sub Command1_Click() Dim z As String * 10, m As String * 10 z = Trim() m = Trim() If = True Then F = False Open + \ For Random As 1 i = 0 Do While Not EOF(1) i = i + 1 Get 1, i, U 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽理工大學(xué) 15 If z = And m = Then MsgBox 你是合法用戶 Unload Me 檔案存入與轉(zhuǎn)出 .Show F = True Exit Do End If 39?！? Open + \ For Random As 2 i = 0 G = False While Not EOF(2) i = i + 1 Get 2, i, U If z = Then MsgBox 該用戶名已存在！ 請重新選擇！ G = True End If Wend Close 2 Open + \ For Random As 2 If G = False Then = z = m Put 2, , U MsgBox 注冊成功 End If Close 2 End If End Sub Private Sub Command2_Click() Unload Me 歡迎使用 .Show End Sub Private Sub Command3_Click() = = End Sub 用戶合法時，運(yùn)行結(jié)果見圖 所示 ： 登錄后，直接進(jìn)入查詢窗體。39。39。39。39。 登錄成功 Loop Close 1 If F = False Then 39。 圖 員工登錄 代碼實(shí)現(xiàn)如下： Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As Boolean Private Sub Command1_Click() Dim z As String * 10, m As String * 10 z = Trim() m = Trim() 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽理工大學(xué) 10 If = True Then F = False Open + \ For Random As 1 i = 0 Do While Not EOF(1) i = i + 1 Get 1, i, U If z = And m = Then MsgBox 你是 合法用戶 Unload Me 查詢 .Show F = True Exit Do End If 39。給出可以輸入字符的空白由TextBox 控件做成，可進(jìn)行字體大小與顏色的修改。 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽理工大學(xué) 8 圖 系統(tǒng)頁面 代碼實(shí)現(xiàn)如下： Private Sub mDgy_Click() Load frmSplash End Sub Private Sub mFglydl_Click() 管理員登錄 .Show End Sub Private Sub mFtc_Click() End End Sub Private Sub mFygdl_Click() 員工登錄 .Show 39。 [文件 ]菜單包含以下子菜單及其功能： [員工 登錄 ]：顯示 員工登錄 窗體 [管理員 登錄 ]：顯示 管理員登錄 窗體 [退出 ]：結(jié)束程序 。 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽理工大學(xué) 6 信息表 表 員工帳號表 表 管理員帳號表 表 檔案存入信息表 表 檔案轉(zhuǎn)出信息表 基本數(shù)據(jù) 員工帳號 表里輸入的結(jié)果如下： 表 員工帳號數(shù)據(jù) 管理員 信息表里輸入的結(jié)果如下： 表 管理員帳號數(shù)據(jù) 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No 沈陽理工大學(xué) 7 檔案存入 信息表里輸入的結(jié)果如下： 表 檔案存入數(shù)據(jù) 檔案轉(zhuǎn)出 信息表里輸入的結(jié)果如下： 表 檔案轉(zhuǎn)出數(shù)據(jù) 按如下步驟，根據(jù)向?qū)渲孟到y(tǒng)數(shù)據(jù)源 ： 開始→設(shè)置→ 控制面板→ 管理工具→ 數(shù)據(jù)源（ ODBC）→ 系統(tǒng) DSN→添加→驅(qū)動程序選為 SQL Server→成功→ 給 出該數(shù)據(jù)源的名稱、描述、服務(wù)器→ 更改默認(rèn)數(shù)據(jù)庫為（自己所建的數(shù)據(jù)庫）→ 測試→ 成功→ 確定→ 確定。 CREATE TABLE 存入 (檔案編號 CHAR(40) PRIMARY KEY, 職員編 號 CHAR(40), 檔案類型 CHAR(40), 檔案存放位置 CHAR(40), 檔案存放日期 DATETIME, FOREIGN KEY(職員編號 )REFERENCES 員工注冊 (職員編號 ) )。 表結(jié)構(gòu)設(shè)計(jì) 表的建立 CREATE TABLE 員工注冊 (職員編號 CHAR(40) PRIMARY KEY,