?? 病歷-幫助.frm
字號:
VERSION 5.00
Begin VB.Form Form3
Caption = "幫助系統"
ClientHeight = 6540
ClientLeft = 4050
ClientTop = 1500
ClientWidth = 6750
Icon = "病歷-幫助.frx":0000
LinkTopic = "Form3"
ScaleHeight = 6540
ScaleWidth = 6750
Begin VB.Frame Frame1
Caption = " 修改密碼 "
Height = 2415
Left = 120
TabIndex = 0
Top = 3240
Width = 6495
Begin VB.CommandButton Command3
Caption = "重置"
Height = 375
Left = 4680
TabIndex = 6
Top = 1140
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "退出"
Height = 375
Left = 4680
TabIndex = 5
Top = 1800
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "確定"
Height = 375
Left = 4680
TabIndex = 4
Top = 480
Width = 1095
End
Begin VB.TextBox Text3
Height = 375
IMEMode = 3 'DISABLE
Left = 960
PasswordChar = "#"
TabIndex = 3
Top = 1800
Width = 2895
End
Begin VB.TextBox Text2
Height = 375
IMEMode = 3 'DISABLE
Left = 960
PasswordChar = "#"
TabIndex = 2
Top = 1140
Width = 2895
End
Begin VB.TextBox Text1
Height = 375
IMEMode = 3 'DISABLE
Left = 960
PasswordChar = "#"
TabIndex = 1
Top = 480
Width = 2895
End
Begin VB.Label Label3
Caption = "請確認:"
Height = 255
Left = 120
TabIndex = 9
Top = 1920
Width = 735
End
Begin VB.Label Label2
Caption = "新密碼:"
Height = 255
Left = 120
TabIndex = 8
Top = 1260
Width = 735
End
Begin VB.Label Label1
Caption = "原密碼:"
Height = 255
Left = 120
TabIndex = 7
Top = 600
Width = 735
End
End
Begin VB.Label Label5
Caption = "http://blog.sina.com.cn/qq1217"
BeginProperty Font
Name = "宋體"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004000&
Height = 375
Left = 720
MouseIcon = "病歷-幫助.frx":F84A
MousePointer = 99 'Custom
TabIndex = 11
Top = 5880
Width = 5055
End
Begin VB.Label Label4
Height = 2535
Left = 120
TabIndex = 10
Top = 120
Width = 6495
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error GoTo errer
If Text1.Text <> frmLogin.Text1.Text Then
MsgBox "與原密碼不符..請察正..", vbExclamation, "與原密碼不符"
Else
If Text2.Text <> Text3.Text Then
MsgBox "兩次密碼輸入不符..請察正..", vbExclamation, "密碼不符"
Else
frmLogin.Adodc1.Recordset.MoveFirst
frmLogin.Adodc1.Recordset.AddNew
frmLogin.Text1.Text = Text3.Text
frmLogin.Adodc1.Recordset.UpdateBatch
MsgBox "修改成功..請牢記新密碼..", , "成功"
Unload Me
End If
End If
Exit Sub
errer:
MsgBox "出錯...請查正..", , "錯誤"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Form_Load()
Label4.Caption = "注意:" & Chr(13) + Chr(13) & "1.ID項為系統自動編號.不必也不能修改.." & Chr(13) + Chr(13) & "2.入院時間格式為XXXX-XX-XX.." & Chr(13) + Chr(13) & "3.年齡輸入框輸入字符必須為數字" & Chr(13) + Chr(13) & "4.根目錄下必須有一個" & "Database1.dat" & "的庫文件..如果缺少..請與作者聯系 " & Chr(13) + Chr(13) & "5.如有建議..歡迎指正..QQ:77423704 Email:jxwangchao@gmail.com"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &H4000&
End Sub
Private Sub Label5_Click()
Shell "explorer http://blog.sina.com.cn/qq1217"
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &HFF&
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -