form8.frm

vb+sql的图书管理系统。

VERSION 5.00
Begin VB.Form Form8 
   Caption         =   "系统设置"
   ClientHeight    =   5130
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8370
   LinkTopic       =   "Form8"
   MDIChild        =   -1  'True
   ScaleHeight     =   5130
   ScaleWidth      =   8370
   Begin VB.Frame Frame1 
      Caption         =   "基本设置"
      Height          =   4935
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   7455
      Begin VB.Frame Frame2 
         Caption         =   "说明"
         Height          =   1095
         Left            =   5880
         TabIndex        =   14
         Top             =   3480
         Width           =   1455
         Begin VB.Label Label7 
            Caption         =   "对各个身份的读者进行相关设置"
            Height          =   615
            Left            =   0
            TabIndex        =   15
            Top             =   360
            Width           =   1455
         End
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定"
         Height          =   375
         Left            =   360
         TabIndex        =   13
         Top             =   3960
         Width           =   1455
      End
      Begin VB.TextBox Text5 
         Height          =   270
         Left            =   3360
         TabIndex        =   12
         Top             =   2520
         Width           =   975
      End
      Begin VB.TextBox Text4 
         Height          =   270
         Left            =   1680
         TabIndex        =   10
         Top             =   1320
         Width           =   975
      End
      Begin VB.TextBox Text3 
         Height          =   270
         Left            =   4560
         TabIndex        =   9
         Top             =   600
         Width           =   735
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Left            =   4560
         TabIndex        =   8
         Top             =   1320
         Width           =   735
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   1680
         TabIndex        =   7
         Top             =   600
         Width           =   975
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "Form8.frx":0000
         Left            =   6000
         List            =   "Form8.frx":0013
         TabIndex        =   6
         Text            =   "选择身份"
         Top             =   840
         Width           =   1215
      End
      Begin VB.Line Line3 
         X1              =   240
         X2              =   5400
         Y1              =   3600
         Y2              =   3600
      End
      Begin VB.Label Label6 
         Caption         =   "超过借书期限收取逾期费用(元/天)"
         Height          =   255
         Left            =   240
         TabIndex        =   11
         Top             =   2640
         Width           =   3135
      End
      Begin VB.Line Line2 
         X1              =   240
         X2              =   5280
         Y1              =   2040
         Y2              =   2040
      End
      Begin VB.Label Label5 
         Caption         =   "身份"
         Height          =   375
         Left            =   6000
         TabIndex        =   5
         Top             =   480
         Width           =   1215
      End
      Begin VB.Line Line1 
         X1              =   5760
         X2              =   5760
         Y1              =   600
         Y2              =   4080
      End
      Begin VB.Label Label4 
         Caption         =   "可预留数量"
         Height          =   375
         Left            =   3360
         TabIndex        =   4
         Top             =   1440
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "预留时间(小时)"
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   1440
         Width           =   1455
      End
      Begin VB.Label Label3 
         Caption         =   "最大借书数量"
         Height          =   375
         Left            =   3240
         TabIndex        =   2
         Top             =   720
         Width           =   1455
      End
      Begin VB.Label Label2 
         Caption         =   "借书期限(天)"
         Height          =   375
         Left            =   240
         TabIndex        =   1
         Top             =   720
         Width           =   1575
      End
   End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1.Text <> "" Then

cn.Execute "update 读者 set 借书期限='" + Text1.Text + "' where 身份='" + Combo1 + "'"
MsgBox "借书期限设置成功！", vbOKOnly, "提示"
End If
If Text3.Text <> "" Then
cn.Execute "update 读者 set 可借数量='" + Text1.Text + "' where 身份='" + Combo1 + "'"
MsgBox "可借数量设置成功！", vbOKOnly, "提示"
End If
  If Val(Text5.Text) < 0 Then
  MsgBox "费用不能小于0 ！", vbOKOnly, "提示"
    Text5.SetFocus
        SendKeys "{Home}+{End}"
        End If
        Exit Sub
End Sub