module1.bas

来自「一个用PIC做的无线点菜系统的系统」· BAS 代码 · 共 86 行

Attribute VB_Name = "Module1"
Global SQLORDER As String
Global Const SQLtbl = "SELECT *  FROM tblMain "
Global SQLWHERE As String

Global selStartDate As Date
Global selEndDate As Date
Global selWorkerID As Long
Global selTableID As Long
Global selFoodID As Long
Global Datetemp As Date

Global ComPortN As Integer

Global panGetData As Panel

Global MenuID As Long
Global NewData As Boolean                       '收到新的消息
Global NewFoodID As Long
Global DBF As Database                          '数据库
    Global Const DBFStr = "\Wxdc.mdb"
Global tblMain As Recordset                     '主表
    Global Const tblMainStr = "tblMain"
Global tblWorker As Recordset                   '员工表
    Global Const tblWorkerStr = "tblWorker"
Global tblFood As Recordset                     '菜表
    Global Const tblFoodStr = "tblFood"
Global tblTable As Recordset                    '桌表
    Global Const tblTableStr = "tblTable"
Global tblMainBCK As Recordset                  '主表备份表
    Global Const tblMainBCKStr = "tblMainBCK"

Global ServicePrinterName As String
Global KicthenPrinterName As String
Global AccountPrinterName As String


Global SerPrtEnabled As Integer
Global KitPrtEnabled As Integer
Global AccPrtEnabled As Integer

Sub Main()

    NewData = False
    Set DBF = OpenDatabase(App.Path & DBFStr)
    loadREG
    frmMain.Show
    MscommInit
End Sub

Public Sub saveREG()
SaveSetting App.CompanyName, App.Revision, "ServicePrinterName", ServicePrinterName
SaveSetting App.CompanyName, App.Revision, "KicthenPrinterName", KicthenPrinterName
SaveSetting App.CompanyName, App.Revision, "AccountPrinterName", AccountPrinterName
SaveSetting App.CompanyName, App.Revision, "CommPort", ComPortN
SaveSetting App.CompanyName, App.Revision, "ServicePrinterEnabled", SerPrtEnabled
SaveSetting App.CompanyName, App.Revision, "KicthenPrinterEnabled", KitPrtEnabled
SaveSetting App.CompanyName, App.Revision, "AccountPrinterEnabled", AccPrtEnabled

End Sub

Public Sub loadREG()
Dim tempstr As String
ServicePrinterName = GetSetting(App.CompanyName, App.Revision, "ServicePrinterName", Printer.DeviceName)
KicthenPrinterName = GetSetting(App.CompanyName, App.Revision, "KicthenPrinterName", Printer.DeviceName)
AccountPrinterName = GetSetting(App.CompanyName, App.Revision, "AccountPrinterName", Printer.DeviceName)

ComPortN = GetSetting(App.CompanyName, App.Revision, "CommPort", 1)

SerPrtEnabled = GetSetting(App.CompanyName, App.Revision, "ServicePrinterEnabled", 1)
KitPrtEnabled = GetSetting(App.CompanyName, App.Revision, "kicthenPrinterEnabled", 1)
AccPrtEnabled = GetSetting(App.CompanyName, App.Revision, "AccountPrinterEnabled", 1)

End Sub

Public Sub SelPrt(ByVal PrtName As String)
Dim X As Printer
    For Each X In Printers
        If X.DeviceName = PrtName Then
            Set Printer = X
            Exit For
        End If
    Next
    
End Sub