數(shù)據(jù)庫(kù)作業(yè)課程設(shè)計(jì)

我重點(diǎn)介紹的是信息管理模塊。本系統(tǒng)支持信息查詢、添加、刪除①客戶在系統(tǒng)中完成瀏覽和訂購(gòu)。主要業(yè)務(wù)和流程包括：查詢、瀏覽商品→選店員在系統(tǒng)中完成商品管理、訂單處理等：商品上架、下架；商品折扣管理；商品匯③我所設(shè)計(jì)的信息管理模塊中客戶類的用戶能查詢、瀏覽（包括瀏覽本書(shū)信和相關(guān)列表）。查看個(gè)人。店員類的用戶能基本信息、包括增加、刪除、改動(dòng)等；折扣管理；信息匯總。11324信圖1網(wǎng)店的數(shù)據(jù)流3的屬性，建立實(shí)體聯(lián)系模型的E-R2 Bookstore3號(hào)m號(hào)n社圖2網(wǎng)店的E-R1PrimaryNotNullCharNotNotPrimaryNotNullNotNotNullNotNotNotNullDefaultPrimaryNotNotNotNotDefaultDefaultDefault2CustomerPrimaryNot√CharNotNot√表3BookPrimaryNot√N(yùn)otNot√N(yùn)ot√N(yùn)otNotDefaultBookSort表4OrderPrimaryNot√N(yùn)otNotNotNotDefaultDefault“P”“F”“C”“C”“I”“F”“PPrimaryOrder:PrimaryBook:Default用用戶登錄界面，即進(jìn)行驗(yàn)證，根據(jù)用戶權(quán)限使用不同功能當(dāng)人類步入21世紀(jì)，已經(jīng)滲透成為社會(huì)經(jīng)濟(jì)生活各個(gè)角落的重要支撐在課程設(shè)計(jì)的每一個(gè)階段中，都會(huì)有不一樣的收獲，每一次和老師的交流中在課程設(shè)計(jì)中，我學(xué)會(huì)了自己提出問(wèn)題、自己分析問(wèn)題，通過(guò)人機(jī)自己解決條件等，而且在輸入數(shù)據(jù)時(shí)，總會(huì)彈出警告的窗口。之后的程序設(shè)計(jì)，由于以前沒(méi)學(xué)過(guò)VB，對(duì)VB知識(shí)的欠缺，使得問(wèn)題，在課堂上問(wèn)老師，這才把關(guān)鍵問(wèn)題給解決，然后C劉曉強(qiáng).《信息系統(tǒng)與數(shù)據(jù)庫(kù)技術(shù)，：機(jī)械工業(yè)王東.《信息系統(tǒng)概論，：吳昊、周美玲《VisualBasic程序設(shè)計(jì)》,人民郵電程序FormPublicClassPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadTimer1.Enabled=TrueEndSubLabel1.Left=Label1.Left-IfLabel1.Left<0ThenLabel1.Left=274EndSubPrivateSubTimer1_Tick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTimer1.TickCallmymove()EndPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesEndSubEndFormPublicClassPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesIfLen(TextBox1.Text)<>8MsgBox(MsgBoxStyle.RetryCancel48EndIfIfTextBox2.Text<>"123456"MsgBox("賬號(hào)或錯(cuò)誤，請(qǐng)從新輸入",MsgBoxStyle.RetryCancel+48,"警告")EndIfIfLen(TextBox1.Text)=8AndTextBox2.Text="123456"ThenEndIfEndSubPrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesEndPrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubEndFormImportssystem.data.sqlPublicClassForm3PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDimcnAsNewSqlConnection("Initialcatalog=book;datasource=(local);"&"integratedDimsqlAsString="select*fromT_Bookwherebookcode="&TextBox1.Text&""DimadAsSqlDataAdapter=NewSqlDataAdapter(Sql,cn)DimdsAsNewDataSet()ad.Fill(ds,"T_Book")DataGrid1.datasource=ds.Tables("T_Book")EndSubPrivateSubDataGrid1_Navigate(ByValsenderAsSystem.Object,ByValneAsSystem.Windows.Forms.NavigateEventArgs)HandlesDataGrid1.NavigateEndSubEndClassFormPublicClassPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesIfLen(TextBox1.Text)=5AndTextBox2.Text="123456"ThenMsgBox("賬號(hào)或者錯(cuò)誤，請(qǐng)從新輸入",MsgBoxStyle.RetryCancel+48,"警告")EndIfEndPrivateSubForm4_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubEndFormImportssystem.data.sqlPublicClassForm5PublicmybindAsPrivateSubDataGrid1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesDataGrid1.Clickmybind.Position=DataGrid1.CurrentRowIndexEndPrivateSubDataGrid1_Navigate(ByValsenderAsSystem.Object,ByValneAsSystem.Windows.Forms.NavigateEventArgs)HandlesDataGrid1.NavigateSqlDataAdapter1.Fill(DataSet11,"T_Book")EndSubPrivateSubTextBox9_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesEndPrivateSubGroupBox1_Enter(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesEndSubPrivateSubLabel13_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesEndPrivateSubForm5_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Loadmybind=BindingContext(DataSet11,"T_Book")SqlDataAdapter1.Fill(DataSet11,"T_Book")EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=0DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Position-1DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Position+1DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Count-1DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)DataGrid1.CurrentRowIndex=mybind.PositionEndSubPrivateSubButton7_Click(ByValsenderA