数据库大型实验报告Word文档下载推荐.docx
《数据库大型实验报告Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《数据库大型实验报告Word文档下载推荐.docx（53页珍藏版）》请在冰点文库上搜索。
字段类型
字段大小
编号
int
4
类别
Char
10
名称
规格
数量
Int
单价
Float
8
金额
计量单位
折扣
供应商
生产商
库存编号
存放位置
库存日期
Datetime
备注
varchar
255
主键——编号外键——计量单位
客户信息表（Client）
char
类型
性别
地址
50
联系电话
移动电话
电子邮件
QQ
MSN
信用
重要性
Varchar
存储过程说明:
存储过程名称
描述
作用
Proc_CClear
CREATEPROCEDUREproc_CClear
AS
deletefromCtemp
GO
删除客户表Ctemp中内容
Proc_Client
CREATEPROCEDUREproc_Client
declare@编号int
declare@名称char（10）
declare@类型char（10）
declare@性别char
（2）
declare@地址varchar（250）
declare@联系电话char（10）
declare@移动电话char（10）
declare@电子邮件char（50）
declare@QQint
declare@MSNint
declare@信用char（10）
declare@重要性char（10）
declare@备注varchar（255）
declareget_khcursor
for
select*fromClient
openget_kh
fetchget_khinto@编号,@名称,@类型,@性别,@地址,@联系电话,@移动电话,@电子邮件,@QQ,@MSN,@信用,@重要性,@备注
while@@fetch_Status=0
begin
insertintoCtempvalues（@编号,@名称,@类型,@性别,@地址,@联系电话,@移动电话,@电子邮件,@QQ,@MSN,@信用,@重要性,@备注）
end
添加所有的客户表信息到客户临时表Ctemp
Proc_GClear
CREATEPROCEDUREproc_GClear
deletefromGtemp
删除商品临时表内容
Proc_Goods
CREATEPROCEDUREproc_Goods
declare@类别char（10）
declare@规格char（10）
declare@数量int
declare@单价float（8）
declare@金额int
declare@计量单位char（10）
declare@折扣float（8）
declare@供应商char（10）
declare@生产商char（10）
declare@库存编号int
declare@存放位置char（10）
declare@库存日期datetime
select*fromGoods
fetchget_khinto@编号,@类别,@名称,@规格,@数量,@单价,@金额,@计量单位,@折扣,@供应商,@生产商,@库存编号,@存放位置,@库存日期,@备注
insertintoGtempvalues（@编号,@类别,@名称,@规格,@数量,@单价,@金额,@计量单位,@折扣,@供应商,@生产商,@库存编号,@存放位置,@库存日期,@备注）
添加所有商品信息到商品临时表Gtemp
四．界面设计
开始界面
功能：
点击框内任意无字位置即进入“启动界面“。
实现：
PrivateSubForm_Click（）
Timer1.Enabled=False
启动菜单.Show
EndSub
PrivateSubLabel1_Click（）
End
PrivateSubTimer1_Timer（）
Form2.Show
PrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label1.ForeColor=&
HFF8080
PrivateSubLabel1_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
H80FF&
启动界面
鼠标点击白框内字体进入相应模块
H80000012:
Label2.ForeColor=&
H80000012
Label3.ForeColor=&
Label4.ForeColor=&
Label5.ForeColor=&
商品管理菜单.Show
HFF&
PrivateSubLabel2_Click（）
客户管理菜单.Show
PrivateSubLabel2_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label2.ForeColor=&
PrivateSubLabel3_Click（）
商品销售菜单.Show
PrivateSubLabel3_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
PrivateSubLabel4_Click（）
库存管理菜单.Show
PrivateSubLabel4_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label4.ForeColor=&
PrivateSubLabel5_Click（）
PrivateSubLabel5_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
商品管理界面
鼠标下拉菜单进入相应模块
PrivateSubSD_Click（）
Load商品管理菜单1
商品管理菜单1.Show
PrivateSubCT_Click（）
Load商品管理菜单3
商品管理菜单3.Show
PrivateSubTS_Click（）
Load商品管理菜单2
商品管理菜单2.Show
PrivateSubTCJM_Click（）
Load启动菜单
PrivateSubTCXT_Click（）
客户管理菜单
通过鼠标下拉菜单，进入相应模块
Load客户管理菜单3
客户管理菜单3.Show
Load客户管理菜单1
客户管理菜单1.Show
Load客户管理菜单2
客户管理菜单2.Show
库存管理界面
通过鼠标点击字体，进入相应模块
Load库存管理菜单2
库存管理菜单2.Show
HFFFF00
Load库存管理菜单1
库存管理菜单1.Show
HFF00FF:
HFF00FF
5>
商品销售界面
通过鼠标电击变色字体，进入相应模块
Load商品销售菜单1
商品销售菜单1.Show
Load商品销售菜单2
商品销售菜单2.Show
启动菜单1.Show
五．功能模块设计
1．商品管理
商品浏览<
商品查询
浏览和刷新
cm.Execute
Adodc1.Refresh
PrivateSubCommand7_Click（）
DimcnAsNewADODB.Connection
DimcmAsNewADODB.Command
DimmystrAsString
mystr="
Provider=SQLOLEDB.1;
IntegratedSecurity=SSPI;
PersistSecurityInfo=False;
UserID=sa;
InitialCatalog=G_Sale;
DataSource=（LOCAL）"
cn.ConnectionString=mystr
cn.Open
cm.ActiveConnection=cn
cm.CommandType=adCmdStoredProc
cm.CommandText="
proc_GClear"
PrivateSubCommand8_Click（）
proc_GDaily"
PrivateSubCommand9_Click（）
PrivateSubSSTab1_DblClick（）
添加和删除
（1）PublicSubCmdEnd（frmAsForm）
End
PrivateSubCommand2_Click（）
Load商品管理菜单
PrivateSubForm_Load（）
'
向cboOperators组合框中加入查询所需要使用的运算符号
cboOperatorsCboOp
通过传递进来的SQL语句，取得表的各个字段的结构
DimrsAsNewADODB.Recordset
rs.Open"
select*fromGoods"
Cnn,adOpenKeyset,adLockReadOnly
将字段填入到字段列表中
Dimfld
ForEachfldInrs.Fields
CboFields.AddItemfld.Name
Nextfld
rs.Close
CboFields.ListIndex=0
PrivateSubCommand1_Click（）
PrivateSubCmdAdd_Click（）
DimbhAsLong
Dimrs1AsNewADODB.Recordset
rs1.Open"
select*fromGoodsorderby编号"
Cnn,adOpenKeyset,adLockOptimistic
Ifrs1.RecordCount>
0Then
Ifrs1.EOF=FalseThenrs1.MoveLast
bh=Val（rs1.Fields（"
编号"
））+1
商品管理菜单4.Text1（0）.Text=Format（bh,"
00000"
）
Else
商品管理菜单4.Text1（0）.Text="
00001"
EndIf
Load商品管理菜单4
商品管理菜单4.Show
PrivateSubCmdFind_Click（）
IfCboOp.Text="
Like"
Then
Adodc1.RecordSource="
select*fromGoodswhere"
&
CboFields.Text&
"
CboOp.Text&
%"
TxtExpression.Text&
%'
"
Adodc1.Refresh
'
PrivateSubCmdModify_Click（）
Fori=0To14
对应列
DataGrid1.Col=i
商品管理菜单4.Text1（i）=DataGrid1.Text
Nexti
PrivateSubCmdDelete_Click（）
DimaAsString
IfAdodc1.Recordset.RecordCount>
a=MsgBox（"
您确实要删除这条数据吗?
vbYesNo）
Ifa=vbYesThen
Adodc1.Recordset.Delete
MsgBox（"
没有要删除的数据!
PrivateSubForm_Unload（CancelAsInteger）
CallCmdEnd（Me）
（2）DimiAsInteger'
定义整型变量
Dimrs1AsNewADODB.Recordset'
定义数据集对象
PublicFunctionCnn（）AsStri
升级会员 