智能控制考试19390.docVIP

黑龙江科技学院 . 掌握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) 界面中有ADO 控件,图表控件,数据库具有查询,添加,删除, 录入等功能。 (4)整体设计科学合理,美观人性化。 3.设计思想： 应用本系统，可以对客户住宿进行记录管理，退房处理以及客户综合查询。 【实践过程】 Private Sub 登记住房_Click() Form2.Show End Sub Private Sub 客户查询_Click() Form4.Show End Sub Private Sub 退出系统_Click() Unload Me End Sub Private Sub 退房间_Click() Form3.Show End Sub Private Sub Command1_Click(Index As Integer) Data1.Recordset.AddNew Command2.Enabled = True End Sub Private Sub Command2_Click() If Trim(Text1(0).Text) = Then MsgBox 记录不能为空！, 64, 提示信息 End If Exit Sub Data1.Recordset.Update Command2.Enabled = False End Sub Private Sub Command3_Click() If Trim(Text1(0).Text) = Then MsgBox 请选择记录！, 64, 提示信息 End If Exit Sub If MsgBox(删除记录将不再恢复，确实要删除记录吗？, vbYesNo, 信息提示) = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Data1_Error(DataErr As Integer, Response As Integer) MsgBox 数据错误事件命中错误： Error$(DataErr) Response = 0 End Sub Private Sub Data1_Reposition() Data1.Caption = 记录： (Data1.Recordset.AbsolutePosition + 1) End Sub Private Sub Form_Load() End Sub Private Sub Text1_DblClick(Index As Integer) Form3.Show End Sub Private Sub Command1_Click() Dim msg oldmark = Data1.Recordset.Bookmark msg = Trim(InputBox(请输入房号, 查询)) msg = 房号 like msg Data1.Recordset.FindFirst msg If Data1.Recordset.NoMatch