mbo1.Text=yn.myrec.Fields("级别")
Me.Text1(3).Text=yn.myrec.Fields("解屏密码")
Callyn.closedb
Else
MsgBox"没有此管理员!!!",vbInformation
Callyn.closedb
EndIf
EndSub
4、user.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
Callyn.opendb("select*from客户")'查询条件在数据库中
IfNotyn.myrec.EOF()Then
yn.myrec.MoveLast'移动到下一条
Me.Text1(0).Text=yn.myrec.Fields("客户号")+1
Else
Me.Text1(0).Text=1
EndIf
Callyn.closedb
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(2).BackColor=&H80000004
Me.Text1(3).BackColor=&H80000004
Me.Text1(4).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(2).BackColor=&H80000004
Me.Text1(3).BackColor=&H80000004
Me.Text1(4).BackColor=&H80000004
Me.Image1(0).Visible=False
Me.Image2(0).Visible=False
Me.qd.Visible=False
EndSelect
EndSub
PrivateSubLabel2_Click()
UnloadMe'御下窗体
EndSub
PrivateSubqd_Click()
ResumeNext
SelectCasemsg
CaseIs="添加新会员"
IfMe.Text1(0).Text=""OrMe.Text1(1).Text=""Then
MsgBox"请输入会员号或姓名!!!",vbQuestion
Else
Callyn.opendb("select*from客户where客户姓名='"&Me.Text1(1).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.Text1(2).Text
yn.myrec.Fields("OICQ")=Me.Text1(3).Text
yn.myrec.Fields("Email")=Me.Text1(4).Text
Callyn.myrec.Update'更新
Callyn.closedb'关闭
MsgBox"用户注册成功!!!",vbInformation
Fori=0To4
Me.Text1(i).Text=""
Next
Else
MsgBox"此用户已注册!!!",vbInformation
Callyn.closedb
EndIf
EndIf
CaseIs="修改会员"
IfMe.Text1(0).Text<>""Then
Callyn.opendb("select*from客户where客户号='"&Me.Text1(0).Text&"'")
IfNotyn.myrec.EOFThen
yn.myrec.Fields("客户号")=Me.Text1(0).Text
yn.myrec.Fields("客户姓名")=Me.Text1(1).Text
yn.myrec.Fields("电话")=Me.Text1(2).Text
yn.myrec.Fields("OICQ")=Me.Text1(3).Text
yn.myrec.Fields("Email")=Me.Text1(4).Text
Callyn.myrec.Update
Callyn.closedb
MsgBox"用户修改成功!!!",vbInformation
EndIf
EndIf
CaseIs="删除会员"
IfMe.Text1(0).Text<>""Then
Callyn.opendb("select*from客户where客户号='"&Me.Text1(0).Text&"'")
Ifyn.myrec.EOFThen
MsgBox"没有此用户!!!",vbInformation
Callyn.closedb
Else
Callyn.myrec.Delete
Callyn.myrec.Update
Callyn.closedb
MsgBox"会员删除成功!!!",vbInformation
Fori=0To4
Me.Text1(i).Text=""
Next
EndIf
EndIf
EndSelect
EndSub
PrivateSubsearch_Click(IndexAsInteger)
Fori=0To4
Me.Text1(i).Text=""
Next
ResumeNext
Callyn.opendb("select*from客户where"&Me.comsel(0).Text&"='"&Me.txtselect(0).Text&"'")
Ifyn.myrec.EOFThen
MsgBox"没有此用户!!!",vbInformation
Callyn.closedb
Else
Me.Text1(0).Text=yn.myrec.Fields("客户号")
Me.Text1(1).Text=yn.myrec.Fields("客户姓名")
Me.Text1(2).Text=yn.myrec.Fields("电话")
Me.Text1(3).Text=yn.myrec.Fields("OICQ")
Me.Text1(4).Text=yn.myrec.Fields("Email")
Callyn.closedb
EndIf
EndSub
PrivateSubText1_KeyPress(IndexAsInteger,KeyAsciiAsInteger)
IfIndex=0OrIndex=2OrIndex=3Then'如果是TEXT1,TEST2,TEXT3
SelectCaseKeyAscii
CaseAsc("0")ToAsc("9")'只允许它们输入数字
CaseElse
KeyAscii=0
MsgBox"请输入数字!!!",vbInformation
EndSelect
EndIf
EndSub
??
??
??
??
2
上一篇:
vb音像制品出租及销售管理系统(论文和程序)
下一篇:
科研管理杂志简介