系统设置.frm

一个以SQL Server 2000为数据库

VERSION 5.00
Begin VB.Form 系统设置 
   Caption         =   "系统设置"
   ClientHeight    =   4395
   ClientLeft      =   5310
   ClientTop       =   5250
   ClientWidth     =   6675
   LinkTopic       =   "Form6"
   ScaleHeight     =   4395
   ScaleWidth      =   6675
   Begin VB.CommandButton Com_exit 
      Caption         =   "退出"
      Height          =   375
      Left            =   4200
      TabIndex        =   13
      Top             =   3600
      Width           =   975
   End
   Begin VB.CommandButton Com_confirm 
      Caption         =   "确定"
      Height          =   375
      Left            =   1200
      TabIndex        =   12
      Top             =   3600
      Width           =   975
   End
   Begin VB.Frame Frame_Mem_money 
      Caption         =   "租借会员办理设置："
      Height          =   3255
      Left            =   3600
      TabIndex        =   5
      Top             =   120
      Width           =   2775
      Begin VB.TextBox TMax_days 
         Height          =   375
         Left            =   480
         TabIndex        =   22
         Text            =   "30"
         Top             =   2760
         Width           =   855
      End
      Begin VB.TextBox TBorrow_money 
         Height          =   405
         Left            =   480
         TabIndex        =   19
         Text            =   "2"
         Top             =   2040
         Width           =   615
      End
      Begin VB.TextBox TMem_money 
         Height          =   375
         Left            =   480
         TabIndex        =   10
         Text            =   "30"
         Top             =   1320
         Width           =   615
      End
      Begin VB.OptionButton OptionN 
         Caption         =   "否"
         Enabled         =   0   'False
         Height          =   375
         Left            =   1200
         TabIndex        =   8
         Top             =   600
         Width           =   495
      End
      Begin VB.OptionButton OptionY 
         Caption         =   "是"
         Enabled         =   0   'False
         Height          =   375
         Left            =   360
         TabIndex        =   7
         Top             =   600
         Value           =   -1  'True
         Width           =   495
      End
      Begin VB.Label Label2 
         Caption         =   "天"
         Height          =   375
         Left            =   1440
         TabIndex        =   23
         Top             =   2760
         Width           =   375
      End
      Begin VB.Label Label1 
         Caption         =   "最长租借期限："
         Height          =   375
         Left            =   120
         TabIndex        =   21
         Top             =   2520
         Width           =   1575
      End
      Begin VB.Label 元人民币 
         Caption         =   "元人民币"
         Height          =   375
         Left            =   1200
         TabIndex        =   20
         Top             =   2160
         Width           =   735
      End
      Begin VB.Label 碟片租金 
         Caption         =   "碟片租金："
         Height          =   375
         Left            =   120
         TabIndex        =   18
         Top             =   1800
         Width           =   1455
      End
      Begin VB.Label L元 
         Caption         =   "元人民币"
         Height          =   375
         Left            =   1200
         TabIndex        =   11
         Top             =   1320
         Width           =   735
      End
      Begin VB.Label LMoney 
         Caption         =   "办理会员所需费用："
         Height          =   375
         Left            =   120
         TabIndex        =   9
         Top             =   960
         Width           =   1695
      End
      Begin VB.Label Lbool_money 
         Caption         =   "是否收取会员办理费："
         Height          =   375
         Left            =   120
         TabIndex        =   6
         Top             =   360
         Width           =   1815
      End
   End
   Begin VB.Frame Frame_length 
      Caption         =   "长度设置"
      Height          =   3255
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   3255
      Begin VB.TextBox TMem_ID_len 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1800
         TabIndex        =   17
         Text            =   "10"
         Top             =   1680
         Width           =   495
      End
      Begin VB.TextBox TCD_b_num_len 
         Height          =   285
         Left            =   1800
         TabIndex        =   16
         Text            =   "6"
         Top             =   960
         Width           =   495
      End
      Begin VB.TextBox TAdmin_password_len 
         Height          =   285
         Left            =   1800
         TabIndex        =   15
         Text            =   "10"
         Top             =   360
         Width           =   495
      End
      Begin VB.TextBox TAdminID_len 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1800
         TabIndex        =   14
         Text            =   "10"
         Top             =   2280
         Width           =   495
      End
      Begin VB.Label LAdminID_len 
         Caption         =   "管理员编号长度："
         Height          =   375
         Left            =   120
         TabIndex        =   4
         Top             =   2280
         Width           =   1455
      End
      Begin VB.Label LMemID_len 
         Caption         =   "会员的编号长度："
         Height          =   375
         Left            =   120
         TabIndex        =   3
         Top             =   1680
         Width           =   1455
      End
      Begin VB.Label LCD_b_num_len 
         Caption         =   "碟片的编号长度："
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   960
         Width           =   1455
      End
      Begin VB.Label LAdmin_password_len 
         Caption         =   "管理员密码长度："
         Height          =   375
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   1455
      End
   End
End
Attribute VB_Name = "系统设置"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private cnRecordSet As ADODB.Recordset

Private Sub Com_exit_Click()
Unload 系统设置
End Sub

Private Sub Com_confirm_Click()
Dim sqlpassword As String
Dim sqlbnum As String
Dim sqlMemID As String
Dim sqlAdminID As String
sqlpassword = "Alter table Admin_Info alter column Admin_password char(" + TAdmin_password_len.Text + ")"
Set cnRecordSet = Form1.cnTest.Execute(sqlpassword)
sqlbnum = "Alter table CD_Info alter column CD_b_num char(" + TCD_b_num_len.Text + ")"
Set cnRecordSet = Form1.cnTest.Execute(sqlbnum)
'sqlMemID = "Alter table Member_Info alter column Card_ID char(" + TMem_ID_len.Text + ")"
'Set cnRecordSet = Form1.cnTest.Execute(sqlMemID)
'sqlAdminID = "Alter table Admin_Info alter column AdminID char(" + TAdminID_len.Text + ")"
'Set cnRecordSet = Form1.cnTest.Execute(sqlAdminID)
Form1.Borrow_money = TBorrow_money.Text
Form1.Max_days = TMax_days.Text
End Sub


Private Sub Form_Load()
Form1.Borrow_money = TBorrow_money.Text
Form1.Max_days = TMax_days.Text
End Sub