📄 frmdatademo.frm
字号:
Set RE2 = db2.OpenRecordset("乡镇档案") '演示
If MdbR.RecordCount <> 0 Then
NdMd.Execute "DELETE * From 乡镇档案"
End If
Prg1.Visible = True
Label4.Visible = True
Label4.Caption = "正在导入镇村档案信息..."
Label4.Refresh
'---------------------------------------------------导入镇信息
' StA = InputBox("输入此项的目的是为了以后报表标题及系统信息的读取,您可以更改单位名称,也可采用系统默认！", "输入单位全称标识", "ＸＸ市供电局ＸＸ镇供电营业厅")
' StB = InputBox("输入此项的目的是为了以后报表标题及系统信息的读取,您可以更改单位名称,也可采用系统默认！", "输入单位简称称标识", "ＸＸ镇供电营业厅")
' StC = InputBox("输入单位代码！", "输入代码", "001")
Prg1.Max = RE2.RecordCount
For i = 0 To Prg1.Max - 1
With MdbR
.AddNew
.Fields!全称 = RE2.Fields!全称 'IIf(Len(StA) = 0, "杭州市供电局西湖区供电所", StA)
.Fields!简称 = RE2.Fields!简称 'IIf(Len(StB) = 0, "西湖区供电所", StB)
.Fields!乡镇代码 = RE2.Fields!乡镇代码 ' IIf(Len(StC) = 0, "001", StC)
.Fields!建档日期 = Format(Date, "YYYY年MM月DD日")
.Fields!操作员 = Operator
.Update
End With
RE2.MoveNext
Prg1.Value = i + 1
DoEvents
Next
'--------------------------------------------------导入村信息
Set RE2 = db2.OpenRecordset("村档案")
Set MdbR = NdMd.OpenRecordset("村档案") '正式
If MdbR.RecordCount <> 0 Then
' InTr = RE2.Fields!建立日期
NdMd.Execute "DELETE * From 村档案"
End If
Prg1.Max = RE2.RecordCount
For i = 0 To Prg1.Max - 1
With MdbR
.AddNew
.Fields!乡镇代码 = RE2.Fields!乡镇代码
.Fields!村代码 = RE2.Fields!村代码
.Fields!乡村代码 = RE2.Fields!乡村代码
.Fields!简称 = RE2.Fields!简称
.Fields!建立日期 = Format(Date, "YYYY年MM月DD日")
.Fields!抄表员 = Operator
.Update
End With
RE2.MoveNext
Prg1.Value = i + 1
Next
Label4.Caption = ""
Label4.Caption = "镇村信息导入结束!"
Image3.Visible = True
Label5.Visible = True
Label5.Caption = "正在导入系统档案信息..."
Label5.Refresh
'------------------------------------------------------导入系统档案
Set RE2 = db2.OpenRecordset("系统信息")
Set MdbR = NdMd.OpenRecordset("系统信息") '正式
If MdbR.RecordCount <> 0 Then
NdMd.Execute "DELETE * From 系统信息"
End If
Prg1.Max = RE2.RecordCount
For i = 0 To Prg1.Max - 1
With MdbR
.AddNew
.Fields!使用单位 = RE2.Fields!使用单位
.Fields!信用代码 = RE2.Fields!信用代码
.Update
End With
RE2.MoveNext
Prg1.Value = i + 1
Next
'------------------------------------------------------导入台区信息
Set RE2 = db2.OpenRecordset("台区信息")
Set MdbR = NdMd.OpenRecordset("台区信息") '正式
If MdbR.RecordCount <> 0 Then
NdMd.Execute "DELETE * From 台区信息"
End If
Prg1.Max = RE2.RecordCount
For i = 0 To Prg1.Max - 1
With MdbR
.AddNew
.Fields!DM = RE2.Fields!DM
.Fields!MC = RE2.Fields!MC
.Update
End With
RE2.MoveNext
Prg1.Value = i + 1
Next
Label5.Caption = ""
Label5.Caption = "系统档案信息导入结束！"
Image4.Visible = True
Label6.Visible = True
Label6.Caption = "正在导入电价档案信息..."
Label6.Refresh
'-----------------------------------------------------导入电价系统
Set RE2 = db2.OpenRecordset("电价档案")
Set MdbR = NdMd.OpenRecordset("电价档案") '正式
If MdbR.RecordCount <> 0 Then
NdMd.Execute "DELETE * From 电价档案"
End If
Prg1.Max = RE2.RecordCount
For i = 0 To Prg1.Max - 1
With MdbR
.AddNew
.Fields!电价代码 = RE2.Fields!电价代码
.Fields!电价名称 = RE2.Fields!电价名称
.Fields!当前电价 = RE2.Fields!当前电价
.Fields!建立日期 = Format(Date, "yyyy年mm月dd日")
.Fields!操作员 = Operator
.Fields!标记 = "当前电价"
.Update
End With
RE2.MoveNext
Prg1.Value = i + 1
Next
'-------------------------------------------------------导入口令档案
Set RE2 = db2.OpenRecordset("口令权限")
Set MdbR = NdMd.OpenRecordset("口令权限") '正式
If MdbR.RecordCount <> 0 Then
NdMd.Execute "DELETE * From 口令权限"
End If
Prg1.Max = RE2.RecordCount
For i = 0 To Prg1.Max - 1
With MdbR
.AddNew
.Fields!姓名 = RE2.Fields!姓名
.Fields!代码 = RE2.Fields!代码
.Fields!工号 = RE2.Fields!工号
.Fields!密码 = RE2.Fields!密码
.Fields!权限 = RE2.Fields!权限
.Fields!建立日期 = Format(Date) ', "yyyy年mm日dd日")
.Update
End With
RE2.MoveNext
Prg1.Value = i + 1
Next
Label6.Caption = ""
Label6.Caption = "电价档案信息导入结束!"
Image5.Visible = True
'-------------------------------------------------------导入用户信息
Label7.Visible = True
Label7.Caption = "正在导入用户电费信息..."
Label7.Refresh
Set RE2 = db2.OpenRecordset("用户电费") 'SELECT 用户电费.多价表,用户电费.比率1,用户电费.比率2,用户电费.比率1名称,用户电费.比率2名称,用户电费.比率1电价,用户电费.比率2电价,用户电费.比率1电量,用户电费.比率2电量,用户电费.比率1电费,用户电费.比率2电费,用户电费.停用,用户电费.调整原因,用户电费.电价类别,用户电费.地址,用户电费.账号,用户电费.台区,用户电费.镇代码,用户电费.村代码,用户电费.镇村代码,用户电费.组合编码,用户电费.辅助号,用户电费.用户编码,用户电费.用户名称,用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & AA & "] AS 本期示数,用户电费.表损, 用户电费.倍率,用户电费.[" & BB & "] AS 调整电量,用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量,用户电费.电价,用户电费.[" & EE & "] AS 调整金额, 用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费, 用户电费.[" & HH & "] AS 合计电费,用户电费.[" & II & "] AS 代扣信息,用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & KK & "] AS 交费情况,用户电费.组合编码 From 用户电费")
Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.多价表,用户电费.比率1,用户电费.比率2,用户电费.比率1名称,用户电费.比率2名称,用户电费.比率1电价,用户电费.比率2电价,用户电费.比率1电量,用户电费.比率2电量,用户电费.比率1电费,用户电费.比率2电费,用户电费.停用,用户电费.调整原因,用户电费.电价类别,用户电费.地址,用户电费.账号,用户电费.台区,用户电费.镇代码,用户电费.村代码,用户电费.镇村代码,用户电费.组合编码,用户电费.辅助号,用户电费.用户编码,用户电费.用户名称,用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & aa & "] AS 本期示数,用户电费.表损, 用户电费.倍率,用户电费.[" & BB & "] AS 调整电量,用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量,用户电费.电价,用户电费.[" & EE & "] AS 调整金额, 用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费, 用户电费.[" & HH & "] AS 合计电费,用户电费.[" & II & "] AS 代扣信息,用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & KK & "] AS 交费情况,用户电费.组合编码 From 用户电费") '正式
If MdbR.RecordCount <> 0 Then
NdMd.Execute "DELETE * From 用户电费"
End If
Prg1.Max = RE2.RecordCount
For i = 0 To Prg1.Max - 1
With MdbR
.AddNew
.Fields!镇代码 = RE2.Fields!镇代码
.Fields!村代码 = RE2.Fields!村代码
.Fields!镇村代码 = RE2.Fields!镇村代码
.Fields!用户编码 = RE2.Fields!用户编码
.Fields!组合编码 = RE2.Fields!组合编码
.Fields!辅助号 = RE2.Fields!辅助号
.Fields!用户名称 = RE2.Fields!用户名称
.Fields!地址 = RE2.Fields!地址
.Fields!账号 = RE2.Fields!账号
.Fields!台区 = RE2.Fields!台区
.Fields!表损 = RE2.Fields!表损
.Fields!倍率 = RE2.Fields!倍率
.Fields!电价类别 = RE2.Fields!电价类别
.Fields!电价 = RE2.Fields!电价
.Fields!上期示数 = RE2.Fields!H月示数
.Fields!本期示数 = RE2.Fields!I月示数
.Fields!本次电量 = RE2.Fields!I月电量
.Fields!合计电量 = RE2.Fields!I月合计电量
.Fields!本次电费 = RE2.Fields!I月电费
.Fields!合计电费 = RE2.Fields!I月合计电费
.Fields!滞纳金 = RE2.Fields!I月滞纳金
'.Fields!上期金额 = re2.Fields!sqj
.Fields!代扣信息 = RE2.Fields!I月代扣
.Fields!发票打印 = RE2.Fields!I发票打印
.Fields!调整电量 = RE2.Fields!I月调整电量
.Fields!交费情况 = RE2.Fields!I交费情况
.Fields!停用 = RE2.Fields!停用
'RE2.Fields!调整原因 = re.Fields!fb
.Fields!多价表 = RE2.Fields!多价表
.Fields!比率1 = RE2.Fields!比率1
.Fields!比率2 = RE2.Fields!比率2
.Fields!比率1名称 = RE2.Fields!比率1名称
.Fields!比率2名称 = RE2.Fields!比率2名称
.Fields!比率1电价 = RE2.Fields!比率1电价
.Fields!比率2电价 = RE2.Fields!比率2电价
.Fields!比率1电量 = RE2.Fields!比率1电量
.Fields!比率2电量 = RE2.Fields!比率2电量
.Fields!比率1电费 = RE2.Fields!比率1电费
.Fields!比率2电费 = RE2.Fields!比率2电费
.Update
End With
RE2.MoveNext
Prg1.Value = i + 1
DoEvents
Next
Label7.Caption = ""
Label7.Caption = "用户电费信息导入结束！"
Image6.Visible = True
RE2.Close
db2.Close
MdbR.Close
NdMd.Close
Screen.MousePointer = 0
Prg1.Visible = False
Command1.Caption = "完成(&O)"
Command1.Tag = "OK"
' frmMain.MenuTrueFlase (True)
' frmMain.PopDataTree
MsgBox "数据导入完毕!" & "用时" & Timer - nSec & "秒", vbInformation
Else
Unload Me
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Unload Me
FrmWelcome.Show vbModal
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Prg1.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -