注册代码_access编程心得-access开发之路-access攻略

当前位置：主页 > 技巧 > Access技巧 > 编程心得绝招 > 实际编程 > 正文

注册代码

时间：2006-11-22 22:15 来源：网络作者：佚名阅读：次

注册代码
建表名为yhcscsb，启动窗体名为yhcwgl，文本框为cscs窗体代码如下：
Private Sub Form_Open(Cancel As Integer)
Dim css As Long
css = Dmax("cscs", "yhcscsb")

DoCmd.GoToRecord acForm, "yhcwgl", acNewRec
If css < 50 Then
cscs = css + 1
DoCmd.Close
MsgBox "感谢使用《银河财务管理 1.01》免费测试版！" & vbCrLf & _
"提示：在注册前，您还有" & 49 - css & "次可以使用！" & vbCrLf & _
" 请您尽快注册！　　　　　　　" & vbCrLf & _
" " & vbCrLf & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf & _
" 欢迎您访问立文工作室" & vbCrLf & _
" " & vbCrLf & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf & _
" 联系人：于立文" & vbCrLf & _
" 电话：0454-2922221 13945431870" & vbCrLf & _
" gfuuyygy@163.com　　gfuuyygy@msn.com" & vbCrLf & _
" " & vbCrLf & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~", vbOKOnly
Else
DoCmd.Close
MsgBox "您的试用期已过,请您注册!" & vbCrLf & _
" " & vbCrLf & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf & _
" 欢迎您访问立文工作室" & vbCrLf & _
" " & vbCrLf & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf & _
" 联系人：于立文" & vbCrLf & _
" 　　　　　gfuuyygy@163.com　　" & vbCrLf & _
" " & vbCrLf & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~", vbOKOnly

DoCmd.Quit

End If
End Sub

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：Access数据库开发技巧二
下一篇：超炫ACCESS小工具(源码)