📄 frm_main.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frm_main
Caption = "前台营业"
ClientHeight = 6195
ClientLeft = 60
ClientTop = 345
ClientWidth = 10500
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 6195
ScaleWidth = 10500
WindowState = 2 'Maximized
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1950
TabIndex = 0
Top = 180
Width = 1410
End
Begin VB.CommandButton Command1
Caption = "刷新[F10]"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 120
TabIndex = 4
Top = 150
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msgList
Height = 6060
Left = -45
TabIndex = 1
Top = 690
Width = 6255
_ExtentX = 11033
_ExtentY = 10689
_Version = 393216
RowHeightMin = 300
BackColorFixed = 15915916
BackColorBkg = 8421376
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid flx_info
Height = 6060
Left = 6240
TabIndex = 2
Top = 690
Width = 5640
_ExtentX = 9948
_ExtentY = 10689
_Version = 393216
Rows = 30
Cols = 5
RowHeightMin = 300
BackColor = 16777215
BackColorFixed = 15915916
BackColorBkg = 8421376
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "定位:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 1365
TabIndex = 5
Top = 255
Width = 525
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "吧 台 销 售 服 务"
BeginProperty Font
Name = "幼圆"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 360
Left = 3975
TabIndex = 3
Top = 120
Width = 3225
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public TxtSQL As String
Public mrc As ADODB.Recordset
Public msgtext As String
Public sql$
Private Sub Command1_Click()
Dim strsql As String
Dim msgtext As String
Dim mrc As ADODB.Recordset
frm_main.TxtSQL = "select room_number,room_name,employee_id,starttime,planpeoplecount,user_flag,supplier_id,roomcount,yd_flag from"
frm_main.TxtSQL = frm_main.TxtSQL & " roominfo"
frm_main.TxtSQL = frm_main.TxtSQL & " order by 1"
Call frm_main.ShowData(frm_main.msglist)
If yesnochk Then
strsql = "select * from sale_temp where okflag=false"
strsql = strsql & " order by djnumber"
Set mrc = ExecuteSQL(strsql, msgtext)
If mrc.RecordCount > 0 Then
mrc.Close
FrmsaChk.Show 1
End If
End If
End Sub
Private Sub Form_Activate()
frmno = 1
' Command1_Click
frmMain.Timer1.Enabled = True
'frm_main.WindowState = 2
' TxtSQL = "select a.room_number,a.room_name,a.employee_id,a.starttime,a.planpeoplecount,a.user_flag,a.supplier_id,b.roomty_name from"
' TxtSQL = TxtSQL & " roominfo as a,room_type as b"
' TxtSQL = TxtSQL & " where a.room_type_id=b.roomty_id"
' 'txtSQL = txtSQL & " where a.daimaproperty=9"
' 'txtSQL = txtSQL & " and a.staffid=d.StaffID"
' 'TxtSQL = TxtSQL & " where a.daimaseries=c.daimaseries"
' TxtSQL = TxtSQL & " order by 1"
' Call ShowData(msgList)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim daima_on As String
Dim ru As Integer
Dim daima_partid As String
Dim daima_dh As String
Dim batch As String
Dim batchtno As Integer
Dim yesno As Integer
Select Case KeyCode
Case 113
TxtSQL = "select CountNum from counterid where TableName='djnumber'"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
frm_find.sale_wm = True
frm_find.Label4 = mrc!CountNum + 1
frm_find.Combo2(0) = frm_main.msglist.TextMatrix(frm_main.msglist.row, 1) & "," & frm_main.msglist.TextMatrix(frm_main.msglist.row, 2)
frm_find.txtsa_maker = strCurUser
frm_find.Show
Case 114
If frmMain.Toolbar1.Buttons(6).Enabled = True And frmno = 1 Then
daima_on = Trim(frm_main.msglist.TextMatrix(frm_main.msglist.row, 1))
TxtSQL = "select * from roominfo where room_number='" & daima_on & "'"
TxtSQL = TxtSQL & " and (user_flag=0 or user_flag=-1)"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
If Not mrc.EOF Then
frm_kd.Text1(0).text = frm_main.msglist.TextMatrix(frm_main.msglist.row, 1)
frm_kd.Text1(1).text = mrc.Fields("room_name")
frm_kd.Text1(2).text = ""
frm_kd.Show 1
Else
MsgBox "此桌号不能使用！", vbInformation, "提示"
Exit Sub
End If
End If
Case 115
If frmMain.Toolbar1.Buttons(7).Enabled = True And frmno = 1 Then
daima_on = Trim(frm_main.msglist.TextMatrix(frm_main.msglist.row, 1))
TxtSQL = "select * from roominfo where room_number='" & daima_on & "'"
TxtSQL = TxtSQL & " and user_flag=1"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
If Not mrc.EOF Then
frm_chage.txt_y.Enabled = False
frm_chage.txt_y.text = daima_on
frm_chage.Show 1
Else
MsgBox "此桌号客人还未开单！", vbInformation, "未开单"
Exit Sub
End If
End If
Case 116
If frmMain.Toolbar1.Buttons(8).Enabled = True And frmno = 1 Then
daima_on = Trim(frm_main.msglist.TextMatrix(frm_main.msglist.row, 1))
TxtSQL = "select * from roominfo where room_number='" & daima_on & "'"
TxtSQL = TxtSQL & " and user_flag=1"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
If Not mrc.EOF Then
TxtSQL = "select CountNum from counterid where TableName='djnumber'"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
frm_find.Label4 = mrc!CountNum + 1
frm_find.Combo2(0) = frm_main.msglist.TextMatrix(frm_main.msglist.row, 1) & "," & frm_main.msglist.TextMatrix(frm_main.msglist.row, 2)
frm_find.txtsa_maker = strCurUser
frm_find.Show
Else
MsgBox "此桌号客人还未入场！", vbInformation, "提示"
Exit Sub
End If
End If
Case 117
If frmMain.Toolbar1.Buttons(9).Enabled = True Then
If frmno = 1 And Trim(frm_main.flx_info.TextMatrix(frm_main.flx_info.row, 0)) <> "" Then
daima_on = Trim(frm_main.flx_info.TextMatrix(frm_main.flx_info.row, 1))
daima_dh = Trim(frm_main.flx_info.TextMatrix(frm_main.flx_info.row, 6))
daima_partid = Trim(frm_main.msglist.TextMatrix(frm_main.msglist.row, 1))
If daima_on = 1 Then Exit Sub
batch = InputBox("请输入退单物品数量：(输入“0”退出)", "输入退单物品数量", 1)
batchtno = Val(batch)
Do While True
If Not IsNumeric(batchtno) Then
MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
batchtno = InputBox("请输入退单物品的数量：(输入“0”退出)", "输入退单物品数量", 1)
Else
If batchtno = 0 Then Exit Do
TxtSQL = "select * from sale_temp where room_number='" & daima_partid & "'"
TxtSQL = TxtSQL & " and p_id='" & daima_on & "'"
TxtSQL = TxtSQL & " and djnumber='" & daima_dh & "'"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
If mrc.Fields("qty") < batchtno Then
MsgBox "超过可退数量！", vbOKOnly + vbExclamation, "警告"
batch = InputBox("请输入退单物品的数量：(输入“0”退出)", "输入退单物品数量", mrc.Fields("qty"))
batchtno = Val(batch)
Else
ru = MsgBox("确认退单?", 33, "退单")
If ru = 2 Then
Exit Sub
Else
If batchtno = mrc.Fields("qty") Then
TxtSQL = "DELETE * from sale_temp "
TxtSQL = TxtSQL & " where room_number='" & daima_partid & "'"
TxtSQL = TxtSQL & " and p_id='" & daima_on & "'"
TxtSQL = TxtSQL & " and djnumber='" & daima_dh & "'"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
Else
TxtSQL = "update sale_temp set qty=qty - " & batchtno
TxtSQL = TxtSQL & " where room_number='" & daima_partid & "'"
TxtSQL = TxtSQL & " and p_id='" & daima_on & "'"
TxtSQL = TxtSQL & " and djnumber='" & daima_dh & "'"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
TxtSQL = "update sale_temp set finalprice=qty*price"
TxtSQL = TxtSQL & " where room_number='" & daima_partid & "'"
TxtSQL = TxtSQL & " and p_id='" & daima_on & "'"
TxtSQL = TxtSQL & " and djnumber='" & daima_dh & "'"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
End If
frm_main.TxtSQL = "select p_id,product_name,price,qty,finalprice,djnumber from sale_temp "
frm_main.TxtSQL = frm_main.TxtSQL & " where room_number= '" & Trim(frm_main.msglist.TextMatrix(frm_main.msglist.row, 1)) & "'"
frm_main.TxtSQL = frm_main.TxtSQL & " order by p_id"
'Call ShowTitle_info(flx_info)
Call frm_main.ShowData_flx_info(frm_main.flx_info)
Exit Sub
End If
End If
End If
Loop
Else
MsgBox "未选择退单的物品", vbInformation, "未选择"
End If
' If frmno = 1 Then
' daima_on = Trim(frm_main.msglist.TextMatrix(frm_main.msglist.row, 1))
' TxtSQL = "select * from roominfo where room_number='" & daima_on & "'"
' TxtSQL = TxtSQL & " and user_flag=1"
' Set mrc = ExecuteSQL(TxtSQL, msgtext)
' If Not mrc.EOF Then
' TxtSQL = "select CountNum from counterid where TableName='djnumber'"
' Set mrc = ExecuteSQL(TxtSQL, msgtext)
' frm_findreturn.Label4 = mrc!CountNum + 1
' frm_findreturn.Combo2(0) = frm_main.msglist.TextMatrix(frm_main.msglist.row, 1)
' frm_findreturn.txtsa_maker = strCurUser
' frm_findreturn.Show
' Else
' MsgBox "此桌号客人还未开单！", vbInformation, "未开单"
' Exit Sub
' End If
End If
Case 118
If frmMain.Toolbar1.Buttons(10).Enabled = True And frmno = 1 Then
daima_on = Trim(frm_main.msglist.TextMatrix(frm_main.msglist.row, 1))
TxtSQL = "select * from roominfo where room_number='" & daima_on & "'"
TxtSQL = TxtSQL & " and user_flag=1"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
If Not mrc.EOF Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -