module1.bas

一个很有意思的点菜系统前后台连接齐全~做课程设计的同学可以参考

Attribute VB_Name = "Module1"
Public djltable As Recordset
Public dateword As String
Public monthword As String
Public dcstring As String
Public price As Long
Public cptable As Recordset
Public rbtable As Recordset
Public ybtable As Recordset
Public dcpath As String
Public dcdb As Database
Public superuser As Recordset
Public username As String
Public username2 As String
Public hytable As Recordset
Public discount As Long
Public total_money As Long
Public dctable As Recordset
Public Sub fundate()
  
    dateword = Format(Now, "mm/dd/yy")

    monthword = Mid(dateword, 1, 2)
    dateword = Mid(dateword, 4, 2)
End Sub