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