这个窗体的功能比较单一,却又必不可少,就是对原数据进行修改,然后保存至数据库
窗体界面图如下
由上图可知,当进入这个窗体时,只能查看数据,当点击修改按钮时,激活Frame控件,可以进行数据修改,点击确定按钮时,保存修改数据
代码如下
txtsql = "select * from basicdata_info" '连接basicdata表
Set mrc = ExecuteSQL(txtsql, msgtext)
mrc!Rate = txtRate.Text '更新数据
mrc.Fields(1) = txttmpRate.Text
mrc.Fields(2) = txtinvestCash.Text
mrc.Fields(3) = txtunitTime.Text
mrc.Fields(4) = txtleastTime.Text
mrc.Fields(5) = txtPrepareTime.Text
mrc.Fields(6) = txtlimitCash.Text
mrc.Fields(7) = frmLogin.txtUserID.Text
mrc.Fields(8) = Date
mrc.Fields(9) = Time
mrc.Update
mrc.Close
MsgBox "修改成功!", 48, "提示"
Frame1.Enabled = False '修改成功后,Frame不可编辑
txtRate.Enabled = False
txttmpRate.Enabled = False
txtunitTime.Enabled = False
txtleastTime.Enabled = False
txtPrepareTime.Enabled = False
txtlimitCash.Enabled = False
txtinvestCash.Enabled = False
优化部分——添加单次充值最低金额
原数据库是没有设定单次最低充值金额的,基本上充值金额的最低限制都是脑补的。打个比方,原限定最低充值金额不得少于10元,现在物价上涨,单次充值10元太少,管理员决定更改充值金额为最低20元,但管理员能看到的基本数据中没有最低充值金额的限制,那怎么办?管理员去后台手动添加代码吗?那这个机房系统做得就失败了。
索性在这个窗体中加入单次最低充值金额一列,同时更新至最新数据,便于充值窗体的更新
窗体添加很容易,就说说在数据库添加的步骤吧
·打开SQLsever,右击basicdata表
·选择设计,选中某一列数据,选择插入列选项
·设置名称,数据类型等数据
·重启SQLsever更新数据库(必须要重启SQLsever,添加后点执行是没有效果的)
这样就完成最低充值金额列的添加
添加成功后,及时更新充值窗体的代码,与之对应,当修改基本数据时,充值窗体也要及时更新。
机房的优化,要多站在用户的立场上,思考问题,最有意思的是,按照自己的想法去优化,去完善。
后期陆续更新,欢迎大家评论区留言