網(wǎng)上圖書管理系統(tǒng)方案(文件)
【正文】 說明功能備注序號Nvarchar4書店名稱Char20書店數(shù)目Nvarchar6七、部分編程實現(xiàn)：：操作員輸入自己的用戶名和密碼，以不同身份進(jìn)入網(wǎng)上書店管理系統(tǒng)。Private Con As Private rs As Private Const constr = driver={sql server}。 amp。 amp。ElseMsgBox 非法用戶！End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()identify = 1End SubPrivate Sub txtname_Change()End Sub：系統(tǒng)操作平臺的所有功能，通過主窗體連接起來。Data Source= amp。server=(local)。Dim Cnn As Dim Rst As Dim sql As StringPrivate Sub Combo2_Change()End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0:39。End IfEnd SelectEnd SubPrivate Sub Command2_Click()(編號) = (書名) = (新舊) = (出版日期) = (所在書店) = (原價) = (會員價) = (svip價) = MsgBox 修改成功！Unload Form9End SubPrivate Sub Form_Load() 新 舊 0001 0002 0003 0004Set Cnn = New 39。 \。刪除圖書信息。End IfCase 1:If Not Then = (編號) = (書名) = (新舊) = (出版日期) = (所在書店) = (原價) = (會員價) = (svip價)ElseEnd IfCase 2:If Not Then = (編號) = (書名) = (新舊) = (出版日期) = (所在書店) = (原價) = (會員價) = (svip價)ElseEnd IfCase 3:39。Data Source= amp。server=(local)。% amp。 amp。database=bookshopPrivate Sub Command1_Click()Unload Form6End SubPrivate Sub Form_Load()sql = select ,書名,新舊,書店名稱,原價,會員價,svip價,簡介,熱銷度 From TABLE1, shop where =Set Con = New With Con.ConnectionString = constr.OpenEnd WithSet rs = New sql, Con, adOpenKeyset, adLockOptimisticSet = rsEnd SubPrivate Sub m1_Click()End Sub硬件接口本系統(tǒng)可在一般的windows X86操作系統(tǒng)上運行。各個模塊單獨編寫，最后集成到一個系統(tǒng)中。是狼就要練好牙，是羊就要練好腿。拼一個春夏秋冬！贏一個無悔人生！早安！—————獻(xiàn)給所有努力的人.。不奮斗就是每天都很容易，可一年一年越來越難。解決數(shù)據(jù)庫的性能問題，可以從以下方面入手，檢查數(shù)據(jù)庫的配置，如緩沖池，排序堆等是否合理；檢查數(shù)據(jù)庫是否收集過統(tǒng)計信息，準(zhǔn)確的統(tǒng)計信息對語句優(yōu)化起著重要的左右；對sql語句進(jìn)行優(yōu)化；查看是否有系統(tǒng)資源。在進(jìn)行登錄、查詢時，先將數(shù)據(jù)庫附加好了，就可運行。Private Con As Private rs As Private Const constr = driver={sql server}。 39。 %39。server=(local)。為用戶提供圖書查詢功能。 \。End IfEnd SelectEnd SubPrivate Sub Command2_Click()MsgBox 刪除成功！Unload Form8End SubPrivate Sub Form_Load() 新 舊 0001 0002 0003 0004Set Cnn = New 39。Dim Cnn As Dim Rst As Dim sql As StringPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0:39。server=(local)。Data Source= amp。End IfCase 1:If Not Then = (編號) = (書名) = (新舊) = (出版日期) = (所在書店) = (原價) = (會員價) = (svip價)ElseEnd IfCase 2:If Not Then = (編號) = (書名) = (新舊) = (出版日期) = (所在書店) = (原價) = (會員價) = (svip價)ElseEnd IfCase 3:39。修改圖書信息。 \。Dim Cnn As Dim Rst As Dim sql As StringPrivate Sub Command2_Click()(編號) = (書名) = (新舊) = (出版日期) = (所在書店) = (原價) = (會員價) = (svip價) = (熱銷度) = (CInt() + CInt() + CInt()) \ 3MsgBox 插入成功！Unload Form7End SubPrivate Sub Form_Load() 新 舊 0001 0002 0003 0004Set Cnn = New 39。：。 Set Con = New With Con.ConnectionString = constr.OpenEnd WithSet rs = New sql, Con, adOpenKeyset, adLockOptimisticIf ( 0) Thenidentity = CInt((身份))Unload MeSelect Case identityCase 0Unload Form1Case 1Unload Form1Case 2 = FalseUnload Form1End Select39。and 密碼=39。database=bookshopPrivate Sub Command1_Click()sql = select 身份 from TABLE4 where 用戶名=39。VB:本系統(tǒng)所使用的編程語言 本系統(tǒng)將采用SQL server數(shù)據(jù)庫，數(shù)據(jù)庫名稱為bookshop 1 “管理員、顧客”表格：用戶名、賬號、密碼、備注 2 “
公司管理相關(guān)推薦
鄂ICP備17016276號-1