setf.frm

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

VERSION 5.00
Begin VB.Form setf 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "参数设置"
   ClientHeight    =   2670
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4455
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "setf.frx":0000
   ScaleHeight     =   2670
   ScaleWidth      =   4455
   Begin VB.TextBox Text3 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Height          =   270
      Left            =   2040
      TabIndex        =   8
      Top             =   1500
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   375
      Left            =   2400
      Picture         =   "setf.frx":9C09
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   2040
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   840
      Picture         =   "setf.frx":C469
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   2040
      Width           =   975
   End
   Begin VB.TextBox Text2 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Height          =   270
      Left            =   2040
      TabIndex        =   3
      Top             =   1000
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Height          =   270
      Left            =   2040
      TabIndex        =   2
      Top             =   520
      Width           =   975
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "设置可借书册数"
      Height          =   180
      Left            =   720
      TabIndex        =   7
      Top             =   1560
      Width           =   1260
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "单位（元）"
      Height          =   180
      Left            =   3240
      TabIndex        =   4
      Top             =   600
      Width           =   900
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "设置超出一天罚款金额"
      Height          =   180
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   1800
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "设置可借书天数"
      Height          =   180
      Left            =   720
      TabIndex        =   0
      Top             =   1080
      Width           =   1260
   End
End
Attribute VB_Name = "setf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim sql As String
sql = "select * from setf "
opendb sql, "2"
    If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text = "") Then
        rs("setflag") = False
        setflag = rs("setflag")
        rs.Update
    Else
        rs("fine") = Val(Text1.Text)
        rs("bookday") = Val(Text2.Text)
        rs("booktotal") = Val(Text3.Text)
        rs("setflag") = True
        rs.Update
        setflag = rs("setflag")
        fine = rs("fine")
        bookday = rs("bookday")
        booktotal = rs("booktotal")
    End If
closedb
MsgBox "设置成功。", 64, "提示"
Unload Me
End Sub


Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Form_Load()
Dim sql As String
sql = "select * from setf "
opendb sql, ""
Text1.Text = rs("fine")
Text2.Text = rs("bookday")
Text3.Text = rs("booktotal")
closedb
End Sub