frmpress.frm

图书管理系统New08-05-28.rar（包含文档）

VERSION 5.00
Begin VB.Form frmPress 
   BackColor       =   &H80000013&
   Caption         =   "出版社信息管理"
   ClientHeight    =   3015
   ClientLeft      =   5235
   ClientTop       =   5190
   ClientWidth     =   4425
   LinkTopic       =   "Form1"
   ScaleHeight     =   3015
   ScaleWidth      =   4425
   Begin VB.TextBox txt_dz 
      Height          =   375
      Left            =   1440
      TabIndex        =   7
      Top             =   1680
      Width           =   2055
   End
   Begin VB.ComboBox cbsm 
      Height          =   300
      Left            =   1440
      TabIndex        =   3
      Text            =   "图书类别列表"
      Top             =   1200
      Width           =   2055
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加"
      Height          =   375
      Left            =   1200
      TabIndex        =   2
      Top             =   2400
      Width           =   855
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "取消"
      Height          =   375
      Left            =   2520
      TabIndex        =   1
      Top             =   2400
      Width           =   855
   End
   Begin VB.TextBox txt_cbs 
      Height          =   375
      Left            =   1440
      TabIndex        =   0
      Top             =   1200
      Width           =   2055
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackColor       =   &H80000013&
      Caption         =   "出版社所在地："
      Height          =   180
      Left            =   120
      TabIndex        =   6
      Top             =   1800
      Width           =   1260
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H80000013&
      Caption         =   "出版社信息"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   840
      TabIndex        =   5
      Top             =   240
      Width           =   2250
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackColor       =   &H80000013&
      Caption         =   "出版社名称："
      Height          =   180
      Left            =   360
      TabIndex        =   4
      Top             =   1320
      Width           =   1080
   End
End
Attribute VB_Name = "frmPress"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'       作者：林永刚
'       名称：frmPress
'       功能：出版社信息管理（添加）。
'****************************************************************************
Private Sub cmdAdd_Click()
Dim sql As String
Label1.Caption = "添加出版社信息"
Label2.Caption = "出版社名称"
txt_cbs.Visible = True
cbsm.Visible = False
txt_dz.Visible = True
Label3.Visible = True

sql = "select * from book_category where cbsm ='" & txt_cbs.Text & "'"
If txt_cbs.Text = "" Then
MsgBox "填写类别名称"
txt_cbs.SetFocus
Exit Sub
Else
  Set rs = ADOSQL(sql)
    If rs.EOF = False Then
      MsgBox "该出版社已经存在，请核对！", vbOKOnly
      rs.Close
    Else
      Set rs = ADOSQL(sql)
        rs.AddNew                '添加新纪录
        rs.Fields(1) = Trim(txt_cbs.Text)
        rs.Fields(2) = Trim(txt_dz.Text)
        rs.Update
        MsgBox "添加成功"
        Unload Me
    End If
End If
End Sub

Private Sub Form_Load()
'添加出版社名称
cbsm.Visible = True
txt_cbs.Visible = False
txt_dz.Visible = False
Label3.Visible = False
sql_lb = "select cbsm from press_category"
Set rs_lb = ADOSQL(sql_lb)
While Not rs_lb.EOF
    cbsm.AddItem rs_lb(0)
    rs_lb.MoveNext
Wend
End Sub