发布时间 : 星期三 文章数据库课程设计实验报告更新完毕开始阅读6dbe0bfdf705cc1755270974
班级: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
& &