VB设计实训报告.docx

VB设计实训报告.docx

《VB设计实训报告.docx》由会员分享，可在线阅读，更多相关《VB设计实训报告.docx（13页珍藏版）》请在冰豆网上搜索。

VB设计实训报告

VB设计实训报告

一、应用训练的教学目的

应用训练是组织学生进行集中实践教的学环节之一。

其目的是培养学生综合运用所学专业的基础知识、基本方法、基本技能、理论联系实际、独立的分析、解决问题的能力。

利用课堂所学的VB的基础知识，熟练掌握程序设计的方法和技巧，在规定的时间内设计出完整的实用的应用程序。

二、实训过程

实训一：

井字游戏设计

设置如下图的界面，窗体名称为“井字游戏”，九个井字格为Command1的控件数组，谁先是OptionButton1的控件数组，图片所在位置是picture1，显示文字的地方时Lable1,重置按钮为Command2。

以下为设计代码：

DimselAsInteger

DimsumAsInteger

Dima（9）AsCommandButton

PrivateSubCommand2_Click（）

CallForm_Activate

EndSub

PrivateSubForm_Activate（）

sum=0

Picture1.Enabled=True

Fori=1To9

a（i）.Caption=""

a（i）.Tag=0

Next

Label1.Caption=""

IfOption1（0）.Value=TrueThen

Callxuan

EndIf

EndSub

PrivateSubForm_Load（）

Fori=1To9

Seta（i）=Command1（i-1）

Next

EndSub

PrivateSubCommand1_Click（IndexAsInteger）

'○●

n=Index+1

Ifa（n）.Tag=0Then

a（n）.Caption="●"

a（n）.Tag=-1

sum=sum+1

Callyixian

IfLabel1.Caption=""Then

Callxuan

EndIf

EndIf

EndSub

PrivateSubxuan（）

sum=sum+1

Ifsum<=2Then

sel=IIf（a（5）.Tag=0,5,1）

Else

Fori=1To9

Ifa（i）.Tag=0Then

sel=i:

ExitFor

EndIf

Next

Fori=1To9Step2

Ifa（i）.Tag=0Then

sel=i:

ExitFor

EndIf

Next

Fori=1To9

Ifi=5Then

i=i+1

EndIf

Ifa（i）.Tag=0Then

Ifa（10-i）.Tag<>0Anda（10-i）.Tag=a（5）.TagThen

sel=i:

ExitFor

EndIf

SelectCasei

Case1

If（a

（2）.Tag<>0Anda

（2）.Tag=a（3）.Tag）Or_

（a（4）.Tag<>0Anda（4）.Tag=a（7）.Tag）Then

sel=i:

ExitFor

EndIf

Case2

Ifa

（1）.Tag<>0Anda

（1）.Tag=a（3）.TagThen

sel=i:

ExitFor

EndIf

Case3

If（a

（1）.Tag<>0Anda

（2）.Tag=a

（1）.Tag）Or（a（6）.Tag<>0Anda（6）.Tag=a（9）.Tag）Then

sel=i:

ExitFor

EndIf

Case4

Ifa

（1）.Tag<>0Anda

（1）.Tag=a（7）.TagThen

sel=i:

ExitFor

EndIf

Case6

Ifa（3）.Tag<>0Anda（3）.Tag=a（9）.TagThen

sel=i:

ExitFor

EndIf

Case7

If（a

（1）.Tag<>0Anda

（1）.Tag=a（4）.Tag）Or（a（8）.Tag<>0Anda（8）.Tag=a（9）.Tag）Then

sel=i:

ExitFor

EndIf

Case8

Ifa（7）.Tag<>0Anda（7）.Tag=a（9）.TagThen

sel=i:

ExitFor

EndIf

Case9

If（a（7）.Tag<>0Anda（7）.Tag=a（8）.Tag）Or（a（3）.Tag<>0Anda（3）.Tag=a（6）.Tag）Then

sel=i:

ExitFor

EndIf

EndSelect

EndIf

Next

EndIf

a（sel）.Caption="○"

a（sel）.Tag=1

Callyixian

EndSub

PrivateSubyixian（）

Ifa

（1）.Tag<>0Then

Callshuying（1,2,3）

Callshuying（1,4,7）

Callshuying（1,5,9）

EndIf

Ifa（5）.Tag<>0Then

Callshuying（5,2,8）

Callshuying（5,3,7）

Callshuying（5,4,6）

EndIf

Ifa（9）.Tag<>0Then

Callshuying（9,1,5）

Callshuying（9,3,6）

Callshuying（9,7,8）

EndIf

Ifsum=9Then

Label1.Caption="和棋"

EndIf

EndSub

PrivateSubshuying（x,y,z）

Ifa（x）.Tag=a（y）.TagAnda（y）.Tag=a（z）.TagThen

Label1.Caption="您"+IIf（a（x）.Tag=1,"输了！

","赢了！

"）

Picture1.Enabled=False

EndIf

EndSub

PrivateSubOption1_Click（IndexAsInteger）

CallForm_Activate

EndSub

经运行，调试，最终得到完整的程序。

下图是运行结果

实训一到此完毕

实训二：

简单数据库查询设计

首先，建立两个excel表，jbqk表和teacher表，如下图

在SQL中电脑公司7600服务器中建立两个表jbqk表和teacher表，并将excel表导入数据库中。

SQL语句为：

Createtablejbqk

（学号char（8）notnullunique,

姓名char（8）,

性别char

（2）,

班级char（8）,

英语char（5）,

计算机char（5）,

照片char（50））;

createtableteacher

（班级char（20）,

姓名char（20）,

性别char

（2）,

学历char（5）,

出生日期char（10）,

电话char（24））;

结果如图：

设置如下图所示的窗体，图中文本框都为text1的组合控件。

在部件中添加ADO控件和DataGrid控件。

然后再窗体中添加控件，结果如图

选中ADO控件，右单击选中其属性，在弹出的属性页对话框中单击【生成】，弹出数据链接属性，进行如图所示的设置。

完成后，单击【测试连接】，连接成功后，单击【确定】。

将生成的链接字符串，复制下来，在代码中粘贴到适当位置。

选中ADO控件，在其属性面板中设置RectordSoure，弹出属性页对话框，进行如下图设置，完成后单击【完成】。

选中DataGrid1控件，在其属性面板设置属性DataSource的值为Adodc1。

运行程序并调试，结果如下

具体代码如下：

DimcnAsNewADODB.Connection

PrivateSubCmbClass_Click（）

Dimrs_teacherAsNewADODB.Recordset

Dimrs_studentAsNewADODB.Recordset

DimsAsString

s="班级='"&CmbClass.Text&"'"

rs_teacher.Open"select*fromteacherwhere"&s,cn

Ifrs_teacher.RecordCount>0Then

Text1（0）.Text=rs_teacher.Fields（"姓名"）.Value

Text1

（1）.Text=rs_teacher.Fields（"性别"）.Value

Text1

（2）.Text=rs_teacher.Fields（"学历"）.Value

Text1（3）.Text=rs_teacher.Fields（"电话"）.Value

Text1（4）.Text=rs_teacher.Fields（"出生日期"）.Value

EndIf

rs_student.Open"select*fromjbqkwhere"&s,cn,adOpenForwardOnly

SetDataGrid1.DataSource=rs_student

EndSub

PrivateSubForm_Load（）

DimrstAsNewADODB.Recordset

cn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=master;DataSource=电脑公司7600"

cn.CursorLocation=adUseClient

cn.Open

rst.Open"selectdistinct班级fromjbqk",cn,adOpenStatic

DoWhileNotrst.EOF

CmbClass.AddItemrst.Fields（"班级"）.Value'初始化下拉组合框

rst.MoveNext

Loop

EndSub

PrivateSub退出_Click（）'退出

cn.Close

End

EndSub

三、实训心得

经过此次实训我能在老师的指导下，独立完成应用训练的全过程。

大大提高了编程能力和实践能力，重视应用训练，综合运用所学的知识，提高动手编程的能力。

并且提高了发现问题解决问题和创新的能力。