📄 form34.frm
字号:
VERSION 5.00
Begin VB.Form Form34
BorderStyle = 4 'Fixed ToolWindow
Caption = "系统初始化"
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 = "物品消费"
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 = "退房纪录"
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 = "客房预定"
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 = "交接纪录"
Height = 255
Left = 120
TabIndex = 5
Top = 600
Width = 1215
End
Begin VB.CheckBox Check1
Caption = "登记纪录"
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 = "您确认吗？这样将清除所有的数据！并且不可以恢复！"
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 可以避免隐式创建 Variant 类型的变量 FixIT90210ae-R383-H1984
Private Sub Command1_Click()
'Caozuo = "系统初始化 "
'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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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()
'检索数据
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -