?? frmdatabaseset.frm
字號:
VERSION 5.00
Begin VB.Form FrmDatabaseSet
BorderStyle = 1 'Fixed Single
Caption = "數據庫配置檢查"
ClientHeight = 9465
ClientLeft = 45
ClientTop = 495
ClientWidth = 15270
Icon = "FrmDatabaseSet.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 9465
ScaleWidth = 15270
Begin VB.ListBox List2
Appearance = 0 'Flat
BackColor = &H8000000F&
Height = 5070
Left = 7920
TabIndex = 6
Top = 1560
Width = 4215
End
Begin VB.CheckBox Check1
Caption = "全選"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6240
TabIndex = 5
Top = 960
Width = 855
End
Begin VB.ListBox List1
Appearance = 0 'Flat
Height = 4860
Left = 3120
Style = 1 'Checkbox
TabIndex = 3
Top = 1560
Width = 3855
End
Begin VB.Label LblDelete
BackStyle = 0 'Transparent
Caption = "初始化所選數據表"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4320
MouseIcon = "FrmDatabaseSet.frx":0CCA
MousePointer = 99 'Custom
TabIndex = 1
Top = 8160
Width = 2175
End
Begin VB.Image Image1
Height = 300
Left = 3720
Picture = "FrmDatabaseSet.frx":0FD4
Top = 8160
Width = 300
End
Begin VB.Label Label2
Caption = "檢測結果:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7920
TabIndex = 7
Top = 960
Width = 1335
End
Begin VB.Label Label1
Caption = "請選擇要檢測的數據表:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3120
TabIndex = 4
Top = 960
Width = 2775
End
Begin VB.Image Image4
Height = 300
Left = 9600
Picture = "FrmDatabaseSet.frx":13F0
Top = 8040
Width = 300
End
Begin VB.Label LblCancel
BackStyle = 0 'Transparent
Caption = "返回"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 10200
MouseIcon = "FrmDatabaseSet.frx":180C
MousePointer = 99 'Custom
TabIndex = 2
Top = 8040
Width = 855
End
Begin VB.Image Image3
Height = 300
Left = 4320
Picture = "FrmDatabaseSet.frx":1B16
Top = 6840
Width = 300
End
Begin VB.Label LblOK
BackStyle = 0 'Transparent
Caption = "開始檢測"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4920
MouseIcon = "FrmDatabaseSet.frx":1F32
MousePointer = 99 'Custom
TabIndex = 0
Top = 6840
Width = 1095
End
End
Attribute VB_Name = "FrmDatabaseSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
Dim i As Integer
i = 0
If Check1.Value = 1 Then
Do Until i = 27
List1.Selected(i) = True
i = i + 1
Loop
Else
Do Until i = 27
List1.Selected(i) = False
i = i + 1
Loop
End If
End Sub
Private Sub Form_Load()
List1.AddItem "Business"
List1.AddItem "Businessman"
List1.AddItem "Buyer"
List1.AddItem "CheckIn"
List1.AddItem "Child"
List1.AddItem "CO"
List1.AddItem "Customer"
List1.AddItem "Deliver"
List1.AddItem "Department"
List1.AddItem "Employees"
List1.AddItem "Evaluation"
List1.AddItem "Experience"
List1.AddItem "FamilyMember"
List1.AddItem "Item"
List1.AddItem "Parent"
List1.AddItem "PO"
List1.AddItem "POInfo"
List1.AddItem "PurchaseItem"
List1.AddItem "Salary"
List1.AddItem "SalaryRules"
List1.AddItem "SalesItem"
List1.AddItem "Salesman"
List1.AddItem "Store"
List1.AddItem "StoreIn"
List1.AddItem "StoreRoom"
List1.AddItem "Takeout"
List1.AddItem "Users"
End Sub
Private Sub LblCancel_Click()
Unload Me
End Sub
Private Sub LblDelete_Click()
If MsgBox("是否清空所選表內信息?", vbYesNo, "確認") = vbYes Then
Dim i As Integer
i = 0
With MyDatabaseSet
Do Until i = 26
If List1.Selected(i) = True Then
.Delete (List1.List(i))
End If
i = i + 1
Loop
End With
End If
End Sub
Private Sub LblOK_Click()
List2.Clear
Dim i As Integer
i = 0
With MyDatabaseSet
Do Until i = 27
If List1.Selected(i) = True Then
If .In_DB(List1.List(i)) = True Then
List2.AddItem "表 " + List1.List(i) + " 配置正常"
Else
List2.AddItem "表" + List1.List(i) + "不存在"
End If
End If
i = i + 1
Loop
End With
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -