机房收费系统之修改

最新推荐文章于 2025-04-30 14:41:06 发布

12期-赵辉

最新推荐文章于 2025-04-30 14:41:06 发布

阅读量660

点赞数

分类专栏： +-----（机房收费系统）文章标签：数据库

本文链接：https://blog.youkuaiyun.com/zh316018340/article/details/47302477

版权

+-----（机房收费系统）专栏收录该内容

3 篇文章

订阅专栏

    **最基本的对数据库进行的修改操作，给大家来个最简单的，看图：
就拿“修改基本数据”来说：
![这就是我机房的修改基本数据窗体](https://img-blog.youkuaiyun.com/20150805195314095)
    下边是代码：

Option Explicit
Const xStr As String = "0123456789"
Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then cmdok_Click
End Sub
Private Sub form_load()
    '将basicdata中的数据显示到该界面上
    Txtsql = "select * from basicdata_info"
    Set mrc = ExecuteSQl(Txtsql, msgTxt)

    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)


    Me.KeyPreview = True

End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'只能输入数字
    KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
'只能输入数字
    KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
End Sub
'
'Private Sub Text3_KeyPress(KeyAscii As Integer)
''只能输入数字
'    KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
'End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
'只能输入数字
    KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
'只能输入数字
    KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
'只能输入数字
    KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
End Sub
Private Sub command3_Click()
    Unload Me
End Sub
Private Sub cmdok_Click()
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Text6.Enabled = False

    '将该界面上设定的信息赋值给basicdata表中

    Txtsql = "select * from basicdata_info"
    Set mrc = ExecuteSQl(Txtsql, msgTxt)
    mrc.Fields(0) = Trim(Text1.Text)
    mrc.Fields(1) = Trim(Text2.Text)
    mrc.Fields(2) = Trim(Text3.Text)
    mrc.Fields(3) = Trim(Text4.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 "基本数据设定成功！", vbOKOnly + vbExclamation, "提示"

End Sub
Private Sub cmdchange_Click()
    Text1.Enabled = True
    Text2.Enabled = True
    Text4.Enabled = True
    Text5.Enabled = True
    Text6.Enabled = True
End Sub

    以上代码就是我的机房收费系统的修改基本数据的全部代码，嘿嘿！**