module1.bas

来自「餐饮管理系统 包括29个功能模板 内容丰富」· BAS 代码 · 共 12 行

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