第一次机房收费系统之基本数据设定

最新推荐文章于 2019-07-30 10:53:00 发布

Jeff~李

最新推荐文章于 2019-07-30 10:53:00 发布

阅读量206

点赞数

本文链接：https://blog.csdn.net/weixin_44126152/article/details/88925811

版权

机房收费系统专栏收录该内容

5 篇文章 1 订阅

订阅专栏

这个窗体还是很简单的，我觉得在加载的时候，先查询数据库BasicData，把数据库里面查询的内容显示到窗体的text控件中，然后加载的时候文本框enabled属性为False，点击修改把文本框的enabled属性改为True。点击确定时，直接查询，并把数据更新到数据库，然后关闭数据库，就行了。

下面是我的代码展示：

Private Sub CmdOk_Click()
         Dim txtSQL As String
         Dim msgtext As String
         Dim mrc As ADODB.Recordset
         
            txtSQL = "select * from BasicData_info "
            Set mrc = ExecuteSQL(txtSQL, msgtext)
            
            mrc.Fields(0) = Trim(Text1.Text)
            mrc.Fields(1) = Trim(Text2.Text)
            mrc.Fields(2) = Trim(Text3.Text)
            mrc.Fields(4) = Trim(Text5.Text)
            mrc.Fields(5) = Trim(Text6.Text)
            mrc.Fields(6) = UserName
            mrc.Fields(7) = Date
            mrc.Fields(8) = Time
            mrc.Update
            mrc.Close
            
            MsgBox "修改成功！", , "提示"
            Unload Me

Private Sub Form_Load()
        Me.Width = 13000
         Me.Height = 13000
         
         
         Text1.Enabled = False
         Text2.Enabled = False
         Text3.Enabled = False
         Text4.Enabled = False
         Text5.Enabled = False
         Text6.Enabled = False
         
         Dim txtSQL As String
         Dim msgtext As String
         Dim mrc As ADODB.Recordset
         
            txtSQL = "select * from BasicData_info "
            Set mrc = ExecuteSQL(txtSQL, msgtext)
            
            Text1.Text = mrc.Fields(0)
            Text2.Text = mrc.Fields(1)
            Text3.Text = mrc.Fields(2)
            Text4.Text = mrc.Fields(3)
            Text5.Text = mrc.Fields(4)
            Text6.Text = mrc.Fields(5)
            mrc.Close
   
         
End Sub