机房收费系统之基本数据设定窗体（基本流程）

      基本数据窗体的设定并没有出现很大的问题，代码敲的很顺利，唯一有问题的就是进入窗体时的逻辑有误，刚开始并没有想到要先读取数据库内的数据，而是直接输入数据，对流程的理解不是很到位，后来经过操作已给程序之后搞懂了基本数据设定窗体的逻辑。

一、基本数据设定窗体流程图：

这个窗体没有错误集和查询集

二、代码片段：

①、登录时加载数据库信息并冻结文本框

Private Sub Form_Load()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset

    txtSQL = "select * from BasicData_Info"   '查询数据库中基本数据设定数据表
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    txtRate.Text = mrc.Fields(0)              '加载数据库内信息至相应的文本
    txttmpRate.Text = mrc.Fields(1)
    txtunitTime.Text = mrc.Fields(2)
    txtleastTime.Text = mrc.Fields(3)
    txtPrepareTime.Text = mrc.Fields(4)
    txtlimitCash.Text = mrc.Fields(5)
    txtRate.Enabled = False                   '冻结文本框
    txttmpRate.Enabled = False
    txtunitTime.Enabled = False
    txtleastTime.Enabled = False
    txtPrepareTime.Enabled = False
    txtlimitCash.Enabled = False
    
End Sub

 ②、点击修改后解冻文本框

Private Sub cmdmodify_Click()
    txtRate.Enabled = True              '解冻文本框
    txttmpRate.Enabled = True
    txtunitTime.Enabled = True
    txtleastTime.Enabled = True
    txtPrepareTime.Enabled = True
    txtlimitCash.Enabled = True
End Sub

数据更新就不在此多加赘述了，以上代码若有需要改良之处还望各位大神多多给予指导。

下一个窗体走起^_^