| 注册代码 |
|
| 作者：佚名 文章来源：网络 点击数： 本日：{$DayHits} 更新时间：2006-11-22 22:15:57 |
注册代码
建表名为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
|
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： 压缩、修复指定的数据库
下一篇文章： 数字在支票打印中分栏数字的函数 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
