这个窗体的功能比较单一，却又必不可少，就是对原数据进行修改，然后保存至数据库
窗体界面图如下
由上图可知，当进入这个窗体时，只能查看数据，当点击修改按钮时，激活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，添加后点执行是没有效果的）
这样就完成最低充值金额列的添加
添加成功后，及时更新充值窗体的代码，与之对应，当修改基本数据时，充值窗体也要及时更新。
机房的优化，要多站在用户的立场上，思考问题，最有意思的是，按照自己的想法去优化，去完善。
后期陆续更新，欢迎大家评论区留言