module1.bas

简易银行系统

Attribute VB_Name = "Module1"


Public cnn As New ADODB.Connection  '连接数据库

Public rss As New ADODB.Recordset

Public str As String   '记录登陆的用户名

Public str1 As String   '记录登陆者当前密码

Public num As Integer '一天的取款总额

Public j As Integer  '记录开户顺序


    





Public Sub cnntor()
    Set cnn = Nothing
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\xiongxiong.mdb;Persist Security Info=False"
End Sub
Public Sub rsstor(ByVal sql As String)
    Set rss = Nothing
    rss.Open sql, cnn, adOpenDynamic, adLockOptimistic, adCmdText
End Sub