数据库实验报告范例Word格式.docx
- 文档编号:21777983
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:17
- 大小:59.69KB
数据库实验报告范例Word格式.docx
《数据库实验报告范例Word格式.docx》由会员分享,可在线阅读,更多相关《数据库实验报告范例Word格式.docx(17页珍藏版)》请在冰豆网上搜索。
费用信息(费用名称,凭证号,收/付款单位,应收/付金额,实收/付金额,实收/付日期)。
6.数据库实现
创建系统用户表格user_Info
[user_ID][varchar](10)COLLATEChinese_PRC_CI_ASNOTNULL,
[user_PWD][varchar](10)COLLATEChinese_PRC_CI_ASNULL,
创建货船信息表格 GoodsInfo
[orderNo][varchar](10)COLLATEChinese_PRC_CI_ASNOTNULL,
[shipname][varchar](10)COLLATEChinese_PRC_CI_ASNOTNULL,
[vessel][varcher](10)NULL,
[departureprot][varcher](10)NULL,
[destination][varchar](10)COLLATEChinese_PRC_CI_ASNULL,
[Arrivetime][date]COLLATEChinese_PRC_CI_ASNULL,
[Leavetime][date]COLLATEChinese_PRC_CI_ASNULL,
创建货物信息表格 Goods
[goodsname][varchar](10)COLLATEChinese_PRC_CI_ASNOTNULL,
[goodsclass][varchar](10)COLLATEChinese_PRC_CI_ASNOTNULL,
[weight][varchar](10)COLLATEChinese_PRC_CI_ASNULL,
[count][varcher](10)NULL,
[boxNo][varchar](10)COLLATEChinese_PRC_CI_ASNOTNULL
创建货主及代理信息表Owner
[owner][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[agent][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[agentTel][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[comissionedDate][date]COLLATEChinese_PRC_CI_ASNULL
[companyName][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[address][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[bank][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[bankCount][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[contacher][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[head][varcher](10)COLLATEChinese_PRC_CI_ASNULL
创建客户信息表feeInfo
[feename][varchar](10)COLLATEChinese_PRC_CI_ASNOTNULL,
[fee][varcher](10)COLLATEChinese_PRC_CI_ASNULL)
[realfee][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[realtime][date]COLLATEChinese_PRC_CI_ASNULL
[company][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[flag][varcher](10)COLLATEChinese_PRC_CI_ASNULL
[certificateNo][varcher](10)COLLATEChinese_PRC_CI_ASNULL
7.应用系统设计实现
登陆界面Login
PrivateSubCmdLogin_Click()
IfTxtLoginUid.Text="
"
ThenMsgBox"
帐户不能为空!
vbOKOnly:
ExitSub
IfTxtLoginPwd.Text="
密码不能为空!
'
DimcnStrAsString
DimcnAsADODB.Connection
Setcn=NewADODB.Connection
DimrsAsADODB.Recordset
DimrsStrAsString
Setrs=NewADODB.Recordset
cn.OpenMStr
rsStr="
Select*fromUserInfoWhereUserId='
+TxtLoginUid.Text+"
'
andpassword='
+TxtLoginPwd+"
rs.OpenrsStr,cn,adOpenStatic,adLockOptimistic
Ifrs.RecordCount<
0Then
MsgBox("
用户名或密码错误!
)
Else
Module1.userFlag=rs.Fields
(2)
LoadfrmMain
frmMain.Show
Ifcn.State=1Then
cn.Close
EndIf
Setcn=Nothing
UnloadFrmLogin
EndSub
次级主界面Main
PrivateSubForm_Load()
IfModule1.userFlag=2Then
feeManage.Enabled=False
feeManage.Visible=False
ElseIfModule1.userFlag=3Then
OwnerManage.Enabled=False
OwnerManage.Visible=False
PrivateSubGoodsAdd_Click()
LoadfrmGoodsAdd
frmGoodsAdd.Show
PrivateSubGoodsQuery_Click()
LoadfrmGoodsQuery
frmGoodsQuery.Show
PrivateSubfeeAdd_Click()
LoadfrmFeeAdd
frmFeeAdd.Show
PrivateSubfeeQuery_Click()
LoadfrmFeeQuery
frmFeeQuery.Show
PrivateSubOwnerManage_Click()
LoadfrmOwnerManage
frmOwnerManage.Show
货主管理界面OwnerManage
PrivateSubCmdAdd_Click()
Select*fromOwnerWhereCompanyName='
+DCCompanyName.Text+"
Ifrs.RecordCount=1Then
MsgBox"
已存在此货主信息!
DimrsStr1AsString
InsertIntoOwner(companyName,contacter,telephone,address,bank,bankacount,head)Values('
'
+txtContacter.Text+"
+txtTelephone.Text+"
+txtAddress.Text+"
+txtBank.Text+"
+txtBankAccount.Text+"
+txtHead.Text+"
)"
rs.Close
恭喜,添加成功!
Calldatabind
PrivateSubCmdAll_Click()
Select*fromOwner"
SetDGOwner.DataSource=rs
PrivateSubCmdDelete_Click()
DeleteFromOwnerWherecompanyName='
恭喜,删除成功成功!
PrivateSubCmdUpdate_Click()
UpdateOwnerSetcontacter='
telephone='
+txtTelephone.Text&
_
"
address='
bank='
bankacount='
head='
WherecompanyName='
&
DCCompanyName.Text+"
恭喜,修改成功成功!
PrivateSubCmdQuery_Click()
txtContacter.Text=rs.Fields
(1).Value
txtTelephone.Text=rs.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
txtContacter.Text="
txtTelephone.Text="
txtAddress.Text="
txtBank.Text="
txtBankAccount.Text="
txtHead.Text="
PublicFunctiondatabind()
DimcnAsADODB.Connection
SetDCCompanyName.RowSource=rs
DCCompanyName.ListField="
companyName"
Ifrs.RecordCount>
DCCompanyName.Text=rs.Fields(0).Value
EndFunction
货物增加信息GoodsAdd
PrivateSubCmdGoodsAdd_Click()
IftxtShipName.Text="
ThenMsgBox("
船名不能为空!
):
IftxtVessel.Text="
船次不能为空!
IftxtStart.Text="
出发港不能为空!
IftxtDestination.Text="
目的港不能为空!
IftxtArriveTime.Text="
预计到港时间不能为空!
IftxtLeaveTime.Text="
预计离港时间不能为空!
IftxtRealArriveTime.Text="
IftxtRealLeaveTime.Text="
IftxtGoodsName.Text="
货名不能为空!
IftxtClass.Text="
货物种类不能为空!
IftxtWeight.Text="
货物重量不能为空!
IftxtCount.Text="
货物数量不能为空!
IftxtBoxNo.Text="
箱号不能为空!
IftxtCompany.Text="
委托公司不能为空!
IftxtDate.Text="
代理日期不能为空!
IftxtAgent.Text="
代理人不能为空!
IftxtAgentTel.Text="
代理人电话不能为空!
IfMsgBox("
确认添加信息?
vbOKCancel)=vbOKThen
InsertintoGoodsInfoValues('
+txtShipName.Text+"
+txtVessel.Text+"
+txtStart.Text+"
+txtDestination.Text+"
+txtArriveTime.Text+"
+txtLeaveTime.Text+"
+txtRealArriveTime.Text+"
+txtRealLeaveTime.Text+"
txtGoodsName.Text+"
+txtClass.Text+"
"
+txtWeight.Text+"
+txtCount.Text+"
+txtBoxNo.Text+"
txtCompany.Text+"
+txtDate.Text+"
+txtAgent.Text+"
+txtAgentTel.Text+"
恭喜,添加成功"
UnloadfrmGoodsAdd
EndIf
费用增加信息FeeAdd
PrivateSubCmdSubmit_Click()
IftxtFeeName.Text="
费用名称不能为空!
:
IftxtFee.Text="
费用额不能为空!
收/付款单位不能为空!
IfrealFee.Text="
实收/实付金额不能为空!
IfrealTime.Text="
实收/实付时间不能为空!
cnStr="
Provider=SQLOLEDB.1;
InitialCatalog=MyDB;
UID=feng;
PWD=feng123;
persitSecurityInfo=True;
DataSource=JUNIE\JUNIE"
InsertintoF
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 实验 报告 范例