?? form8.frm
字號:
VERSION 5.00
Object = "{CFA7AFF4-3242-4269-9172-7389D695AE01}#1.0#0"; "StoneXP.ocx"
Begin VB.Form Form8
BorderStyle = 1 'Fixed Single
Caption = "系統設定"
ClientHeight = 4485
ClientLeft = 45
ClientTop = 435
ClientWidth = 6000
Icon = "Form8.frx":0000
LinkTopic = "Form8"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4485
ScaleWidth = 6000
StartUpPosition = 1 '所有者中心
Begin StoneXP.XPButton XPButton1
Height = 375
Left = 1440
TabIndex = 6
Top = 3480
Width = 975
_ExtentX = 1720
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "確 定"
MouseIcon = "Form8.frx":F84A
MousePointer = 99
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3480
TabIndex = 2
Top = 2265
Width = 1455
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3360
TabIndex = 1
Top = 1665
Width = 1095
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3360
TabIndex = 0
Top = 1065
Width = 1095
End
Begin StoneXP.XPButton XPButton2
Height = 375
Left = 3360
TabIndex = 7
Top = 3480
Width = 975
_ExtentX = 1720
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "取 消"
MouseIcon = "Form8.frx":FB64
MousePointer = 99
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "管理員轉移操作學號:"
BeginProperty Font
Name = "楷體_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 360
TabIndex = 5
Top = 2250
Width = 3015
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "特殊用戶借書數:"
BeginProperty Font
Name = "楷體_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 720
TabIndex = 4
Top = 1650
Width = 2655
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "普通用戶借書數:"
BeginProperty Font
Name = "楷體_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 720
TabIndex = 3
Top = 1050
Width = 2535
End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.BackColor = RGB(121, 153, 207)
End Sub
Private Sub xpbutton1_Click()
If Text1.Text <> "" And Text2.Text <> "" Then
If sts1.State = adStateOpen Then
sts1.Close
End If
sts1.Open "select * from 系統", cnn, adOpenKeyset, adLockOptimistic, adCmdText
sts1.Fields(0) = Text1.Text
sts1.Fields(1) = Text2.Text
sts1.Update
MsgBox "修改成功"
End If
If Text3.Text <> "" Then
Set sts1 = cnn.Execute("select * from 個人信息 where 學號='" & Text3.Text & "'")
If sts1.EOF = False Then
id = Text3.Text
Unload Me
Else
MsgBox "無此學號,轉換失敗!", vbInformation, "提示"
End If
End If
End Sub
Private Sub xpbutton2_Click()
Unload Me
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -