📄 frm_kd.frm
字号:
VERSION 5.00
Begin VB.Form frm_kd
BorderStyle = 3 'Fixed Dialog
Caption = "入场"
ClientHeight = 3270
ClientLeft = 45
ClientTop = 330
ClientWidth = 4380
Icon = "frm_kd.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3270
ScaleWidth = 4380
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 1875
TabIndex = 11
Text = "Text2"
Top = 375
Width = 1770
End
Begin VB.ComboBox Combo2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1830
TabIndex = 1
Text = "Combo2"
Top = 2115
Width = 1770
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "取消(&C)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2355
TabIndex = 3
Top = 2715
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "确定(&O)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 750
TabIndex = 2
Top = 2715
Width = 1275
End
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 = 330
Index = 2
Left = 1830
TabIndex = 0
Text = "Text1"
Top = 1680
Width = 1770
End
Begin VB.TextBox Text1
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Index = 1
Left = 1845
TabIndex = 10
Text = "Text1"
Top = 1245
Width = 1770
End
Begin VB.TextBox Text1
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Index = 0
Left = 1860
TabIndex = 9
Text = "Text1"
Top = 810
Width = 1770
End
Begin VB.Label Label1
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
Index = 4
Left = 720
TabIndex = 8
Top = 2160
Width = 1050
End
Begin VB.Label Label1
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
Index = 3
Left = 720
TabIndex = 7
Top = 1755
Width = 1050
End
Begin VB.Label Label1
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
Index = 2
Left = 795
TabIndex = 6
Top = 390
Width = 1050
End
Begin VB.Label Label1
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
Index = 1
Left = 720
TabIndex = 5
Top = 1320
Width = 1050
End
Begin VB.Label Label1
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
Index = 0
Left = 720
TabIndex = 4
Top = 885
Width = 1050
End
End
Attribute VB_Name = "frm_kd"
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
Private Sub Combo2_KeyPress(KeyAscii As Integer)
Dim i As Integer
If KeyAscii = 13 Then
For i = 0 To Me.Combo2.ListCount - 1
If Val(Me.Combo2) = Me.Combo2.ItemData(i) Then
Me.Combo2.ListIndex = i
Me.Command1.SetFocus
Exit Sub
End If
Next i
End If
End Sub
Private Sub Command1_Click()
Dim j As String
Dim crrow As Integer
Dim tcrrow As Integer
j = Combo2.ItemData(Combo2.ListIndex)
TxtSQL = "Update roominfo set user_flag=1,starttime=now,endtime=now+1,employee_id='" & j & "'"
TxtSQL = TxtSQL & " ,planpeoplecount=" & Val(Trim(Text1(2)))
TxtSQL = TxtSQL & " ,roomcount=" & Val(Me.Text2)
TxtSQL = TxtSQL & " where trim(room_number)=" & Trim(Text1(0))
Set mrc = ExecuteSQL(TxtSQL, msgtext)
TxtSQL = "update counterid set CountNum=CountNum+1 where TableName='roominfo'"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
TxtSQL = "update counterid set precountnum=precountnum+" & Val(Me.Text1(2))
TxtSQL = TxtSQL & " where TableName='roominfo'"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
crrow = frm_main.msglist.row
tcrrow = frm_main.msglist.TopRow
frm_main.TxtSQL = "select room_number,room_name,employee_id,starttime,planpeoplecount,user_flag,supplier_id,roomcount from"
frm_main.TxtSQL = frm_main.TxtSQL & " roominfo"
frm_main.TxtSQL = frm_main.TxtSQL & " order by 1"
Call frm_main.ShowData(frm_main.msglist)
frm_main.msglist.row = crrow
frm_main.msglist.TopRow = tcrrow
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim partiddiama As String
Dim mrc As ADODB.Recordset
Dim TxtSQL As String
Dim msgtext As String
'TxtSQL = "select * from Employee where employee_depid=" & g_currentlocation
TxtSQL = "select * from Employee"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
Combo2.Clear
If Not mrc.EOF Then
Do Until mrc.EOF
TxtSQL = mrc.Fields("employee_id") & "," & mrc.Fields("employee_name")
Combo2.AddItem TxtSQL
partiddiama = mrc.Fields("employee_id")
Combo2.ItemData(Combo2.NewIndex) = partiddiama
mrc.MoveNext 'move to next record.
Loop
Combo2.ListIndex = 0
End If
TxtSQL = "select CountNum from counterid where TableName='roominfo'"
Set mrc = ExecuteSQL(TxtSQL, msgtext)
Me.Text2 = Val(mrc.Fields(0)) + 1
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -