📄 frm_xtgl_sjql.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Frm_Xtgl_Sjql
Caption = "数据清理"
ClientHeight = 3015
ClientLeft = 60
ClientTop = 345
ClientWidth = 6780
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 3015
ScaleWidth = 6780
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Cmd_Cancel
Caption = "取消"
Height = 350
Left = 3915
TabIndex = 23
Top = 2610
Width = 950
End
Begin VB.CommandButton Cmd_All
Caption = "全选"
Height = 350
Left = 2970
TabIndex = 22
Top = 2610
Width = 950
End
Begin VB.Frame Frame1
Caption = "数据信息"
Enabled = 0 'False
Height = 1635
Left = 30
TabIndex = 5
Top = 465
Width = 6720
Begin VB.CheckBox Check1
Caption = "工作备忘表"
Height = 240
Index = 15
Left = 5160
TabIndex = 21
Top = 1260
Width = 1485
End
Begin VB.CheckBox Check1
Caption = "产品信息表"
Height = 210
Index = 0
Left = 120
TabIndex = 20
Top = 300
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "物料信息表"
Height = 210
Index = 1
Left = 1755
TabIndex = 19
Top = 300
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "设备状态表"
Height = 210
Index = 2
Left = 3480
TabIndex = 18
Top = 300
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "设备类型表"
Height = 240
Index = 3
Left = 5160
TabIndex = 17
Top = 300
Width = 1245
End
Begin VB.CheckBox Check1
Caption = "摊销时间表"
Height = 210
Index = 4
Left = 120
TabIndex = 16
Top = 630
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "车间部门表"
Height = 195
Index = 5
Left = 1755
TabIndex = 15
Top = 630
Width = 1635
End
Begin VB.CheckBox Check1
Caption = "生产计划表"
Height = 210
Index = 6
Left = 3480
TabIndex = 14
Top = 630
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "设备档案表"
Height = 210
Index = 7
Left = 120
TabIndex = 13
Top = 945
Width = 1425
End
Begin VB.CheckBox Check1
Caption = "设备报废表"
Height = 195
Index = 8
Left = 1755
TabIndex = 12
Top = 945
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "设备维修表"
Height = 210
Index = 9
Left = 3480
TabIndex = 11
Top = 945
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "物料需求表"
Height = 240
Index = 10
Left = 5160
TabIndex = 10
Top = 615
Width = 1410
End
Begin VB.CheckBox Check1
Caption = "产品入库表"
Height = 240
Index = 11
Left = 5160
TabIndex = 9
Top = 945
Width = 1485
End
Begin VB.CheckBox Check1
Caption = "物料入库表"
Height = 240
Index = 12
Left = 135
TabIndex = 8
Top = 1245
Width = 1485
End
Begin VB.CheckBox Check1
Caption = "生产领料表"
Height = 240
Index = 13
Left = 1740
TabIndex = 7
Top = 1245
Width = 1485
End
Begin VB.CheckBox Check1
Caption = "物料库存表"
Height = 240
Index = 14
Left = 3480
TabIndex = 6
Top = 1245
Width = 1485
End
End
Begin VB.CommandButton Cmd_Exit
Caption = "退出"
Height = 350
Left = 5805
TabIndex = 2
Top = 2610
Width = 950
End
Begin VB.CommandButton Cmd_Csh
Caption = "初始化"
Enabled = 0 'False
Height = 350
Left = 4860
TabIndex = 1
Top = 2610
Width = 950
End
Begin VB.CommandButton Cmd_Ks
Caption = "开始"
Height = 350
Left = 2025
TabIndex = 0
Top = 2610
Width = 950
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 360
Left = 45
TabIndex = 3
Top = 2160
Visible = 0 'False
Width = 6705
_ExtentX = 11827
_ExtentY = 635
_Version = 393216
Appearance = 1
End
Begin VB.Label Label1
Caption = "提示：数据清理，将清空所选表数据或全部数据。"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 285
Left = 90
TabIndex = 4
Top = 105
Width = 4770
End
End
Attribute VB_Name = "Frm_Xtgl_Sjql"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim workarea(200), sql As String '定义字符串变量
Dim rs As ADODB.Recordset
Private Sub Cmd_All_Click()
For i = 0 To 15
Check1(i).Value = 1
Next i
End Sub
Private Sub Cmd_Cancel_Click()
For i = 0 To 15
Check1(i).Value = 0
Next i
End Sub
Private Sub Cmd_Csh_Click()
a = MsgBox("确认初始化该数据？", 4, "信息提示")
If a = vbYes Then
Cmd_Ks.Enabled = False '初始化按钮不可用
Cmd_Cancel.Enabled = False
Cmd_Exit.Enabled = False
ProgressBar1.Visible = True
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Value = ProgressBar1.Min
For Counter = LBound(workarea) To UBound(workarea)
workarea(Counter) = "initial value " & Counter
ProgressBar1.Value = Counter
If Check1(0).Value = 1 Then
sql = "delete tb_SCGL_cpxx select * from tb_SCGL_cpxx" '删除产品信息表中的信息
Set rs = ESQL(sql) '调用模块中的自定义函数
End If
If Check1(1).Value = 1 Then
sql = "delete tb_SCGL_wlxx select * from tb_SCGL_wlxx" '删除物料信息表中的信息
Set rs = ESQL(sql) '调用模块中的自定义函数
End If
If Check1(2).Value = 1 Then
sql = "delete tb_SCGL_sbzt select * from tb_SCGL_sbzt" '删除设备状态信息表中的信息
Set rs = ESQL(sql) '调用模块中的自定义函数
End If
If Check1(3).Value = 1 Then
sql = "delete tb_SCGL_sblx select * from tb_SCGL_sblx" '删除设备类型信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(4).Value = 1 Then
sql = "delete tb_SCGL_sbtx select * from tb_SCGL_sbtx" '删除设备摊销信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(5).Value = 1 Then
sql = "delete tb_SCGL_cjsz select * from tb_SCGL_cjsz" '删除车间部门设置表中的信息
Set rs = ESQL(sql)
End If
If Check1(6).Value = 1 Then
sql = "delete tb_SCGL_scjhd select * from tb_SCGL_scjhd" '删除生产计划表中的信息
Set rs = ESQL(sql)
End If
If Check1(7).Value = 1 Then
sql = "delete tb_SCGL_wlxq select * from tb_SCGL_wlxq" '删除物料需求表中的信息
Set rs = ESQL(sql)
End If
If Check1(8).Value = 1 Then
sql = "delete tb_SCGL_scsb select * from tb_SCGL_scsb" '删除生产设备信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(9).Value = 1 Then
sql = "delete tb_SCGL_sbbf select * from tb_SCGL_sbbf" '删除设备报废信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(10).Value = 1 Then
sql = "delete tb_SCGL_sbwx select * from tb_SCGL_sbwx" '删除设备维修信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(11).Value = 1 Then
sql = "delete tb_SCGL_cprk select * from tb_SCGL_cprk" '删除产品入库信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(12).Value = 1 Then
sql = "delete tb_SCGL_wlrk select * from tb_SCGL_wlrk" '删除产品入库信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(13).Value = 1 Then
sql = "delete tb_SCGL_scll select * from tb_SCGL_scll" '删除生产领料信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(14).Value = 1 Then
sql = "delete tb_SCGL_wlkc select * from tb_SCGL_wlkc" '删除库存信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(15).Value = 1 Then
sql = "delete tb_SCGL_gzbw select * from tb_SCGL_gzbw" '删除工作业务备忘信息表中的信息
Set rs = ESQL(sql)
End If
Next Counter
End If
MsgBox "初始化完成!", , "信息提示"
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min
Cmd_Exit.Enabled = True
Frame1.Enabled = False
Cmd_Csh.Enabled = False
Cmd_Ks.Enabled = True
Cmd_Cancel.Enabled = False
Cmd_All.Enabled = False
End Sub
Private Sub Cmd_Exit_Click()
Unload Me
End Sub
Private Sub Cmd_Ks_Click() '开始
'设置控件状态
Frame1.Enabled = True
Cmd_Csh.Enabled = True
Cmd_Ks.Enabled = False
Cmd_Cancel.Enabled = True
Cmd_Exit.Enabled = True
Cmd_All.Enabled = True
End Sub
Private Sub Form_Load()
'设置控件状态
Cmd_Cancel.Enabled = False
Cmd_Exit.Enabled = False
Cmd_Csh.Enabled = False
Cmd_Exit.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
Frm_Main.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -