?? frmfirst.frm
字號:
VERSION 5.00
Begin VB.Form frmfirst
BorderStyle = 1 'Fixed Single
Caption = "歡迎使用"
ClientHeight = 2715
ClientLeft = 45
ClientTop = 330
ClientWidth = 7350
Icon = "frmfirst.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmfirst.frx":0442
ScaleHeight = 2715
ScaleWidth = 7350
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Textp2
Height = 345
IMEMode = 3 'DISABLE
Left = 4710
MaxLength = 8
PasswordChar = "*"
TabIndex = 12
Top = 1425
Width = 2070
End
Begin VB.TextBox Textp1
Height = 345
IMEMode = 3 'DISABLE
Left = 1320
MaxLength = 8
PasswordChar = "*"
TabIndex = 11
Top = 1425
Width = 2055
End
Begin VB.CommandButton Comca
Caption = "放棄"
Height = 315
Left = 4245
TabIndex = 10
Top = 1980
Width = 1350
End
Begin VB.CommandButton Comok
Caption = "確定"
Height = 315
Left = 1635
TabIndex = 9
Top = 1980
Width = 1350
End
Begin VB.TextBox Text2
Height = 345
Left = 4680
TabIndex = 6
ToolTipText = "此處輸入開始計賬時的資金總額"
Top = 885
Width = 1965
End
Begin VB.TextBox Text1
Height = 330
Left = 960
TabIndex = 4
ToolTipText = "此處輸入您想開始計賬的年月"
Top = 885
Width = 1410
End
Begin VB.Label Label8
Caption = "確認輸入："
Height = 315
Left = 3690
TabIndex = 14
Top = 1470
Width = 960
End
Begin VB.Label Label7
Caption = "用戶密碼："
Height = 345
Left = 315
TabIndex = 13
Top = 1455
Width = 990
End
Begin VB.Label Label6
Caption = "注意：開始時間填寫好后不能再修改，而資金總額以后可再修改."
ForeColor = &H000000FF&
Height = 255
Left = 90
TabIndex = 8
Top = 2490
Width = 7020
End
Begin VB.Label Label5
Caption = "元"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 6705
TabIndex = 7
Top = 930
Width = 345
End
Begin VB.Label Label4
Caption = "共有資金（包括存款）"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2520
TabIndex = 5
Top = 930
Width = 2190
End
Begin VB.Label Label3
Caption = "截止到"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 240
TabIndex = 3
Top = 915
Width = 780
End
Begin VB.Label Label2
Caption = "請輸入以下數據好進行初始化工作："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 885
TabIndex = 2
Top = 510
Width = 3405
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "歡迎使用小小收支薄V0.2測試版"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Index = 1
Left = 1545
TabIndex = 1
Top = 105
Width = 4545
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "歡迎使用小小收支薄V0.2測試版"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 1500
TabIndex = 0
Top = 90
Width = 4335
End
End
Attribute VB_Name = "frmfirst"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public firdate As String
Public firmoney As Single
Private Sub Comca_Click()
firdate = ""
Unload Me
End Sub
Private Sub Comok_Click()
If Textp2.Text <> Textp1.Text Then
MsgBox "兩次輸入的密碼不相同，請重輸。", 48, "提示"
With Textp2
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
Exit Sub
End If
Dim i As Byte, pas(7) As String, mw
mw = ""
For i = 1 To Len(Textp1.Text)
pas(i - 1) = Mid(Textp1.Text, i, 1)
pas(i - 1) = Chr(Asc(pas(i - 1)) + 50 + i * 2)
mw = mw + pas(i - 1)
Next i
Open App.Path + "\ok.pas" For Output As #1
Write #1, mw
Close #1
firdate = Text1.Text
firmoney = CSng(Text2.Text)
Unload Me
End Sub
Private Sub Form_Load()
Text1.Text = Format(Date, "YY-MM")
Text2.Text = "10000"
End Sub
Private Sub Text1_LostFocus()
If Not IsDate(Text1.Text) Then
With Text1
MsgBox "這里應該輸入日期！", 48, "請注意"
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
Private Sub Text2_LostFocus()
If Not IsNumeric(Text2.Text) Then
With Text2
MsgBox "這里應該輸入金額！", 48, "請注意"
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -