班级：09级计算机本科三班 学号 50902013022 姓名：汪冠
Private Sub exit_Click() '退出 End End Sub
Private Sub Form_Load() '登陆
Dim objrs As New ADODB.Recordset StatusBar1.Panels(1).Width = 5500 StatusBar1.Panels(2).Width = 5500
StatusBar1.Panels(2).Text = Date$ + \ \Frame_userinfo.Visible = False frame_select.Visible = False
Set objrs = ExecuteSQL(\txt_userid.Text = Trim(objrs.Fields(0)) '显示用户登录的卡号 txt_username.Text = Trim(objrs.Fields(1)) '显示用户名
Txt_date.Text = Trim(objrs.Fields(2)) '显示用户开户日期 txt_cardtype.Text = Trim(objrs.Fields(3)) '显示用户开户身份类型 Txt_cardnum.Text = Trim(objrs.Fields(4)) '显示用户开户证件号码 txt_money.Text = Trim(objrs.Fields(5)) '显示用户当前余额 txt_lasttime.Text = Trim(objrs.Fields(6)) '显示用户最后访问日期
End Sub
Private Sub logout_Click() '注销 Unload Me
Frm_login.Show End Sub
Private Sub openuer_Click() '开户 frm_adminaddnewuser.Show End Sub
Private Sub search_Click() '查询 frm_adminsearch.Show
End Sub
Private Sub Timer1_Timer() '时间
StatusBar1.Panels(2).Text = Date$ + \ \End Sub
Private Sub txt_paymoney_Change()
17
班级：09级计算机本科三班 学号 50902013022 姓名：汪冠
End Sub
Private Sub userinformation_Click() '''''''''''''''''''''''''''显示个人信息
Frame_userinfo.Visible = True frame_select.Visible = False End Sub
'存款栏只能输入数字,进行更新数据库前的检查,自动屏蔽非数字字符 Private Sub Txt_deposit_KeyPress(KeyAscii As Integer) If In_Int(KeyAscii) = False Then KeyAscii = 0 End If End Sub
Private Sub ver_Click() '版本信息 frm_ver.Show
End Sub
Private Sub copy_Click() '数据库还原于备份 frm_copy.Show
End Sub
Private Sub modifyuser_Click() '用户信息修改 frm_updatauser.Show
End Sub
Private Sub freeze_Click() '冻结 frm_freeze.Show
End Sub
3、选择“账户管理”->“个人信息”，显示如下：
18
班级：09级计算机本科三班 学号 50902013022 姓名：汪冠
单击“返回”，用户信息消失，返回主窗体 4、选择“账户管理”->“银行业务”，显示：
可以选择“存款”、“取款”和“转账”操作。
（1）存款：用户选择存款2000元，点击“存款”按钮后，状态栏提示“成功”，并显示当
19
班级：09级计算机本科三班 学号 50902013022 姓名：汪冠
前余额。
（2）转账：若用户转账过程中，输入了不存在的账号，则提示如下：
转账过程中，若账户余额不足，则提示如下：
20
