sets.frm

一个很好的软件

VERSION 5.00
Begin VB.Form Sets 
   Caption         =   "系统设置"
   ClientHeight    =   1980
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3795
   LinkTopic       =   "Form4"
   ScaleHeight     =   1980
   ScaleWidth      =   3795
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "恢复"
      Height          =   300
      Left            =   2640
      TabIndex        =   11
      ToolTipText     =   "恢复为初始设置"
      Top             =   1630
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   300
      Left            =   1440
      TabIndex        =   10
      Top             =   1630
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "保存"
      Height          =   300
      Left            =   240
      TabIndex        =   9
      Top             =   1630
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Height          =   1575
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3735
      Begin VB.Frame frame3 
         Caption         =   "期限"
         Height          =   1215
         Left            =   120
         TabIndex        =   4
         Top             =   240
         Width           =   1815
         Begin VB.TextBox Text2 
            Height          =   270
            Left            =   1320
            TabIndex        =   7
            Text            =   "1"
            Top             =   720
            Width           =   375
         End
         Begin VB.TextBox Text1 
            Height          =   270
            Left            =   1320
            TabIndex        =   5
            Text            =   "2"
            Top             =   240
            Width           =   375
         End
         Begin VB.Label Label2 
            Caption         =   "续借期限(月):"
            Height          =   255
            Left            =   120
            TabIndex        =   8
            Top             =   760
            Width           =   1455
         End
         Begin VB.Label Label1 
            Caption         =   "还书期限(月):"
            Height          =   255
            Left            =   120
            TabIndex        =   6
            Top             =   280
            Width           =   1575
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "系统"
         Height          =   1215
         Left            =   2040
         TabIndex        =   1
         Top             =   240
         Width           =   1575
         Begin VB.CheckBox Check2 
            Caption         =   "点击跳出菜单"
            Height          =   180
            Left            =   120
            TabIndex        =   3
            Top             =   720
            Width           =   1400
         End
         Begin VB.CheckBox Check1 
            Caption         =   "自动备份数据"
            Height          =   255
            Left            =   120
            TabIndex        =   2
            Top             =   240
            Width           =   1400
         End
      End
   End
End
Attribute VB_Name = "Sets"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "请输入借书期限!", 16
Exit Sub
End If
If Text2 = "" Then
MsgBox "请输入续借期限!", 16
Exit Sub
End If
If Val(Text1) > 12 Or Val(Text1) < 1 Then
MsgBox "借书期限不能超过12个月,少于1个月!", 16
Exit Sub
End If
If Val(Text2) > 12 Or Val(Text1) < 1 Then
MsgBox "续借期限不能超过12个月，少于一个月!", 16
Exit Sub
End If
SaveSetting "图书管理V1.0", "系统设置", "Btime", Text1
SaveSetting "图书管理v1.0", "系统设置", "Ltime", Text2
SaveSetting "图书管理v1.0", "系统设置", "Backup", Check1.Value
SaveSetting "图书管理v1.0", "系统设置", "Bcheck", Check2.Value
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
rc = MsgBox("确定要恢复初始设置吗?", 49)
If rc = vbOK Then
SaveSetting "图书管理V1.0", "系统设置", "Btime", 2
SaveSetting "图书管理v1.0", "系统设置", "Ltime", 1
SaveSetting "图书管理v1.0", "系统设置", "Backup", 1
SaveSetting "图书管理v1.0", "系统设置", "Bcheck", 1
Text1 = 2
Text2 = 1
Check1 = 1
Check2 = 1
End If
End Sub

Private Sub Form_Load()
Me.Icon = Form1.Icon
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
If a1 = "Anonymous" Or a2 = "Anonymous" Then
SaveSetting "图书管理V1.0", "系统设置", "Btime", 2
SaveSetting "图书管理v1.0", "系统设置", "Ltime", 1
SaveSetting "图书管理v1.0", "系统设置", "Backup", 1
SaveSetting "图书管理v1.0", "系统设置", "Bcheck", 1
End If
Text1 = GetSetting("图书管理V1.0", "系统设置", "Btime", "Anonymous")
Text2 = GetSetting("图书管理V1.0", "系统设置", "Ltime", "Anonymous")
Check1 = GetSetting("图书管理V1.0", "系统设置", "Backup", "Anonymous")
Check2 = GetSetting("图书管理V1.0", "系统设置", "Bcheck", "Anonymous")
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = ValiText(KeyAscii, "0123456789", True)
End Sub



Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = ValiText(KeyAscii, "0123456789", True)
End Sub