📄 hfrm002.frm
字号:
Top = 4240
Width = 5895
End
Begin VB.CheckBox Chk_HaigorituBody
Caption = "柫暱攝崌棪儅僗僞乕(HaigorituBody)"
BeginProperty Font
Name = "俵俽 俹僑僔僢僋"
Size = 15.75
Charset = 128
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 360
TabIndex = 11
Top = 3360
Width = 5775
End
Begin VB.CheckBox Chk_TankMas
Caption = "價儞儅僗僞乕(TankMas)"
BeginProperty Font
Name = "俵俽 俹僑僔僢僋"
Size = 15.75
Charset = 128
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 360
TabIndex = 10
Top = 2480
Width = 4455
End
Begin VB.CheckBox Chk_MeigaraMas
Caption = "柫暱儅僗僞乕(MeigaraMas)"
BeginProperty Font
Name = "俵俽 俹僑僔僢僋"
Size = 15.75
Charset = 128
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 360
TabIndex = 9
Top = 1600
Width = 4455
End
Begin VB.CheckBox Chk_GenryoMas
Caption = "尨椏儅僗僞乕(GenryoMas)"
BeginProperty Font
Name = "俵俽 俹僑僔僢僋"
Size = 15.75
Charset = 128
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 360
TabIndex = 8
Top = 720
Width = 4455
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 360
Top = 11760
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label labwating
Alignment = 2 '拞墰懙偊
Caption = "僨乕僞儀乕僗僶僢僋傾僢僾拞丄偟偽傜偔偍懸偪偔偩偝偄両"
BeginProperty Font
Name = "俵俽 俹僑僔僢僋"
Size = 27.75
Charset = 128
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 1095
Left = 3120
TabIndex = 4
Top = 11160
Visible = 0 'False
Width = 14055
End
Begin MSForms.CommandButton cmdClose
Height = 855
Left = 5640
TabIndex = 3
Top = 10080
Width = 8295
Caption = "廔丂丂丂丂椆"
Size = "14631;1508"
FontName = "俵俽 俹僑僔僢僋"
FontHeight = 525
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdResert
Height = 855
Left = 240
TabIndex = 2
Top = 9960
Visible = 0 'False
Width = 975
Caption = "僨乕僞儀乕僗暅尦"
Size = "1720;1508"
FontName = "俵俽 俹僑僔僢僋"
FontHeight = 525
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdDel
Height = 855
Left = 5640
TabIndex = 1
Top = 8880
Width = 8295
Caption = "僥乕僽儖仌幚愌僨乕僞傪嶍彍"
Size = "14631;1508"
FontName = "俵俽 俹僑僔僢僋"
FontHeight = 525
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdBackUp
Height = 855
Left = 240
TabIndex = 0
Top = 8880
Visible = 0 'False
Width = 975
Caption = "僨乕僞儀乕僗僶僢僋傾僢僾"
Size = "1720;1508"
FontName = "俵俽 俹僑僔僢僋"
FontHeight = 525
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
End
End
Attribute VB_Name = "HFrm002"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private rtnVal
'******************************************************************************
' 僀儀儞僩柤: Form_Load
' 婡擻丂丂丂:
'******************************************************************************
Private Sub Form_Load()
Dim i As Long
' 暵偠傞儃僞儞傪塀偡
Call HiddenClose(Me)
' For i = 0 To 34
' Check1(i).Value = 1
' Next
End Sub
'******************************************************************************
' 僀儀儞僩柤: cmdClose_Click
' 婡擻丂丂丂:
'******************************************************************************
Private Sub cmdClose_Click()
setFocusFlag = "HFrm002"
Unload Me
End Sub
'******************************************************************************
' 僀儀儞僩柤: Form_Resize
' 婡擻丂丂丂:
'******************************************************************************
Private Sub Form_Resize()
If Not Me.WindowState = 1 Then
Me.WindowState = 2
End If
End Sub
'******************************************************************************
' 僀儀儞僩柤: cmdDel_Click
' 婡擻丂丂丂:
'******************************************************************************
Private Sub cmdDel_Click()
Dim i As Long
Dim delFlag As Boolean
Dim strSql As String
On Error GoTo Err
rtnVal = MsgBox(ErrorMsg002_2, vbYesNo + 32, ErrorMsgTit002_1)
If rtnVal = vbNo Then
Exit Sub
End If
strSql = vbNullString
Me.labwating.Caption = "儅僗僞乕仌幚愌僨乕僞嶍彍拞丄偟偽傜偔偍懸偪偔偩偝偄両"
Me.labwating.Visible = True
Me.Refresh
'幚峴梡
If Chk_GenryoMas.Value = 1 Then strSql = strSql & " truncate table GenryoMas; "
If Chk_MeigaraMas.Value = 1 Then strSql = strSql & " truncate table MeigaraMas; "
If Chk_TankMas.Value = 1 Then strSql = strSql & " truncate table TankMas; "
If Chk_HaigorituBody.Value = 1 Then strSql = strSql & " truncate table HaigorituBody; "
If Chk_PreHaigorituBody.Value = 1 Then strSql = strSql & " truncate table PreHaigorituBody; "
If Chk_SpTankMas.Value = 1 Then strSql = strSql & " truncate table SpTankMas; "
If Chk_YoteiMas.Value = 1 Then strSql = strSql & " truncate table YoteiMas; "
'梊栺梡
If Chk_GenryoMasNew.Value = 1 Then strSql = strSql & " truncate table GenryoMasNew; "
If Chk_MeigaraMasNew.Value = 1 Then strSql = strSql & " truncate table MeigaraMasNew; "
If Chk_TankMasNew.Value = 1 Then strSql = strSql & " truncate table TankMasNew; "
If Chk_HaigorituBodyNEW.Value = 1 Then strSql = strSql & " truncate table HaigorituBodyNew; "
If Chk_PreHaigorituBodyNew.Value = 1 Then strSql = strSql & " truncate table PreHaigorituBodyNew; "
'幚愌娭學
If Chk_MeigaraLog.Value = 1 Then strSql = strSql & " truncate table MeigaraLog; "
If Chk_GenryoLog.Value = 1 Then strSql = strSql & " truncate table GenryoLog; "
If Chk_PremixLog.Value = 1 Then strSql = strSql & " truncate table PremixLog; "
If Chk_ErrLog.Value = 1 Then strSql = strSql & " truncate table ErrLog; "
If strSql = vbNullString Then
MsgBox "嶍彍偟偨偄儅僗僞乕丄枖偼幚愌僥乕僽儖傪慖戰偟偰偔偩偝偄丅", vbOKOnly, "嶍彍"
Else
If gfExecTrans(strSql) = True Then
MsgBox "嶍彍偑惉岟偟傑偟偨丅", vbOKOnly, "嶍彍"
Else
MsgBox "嶍彍偑幐攕偟傑偟偨丅", vbOKOnly, "嶍彍"
End If
End If
Resume_Err:
Me.labwating.Visible = False
Me.Refresh
Exit Sub
Err:
Resume Resume_Err
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -