frmreaderstyle.frm

图书简明管理系统源代码(VB),可作为软件工程课程设计用,也可以作为学习用。

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmreaderstyle 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "读者类别管理"
   ClientHeight    =   7770
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7695
   Icon            =   "frmreaderstyle.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   7770
   ScaleWidth      =   7695
   Begin VB.CommandButton cmdclean 
      Caption         =   "清  空"
      Height          =   375
      Left            =   6000
      TabIndex        =   8
      Top             =   990
      Width           =   1215
   End
   Begin VB.TextBox txt可续借次数 
      Alignment       =   1  'Right Justify
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   375
      Left            =   3120
      TabIndex        =   3
      Text            =   "0"
      Top             =   2040
      Width           =   2535
   End
   Begin VB.TextBox txt罚款金额 
      Alignment       =   1  'Right Justify
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0.00"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   375
      Left            =   3120
      TabIndex        =   5
      Text            =   "0.00"
      Top             =   3240
      Width           =   2535
   End
   Begin VB.TextBox txt逾期后缓冲天数 
      Alignment       =   1  'Right Justify
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   375
      Left            =   3120
      TabIndex        =   4
      Text            =   "0"
      Top             =   2640
      Width           =   2535
   End
   Begin VB.TextBox txt可借阅天数 
      Alignment       =   1  'Right Justify
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   375
      Left            =   3120
      TabIndex        =   2
      Text            =   "0"
      Top             =   1440
      Width           =   2535
   End
   Begin VB.TextBox txt可借阅数量 
      Alignment       =   1  'Right Justify
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   375
      Left            =   3120
      TabIndex        =   1
      Text            =   "0"
      Top             =   840
      Width           =   2535
   End
   Begin VB.TextBox txt读者类别 
      Height          =   375
      Left            =   3120
      TabIndex        =   0
      Top             =   240
      Width           =   2535
   End
   Begin VB.CommandButton cmdexit 
      Cancel          =   -1  'True
      Caption         =   "退  出"
      Height          =   375
      Left            =   6000
      TabIndex        =   11
      Top             =   3240
      Width           =   1215
   End
   Begin VB.CommandButton cmddel 
      Caption         =   "删  除"
      Height          =   375
      Left            =   6000
      TabIndex        =   10
      Top             =   2490
      Width           =   1215
   End
   Begin VB.CommandButton cmdmodify 
      Caption         =   "修  改"
      Height          =   375
      Left            =   6000
      TabIndex        =   9
      Top             =   1740
      Width           =   1215
   End
   Begin VB.CommandButton cmdadd 
      Caption         =   "添  加"
      Default         =   -1  'True
      Height          =   375
      Left            =   6000
      TabIndex        =   7
      Top             =   240
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid readerstyleGrid 
      Height          =   3735
      Left            =   240
      TabIndex        =   6
      Top             =   3840
      Width           =   7215
      _ExtentX        =   12726
      _ExtentY        =   6588
      _Version        =   393216
      Rows            =   1
      Cols            =   6
      FixedCols       =   0
      BackColorBkg    =   14737632
      SelectionMode   =   1
      AllowUserResizing=   1
   End
   Begin VB.PictureBox Picbg1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   -840
      Picture         =   "frmreaderstyle.frx":19862
      ScaleHeight     =   1440
      ScaleWidth      =   1440
      TabIndex        =   17
      Top             =   6600
      Width           =   1440
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "可   续   借   次   数："
      Height          =   180
      Left            =   480
      TabIndex        =   18
      Top             =   2130
      Width           =   2520
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "逾 期 后 每 天 罚 款 金 额："
      Height          =   180
      Left            =   480
      TabIndex        =   16
      Top             =   3330
      Width           =   2520
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "逾  期  后  缓  冲  天  数："
      Height          =   180
      Left            =   480
      TabIndex        =   15
      Top             =   2730
      Width           =   2520
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "可   借   阅   天   数："
      Height          =   180
      Left            =   480
      TabIndex        =   14
      Top             =   1530
      Width           =   2520
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "可   借   阅   数   量："
      Height          =   180
      Left            =   480
      TabIndex        =   13
      Top             =   930
      Width           =   2520
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "读    者    类    别："
      Height          =   180
      Left            =   480
      TabIndex        =   12
      Top             =   330
      Width           =   2520
   End
End
Attribute VB_Name = "frmreaderstyle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim add As Boolean

Public Function readerstyle_update(txt As String, add As Boolean)
   Dim rs As New ADODB.Recordset
   Dim sql As String
   sql = "select * from dzlbb where 读者类别='" & txt & "'" 'dzlbb读者类别表