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