音像管理系统-VB代码程序-VB毕业设计

1、1、音像管理 cd米.fr米 Di米 yn As New yn 定义yn为yn类Option ExplicitPrivate Sub Co米bo1_Click() 米e.Popup米enu list 弹出LIST菜单End SubPrivate Sub Co米bo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 如果按回车键就添加一个记录 米e.Co米bo1.AddIte米 米e.Co米bo1.Text 米e.Co米bo1.SelStart = 0 米e.Co米bo1.SelLength = Len(米e.

2、Co米bo1.Text) End If End SubPrivate Sub co米sel_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then 如果按回车键就执行查询功能 Call search_Click(0) End IfEnd SubPrivate Sub dele_Click() 米e.Co米bo1.Re米oveIte米 米e.Co米bo1.ListIndex 单击后删除指定记录 End SubPrivate Sub delecd_Click() 米sg = 删除音像 米e.TabStrip1.Ta

3、bs(4).Selected = True 4被选中 Di米 a As String a = 米e.米SHFlexGrid1.Text 米e.米SHFlexGrid1.Row = 0 米e.米SHFlexGrid1.Col = 米e.米SHFlexGrid1.Col - 1 米e.co米sel(0).Text = 米e.米SHFlexGrid1.Text 米e.txtselect(0).Text = a 赋值方便查询 If 米e.co米sel(0).Text = 影片编号 Or 米e.co米sel(0).Text = 影片名称 Or 米e.co米sel(0).Text = 导演 Or 米e.c

4、o米sel(0).Text = 影片类型 Or 米e.co米sel(0).Text = 影片格式 Or 米e.co米sel(0).Text = 影片语言 Then db = select * fro米 影片资料 where & 米e.co米sel(0).Text & = & 米e.txtselect(0).Text & Call yn.opendb(db) If Not yn.米yrec.EOF Then Call yn.米yrec.Delete Call yn.米yrec.Update 米sgBox 此音像记录已成功删除！, vbInfor米ation + vbOKOnly, 音像制品出租及

5、销售管理系统 Call yn.closedb db = select * fro米 影片资料 where & 米e.co米sel(0).Text & = & 米e.txtselect(0).Text & Call yn.opendb(db) Set 米e.米SHFlexGrid1.DataSource = yn.米yrec Call yn.closedb Else 米e.米SHFlexGrid1.Visible = False 米e.Fra米e1.Visible = True Call yn.closedb End If Else db = select * fro米 影片资料 where &

6、 米e.co米sel(0).Text & = & 米e.txtselect(0).Text & Call yn.opendb(db) Call yn.米yrec.Delete Call yn.米yrec.Update 米sgBox 此音像记录已成功删除！, vbInfor米ation + vbOKOnly, 音像制品出租及销售管理系统 Call yn.closedb db = select * fro米 影片资料 where & 米e.co米sel(0).Text & = & 米e.txtselect(0).Text & Call yn.opendb(db) Set 米e.米SHFlexGri

7、d1.DataSource = yn.米yrec Call yn.closedb End If End SubPrivate Sub For米_Load() On Error Resu米e Next 米e.Caption = 米e.Caption & 米sg Select Case 米sg Case Is = 添加音像 米e.TabStrip1.Tabs(2).Selected = True For i = 0 To 8 米e.txtinfo(i).BackColor = vbWhite Next 米e.Co米bo1.BackColor = vbWhite 设置白色代表有效 米e.Co米bo2

8、.BackColor = vbWhite 米e.Co米bo3.BackColor = vbWhite 米e.Co米bo4.BackColor = vbWhite 米e.txtselect(0).Visible = False 米e.Labinfo(1).Visible = False 米e.co米sel(0).Visible = False 米e.search(0).Visible = False 米e.Co米bo1.Clear 米e.Co米bo2.Clear 米e.Co米bo3.Clear 米e.Co米bo4.Clear Call yn.opendb(select * fro米 影片类型)

9、Do While yn.米yrec.EOF = False 米e.Co米bo2.AddIte米 yn.米yrec.Fields(影片类型) yn.米yrec.米oveNext Loop Call yn.closedb Call yn.opendb(select * fro米 影片格式) Do While yn.米yrec.EOF = False 米e.Co米bo3.AddIte米 yn.米yrec.Fields(影片格式) yn.米yrec.米oveNext Loop Call yn.closedb Call yn.opendb(select * fro米 影片语言) Do While yn.

10、米yrec.EOF = False 米e.Co米bo4.AddIte米 yn.米yrec.Fields(影片语言) yn.米yrec.米oveNext Loop Call yn.closedb Call yn.opendb(select * fro米 自定义) 米e.txtinfo(6).Text = yn.米yrec.Fields(购买价格) 米e.txtinfo(5).Text = yn.米yrec.Fields(出租价格) Call yn.closedb Case Is = 修改音像 米e.txtselect(0).TabIndex = 0 米e.co米sel(0).TabIndex =

11、 1 米e.TabStrip1.Tabs(3).Selected = True For i = 0 To 8 米e.txtinfo(i).BackColor = vbWhite Next 米e.Co米bo1.BackColor = vbWhite 设置白色代表有效 米e.Co米bo2.BackColor = vbWhite 米e.Co米bo3.BackColor = vbWhite 米e.Co米bo4.BackColor = vbWhite 米e.Co米bo1.Clear 米e.Co米bo2.Clear 米e.Co米bo3.Clear 米e.Co米bo4.Clear Call yn.opend

12、b(select * fro米 影片类型) Do While yn.米yrec.EOF = False 米e.Co米bo2.AddIte米 yn.米yrec.Fields(影片类型) yn.米yrec.米oveNext Loop Call yn.closedb Call yn.opendb(select * fro米 影片格式) Do While yn.米yrec.EOF = False 米e.Co米bo3.AddIte米 yn.米yrec.Fields(影片格式) yn.米yrec.米oveNext Loop Call yn.closedb Call yn.opendb(select * f

13、ro米 影片语言) Do While yn.米yrec.EOF = False 米e.Co米bo4.AddIte米 yn.米yrec.Fields(影片语言) yn.米yrec.米oveNext Loop Call yn.closedb Case Is = 音像查询 米e.TabStrip1.Tabs(1).Selected = True 米e.Co米bo1.Visible = False For i = 0 To 8 米e.txtinfo(i).Locked = True Next 米e.txtselect(0).TabIndex = 0 米e.co米sel(0).TabIndex = 1

14、Case Is = 删除音像 米e.TabStrip1.Tabs(4).Selected = True 米e.txtselect(0).TabIndex = 0 米e.co米sel(0).TabIndex = 1 End Select End SubPrivate Sub 米odicd_Click() On Error Resu米e Next 忽略错误 米sg = 修改音像 米e.TabStrip1.Tabs(3).Selected = True 米e.米SHFlexGrid1.Row = 米e.米SHFlexGrid1.RowSel 确定查询条件 米e.米SHFlexGrid1.Col =

15、1 米e.txtselect(0).Text = 米e.米SHFlexGrid1.Text 米e.米SHFlexGrid1.Visible = False 米e.Fra米e1.Visible = True db = select * fro米 影片资料 where 影片名称= & Tri米(米e.txtselect(0).Text) & Call yn.opendb(db) cd米.txtinfo(0).Text = yn.米yrec.Fields(影片编号) cd米.txtinfo(1).Text = yn.米yrec.Fields(影片名称) cd米.txtinfo(4).Text = y

16、n.米yrec.Fields(时间长度) cd米.txtinfo(2).Text = yn.米yrec.Fields(导演) cd米.txtinfo(3).Text = yn.米yrec.Fields(发行年度) cd米.txtinfo(8).Text = yn.米yrec.Fields(影片介绍) cd米.txtinfo(6).Text = yn.米yrec.Fields(购买价格) cd米.Co米bo2.Text = yn.米yrec.Fields(影片类型) cd米.Co米bo4.Text = yn.米yrec.Fields(影片语言) cd米.Co米bo3.Text = yn.米yre

17、c.Fields(影片格式) cd米.txtinfo(7).Text = yn.米yrec.Fields(总数) cd米.txtinfo(5).Text = yn.米yrec.Fields(出租价格) Call yn.closedb Call yn.opendb(select * fro米 演员 where 影片编号= & 米e.txtinfo(0).Text & ) Do While Not yn.米yrec.EOF 米e.Co米bo1.AddIte米 yn.米yrec.Fields(演员).Value yn.米yrec.米oveNext Loop Call yn.closedb End S

18、ubPrivate Sub 米SHFlexGrid1_Click() 米e.Popup米enu 米odi米sf 弹出修改菜单End SubPrivate Sub qd_Click() Select Case 米sg Case Is = 添加音像 If 米e.txtinfo(0).Text Then For i = 0 To 8 If 米e.txtinfo(i).Text = Then 米sgBox 对不起这里的 每个选项你都要填写！, vbQuestion Exit Sub End If Next db = select * fro米 影片资料 where 影片名称= & 米e.txtinfo

19、(1).Text & Call yn.opendb(db) If yn.米yrec.EOF = False Then 米sgBox 已经有这部影片了 ！, vbQuestion Call yn.closedb Else Call yn.closedb Call yn.add(音像信息) Call yn.add(演员) 米sgBox 添加成功！, vbInfor米ation + vbOKOnly, 音像制品出租及销售管理系统 For i = 0 To 4 米e.txtinfo(i).Text = Next 米e.txtinfo(7).Text = 米e.txtinfo(8).Text = 米e.

20、Co米bo1.Text = 米e.Co米bo1.Clear 米e.Co米bo2.Text = 米e.Co米bo3.Text = 米e.Co米bo4.Text = End If End If Case Is = 修改音像 If 米e.txtinfo(0).Text Then Call yn.米odi(音像信息) Call yn.米odi(演员) 米sgBox 修改成功！, vbInfor米ation + vbOKOnly, 音像制品出租及销售管理系统 For i = 0 To 8 米e.txtinfo(i).Text = Next End If Case Is = 删除音像 If 米e.txti

21、nfo(0).Text Then db = select * fro米 影片资料 where 影片名称= & 米e.txtinfo(1).Text & Call yn.opendb(db) Call yn.米yrec.Delete Call yn.米yrec.Update Call yn.closedb Call yn.opendb(select * fro米 演员) yn.米ycon.Execute delete fro米 演员 where 影片编号= & cd米.txtinfo(0).Text & Call yn.closedb For i = 0 To 8 米e.txtinfo(i).T

22、ext = Next 米e.Co米bo1.Text = 米e.Co米bo2.Text = 米e.Co米bo3.Text = 米e.Co米bo4.Text = 米e.co米sel(0).Text = 米e.txtselect(0).Text = 米e.lstinfo.Clear 米sgBox 此音像记录已删除！, vbInfor米ation + vbOKOnly, 音像制品出租及销售管理系统 End If End SelectEnd SubPrivate Sub qx_Click() Unload 米eEnd SubPrivate Sub search_Click(Index As Intege

23、r) If 米e.co米sel(0).Text And 米e.txtselect(0).Text Then Select Case 米sg Case Is = 修改音像 米e.Co米bo1.Clear Call selec Case Is = 音像查询 米e.lstinfo.Clear Call selec Case Is = 删除音像 米e.lstinfo.Clear Call selec End Select Else 米sgBox 请输入查询条件！, vbInfor米ation + vbOKOnly, 音像制品出租及销售管理系统 End IfEnd SubPrivate Sub TabS

24、trip1_Click() On Error Resu米e Next Select Case 米e.TabStrip1.SelectedIte米.Index Case Is = 1 米sg = 音像查询 米e.Caption = 音像管理- & 米sg 米e.co米sel(0).Visible = True 米e.txtselect(0).Visible = True 米e.Labinfo(1).Visible = True 米e.search(0).Visible = True 米e.Co米bo1.Visible = False 米e.lstinfo.Visible = True 米e.米S

25、HFlexGrid1.Visible = False 米e.Fra米e1.Visible = True For i = 0 To 8 米e.txtinfo(i).Text = 米e.txtinfo(i).Locked = True Next 米e.Co米bo1.Text = 米e.Co米bo2.Text = 米e.Co米bo3.Text = 米e.Co米bo4.Text = 米e.co米sel(0).Text = 米e.txtselect(0).Text = 米e.lstinfo.Clear For i = 0 To 8 米e.txtinfo(i).BackColor = &H80000004

26、 Next 米e.Co米bo1.BackColor = &H80000004 米e.Co米bo2.BackColor = &H80000004 米e.Co米bo3.BackColor = &H80000004 米e.Co米bo4.BackColor = &H80000004 Case Is = 2 米sg = 添加音像 米e.Caption = 音像管理- & 米sg 米e.co米sel(0).Visible = False 米e.txtselect(0).Visible = False 米e.Labinfo(1).Visible = False 米e.search(0).Visible =

27、False 米e.Co米bo1.Visible = True 米e.lstinfo.Visible = False 米e.米SHFlexGrid1.Visible = False 米e.Fra米e1.Visible = True For i = 0 To 8 米e.txtinfo(i).Text = 米e.txtinfo(i).Locked = False Next 米e.Co米bo1.Text = 米e.Co米bo2.Text = 米e.Co米bo3.Text = 米e.Co米bo4.Text = 米e.Co米bo1.Clear 米e.Co米bo2.Clear 米e.Co米bo3.Clear

28、 米e.Co米bo4.Clear 米e.lstinfo.Clear For i = 0 To 8 米e.txtinfo(i).BackColor = vbWhite Next 米e.Co米bo1.BackColor = vbWhite 米e.Co米bo2.BackColor = vbWhite 米e.Co米bo3.BackColor = vbWhite 米e.Co米bo4.BackColor = vbWhite Call yn.opendb(select * fro米 影片类型) Do While yn.米yrec.EOF = False 米e.Co米bo2.AddIte米 yn.米yrec.

29、Fields(影片类型) yn.米yrec.米oveNext Loop Call yn.closedb Call yn.opendb(select * fro米 影片格式) Do While yn.米yrec.EOF = False 米e.Co米bo3.AddIte米 yn.米yrec.Fields(影片格式) yn.米yrec.米oveNext Loop Call yn.closedb Call yn.opendb(select * fro米 影片语言) Do While yn.米yrec.EOF = False 米e.Co米bo4.AddIte米 yn.米yrec.Fields(影片语言)

30、 yn.米yrec.米oveNext Loop Call yn.closedb Call yn.opendb(select * fro米 自定义) 米e.txtinfo(6).Text = yn.米yrec.Fields(购买价格) 米e.txtinfo(5).Text = yn.米yrec.Fields(出租价格) Call yn.closedb Case Is = 3 米sg = 修改音像 米e.Caption = 音像管理- & 米sg 米e.co米sel(0).Visible = True 米e.txtselect(0).Visible = True 米e.Labinfo(1).Vis

31、ible = True 米e.search(0).Visible = True 米e.Co米bo1.Visible = True 米e.lstinfo.Visible = False 米e.米SHFlexGrid1.Visible = False 米e.Fra米e1.Visible = True For i = 0 To 8 米e.txtinfo(i).Text = 米e.txtinfo(i).Locked = False Next 米e.Co米bo1.Text = 米e.Co米bo1.Clear 米e.Co米bo2.Clear 米e.Co米bo3.Clear 米e.Co米bo4.Clear

32、米e.Co米bo2.Text = 米e.Co米bo3.Text = 米e.Co米bo4.Text = 米e.co米sel(0).Text = 米e.txtselect(0).Text = 米e.lstinfo.Clear For i = 0 To 8 米e.txtinfo(i).BackColor = vbWhite 米e.txtinfo(i).Locked = False Next 米e.Co米bo1.BackColor = vbWhite 米e.Co米bo2.BackColor = vbWhite 米e.Co米bo3.BackColor = vbWhite 米e.Co米bo4.BackCo

33、lor = vbWhite Call yn.opendb(select * fro米 影片类型) Do While yn.米yrec.EOF = False 米e.Co米bo2.AddIte米 yn.米yrec.Fields(影片类型) yn.米yrec.米oveNext Loop Call yn.closedb Call yn.opendb(select * fro米 影片格式) Do While yn.米yrec.EOF = False 米e.Co米bo3.AddIte米 yn.米yrec.Fields(影片格式) yn.米yrec.米oveNext Loop Call yn.closed

34、b Call yn.opendb(select * fro米 影片语言) Do While yn.米yrec.EOF = False 米e.Co米bo4.AddIte米 yn.米yrec.Fields(影片语言) yn.米yrec.米oveNext Loop Call yn.closedb Case Is = 4 米sg = 删除音像 米e.Caption = 音像管理- & 米sg 米e.co米sel(0).Visible = True 米e.txtselect(0).Visible = True 米e.Labinfo(1).Visible = True 米e.search(0).Visib

35、le = True 米e.Co米bo1.Visible = False 米e.lstinfo.Visible = True 米e.米SHFlexGrid1.Visible = False 米e.Fra米e1.Visible = True For i = 0 To 8 米e.txtinfo(i).Text = 米e.txtinfo(i).Locked = True Next 米e.Co米bo1.Text = 米e.Co米bo2.Text = 米e.Co米bo3.Text = 米e.Co米bo4.Text = 米e.co米sel(0).Text = 米e.txtselect(0).Text = 米

36、e.lstinfo.Clear For i = 0 To 8 米e.txtinfo(i).BackColor = &H80000004 Next 米e.Co米bo1.BackColor = &H80000004 米e.Co米bo2.BackColor = &H80000004 米e.Co米bo3.BackColor = &H80000004 米e.Co米bo4.BackColor = &H80000004 End Select End SubPrivate Sub txtinfo_KeyPress(Index As Integer, KeyAscii As Integer) If Index

37、= 3 Or Index = 4 Or Index = 5 Or Index = 6 Or Index = 7 Then Select Case KeyAscii Case Asc(0) To Asc(9) Case Else KeyAscii = 0 米sgBox 请输入数字！, vbInfor米ation + vbOKOnly, 音像制品出租及销售管理系统 End Select End If End SubPrivate Sub selec() =查询过程 On Error Resu米e Next If 米e.co米sel(0).Text = 影片编号 Or 米e.co米sel(0).Te

38、xt = 影片名称 Then 米e.米SHFlexGrid1.Visible = False 米e.Fra米e1.Visible = True db = select * fro米 影片资料 where & 米e.co米sel(0).Text & = & 米e.txtselect(0).Text & Call yn.opendb(db) If yn.米yrec.EOF Then 米sgBox 无此音像！, vbInfor米ation + vbOKOnly, 音像制品出租及销售管理系统 Else cd米.txtinfo(0).Text = yn.米yrec.Fields(影片编号) cd米.tx

39、tinfo(1).Text = yn.米yrec.Fields(影片名称) cd米.txtinfo(4).Text = yn.米yrec.Fields(时间长度) cd米.txtinfo(2).Text = yn.米yrec.Fields(导演) cd米.txtinfo(3).Text = yn.米yrec.Fields(发行年度) cd米.txtinfo(8).Text = yn.米yrec.Fields(影片介绍) cd米.txtinfo(6).Text = yn.米yrec.Fields(购买价格) cd米.Co米bo2.Text = yn.米yrec.Fields(影片类型) cd米.

40、Co米bo4.Text = yn.米yrec.Fields(影片语言) cd米.Co米bo3.Text = yn.米yrec.Fields(影片格式) cd米.txtinfo(7).Text = yn.米yrec.Fields(总数) cd米.txtinfo(5).Text = yn.米yrec.Fields(出租价格) Call yn.closedb Call yn.opendb(select * fro米 演员 where 影片编号= & 米e.txtinfo(0).Text & ) Do While Not yn.米yrec.EOF 米e.lstinfo.AddIte米 yn.米yrec

41、.Fields(演员).Value yn.米yrec.米oveNext Loop Call yn.closedb Call yn.opendb(select * fro米 演员 where 影片编号= & 米e.txtinfo(0).Text & ) Do While Not yn.米yrec.EOF 米e.Co米bo1.AddIte米 yn.米yrec.Fields(演员).Value yn.米yrec.米oveNext Loop End If Call yn.closedb ElseIf 米e.co米sel(0).Text = 导演 Or 米e.co米sel(0).Text = 影片类型

42、Or 米e.co米sel(0).Text = 影片格式 Or 米e.co米sel(0).Text = 影片语言 Then db = select * fro米 影片资料 where & 米e.co米sel(0).Text & = & VBA.LCase(米e.txtselect(0).Text) & Call yn.opendb(db) If yn.米yrec.EOF Then 米sgBox 无此音像！, vbInfor米ation + vbOKOnly, 音像制品出租及销售管理系统 Call yn.closedb Else 米e.Fra米e1.Visible = False 米e.米SHFl

43、exGrid1.Visible = True Set 米e.米SHFlexGrid1.DataSource = yn.米yrec Call yn.closedb End If Else If VBA.IsNu米eric(米e.txtselect(0).Text) = True Then db = select * fro米 影片资料 where & 米e.co米sel(0).Text & = & 米e.txtselect(0).Text Call yn.opendb(db) If yn.米yrec.EOF Then 米sgBox 无此音像！, vbInfor米ation + vbOKOnly,

44、 音像制品出租及销售管理系统 Call yn.closedb Else 米e.Fra米e1.Visible = False 米e.米SHFlexGrid1.Visible = True Set 米e.米SHFlexGrid1.DataSource = yn.米yrec Call yn.closedb End If Else 米sgBox 请输入数字！, vbInfor米ation + vbOKOnly, 音像制品出租及销售管理系统 End If End IfEnd SubPrivate Sub txtselect_KeyPress(Index As Integer, KeyAscii As I

45、nteger) If KeyAscii = 13 Then Call search_Click(0) End IfEnd Sub2、米ain.fr米 Di米 yn As New ynOption ExplicitPrivate Sub about米enu_Click()load.Show vb米odalEnd SubPrivate Sub addcd_Click() 米sg = 添加音像 cd米.Show vb米odalEnd SubPrivate Sub add米a_Click() 米sg = 添加管理员 米anger.Show vb米odalEnd SubPrivate Sub adduser_Click() 米sg = 添加新会员 user.Show vb米odalEnd SubPrivate Sub backup_Click() Di米 bi As BROWSEINFO 声明必要的 变量 Di米 rtn&, pidl&, path$, pos%, t%, Spe