vb音像制品出租及銷售管理系統(tǒng)源代碼last程序

1、1、音像管理 cdm.frm Dim yn As New ynOption ExplicitPrivate Sub Combo1_Click()定義yn 為 yn 類Me.PopupEnd Sublist彈出 LIST 菜單Private Sub Combo1_KeyDown(KeyCode AsIf KeyCode = 13 Theneger, Shift Aseger)如果按回車鍵就添加一個bo1.AddItembo1.SelStart = 0 bo1.SelLength = Len(bo1.Textbo1.Text)End If End SubPrivate Sub comsel_Key

2、Press(Index Aseger, KeyAscii Aseger)If KeyAscii = 13 Then Call search_Click(0)End IfEnd Sub如果按回車鍵就執(zhí)行查詢功能Private Sub dele_Click()bo1.RemoveItemEnd SubPrivate Sub delecd_Click() msg = 刪除音像Me.TabStrip1.Tabs(4).Selected = True Dim a As Stringa = Me.MSHFlexGrid1.TextMe.MSHFlexGrid1.Row = 0bo1.ListIndex單擊

3、后刪除指定4 被選中Me.MSHFlexGrid1.Col = Me.MSHFlexGrid1.Col - 1sel(0).Text = Me.MSHFlexGrid1.TextMe.txtselect(0).Text = a賦值方便查詢Ifsel(0).Text = 影 片sel(0).Text = 導(dǎo)演 Or Orsel(0).Text = 影 片 名 稱 Orsel(0).Text = 影片類型 Orsel(0).Text = 影片格式 Orsel(0).Text = 影片語言 Thendb = select * from 影片資料 where & & Call yn.opendb(db

4、)If Not yn.myrec.EOF Then Call yn.myrec.Delete Call yn.myrec.Updatesel(0).Text & = & Me.txtselect(0).TextMsgBox 銷售管理系統(tǒng)像已成功刪除！, vbInformation + vbOKOnly, 音像制品出租及Call yn.closedbdb = select * from 影 片 資 料Me.txtselect(0).Text & Call yn.opendb(db)where &sel(0).Text & = &Set Me.MSHFlexGrid1.DataSource = y

5、n.myrec Call yn.closedbElseMe.MSHFlexGrid1.Visible = False Me.Frame1.Visible = TrueCall yn.closedb End IfElsedb = select * from 影片資料 where & Call yn.opendb(db)Call yn.myrec.Delete Call yn.myrec.Updatesel(0).Text & = & Me.txtselect(0).TextMsgBox 售管理系統(tǒng)像已成功刪除！, vbInformation + vbOKOnly, 音像制品出租及銷Call yn

6、.closedbdb = select * from 影片資料 where &sel(0).Text & = & Me.txtselect(0).Text& Call yn.opendb(db)Set Me.MSHFlexGrid1.DataSource = yn.myrec Call yn.closedbEnd If End SubPrivate Sub Form_Load() On Error Resume NextMe.Caption = Me.Caption & msgSelect Case msgCase Is = 添加音像 Me.TabStrip1.Tabs(2).Selected

7、 = True For i = 0 To 8Me.txtinfo(i).BackColor = vbWhite Nextbo1.BackColor = vbWhite bo2.BackColor = vbWhite bo3.BackColor = vbWhite bo4.BackColor = vbWhiteMe.txtselect(0).Visible = FalseMe.Labinfo(1).Visible = False設(shè)置白色代表有效sel(0).Visible = False Me.search(0).Visible = Falsebo1.Clear bo2.Clear bo3.Cl

8、earbo4.ClearCall yn.opendb(select * from 影片類型)Do While yn.myrec.EOF = Falsebo2.AddItem yn.myrec.Fields(影片類型) yn.myrec.MoveNextLoopCall yn.closedbCall yn.opendb(select * from 影片格式)Do While yn.myrec.EOF = Falsebo3.AddItem yn.myrec.Fields(影片格式) yn.myrec.MoveNextLoopCall yn.closedbCall yn.opendb(select

9、* from 影片語言)Do While yn.myrec.EOF = Falsebo4.AddItem yn.myrec.Fields(影片語言) yn.myrec.MoveNextLoopCall yn.closedbCall yn.opendb(select * from 自定義)Me.txtinfo(6).Text = yn.myrec.Fields(價格)Me.txtinfo(5).Text = yn.myrec.Fields(出租價格)Call yn.closedbCase Is = 修改音像Me.txtselect(0).TabIndex = 0sel(0).TabIndex =

10、 1Me.TabStrip1.Tabs(3).Selected = True For i = 0 To 8Me.txtinfo(i).BackColor = vbWhite Nextbo1.BackColor = vbWhite bo2.BackColor = vbWhite bo3.BackColor = vbWhite bo4.BackColor = vbWhite bo1.Clearbo2.Clear設(shè)置白色代表有效bo3.Clearbo4.ClearCall yn.opendb(select * from 影片類型)Do While yn.myrec.EOF = Falsebo2.Ad

11、dItem yn.myrec.Fields(影片類型) yn.myrec.MoveNextLoopCall yn.closedbCall yn.opendb(select * from 影片格式)Do While yn.myrec.EOF = Falsebo3.AddItem yn.myrec.Fields(影片格式) yn.myrec.MoveNextLoopCall yn.closedbCall yn.opendb(select * from 影片語言)Do While yn.myrec.EOF = Falsebo4.AddItem yn.myrec.Fields(影片語言) yn.myr

12、ec.MoveNextLoopCall yn.closedbCase Is = 音像查詢Me.TabStrip1.Tabs(1).Selected = True bo1.Visible = FalseFor i = 0 To 8 Me.txtinfo(i).Locked = TrueNext Me.txtselect(0).TabIndex = 0sel(0).TabIndex = 1Case Is = 刪除音像 Me.TabStrip1.Tabs(4).Selected = True Me.txtselect(0).TabIndex = 0sel(0).TabIndex = 1End Sel

13、ectEnd SubPrivate Sub modicd_Click()On Error Resume Nextmsg = 修改音像忽略錯誤Me.TabStrip1.Tabs(3).Selected = True Me.MSHFlexGrid1.Row = Me.MSHFlexGrid1.RowSel Me.MSHFlexGrid1.Col = 1Me.txtselect(0).Text = Me.MSHFlexGrid1.Text Me.MSHFlexGrid1.Visible = FalseMe.Frame1.Visible = True確定查詢條件db = select * from 影

14、片資料 where 影片名稱= & Trim(Me.txtselect(0).Text) & Call yn.opendb(db)cdm.txtinfo(0).Text = yn.myrec.Fields(影片)cdm.txtinfo(1).Text = yn.myrec.Fields(影片名稱) cdm.txtinfo(4).Text = yn.myrec.Fields(時間長度)cdm.txtinfo(2).Text = yn.myrec.Fields(導(dǎo)演)cdm.txtinfo(3).Text = yn.myrec.Fields(年度)cdm.txtinfo(8).Text = yn.

15、myrec.Fields(影片介紹)cdm.txtinfo(6).Text = yn.myrec.Fields(價格)bo2.Text = yn.myrec.Fields(影片類型) bo4.Text = yn.myrec.Fields(影片語言) bo3.Text = yn.myrec.Fields(影片格式)cdm.txtinfo(7).Text = yn.myrec.Fields(總數(shù)) cdm.txtinfo(5).Text = yn.myrec.Fields(出租價格) Call yn.closedbCall yn.opendb(select * from 演員 where 影片Do

16、 While Not yn.myrec.EOF= & Me.txtinfo(0).Text & )bo1.AddItem yn.myrec.Fields(演員).Value yn.myrec.MoveNextLoopCall yn.closedbEnd SubPrivate Sub MSHFlexGrid1_Click()Me.Popupmodimsf彈出修改菜單End SubPrivate Sub qd_Click()Select Case msgCase Is = 添加音像If Me.txtinfo(0).Text ThenFor i = 0 To 8If Me.txtinfo(i).Te

17、xt = ThenMsgBox 對不起這里的每個選項(xiàng)你都要填寫！, vbQuestion Exit SubEnd If Nextdb = select * from 影片資料 where 影片名稱= & Me.txtinfo(1).Text & Call yn.opendb(db)If yn.myrec.EOF = False ThenMsgBox 已經(jīng)有這部影片了！, vbQuestion Call yn.closedbElseCall yn.closedbCall yn.add(音像信息) Call yn.add(演員)MsgBox 添加成功！, vbInformation + vbOKO

18、nly, 音像制品出租及銷售管理系統(tǒng) For i = 0 To 4Me.txtinfo(i).Text = NextMe.txtinfo(7).Text = Me.txtinfo(8).Text = bo1.Text = bo1.Clear bo2.Text = bo3.Text = bo4.Text = End IfEnd IfCase Is = 修改音像If Me.txtinfo(0).Text Then Call yn.modi(音像信息) Call yn.modi(演員)MsgBox 修改成功！, vbInformation + vbOKOnly, 音像制品出租及銷售管理系統(tǒng)For i

19、 = 0 To 8 Me.txtinfo(i).Text = NextEnd IfCase Is = 刪除音像If Me.txtinfo(0).Text Thendb = select * from 影片資料 where 影片名稱= & Me.txtinfo(1).Text & Call yn.opendb(db)Call yn.myrec.Delete Call yn.myrec.Update Call yn.closedbCall yn.opendb(select * from 演員)yn.mycon.Execute delete from 演員 where 影片Call yn.close

20、db For i = 0 To 8Me.txtinfo(i).Text = Nextbo1.Text = bo2.Text = bo3.Text = bo4.Text = sel(0).Text = Me.txtselect(0).Text = Me.lstinfo.Clear= & cdm.txtinfo(0).Text & MsgBox 管理系統(tǒng)End If End Select像已刪除！, vbInformation + vbOKOnly, 音像制品出租及銷售End SubPrivate Sub qx_Click()Unload MeEnd SubPrivate Sub search_C

21、lick(Index Aseger)Ifsel(0).Text And Me.txtselect(0).Text ThenSelect Case msgCase Is = 修改音像bo1.Clear Call selecCase Is = 音像查詢Me.lstinfo.Clear Call selecCase Is = 刪除音像Me.lstinfo.Clear Call selecEnd Select ElseMsgBox 請輸入查詢條件！, vbInformation + vbOKOnly, 音像制品出租及銷售管理系統(tǒng)End If End SubPrivate Sub TabStrip1_C

22、lick()On Error Resume NextSelect Case Me.TabStrip1.SelectedItem.IndexCase Is = 1msg = 音像查詢 Me.Caption = 音像管理 & msgsel(0).Visible = True Me.txtselect(0).Visible = True Me.Labinfo(1).Visible = True Me.search(0).Visible = Truebo1.Visible = False Me.lstinfo.Visible = True Me.MSHFlexGrid1.Visible = False

23、 Me.Frame1.Visible = TrueFor i = 0 To 8 Me.txtinfo(i).Text = Me.txtinfo(i).Locked = TrueNextbo1.Text = bo2.Text = bo3.Text = bo4.Text = sel(0).Text = Me.txtselect(0).Text = Me.lstinfo.ClearFor i = 0 To 8Me.txtinfo(i).BackColor = &H80000004 Nextbo1.BackColor = &H80000004bo2.BackColor = &H80000004bo3.

24、BackColor = &H80000004 bo4.BackColor = &H80000004Case Is = 2msg = 添加音像 Me.Caption = 音像管理 & msgsel(0).Visible = False Me.txtselect(0).Visible = False Me.Labinfo(1).Visible = False Me.search(0).Visible = Falsebo1.Visible = True Me.lstinfo.Visible = False Me.MSHFlexGrid1.Visible = False Me.Frame1.Visib

25、le = TrueFor i = 0 To 8 Me.txtinfo(i).Text = Me.txtinfo(i).Locked = False Nextbo1.Text = bo2.Text = bo3.Text = bo4.Text = bo1.Clear bo2.Clear bo3.Clear bo4.ClearMe.lstinfo.Clear For i = 0 To 8Me.txtinfo(i).BackColor = vbWhite Nextbo1.BackColor = vbWhite bo2.BackColor = vbWhite bo3.BackColor = vbWhit

26、e bo4.BackColor = vbWhiteCall yn.opendb(select * from 影片類型)Do While yn.myrec.EOF = Falsebo2.AddItem yn.myrec.Fields(影片類型) yn.myrec.MoveNextLoopCall yn.closedbCall yn.opendb(select * from 影片格式) Do While yn.myrec.EOF = Falsebo3.AddItem yn.myrec.Fields(影片格式) yn.myrec.MoveNextLoopCall yn.closedbCall yn.

27、opendb(select * from 影片語言)Do While yn.myrec.EOF = Falsebo4.AddItem yn.myrec.Fields(影片語言) yn.myrec.MoveNextLoopCall yn.closedbCall yn.opendb(select * from 自定義)Me.txtinfo(6).Text = yn.myrec.Fields(價格)Me.txtinfo(5).Text = yn.myrec.Fields(出租價格)Call yn.closedbCase Is = 3msg = 修改音像 Me.Caption = 音像管理 & msg

28、sel(0).Visible = True Me.txtselect(0).Visible = True Me.Labinfo(1).Visible = True Me.search(0).Visible = Truebo1.Visible = True Me.lstinfo.Visible = False Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = TrueFor i = 0 To 8 Me.txtinfo(i).Text = Me.txtinfo(i).Locked = False Nextbo1.Text = bo1.Clear

29、 bo2.Clear bo3.Clear bo4.Clear bo2.Text = bo3.Text = bo4.Text = sel(0).Text = Me.txtselect(0).Text = Me.lstinfo.ClearFor i = 0 To 8Me.txtinfo(i).BackColor = vbWhite Me.txtinfo(i).Locked = FalseNextbo1.BackColor = vbWhite bo2.BackColor = vbWhite bo3.BackColor = vbWhite bo4.BackColor = vbWhiteCall yn.

30、opendb(select * from 影片類型)Do While yn.myrec.EOF = Falsebo2.AddItem yn.myrec.Fields(影片類型) yn.myrec.MoveNextLoopCall yn.closedbCall yn.opendb(select * from 影片格式)Do While yn.myrec.EOF = Falsebo3.AddItem yn.myrec.Fields(影片格式) yn.myrec.MoveNextLoopCall yn.closedbCall yn.opendb(select * from 影片語言)Do While

31、 yn.myrec.EOF = Falsebo4.AddItem yn.myrec.Fields(影片語言) yn.myrec.MoveNextLoopCall yn.closedbCase Is = 4msg = 刪除音像 Me.Caption = 音像管理 & msgsel(0).Visible = True Me.txtselect(0).Visible = True Me.Labinfo(1).Visible = True Me.search(0).Visible = Truebo1.Visible = False Me.lstinfo.Visible = True Me.MSHFle

32、xGrid1.Visible = False Me.Frame1.Visible = TrueFor i = 0 To 8 Me.txtinfo(i).Text = Me.txtinfo(i).Locked = TrueNextbo1.Text = bo2.Text = bo3.Text = bo4.Text = sel(0).Text = Me.txtselect(0).Text = Me.lstinfo.ClearFor i = 0 To 8Me.txtinfo(i).BackColor = &H80000004 Nextbo1.BackColor = &H80000004 bo2.Bac

33、kColor = &H80000004 bo3.BackColor = &H80000004bo4.BackColor = &H80000004End SelectEnd SubPrivate Sub txtinfo_KeyPress(Index Aseger, KeyAscii Aseger)If Index = 3 Or Index = 4 Or Index = 5 Or Index = 6 Or Index = 7 Then Select Case KeyAsciiCase Asc(0) To Asc(9) Case ElseKeyAscii = 0MsgBox 請輸入數(shù)字！, vbIn

34、formation + vbOKOnly, 音像制品出租及銷售管理系統(tǒng)End Select End IfEnd SubPrivate Sub selec()=查詢過程On Error Resume NextIfsel(0).Text = 影片 Orsel(0).Text = 影片名稱 ThenMe.MSHFlexGrid1.Visible = False Me.Frame1.Visible = Truedb = select * from 影片資料 where &Me.txtselect(0).Text & Call yn.opendb(db)If yn.myrec.EOF Thensel(0

35、).Text & = &MsgBox 無像！, vbInformation + vbOKOnly, 音像制品出租及銷售管理系統(tǒng)Elsecdm.txtinfo(0).Text = yn.myrec.Fields(影片)cdm.txtinfo(1).Text = yn.myrec.Fields(影片名稱)cdm.txtinfo(4).Text = yn.myrec.Fields(時間長度) cdm.txtinfo(2).Text = yn.myrec.Fields(導(dǎo)演)cdm.txtinfo(3).Text = yn.myrec.Fields(年度)cdm.txtinfo(8).Text = y

36、n.myrec.Fields(影片介紹)cdm.txtinfo(6).Text = yn.myrec.Fields(價格)bo2.Text = yn.myrec.Fields(影片類型) bo4.Text = yn.myrec.Fields(影片語言) bo3.Text = yn.myrec.Fields(影片格式)cdm.txtinfo(7).Text = yn.myrec.Fields(總數(shù)) cdm.txtinfo(5).Text = yn.myrec.Fields(出租價格) Call yn.closedbCall yn.opendb(select * from 演員 where 影片

37、Do While Not yn.myrec.EOFMe.lstinfo.AddItem yn.myrec.Fields(演員).Value yn.myrec.MoveNextLoopCall yn.closedbCall yn.opendb(select * from 演員 where 影片Do While Not yn.myrec.EOF= & Me.txtinfo(0).Text & )= & Me.txtinfo(0).Text & )bo1.AddItem yn.myrec.Fields(演員).Value yn.myrec.MoveNextLoop End IfCall yn.clo

38、sedbElseIfsel(0).Text = 導(dǎo)演 Orsel(0).Text = 影片類型 Orsel(0).Text = 影片格式 Orsel(0).Text = 影片語言 Thendb = select * from 影片資料 where & VBA.LCase(Me.txtselect(0).Text) & Call yn.opendb(db)If yn.myrec.EOF Thensel(0).Text & = &MsgBox 無像！, vbInformation + vbOKOnly, 音像制品出租及銷售管理系統(tǒng)Call yn.closedb ElseMe.Frame1.Visi

39、ble = False Me.MSHFlexGrid1.Visible = TrueSet Me.MSHFlexGrid1.DataSource = yn.myrec Call yn.closedbEnd IfElseIf VBA.IsNumeric(Me.txtselect(0).Text) = True Then db = select * from 影 片 資 料 where &Me.txtselect(0).TextCall yn.opendb(db) If yn.myrec.EOF Thensel(0).Text & = &MsgBox 無像！, vbInformation + vb

40、OKOnly, 音像制品出租及銷售管理系統(tǒng)Call yn.closedb ElseMe.Frame1.Visible = False Me.MSHFlexGrid1.Visible = TrueSet Me.MSHFlexGrid1.DataSource = yn.myrec Call yn.closedbEnd IfElseMsgBox 請輸入數(shù)字！, vbInformation + vbOKOnly, 音像制品出租及銷售管理系統(tǒng)End IfEnd IfEnd SubPrivate Sub txtselect_KeyPress(Index As If KeyAscii = 13 ThenCa

41、ll search_Click(0) End IfEnd Sub2、main.frmDim yn As New yneger, KeyAscii Aseger)Option ExplicitPrivate Sub aboutload.Show vbModal End Sub_Click()Private Sub addcd_Click()msg = 添加音像cdm.Show vbModalEnd SubPrivate Sub addma_Click()msg = 添加管理員manger.Show vbModalEnd SubPrivate Sub adduser_Click()msg = 添加

42、新會員user.Show vbModalEnd SubPrivate Sub backup_Click()Dim bi As BROWSEINFO 必要的變量Dim rtn&,l&, path$,%, t%, SpecIn$, specout$bi.hOwner = Me.hwnd 使框處于屏幕中心bi.lpszTitle = 請選擇文件夾 設(shè)置標(biāo)題文字bi.ulFlags = BIF_RETURNONLYFSDIRS 返回文件夾的類型 l& = SHBrowseForFolder(bi) 顯示框path = Space(512) 設(shè)置字符數(shù)的最大值t = SHGetPathFromIDLis

43、t(ByVall&, ByVal path) 獲得所選的路徑% = InStr(path$, Chr$(0) 從字符串中提取路徑SpecIn$ = Left(path$,- 1)If Right$(SpecIn, 1) = Then specout$ = SpecIn$Elsespecout$ = SpecIn$ & End IfVBA.FileCopy App.path & cd.mdb, specout$ & cd.mdbEnd SubPrivate Sub delema_Click() msg = 刪除管理員manger.Show vbModalEnd SubPrivate Sub de

44、leuser_Click()msg = 刪除會員 user.Show vbModalEnd SubPrivate Sub Form_Load()If App.PrevInstance = True Then EndEnd Ifloadma.Show vbModal msg = 銷售音像Me.Label1.Caption = 銷售音像End SubPrivate Sub Form_Resize()If Me.WindowSe = 1 Then ElseMe.Height = 8130Me.Width = 11325 End IfEnd SubPrivate Sub gpcx_Click() ms

45、g = 音像查詢 cdm.Show vbModalEnd SubPrivate Sub Label1_Click()If Me.txtselect(0).Text Then Select Case Me.Label1.CaptionCase Is = 銷售音像Call yn.opendb(select * from)影片資料 where 影片名稱= & Me.txtselect(0).Text &yn.myrec.Fields(總數(shù)) = yn.myrec.Fields(總數(shù)) - 1 Call yn.myrec.UpdateCall yn.closedbMsgBox 銷售音像成功！, vbI

46、nformation + vbOKOnly, 音像制品出租及銷售管理系統(tǒng)Case Is = 出租音像Call yn.opendb(select * from 影片資料 where 影片名稱= & Me.txtselect(0).Text &)yn.myrec.Fields(總數(shù)) = yn.myrec.Fields(總數(shù)) - 1 Call yn.myrec.UpdateCall yn.closedbCall yn.opendb(select * from 客戶日志)Call yn.myrec.AddNewyn.myrec.Fields(客戶yn.myrec.Fields(影片) = Me.t

47、xtselect(1).Text) = Me.txtinfo(0).Textyn.myrec.Fields(借出時期) = VBA.Date Call yn.myrec.UpdateMsgBox 出租音像成功！, vbInformation + vbOKOnly, 音像制品出租及銷售管理系統(tǒng)Call yn.closedbCase Is = 歸還音像Call yn.opendb(select * from 客戶日志 where 客戶and 影片= & Me.txtinfo(0).Text & ) If yn.myrec.EOF Then= & Me.txtselect(1).Text & Msg

48、Box 些用戶沒租出或已還回！, vbInformation + vbOKOnly, 音像制品出租及銷售管理系統(tǒng)Call yn.closedb ElseCall yn.myrec.Delete Call yn.closedbCall yn.opendb(select * from 影片資料 where 影片名稱= & Me.txtselect(0).Text& )yn.myrec.Fields(總數(shù)) = yn.myrec.Fields(總數(shù)) + 1 Call yn.myrec.UpdateCall yn.closedbMsgBox 歸還音像成功！, vbInformation + vbOK

49、Only, 音像制品出租及銷售管理系統(tǒng)End If End Select ElseExit SubEnd IfEnd SubPrivate Sub modicd_Click()msg = 修改音像cdm.Show vbModalEnd SubPrivate Sub modima_Click()msg = 修改管理員manger.Show vbModalEnd SubPrivate Sub modiuser_Click()msg = 修改會員user.Show vbModalEnd SubPrivate Sub pd_Click()判斷是否為會員msg = 查詢會員user.Show vbMod

50、alEnd SubPrivate Sub pd_MouseMove(Button As是否為會員eger, Shift Aseger, X As Single, Y As Single) 判斷pd.ForeColor = &HFF0000End SubPrivate Sub quit_Click()EndEnd SubPrivate Sub search_Click(Index Aseger)On Error Resume Next Me.txtinfo(0).Text = Me.txtinfo(1).Text = Me.txtinfo(3).Text = Me.txtinfo(4).Text

51、 = Me.txtinfo(5).Text = Me.txtinfo(6).Text = Me.txtinfo(8).Text = Me.txtinfo(9).Text = Me.txtinfo(7).Text = Me.txtinfo(12).Text = Me.lstinfo.ClearCall yn.opendb(select * from 影片資料 where 影片名稱= & Me.txtselect(0).Text & ) If yn.myrec.EOF ThenMsgBox 沒有此影片！, vbInformation + vbOKOnly, 音像制品出租及銷售管理系統(tǒng) Call y

52、n.closedbElseMe.txtinfo(0).Text = yn.myrec.Fields(影片)Me.txtinfo(1).Text = yn.myrec.Fields(影片名稱)Me.txtinfo(3).Text = yn.myrec.Fields(導(dǎo)演)Me.txtinfo(4).Text = yn.myrec.Fields(年度)Me.txtinfo(5).Text = yn.myrec.Fields(時間長度) Me.txtinfo(6).Text = yn.myrec.Fields(影片語言) Me.txtinfo(8).Text = yn.myrec.Fields(影片

53、類型) Me.txtinfo(9).Text = yn.myrec.Fields(影片格式) Me.txtinfo(7).Text = yn.myrec.Fields(影片介紹) Me.txtinfo(12).Text = yn.myrec.Fields(總數(shù)) Call yn.closedbCall yn.opendb(select * from 演員 where 影片Do While Not yn.myrec.EOFMe.lstinfo.AddItem yn.myrec.Fields(演員).Value yn.myrec.MoveNextLoopCall yn.closedb= & Me.

54、txtinfo(0).Text & )Call yn.opendb(select * from 客戶日志 where 客戶= & Me.txtselect(1).Text & and影片= & Me.txtinfo(0).Text & )If Not yn.myrec.EOF ThenMe.Text1.Text = yn.myrec.Fields(借出時期) Call yn.closedbElseCall yn.closedb End IfEnd IfEnd SubPrivate Sub selema_Click()msg = 管理員查詢manger.Show vbModalEnd SubPr

55、ivate Sub seleuser_Click()msg = 查詢會員user.Show vbModalEnd SubPrivate Sub setf_Click()setff.Show vbModalEnd SubPrivate Sub_Click()Dim bi As BROWSEINFO 必要的變量Dim rtn&,l&, path$,%, t%, SpecIn$, specout$bi.hOwner = Me.hwnd 使框處于屏幕中心bi.lpszTitle = 請選擇文件夾 設(shè)置標(biāo)題文字bi.ulFlags = BIF_RETURNONLYFSDIRS 返回文件夾的類型 l& =

56、 SHBrowseForFolder(bi) 顯示框path = Space(512) 設(shè)置字符數(shù)的最大值t = SHGetPathFromIDList(ByVall&, ByVal path) 獲得所選的路徑% = InStr(path$, Chr$(0) 從字符串中提取路徑SpecIn$ = Left(path$,- 1)If Right$(SpecIn, 1) = Then specout$ = SpecIn$Elsespecout$ = SpecIn$ & End IfVBA.FileCopy specout$ & cd.mdb, App.path & cd.mdbEnd SubPri

57、vate Sub TabStrip1_Click()Me.Label1.Caption = Me.TabStrip1.SelectedItem.Caption Select Case Me.TabStrip1.SelectedItem.IndexCase Is = 1msg = 銷售音像 Me.txtinfo(0).Text = Me.txtinfo(1).Text = Me.txtinfo(3).Text = Me.txtinfo(4).Text = Me.txtinfo(5).Text = Me.txtinfo(6).Text = Me.txtinfo(8).Text = Me.txtin

58、fo(9).Text = Me.txtinfo(7).Text = Me.txtinfo(12).Text = Me.lstinfo.Clear Me.Label2.Visible = FalseMe.Text1.Visible = FalseCase Is = 2msg = 出租音像 Me.txtinfo(0).Text = Me.txtinfo(1).Text = Me.txtinfo(3).Text = Me.txtinfo(4).Text = Me.txtinfo(5).Text = Me.txtinfo(6).Text = Me.txtinfo(8).Text = Me.txtinf

59、o(9).Text = Me.txtinfo(7).Text = Me.txtinfo(12).Text = Me.lstinfo.Clear Me.Label2.Visible = FalseMe.Text1.Visible = FalseCase Is = 3msg = 歸還音像 Me.txtinfo(0).Text = Me.txtinfo(1).Text = Me.txtinfo(3).Text = Me.txtinfo(4).Text = Me.txtinfo(5).Text = Me.txtinfo(6).Text = Me.txtinfo(8).Text = Me.txtinfo

60、(9).Text = Me.txtinfo(7).Text = Me.txtinfo(12).Text = Me.lstinfo.Clear Me.Label2.Visible = True Me.Text1.Visible = TrueEnd SelectEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button AsctlLib.Button)Select Case Button.Index Case 1msg = 音像查詢cdm.Show vbModal Case 4load.Show vbModal Case 2msg = 查詢會員user