【CSDN】【做了一个VB ATCIVEX组件(DLL)，用来进行帐户透支验证操作，请大家帮我看看代码逻辑对不对】

drillmaster 2003-10-15 10:53:20
Option Explicit
Private strServerName As String
Private conCheckAccount As Connection
Private rsCheckAccount As Recordset
Public strError As String
Private strSql As String

Private Sub getSQLServerName()
If GetSetting("OnlineBankingDB", "SQL Server Name", "ServerName") = "" Then
strServerName = InputBox("请输入数据库服务器名称")
SaveSetting "OnlineBankingDB", "SQL Server Name", "ServerName", strServerName
Else
strServerName = GetSetting("OnlineBankingDB", "SQL Server Name", "ServerName")
End If
End Sub

Private Sub connectionSQLServer()
Set conCheckAccount = New Connection
Set rsCheckAccount = New Recordset

On Error GoTo errorhandler
Call getSQLServerName

With conCheckAccount
.Provider = "sqloledb"
.ConnectionString = "user id=sa;" & _
"password=;" & _
"data source=" & strServerName & _
";initial catalog=OnlineBankingDB"
.Open
End With

Exit Sub
errorhandler:
MsgBox Err.Number & Err.Source & Err.Description
End Sub

Private Function Credit(strAccountTypeID As String, mCash As Double, mAccountBalance As Double) As Boolean
If rsCheckAccount.State = 1 Then rsCheckAccount.Close
rsCheckAccount.CursorLocation = adUseClient
strSql = "select * from AccountType"
rsCheckAccount.Open strSql, conCheckAccount, adOpenDynamic, adLockOptimistic
If rsCheckAccount.RecordCount > 0 Then
rsCheckAccount.MoveFirst
Do While Not rsCheckAccount.EOF
If rsCheckAccount("cAccountTypeID") = strAccountTypeID Then
If mCash > mAccountBalance Then '
If mCash - mAccountBalance < rsCheckAccount("mMaximumBalance") Then
strError = "警告，你已经进行了帐户透支，本次透支额为:" & CStr(mAccountBalance - mCash) & ",请及时存款"
Credit = True
Exit Do
Else
strError = "警告，帐户透支超过系统上限(" & rsCheckAccount("mMaximumBalance") & "),帐户取款操作被系统终止，请及时存款"
Credit = False
Exit Do
End If
Else
Credit = True
Exit Do
End If
End If
rsCheckAccount.MoveNext
Loop
Else
strError = "帐号非法"
Credit = False
End If
End Function

Public Function validate(strAccountNumber As String, mCash As Double) As Boolean
If strServerName = "" Then
getSQLServerName
End If
Call connectionSQLServer
If rsCheckAccount.State = 1 Then rsCheckAccount.Close
rsCheckAccount.CursorLocation = adUseClient
strSql = "select * from Customer where cAccountNumber ='" & strAccountNumber & "'"
rsCheckAccount.Open strSql, conCheckAccount, adOpenDynamic, adLockOptimistic
If rsCheckAccount.RecordCount > 0 Then
rsCheckAccount.MoveFirst
validate = Credit(rsCheckAccount("cAccountTypeID"), mCash, rsCheckAccount("mAccountBalance"))
Else
strError = "帐号非法"
validate = False
End If
End Function
...全文
32 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
Gelim 2003-10-16
  • 打赏
  • 举报
 回复
你自己先调试一下，有什么错再拿出来看看！
online 2003-10-16
  • 打赏
  • 举报
 回复
你自己先调试一下，有什么错再拿出来看看！
hacker007 2003-10-16
  • 打赏
  • 举报
 回复
Option Explicit
Private strServerName As String
Private conCheckAccount As Connection
Private rsCheckAccount As Recordset
Public strError As String
Private strSql As String

Private Sub getSQLServerName()
If GetSetting("OnlineBankingDB", "SQL Server Name", "ServerName") = "" Then
strServerName = InputBox("请输入数据库服务器名称")
SaveSetting "OnlineBankingDB", "SQL Server Name", "ServerName", strServerName
Else
strServerName = GetSetting("OnlineBankingDB", "SQL Server Name", "ServerName")
End If
End Sub

Private Sub connectionSQLServer()
Set conCheckAccount = New Connection
Set rsCheckAccount = New Recordset

On Error GoTo errorhandler
Call getSQLServerName

With conCheckAccount
.Provider = "sqloledb"
.ConnectionString = "user id=sa;" & _
"password=;" & _
"data source=" & strServerName & _
";initial catalog=OnlineBankingDB"
.Open
End With

Exit Sub
errorhandler:
MsgBox Err.Number & Err.Source & Err.Description
End Sub

Private Function Credit(strAccountTypeID As String, mCash As Currency, mAccountBalance As Currency) As Boolean
If rsCheckAccount.State = 1 Then rsCheckAccount.Close
rsCheckAccount.CursorLocation = adUseClient
strSql = "select * from AccountType"
rsCheckAccount.Open strSql, conCheckAccount, adOpenDynamic, adLockOptimistic
If rsCheckAccount.RecordCount > 0 Then
rsCheckAccount.MoveFirst
Do While Not rsCheckAccount.EOF
If rsCheckAccount("cAccountTypeID") = strAccountTypeID Then
If mCash > mAccountBalance Then '
If mCash - mAccountBalance < rsCheckAccount("mMaximumBalance") Then
strError = "警告，你已经进行了帐户透支，本次透支额为:" & CStr(mAccountBalance - mCash) & ",请及时存款"
Credit = True
Exit Do
Else
strError = "警告，帐户透支超过系统上限(" & rsCheckAccount("mMaximumBalance") & "),帐户取款操作被系统终止，请及时存款"
Credit = False
Exit Do
End If
Else
Credit = True
Exit Do
End If
End If
rsCheckAccount.MoveNext
Loop
Else
strError = "帐号非法"
Credit = False
End If
End Function

Public Function validate(strAccountNumber As String, mCash As Currency) As Boolean
If strServerName = "" Then
getSQLServerName
End If
Call connectionSQLServer
If rsCheckAccount.State = 1 Then rsCheckAccount.Close
rsCheckAccount.CursorLocation = adUseClient
strSql = "select * from Customer where cAccountNumber ='" & strAccountNumber & "'"
rsCheckAccount.Open strSql, conCheckAccount, adOpenDynamic, adLockOptimistic
If rsCheckAccount.RecordCount > 0 Then
rsCheckAccount.MoveFirst
validate = Credit(rsCheckAccount("cAccountTypeID"), mCash, rsCheckAccount("mAccountBalance"))
Else
strError = "帐号非法"
validate = False
End If
End Function
hacker007 2003-10-16
  • 打赏
  • 举报
 回复
Option Explicit
Private strServerName As String
Private conCheckAccount As Connection
Private rsCheckAccount As Recordset
Public strError As String
Private strSql As String

Private Sub getSQLServerName()
If GetSetting("OnlineBankingDB", "SQL Server Name", "ServerName") = "" Then
strServerName = InputBox("请输入数据库服务器名称")
SaveSetting "OnlineBankingDB", "SQL Server Name", "ServerName", strServerName
Else
strServerName = GetSetting("OnlineBankingDB", "SQL Server Name", "ServerName")
End If
End Sub

Private Sub connectionSQLServer()
Set conCheckAccount = New Connection
Set rsCheckAccount = New Recordset

On Error GoTo errorhandler
Call getSQLServerName

With conCheckAccount
.Provider = "sqloledb"
.ConnectionString = "user id=sa;" & _
"password=;" & _
"data source=" & strServerName & _
";initial catalog=OnlineBankingDB"
.Open
End With

Exit Sub
errorhandler:
MsgBox Err.Number & Err.Source & Err.Description
End Sub

Private Function Credit(strAccountTypeID As String, mCash As Double, mAccountBalance As Double) As Boolean
If rsCheckAccount.State = 1 Then rsCheckAccount.Close
rsCheckAccount.CursorLocation = adUseClient
strSql = "select * from AccountType"
rsCheckAccount.Open strSql, conCheckAccount, adOpenDynamic, adLockOptimistic
If rsCheckAccount.RecordCount > 0 Then
rsCheckAccount.MoveFirst
Do While Not rsCheckAccount.EOF
If rsCheckAccount("cAccountTypeID") = strAccountTypeID Then
If mCash > mAccountBalance Then '
If mCash - mAccountBalance < rsCheckAccount("mMaximumBalance") Then
strError = "警告，你已经进行了帐户透支，本次透支额为:" & CStr(mAccountBalance - mCash) & ",请及时存款"
Credit = True
Exit Do
Else
strError = "警告，帐户透支超过系统上限(" & rsCheckAccount("mMaximumBalance") & "),帐户取款操作被系统终止，请及时存款"
Credit = False
Exit Do
End If
Else
Credit = True
Exit Do
End If
End If
rsCheckAccount.MoveNext
Loop
Else
strError = "帐号非法"
Credit = False
End If
End Function

Public Function validate(strAccountNumber As String, mCash As Double) As Boolean
If strServerName = "" Then
getSQLServerName
End If
Call connectionSQLServer
If rsCheckAccount.State = 1 Then rsCheckAccount.Close
rsCheckAccount.CursorLocation = adUseClient
strSql = "select * from Customer where cAccountNumber ='" & strAccountNumber & "'"
rsCheckAccount.Open strSql, conCheckAccount, adOpenDynamic, adLockOptimistic
If rsCheckAccount.RecordCount > 0 Then
rsCheckAccount.MoveFirst
validate = Credit(rsCheckAccount("cAccountTypeID"), mCash, rsCheckAccount("mAccountBalance"))
Else
strError = "帐号非法"
validate = False
End If
End Function

给初学者：用VB写外挂 ———— 实战一：动手写一个红色警戒金钱锁定工具
经过前面二节的介绍，相信大家已经学会如何从窗口名或类获取游戏PID并且读写指定位置的值了。今天就上一个代码：传颂之物修改器基础上，修改一下，来写一个真正可用的修改器，因为传颂之物的那个能力点数的地址是变化的，所以我们需要改比较多的代码，稍微复杂了一些，呵呵，以后我们再慢慢讲，先用这个红色警戒的温习一下知识，来个实战！欲善其事，先利其器，先说说用到的工具：1、游戏修改器：用来查找金钱所在
《当程序员的那些狗日日子》二
《当程序员的那些狗日日子》（十一）独过春节 元旦前公司让我设计了一个A4产品宣传单，这是因为当时做美工设计的小京请假了，而公司又急于欲将一些主要产品对外进行宣传，所以我便自荐让小李总把设计任务交给我。这跟网页设计还是有很大的不同，因为设计图的分辨率要设到很高，设计图要做到很大，所以设计时操作起来的难度要比网页设计大很多。而且除了基本的产品信息外，其他所要用到的图片素材都需要我自己在网上找。所以这...
经历。。
我的人生经历。 [草稿] . 分类： 记忆篇 2015-03-04 02:23 1人阅读 评论(1) 收藏 编辑 删除 一）毕业后的徘徊 我不是计算机相关专业毕业的，我上的是大专，我的专业叫供用电技术，是跟电力行业相关的一个专业。高考填报志愿时，对计算机的了解还完全处于懵懂状态的我，在第二志愿里填报了计算机专业，结果便与计算机专业失之交臂。大专三年里我对自己的专业完全没有兴趣，
【乾言龙语】从今天第一篇博客起，用心记录下我的IT之路，不论未来如何……
/祈福//思念//joy//panda//smile//315/有关我的一切,认识的都了解…不认识的交集过也会慢慢了解…说与不说,我还是我。从今天起时刻不忘三问：为什么，梦想理想目的；怎么做，一分耕耘，一分收获；办法总比困难多。 运筹帷幄之中，决胜千里之外，九层之台起于垒土，千里之行始于足下…… 思想：505406143 生活：619582527 工作：Hello world，谷百4，ju
程序员
1岗位职责 1、对项目经理负责，负责软件项目的详细设计、编码和内部测试的组织实施，对 程序员 程序员 小型软件项目兼任系统分析工作，完成分配项目的实施和技术支持工作。 2、协助项目经理和相关人员同客户进行沟通，保持良好的客户关系。 3、参与需求调研、项目可行性分析、技术可行性分析和需求分析。 4、熟悉并熟练掌握交付软件部开发的软件项目的相关软件技术。 5、负责向项目经理及时反馈
数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印，安装，报表)
社区管理员
  • 数据库(包含打印，安装，报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章