tinfo(0).Text&"'")
DoWhileNotyn.myrec.EOF
Me.lstinfo.AddItemyn.myrec.Fields("演员").Value
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb("select*from客户日志where客户姓名='"&Me.txtselect(1).Text&"'and影片编号='"&Me.txtinfo(0).Text&"'")
IfNotyn.myrec.EOFThen
Me.Text1.Text=yn.myrec.Fields("借盘时期")
Callyn.closedb
Else
Callyn.closedb
EndIf
EndIf
EndSub
PrivateSubselema_Click()
msg="管理员查询"
manger.ShowvbModal
EndSub
PrivateSubseleuser_Click()
msg="查询会员"
user.ShowvbModal
EndSub
PrivateSubsetf_Click()
setff.ShowvbModal
EndSub
PrivateSubstore_Click()
DimbiAsBROWSEINFO'声明必要的变量
Dimrtn&,pidl&,path$,pos%,t%,SpecIn$,specout$
bi.hOwner=Me.hwnd'使对话框处于屏幕中心
bi.lpszTitle="请选择文件夹........"'设置标题文字
bi.ulFlags=BIF_RETURNONLYFSDIRS'返回文件夹的类型
pidl&=SHBrowseForFolder(bi)'显示对话框
path=Space(512)'设置字符数的最大值
t=SHGetPathFromIDList(ByValpidl&,ByValpath)'获得所选的路径
pos%=InStr(path$,Chr$(0))'从字符串中提取路径
SpecIn$=Left(path$,pos-1)
IfRight$(SpecIn,1)="\"Then
specout$=SpecIn$
Else
specout$=SpecIn$&"\"
EndIf
VBA.FileCopyspecout$&"cd.mdb",App.path&"\cd.mdb"
EndSub
PrivateSubTabStrip1_Click()
Me.Label1.Caption=Me.TabStrip1.SelectedItem.Caption
SelectCaseMe.TabStrip1.SelectedItem.Index
CaseIs="1"
msg="销售光盘"
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(9).Text=""
Me.txtinfo(7).Text=""
Me.txtinfo(12).Text=""
Me.lstinfo.Clear
Me.Label2.Visible=False
Me.Text1.Visible=False
CaseIs="2"
msg="出租光盘"
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(9).Text=""
Me.txtinfo(7).Text=""
Me.txtinfo(12).Text=""
Me.lstinfo.Clear
Me.Label2.Visible=False
Me.Text1.Visible=False
CaseIs="3"
msg="归还光盘"
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(9).Text=""
Me.txtinfo(7).Text=""
Me.txtinfo(12).Text=""
Me.lstinfo.Clear
Me.Label2.Visible=True
Me.Text1.Visible=True
EndSelect
EndSub
PrivateSubToolbar1_Butt(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Index
Case1
msg="光盘查询"
cdm.ShowvbModal
Case4
load.ShowvbModal
Case2
msg="查询会员"
user.ShowvbModal
Case3
sp.ShowvbModal
EndSelect
EndSub
PrivateSubvcbcvb_Click()
msg="删除光盘"
cdm.ShowvbModal
EndSub
PrivateSubxcvxcv_Click()
helpf.ShowvbModal
EndSub
PrivateSubxsgp_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Me.pd.ForeColor=vbBlack
EndSub
3、manger.frm
DimynAsNewyn'定义yn为yn类
OptionExplicit
PrivateSubForm_Load()
SelectCasemsg
CaseIs="添加管理员"
Me.qd.Caption="添加"'标题赋为
Me.txtselect(0).Locked=True'设置为不可写
Me.txtselect(0).BackColor=&H80000004'设置背景
Me.comsel(0).BackColor=&H80000004
Me.comsel(0).Locked=True
CaseIs="修改管理员"
Me.qd.Caption="修改"
Me.txtselect(0).Locked=False
Me.txtselect(0).BackColor=vbWhite
Me.comsel(0).BackColor=vbWhite
Me.comsel(0).Locked=False
CaseIs="删除管理员"
Me.qd.Caption="删除"
Me.txtselect(0).Locked=False
Me.txtselect(0).BackColor=vbWhite
Me.comsel(0).BackColor=vbWhite
Me.comsel(0).Locked=False
Me.Text1(0).BackColor=&H80000004
Me.Text1(1).BackColor=&H80000004
Me.Text1(3).BackColor=&H80000004
Me.Combo1.BackColor=&H80000004
CaseIs="管理员查询"
Me.txtselect(0).Locked=False
Me.txtselect(0).BackColor=vbWhite
Me.comsel(0).BackColor=vbWhite
Me.comsel(0).Locked=False
Me.Text1(0).BackColor=&H80000004
Me.Text1(1).BackColor=&H80000004
Me.Text1(3).BackColor=&H80000004
Me.Combo1.BackColor=&H80000004
Me.Image1(0).Visible=False'设置不可见
Me.Image2(0).Visible=False
Me.qd.Visible=False
EndSelect
EndSub
PrivateSubLabel2_Click()
UnloadMe'御下窗体
EndSub
PrivateSubqd_Click()
SelectCasemsg
CaseIs="添加管理员"
IfMe.Text1(0).Text<>""AndMe.Text1(1).Text<>""AndMe.Combo1.Text<>""AndMe.Text1(3).Text<>""Then
Callyn.opendb("select*from管理员where名字='"&Me.Text1(0).Text&"'")'查询条件在数据库中
Ifyn.myrec.EOFThen
Callyn.myrec.AddNew'添加
yn.myrec.Fields("名字")=Me.Text1(0).Text
yn.myrec.Fields("密码")=Me.Text1(1).Text
yn.myrec.Fields("级别")=Me.Combo1.Text
yn.myrec.Fields("解屏密码")=Me.Text1(3).Text
Callyn.myrec.Update'更新
Callyn.closedb'关闭
MsgBox"添加成功!!!",vbInformation
Me.Text1(0).Text=""
Me.Text1(1).Text=""
Me.Combo1.Text=""
Me.Text1(3).Text=""
Else
MsgBox"已经有此管理员!!!",vbInformation
Callyn.closedb
EndIf
Else
MsgBox"请输入完整!!!",vbInformation
EndIf
CaseIs="修改管理员"
Callyn.opendb("select*from管理员where名字='"&Me.txtselect(0).Text&"'")
IfNotyn.myrec.EOFThen
yn.myrec.Fields("名字")=Me.Text1(0).Text
yn.myrec.Fields("密码")=Me.Text1(1).Text
yn.myrec.Fields("级别")=Me.Combo1.Text
yn.myrec.Fields("解屏密码")=Me.Text1(3).Text
Callyn.myrec.Update
Callyn.closedb
MsgBox"修改成功!!!",vbInformation
EndIf
CaseIs="删除管理员"
Callyn.opendb("select*from管理员where名字='"&Me.txtselect(0).Text&"'")
IfNotyn.myrec.EOFThen
Me.Text1(0).Text=yn.myrec.Fields("名字")
Me.Text1(1).Text=yn.myrec.Fields("密码")
Me.Combo1.Text=yn.myrec.Fields("级别")
Me.Text1(3).Text=yn.myrec.Fields("解屏密码")
Callyn.myrec.Delete'删除
Callyn.myrec.Update'更新
Callyn.closedb'关闭
MsgBox"删除成功!!!",vbInformation
Me.Text1(0).Text=""
Me.Text1(1).Text=""
Me.Combo1.Text=""
Me.Text1(3).Text=""
EndIf
EndSelect
EndSub
PrivateSubsearch_Click(IndexAsInteger)
Callyn.opendb("select*from管理员where名字='"&Me.txtselect(0).Text&"'")
IfNotyn.myrec.EOFThen
Me.Text1(0).Text=yn.myrec.Fields("名字")
Me.Text1(1).Text=yn.myrec.Fields("密码")
Me.Co
上一篇:
vb音像制品出租及销售管理系统(论文和程序)
下一篇:
马克思主义基本原理概论论文大学论文