bianmu.frm

以上所有操作应用程序及数据库均要对其进行合法性有效性验证及相关约束条件检查

VERSION 5.00
Begin VB.Form 编目 
   Caption         =   "Form1"
   ClientHeight    =   8625
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   10725
   LinkTopic       =   "Form1"
   ScaleHeight     =   8625
   ScaleWidth      =   10725
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton CMD_EXIT 
      Caption         =   "退出"
      Height          =   615
      Left            =   5160
      TabIndex        =   17
      Top             =   4920
      Width           =   1215
   End
   Begin VB.TextBox Text7 
      Height          =   495
      Left            =   6720
      TabIndex        =   16
      Top             =   3600
      Width           =   2175
   End
   Begin VB.TextBox Text6 
      Height          =   615
      Left            =   1320
      TabIndex        =   13
      Top             =   3600
      Width           =   2295
   End
   Begin VB.TextBox Text5 
      Height          =   615
      Left            =   6720
      TabIndex        =   11
      Top             =   2520
      Width           =   2175
   End
   Begin VB.ComboBox Combo3 
      Height          =   300
      Left            =   3720
      TabIndex        =   6
      Text            =   "1"
      Top             =   2040
      Width           =   855
   End
   Begin VB.ComboBox Combo2 
      Height          =   300
      Left            =   2760
      TabIndex        =   5
      Text            =   "1"
      Top             =   2040
      Width           =   855
   End
   Begin VB.ComboBox Combo1 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   300
      ItemData        =   "Bianmu.frx":0000
      Left            =   1560
      List            =   "Bianmu.frx":0002
      TabIndex        =   4
      Text            =   "2000"
      Top             =   2040
      Width           =   1095
   End
   Begin VB.TextBox Text4 
      Height          =   615
      Left            =   1320
      TabIndex        =   3
      Top             =   2640
      Width           =   2295
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Left            =   6720
      TabIndex        =   2
      Top             =   840
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   1320
      TabIndex        =   1
      Top             =   840
      Width           =   2295
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   735
      Left            =   1920
      TabIndex        =   0
      Top             =   4800
      Width           =   1335
   End
   Begin VB.Label Label8 
      Caption         =   "定价"
      Height          =   495
      Left            =   240
      TabIndex        =   14
      Top             =   3720
      Width           =   735
   End
   Begin VB.Label Label6 
      Caption         =   "作者"
      Height          =   495
      Left            =   240
      TabIndex        =   10
      Top             =   2640
      Width           =   615
   End
   Begin VB.Label Label4 
      Caption         =   "书号"
      Height          =   495
      Left            =   240
      TabIndex        =   8
      Top             =   840
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "出版日期"
      Height          =   375
      Left            =   240
      TabIndex        =   7
      Top             =   2040
      Width           =   1215
   End
   Begin VB.Label Label9 
      Caption         =   "内容简介"
      Height          =   495
      Left            =   5400
      TabIndex        =   15
      Top             =   3720
      Width           =   855
   End
   Begin VB.Label Label7 
      Caption         =   "出版社"
      Height          =   615
      Left            =   5400
      TabIndex        =   12
      Top             =   2640
      Width           =   735
   End
   Begin VB.Label Label5 
      Caption         =   "题目"
      Height          =   375
      Left            =   5520
      TabIndex        =   9
      Top             =   840
      Width           =   615
   End
   Begin VB.Menu COUNT 
      Caption         =   "图书分类统计"
   End
   Begin VB.Menu QUERY 
      Caption         =   "图书查询"
   End
   Begin VB.Menu ModifyCode 
      Caption         =   "修改密码"
   End
   Begin VB.Menu deletebooks 
      Caption         =   "删除旧图书"
   End
   Begin VB.Menu Exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "编目"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub CLASSIFY_Click()
统计.Show

End Sub

Private Sub CMD_EXIT_Click()
Unload Me
End Sub

Private Sub Command1_Click()
Dim strIsbn As String               '变量-书号
Dim strTitle As String              '变量-题目
Dim strAuthor As String             '变量-作者
Dim strPublish As String            '变量-出版社
Dim intPrice As Integer             '变量-定价
Dim strSource As String             '变量-内容简介
Dim productID As Integer            '
Dim r As Variant

Dim dateTimeNow As Date             '变量-出版时间
If Text1.Text = "" And Text3.Text = "" And Text4.Text = "" And Text4.Text = "" And Text5.Text = "" And Text6.Text = "" Then
    MsgBox "输入不能为空"
    Exit Sub
End If

strIsbn = Text1.Text
dateTimeNow = "" + Trim(Combo1.Text) + "-" + Trim(Combo2.Text) + "-" + Trim(Combo3.Text)

strTitle = Text3.Text
strAuthor = Text4.Text
strPublish = Text5.Text
intPrice = Val(Text6.Text)
strSource = Text7.Text

With adoRs
    .MoveFirst
    
    While Not adoRs.EOF And Not adoRs.BOF
    
        If Trim(strIsbn) = Trim(.Fields("isbn").Value) Then
        MsgBox "该书号已存在,请重新输入!"
        Exit Sub
        Else
        .MoveNext
        End If
    
    Wend
End With
   
 r = EXECInsert(strIsbn, dateTimeNow, strTitle, strAuthor, strPublish, intPrice, strSource)
     MsgBox "编目成功"

Text1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub

Private Sub COUNT_Click()
统计.Show
End Sub

Private Sub deletebooks_Click()
删除旧书.Show
End Sub

Private Sub Exit_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim i, year As Integer
Dim str As String
                
year = 1980

For i = 0 To 40
    Combo1.List(i) = year + i
Next i
Combo1.Text = 2000

For i = 0 To 11
Combo2.List(i) = i + 1
Next i
Combo2.Text = 1

For i = 0 To 3
Combo3.List(i) = i + 1
Next i
Combo3.Text = 1

Call EXECommand

str = "select * from library_books "

ExecSql (str)



End Sub


Private Sub ModifyCode_Click()
修改密码.Show
End Sub

Private Sub QUERY_Click()
查询.Show
End Sub