?? frmbooktype.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmBookType
BorderStyle = 1 'Fixed Single
Caption = "圖書類別管理"
ClientHeight = 4155
ClientLeft = 45
ClientTop = 360
ClientWidth = 4020
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 4155
ScaleWidth = 4020
Begin VB.CommandButton CmdCancel
Cancel = -1 'True
Caption = "返回"
Height = 375
Left = 2640
TabIndex = 1
Top = 3720
Width = 1215
End
Begin VB.Frame FrameQuery
Caption = "查看圖書類別"
BeginProperty Font
Name = "楷體_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 2775
Left = 240
TabIndex = 6
Top = 600
Width = 3495
Begin VB.ListBox ListQuery
Height = 2220
Left = 120
TabIndex = 7
Top = 360
Width = 3255
End
End
Begin VB.Frame FrameAdd
Caption = "添加圖書類別"
BeginProperty Font
Name = "楷體_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 2775
Left = 240
TabIndex = 2
Top = 600
Width = 3495
Begin VB.CommandButton CmdAddOk
Caption = "添加"
Height = 375
Left = 2040
TabIndex = 5
Top = 1440
Width = 1215
End
Begin VB.TextBox TextTypeName
Height = 375
Left = 120
TabIndex = 4
Top = 840
Width = 3135
End
Begin VB.Label Label1
Caption = "類別名稱:"
BeginProperty Font
Name = "楷體_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 240
TabIndex = 3
Top = 480
Width = 1335
End
End
Begin MSComctlLib.TabStrip TabStrip1
Height = 3495
Left = 120
TabIndex = 0
Top = 120
Width = 3735
_ExtentX = 6588
_ExtentY = 6165
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 2
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "添加"
Key = "Type_Add"
ImageVarType = 2
EndProperty
BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "查看"
Key = "Type_Query"
ImageVarType = 2
EndProperty
EndProperty
End
End
Attribute VB_Name = "FrmBookType"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'添加圖書類別
Private Sub CmdAddOk_Click()
Dim str As String
'檢驗輸入內(nèi)容
If Len(Trim(Me.TextTypeName.Text)) <= 0 Then
MsgBox "請輸入類別名稱!"
Exit Sub
ElseIf Len(Trim(Me.TextTypeName.Text)) > 10 Then
MsgBox "您輸入的類別名稱過長!"
Exit Sub
End If
'生成要發(fā)送的數(shù)據(jù) = Type,01,Type_Name
str = "Type," & "01," & Me.TextTypeName.Text
'檢驗sock連接
If MDIFrm.SockToSvr.State <> sckConnected Then
MsgBox "還沒有連接數(shù)據(jù)庫,不能發(fā)送請求!"
Exit Sub
End If
'向服務(wù)器發(fā)送數(shù)據(jù)
MDIFrm.SockToSvr.SendData str
End Sub
Private Sub CmdCancel_Click() '返回
Unload Me
End Sub
Private Sub Form_Load()
Me.FrameAdd.Visible = True
Me.FrameQuery.Visible = False
End Sub
'選項卡切換
Private Sub TabStrip1_Click()
Dim str As String
Select Case TabStrip1.SelectedItem.Key
'添加圖書類別
Case "Type_Add"
Me.FrameAdd.Visible = True
Me.FrameQuery.Visible = False
'查看所有類別
Case "Type_Query"
Me.FrameAdd.Visible = False
Me.FrameQuery.Visible = True
'生成要發(fā)送的數(shù)據(jù) = Type,02
str = "Type," & "02"
'檢驗sock連接并向服務(wù)器發(fā)送數(shù)據(jù)
If MDIFrm.SockToSvr.State <> sckConnected Then
MsgBox "還沒有連接數(shù)據(jù)庫,不能發(fā)送請求!"
Exit Sub
End If
MDIFrm.SockToSvr.SendData str
End Select
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -