📄 frm_yd1.frm
字号:
Caption = "向后&N>"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3555
TabIndex = 11
Top = 720
Width = 945
End
Begin VB.CommandButton Command8
Caption = "新建&C"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 4515
TabIndex = 10
Top = 720
Width = 945
End
Begin VB.CheckBox yd_flag
Caption = "预定标志"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 5475
TabIndex = 9
Top = 1560
Width = 1605
End
Begin VB.TextBox yd_note
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1110
Left = 2040
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 6
Text = "Frm_yd1.frx":0E7A
Top = 4140
Width = 2550
End
Begin MSComCtl2.DTPicker yd_time
Height = 435
Left = 2040
TabIndex = 2
Top = 2805
Width = 2625
_ExtentX = 4630
_ExtentY = 767
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "yyyy-MM-dd HH:mm:00"
Format = 67829763
CurrentDate = 37636
End
Begin MSFlexGridLib.MSFlexGrid grd_Main
Height = 5340
Left = -74880
TabIndex = 24
Top = 1035
Width = 11085
_ExtentX = 19553
_ExtentY = 9419
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComCtl2.DTPicker txt_starttime
Height = 405
Index = 2
Left = -74895
TabIndex = 27
Top = 525
Width = 2730
_ExtentX = 4815
_ExtentY = 714
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "yyyy-MM-dd hh:mm:ss"
Format = 67829763
UpDown = -1 'True
CurrentDate = 37451
End
Begin MSComCtl2.DTPicker txt_starttime
Height = 405
Index = 3
Left = -71715
TabIndex = 28
Top = 525
Width = 2730
_ExtentX = 4815
_ExtentY = 714
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "yyyy-MM-dd hh:mm:ss"
Format = 67829763
UpDown = -1 'True
CurrentDate = 37451
End
Begin VB.Line Line2
BorderWidth = 3
X1 = -72090
X2 = -71775
Y1 = 705
Y2 = 705
End
Begin VB.Label Label4
Caption = "联系电话1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5385
TabIndex = 23
Top = 2925
Width = 1425
End
Begin VB.Label Label3
Caption = "预定时间"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 675
TabIndex = 22
Top = 2850
Width = 1245
End
Begin VB.Label Label2
Caption = "预定客人"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5385
TabIndex = 21
Top = 2250
Width = 1245
End
Begin VB.Label Label1
Caption = "预定包厢"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 675
TabIndex = 20
Top = 2160
Width = 1260
End
Begin VB.Label Label7
Caption = "联系电话2"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 675
TabIndex = 19
Top = 3525
Width = 1485
End
Begin VB.Label Label8
Caption = "预定人数"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5385
TabIndex = 18
Top = 3600
Width = 1260
End
Begin VB.Label Label9
Caption = "预定编号"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 705
TabIndex = 17
Top = 1590
Width = 1260
End
Begin VB.Label lab_no
BorderStyle = 1 'Fixed Single
Caption = "Label10"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2040
TabIndex = 16
Top = 1575
Width = 810
End
Begin VB.Label Label10
Caption = "备注"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 690
TabIndex = 15
Top = 4455
Width = 840
End
End
End
Attribute VB_Name = "Frm_yd1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public yd_no As Integer
Public msgtext As String
Private Sub Command1_Click()
' Dim mytemp As Recordset
' Dim mytemps As Recordset
Dim mytemp As ADODB.Recordset
Dim mytemps As ADODB.Recordset
Dim yd_no As Integer
Dim crrow As Integer
Dim tcrrow As Integer
If yd_cmb.text = "" Then
MsgBox "没有输入预定包厢号"
Exit Sub
End If
sql$ = "select * from roominfo where trim(room_number)=" & Trim(yd_cmb.text)
' Set mytemp = myDB.OpenRecordset(sql$, dbOpenDynaset)
Set mytemp = ExecuteSQL(sql$, msgtext)
If mytemp.EOF Then
MsgBox "该房号不存在", vbOKOnly, "提示"
Exit Sub
End If
sql$ = "select * from room_yd where roomyd_num=" & lab_no.Caption
' Set mytemp = myDB.OpenRecordset(sql$, dbOpenDynaset)
Set mytemp = ExecuteSQL(sql$, msgtext)
If mytemp.EOF Then
sql$ = "select * from counterid where TableName='room_yd'"
' Set mytemps = myDB.OpenRecordset(sql$, dbOpenDynaset)
Set mytemps = ExecuteSQL(sql$, msgtext)
' mytemps.Edit
mytemps!CountNum = mytemps!CountNum + 1
mytemps.Update
screentorecord mytemp, False
MsgBox "保存成功", vbOKOnly, "提示"
Else
screentorecord mytemp, True
MsgBox "保存成功", vbOKOnly, "提示"
End If
' 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)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -