数据库实验报告范例.docx

1、数据库实验报告范例1实验目的：掌握数据库模式设计，依据实际要求设计表结构，建立表的关系；结合一定的开发工具实现数据库应用程序的开发。2实验环境2.1 硬件环境：处理器：Inter Core 2。 显卡：NVIDIA GeForce 9700 GT。硬盘：500G。2.2 软件环境（包括操作系统、应用服务器配置、开发环境配置等）Windows XP，SQL server 2005，VB 6.03需求分析：针对库存管理系统，描述其主要功能，给出E-R图；买主发出要求，说明所买货物情况，货主接到订单后联系货船向买家发送货物，货物由货船运往目的地。到达目的地后由委托的代理人帮助货主联系车队和场地。4概

2、念结构设计：如以下E-R图5逻辑结构设计 主要关系有货物（货名，箱号，提单号，类别，数量，重量，航次）；货船（航次，船名，出发港，目的港，预计离港时间，预计到达时间）；货主（联系人，联系电话，公司名称，地址，开户银行，银行账号，发票抬头）；买主（联系人，联系电话，公司名称，开户银行，银行账号）；代理人（联系电话，委托公司，委托日期）；费用信息（费用名称，凭证号，收/付款单位，应收/付金额，实收/付金额，实收/付日期）。6数据库实现创建系统用户表格 user_Info user_IDvarchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, user_PWD

3、varchar (10) COLLATE Chinese_PRC_CI_AS NULL,创建货船信息表格GoodsInfo orderNovarchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, shipnamevarchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, vesselvarcher(10) NULL, departureprotvarcher(10) NULL, destinationvarchar(10) COLLATE Chinese_PRC_CI_AS NULL, Arrivetimedate CO

4、LLATE Chinese_PRC_CI_AS NULL, Leavetimedate COLLATE Chinese_PRC_CI_AS NULL,创建货物信息表格Goods goodsnamevarchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, goodsclassvarchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, weightvarchar(10) COLLATE Chinese_PRC_CI_AS NULL, countvarcher(10) NULL, boxNovarchar(10) COLLAT

5、E Chinese_PRC_CI_AS NOT NULL创建货主及代理信息表 Owner ownervarcher(10) COLLATE Chinese_PRC_CI_AS NULLagentvarcher(10) COLLATE Chinese_PRC_CI_AS NULLagentTelvarcher(10) COLLATE Chinese_PRC_CI_AS NULLcomissionedDatedate COLLATE Chinese_PRC_CI_AS NULLcompanyNamevarcher(10) COLLATE Chinese_PRC_CI_AS NULLaddressv

6、archer(10) COLLATE Chinese_PRC_CI_AS NULLbankvarcher(10) COLLATE Chinese_PRC_CI_AS NULLbankCountvarcher(10) COLLATE Chinese_PRC_CI_AS NULLcontachervarcher(10) COLLATE Chinese_PRC_CI_AS NULLheadvarcher(10) COLLATE Chinese_PRC_CI_AS NULL创建客户信息表feeInfofeenamevarchar(10) COLLATE Chinese_PRC_CI_AS NOT NU

7、LL,feevarcher(10) COLLATE Chinese_PRC_CI_AS NULL) realfeevarcher(10) COLLATE Chinese_PRC_CI_AS NULLrealtimedate COLLATE Chinese_PRC_CI_AS NULLcompanyvarcher(10) COLLATE Chinese_PRC_CI_AS NULLflagvarcher(10) COLLATE Chinese_PRC_CI_AS NULLcertificateNovarcher(10) COLLATE Chinese_PRC_CI_AS NULL7应用系统设计实

8、现登陆界面LoginPrivate Sub CmdLogin_Click() If TxtLoginUid.Text = Then MsgBox 帐户不能为空！, vbOKOnly: Exit Sub If TxtLoginPwd.Text = Then MsgBox 密码不能为空！, vbOKOnly: Exit Sub Dim cnStr As String Dim cn As ADODB.Connection Set cn = New ADODB.Connection Dim rs As ADODB.Recordset Dim rsStr As String Set rs = New A

9、DODB.Recordset cn.Open MStr rsStr = Select * from UserInfo Where UserId= + TxtLoginUid.Text + and password= + TxtLoginPwd + rs.Open rsStr, cn, adOpenStatic, adLockOptimistic If rs.RecordCount 0 Then DCCompanyName.Text = rs.Fields(0).Value txtContacter.Text = rs.Fields(1).Value txtTelephone.Text = rs

10、.Fields(2).Value txtAddress.Text = rs.Fields(3).Value txtBank.Text = rs.Fields(4).Value txtBankAccount.Text = rs.Fields(5).Value txtHead.Text = rs.Fields(6).Value End IfEnd Function货物增加信息GoodsAddPrivate Sub CmdGoodsAdd_Click()If txtShipName.Text = Then MsgBox (船名不能为空！): Exit SubIf txtVessel.Text = T

11、hen MsgBox (船次不能为空！): Exit SubIf txtStart.Text = Then MsgBox (出发港不能为空！): Exit SubIf txtDestination.Text = Then MsgBox (目的港不能为空！): Exit SubIf txtArriveTime.Text = Then MsgBox (预计到港时间不能为空！): Exit SubIf txtLeaveTime.Text = Then MsgBox (预计离港时间不能为空!): Exit SubIf txtRealArriveTime.Text = Then MsgBox (预计到港

12、时间不能为空！): Exit SubIf txtRealLeaveTime.Text = Then MsgBox (预计离港时间不能为空!): Exit SubIf txtGoodsName.Text = Then MsgBox (货名不能为空！): Exit SubIf txtClass.Text = Then MsgBox (货物种类不能为空！): Exit SubIf txtWeight.Text = Then MsgBox (货物重量不能为空！): Exit SubIf txtCount.Text = Then MsgBox (货物数量不能为空！): Exit SubIf txtBox

13、No.Text = Then MsgBox (箱号不能为空！): Exit SubIf txtCompany.Text = Then MsgBox (委托公司不能为空！): Exit SubIf txtDate.Text = Then MsgBox (代理日期不能为空！): Exit SubIf txtAgent.Text = Then MsgBox (代理人不能为空！): Exit SubIf txtAgentTel.Text = Then MsgBox (代理人电话不能为空！): Exit SubIf MsgBox(确认添加信息？, vbOKCancel) = vbOK Then Dim

14、cn As ADODB.Connection Dim rsStr As String Set cn = New ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset cn.Open MStr rsStr = Insert into GoodsInfo Values( + txtShipName.Text + , + txtVessel.Text + , + txtStart.Text + , + txtDestination.Text + , + txtArriveTime.Text + , + txtL

15、eaveTime.Text + , + txtRealArriveTime.Text + , + txtRealLeaveTime.Text + , & _ txtGoodsName.Text + , + txtClass.Text + , + txtWeight.Text + , + txtCount.Text + , + txtBoxNo.Text + , & _ txtCompany.Text + , + txtDate.Text + , + txtAgent.Text + , + txtAgentTel.Text + ) rs.Open rsStr, cn, adOpenStatic,

16、 adLockOptimistic MsgBox (恭喜，添加成功) Unload frmGoodsAddEnd IfEnd Sub费用增加信息FeeAddPrivate Sub CmdSubmit_Click()If txtFeeName.Text = Then MsgBox 费用名称不能为空！: Exit SubIf txtFee.Text = Then MsgBox 费用额不能为空！: Exit SubIf txtCompany.Text = Then MsgBox 收/付款单位不能为空！: Exit SubIf realFee.Text = Then MsgBox 实收/实付金额不能为

17、空！: Exit SubIf realTime.Text = Then MsgBox 实收/实付时间不能为空！: Exit SubIf MsgBox(确认添加信息？, vbOKCancel) = vbOK Then Dim cn As ADODB.Connection Dim rsStr As String Set cn = New ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset cnStr = Provider=SQLOLEDB.1;Initial Catalog=MyDB;UID=feng;PWD=feng123;persit Security Info=True;Data Source=JUNIEJUNIE cn.Open MStr rsStr = Insert into F