module1.bas

用vb做的一套餐饮管理系统的,可以方便的实现餐饮行业的管理

Attribute VB_Name = "Module1"
Option Explicit
Public Function cnn() As String    '定义函数
  '返回一个数据库连接
  cnn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=CYGLXT"
End Function
Public Sub Enter(KeyCode As Integer)
  If KeyCode = vbKeyReturn Then
     SendKeys "{Tab}"
  End If
End Sub