📄 form21.frm
字号:
VERSION 5.00
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Form21
BorderStyle = 4 'Fixed ToolWindow
Caption = " 单据补打"
ClientHeight = 8025
ClientLeft = 45
ClientTop = 315
ClientWidth = 8235
LinkTopic = "Form21"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8025
ScaleWidth = 8235
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.TextBox Texgzdw
ForeColor = &H000000FF&
Height = 270
Left = 1320
TabIndex = 28
Top = 5220
Width = 2760
End
Begin VB.TextBox Texssje
Height = 270
Left = 1320
TabIndex = 27
Top = 5640
Width = 2160
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "Form21.frx":0000
Left = 6090
List = "Form21.frx":000D
TabIndex = 26
Text = "Combo2"
Top = 4815
Width = 945
End
Begin VB.TextBox Texxf
Height = 270
Left = 3600
Locked = -1 'True
TabIndex = 25
Top = 4800
Width = 2265
End
Begin VB.TextBox Texbz
Height = 270
Left = 1320
TabIndex = 24
Top = 6120
Width = 6615
End
Begin VB.TextBox Texthje
ForeColor = &H000000FF&
Height = 270
Left = 6840
Locked = -1 'True
TabIndex = 23
Top = 5640
Width = 1125
End
Begin VB.TextBox Texyj
Height = 270
Left = 4080
Locked = -1 'True
TabIndex = 22
Top = 5640
Width = 1500
End
Begin VB.TextBox Texts
Height = 270
Left = 1320
TabIndex = 21
Top = 4800
Width = 1600
End
Begin VB.TextBox Texzk
Height = 270
Left = 7050
TabIndex = 20
Top = 4815
Width = 705
End
Begin VB.TextBox Texxm
Height = 270
Left = 1560
Locked = -1 'True
TabIndex = 19
Top = 3840
Width = 1815
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4080
TabIndex = 18
Top = 3840
Width = 2175
End
Begin VB.Frame Frame1
Caption = "单据定位（可以进行组合查询或单项查询）"
Height = 855
Left = 120
TabIndex = 11
Top = 0
Width = 8055
Begin VB.CommandButton cmdSearch
Caption = "※搜索(&S)"
Height = 390
Left = 6360
TabIndex = 16
Top = 240
Width = 1110
End
Begin VB.CheckBox Check1
Caption = "按退房日期"
Height = 255
Left = 240
TabIndex = 15
Top = 360
Width = 1455
End
Begin VB.CheckBox Check2
Caption = "按房号"
Height = 255
Left = 3360
TabIndex = 13
Top = 360
Width = 975
End
Begin VB.TextBox Text2
Height = 375
Left = 4440
TabIndex = 12
Top = 240
Width = 1335
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 1800
TabIndex = 14
Top = 240
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
Format = 171507713
CurrentDate = 38721
End
End
Begin VB.CommandButton Command2
Enabled = 0 'False
Height = 495
Left = 600
Picture = "Form21.frx":0023
Style = 1 'Graphical
TabIndex = 10
Top = 3120
Width = 375
End
Begin VB.Frame Frame2
Caption = "提示栏"
Height = 705
Left = 600
TabIndex = 2
Top = 6480
Width = 6945
Begin VB.TextBox Texpcf
BackColor = &H80000004&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H000000FF&
Height = 240
Left = 5895
Locked = -1 'True
TabIndex = 7
Top = 255
Width = 630
End
Begin VB.TextBox Texhyf
BackColor = &H80000004&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H000000FF&
Height = 225
Left = 3240
Locked = -1 'True
TabIndex = 6
Top = 255
Width = 600
End
Begin VB.TextBox Textcf
BackColor = &H80000004&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H000000FF&
Height = 210
Left = 4560
Locked = -1 'True
TabIndex = 5
Top = 240
Width = 585
End
Begin VB.TextBox Texdhf
BackColor = &H80000004&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H000000FF&
Height = 225
Left = 750
Locked = -1 'True
TabIndex = 4
Top = 255
Width = 570
End
Begin VB.TextBox Texzf
BackColor = &H80000004&
BorderStyle = 0 'None
ForeColor = &H000000FF&
Height = 225
Left = 1860
Locked = -1 'True
TabIndex = 3
Top = 255
Width = 675
End
Begin VB.Label Lab13
BackStyle = 0 'Transparent
Caption = "电话费: 杂费: 会议费: 停车费: 赔偿费: "
ForeColor = &H00FF0000&
Height = 330
Left = 120
TabIndex = 8
Top = 240
Width = 6645
End
End
Begin VB.CommandButton cmdPrint
DisabledPicture = "Form21.frx":0465
Height = 510
Left = 2760
Picture = "Form21.frx":13C9
Style = 1 'Graphical
TabIndex = 1
ToolTipText = "套打该单据"
Top = 7320
Width = 1575
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Height = 510
Left = 4680
Picture = "Form21.frx":31D6
Style = 1 'Graphical
TabIndex = 0
Top = 7320
Width = 1575
End
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 2175
Left = 120
TabIndex = 9
Top = 840
Width = 8055
_ExtentX = 14208
_ExtentY = 3836
_Version = 393216
Cols = 6
FixedCols = 0
FormatString = " 凭 证 号 码 |姓 名|房间号码|住 宿 日 期 | 退 房 日 期 |退 房 时 间"
End
Begin MSDBCtls.DBCombo DBCombo1
Height = 330
Left = 4200
TabIndex = 29
Top = 4320
Width = 1470
_ExtentX = 2593
_ExtentY = 582
_Version = 393216
Locked = -1 'True
Text = ""
End
Begin MSDBCtls.DBCombo DBCombo2
Height = 330
Left = 6720
TabIndex = 30
Top = 4320
Width = 1005
_ExtentX = 1773
_ExtentY = 582
_Version = 393216
Locked = -1 'True
Text = ""
End
Begin MSDBCtls.DBCombo DBCombo3
Height = 330
Left = 1560
TabIndex = 38
Top = 4320
Width = 1245
_ExtentX = 2196
_ExtentY = 582
_Version = 393216
Locked = -1 'True
Text = ""
End
Begin VB.Label Label2
Caption = "以下内容可以进行手工改动！请尽量不要手工改动。"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 2640
TabIndex = 40
Top = 3360
Width = 5175
End
Begin VB.Label Lab8
BackStyle = 0 'Transparent
Caption = "%"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 7800
TabIndex = 39
Top = 4800
Width = 300
End
Begin VB.Label Lab2
BackStyle = 0 'Transparent
Caption = "NO."
Height = 225
Left = 3720
TabIndex = 37
Top = 3960
Width = 675
End
Begin VB.Label Lab10
BackStyle = 0 'Transparent
Caption = "挂帐单位"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -