?? form34.frm
字號:
VERSION 5.00
Begin VB.Form Form34
BorderStyle = 4 'Fixed ToolWindow
Caption = "系統(tǒng)初始化"
ClientHeight = 3315
ClientLeft = 45
ClientTop = 315
ClientWidth = 5595
LinkTopic = "Form34"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3315
ScaleWidth = 5595
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame1
Height = 2055
Left = 120
TabIndex = 3
Top = 720
Width = 5415
Begin VB.CheckBox Check14
Caption = "易耗庫存"
Height = 255
Left = 3720
TabIndex = 17
Top = 1320
Width = 1095
End
Begin VB.CheckBox Check13
Caption = "易耗出庫"
Height = 255
Left = 3720
TabIndex = 16
Top = 960
Width = 1335
End
Begin VB.CheckBox Check12
Caption = "易耗編碼"
Height = 255
Left = 3720
TabIndex = 15
Top = 600
Width = 1215
End
Begin VB.CheckBox Check11
Caption = "物品消費(fèi)"
Height = 255
Left = 3720
TabIndex = 14
Top = 240
Width = 1215
End
Begin VB.CheckBox Check10
Caption = "物品庫"
Height = 255
Left = 1980
TabIndex = 13
Top = 1680
Width = 1095
End
Begin VB.CheckBox Check9
Caption = "商品庫"
Height = 255
Left = 1980
TabIndex = 12
Top = 1320
Width = 1095
End
Begin VB.CheckBox Check8
Caption = "退房紀(jì)錄"
Height = 255
Left = 1980
TabIndex = 11
Top = 960
Width = 1095
End
Begin VB.CheckBox Check7
Caption = "商品出庫"
Height = 255
Left = 1980
TabIndex = 10
Top = 600
Width = 1095
End
Begin VB.CheckBox Check6
Caption = "商品編碼"
Height = 255
Left = 1980
TabIndex = 9
Top = 240
Width = 1095
End
Begin VB.CheckBox Check5
Caption = "客房預(yù)定"
Height = 255
Left = 120
TabIndex = 8
Top = 1680
Width = 1335
End
Begin VB.CheckBox Check4
Caption = "客房類型"
Height = 255
Left = 120
TabIndex = 7
Top = 1320
Width = 1215
End
Begin VB.CheckBox Check3
Caption = "客房"
Height = 255
Left = 120
TabIndex = 6
Top = 960
Width = 1215
End
Begin VB.CheckBox Check2
Caption = "交接紀(jì)錄"
Height = 255
Left = 120
TabIndex = 5
Top = 600
Width = 1215
End
Begin VB.CheckBox Check1
Caption = "登記紀(jì)錄"
Height = 255
Left = 120
TabIndex = 4
Top = 240
Width = 1215
End
End
Begin VB.CommandButton Command2
Caption = "退出"
Height = 375
Left = 3720
TabIndex = 2
Top = 2880
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "初始化！"
Height = 375
Left = 1800
TabIndex = 1
Top = 2880
Width = 1695
End
Begin VB.Label Label1
Caption = "您確認(rèn)嗎？這樣將清除所有的數(shù)據(jù)！并且不可以恢復(fù)！"
ForeColor = &H000000FF&
Height = 375
Left = 600
TabIndex = 0
Top = 240
Width = 4575
End
End
Attribute VB_Name = "Form34"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隱式創(chuàng)建 Variant 類型的變量 FixIT90210ae-R383-H1984
Private Sub Command1_Click()
'Caozuo = "系統(tǒng)初始化 "
'lu_time = Now
'RiZhil
If Check1.Value = vbChecked Then aIt
If Check2.Value = vbChecked Then bIt
If Check3.Value = vbChecked Then cIt
If Check4.Value = vbChecked Then dIt
If Check5.Value = vbChecked Then eIt
If Check6.Value = vbChecked Then fIt
If Check7.Value = vbChecked Then gIt
If Check8.Value = vbChecked Then hIt
If Check9.Value = vbChecked Then iIt
If Check10.Value = vbChecked Then jIt
If Check11.Value = vbChecked Then kIt
If Check12.Value = vbChecked Then lIt
If Check13.Value = vbChecked Then mIt
If Check14.Value = vbChecked Then nIt
MsgBox "初始化成功！"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub aIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from djb ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub bIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from jxjl ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub cIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from kf ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub dIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from kflx ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub eIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from kfyd ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub fIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from spbm ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub gIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from spck ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub hIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from tfd ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub iIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from spkc ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub jIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from wp ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub kIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from wpxh ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub lIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from yhbm ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub mIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from yhck ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
Private Sub nIt()
'檢索數(shù)據(jù)
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from yhkc ", dbOpenDynaset)
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
EF.Delete
EF.MoveNext
Loop
End If
EF.Close
db.Close
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -