📄 frmexpenses.frm
字号:
Height = 2820
Left = 720
TabIndex = 25
Top = 2520
Width = 3330
_ExtentX = 5874
_ExtentY = 4974
_Version = 393216
ForeColor = 128
BackColor = 65280
Appearance = 1
MonthBackColor = 8454016
StartOfWeek = 22806529
TitleBackColor = 65535
TitleForeColor = 16384
TrailingForeColor= 0
CurrentDate = 38207
End
Begin Project1.XPButton cmdUpdate
Height = 435
Left = 8160
TabIndex = 26
Top = 9360
Width = 1635
_extentx = 2884
_extenty = 767
font = "frmexpenses.frx":0160
caption = "Update"
forecolor = 255
forehover = 65535
End
Begin Project1.XPButton cmdDelete
Height = 435
Left = 10200
TabIndex = 27
Top = 9360
Width = 1635
_extentx = 2884
_extenty = 767
font = "frmexpenses.frx":018C
caption = "Delete"
forecolor = 255
forehover = 65535
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 5040
X2 = 5040
Y1 = 1560
Y2 = 9960
End
Begin VB.Line Line2
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 5040
X2 = 12720
Y1 = 1560
Y2 = 1560
End
Begin VB.Image Image2
Height = 240
Left = 14880
Picture = "frmexpenses.frx":01B8
Top = 120
Width = 270
End
Begin VB.Image Image1
Height = 360
Left = -1320
Picture = "frmexpenses.frx":057A
Top = 0
Width = 17595
End
Begin VB.Line Line5
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 5040
X2 = 12720
Y1 = 8400
Y2 = 8400
End
Begin VB.Line Line4
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 5040
X2 = 12720
Y1 = 9960
Y2 = 9960
End
Begin VB.Line Line3
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 12720
X2 = 12720
Y1 = 1560
Y2 = 9960
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 = 5520
TabIndex = 24
Top = 7800
Width = 2055
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 = 5520
TabIndex = 23
Top = 7185
Width = 1500
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 = 5520
TabIndex = 22
Top = 6585
Width = 1590
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 = 5520
TabIndex = 21
Top = 5985
Width = 675
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 = 5520
TabIndex = 20
Top = 5385
Width = 630
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 = 5520
TabIndex = 19
Top = 3720
Width = 1185
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 = 5520
TabIndex = 18
Top = 3105
Width = 975
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Purpose :"
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 = 5520
TabIndex = 17
Top = 2505
Width = 1005
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Expense 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 = 5520
TabIndex = 16
Top = 1905
Width = 1905
End
End
Attribute VB_Name = "frmexpenses"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClose_Click()
frmexpenses.Visible = False
frmMain.Show
End Sub
Private Sub cmdDelete_Click()
adoExpenses.Recordset.Delete
End Sub
Private Sub cmdUpdate_Click()
adoExpenses.Recordset.Update
End Sub
Private Sub Image2_Click()
frmexpenses.Visible = False
frmMain.Show
End Sub
Private Sub cmdAdd_Click()
frmExpensesAdd.Show
End Sub
Private Sub cmdOutFirst_Click()
adoExpenses.Recordset.MoveFirst
End Sub
Private Sub cmdOutLast_Click()
adoExpenses.Recordset.MoveLast
End Sub
Private Sub cmdOutNext_Click()
If adoExpenses.Recordset.EOF = True Then
MsgBox " It has already reached the Last record", vbInformation, "Message"
adoExpenses.Recordset.MoveFirst
Else
adoExpenses.Recordset.MoveNext
End If
End Sub
Private Sub cmdOutPrevious_Click()
If adoExpenses.Recordset.BOF = True Then
MsgBox " It has already reached the First record", , "Message"
adoExpenses.Recordset.MoveLast
Else
adoExpenses.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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -