信息系统与数据库技术报告

——管一、课程设计目的和要课程设计目课程设计的）6管理要有客户和店员两个方面的功能客户类的用户能、个人信息；查看个人记录；查看个人。店员类的用户能查询）浏览、汇总；客户评价；客户分类二、分业务需汇总（包括分类汇总；销售分析（包括按时间、类别、客户地域、客户类别等汇总；客户分析（按客户订单汇总、客 分析、客户重要性、忠诚分析等数据处理系统涉及的数据源有数据数据产生信息表、网店系统结构 管理购书管分维护 购书车管客户分汇总折扣 订单管表网店系统结三、课程设计的主要数据库概念的设：有关于数据库的设计:该课程设计的是网店的信息管理系统，所以一定要有客户表用于客户的基本信息还要有表用于基本情况订单表用于订单的基本情况，订单详细情况表订单的详细情况。所以我们：数据库逻辑管理E-R所所省客号职生等m联支方订号发方订数发 订地 时类折价时内简社书 书 作客数据库建

BookOrder订单表，用于订单的基本情2.系统开发设系统技术我所做的题目是的管理模块设计要求是能够有客户和店员两方面的要求。客户类的用户能够，个人信息；查看个人记录;查看个人册的用户能够登录查看一些自己所要的信息而一些新成员能够进入界面在填写完相关的个人信息以及自己所设定的之后就正式成为新成员该也所指的长期不登陆用户要有一定的时间限定或可以在他时有一定的条例是他在时就会有一定的了解。界面设计与代码1）与登1）2)店员类用户及客户类用户填入客户号与工号进行登录与，新的用户要4)查看个人打开VisualBasic2005，在项目里添加Windows窗体。在窗体上创Imports.VisualBasic.DateAndTimePublicClassForm2Dimn!,i!,k!,PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndPrivateSubCustomerBindingNavigatorSaveItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsHandles'TODO“Zym_DataDataSet.customer”中。您可以根据需要移动或bm=""m=n=Zym_DataDataSet.Tables("customer").Rows.Countk=Len(Str(n))Fori=0To8-kbm&="0"bm&=nLabel12.Text=bmLabel15.Text=""Label16.Text="C"Label17.Text="C"DateTimePicker1.Value=NowEndPrivateSubCustomerBindingNavigatorSaveItem_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubCustomerBindingNavigatorSaveItem_Click_2(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubTextBox6_LostFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTextBox6.LostFocusIfTextBox5.Text=""ThenElseIfTextBox6.Text<>TextBox5.TextThenTextBox6.Text=""EndIfEndPrivateSubTextBox6_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox6.TextChangedEndPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfTextBox1.Text=""OrTextBox2.Text=""OrTextBox4.Text=""OrTextBox5.Text=""OrComboBox1.Text=""OrComboBox2.Text=""ThenIfm=0DateTimePicker1.Value=NowEndIfLabel12.Text=bmLabel15.Text=""Label16.Text="C"Label17.Text="C"cus=nEndIfEndSubPrivateSubDateTimePicker1_ValueChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDateTimePicker1.ValueChangedm=m+1EndSubPrivateSubTextBox5_LostFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTextBox5.LostFocusIfLen(TextBox5.Text)6ThenEndIfEndSubPrivateSubTextBox5_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox5.TextChangedEndSubEndClass购书车与折扣管5）订单三、课程设计，本次课程设计我所做的是客户管理系统这个系统无论是从设计还是运行上我都遇上了很大的麻烦确实这个设计十分通过这一次的课程设VB.net，VBVBForm法