計(jì)算機(jī)信息管理畢業(yè)論文計(jì)算機(jī)圖書(shū)管理系統(tǒng)數(shù)據(jù)庫(kù)-文庫(kù)吧
2024-12-29 18:25 本頁(yè)面
【正文】 窗體移動(dòng) Xpcmdbutton 按鈕 個(gè)性按鈕 Xphelp 系統(tǒng) 系統(tǒng)幫助 Xptopbuttons 系統(tǒng) 最大化最小化關(guān)閉 xpcmdbutton1 按鈕 借書(shū) Xpcmdbutton2 按鈕 還書(shū) Xpcmdbutton3 按鈕 圖書(shū)錄入 Xpcmdbutton4 按鈕 職工錄入 Xpcmdbutton5 按鈕 圖書(shū)查詢 Xpcmdbutton6 按鈕 借閱查詢 三主窗體界面設(shè)計(jì) 主界面的設(shè)計(jì)采用標(biāo)準(zhǔn)無(wú)標(biāo)題主窗口樣式自上而下依次為菜單欄工具條工作區(qū)本系統(tǒng)采用SSTab頁(yè)框狀態(tài)欄等所有系統(tǒng)用戶擁有相似的主界面主界面包含基本的或共享的功能如書(shū)目瀏覽與檢索基本統(tǒng)計(jì)等代碼見(jiàn)code目錄下maintxt主界面如代碼所示Option Explicit定義查詢字段的窗體級(jí)變量定義查詢的字段窗體變量Dim sfield As String 查詢的關(guān)鍵詞Dim seachtext As String 查詢函數(shù)定義 1桉書(shū)號(hào)查詢則采用具體查詢辦法 2按書(shū)名查詢則采用模糊查詢辦法Function open_seach table_name As String sfield As String seachtext As String As IntegerDim sqlstr As StringDim str As String 建立數(shù)據(jù)庫(kù)連接 Set con New ADODBConnection Set rst New ADODBRecordset conCursorLocation adUseClient sqlstr Provider MicrosoftJetOLEDB40 Data Source AppPath \data\ComputerBookmanagemdb Persist Security Info False conOpen sqlstr 查詢辦法選擇 If Option1Value True Then str select from table_name where sfield seachtext Else str select from table_name where sfield like Trim Text1Text End If If Option3Value True Then str select from table_name where sfield seachtext Else str select from table_name where sfield like Trim Text1Text End If rstOpen str con adOpenDynamic adLockOptimistic rstRequery If rstRecordCount 0 Then open_seach 1 返回一個(gè)值1代表有查詢結(jié)果 Else open_seach 0 返回一個(gè)值0代表沒(méi)有查詢結(jié)果 End If End FunctionPrivate Sub Check4_Click 選擇查詢的字段Select Case TabStrip1SelectedItem Case 圖書(shū)信息瀏覽 sfield [出版社]End SelectEnd SubPrivate Sub Command1_Click If rstBOF True ThenfrmMsgShowfrmMsginfoVisible True frmMsgText1Text 已經(jīng)到達(dá)第一條記錄了Exit SubElserstMovePreviousEnd IfEnd SubPrivate Sub Command2_Click 后一記錄If rstEOF True ThenfrmMsgShowfrmMsginfoVisible True frmMsgText1Text 已經(jīng)到達(dá)最后一條記錄了Exit SubElserstMoveNextEnd IfEnd SubPrivate Sub DataGrid2_Click Call connect_dbopen_connection book 連接book表 tablename book If privilege 1 Then 如果只是普通用戶無(wú)法查詢員工信息 frmMsgShow frmMsgerrorVisible True frmMsgText1Text 對(duì)不起您沒(méi)有查閱的權(quán)限 Exit Sub End If open_connection worker 連接worker表 tablename worker open_connection record 連接record表 tablename record Set DataGrid1DataSource rst End Sub Private Sub Command4_Click Dim ret As IntegerIf Command4Caption 查 詢 Then Command4Caption 確 定Else If Option1Value False And Option2Value False And Option3Value False And Option4Value False Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 請(qǐng)選擇查詢項(xiàng) Exit Sub End If If Text1Text Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 請(qǐng)輸入查詢內(nèi)容 Text1SetFocus Exit Sub End If seachtext Trim Text1Text ret open_seach tablename sfield seachtext If ret 0 Then frmMsgShow frmMsgerrorVisible True frmMsgText1Text 對(duì)不起沒(méi)有你要的記錄 Option1Value False Option2Value False Text1Text rstClose Set rst Nothing Set DataGrid1DataSource rst Command1Enabled False 上一條下一條按鈕為灰 Command2Enabled False Command4Caption 查 詢 Exit Sub End If Command1Enabled True Command2Enabled True Set DataGrid1DataSource rst Text1Text Option1Value False Option2Value False Command4Caption 查 詢End If End SubPrivate Sub DataGrid1_Click Call connect_dbopen_connection book 連接book表 tablename book If privilege 1 Then 如果只是普通用戶無(wú)法查詢員工信息 frmMsgShow frmMsgerrorVisible True frmMsgText1Text 對(duì)不起您沒(méi)有查閱的權(quán)限 Exit Sub End If open_connection worker 連接worker表 tablename worker open_connection record 連接record表 tablename record Set DataGrid1DataSource rstEnd SubPrivate Sub Form_Load Option1Caption 書(shū)號(hào)Option2Caption 書(shū)名Option3Caption 出版社Option4Caption 作者Label2Caption frmLoginText1TextTimer1Interval 1000tablename bookCall connect_dbopen_connection book Set DataGrid1DataSource rstTabStrip1TabsItem 1 圖書(shū)信息瀏覽TabStrip1TabsItem 2 員工信息瀏覽TabStrip1TabsItem 3 圖書(shū)借閱情況瀏覽Text1Text open_connection book Set DataGrid1DataSource rstfrmLoginShowEnd SubPrivate Sub Image1_Click End SubPrivate Sub Option1_Click Select Case TabStrip1SelectedItem Case 圖書(shū)信息
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1