?? 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
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 + -