CloseDB Exit Sub Else

objRS.Close

strSQL = \ objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic objRS.Fields(1).Value = Export_name.Text objRS.Fields(2).Value = Export_type.Text

objRS.Fields(4).Value = CDbl(Export_price.Text) objRS.Fields(3).Value = CDbl(Export_num.Text) objRS.Fields(5).Value = Patient_name.Text objRS.Fields(6).Value = Patient_num.Text objRS.Fields(7).Value = CDate(Export_time) objRS.Update objRS.Close CloseDB

MsgBox \记录已更新\ End If End If End Sub

单击“查询出库信息”按钮，启动frm_ex_que.Show，进入“查询出库信息”界面

单击“查询”按钮，将触发Cmd_que_Clcik事件，具体的代码如下: Private Sub Cmd_que_Click() Dim QueName As String Dim strSQL As String

QueName = Trim(del_que.Text) If QueName = \

MsgBox \查询名称不能为空\ Exit Sub Else

23

OpenDB

strSQL = \ objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic

If objRS.EOF Then

MsgBox \没有所查询的药品\ objRS.Close CloseDB Exit Sub Else

Export_name.Text = objRS.Fields(1).Value Export_type.Text = objRS.Fields(2).Value

Export_price.Text = Str(objRS.Fields(4).Value) Export_num.Text = Str(objRS.Fields(3).Value) Patient_name.Text = objRS.Fields(5).Value Patient_num.Text = objRS.Fields(6).Value Export_time.Text = Str(objRS.Fields(7).Value) objRS.Close CloseDB End If End If End Sub

五． 结束语

在进行本次实验之前，有关数据库的知识只是在课本上学了一点基础知识而已，对于实际中，数据库是如何应用的所知胜少。对于我来说，之前，看到那些管理软件觉得很陌生，不清楚它们是如何做到自动管理的，总觉得很神秘。通过这次的学习，是自己不再对于这些软件一无所知，锻炼了自己的动手能力和编程能力。在这次的试验中，我学习了

1Visual Basic的菜单和链接窗口的构建和链接方法； ○

2练习了Visual Basic窗口的设计，包括文本框的属性设置和按钮的触发事件 ○

3学习了将SQL Server数据表中信息在窗口中的文本框显示出来的方法和将文本○

框中的信息放入SQL Server数据表中的方法。

在设计的过程中，也遇到了很多问题，比如一开始数据库的建设耗费了大量的时间，VB和SQL Sever的连接由于一开始并没有注意服务器的设置而迟迟不能完成任务。在解决这些问题的同时，进一步加深了对Visual和SQL Server的运用和理解，对于数据库的使用也有了更深的理解。

但是，软件还有一些需要完善的地方。3个表直接的联系没有处理好，在单个模块中可以完成工作，可是跟实际情况还是有所出入。在以后会改进。

六． 参考文献

1.《SQL Sever2000课程设计案例精编》 2.《Visual Basic6.0基础教程》 3.《SQL Sever2000管理应用》

24