数据库课程设计实验报告

班级：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