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
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1