module1.bas

餐饮管理系统 包括29个功能模板 内容丰富

Attribute VB_Name = "Module1"
Public conn As New ADODB.Connection '定义conn数据库连接
Public pubqx As String '保存权限
Public uname As String '保存用户名
Public cth As String '保存餐台号
Public Sub cdi(kasc As Integer)  '控制只能输入数字,及退格键
   If kasc < 48 Or kasc > 57 Then
       If kasc <> 8 And kasc <> 46 Then kasc = 0
   End If
End Sub