智能控制工程实践

黑龙江科技学院

综合实践报告

实践项目名称图书管理系统

所属课程名称智能控制工程实践

实践日期 2011年3月21日-3月25日

班级

学号

姓名

成绩

电气与信息工程学院实践基地

实践概述：

【实践目的及要求】

1. 掌握VB的基本控件的功能。

2. 掌握VB的基本编程方法。

3. 掌握ADO访问数据库技术。

4. 掌握MSComm控件在串行通信中的应用。

5. 应用VB软件与专业相结合，设计软件模拟控制系统。

【实践原理】

Visual Fortran/Visual Basic混合语言编程时，一般使用Visual Basic 开发用户界面(GUI)，利用Visual Fortran开发后台数值计算与分析模块。通常的情况是从Visual Basic中调用Fortran子程序。

在Visual Fortran/Visual Basic程序中， Visual Basic必须是32位的，也可以使用 Microsoft Excel中的 Visual Basic for Applications（VBA）调用 Fortran子程序。

Visual Basic开发环境与 Visual Fortran Version 6开发环境是独立的，然而，这两种语言能共存于最终的应用程序中。

当从Visual Basic调用一个 Fortran子程序时，必须：把 Visual Fortran子程序创建为一个 Fortran DLL工程；从 Visual Basic引用这个DLL，方法是用一个 Declare Sub或Declare Func语句。

【实践环境】（使用的软件）

硬件：智能控制工程实践箱、计算机

软件：Visual Basic6.0

实践内容：

【实践方案设计】

1.设计的项目名称：图书管理系统

2.设计要求：

(1)应用VB常用基本控件，编程代码正确。

(2)该软件具有添加，查询，删除，修改基本功能。

(3) 界面中有DATE控件,图表菜单控件,数据库具有添加，查询，删除，修改等功能。

(4)整体设计科学合理,美观人性化。

3.设计思想：

应用本系统，可以通过一级菜单查询书名，作者，出版社，出版日期，数量，日期等信息，并可以通过图标菜单来实现添加，查询，删除，修改等功能。在二级菜单中可以了解图书的各项资料。程序的开始窗口可以与菜单进行切换按退出键退出。

【实践过程】

Private Sub Command1_Click()

Static i As Integer

i = i + 1

Select Case i

Case 1

If Text1.Text = "BD" And Text2.Text = "123" Then Form2.Show

Else

MsgBox "用户名错误"

End If

Case 2

If Text1.Text = "BD" And Text2.Text = "123" Then Form2.Show

Else

MsgBox "用户名错误"

End If

MsgBox "密码输入二次错误！", 64, "关闭程序" End

End Select

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command1_Click()

Form3.Show

End Sub

Private Sub Command2_Click()

Form4.Show

End Sub

Private Sub Command3_Click()

Dim x As Integer

x = MsgBox("确认删除吗？", vbOKCancel + vbInformation, "确认删除!")

If x = 1 Then

Form1.Adodc1.Recordset.Delete

End If

End Sub

Private Sub Command4_Click()

Form5.Show

Form5.Text1.Text = Form2.Adodc1.Recordset.Fields("书名") Form5.Text2.Text = Form2.Adodc1.Recordset.Fields("作者") Form5.Text3.Text = Form2.Adodc1.Recordset.Fields("出版社") Form5.Text4.Text = Form2.Adodc1.Recordset.Fields("出版日期") Form5.Text5.Text = Form2.Adodc1.Recordset.Fields("数量") Form5.Text6.Text = Form2.Adodc1.Recordset.Fields("日期")

End Sub

Private Sub Command1_Click()

Form2.Adodc1.Recordset.AddNew

Form2.Adodc1.Recordset.Fields(1) = Text1.Text

Form2.Adodc1.Recordset.Fields(2) = Text2.Text

Form2.Adodc1.Recordset.Fields(3) = Text3.Text

Form2.Adodc1.Recordset.Fields(4) = Text4.Text

Form2.Adodc1.Recordset.Fields(5) = Text5.Text

Form2.Adodc1.Recordset.Fields(6) = Text6.Text

Form2.Adodc1.Recordset.Update