frmmain.frm

一个用PIC做的无线点菜系统的系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmMain 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "无线点菜管理系统"
   ClientHeight    =   5895
   ClientLeft      =   150
   ClientTop       =   720
   ClientWidth     =   9810
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5895
   ScaleWidth      =   9810
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "备份"
      Height          =   375
      Left            =   8760
      TabIndex        =   14
      Top             =   0
      Width           =   855
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   7800
      Top             =   4440
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.ComboBox ComFood 
      Height          =   300
      Left            =   7680
      TabIndex        =   11
      Text            =   "全部"
      Top             =   3600
      Width           =   1935
   End
   Begin VB.CheckBox CheckFood 
      Caption         =   "并且菜名为"
      Height          =   255
      Left            =   7680
      TabIndex        =   10
      Top             =   3240
      Width           =   1695
   End
   Begin VB.ComboBox ComWorker 
      Height          =   300
      Left            =   7680
      TabIndex        =   9
      Text            =   "全部"
      Top             =   2760
      Width           =   1935
   End
   Begin VB.CheckBox CheckWorker 
      Caption         =   "并且员工姓名为 "
      Height          =   255
      Left            =   7680
      TabIndex        =   8
      Top             =   2400
      Width           =   1815
   End
   Begin VB.CheckBox CheckTable 
      Caption         =   "并且桌名为："
      Height          =   255
      Left            =   7680
      TabIndex        =   7
      Top             =   1680
      Width           =   2055
   End
   Begin VB.ComboBox ComTable 
      Height          =   300
      Left            =   7680
      TabIndex        =   6
      Text            =   "全部"
      Top             =   1920
      Width           =   1935
   End
   Begin VB.CheckBox CheckDate 
      Caption         =   "选择日期"
      Height          =   255
      Left            =   7680
      TabIndex        =   3
      Top             =   840
      Width           =   2055
   End
   Begin VB.CommandButton Command1 
      Caption         =   "打印"
      Height          =   375
      Left            =   7680
      TabIndex        =   2
      Top             =   0
      Width           =   855
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   8280
      Top             =   4440
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
      BaudRate        =   2400
      InputMode       =   1
   End
   Begin MSFlexGridLib.MSFlexGrid mainGrid 
      Height          =   5295
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   7575
      _ExtentX        =   13361
      _ExtentY        =   9340
      _Version        =   393216
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   5520
      Width           =   9810
      _ExtentX        =   17304
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "15:18"
         EndProperty
      EndProperty
   End
   Begin VB.Timer GetData1 
      Interval        =   54
      Left            =   8880
      Top             =   4440
   End
   Begin VB.Label EndDate 
      AutoSize        =   -1  'True
      Caption         =   "EndDate"
      Height          =   180
      Left            =   8520
      TabIndex        =   13
      Top             =   1440
      Width           =   630
   End
   Begin VB.Label StartDate 
      AutoSize        =   -1  'True
      Caption         =   "StartDate"
      Height          =   180
      Left            =   8520
      TabIndex        =   12
      Top             =   1200
      Width           =   810
   End
   Begin VB.Label labEndDate 
      AutoSize        =   -1  'True
      Caption         =   "终止日期："
      Height          =   300
      Left            =   7560
      TabIndex        =   5
      Top             =   1440
      Width           =   900
   End
   Begin VB.Label labStartDate 
      AutoSize        =   -1  'True
      Caption         =   "开始日期："
      Height          =   180
      Left            =   7560
      TabIndex        =   4
      Top             =   1200
      Width           =   900
   End
   Begin VB.Menu menuWorker 
      Caption         =   "人员管理"
   End
   Begin VB.Menu menuFood 
      Caption         =   "菜单管理"
   End
   Begin VB.Menu menuTable 
      Caption         =   "餐桌管理"
   End
   Begin VB.Menu menuPrint 
      Caption         =   "打印机管理"
   End
   Begin VB.Menu menuCom 
      Caption         =   "串口设置"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub manManger_Click()

manWorker.Show vbModal

End Sub

Private Sub CheckDate_Click()

labStartDate.Enabled = (CheckDate = 1)
labEndDate.Enabled = (CheckDate = 1)
StartDate.Enabled = (CheckDate = 1)
EndDate.Enabled = (CheckDate = 1)


End Sub

Private Sub CheckFood_Click()
    ComFood.Enabled = (CheckFood = 1)
    If CheckFood = 0 Then InitGrid
    ComFood = "全部"
End Sub

Private Sub CheckTable_Click()
    ComTable.Enabled = (CheckTable = 1)
    If CheckTable = 0 Then InitGrid
    ComTable = "全部"
End Sub

Private Sub CheckWorker_Click()
    ComWorker.Enabled = (CheckWorker = 1)
    If CheckWorker = 0 Then InitGrid
    ComWorker = "全部"
End Sub

Private Sub Combo3_Change()

End Sub

Private Sub Command1_Click()
    Set tblMain = DBF.OpenRecordset("SELECT * " & _
                                   " FROM " & tblMainStr & _
                                   " ORDER BY MenuID")
    
    With tblMain
        If .RecordCount < 1 Then Exit Sub
        .MoveLast
        MenuID = !MenuID
    End With
    MakeSQLWHERE
    Set tblMain = DBF.OpenRecordset(SQLtbl & SQLWHERE & " ORDER BY " & SQLORDER)
    

            If SerPrtEnabled = 1 Then
                SelPrt ServicePrinterName
                PrtView
            End If
            If KitPrtEnabled = 1 Then
                SelPrt KicthenPrinterName
                PrtView
            End If
            If AccPrtEnabled = 1 Then
                SelPrt AccountPrinterName
                PrtView
            End If

End Sub
Private Sub PrtView()
Dim X0 As Long
Dim Y0 As Long
Dim dx As Long
Dim dy As Long
Dim prStr As String
X0 = 200
Y0 = 200
dx = 800
dy = 300
    
    With tblMain
        If .RecordCount >= 1 Then
            prStr = "桌号,桌名,菜号,菜名,菜量,价格,员工号,员工姓名,点菜时间"
            PrintLine prStr, Y0, X0, dx
            Y0 = Y0 + dy
            .MoveFirst
            Do While Not .EOF
                prStr = !TableId & "," & !TableName & "," & !FoodId & "," & !FoodName & "," & _
                        !FoodSum & "," & !Price & "," & !WorkerId & "," & !WorkerName & "," & Format(CDate(!Date), "MMDD HH:MM")
                PrintLine prStr, Y0, X0, dx
                Y0 = Y0 + dy
                If Y0 > Printer.ScaleHeight - 1000 Then
                    Printer.NewPage
                    Y0 = 200
                End If
                PriceSum = PriceSum + !Price
                FoodSum = FoodSum + !FoodSum
                .MoveNext
            Loop
            .MoveLast
            prStr = String(80, "-")
            PrintLine prStr, Y0, X0, dx
            Y0 = Y0 + dy
            prStr = !TableId & "," & !TableName & "," & "," & "," & _
                    FoodSum & "," & PriceSum & "," & !WorkerId & "," & !WorkerName & "," & Format(CDate(!Date), "MMDD HH:MM")
            PrintLine prStr, Y0, X0, dx
            Printer.EndDoc
        End If
    End With
End Sub

Private Sub Command2_Click()
    If MsgBox("是否将当前数据备份，并从主数据库中删除？", vbYesNo, "备份数据") = vbYes Then
        
        Set tblMain = DBF.OpenRecordset("SELECT * " & _
                                       " FROM " & tblMainStr & _
                                       " ORDER BY MenuID")
        
        With tblMain
            If .RecordCount < 1 Then Exit Sub
            .MoveLast
            MenuID = !MenuID
        End With
        MakeSQLWHERE
        Set tblMain = DBF.OpenRecordset(SQLtbl & SQLWHERE & " ORDER BY " & SQLORDER)
        Set tblMainBCK = DBF.OpenRecordset("SELECT * FROM " & tblMainBCKStr)
        With tblMainBCK
            tblMain.MoveFirst
            Do While Not tblMain.EOF
                .AddNew
                For i = 0 To 10
                    .Fields(i) = tblMain.Fields(i)
                Next i
                .Update
                tblMain.Delete
                tblMain.MoveNext
            Loop
        End With
        InitGrid
    End If
End Sub

Private Sub Command7_Click()
    
End Sub

Private Sub ComTable_Click()
Dim tempstr As String
tempstr = ComTable
If (ComTable <> "全部") And (ComTable <> "") Then
    Set tblTable = DBF.OpenRecordset("SELECT * " & _
                                    " FROM " & tblTableStr & _
                                    " WHERE TableName = '" & tempstr & "'")
    If tblTable.RecordCount >= 1 Then
        selTableID = tblTable!TableId
    End If
Else
    CheckTable = 0

End If
    InitGrid

End Sub


Private Sub ComFood_Click()
Dim tempstr As String
tempstr = ComFood
If (ComFood <> "全部") And (ComFood <> "") Then
    Set tblFood = DBF.OpenRecordset("SELECT * " & _
                                    " FROM " & tblFoodStr & _
                                    " WHERE FoodName = '" & tempstr & "'")
    If tblFood.RecordCount >= 1 Then
        selFoodID = tblFood!FoodId
    End If
Else
    CheckFood = 0
End If
InitGrid
End Sub

Private Sub ComWorker_Click()
Dim tempstr As String
tempstr = ComWorker
If (ComWorker <> "全部") And (ComWorker <> "") Then
    Set tblWorker = DBF.OpenRecordset("SELECT * " & _
                                    " FROM " & tblWorkerStr & _
                                    " WHERE WorkerName = '" & tempstr & "'")
    If tblWorker.RecordCount >= 1 Then
        selWorkerID = tblWorker!WorkerId
    End If
Else
    CheckWorker = 0
End If
    InitGrid
End Sub

Private Sub EndDate_Click()
    Datetemp = selEndDate
    frmDate.Show vbModal
    selEndDate = Datetemp
    EndDate.Caption = Format(selEndDate, "yyyy年mm月dd日")
    InitGrid
End Sub

Private Sub Form_Load()
MSComm1.CommPort = ComPortN
MSComm1.Settings = "2400,n,8,1"
SQLORDER = " ID DESC"
SQLWHERE = " "
StartDate = Format(CDate("2000-1-1"), "yyyy年mm月dd日")
EndDate = Format(CDate(Now), "yyyy年mm月dd日")


Set panGetData = StatusBar1.Panels(1)

labStartDate.Enabled = False
labEndDate.Enabled = False
StartDate.Enabled = False
EndDate.Enabled = False

selStartDate = CDate("2000-1-1")
selEndDate = Now

InitComtable
InitComFood
InitComWorker
InitGrid
End Sub

Public Sub InitComtable()
ComTable.Enabled = False
ComTable.Clear
Set tblTable = DBF.OpenRecordset("SELECT * " & _
                                " FROM " & tblTableStr & _
                                " ORDER BY tableID")
ComTable.AddItem "全部"
With tblTable
    If .RecordCount >= 1 Then
        .MoveFirst
        Do While Not .EOF
            ComTable.AddItem !TableName
            .MoveNext
        Loop
    End If
End With
ComTable = "全部"
End Sub


Public Sub InitComWorker()
ComWorker.Enabled = False
ComWorker.Clear
Set tblWorker = DBF.OpenRecordset("SELECT * " & _
                                " FROM " & tblWorkerStr & _
                                " ORDER BY WorkerID")
ComWorker.AddItem "全部"
With tblWorker
    If .RecordCount >= 1 Then
        .MoveFirst
        Do While Not .EOF
            ComWorker.AddItem !WorkerName
            .MoveNext
        Loop
    End If
End With
ComWorker = "全部"
End Sub

Public Sub InitComFood()
ComFood.Enabled = False
ComFood.Clear
Set tblFood = DBF.OpenRecordset("SELECT * " & _
                                " FROM " & tblFoodStr & _
                                " ORDER BY FoodID")
ComFood.AddItem "全部"
With tblFood
    If .RecordCount >= 1 Then
        .MoveFirst
        Do While Not .EOF
            ComFood.AddItem !FoodName
            .MoveNext
        Loop
    End If
End With
ComFood = "全部"
End Sub

Private Sub GetData1_Timer()
Dim NewData As String
NewData = Getdata2
Do While Len(NewData) >= 8
    MakeData (Left$(NewData, 8))
    NewData = Right$(NewData, Len(NewData) - 8)
Loop
End Sub