【文章內(nèi)容簡介】 出數(shù)量整型(int)4是金額貨幣型(money)8是票號字符型(vchar)30是操作員字符型(vchar)10是備注字符型(vchar)20是1 借書期限表（Jsqxb）字段名數(shù)據(jù)類型字段大小是否為空期限字符型(vchar)6否第三章 主窗體及系統(tǒng)登錄窗體設計本系統(tǒng)采用VC++ Server2000結合設計。利用VB中AOD控件為我們提供的CRe類可以很方便的對數(shù)據(jù)庫進行訪問。在設計的前需要對ODBC進行配置用于連接數(shù)據(jù)庫。、主程序窗體設計主程序窗體設計的好壞往往會影響系統(tǒng)的整體形象，因此應首要設計好主程序。同時，主程序窗體也是程序控制的核心，操作全國縣、創(chuàng)許功能調(diào)用等都要通過主程序窗體調(diào)用。、實現(xiàn)目標（1）、根據(jù)操作員全縣范圍，設置相應菜單、工具欄是否有效。（2）、通過菜單、工具欄調(diào)用相應子程序。（3）、顯示當前操作員、版權信息及系統(tǒng)日期。、設計思路主程序窗體線面設計主要包括菜單設計、工具欄設計、背景設計等。主程序運行結果如下圖所示、編寫程序代碼住窗體、主程序菜單、工具欄及狀態(tài)欄創(chuàng)建完成后，還需要在代碼窗口中添加如下代碼加以實現(xiàn)。Private Sub Form_Load() 39。顯示軟件名稱及版本 = amp。 版本： V amp。 amp。 . amp。 amp。 . amp。 (2).text = 陜西廣播電視大學End SubPrivate Sub Timer1_Timer() 39。設置時間 (1).text = Format(Date, long date) amp。 amp。 TimeEnd SubPrivate Sub tslb_Click() 39。加載圖書類別設置窗體 Load main_jcxx_tslbsz = FalseEnd SubPrivate Sub tsmlgl_Click() 39。加載圖書目錄管理窗體 Load main_jcxx_tsmlgl = FalseEnd SubPrivate Sub place_Click() 39。加載圖書存放位置窗體 Load main_jcxx_tswzsz = FalseEnd SubPrivate Sub rlbsz_Click() 39。加載讀者類別設置窗體 Load main_jcxx_dzlbsz = FalseEnd SubPrivate Sub reads_Click() 39。加載讀者信息設置窗體 Load main_jcxx_dzxxsz = FalseEnd SubPrivate Sub xztsrk_Click() 39。加載圖書入庫窗體 Load main_rcyw_tsrk = FalseEnd SubPrivate Sub rkcx_Click() 39。加載入庫查詢窗體 Load main_rcyw_rkcx = FalseEnd SubPrivate Sub tsxs_Click() 39。加載圖書銷售窗體 Load main_rcyw_tsxs = FalseEnd SubPrivate Sub xscx_Click() 39。加載銷售查詢窗體 Load main_rcyw_xscx = FalseEnd SubPrivate Sub kccx_Click() 39。加載庫存查詢窗體 Load main_rcyw_kccx = FalseEnd SubPrivate Sub kcsxx_Click() 39。加載庫存上限、下限設置窗體 Load main_rcyw_kcsxx = FalseEnd SubPrivate Sub kcyj_Click() 39。加載庫存預警窗體 Load main_rcyw_kcyj = FalseEnd SubPrivate Sub js_Click() 39。加載借書窗體 Load main_jygl_js = FalseEnd SubPrivate Sub hs_Click() 39。加載還書窗體 Load main_jygl_hs = FalseEnd SubPrivate Sub jscx_Click() 39。加載借書查詢窗體 Load main_jygl_jscx = FalseEnd SubPrivate Sub hscx_Click() 39。加載還書查詢窗體 Load main_jygl_hscx = FalseEnd SubPrivate Sub jscq_Click() 39。加載借書超期窗體 Load main_jygl_szdqtx = FalseEnd SubPrivate Sub xlfx_Click() 39。加載銷量分析窗體 Load main_jcfx_xlfx = FalseEnd SubPrivate Sub jyfx_Click() 39。加載借閱分析窗體 Load main_jcfx_jyfx = FalseEnd SubPrivate Sub kcfx_Click() 39。加載庫存分析窗體 Load main_jcfx_kcfx = FalseEnd SubPrivate Sub czy_Click() 39。加載操作員設置窗體 Load main_xtgl_czysz = FalseEnd SubPrivate Sub mmsz_Click() 39。加載密碼設置窗體 Load main_xtgl_mmsz = FalseEnd SubPrivate Sub czyjbsz_Click() 39。加載操作員級別設置窗體 Load main_xtgl_czyjbsz = FalseEnd SubPrivate Sub qxsz_Click() 39。加載權限管理窗體 Load main_xtgl_qxgl = FalseEnd SubPrivate Sub xtcsh_Click() 39。加載系統(tǒng)初始化窗體 Load main_xtwh_xtcsh = FalseEnd SubPrivate Sub sjbf_Click() 39。加載數(shù)據(jù)備份窗體 Load main_xtwh_sjbf = FalseEnd SubPrivate Sub sjhf_Click() 39。加載數(shù)據(jù)恢復窗體 Load main_xtwh_sjhf = FalseEnd SubPrivate Sub help_Click() 39。加載幫助窗體 Load main_help = FalseEnd SubPrivate Sub about_Click() 39。加載關于窗體 Load main_About = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Is = tslb tslb_Click 39。加載圖書類別設置窗體 Case Is = mlgl tsmlgl_Click Case Is = tsrk xztsrk_Click 39。加載圖書入庫窗體 Case Is = tsjy js_Click 39。加載借書窗體 Case Is = tsgh hs_Click 39。加載還書窗體 Case Is = kccx kccx_Click 39。加載庫存查詢窗體 Case Is = qxgl qxsz_Click 39。加載權限管理窗體 Case Is = help help_Click 39。加載幫助窗體 Case Is = about about_Click Case Is = end End End SelectEnd SubPrivate Sub exit_Click() EndEnd Sub、系統(tǒng)登錄窗體設計、實現(xiàn)目標（1）、以形象地圖標顯示草原元，通過輸入正確的用戶口令進入圖書信息管理系統(tǒng)。（2）、操作員錯誤后密碼錯誤提醒并返回錯誤點，3次口令錯誤，退出系統(tǒng)。（3）、用不同的圖標代表不同級別的操作員。（4）、以系統(tǒng)管理員級別登錄的用戶可以擁有訪問圖書信息管理系統(tǒng)的最大權限。系統(tǒng)運行結果如下圖所示、設計思路系統(tǒng)登錄窗體主要對進入系統(tǒng)地用戶進行安全性檢查，防止非法用戶進入系統(tǒng)。只有合法的用戶在輸入正確的操作員和密碼后，才可以進入，下面是系統(tǒng)登錄船體開發(fā)中的3個過程。初始化過程添加操作員列表。操作員由listview控件以大圖標的形式顯示。完成此列表主要運用循環(huán)語句和listitems稽核中的add方法實現(xiàn)的。其代碼如下39。添加操作員 = select * from qxb If 0 Then With .MoveFirst = .Fields(操作員) = .Fields(編號) = .Fields(操作員級別) Do While .EOF = False text = .Fields(操作員) MyIcon = Val(Right(.Fields(頭像), Val(Len(.Fields(頭像)) 2))) Set itmX = (, , text, MyIcon) .MoveNext Loop End With End IfEnd Sub錄入過程根據(jù)用戶選擇的操作員，查詢并顯示此操作員相關的信息。代碼如下：If 0 Then 39。查詢操作員信息 = select * from qxb where 操作員=39。 + + 39。 With If .RecordCount 0 Then 39。 = .Fields(操作員) = .Fields(編號) If .Fields(操作員級別) Then = .Fields(操作員級別) End If End With End IfEnd Sub確認過程（1）賦予操作員權限按用戶選定的操作員查詢。若記錄大于零，將權限表[qxb]中字段值賦給對應的菜單項（2）、驗證操作員及其密碼如上面的情況，加入用戶輸入的密碼等于密碼字段的值，那么運用load的語句載入主程序：否則，記錄用戶輸入的錯誤密碼的次數(shù)，到第三次時，提示用戶并自動退出系統(tǒng)。代碼如下：Private Sub cmdOK_Click() = select * from qxb where 操作員 = 39。 + Trim() + 39。 If 0 Then With = .Fields(基礎信息管理) (1).Enabled = .Fields(基礎信息管理) = .Fields(圖書管理) (5).Enabled = .Fields(圖書管理) (11).Enabled = .Fields(圖書管理) = .Fields(借閱管理) (7).Enabled = .Fields(借閱管理) (9).Enabled = .Fields(借閱管理) = .Fields(決策分析) = .Fields(系統(tǒng)維護) = .Fields(系統(tǒng)管理) (13).Enabled = .Fields(系統(tǒng)管理) End With 39。驗證操作員及密碼 If = (密碼) Then Load frm_main (3).text = Unload Me Else If = Then MsgBox (請選擇操作員！) Else If (密碼) Then MsgBox (密碼錯誤,請重新輸入密碼！) = Val() + 1