📄 frmassets.frm
字号:
forehover = 16711680
End
Begin Project1.XPButton cmdClose
Height = 435
Left = 5520
TabIndex = 25
Top = 10080
Width = 1515
_extentx = 2672
_extenty = 767
font = "frmAssets.frx":00DC
caption = "Close"
forecolor = 255
forehover = 16711680
End
Begin Project1.XPButton cmdSeaExit
Height = 435
Left = 7440
TabIndex = 26
Top = 10080
Width = 1515
_extentx = 2672
_extenty = 767
font = "frmAssets.frx":0108
caption = "Exit"
forecolor = 255
forehover = 16711680
End
Begin Project1.XPButton cmdAdd
Height = 435
Left = 8040
TabIndex = 27
Top = 9120
Width = 1275
_extentx = 2249
_extenty = 767
font = "frmAssets.frx":0134
caption = "Add"
forecolor = 255
forehover = 16711680
End
Begin VB.Image Image3
Height = 240
Left = 14880
Picture = "frmAssets.frx":0160
Top = 120
Width = 270
End
Begin VB.Image Image1
Height = 360
Left = -720
Picture = "frmAssets.frx":0522
Top = 0
Width = 17595
End
Begin VB.Line Line5
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 2040
X2 = 9480
Y1 = 8880
Y2 = 8880
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 2040
X2 = 2040
Y1 = 1440
Y2 = 9720
End
Begin VB.Line Line2
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 2040
X2 = 9480
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line3
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 9480
X2 = 9480
Y1 = 1440
Y2 = 9720
End
Begin VB.Line Line4
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 2040
X2 = 9480
Y1 = 9720
Y2 = 9720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Income Number :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2640
TabIndex = 20
Top = 1785
Width = 1755
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Income Type :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2640
TabIndex = 19
Top = 2400
Width = 1485
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Quantity :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2640
TabIndex = 18
Top = 2985
Width = 975
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Object :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2640
TabIndex = 17
Top = 3585
Width = 810
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Descrition :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2640
TabIndex = 16
Top = 4185
Width = 1185
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Date :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2640
TabIndex = 15
Top = 5745
Width = 630
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Price :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2640
TabIndex = 14
Top = 6345
Width = 675
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Other charges :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2640
TabIndex = 13
Top = 7065
Width = 1590
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Total Amount :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2640
TabIndex = 12
Top = 7665
Width = 1500
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Employee Number :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 2640
TabIndex = 11
Top = 8265
Width = 2055
End
End
Attribute VB_Name = "frmIncome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
frmIncomeAdd.Show
End Sub
Private Sub cmdClose_Click()
frmIncome.Visible = False
frmMain.Show
End Sub
Private Sub cmdOutFirst_Click()
adoAssets.Recordset.MoveFirst
End Sub
Private Sub cmdOutLast_Click()
adoAssets.Recordset.MoveLast
End Sub
Private Sub cmdOutNext_Click()
If adoAssets.Recordset.EOF = True Then
MsgBox " It has already reached the Last record", vbInformation, "Message"
adoAssets.Recordset.MoveFirst
Else
adoAssets.Recordset.MoveNext
End If
End Sub
Private Sub cmdOutPrevious_Click()
If adoAssets.Recordset.BOF = True Then
MsgBox " It has already reached the First record", , "Message"
adoAssets.Recordset.MoveLast
Else
adoAssets.Recordset.MovePrevious
End If
End Sub
Private Sub cmdSeaExit_Click()
If MsgBox("Are you sure you want to exit Hotel Mangement Sytem ?", vbQuestion + vbYesNo, "Confirm Exit !") = vbYes Then
End
End If
End Sub
Private Sub Image3_Click()
frmAssets.Visible = False
frmMain.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -