📄 frm_database_init.frm
字号:
VERSION 5.00
Begin VB.Form Frm_database_Init
BorderStyle = 1 'Fixed Single
Caption = "数据初始化"
ClientHeight = 3135
ClientLeft = 45
ClientTop = 330
ClientWidth = 7245
Icon = "Frm_database_Init.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3135
ScaleWidth = 7245
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 6840
Top = 0
End
Begin VB.Frame Frame2
Caption = "操作"
Height = 1215
Left = 135
TabIndex = 9
Top = 1800
Width = 6975
Begin VB.CommandButton Cmd_Exit
Caption = "退出(&X)"
Height = 495
Left = 5160
TabIndex = 11
Top = 480
Width = 1455
End
Begin VB.CommandButton Cmd_OK
Caption = "开始(&S)"
Height = 495
Left = 3480
TabIndex = 10
Top = 480
Width = 1455
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "正在进行数据初始化,请稍后...."
ForeColor = &H000000FF&
Height = 180
Left = 360
TabIndex = 12
Top = 360
Visible = 0 'False
Width = 2610
End
End
Begin VB.Frame Frame1
Caption = "选择要初始化的表"
Height = 1575
Left = 135
TabIndex = 0
Top = 120
Width = 6975
Begin VB.CheckBox Check8
Caption = "联系人"
Height = 255
Left = 5640
TabIndex = 8
Top = 960
Width = 855
End
Begin VB.CheckBox Check7
Caption = "客户编码"
Height = 255
Left = 5640
TabIndex = 7
Top = 480
Width = 1095
End
Begin VB.CheckBox Check6
Caption = "地区编码"
Height = 255
Left = 3600
TabIndex = 6
Top = 960
Width = 2055
End
Begin VB.CheckBox Check5
Caption = "规格单修改日志"
Height = 255
Left = 3600
TabIndex = 5
Top = 480
Width = 2175
End
Begin VB.CheckBox Check4
Caption = "打样规格单"
Height = 375
Left = 1920
TabIndex = 4
Top = 900
Width = 1575
End
Begin VB.CheckBox Check3
Caption = "完美规格单"
Height = 255
Left = 1920
TabIndex = 3
Top = 480
Width = 1935
End
Begin VB.CheckBox Check2
Caption = "子盘规格单"
Height = 375
Left = 360
TabIndex = 2
Top = 900
Width = 1335
End
Begin VB.CheckBox Check1
Caption = "母盘规格单"
Height = 375
Left = 360
TabIndex = 1
Top = 420
Width = 1455
End
End
End
Attribute VB_Name = "Frm_database_Init"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_Exit_Click()
Unload Me
End Sub
Private Sub cmd_OK_Click()
On Error GoTo err
Label1.Visible = True
ProgressBar1.Visible = True
Cmd_OK.Enabled = False
Cmd_Exit.Enabled = False
Check1.Enabled = False
Check2.Enabled = False
Check3.Enabled = False
Check4.Enabled = False
Check5.Enabled = False
Check6.Enabled = False
Check7.Enabled = False
Check8.Enabled = False
Timer1.Enabled = True
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub Form_Load()
Me.Left = 5300
Me.Top = 3300
Me.Icon = LoadPicture(App.Path & "\icon\system.ico")
Check1.Value = 0: Check2.Value = 0: Check3.Value = 0: Check4.Value = 0: Check5.Value = 0: Check6.Value = 0: Check7.Value = 0: Check8.Value = 0
End Sub
Private Sub Timer1_Timer()
On Error GoTo err
Set Rs = New ADODB.Recordset
Set Cn = New ADODB.Connection
Cn.Open Cs
Dim counter As Integer
Dim SQL, workarea(200) As String
Label1.Visible = True
ProgressBar1.Visible = True
Cmd_OK.Enabled = False
Cmd_Exit.Enabled = False
If Check1.Value = 1 Then
SQL = "delete * from stamper_sepc_main"
Set Rs = Cn.Execute(SQL)
SQL = "delete * from stamper_spec_list"
Set Rs = Cn.Execute(SQL)
End If
If Check2.Value = 1 Then
SQL = "delete * from subdisk_sepc_main where spec_code not like '%' + 'W' + '%' and spec_code not like '%' + 'Y' + '%'"
Set Rs = Cn.Execute(SQL)
SQL = "delete * from subdisk_spec_list where spec_code not like '%' + 'W' + '%' and spec_code not like '%' + 'Y' + '%'"
Set Rs = Cn.Execute(SQL)
End If
If Check3.Value = 1 Then
SQL = "delete * from subdisk_sepc_main where spec_code like '%' + 'W' + '%'"
Set Rs = Cn.Execute(SQL)
SQL = "delete * from subdisk_spec_list where spec_code like '%' + 'W' + '%'"
Set Rs = Cn.Execute(SQL)
End If
If Check4.Value = 1 Then
SQL = "delete * from subdisk_sepc_main where spec_code like '%' + 'Y' + '%'"
Set Rs = Cn.Execute(SQL)
SQL = "delete * from subdisk_spec_list where spec_code like '%' + 'Y' + '%'"
Set Rs = Cn.Execute(SQL)
End If
If Check5.Value = 1 Then
SQL = "delete * from repair_record"
Set Rs = Cn.Execute(SQL)
End If
If Check6.Value = 1 Then
SQL = "delete * from area_code"
Set Rs = Cn.Execute(SQL)
End If
If Check7.Value = 1 Then
SQL = "delete * from customer_code"
Set Rs = Cn.Execute(SQL)
End If
If Check8.Value = 1 Then
SQL = "delete * from like_man"
Set Rs = Cn.Execute(SQL)
End If
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Value = ProgressBar1.Min
For counter = LBound(workarea) To UBound(workarea)
workarea(counter) = "initial value" & counter
ProgressBar1.Value = counter
Next counter
Label1.Visible = False
ProgressBar1.Visible = False
ProgressBar1.Value = 0
Timer1.Enabled = False
Cmd_OK.Enabled = True
Cmd_Exit.Enabled = True
Check1.Enabled = True
Check2.Enabled = True
Check3.Enabled = True
Check4.Enabled = True
Check5.Enabled = True
Check6.Enabled = True
Check7.Enabled = True
Check8.Enabled = True
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -