管理信息系統(tǒng)課時(shí)1~7

1、圖書管理系統(tǒng)1. 需求分析2. 功能模塊圖圖書管理系統(tǒng)圖書管理圖書資料系統(tǒng)管理值班管理投訴管理圖書登記圖書借閱圖書賠償查詢輸出增加新用戶修改密碼退出系統(tǒng)3. E-R圖圖書登記實(shí)體書名編號購買日期定價(jià)類型圖書借閱實(shí)體書名編號姓名歸還日期圖書證號借閱日期備注查詢輸出實(shí)體按編號查詢按購買日期查詢圖書賠償實(shí)體書名編號姓名賠償金額圖書證號借閱日期類型解決方法破壞程度投訴管理實(shí)體受訴日期受訴部分投訴內(nèi)容投訴日期編號投訴對象處理意見值班管理實(shí)體值班截止時(shí)間值班開始時(shí)間值班開始日期記事值班人值班截止日期4. 結(jié)構(gòu)設(shè)計(jì)圖書管理模塊：實(shí)現(xiàn)圖書的登記、借閱、賠償圖書資料模塊：實(shí)現(xiàn)圖書的查詢輸出系統(tǒng)管理模塊：實(shí)現(xiàn)用戶

2、的增加、刪除和修改投訴管理模塊：實(shí)現(xiàn)對管理人員的投訴值班管理模塊：實(shí)現(xiàn)管理人員的值班管理數(shù)據(jù)庫設(shè)計(jì)1.建立數(shù)據(jù)庫啟動(dòng)Access數(shù)據(jù)庫,建立一個(gè)空數(shù)據(jù)庫book.mdb點(diǎn)擊“使用設(shè)計(jì)器創(chuàng)建表”出現(xiàn)下圖圖書登記圖書借閱圖書賠償圖書資料系統(tǒng)管理 書名2.設(shè)置ODBC數(shù)據(jù)源程序-ODBC-數(shù)據(jù) “控制面板”-“管理工具”-“數(shù)據(jù)源”（ODBC）選“系統(tǒng)DSN”-點(diǎn)擊“添加”出現(xiàn)下圖所示選擇Microsoft Access Driver(*mdb),單擊“完成”點(diǎn)擊“選擇”按鈕，選擇BOOK數(shù)據(jù)庫所在位置，如下圖點(diǎn)擊“確定”，數(shù)據(jù)源名：book（如下圖）創(chuàng)建主窗口1. “工程”-“添加MDI窗體”2.

3、 設(shè)置該窗體屬性：3. 在窗體上單擊右鍵，-“菜單編輯器“，出現(xiàn)菜單編輯器對話框在對話框中輸入下表對應(yīng)的標(biāo)題和名稱。在里面輸入下表內(nèi)容標(biāo)題名稱圖書管理tushuguanli.圖書登記checkin.圖書借閱borrow.圖書賠償tushupeichang圖書資料tushuziliao.查詢輸出chaxunshuchu投訴管理tousuguanli值班管理zhibanguanli系統(tǒng)管理xitongguanli.添加新用戶adduser.密碼更改changepwd.退出系統(tǒng)exit（注意：表中的.使用生成）點(diǎn)擊“確定”得到主菜單練習(xí)：設(shè)計(jì)如以下所示的主菜單窗體。人事管理系統(tǒng)主窗體，由員工管理、工

4、資管理、考核管理和部門管理構(gòu)成。其中員工管理包括添加員工、刪改員工、查詢員工 工資管理包括新建工資單、工資單查詢 考核管理包括添加評價(jià)、刪改評價(jià)、查詢評價(jià)部門管理包括添加部門、刪改部門、部門列表 界面設(shè)計(jì)（1）1 打開VB新建-標(biāo)準(zhǔn)EXE-打開2.連接數(shù)據(jù)庫選擇“工程”-“引用”，在出現(xiàn)的對話框中選擇”Microsoft ActiveX Date Objects2.0 Library”,單擊”確定”。引用ADO連接數(shù)據(jù)庫3，添加公共模塊右鍵點(diǎn)擊“窗體”-“添加”-“添加模塊”點(diǎn)擊“打開”，然后輸入以下語句：（如下圖）Option ExplicitPublic conn As New ADODB

5、.Connection '標(biāo)記連接對象Public select_menu As String '標(biāo)記所選擇的菜單Public userID As String '標(biāo)記當(dāng)前用戶IDPublic userpow As String '標(biāo)記用戶權(quán)限Public sqlfind As String '查詢語句Public rs_data1 As New ADODB.Recordset '標(biāo)記連接對象Public findok As Boolean 添加子窗體（1）子窗體建立在VB里面點(diǎn)擊“工程”-“添加窗體”,出現(xiàn)添加窗體菜單選擇“新建”-“窗體”，點(diǎn)

6、擊“打開”，得到如下圖所示設(shè)置（在右邊的屬性欄設(shè)置）得到下圖所示子窗體同理練習(xí)添加以下七個(gè)子窗體“添加新用戶”窗體 “修改密碼”窗體 “圖書登記”窗體 “圖書借閱”窗體 “圖書賠償”窗體 “查詢輸出”窗體 “圖書資料”窗體 （2）主窗體與子窗體的鏈接部分代碼：Private Sub adduser_Click()frmadduser.ShowEnd SubPrivate Sub borrow_Click()frmjieyue.ShowEnd SubPrivate Sub changepwd_Click()frmchangepwd.ShowEnd Sub舉一反三將剩下的代碼寫出各子窗體詳細(xì)設(shè)計(jì)（

7、1）“用戶登錄(frmlogin)”窗口設(shè)計(jì) 界面設(shè)計(jì)屬性設(shè)計(jì) 代碼設(shè)計(jì)Option ExplicitDim cnt As Integer '記錄確定次數(shù)Private Sub Command1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetIf Trim(txtuser.Text) = "" Then '判斷輸入的用戶名是否為空 MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation, "" txtuser.SetFo

8、cusElse sql = "select * from 系統(tǒng)管理 where 用戶名='" & txtuser.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation, "" txtuser.SetFocus Else '檢驗(yàn)密碼是否正確 If Trim(r

9、s_login.Fields(1) = Trim(txtpwd.Text) Then userID = txtuser.Text userpow = rs_login.Fields(2) rs_login.Close Unload Me MDIForm1.Show Else MsgBox "密碼不正確", vbOKOnly + vbExclamation, "" txtpwd.SetFocus End If End IfEnd Ifcnt = cnt + 1If cnt = 3 Then Unload MeEnd IfExit SubEnd SubPri

10、vate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=E:圖書管理系統(tǒng)book.mdb"conn.Open connectionstringcnt = 0End Sub（4）“圖書登記(frmdengji)”窗體5個(gè)（文本），5個(gè)（輸入框），7個(gè)（按鈕）在窗體控件欄“右鍵”

11、-“部件”彈出下對話框，勾選三個(gè)部件，點(diǎn)擊確定。控件欄出現(xiàn)(DataGrid)圖標(biāo)，將其拖到窗體上，如下圖將控件欄的（adodc），拖到窗體中，出現(xiàn)下圖所示將adodc的點(diǎn)擊，出現(xiàn)下圖點(diǎn)擊“生成”按鈕，出現(xiàn)下圖所示，選擇“M Jet4.0”后點(diǎn)擊“下一步”點(diǎn)擊“測試連接”選擇adodc的屬性頁中的出現(xiàn)下圖所示：點(diǎn)擊“確定”對adodc控件，設(shè)置再選擇DataGrid控件，設(shè)置 在將：所有的Text控件，設(shè)置Text1設(shè)置，同理，Text2Text3 代碼設(shè)計(jì)Private Sub Command1_Click()On Error GoTo adderr Text1.SetFocus Adodc

12、1.Recordset.AddNew Exit Subadderr: MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click() On Error GoTo deleteerr If Adodc1.Recordset.BOF = True Then MsgBox "沒有記錄，無法刪除！" Exit Sub End If With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox("刪除當(dāng)前記錄嗎？", vbYesNo + vbQuest

13、ion) = vbYes Then .Delete .MoveNext If .EOF Then .MoveLast End If End If End With Exit Subdeleteerr: MsgBox Err.DescriptionEnd SubPrivate Sub Command3_Click()If Adodc1.Recordset.BOF = True Then MsgBox "沒有記錄，無法顯示！" Exit SubEnd IfAdodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then MsgBox

14、"這是最后一條記錄", vbOKCancel + vbQuestion Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command4_Click()If Adodc1.Recordset.BOF = True Then MsgBox "沒有記錄，無法顯示！" Exit SubEnd IfAdodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then MsgBox "這是第一條記錄", vbOKCancel + vbQuest

15、ion Adodc1.Recordset.MoveFirst End IfEnd SubPrivate Sub Command5_Click()If Adodc1.Recordset.BOF = True Then MsgBox "沒有記錄，無法顯示！" Exit SubEnd IfIf Adodc1.Recordset.EOF Then MsgBox "紀(jì)錄空", vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveFirst End If Exit SubEnd SubPrivate Sub C

16、ommand6_Click()If Adodc1.Recordset.BOF = True Then MsgBox "沒有記錄，無法顯示！" Exit SubEnd IfIf Adodc1.Recordset.RecordCount = 0 Then MsgBox "空紀(jì)錄", vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command7_Click()MDIForm1.Showfrmdengji.HideEnd Sub同理，練習(xí)，

17、自己設(shè)計(jì)如下幾個(gè)窗體（5）“圖書借閱(frmjieyue)”窗體（方法與“圖書登記”窗體設(shè)計(jì)步驟基本相同） 界面設(shè)計(jì)（6）“圖書賠償”（frmpeichang）窗體（方法與“圖書登記”“圖書借閱“窗體設(shè)計(jì)步驟基本相同） 界面設(shè)計(jì)（4）“圖書登記(frmdengji)”窗體5個(gè)（文本），5個(gè)（輸入框），7個(gè)（按鈕）在窗體控件欄“右鍵”-“部件”彈出下對話框，勾選三個(gè)部件，點(diǎn)擊確定?？丶诔霈F(xiàn)(DataGrid)圖標(biāo)，將其拖到窗體上，如下圖將控件欄的（adodc），拖到窗體中，出現(xiàn)下圖所示將adodc的點(diǎn)擊，出現(xiàn)下圖點(diǎn)擊“生成”按鈕，出現(xiàn)下圖所示，選擇“M Jet4.0”后點(diǎn)擊“下一步”點(diǎn)擊“測試

18、連接”選擇adodc的屬性頁中的出現(xiàn)下圖所示：點(diǎn)擊“確定”對adodc控件，設(shè)置再選擇DataGrid控件，設(shè)置 在將：所有的Text控件，設(shè)置Text1設(shè)置，同理，Text2Text3 代碼設(shè)計(jì)Private Sub Command1_Click()On Error GoTo adderr Text1.SetFocus Adodc1.Recordset.AddNew Exit Subadderr: MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click() On Error GoTo deleteerr If Adodc1.Record

19、set.BOF = True Then MsgBox "沒有記錄，無法刪除！" Exit Sub End If With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox("刪除當(dāng)前記錄嗎？", vbYesNo + vbQuestion) = vbYes Then .Delete .MoveNext If .EOF Then .MoveLast End If End If End With Exit Subdeleteerr: MsgBox Err.DescriptionEnd SubPri

20、vate Sub Command3_Click()If Adodc1.Recordset.BOF = True Then MsgBox "沒有記錄，無法顯示！" Exit SubEnd IfAdodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then MsgBox "這是最后一條記錄", vbOKCancel + vbQuestion Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command4_Click()If Adodc1.Recordset.

21、BOF = True Then MsgBox "沒有記錄，無法顯示！" Exit SubEnd IfAdodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then MsgBox "這是第一條記錄", vbOKCancel + vbQuestion Adodc1.Recordset.MoveFirst End IfEnd SubPrivate Sub Command5_Click()If Adodc1.Recordset.BOF = True Then MsgBox "沒有記錄，無法顯示！&q

22、uot; Exit SubEnd IfIf Adodc1.Recordset.EOF Then MsgBox "紀(jì)錄空", vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveFirst End If Exit SubEnd SubPrivate Sub Command6_Click()If Adodc1.Recordset.BOF = True Then MsgBox "沒有記錄，無法顯示！" Exit SubEnd IfIf Adodc1.Recordset.RecordCount = 0 Th

23、en MsgBox "空紀(jì)錄", vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command7_Click()MDIForm1.Showfrmdengji.HideEnd Sub同理，練習(xí)，自己設(shè)計(jì)如下幾個(gè)窗體（5）“圖書借閱(frmjieyue)”窗體（方法與“圖書登記”窗體設(shè)計(jì)步驟基本相同） 界面設(shè)計(jì)（6）“圖書賠償”（frmpeichang）窗體（方法與“圖書登記”“圖書借閱“窗體設(shè)計(jì)步驟基本相同） 界面設(shè)計(jì)（7）“投訴管理”（frmtoushu

24、）窗體（方法與“圖書登記”“圖書借閱“窗體設(shè)計(jì)步驟基本相同）開發(fā)方法與代碼設(shè)計(jì)與圖書借閱，圖書登記、圖書賠償基本相同，請嘗試自行開發(fā)（2）“增加用戶（frmadduser）”窗體4個(gè)（文本），3個(gè)（輸入框），2個(gè)（按鈕），一個(gè)（下拉框）密碼的Text框，要設(shè)置代碼Private Sub Command1_Click()Dim sql As StringDim rs_add As New ADODB.Recordset If Trim(Text1.Text) = "" Then MsgBox "用戶名不能為空", vbOKOnly + vbExclamat

25、ion, "" Exit Sub Text1.SetFocusElse sql = "select * from 系統(tǒng)管理" rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0) = Trim(Text1.Text) Then MsgBox "已有這個(gè)用戶", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1

26、.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text = "" Exit Sub Else rs_add.MoveNext End If Wend If Trim(Text2.Text) = "" Then MsgBox "密碼不能為空，請重新輸入！", vbOKOnly + vbExclamation, "警告" Text2.Text = "" Text2.SetFocus Ex

27、it Sub End If If Trim(Text2.Text) <> Trim(Text3.Text) Then MsgBox "兩次密碼不一致", vbOKOnly + vbExclamation, "" Text2.SetFocus Text2.Text = "" Text3.Text = "" Exit Sub ElseIf Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "gu

28、est" Then MsgBox "請選擇正確的用戶權(quán)限", vbOKOnly + vbExclamation, "" Combo1.SetFocus Combo1.Text = "" Exit Sub Else rs_add.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Fields(2) = Combo1.Text rs_add.Update rs_add.Close MsgBox "添加用戶成功",

29、 vbOKOnly + vbExclamation, "" Unload Me End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem "system"Combo1.AddItem "guest"End Sub（3）“修改密碼(frmchangepwd)”窗體2個(gè)（文本），2個(gè)（輸入框），2個(gè)（按鈕）密碼的Text框，要設(shè)置代碼Private Sub Command1_Click()Dim

30、rs_chang As New ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) <> Trim(Text2.Text) Then MsgBox "密碼不一致！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" Text2.Text = ""Else sql = "select * from 系統(tǒng)管理 where 用戶名='" & userI

31、D & "'" rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = Text1.Text rs_chang.Update rs_chang.Close MsgBox "密碼修改成功", vbOKOnly + vbExclamation, "" Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub（7）“圖書查詢”窗體（frmfind）代碼

32、設(shè)計(jì)Option ExplicitDim rs_find As New ADODB.RecordsetPrivate Sub Command1_Click()On Error GoTo cmderrorDim find_date1 As StringIf Option1.Value = True Then sqlfind = "select * from 圖書登記 where 編號 between '" & _ Combo1(0).Text & "'" & " and " & "

33、;'" & Combo1(1).Text & "'" End Ifrs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimisticfrmdatamanage.displaygrid1Unload Mefrmdatamanage.Showcmderror:If Err.Number <> 0 Then MsgBox "請輸入正確的查詢條件！", vbOKOnly + vbExclamation, "警告" Exit SubEnd

34、 IfEnd SubPrivate Sub Command2_Click()Unload MeMDIForm1.ShowEnd SubPrivate Sub Form_Load()Dim i As IntegerDim sql As StringIf findok = True Then rs_data1.CloseEnd Ifsql = "select * from 圖書登記 order by 編號 desc"rs_find.CursorLocation = adUseClientrs_find.Open sql, conn, adOpenKeyset, adLockPe

35、ssimisticIf rs_find.EOF = False Then '添加編號 With rs_find Do While Not .EOF Combo1(0).AddItem .Fields(0) Combo1(1).AddItem .Fields(0) .MoveNext LoopEnd WithEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)rs_find.CloseEnd Sub（8）“圖書資料（frmdatamanage）“窗體設(shè)置使用數(shù)據(jù)庫訪問控件代碼Option ExplicitDim rs_data2

36、As New ADODB.RecordsetDim select_row As StringDim showgrid2 As BooleanDim rs_custom As New ADODB.RecordsetDim modify As Boolean '修改狀態(tài)標(biāo)志Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo loaderrorDim sql As Stringsql = "select * from 書名"rs_custom.CursorLoca

37、tion = adUseClientrs_custom.Open sql, conn, adOpenKeyset, adLockPessimisticWhile Not rs_custom.EOF Combo1.AddItem rs_custom.Fields(0) rs_custom.MoveNextWendfindok = Truemodify = False '非修改狀態(tài)displaygrid1 '調(diào)用顯示Datagrid1子程序loaderror:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd

38、Sub'顯示msflexgrid1子程序Public Sub displaygrid1()Dim i As IntegerOn Error GoTo displayerrorsetgridsetgridheadMSFlexGrid1.Row = 0If Not rs_data1.EOF Then rs_data1.MoveFirst Do While Not rs_data1.EOF MSFlexGrid1.Row = MSFlexGrid1.Row + 1 MSFlexGrid1.Col = 0 If Not IsNull(rs_data1.Fields(0) Then MSFlex

39、Grid1.Text = rs_data1.Fields(0) Else MSFlexGrid1.Text = "" MSFlexGrid1.Col = 1 If Not IsNull(rs_data1.Fields(1) Then MSFlexGrid1.Text = rs_data1.Fields(1) Else MSFlexGrid1.Text = "" MSFlexGrid1.Col = 2 If Not IsNull(rs_data1.Fields(2) Then MSFlexGrid1.Text = rs_data1.Fields(2) El

40、se MSFlexGrid1.Text = "" MSFlexGrid1.Col = 3 If Not IsNull(rs_data1.Fields(3) Then MSFlexGrid1.Text = rs_data1.Fields(3) Else MSFlexGrid1.Text = "" MSFlexGrid1.Col = 4 If Not IsNull(rs_data1.Fields(4) Then MSFlexGrid1.Text = rs_data1.Fields(4) Else MSFlexGrid1.Text = ""

41、 rs_data1.MoveNext LoopEnd Ifdisplayerror:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd SubPublic Sub setgrid()Dim i As IntegerOn Error GoTo seterrorWith MSFlexGrid1 .ScrollBars = flexScrollBarBoth .FixedCols = 0 .Rows = rs_data1.RecordCount + 1 .Cols = 7 .SelectionMode = flexSelecti

42、onByRowFor i = 0 To .Rows - 1 .RowHeight(i) = 315NextFor i = 0 To .Cols - 1 .ColWidth(i) = 1300Next iEnd WithExit Subseterror: MsgBox Err.DescriptionEnd SubPublic Sub setgridhead()On Error GoTo setheaderrorMSFlexGrid1.Row = 0MSFlexGrid1.Col = 0MSFlexGrid1.Text = "編號"MSFlexGrid1.Col = 1MSFl

43、exGrid1.Text = "書名"MSFlexGrid1.Col = 2MSFlexGrid1.Text = "類型"MSFlexGrid1.Col = 3MSFlexGrid1.Text = "購買日期"MSFlexGrid1.Col = 4MSFlexGrid1.Text = "定價(jià)"Exit Subsetheaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)findok = Falsers_dat

44、a1.Closers_custom.CloseIf showgrid2 = True Then rs_data2.CloseEnd IfEnd Sub（9）“值班管理“窗體使用到了和和控件Option ExplicitDim rs_zhiban As New ADODB.RecordsetPrivate Sub cmdadd_Click()On Error GoTo adderrorIf cmdadd.Caption = "確認(rèn)新增記錄" Then '當(dāng)此按鈕的狀態(tài)為為“增加記錄”時(shí) cmdadd.Caption = "確定" '按鈕名稱

45、改為“確定” cmddel.Enabled = False DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True '設(shè)定datagrid可以增加記錄ElseIf Not IsNull(DataGrid1.Bookmark) Then If Not IsDate(Trim(DataGrid1.Columns("值班開始日期").CellText(DataGrid1.Bookmark) Then MsgBox "請按照格式y(tǒng)yyy-mm-dd輸入值班開始日期", vbOKOnly + vb

46、Exclamation, "" Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns("值班開始時(shí)間").CellText(DataGrid1.Bookmark) Then MsgBox "請按照格式hh-mm輸入值班開始時(shí)間", vbOKOnly + vbExclamation, "" Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns("值班截止日期").CellText(DataGri

47、d1.Bookmark) Then MsgBox "請按照格式y(tǒng)yyy-mm-dd輸入值班截止日期", vbOKOnly + vbExclamation, "" Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns("值班截止時(shí)間").CellText(DataGrid1.Bookmark) Then MsgBox "請按照格式hh-mm輸入值班截止時(shí)間", vbOKOnly + vbExclamation, "" Exit Sub End If If Trim(DataGri