【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了: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 = 2745
ClientLeft = 60
ClientTop = 345
ClientWidth = 6780
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 2745
ScaleWidth = 6780
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Caption = "数据信息"
Enabled = 0 'False
Height = 1305
Left = 45
TabIndex = 4
Top = 465
Width = 6720
Begin VB.CheckBox Check1
Caption = "工作备忘信息"
Height = 240
Index = 11
Left = 5160
TabIndex = 17
Top = 945
Width = 1485
End
Begin VB.CheckBox Check1
Caption = "业务往来信息"
Height = 240
Index = 10
Left = 5160
TabIndex = 16
Top = 630
Width = 1410
End
Begin VB.CheckBox Check1
Caption = "客户投诉表"
Height = 210
Index = 9
Left = 3600
TabIndex = 15
Top = 945
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "客户反馈表"
Height = 195
Index = 8
Left = 1665
TabIndex = 14
Top = 945
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "联系人信息表"
Height = 210
Index = 7
Left = 120
TabIndex = 13
Top = 945
Width = 1935
End
Begin VB.CheckBox Check1
Caption = "客户信息表"
Height = 210
Index = 6
Left = 3600
TabIndex = 12
Top = 630
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "客户满意程度表"
Height = 195
Index = 5
Left = 1665
TabIndex = 11
Top = 630
Width = 1755
End
Begin VB.CheckBox Check1
Caption = "客户级别表"
Height = 210
Index = 4
Left = 120
TabIndex = 10
Top = 630
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "企业资信表"
Height = 240
Index = 3
Left = 5160
TabIndex = 9
Top = 300
Width = 1245
End
Begin VB.CheckBox Check1
Caption = "企业类型表"
Height = 210
Index = 2
Left = 3600
TabIndex = 8
Top = 300
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "企业性质表"
Height = 210
Index = 1
Left = 1665
TabIndex = 7
Top = 300
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "区域信息表"
Height = 210
Index = 0
Left = 120
TabIndex = 6
Top = 300
Width = 1275
End
End
Begin VB.CommandButton Cmd_Exit
Caption = "退出"
Height = 350
Left = 5805
TabIndex = 2
Top = 2340
Width = 950
End
Begin VB.CommandButton Cmd_Csh
Caption = "初始化"
Enabled = 0 'False
Height = 350
Left = 4875
TabIndex = 1
Top = 2340
Width = 950
End
Begin VB.CommandButton Cmd_Ks
Caption = "开始"
Height = 350
Left = 3945
TabIndex = 0
Top = 2340
Width = 950
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 360
Left = 45
TabIndex = 3
Top = 1890
Visible = 0 'False
Width = 6675
_ExtentX = 11774
_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 = 5
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_Csh_Click()
a = MsgBox("确认初始化该数据?", 4, "信息提示")
If a = vbYes Then
Cmd_Ks.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_Client_qyxx select * from tb_Client_qyxx" '删除区域信息表中的信息
Set rs = ESQL(sql) '调用模块中的自定义函数
End If
If Check1(1).Value = 1 Then
sql = "delete tb_Client_qyxz select * from tb_Client_qyxz" '删除企业性质信息表中的信息
Set rs = ESQL(sql) '调用模块中的自定义函数
End If
If Check1(2).Value = 1 Then
sql = "delete tb_Client_qylx select * from tb_Client_qylx" '删除企业类型信息表中的信息
Set rs = ESQL(sql) '调用模块中的自定义函数
End If
If Check1(3).Value = 1 Then
sql = "delete tb_Client_qyzx select * from tb_Client_qyzx" '删除企业类型信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(4).Value = 1 Then
sql = "delete tb_Client_khjb select * from tb_Client_khjb" '删除客户级别信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(5).Value = 1 Then
sql = "delete tb_Client_khmyd select * from tb_Client_khmyd" '删除客户满意度表中的信息
Set rs = ESQL(sql)
End If
If Check1(6).Value = 1 Then
sql = "delete tb_khxx select * from tb_khxx" '删除客户信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(7).Value = 1 Then
sql = "delete tb_Client_lxrxx select * from tb_Client_lxrxx" '删除联系人信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(8).Value = 1 Then
sql = "delete tb_Client_khfk select * from tb_Client_khfk" '删除客户反馈信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(9).Value = 1 Then
sql = "delete tb_Client_khts select * from tb_Client_kkts" '删除客户投诉信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(10).Value = 1 Then
sql = "delete tb_Client_cpxs select * from tb_Client_cpxs" '删除业务往来信息表中的信息
Set rs = ESQL(sql)
End If
If Check1(11).Value = 1 Then
sql = "delete tb_Client_gzbw select * from tb_Client_gzbw" '删除工作备忘信息表中的信息
Set rs = ESQL(sql)
End If
Next Counter
End If
MsgBox "初始化完成!", , "信息提示"
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min
End Sub
Private Sub Cmd_Exit_Click()
Unload M
上一篇:
Frm_Xtgl_Mmxg.frm
下一篇:
选修课论文:水利工程的环境伦理分析