?? 服務種類.frm
字號:
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7200
TabIndex = 8
Top = 2280
Width = 1215
End
Begin VB.CommandButton ChaXun
Caption = ">>"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 7
Top = 3240
Width = 1095
End
Begin VB.CommandButton QuKuan
Caption = ">>"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 6
Top = 2400
Width = 1095
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3735
Left = 1320
TabIndex = 0
Top = 1080
Width = 5775
Begin VB.Label Label6
BackColor = &H00FFFFFF&
Caption = "退出"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Left = 4440
TabIndex = 23
Top = 3120
Width = 1215
End
Begin VB.Label Label5
BackColor = &H00FFFFFF&
Caption = "轉帳"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 735
Left = 4440
TabIndex = 5
Top = 2160
Width = 1215
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
Caption = "修改密碼"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 735
Left = 4320
TabIndex = 4
Top = 1200
Width = 1335
End
Begin VB.Label Label3
BackColor = &H00FFFFFF&
Caption = "查詢余額"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 855
Left = 120
TabIndex = 3
Top = 2160
Width = 1335
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
Caption = "取款"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 855
Left = 120
TabIndex = 2
Top = 1320
Width = 1455
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "請選擇你所需的服務"
BeginProperty Font
Name = "隸書"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 555
Left = 120
TabIndex = 1
Top = 240
Width = 5490
End
End
Begin VB.Image Image1
Height = 1005
Left = 2640
Picture = "服務種類.frx":0000
Top = 0
Width = 3000
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ChaXun_Click()
j = 4
Unload Form4
Call Query
Form8.Show
Form8.Label2.Caption = u
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
If i = 1 Then
Label1.FontSize = 16
Label1.Caption = "Please Select your needing server"
Label2.Caption = "WithDraw"
Label3.Caption = "Transfer"
Label4.Caption = "Change Password"
Label5.Caption = "Deposit Query"
Frame2.Caption = "Key Board"
Cancel.Caption = "Cancel"
Submit.Caption = "Submit"
Label6.Caption = "Log out"
End If
End Sub
Private Sub QuKuan_Click()
j = 1
Unload Form4
Form5.Show
End Sub
Private Sub XiuGai_Click()
j = 2
Unload Form4
Form6.Show
End Sub
Private Sub ZhuanZhang_Click()
j = 3
Unload Form4
Form7.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -