求助 请告知需要做什么数据库

正在做一个atm模拟系统 但是需要数据库支撑 源代码在http://www.codesky.net/showhtml/6632.htm中下载只是在他本身做好的系统中输入卡号不正确 只能停止在第二界面 所以就喜大普奔了 求万能的吧友帮助

求帮助

可以用access

你老师建议的这几个都可以说是小型数据库，VB的程序一般小型数据库就足够了

你下载office，然后安装其中的组件Access。然后创建一个数据库，在数据库里添加一个表，名字叫 用户操作表，然后在表里添加字段“卡号”，“操作”，"时间"，“取款金额”，“是否成功”。并设置相应的类型。数据库就创建好了（不懂百度“Access怎么创建表”）。然后就是连接数据库和操作数据库了。我习惯用Adodc控件，你这个是Adodb方法连接。然后百度"VB 以adodb方法连接Access数据库"

如果你要做代理充值，需要做网站和网页。做个小程序不行，也没有人相信你。

'　===========================================
'　创建数据库
'　-------------------------------------------
Sub CreateDataBase(strDBPath)
Dim catObj, mLink
Set catObj = CreateObject("ADOX.Catalog")
mLink = "Provider = Microsoft.Jet.OLEDB.4.0;"
mLink = mLink & " Data Source = " & strDBPath
catObj.Create mLink
Set catObj = Nothing
End Sub
'　===========================================
'　：13
'　===========================================
'　创建数据表
'　-------------------------------------------
Sub CreateTable(cDBPath, cTableN, cColumn)
Dim connObj, mLink, mSQL1
Set connObj = CreateObject("ADODB.Connection")
mLink = "Provider = Microsoft.Jet.OLEDB.4.0;"
mLink = mLink & " Data Source = " & cDBPath
mSQL1 = "CREATE TABLE " & cTableN
mSQL1 = mSQL1 & "(" & cColumn & ")"
connObj.Open mLink
connObj.Execute mSQL1
connObj.Close
Set connObj = Nothing
End Sub
'　===========================================
'　：30
'　===========================================
'　例程：自动创建数据库表
'　-------------------------------------------
Set ws = Wscript.CreateObject("Wscript.Shell")
Set fso = Wscript.CreateObject( _
"Scripting.FileSystemObject")
Dim mPath, cML, CS1, CS2, CS3
'　程序运行路径
mPath = Left(Wscript.ScriptFullName, _
instrrev(Wscript.ScriptFullName, "\") - 1)
If Right(mPath, 1) <> Chr(92) Then
mPath = mPath & Chr(92)
End If
cML = mPath & "SJKB"
'　文件夹不存在就自动建立
If (Not fso.FolderExists(cML)) Then
fso.CreateFolder(cML)
End If
'　ws.Run "Taskmgr.EXE", 1, True
'　建立数据库表（库名，表名，字段名）
CS1 = cML & "\Test.MDB"
CS2 = "TestTable"
CS3 = "ID AUTOINCREMENT(1,1), " '　自动ID
CS3 = CS3 & "卡号 Varchar(19), "
CS3 = CS3 & "日期时间 Varchar(19), "
CS3 = CS3 & "操作 Varchar(20), "
CS3 = CS3 & "提取金额 FLOAT(12, 2), "
CS3 = CS3 & "转账账号 Varchar(19), "
CS3 = CS3 & "是否成功 Varchar(2), "
CS3 = CS3 & "余额 FLOAT(12, 2)"
cML = CS1 & vbCrLf & vbCrLf
If CreateObject("Scripting.FileSystemObject").FileExists(CS1) Then
cML = cML & "数据库文件已经存在！"
Else
CreateDataBase CS1
CreateTable CS1, CS2, CS3
cML = cML & "数据库文件已成功建立！"
End If
MsgBox cML, 0 + 64, "系统提示"
'　===========================================
'　：
'　将以上代码复制后，粘贴到一个新建的文本文档中，存盘退出后，
'　改文件名为【新建数据库表A.VBS】，
'　然后双击这个文件即自动建好数据库表。
'　这一个表不够，你还需要建立一个【操作用户表】用于认证输入密码，
'　项目是：ID、卡号、姓名、密码、身份证号、其他说明

@Luosen56

我的代码是经过实际运行的

'　请把这一段拿去把原来的替换掉，原来的用了SQL-Server的描述
'　建立数据库表（库名，表名，字段名）
CS1 = cML & "\转账数据库.MDB"
CS2 = "营业表"
CS3 = "ID AUTOINCREMENT(1,1), " '　自动ID
CS3 = CS3 & "卡号 Varchar(19), "
CS3 = CS3 & "日期时间 Varchar(19), "
CS3 = CS3 & "操作 Varchar(20), "
CS3 = CS3 & "提取金额 Double, "
CS3 = CS3 & "转账账号 Varchar(19), "
CS3 = CS3 & "是否成功 Varchar(2), "
CS3 = CS3 & "余额 Double"

　　以上仅仅是建立数据库表。
　　要输入卡号、密码……需要制作窗体，在文本框里去输入，然后制作一个【确定】按钮，认可输入的数据，然后对数据库表进行一系列的搜索、判断等操作，看你输入的数据是否正确，再决定下一步怎么做 —— 这就是登录操作。