📄 main.frm
字号:
VERSION 5.00
Begin VB.Form fmMain
BackColor = &H00000000&
Caption = "个人财务助手 - V1.2 Beta版"
ClientHeight = 5280
ClientLeft = 60
ClientTop = 450
ClientWidth = 8775
Icon = "main.frx":0000
MaxButton = 0 'False
ScaleHeight = 5280
ScaleWidth = 8775
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdLoginData
BackColor = &H00FFFFFF&
Caption = "录入数据"
Height = 780
Left = 600
TabIndex = 11
Top = 1800
Width = 975
End
Begin VB.CommandButton cmdQuery
Caption = "查 询"
Height = 780
Left = 2040
TabIndex = 12
Top = 1800
Width = 975
End
Begin VB.Frame Frame1
BackColor = &H00000000&
Caption = "操作"
ForeColor = &H0000FF00&
Height = 1575
Left = 120
TabIndex = 14
Top = 1320
Width = 3255
End
Begin VB.Frame frmInfo
BackColor = &H00000000&
Caption = "本月详细"
ForeColor = &H0000FF00&
Height = 1695
Left = 120
TabIndex = 4
Top = 3480
Width = 3255
Begin VB.Label lblMinOut
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "本月最低支出:"
ForeColor = &H0000FF00&
Height = 180
Left = 120
TabIndex = 7
Top = 840
Width = 1170
End
Begin VB.Label lblSumOut
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "本月支出总额:"
ForeColor = &H0000FF00&
Height = 180
Left = 120
TabIndex = 6
Top = 1320
Width = 1170
End
Begin VB.Label lblMaxOut
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "本月最高支出:"
ForeColor = &H0000FF00&
Height = 180
Left = 120
TabIndex = 5
Top = 360
Width = 1170
End
End
Begin VB.ComboBox cmbMonth
Height = 300
ItemData = "main.frx":08CA
Left = 3960
List = "main.frx":08CC
Style = 2 'Dropdown List
TabIndex = 3
Top = 200
Width = 735
End
Begin VB.Frame frmInput
BackColor = &H00000000&
Height = 4935
Left = 3720
TabIndex = 2
Top = 240
Visible = 0 'False
Width = 4935
End
Begin VB.Label lblOutPut
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "0"
ForeColor = &H0000FF00&
Height = 180
Left = 1440
TabIndex = 13
Top = 600
Width = 90
End
Begin VB.Label lblMaxOutput
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "支出警戒线"
ForeColor = &H000000FF&
Height = 180
Left = 2520
TabIndex = 10
Top = 3240
Visible = 0 'False
Width = 900
End
Begin VB.Label lblSection
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 5.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 105
Index = 0
Left = 3480
TabIndex = 9
Top = 3240
Width = 60
End
Begin VB.Label lblOutputPic
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "支出分析图"
ForeColor = &H0000FF00&
Height = 180
Left = 4720
TabIndex = 8
Top = 240
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "今日支出总额:"
ForeColor = &H0000FF00&
Height = 180
Left = 120
TabIndex = 1
Top = 600
Width = 1170
End
Begin VB.Label lblToday
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "Today"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 180
Left = 120
TabIndex = 0
Top = 120
Width = 525
End
End
Attribute VB_Name = "fmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'初始化控件
Private Sub InitControl()
Dim strWeekDay As String
Select Case Weekday(Date)
Case vbSunday:
strWeekDay = "星期天"
Case vbMonday:
strWeekDay = "星期一"
Case vbTuesday:
strWeekDay = "星期二"
Case vbWednesday:
strWeekDay = "星期三"
Case vbThursday:
strWeekDay = "星期四"
Case vbFriday:
strWeekDay = "星期五"
Case vbSaturday:
strWeekDay = "星期六"
End Select
'显示今天日期
lblToday.Caption = "今 天: " & g_nYear & "年" & g_nMon & "月" & g_nDay & "日" & Space(2) & strWeekDay
For i = 1 To g_nMon
cmbMonth.AddItem i & "月"
Next i
cmbMonth.ListIndex = g_nMon - 1
For i = 1 To 51
Load lblSection(i)
lblSection(i).Visible = False
If i <= 31 Then
lblSection(i).Caption = CStr(i)
Else
If i Mod 2 = 1 Then
lblSection(i).Caption = CStr((i - 31) / 2 * 10)
Else
lblSection(i).Caption = ""
End If
End If
Next i
End Sub
'初始化全局变量
Private Sub InitGlobal()
'获取日期
g_nYear = Year(Now())
g_nMon = Month(Now())
g_nDay = Day(Now())
g_MonIt = g_nMon
g_bAmend = DayIsRecord(g_nMon, g_nDay)
g_downFlag = False
rx1 = frmInput.Left + 2
ry1 = cmbMonth.Top + cmbMonth.Height \ 2
rx2 = rx1
ry2 = frmInput.Top + frmInput.Height - 2
rx3 = frmInput.Left + frmInput.Width
ry3 = ry2
rx4 = rx3
ry4 = ry1
nGrap = (rx4 - rx1) \ 20
nLen = (rx4 - rx1) - 2 * nGrap
If rx4 - rx1 > ry2 - ry1 Then
nGrap = (ry2 - ry1) \ 20
nLen = (ry2 - ry1) - 2 * nGrap
End If
nSecX = nLen \ 31
nSecY = nLen \ 22
sx = rx2 + nGrap
sy = ry2 - nGrap
End Sub
'获取每个月最大的一天(只能获取比当前日期早的月)
Private Function GetMaxDay(ByVal nMon As Integer) As Integer
Dim dayMax As Integer
GetMaxDay = 0
If nMon < g_nMon Then
Select Case nMon
Case 1, 3, 5, 7, 8, 10, 12
dayMax = 31
Case 4, 6, 9, 11
dayMax = 30
Case 2:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -