📄 frmseasonsres.frm
字号:
End
Begin VB.TextBox txtSeaTAmount
Alignment = 2 'Center
DataField = "TOT_AMOUNT"
DataSource = "adoSeaRes"
BeginProperty Font
Name = "Haettenschweiler"
Size = 48
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1035
Left = 9720
TabIndex = 4
Top = 6180
Width = 2535
End
Begin VB.TextBox txtSeaFN2
Alignment = 1 'Right Justify
DataField = "FNO2"
DataSource = "adoSeaRes"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1080
TabIndex = 3
Top = 3720
Width = 1455
End
Begin VB.TextBox txtSeaFN1
Alignment = 1 'Right Justify
DataField = "FNO1"
DataSource = "adoSeaRes"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1080
TabIndex = 2
Top = 3240
Width = 1455
End
Begin VB.TextBox txtSeaFN3
Alignment = 1 'Right Justify
DataField = "FNO3"
DataSource = "adoSeaRes"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1080
TabIndex = 1
Top = 4200
Width = 1455
End
Begin Project1.MarqueeText MarqueeText1
Height = 285
Left = 840
Top = 11880
Width = 15480
_extentx = 27305
_extenty = 741
backcolor = 128
backstyle = 0
font = "frmSeasonsRes.frx":002C
forecolor = 65535
text = "Seasons Restaurant Account"
End
Begin Project1.XPButton cmdExit
Height = 555
Left = 12720
TabIndex = 0
Top = 8760
Width = 1515
_extentx = 2672
_extenty = 979
font = "frmSeasonsRes.frx":005C
caption = "Exit"
forecolor = 255
forehover = 16711680
End
Begin MSAdodcLib.Adodc adoSeaRes
Height = 375
Left = 3840
Top = 5400
Visible = 0 'False
Width = 2535
_ExtentX = 4471
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True"
OLEDBString = "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "RES_SEA"
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin Project1.XPButton cmdLast
Height = 435
Left = 3120
TabIndex = 21
Top = 6600
Width = 1275
_extentx = 2249
_extenty = 767
font = "frmSeasonsRes.frx":0088
caption = "Last"
forecolor = 255
forehover = 16711680
End
Begin Project1.XPButton cmdNext
Height = 435
Left = 1200
TabIndex = 22
Top = 6600
Width = 1275
_extentx = 2249
_extenty = 767
font = "frmSeasonsRes.frx":00B4
caption = "Next"
forecolor = 255
forehover = 16711680
End
Begin Project1.XPButton cmdFirst
Height = 435
Left = 1200
TabIndex = 23
Top = 5880
Width = 1275
_extentx = 2249
_extenty = 767
font = "frmSeasonsRes.frx":00E0
caption = "First"
forecolor = 255
forehover = 16711680
End
Begin Project1.XPButton cmdPrevious
Height = 435
Left = 3120
TabIndex = 24
Top = 5880
Width = 1275
_extentx = 2249
_extenty = 767
font = "frmSeasonsRes.frx":010C
caption = "Previous"
forecolor = 255
forehover = 16711680
End
Begin Project1.XPButton cmdUpdate
Height = 435
Left = 7080
TabIndex = 25
Top = 5880
Width = 1275
_extentx = 2249
_extenty = 767
font = "frmSeasonsRes.frx":0138
caption = "Update"
forecolor = 255
forehover = 16711680
End
Begin Project1.XPButton cmdClear
Height = 435
Left = 7080
TabIndex = 26
Top = 6600
Width = 1275
_extentx = 2461
_extenty = 979
font = "frmSeasonsRes.frx":0164
caption = "Clear"
forecolor = 255
forehover = 16711680
End
Begin Project1.XPButton cmdDelete
Height = 435
Left = 5160
TabIndex = 27
Top = 6600
Width = 1275
_extentx = 2249
_extenty = 767
font = "frmSeasonsRes.frx":0190
caption = "Delete"
forecolor = 255
forehover = 16711680
End
Begin Project1.XPButton cmdInAdd
Height = 435
Left = 5160
TabIndex = 28
Top = 5880
Width = 1275
_extentx = 2249
_extenty = 767
font = "frmSeasonsRes.frx":01BC
caption = "Add"
forecolor = 255
forehover = 16711680
End
Begin VB.Image Image7
BorderStyle = 1 'Fixed Single
Height = 1320
Left = 9360
Picture = "frmSeasonsRes.frx":01E8
Top = 8520
Width = 1980
End
Begin VB.Image Image6
BorderStyle = 1 'Fixed Single
Height = 1500
Left = 13320
Picture = "frmSeasonsRes.frx":0EEC
Top = 6000
Width = 1980
End
Begin VB.Image Image5
BorderStyle = 1 'Fixed Single
Height = 1980
Left = 13320
Picture = "frmSeasonsRes.frx":1EBD
Top = 3480
Width = 1590
End
Begin VB.Image Image4
BorderStyle = 1 'Fixed Single
Height = 1980
Left = 13320
Picture = "frmSeasonsRes.frx":2D1E
Top = 960
Width = 1590
End
Begin VB.Image Image3
BorderStyle = 1 'Fixed Single
Height = 1290
Left = 6480
Picture = "frmSeasonsRes.frx":3D28
Top = 8520
Width = 1980
End
Begin VB.Image Image2
BorderStyle = 1 'Fixed Single
Height = 1305
Left = 3600
Picture = "frmSeasonsRes.frx":493F
Top = 8520
Width = 1935
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 1305
Left = 840
Picture = "frmSeasonsRes.frx":5BB6
Top = 8520
Width = 1935
End
Begin VB.Line Line7
X1 = 720
X2 = 12960
Y1 = 7680
Y2 = 7680
End
Begin VB.Line Line6
X1 = 12960
X2 = 12960
Y1 = 840
Y2 = 7680
End
Begin VB.Line Line5
X1 = 720
X2 = 12960
Y1 = 840
Y2 = 840
End
Begin VB.Line Line4
X1 = 720
X2 = 720
Y1 = 840
Y2 = 7680
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -