数据库课程设计实验报告

班级：09级计算机本科三班 学号 50902013022 姓名：汪冠

frmmain.Show Unload Me End Sub

Private Sub txt_userid_KeyPress(KeyAscii As Integer) If (In_Int(KeyAscii) = False) Then KeyAscii = 0 End If End Sub

2、 登陆成功后进入主窗体

此窗体代码如下：

Private Sub bank_business_Click() '银行业务 Frame_userinfo.Visible = False '个人信息不可视 frame_select.Visible = True 'select可视 End Sub

Private Sub cmd_back_Click() '返回

Frame_userinfo.Visible = False '个人信息不可视 frame_select.Visible = False 'select不可视 End Sub

Private Sub cmd_deposit_Click() '存款 Dim total As Single Dim tempsql As String

13

班级：09级计算机本科三班 学号 50902013022 姓名：汪冠

Dim objrs As New ADODB.Recordset

Set objrs = ExecuteSQL(\查出用户当前余额

If Val(txt_deposit.Text) > 10000 Then

MsgBox \每次存款金额不能超过10000元，请重新输入存款金额！\提示\ txt_deposit.Text = \ txt_deposit.SetFocus End If

total = Val(objrs.Fields(0)) + Val(txt_deposit.Text)

tempsql = \

Set objrs = ExecuteSQL(tempsql) txt_deposit.Text = \txt_deposit.SetFocus

StatusBar1.Panels(1).Text = \存款成功，当前余额为：\元\

'''''''''''''''''''''''''''同时要刷新个人存取款信息

Set objrs = ExecuteSQL(\txt_money.Text = Trim(objrs.Fields(5)) End Sub

Private Sub cmd_draw_Click() '取款 Dim total As Single '定义变量 Dim tempsql As String

Dim objrs As New ADODB.Recordset

Set objrs = ExecuteSQL(\查出用户当前余额

If Val(txt_drawmoney.Text) > Val(objrs.Fields(0)) Then

MsgBox \您的余额不足，请重新输入取款金额！\提示\ txt_drawmoney.Text = \ txt_drawmoney.SetFocus End If

total = Val(objrs.Fields(0)) - Val(txt_drawmoney.Text)

tempsql = \

Set objrs = ExecuteSQL(tempsql) txt_drawmoney.Text = \txt_drawmoney.SetFocus

14

班级：09级计算机本科三班 学号 50902013022 姓名：汪冠

StatusBar1.Panels(1).Text = \取款成功，当前余额为：\元\

'''''''''''''''''''''''''''同时要刷新个人存取款信息

Set objrs = ExecuteSQL(\txt_money.Text = Trim(objrs.Fields(5)) End Sub

Private Sub cmd_return_Click() '返回主菜单 Frame_userinfo.Visible = False frame_select.Visible = False End Sub

Private Sub cmd_transfer_Click() '转账 Dim objrs As New ADODB.Recordset Dim total1, total2 As Single Dim tempsql As String

If txt_receivingaccount.Text = \

MsgBox \对方账号为空，请重新填写！\提示\ txt_receivingaccount.SetFocus Exit Sub Else

If txt_paymoney.Text = \

MsgBox \请输入转账金额，不能大于10000元!\提示\ txt_paymoney.SetFocus Exit Sub End If End If

'''''''''''''''从数据库中查找输入的对方转账账号是否存在

Set objrs = ExecuteSQL(%userid from userinformation where Trim(txt_receivingaccount)) If objrs.RecordCount = 0 Then

MsgBox \输入转账账号不存在，请仔细核对！\ txt_receivingaccount.Text = \ txt_paymoney.Text = \

txt_receivingaccount.SetFocus Exit Sub End If

'''''''''''''''判断转账账号不能为自身

If txt_receivingaccount.Text = tempuser Then

15

userid=\& 班级：09级计算机本科三班 学号 50902013022 姓名：汪冠

MsgBox \帐号不能为自身！\ Exit Sub End If

''''进行转账，首先判断自身账号中的金额是否够转账金额

Set objrs = ExecuteSQL(\If Val(txt_paymoney.Text) > Val(Trim(objrs.Fields(0))) Then

MsgBox \您的金额不足，请重新输入转账金额!\提示\ txt_paymoney.Text = \ txt_paymoney.SetFocus End If

'取出对方账号中的金额,加上转账金额，再写入数据库中

Set objrs = ExecuteSQL(\deposit from userinformation where userid=\Trim(txt_receivingaccount))

total = Val(objrs.Fields(0)) + Val(Trim(txt_paymoney.Text))

tempsql = %userinformation set deposit=\& total & %userid=\Trim(txt_receivingaccount)

Set objrs = ExecuteSQL(tempsql) '同时自身账户中的金额相应减少

Set objrs = ExecuteSQL(\total = Val(objrs.Fields(0)) - Val(Trim(txt_paymoney.Text))

tempsql = \Set objrs = ExecuteSQL(tempsql) '''清空转账账号和金额

total = Val(txt_paymoney.Text) txt_paymoney.Text = \

txt_receivingaccount.Text = \'''状态栏显示转账成功

StatusBar1.Panels(1).Text = \转账成功，转账金额为：\元\

'''''''''''''''''''''''''''同时要刷新个人存取款信息

Set objrs = ExecuteSQL(\txt_money.Text = Trim(objrs.Fields(5)) End Sub

Private Sub destroyuser_Click() '销户 Frm_deleteuser.Show End Sub

16

& &