没有合适的资源?快使用搜索试试~ 我知道了~
软件工程银行储蓄管理系统设计

温馨提示


试读
14页
针对面向对象程序设计,包括需求分析,详细设计,总体设计,及实现代码及界面.功能齐全,基本原理中
资源推荐
资源详情
资源评论












软件实现报告
1. 设计目的
该阶段是系统开发过程的最后一个阶段,按照前三个阶段的设计,在这个阶段要选
择适当的计算机语言来编写程序以及实现该软件的各项功能,并且对软件设计测试方
法。
2. 软件源代码如下:
(1)银行储蓄系统
Private Sub cunkuan0_Click()
Unload Me
cunkuan.Show
End Sub
Private Sub denglu1_Click()
Unload Me
denglu.Show
End Sub
Private Sub Form_Load()
If flag = 0 Then
denglu1.Enabled = True
zhukong.Enabled = False
tuichu.Enabled = False
Else
If flag = 1 Then
denglu1.Enabled = False
zhukong.Enabled = True
tuichu.Enabled = True
Else
If flag = 2 Then
denglu1.Enabled = False
zhukong.Enabled = False
tuichu.Enabled = False
Else
End
End If
End If
End If
End Sub
Private Sub kaihu0_Click()
Unload Me
kaihu.Show
End Sub
Private Sub qukuan0_Click()
Unload Me
qukuan.Show

End Sub
Private Sub tuichu_Click()
flag = 0
Unload Me
kaishi.Show
End Sub
Private Sub xiaohu0_Click()
Unload Me
xiaohu.Show
End Sub
Private Sub xingaimima0_Click()
Unload Me
xiugaimima.Show
End Sub
Private Sub zhaxun0_Click()
Unload Me
chaxun.Show
End Sub
Private Sub zhuanzhang0_Click()
Unload Me
zhuanzhang.Show
End Sub
(2) 查询
Private Sub Command1_Click()
Set con = New ADODB.Connection
con.Open connectstring
Set rst = New ADODB.Recordset
rst.Open "select * from zhanghaoxinxi where zhanghao='" & Text1.Text & "'", con,
adOpenKeyset, adLockOptimistic
If rst.BOF And rst.EOF Then
MsgBox "此用户不存在!"
Else
If Text2.Text = rst!mima Then
chaxunyue.Text1.Text = Text1.Text
Unload Me
chaxunyue.Show
End If
End If
rst.Close
con.Close
End Sub
Private Sub Command2_Click()
flag = 1
Unload Me

kaishi.Show
End Sub
(3)查询余额
Private Sub Command1_Click()
cunqukuanrili.Text1.Text = Text1.Text
Unload Me
cunqukuanrili.Show
End Sub
Private Sub Command2_Click()
yonghuxinxi.Text1.Text = Text1.Text
Unload Me
yonghuxinxi.Show
End Sub
Private Sub Command3_Click()
flag = 1
Unload Me
kaishi.Show
End Sub
(4)登录
Private Sub Command1_Click()
Set con = New ADODB.Connection
con.Open connectstring
Set rst = New ADODB.Recordset
rst.Open "select * from yonghuxixin", con, adOpenKeyset, adLockOptimistic
If rst.BOF And rst.EOF Then
If Text1(0).Text = "gyn" And Text2(1).Text = "000" Then
flag = 1
Unload Me
kaishi.Show
Else
MsgBox "输入不正确!"
End If
Else
Do While Not rst.EOF
If rst!yonghudaihao = Text1(0).Text Then
If rst!mima = Text2(1).Text Then
flag = 1
Unload Me
kaishi.Show
End If
End If
rst.MoveNext
Loop
rst.Close
剩余13页未读,继续阅读
资源评论

- sinat_313317732016-11-14坑积分的家伙。。。。。。。。。。。

dduxiaoqian
- 粉丝: 1
- 资源: 4
上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
我的下载
下载帮助


安全验证
文档复制为VIP权益,开通VIP直接复制
