【VB开源代码栏目提醒】:以下是网学会员为您推荐的VB开源代码-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 = 2865
ClientLeft = 2265
ClientTop = 3765
ClientWidth = 6270
Icon = "main_xtwh_xtcsh.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2865
ScaleWidth = 6270
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame2
Caption = "基础数据"
Enabled = 0 'False
Height = 915
Left = 45
TabIndex = 10
Top = 1440
Width = 6165
Begin VB.CheckBox Check9
Caption = "图书存放位置信息"
Height = 240
Left = 4275
TabIndex = 14
Top = 330
Width = 1755
End
Begin VB.CheckBox Check8
Caption = "图书类别信息"
Height = 240
Left = 2790
TabIndex = 13
Top = 345
Width = 1380
End
Begin VB.CheckBox Check7
Caption = "读者信息"
Height = 240
Left = 1680
TabIndex = 12
Top = 360
Width = 1455
End
Begin VB.CheckBox Check6
Caption = "读者类别信息"
Height = 240
Left = 150
TabIndex = 11
Top = 375
Width = 1455
End
End
Begin VB.CommandButton CmdStart
Caption = "&S 开始"
Height = 390
Left = 3630
TabIndex = 7
Top = 2445
Width = 870
End
Begin VB.CommandButton CmdCreat
Caption = "&C 初始化"
Enabled = 0 'False
Height = 390
Left = 4500
TabIndex = 6
Top = 2445
Width = 870
End
Begin VB.CommandButton CmdEnd
Caption = "&E 退出"
Height = 390
Left = 5370
TabIndex = 5
Top = 2445
Width = 870
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 360
Left = 15
TabIndex = 4
Top = 2460
Visible = 0 'False
Width = 3600
_ExtentX = 6350
_ExtentY = 635
_Version = 393216
Appearance = 1
End
Begin VB.Frame Frame1
Caption = "业务数据"
Enabled = 0 'False
Height = 870
Left = 30
TabIndex = 1
Top = 450
Width = 6180
Begin VB.CheckBox Check5
Caption = "图书库存信息"
Height = 240
Left = 4605
TabIndex = 9
Top = 375
Width = 1410
End
Begin VB.CheckBox Check3
Caption = "图书入库信息"
Height = 240
Left = 3180
TabIndex = 8
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 = 75
Picture = "main_xtwh_xtcsh.frx":1C7A
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
'*************************************************************************
'**模 块 名:main_xtwh_xtcsh
'**版权说明:吉林省明日科技有限公司享有本软件的所有版权,如果本软件用于商
'** 业用途,必须经过吉林省明日科技有限公司授权。如果提供网上免费
'** 下载,必须经过吉林省明日科技有限公司授权,并保证程序的完整,
'** 不得修改代码、注释和相关内容,否则,我公司将追究其法律责任
'**网 址:www.mingrisoft.com 价值无限,服务无限
'**电 话:(0431)84978981,84978982
'**创 建 人:明日科技
'**日 期:2007-11-15
'**修 改 人:mrwq
'**日 期:2007-11-15
'**描 述:系统初始化
'*************************************************************************
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
CmdCre