4.5发布应用程序
4.5.1编译应用程序

4.5.2打包应用程序
选择[Package Deployment 向导]
1、选择[Package Deployment 向导]
4.5.3发布应用程序的步骤
选择[文件]-------[生成光盘管理系统.exe]

2、选择[打包]

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then '如果按回车键就添加一个记录
Me.Combo1.AddItem Me.Combo1.Text
Me.Combo1.SelStart = 0

End Sub
Me.Combo1.SelLength = Len(Me.Combo1.Text)
End If

Private Sub Form_Load()

Select Case msg
Me.Caption = Me.Caption msg

5、选择[完成]。
结论及体会

整个程序的编写已经完成，经过这次的实践让我对如何利用VB开发数据库程序有了一个更深得理解。在此期间我遇到了许多困难，但经过反复的查阅资料和不断调试下，这些难题还是终究被克服了，比如数据库的加密、如何访问加密的数据库之类的，在这场实践中的调研、开发、调试，从中得到了开发的经验。虽然该系统还并不是很xx，有些功能因条件和自身能力的关系没有设计出来，比如打印之类的管理，所以使得我今后要不断学习更多的东西来完善它，使其真正成为功能完备的光盘管理系统。

软件工程原理、方法与应用 史济民 著 高等教育出版社
软件工程实验 陈明、王智广、赵鹏翔 著 高等教育出版社
参考文献
VB程序设计教程习题及习题解答 刘瑞新、李树东、王为东 著电子工业出版社

附录：
Dim yn As New yn '定义yn为yn类

Option Explicit

Private Sub Combo1_Click()
Me.PopupMenu list '弹出LIST菜单
End Sub

3、选择[下一步]

Private Sub comsel_KeyPress(Index As Integer, KeyAscii As Integer)

End If
If KeyAscii = 13 Then '如果按回车键就执行查询功能
Call search_Click(0)

End Sub

Private Sub dele_Click()

Me.Combo1.RemoveItem Me.Combo1.ListIndex '单击后删除指定记录

End Sub

Private Sub delecd_Click()

msg = 删除光盘
Call yn.closedb
Dim a As String
a = Me.MSHFlexGrid1.Text
Me.MSHFlexGrid1.Row = 0
Me.MSHFlexGrid1.Col = Me.MSHFlexGrid1.Col '- 1
Me.comsel(0).Text = Me.MSHFlexGrid1.Text
Me.txtselect(0).Text = a '赋值方便查询

If Me.comsel(0).Text = 影片编号 Or Me.comsel(0).Text = 影片名称 Or Me.comsel(0).Text = 导演 Or Me.comsel(0).Text = 影片类型 Or Me.comsel(0).Text = 影片格式 Or Me.comsel(0).Text = 影片语言 Then
db = select * from 影片资料 where Me.comsel(0).Text =' Me.txtselect(0).Text '
Call yn.opendb(db)
If Not yn.myrec.EOF Then
Call yn.myrec.Delete
Call yn.opendb(db)
MsgBox 此光盘记录已成功删除！！！, vbInformation
Else

Me.Frame1.Visible = True
Call yn.opendb(db)
Else
Set Me.MSHFlexGrid1.DataSource = yn.myrec
Call yn.closedb
Me.MSHFlexGrid1.Visible = False
MsgBox 此光盘记录已成功删除！！！, vbInformation
Call yn.closedb
Call yn.myrec.Delete
Set Me.MSHFlexGrid1.DataSource = yn.myrec
Call yn.myrec.Update
Call yn.opendb(db)

Call yn.myrec.Update
Me.TabStrip1.Tabs(4).Selected = True '4被选中
Call yn.closedb

db = select * from 影片资料 where Me.comsel(0).Text = Me.txtselect(0).Text
db = select * from 影片资料 where Me.comsel(0).Text = Me.txtselect(0).Text
End If
Call yn.closedb
db = select * from 影片资料 where Me.comsel(0).Text =' Me.txtselect(0).Text '
End If

End Sub

4、一直选择[下一步]直到