vb管理系統(tǒng)設(shè)計與實現(xiàn)源代碼開題報告

1、一、 123二、 1234一、 123二、 1234目錄1.1背管理系1.1.2 信息管理系1.2 管理系統(tǒng)的目的和原1.3 目錄1.1背管理系1.1.2 信息管理系1.2 管理系統(tǒng)的目的和原1.3 開發(fā)環(huán)境介1.3.11.3.2 數(shù)據(jù)庫查詢語言1.3.3 數(shù)據(jù)庫設(shè)計工具S庫管理系統(tǒng) 2.1 系統(tǒng)分系統(tǒng)流程和操作方式設(shè)第三章 系統(tǒng)界面設(shè)3.1 系統(tǒng)界面設(shè)3.2 系統(tǒng)的界面及窗3.2.1 下面是系統(tǒng)的主要窗3.2.2 界面多文檔（MDI）frmDMI計及代碼.第四章 數(shù)據(jù)庫的設(shè)4.1 數(shù)據(jù)庫第四章 數(shù)據(jù)庫的設(shè)4.1 數(shù)據(jù)庫設(shè)4.1.1 數(shù)據(jù)庫概念和發(fā)數(shù)據(jù)庫模型及參照完整數(shù)據(jù)庫的建立與連數(shù)據(jù)庫查詢

2、設(shè)查詢功能簡查詢功能實現(xiàn)的相關(guān)技查詢功能的具體實系統(tǒng)測試與評致 參考文1.1 背管理系統(tǒng)、使管理仍為手工管理方有許多學(xué)校甚至是一些重點院校的1.1.2 信息管理系統(tǒng)1.1 背管理系統(tǒng)、使管理仍為手工管理方有許多學(xué)校甚至是一些重點院校的1.1.2 信息管理系統(tǒng)類型，而所謂的管理信息系統(tǒng)也就是常說的 （Management Information System）形化 Windows方法，所以本系統(tǒng)采用廣泛使用的 MIS 系統(tǒng)。通類型，而所謂的管理信息系統(tǒng)也就是常說的 （Management Information System）形化 Windows方法，所以本系統(tǒng)采用廣泛使用的 MIS 系統(tǒng)。通

3、ranet開管理系統(tǒng)的目的和原公.該Windows3管ranet開管理系統(tǒng)的目的和原公.該Windows3管1.3 開發(fā)環(huán)境介紹使用 Visual Basic 6.0 作為管理系統(tǒng)的開發(fā)，vb的功能，縮短了開發(fā)周期。而數(shù)據(jù)源的開發(fā)最初是想使用 SQLS20001.3.1用 Visual Basic 60，3.0 版以后的據(jù)功能加到 Visual Basic1.3 開發(fā)環(huán)境介紹使用 Visual Basic 6.0 作為管理系統(tǒng)的開發(fā)，vb的功能，縮短了開發(fā)周期。而數(shù)據(jù)源的開發(fā)最初是想使用 SQLS20001.3.1用 Visual Basic 60，3.0 版以后的據(jù)功能加到 Visual B

4、asics、FoxProParadoxforWindowsVisualBasicVisual Basic 提供了數(shù)據(jù)控件，利用該控件，用戶只要編寫少量的代碼甚至不編寫任何代碼就可以 數(shù)據(jù)庫，對數(shù)據(jù)庫進(jìn)VisualBasics)VisualBasic用方面的擴(kuò)充。在前版本中稱為 是一種可以擴(kuò)充的語言，其中包括在數(shù)據(jù)庫應(yīng)Visual Basic中，可以使用 ActiveX或OLE 控件)，這些控件可以公易地在Visual 中增加新功能，擴(kuò)充 Visual Basic數(shù)據(jù)VisualBasicVisualBasicVisualBasicVisualBasicVisualBasicsODBCsVisu

5、alBasicVisualBasicVisualBasicVisualBasicVisualBasicsODBCsVisualBasic數(shù)據(jù)庫”，即VisualBasic sSQL套Query1.3.2VisualBasic是數(shù)據(jù)庫開發(fā)的主要開發(fā)工具，同時為了實現(xiàn)據(jù)數(shù)據(jù)控制為模式數(shù)據(jù)定義語言(schemadatadefinitionlanguage模式DDL),外模式數(shù)據(jù)定義語言(subschema data definitionstorage de-scription language,簡稱DSDL)1.3.2VisualBasic是數(shù)據(jù)庫開發(fā)的主要開發(fā)工具，同時為了實現(xiàn)據(jù)數(shù)據(jù)控制為模式數(shù)據(jù)

6、定義語言(schemadatadefinitionlanguage模式DDL),外模式數(shù)據(jù)定義語言(subschema data definitionstorage de-scription language,簡稱DSDL)（dataltionlanguage,簡稱DML)SQL1.3.3 數(shù)據(jù)庫設(shè)計工具S數(shù)據(jù)庫管理系統(tǒng) 2000SQL1.3.3 數(shù)據(jù)庫設(shè)計工具S數(shù)據(jù)庫管理系統(tǒng) 2000 建立數(shù)據(jù)庫。(1)將數(shù)據(jù)庫轉(zhuǎn)換成以前的 S版本S用戶首先可以將數(shù)據(jù)庫保存為以前的 S版本，是不同版本用AC S2000的新對象，這樣可以提高可用性，并使其同整個 OFFICE 2000 所條件格式支持負(fù)數(shù)和正

7、數(shù)，并可以將表示成小于、大于、(6)s 導(dǎo)出到Excel，方法是將 s 對象（表格、查詢等）從數(shù)據(jù)庫容器拖放到Excel。這提供了一種將數(shù)據(jù)迅速導(dǎo)出到 Excel(8)s 2000OLE DB，(6)s 導(dǎo)出到Excel，方法是將 s 對象（表格、查詢等）從數(shù)據(jù)庫容器拖放到Excel。這提供了一種將數(shù)據(jù)迅速導(dǎo)出到 Excel(8)s 2000OLE DB，s(2)數(shù)據(jù)庫引擎（MSDE）Office這使用戶可以方便地利用 ss件（）SQL 2.1統(tǒng)分2.1統(tǒng)分AcVBSQL程序中的嵌套以及部分 API 函數(shù)的調(diào)用。2.AcVBSQL程序中的嵌套以及部分 API 函數(shù)的調(diào)用。2.2.2統(tǒng)流程和操作

8、方式設(shè)到2.2統(tǒng)流程和操作方式設(shè)到3.1 系統(tǒng)界面設(shè)計（5） 提供錯誤處理信息，在出現(xiàn)錯誤時，系統(tǒng)應(yīng)該能檢測出預(yù)訂的預(yù)訂工作基本上是由系、部來完成征訂通知下發(fā)到各系、（輪流傳閱），。3.1 系統(tǒng)界面設(shè)計（5） 提供錯誤處理信息，在出現(xiàn)錯誤時，系統(tǒng)應(yīng)該能檢測出預(yù)訂的預(yù)訂工作基本上是由系、部來完成征訂通知下發(fā)到各系、（輪流傳閱），。3對新系統(tǒng)劃分為如 3-1 圖所示的功能模塊結(jié)構(gòu)：。3對新系統(tǒng)劃分為如 3-1 圖所示的功能模塊結(jié)構(gòu)：3.2 系統(tǒng)的界面及窗體下面是系統(tǒng)的主要窗體3.2 系統(tǒng)的界面及窗體下面是系統(tǒng)的主要窗體3-23-3訂打的優(yōu)劣決定了應(yīng)用程序的 易用性、易操作性，基windows（訂打

9、的優(yōu)劣決定了應(yīng)用程序的 易用性、易操作性，基windows（MDI如本例就是用的多文檔（MDI）界面多文檔（MDI）frmDMI 的設(shè)計及代碼PrivateDeclareFunctionGet (ByVal hwnd As Long) As Long PrivateDeclareFunctionGetSubLibLibuser32 AsLong)AsLong ItemBitmaps Lib(ByValAsLong,ByValPrivate Declare Function user32(ByValAsLong,ByValitionLong,ByValwFlagsAsLong,ByValhBit

10、mapUnchecked As Long, ByVal hBitmapChecked As Long) As LongConst ITION = Private Sub usBar1.Panels(1).TextIf InsertBook = False mnuInsert.Enabled = False Toolbar1.Buttons(8).Enabled=FalseusBar1.Panels(1).TextIf InsertBook = False mnuInsert.Enabled = False Toolbar1.Buttons(8).Enabled=FalseToolbar1.Bu

11、ttons(12).Enabled=False mnuQueryR.Enabled = FalseEnd If OrderBook = False Then Toolbar1.Buttons(7).Enabled = False Toolbar1.Buttons(11).Enabled = False Toolbar1.Buttons(15).Enabled = False mnuDingshu.Enabled = False= = End 安全問題和學(xué)生的詳細(xì)資料如：圖 3-4、圖 3-53-If txtname.Text = ThenEnd IfIf txtpass.Text extMsg

12、Box不一樣,請重輸vbOKOnly + txtpass.Text=End IfIf txtpass.Text extMsgBox不一樣,請重輸vbOKOnly + txtpass.Text=ext = cmdupdate.Enabled = False=cmddel.Enabled = True cmdadd.Enabled = True cmdmodify.Enabled=True logoinfo.Enabled=EndSubabled = 3-WithEventsadoPrimaryRSAsRecordset mbChangedByCode AsmvBookMarkAsVariant

13、mbEditFlag As mbAddNewFlag Ashanged As SubForm_Load()= Me.Top3-WithEventsadoPrimaryRSAsRecordset mbChangedByCode AsmvBookMarkAsVariant mbEditFlag As mbAddNewFlag Ashanged As SubForm_Load()= Me.Top =Dim dbAs Set = New db.CursorLocation=adUseC strConn = PROVIDER=.Jet.OLEDB.4.0;&Source= & App.Path & Bo

14、ok.mdb;Jet OLEDB:Database db.Open Set adoPrimaryRS = New adoPrimaryRS.Openselect*from xsxxbOrderby, db, ic, SetgrdDataGrid.DataSource=EndSubhanged = Private Sub On Error Resume picButtons.Height-picS-SetgrdDataGrid.DataSource=EndSubhanged = Private Sub On Error Resume picButtons.Height-picS-us.Width

15、 = Me.Width - cmdNext.Left=us.Width+cmdLast.Left=cmdNext.Left+340 End SubIfmbEditFlagOrmbAddNewFlagSelectCaseKeyCode Case vbKeyEscCase vbKeyEndCase vbKeyHomeCase vbKeyUp, vbKeyPageUp IfShift=vbCtrlMaskThenEnd IfCasevbKeyDown,vbKeyPageDown If Shift = vbCtrlMask ThenEnd IfEnd SubPrivateSubForm_Unload(

16、Canceler = End Sub PrivateSubAs lete(ByValadReason ByVal pError As us As usEnum, ByVal recordset=第&ition)&Endus.ForeColor = te Sub ADODB.EventReasonEnum, ByVal AsLong,adS End Sub PrivateSubAs lete(ByValadReason ByVal pError As us As usEnum, ByVal recordset=第&ition)&Endus.ForeColor = te Sub ADODB.Eve

17、ntReasonEnum, ByVal AsLong,adS Dim bCancel AsSelect Case EndIfbCancelThenadS End SubSub us = On oTo Exit SubEnd SubPrivateSubOn If.EOFThen.MoveLast End WithExitEnd SubPrivateSubOn If.EOFThen.MoveLast End WithExitSub End SubPrivateSubcmdRefresh_Click() On oTo SetgrdDataGrid.DataSource SetgrdDataGrid.

18、DataSource Exit SubEnd Sub=OnErr oTo EditErrus.CaptionmbEditFlag=True SetButtons False Exit SubEnd SubPrivateSubcmdcancel_Click() On Error Resume Next SetButtons TruembEditFlag = False mbAddNewFlag=FalseIf mvBookMark 0 ThenadoPrimaryRS.Bookmark=mvBookMark End Ifhanged=False End SubPrivate Sub On oTo

19、 If mbAddNewFlag ThenEnd IfmbEditFlag = False mbAddNewFlag=If mvBookMark 0 ThenadoPrimaryRS.Bookmark=mvBookMark End Ifhanged=False End SubPrivate Sub On oTo If mbAddNewFlag ThenEnd IfmbEditFlag = False mbAddNewFlag=False SetButtons Truehanged=False Exit SubEnd SubPrivateSubcmdclose_Click() Unload Me

20、End PrivateSubOnoTohanged = End SubPrivate Sub OnoTohanged=False Exit SubEnd SubPrivateSubcmdnext_Click() OnoTo Not adoPrimaryRS.EOF ThenadoPrimaryRS.EOF And 0End IfEnd SubPrivateSubcmdnext_Click() OnoTo Not adoPrimaryRS.EOF ThenadoPrimaryRS.EOF And 0End Ifhanged=Exit Sub End SubPrivateSubOn oTo Ifa

21、doPrimaryRS.BOFAndadoPrimaryRS.RecordCount 0 End If hanged=False Exit SubEnd SubPrivateSubSetButtons(bValAs cmdAdd.Visible = bVal)cmdEdit.Visible= =NotbVal NotbVal cmdClose.Visible = bVal cmdRefresh.Visible=bVal cmdNext.Enabled = bVal.Enabled = cmdLast.Enabled = bVal cmdPrevious.Enabled=bValEnd 3Pri

22、vateSubSetButtons(bValAs cmdAdd.Visible = bVal)cmdEdit.Visible= =NotbVal NotbVal cmdClose.Visible = bVal cmdRefresh.Visible=bVal cmdNext.Enabled = bVal.Enabled = cmdLast.Enabled = bVal cmdPrevious.Enabled=bValEnd 3更通過用戶對自己3-3-Private Sub Set DbRs = New If txtSecond.Text .Text +MsgBox 兩次不一同！ 請重輸。 , v

23、bCritical,ExitSub End IfDbRs.Open Select * From Authority where UserName & & userName & , dbConn, adOpenS DbRs.Fields(1).Value=txt .Text& Unload Me4訂購（3-DbRs.Fields(1).Value=txt .Text& Unload Me4訂購（3-3-（可以不填、當(dāng)填完需要買的一本書的定單后可以按“下一、每個專業(yè)有一張自己的必修課的定單，按“下一、如果你輸入有誤，在沒有保存的情況下可以按 手人、課程名稱、專業(yè)、專業(yè)號、年級、系別、ISBN（據(jù)后

24、就會在下方出現(xiàn)有張列表C據(jù)后就會在下方出現(xiàn)有張列表CPrivateSubcboProfes Select Case Case txtPNum1.Text = 1 ComboPartion1.TexttxtPNum1.Enabled = False ComboPartion1.Enabled=FalseCasetxtPNum1.Text = 2 ComboPartion1.Text txtPNum1.Enabled = False ComboPartion1.EnabledFalseCase 社會工作 txtPNum1.Text3ComboPartion1.Text txtPNum1.Enabl

25、ed = False ComboPartion1.EnabledFalseCase 醫(yī)用電子 txtPNum1.Text4ComboPartion1.Text txtPNum1.Enabled = FalseComboPartion1.EnabledFalse txtPNum1.Text = 5 ComboPartion1.Text txtPNum1.Enabled = False ComboPartion1.EnabledFalsetxtPNum1.Text6ComboPartion1.Text txtPNum1.Enabled = False ComboPartion1.EnabledFa

26、lsetxtPNum1.Text7ComboPartion1.Text txtPNum1.Enabled = False ComboPartion1.EnabledComboPartion1.EnabledFalse txtPNum1.Text = 5 ComboPartion1.Text txtPNum1.Enabled = False ComboPartion1.EnabledFalsetxtPNum1.Text6ComboPartion1.Text txtPNum1.Enabled = False ComboPartion1.EnabledFalsetxtPNum1.Text7Combo

27、Partion1.Text txtPNum1.Enabled = False ComboPartion1.EnabledFalseSendKeys 1=blnGrade1 cmdEnter1.Enabled = 1AndEnd Sub53-3-、Dim3-3-、DimconnectionAsDimstrConn PrivateSub Dim num Asnum = As String Dim recordset5 As Recordset Setrecordset5=NewRecordsetrecordset5.CursorLocation = recordset5.Open select f

28、rom connection,adOpenDynamic,adLockOptimistic If recordset5.RecordCount 0 ThenWhileNotrecordset5.Open select from connection,adOpenDynamic,adLockOptimistic If recordset5.RecordCount 0 ThenWhileNotIf recordset5.Fields().Value cbbxclass.Text Thennum = num + 1 End If txtnum.Text = =庫的的查詢有密切的關(guān)系如圖 3-10、3

29、-113-3-第4.1 數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計的主要任務(wù)是在 SBMS(database management 4.1.1庫概念和發(fā)數(shù)據(jù)庫在計算機內(nèi)、有組織的、可共享的數(shù)據(jù)集合，的建紀(jì) 60 第4.1 數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計的主要任務(wù)是在 SBMS(database management 4.1.1庫概念和發(fā)數(shù)據(jù)庫在計算機內(nèi)、有組織的、可共享的數(shù)據(jù)集合，的建紀(jì) 60 年代這漫長的 20 年里，計算機操作系統(tǒng)還主要局限于文件的七十年代初，E.F.Codd四INGRES，Oracle 等。個系數(shù)據(jù)庫系統(tǒng)，比較知名的如 Sybase，Oracle，Informix，SQL Server，DB2 等。數(shù)據(jù)

30、庫模型及INGRES，Oracle 等。個系數(shù)據(jù)庫系統(tǒng)，比較知名的如 Sybase，Oracle，Informix，SQL Server，DB2 等。數(shù)據(jù)庫模型及參照完整性3. 4. 。(1)關(guān)系模型的 DBMS 能夠提供較高的數(shù)據(jù)獨立性以及非過程(2) 關(guān)系模型的3. 4. 。(1)關(guān)系模型的 DBMS 能夠提供較高的數(shù)據(jù)獨立性以及非過程(2) 關(guān)系模型的系統(tǒng)要求應(yīng)用程序員和 DBA 應(yīng)熟悉關(guān)系數(shù)據(jù)4.1.3 數(shù)據(jù)庫的建立與連接Dimd, sfs= d = App.Path & book.mdb CommonDialog1.Filter=Ac e=CommonDialog1.FileName

31、 If e = ThenEnd Ifs2000Set dbConnection = NothingSetdbRecordset= fs.copyfileDimd, sfs= d = App.Path & book.mdb CommonDialog1.Filter=Ac e=CommonDialog1.FileName If e = ThenEnd Ifs2000Set dbConnection = NothingSetdbRecordset= fs.copyfilee,d, End （部分代碼ODBC，ODBC據(jù)庫連接）是由微軟定義標(biāo)準(zhǔn)。ODBC 是一種數(shù)據(jù)庫上。ODBCODBC：圖 通過 O

32、DBC 驅(qū)動管理器連接客戶應(yīng)用程序和 4.2據(jù)庫查4.2.1 查詢功能簡介4.2.2 查詢功能實現(xiàn)的相關(guān)技術(shù)對象圖 通過 ODBC 驅(qū)動管理器連接客戶應(yīng)用程序和 4.2據(jù)庫查4.2.1 查詢功能簡介4.2.2 查詢功能實現(xiàn)的相關(guān)技術(shù)對象SQL 是一種數(shù)據(jù)庫的查詢和編程語言，英文名為 Structure QueryLanguage,即結(jié)構(gòu)化查詢語言。它是一種對數(shù)據(jù)庫中的數(shù)據(jù)SQL 語言編寫提取信息它使用了某種規(guī)則以獲 數(shù)目有限的特。數(shù)據(jù)庫管理系統(tǒng)（DBMS）對 SQL 請求DBMSSQLDBMSSQLSQL 語言編寫提取信息它使用了某種規(guī)則以獲 數(shù)目有限的特。數(shù)據(jù)庫管理系統(tǒng)（DBMS）對 SQL

33、 請求DBMSSQLDBMSSQL2、數(shù)(1)對象（DatasObjects）簡，是合、對象、方法、和屬性。在 Visual Basic 代碼中使用，可以進(jìn)行查詢，更新數(shù)據(jù)庫中的值，創(chuàng)建數(shù)Jet 數(shù)據(jù)庫還提供了某些 SQL 還JetODBC(2)在代碼中使用操作數(shù)據(jù)庫時首先要確定使用哪個對象更為合適，然后執(zhí)行其方法并設(shè)置和獲取其屬必須DatabaseRecordSet4.2.3 查詢功能的具體實現(xiàn)1PrivateSubcmdSave_Click() Dim 訂購查詢 As VariantIf ModifyOrder = False DatabaseRecordSet4.2.3 查詢功能的具體實

34、現(xiàn)1PrivateSubcmdSave_Click() Dim 訂購查詢 As VariantIf ModifyOrder = False MsgBox 對不起，你無權(quán)對你所做的修改作出保存！ vbCrLf & 請與管理員聯(lián)系！, vbOKOnly + vbCritical&+&Bookhelp.hlp,ExitSub End IfDim aAsa vbYesNovbQuestion, If a vbYes ThenEnd IfusBar1.Panels(1).TextrstAsADODB.Recordset strWhere As String strsql As String strDat

35、 As String strToday As StringDimgetStringAsString blnNoRecordset = False blnClick = TrueSet rst = New Select * from = Where strsql =strWhere &GetWhereString(cboYear,strWhere &GetWhereString(cboPart, 系部)=strWhere&,IfDimgetStringAsString blnNoRecordset = False blnClick = TrueSet rst = New Select * from = Where strsql =strWhere &GetWhereString(cboYear,strWhere &GetWhereString(cboPart, 系部)=strWhere&,IfcboDate.Tag=vbCheckedAndLen(cboDate.Text) 請 輸 入 或 選 擇 Trim