mainmodule.bas

一个银行的管理系统

Attribute VB_Name = "mainModule"
'Option Explicit
Public userName As String   '职工名字
Public userID As String     '职工信息
Public admin  As Boolean


Public LoginSucceeded As Boolean
Public ID_Number As String      '帐户号

Public dangQianRiQi As Date
Public chaXunRiQi As Date
Public chaXunZHL As Integer    '0活期 1定期 2所有 查询种类判断

Public huqQiLiLu As Single
Public huoQiZhHH As String
Public dingQiZhHH As String

Public dingQiZhhh2 As String '取钱时活期余额不够 转换定期
Public huoQiZhhh2 As String


Public a(10) As Boolean
Public Const cnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\数据库课程设计\测试3\db1.mdb;Persist Security Info=False"
Public cnnString3 As String   '存储当前文件夹下数据库位置


Public z As Integer