西京学院经济管理一系
《网络数据库》
实训报告
专业及班级：电子商务1102
姓名： vvvvvv 学号： 1109071058
指导老师： vvvvvvvv 报告完成时间： 2013年6月25日
实训一:VB程序开发
实训内容:
1、熟悉Visual Basic环境
2、建立加法器里面有三个命令按钮计算、重新输入、退出三个文本框输入数字及
输出结果，窗体标题为加法器
要求：设置标签为透明，字体字号颜色均进行设置，加窗体背景图片
步骤：
1、打开VB6.0，新建工程，创建窗体。对Form1进行属性设置：
Caption : 加法器
2、在工具箱中选择文本框，拖动到适当的大小，释放。以上过程重复三次。对Text1、
Text2、Text3进行属性设置:Text: 清空。
3、在工具箱中连续选择三次Label，分别拖动在三个文本框的左边。对Label1进行
属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:加数；Font:楷体，加粗，小初。对Label2进行属性设置：Alignment : 2 –Center；
BackStyle:0-Transparent；Caption:被加数；Font:楷体，加粗，小初。对Label3进行属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:和；Font:楷体，加粗，小初
4、在工具箱中连续选择三次选择CommandButton，分别拖动在三个文本框的下方。
对Command1进行属性设置：Caption：计算；Font:楷体，加粗，二号字。对Command2进行属性设置：Caption：重新输入；Font:楷体，加粗，二号字。对Command3进行属性设置：Caption：退出；Font:楷体，加粗，二号字。
5. 选择工具箱label，在窗体的右下方拖动，对Label4进行属性设置，Alignment : 2 –
Center；BackStyle:0-Transparent；Caption:吴玉华制作。楷体，加粗，一号字体。
6、选中加法器，对其进行属性设置。
7、在属性窗口中，找到picture这个单词，对其添加背景图片，选择自己喜欢的，合适的。
8、然后窗体双击，加代码，完成。
代码如下：
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Command3_Click()
End
End Sub
3、建立课程选择窗体，如图所示要求：列表框中有滚动条，水平和垂直均可，且在列表框中选科目时文本框中会自动出现所选择的内容。
步骤：
1、打开VB6.0，新建工程，创建窗体。对Form1进行属性设置：
Caption :科目选择窗口。
2.在工具箱中选择文本框，拖动到适当的大小，释放。进行属性设置，把Text1:清空。Font:宋体，粗体，三号。在工具箱中选择Label，拖动文本框的左边。对Label1进行属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:姓名；Font:楷体，粗体，二号字。
3.在工具箱中连续选择两次选择OptionButton，分别拖动在第一个个文本框的下方。对Option1进行属性设置：Caption：男,Font楷体，加粗，小二号字。对Option2进行属性设置：Caption：女,楷体，加粗，小二号字。在工具箱中选择Label,拖动Label2在Option1的左方，对它进行属性设置：Alignment : 2 –Center；BackStyle:0-Transparent；Caption:性别；Font:楷体，粗体，二号字。
4.在工具箱中选择Label，拖动Label3放在Label2的下面，对Label3进行属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:您选择的科目为；Font:楷体，粗体，二号字。在工具箱中选择文本框，拖动到适当的大小，释放。进行属性设置，把Text1:清空.Font:宋体，粗体，三号。
5、在工具箱中选择ListBox，拖动在第二个文本框的下方，对其进行属性设置：在List后面输入:新视野大学英语，经济数学，电子商务概论，计算机，会计基础。Font:楷体，粗体，五号字
6、在工具箱中连续选择两次选择CommandButton，分别拖动在文本框的下方。对Command1进行属性设置：Caption：确定；Font:楷体，粗体，小二号字。对Command2进行属性设置：Caption：取消；Font:楷体，粗体，小二号字。
7.选择工具箱label，在窗体的右下方拖动，对Label4进行属性设置，
Alignment :CenterBackStyle:0-Transparent；Caption:制作人吴玉华。楷体，加粗，一号字体。
8、在属性窗口中，找到picture这个单词，对其添加背景图片，选择自己喜欢的，合适的。
9、然后双击窗体，加代码，完成。
代码如下：
Private Sub List1_Click()
Text2.Text = List1
End Sub
4、制作教学信息管理系统的欢迎界面，界面样式自定。点击进入按钮，界面到用户名密码界面。样图：（最好有动态字幕出现，要用到计时器）。
步骤：
1、打开VB，新建工程，创建窗体。
2、在工具箱中选择Label，拖动Label1，对Label1进行属性设置：Alignment : 2 –Center；BackStyle:0-Transparent；Caption:教学信息管理系统；Font:宋体，粗体，一号字
3、在工具箱中连续选择两次选择CommandButton，分别拖动在文本框的下方。对Command1进行属性设置：Caption：确定；Font:楷体，粗体，小二号字。对Command2进行属性设置：Caption：取消；Font:楷体，粗体，小二号字。
3、建立计时器。选择工具箱里的Timer,随意拖动到窗体内，然后在属性面板设置计时器属性，Interval 数值随意设置，最终效果图如下所示。
4、在属性窗口中，找到picture这个单词，对其添加背景图片，选择自己喜欢的，合适的。
5、然后双击窗体，加代码，完成。
代码如下：
Private Sub Timer1_Timer()
Static i As Boolean
If i = False Then
Label1.Caption = " 教学信息管理系统"
Else
Label1.Caption = " 纪春娅欢迎您光临！"
End If
i = Not i
End Sub
1.在属性窗口中，找到picture这个单词，对其添加背景图片，选择自己喜欢的，合适的。
2.在工具箱中选择Label，拖动Label1，对Label1进行属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:用户名；Font:宋体，粗体，二号字。对Label2进行属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:密码；Font:宋体，粗体，二号字。任意拖放合适位置。
3.把Text1:，Text2 清空.Font:均设为，宋体，粗体，三号。任意拖放合适位置。
4.在工具箱中连续选择两次选择CommandButton，分别拖动在合适位置。对Command1进行属性设置：Caption：确定；Font:楷体，粗体，三号字。对Command2进行属性设置：Caption：取消；Font:楷体，粗体，三号字。
5.选择工具箱label，在窗体的右下方拖动，对Label3进行属性设置，Alignment : 2 –Center；BackStyle:0-Transparent；Caption:纪春娅制作。楷体，加粗，一号字体。
代码如下：
Private Sub Command1_Click() Msg = "用户名或密码出错"
Title = "消息对话框"
Resp = MsgBox(Msg, 69, Title) If Resp = 6 Then
Print "你选择了重试！"
Else
Print "你选择了取消！"
End If
End Sub
代码如下：
Private Sub Command1_Click()
Msg = "用户名和密码正确"
Title = "消息对话框"
Resp = MsgBox(Msg, 65, Title)
If Resp = 6 Then
Print "你选择了确定！"
Else
Print "你选择了取消！"
End If
End Sub
实训二: 菜单设计
实训内容：
1、建立一个菜单，完成功能进行加减乘除运算。
步骤：打开VB，右键单击，选择菜单编辑器。
1.在属性窗口中，找到picture这个单词，对其添加背景图片，选择自己喜欢的，合适的。
2. 在工具箱中联系选择三次Label，拖动Label1,2,3放在适当的位置，对Label1进行属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:操作数1；Font:楷体，粗体，三号字。对Label2进行属性设置：Alignment : 2 –Center；BackStyle:0-Transparent；Caption:操作数2；Font:楷体，粗体，三号字。对Label3进行属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:运算结束；Font:楷体，粗体，三号字。
3.把Text1，Text2 ，Text3清空.Font:均设为，楷体，粗体，四号。任意拖放合适位置。
4.选择工具箱label，在窗体的右下方拖动，对Label4进行属性设置，Alignment : 2 –Center；BackStyle:0-Transparent；Caption:制作人吴玉华。楷体，加粗，二号字体。
代码如下：
Private Sub 乘法_Click()
Text3.Text = (Text1.Text) * (Text2.Text)
End Sub
Private Sub 除法_Click()
Text3.Text = (Text1.Text) / (Text2.Text)
End Sub
Private Sub 加法_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub 减法_Click()
Text3.Text = (Text1.Text) - (Text2.Text)
End Sub
Private Sub 清除_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub 退出_Click()
End
End Sub
2、仿照如上方法建立教学信息管理系统菜单。
要求如下，功能可以根据自己所完成的系统不同：查询修改退出
学号查询修改密码
班级查询关闭
姓名查询
课程查询
步骤：
1.打开VB，右键单击，选择菜单编辑器。
2.在属性窗口中，找到picture这个单词，对其添加背景图片，选择自己喜欢的，合适的。
3.在工具箱中选择5次Label，拖动Label1，2,3,4,5对Label1进行属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:请输入要查询的学号；Font楷体，粗体，三号字。对Label2进行属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:姓名；Font楷体，粗体，三号字。对Label3进行属性设置：Alignment : 2 –Center；BackStyle:0-Transparent；Caption:性别；Font楷体，粗体，三号字。对Label4进行属性设置：Alignment : 2 – Center；BackStyle:0-Transparent；Caption:年龄；Font 楷体，粗体，三号字。对Label5进行属性设置：Alignment : 2 –Center；BackStyle:0-Transparent；Caption:电话；Font楷体，粗体，三号字。
4.把Text1，Text2 ，Text3，Text4，Text5清空.Font:均设为，楷体，粗体，三号。任意拖放合适位置。
代码如下：
Private Sub 班级查询_Click()
Shell ("F:\2011-2013第一学期\数据库\实训一\教学信息管理系统\工程1d.exe"), vbNormalFocus
End Sub
实训三：创建丁若昕0700070110数据库
二、实训内容：
1、创建以自己的学号和姓名命名的数据库，数据库大小自定。
要求实训报告中将数据库创建T-SQL脚本复制出来，或者将T-SQL代码直接写出来。创建三张表，表的结构如下：
学生表：
字段名数据类型长度允许为空
学号 char 8 NOT NULL
姓名 char 6
性别 char 2
出生日期 datedime
专业 char 20
成绩表：
字段名数据类型长度小数位允许为空
学号 char 8 NOT NULL
课程编号 char 3 NOT NULL
成绩 decimal 4(精度) 1
课程表：
字段名数据类型长度允许为空
课程编号 char 3 NOT NULL
课程名 char 20
学分 int
步骤：
1、打开SQL，右键单击数据库，选择新建并命名。
2、单击所建数据库，选择表，右键单击新建，分命名为学生表，课程表，成绩表
3、将“学生表”中的“学号”字段设为主键。
步骤：建立数据库，在数据库中建立学生表，鼠标右键单击学生表，点设计，右键单击学号，点设为主键。
4、将“成绩表”的“学号”和“课程编号”两个字段组合作为主键。
步骤：在数据库中建立成绩表，鼠标右键单击成绩表，点设计，右键单击学号，点设为主键，按住Ctrl，右键单击课程编号，点设为主键。
5、将“课程表”的“课程编号”设为主键。
步骤：在数据库中建立课程表，鼠标右键单击课程表，点设计，右键单击课程编号，点设为主键。
6、将“成绩表”的“学号”设为“学生表”的外键。
步骤：右键单击数据库关系图，点新建数据库关系图，在图中拖动，使成绩表的学号指向学生表。
7、将“成绩表”的“课程编号”设为“课程表“的外键。
步骤：在数据库关系图中，使成绩表的课程编号指向课程表。
8、将“学生表“的”成绩“字段设置检查约束，成绩值在0到100之间。
步骤：右键单击成绩表，点设计，右键单击成绩，点CHECK约束，点添加，表达式设置为：成绩between 0 and 100