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

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

原创最新推荐文章于 2019-07-30 10:53:00 发布 · 234 阅读

0 ·

CC 4.0 BY-SA版权

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

5 篇文章

订阅专栏

本文介绍了一个简单的窗体编辑器实现方案，通过加载数据库中的信息到窗体的文本控件，并在用户修改后更新回数据库。文章提供了具体的VB代码示例，展示了如何在窗体加载时读取数据并设置文本框不可编辑，以及在用户点击修改按钮后允许编辑并保存更改。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这个窗体还是很简单的，我觉得在加载的时候，先查询数据库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