📄 main_xtwh_xtcsh.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form main_xtwh_xtcsh
BorderStyle = 1 'Fixed Single
Caption = "系统维护-【系统初始化】"
ClientHeight = 3225
ClientLeft = 2265
ClientTop = 3765
ClientWidth = 7815
Icon = "main_xtwh_xtcsh.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3225
ScaleWidth = 7815
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame2
Caption = "基础数据"
Enabled = 0 'False
Height = 1200
Left = 30
TabIndex = 11
Top = 1440
Width = 7695
Begin VB.CheckBox Check10
Caption = "图书目录信息"
Height = 240
Left = 6195
TabIndex = 17
Top = 345
Width = 1380
End
Begin VB.CheckBox Check11
Caption = "用户权限信息"
Height = 240
Left = 150
TabIndex = 16
Top = 780
Width = 1530
End
Begin VB.CheckBox Check9
Caption = "图书存放位置信息"
Height = 240
Left = 4275
TabIndex = 15
Top = 330
Width = 2145
End
Begin VB.CheckBox Check8
Caption = "图书类别信息"
Height = 240
Left = 2790
TabIndex = 14
Top = 345
Width = 1380
End
Begin VB.CheckBox Check7
Caption = "读者信息"
Height = 240
Left = 1680
TabIndex = 13
Top = 360
Width = 1455
End
Begin VB.CheckBox Check6
Caption = "读者类别信息"
Height = 240
Left = 150
TabIndex = 12
Top = 375
Width = 1455
End
End
Begin VB.CommandButton CmdStart
Caption = "&S 开始"
Height = 390
Left = 4320
TabIndex = 7
Top = 2730
Width = 1125
End
Begin VB.CommandButton CmdCreat
Caption = "&C 初始化"
Enabled = 0 'False
Height = 390
Left = 5460
TabIndex = 6
Top = 2730
Width = 1125
End
Begin VB.CommandButton CmdEnd
Caption = "&E 退出"
Height = 390
Left = 6600
TabIndex = 5
Top = 2730
Width = 1125
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 360
Left = 45
TabIndex = 4
Top = 2760
Visible = 0 'False
Width = 4215
_ExtentX = 7435
_ExtentY = 635
_Version = 393216
Appearance = 1
End
Begin VB.Frame Frame1
Caption = "业务数据"
Enabled = 0 'False
Height = 870
Left = 30
TabIndex = 1
Top = 450
Width = 7695
Begin VB.CheckBox Check5
Caption = "图书库存信息"
Height = 240
Left = 6225
TabIndex = 10
Top = 375
Width = 1410
End
Begin VB.CheckBox Check4
Caption = "图书销售信息"
Height = 240
Left = 4740
TabIndex = 8
Top = 375
Width = 1455
End
Begin VB.CheckBox Check3
Caption = "图书入库信息"
Height = 240
Left = 3180
TabIndex = 9
Top = 375
Width = 1380
End
Begin VB.CheckBox Check2
Caption = "读者还书信息"
Height = 240
Left = 1680
TabIndex = 3
Top = 375
Width = 1635
End
Begin VB.CheckBox Check1
Caption = "读者借书信息"
Height = 240
Left = 150
TabIndex = 2
Top = 375
Width = 1530
End
End
Begin VB.Image Image1
Height = 270
Left = 90
Picture = "main_xtwh_xtcsh.frx":000C
Stretch = -1 'True
Top = 30
Width = 255
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "提示：初始化将清空所选项的数据"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 255
Left = 450
TabIndex = 0
Top = 60
Width = 3450
End
End
Attribute VB_Name = "main_xtwh_xtcsh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/08/31
'描 述：新版图书综合管理系统 Ver 2.0
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim Cnn As New ADODB.Connection '声明一个Connection对象
Dim SQL As String '声明一个字符串变量
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub CmdStart_Click()
Frame1.Enabled = True
Frame2.Enabled = True
CmdCreat.Enabled = True
End Sub
Private Sub CmdCreat_Click() '清空选定表中的数据
Frame1.Enabled = False
Frame2.Enabled = False
CmdCreat.Enabled = False
Dim Counter As Integer '声明一个整型变量
Dim workarea(200) As String '声明数组
ProgressBar1.Min = LBound(workarea)
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Visible = True
'设置进度的值为Min
ProgressBar1.Value = ProgressBar1.Min
'在整个数组中循环
For Counter = LBound(workarea) To UBound(workarea)
'设置数组中每项的初始值
workarea(Counter) = "initial value " & Counter
ProgressBar1.Value = Counter
Set Cnn = New ADODB.Connection
Cnn.Open "DSN=NBooks"
If Check1.Value = 1 Then
SQL = "delete * from jsb"
Cnn.Execute SQL
End If
If Check2.Value = 1 Then
SQL = "delete * from hsb"
Cnn.Execute SQL
End If
If Check3.Value = 1 Then
SQL = "delete * from rkb"
Cnn.Execute SQL
SQL = "delete * from rkph"
Cnn.Execute SQL
End If
If Check4.Value = 1 Then
SQL = "delete * from xsb"
Cnn.Execute SQL
SQL = "delete * from xsph"
Cnn.Execute SQL
End If
If Check5.Value = 1 Then
SQL = "delete * from kcb"
Cnn.Execute SQL
End If
If Check6.Value = 1 Then
SQL = "delete * from dzlbb"
Cnn.Execute SQL
End If
If Check7.Value = 1 Then
SQL = "delete * from reads"
Cnn.Execute SQL
End If
If Check8.Value = 1 Then
SQL = "delete * from tslbb"
Cnn.Execute SQL
End If
If Check9.Value = 1 Then
SQL = "delete * from tswzb"
Cnn.Execute SQL
End If
If Check10.Value = 1 Then
SQL = "delete * from mlb"
Cnn.Execute SQL
End If
If Check11.Value = 1 Then
SQL = "delete * from qxb"
Cnn.Execute SQL
End If
Next Counter
ProgressBar1.Visible = False
Cnn.Close
End Sub
Private Sub CmdEnd_Click()
frm_main.Enabled = True
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -