meditbook.frm

一个用VB写的通信录程序是一个课程设计很实用

VERSION 5.00
Begin VB.Form meditbook 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "修改图书信息"
   ClientHeight    =   2700
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6330
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "meditbook.frx":0000
   ScaleHeight     =   2700
   ScaleWidth      =   6330
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdOkCancel 
      Caption         =   "保存"
      Default         =   -1  'True
      Height          =   375
      Index           =   0
      Left            =   3240
      Picture         =   "meditbook.frx":9C09
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   1920
      Width           =   975
   End
   Begin VB.CommandButton cmdOkCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Index           =   1
      Left            =   4560
      Picture         =   "meditbook.frx":C469
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   1920
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Height          =   270
      Index           =   0
      Left            =   1320
      TabIndex        =   4
      Text            =   "Text1"
      Top             =   600
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Height          =   270
      Index           =   1
      Left            =   3240
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   600
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Height          =   270
      Index           =   2
      Left            =   5160
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   600
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Height          =   270
      Index           =   3
      Left            =   1320
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   1320
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Height          =   270
      Index           =   4
      Left            =   3240
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   1320
      Width           =   975
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "出版社"
      Height          =   180
      Index           =   4
      Left            =   2640
      TabIndex        =   11
      Top             =   1440
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "类别"
      Height          =   180
      Index           =   3
      Left            =   360
      TabIndex        =   10
      Top             =   1440
      Width           =   360
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "价格"
      Height          =   180
      Index           =   2
      Left            =   4560
      TabIndex        =   9
      Top             =   600
      Width           =   360
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "书名"
      Height          =   180
      Index           =   1
      Left            =   2640
      TabIndex        =   8
      Top             =   600
      Width           =   360
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "图书编号"
      Height          =   180
      Index           =   0
      Left            =   360
      TabIndex        =   7
      Top             =   600
      Width           =   720
   End
End
Attribute VB_Name = "meditbook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOkCancel_Click(Index As Integer)
Select Case Index
    Case 0
        editbookno = Trim(Text1(0).Text)
        editbooktitle = Trim(Text1(1).Text)
        editprice = Val(Trim(Text1(2).Text))
        editsort = Trim(Text1(3).Text)
        editpress = Trim(Text1(4).Text)
        If editbookno = "" Or editbooktitle = "" Or editsort = "" Or editpress = "" Then
            MsgBox "您是不是还有一项没填，要填好才能正确保存！", 64, "提示"
            Exit Sub
        ElseIf (VarType(editprice) <> 5) Then
            MsgBox "价格项必需填数字才能正确保存！", 64, "提示"
            Text1(2).SetFocus
            Exit Sub
        
        Else
            
            mSave = True
            Unload Me
        End If
    Case 1
        mSave = False
        Unload Me
End Select
End Sub

Private Sub Form_Activate()
Text1(0).SetFocus
End Sub

Private Sub Form_Load()
    Text1(0).Text = editbookno
    Text1(1).Text = editbooktitle
    Text1(2).Text = editprice
    Text1(3).Text = editsort
    Text1(4).Text = editpress
    
End Sub