📄 frmtest.frm
字号:
VERSION 5.00
Begin VB.Form frmTest
BorderStyle = 1 'Fixed Single
Caption = "新旧系统数据转换工具 [董万伟2003年10月29日]"
ClientHeight = 6435
ClientLeft = 45
ClientTop = 330
ClientWidth = 8040
Icon = "frmTest.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6435
ScaleWidth = 8040
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command5
Caption = "简单计算"
Height = 495
Left = 5520
TabIndex = 11
Top = 5160
Width = 1335
End
Begin VB.CommandButton Command4
Caption = "工作日计算测试之二"
Height = 495
Left = 3120
TabIndex = 10
Top = 5160
Width = 2175
End
Begin VB.CommandButton Command3
Caption = "工作日计算测试"
Height = 495
Left = 720
TabIndex = 9
Top = 5160
Width = 2055
End
Begin VB.Frame Frame3
Caption = "申请表数据转换区"
Height = 975
Left = 480
TabIndex = 8
Top = 3720
Width = 7095
End
Begin VB.Frame Frame2
Caption = "操作"
Height = 1575
Left = 480
TabIndex = 5
Top = 1920
Width = 7095
Begin VB.CommandButton Command2
Caption = "教文体局[ 办件表 ]数据转换（教文体局，文化新闻出版管理局）"
Enabled = 0 'False
Height = 375
Left = 240
TabIndex = 7
Top = 960
Width = 6615
End
Begin VB.CommandButton Command1
Caption = "非教文体局[ 办件表 ]数据转换数据（不包括经贸委）"
Enabled = 0 'False
Height = 375
Left = 240
TabIndex = 6
Top = 360
Width = 6495
End
End
Begin VB.Frame Frame1
Caption = "选择结果"
Height = 1335
Left = 480
TabIndex = 2
Top = 480
Width = 7095
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "新数据库中对应的单位名称："
Height = 180
Left = 240
TabIndex = 4
Top = 360
Width = 2340
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "新数据库中对应单位代码是："
Height = 180
Left = 240
TabIndex = 3
Top = 840
Width = 2340
End
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1800
TabIndex = 0
Top = 120
Width = 2775
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "请选择单位："
Height = 180
Left = 480
TabIndex = 1
Top = 200
Width = 1080
End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim rs3 As ADODB.Recordset
Dim db1 As ADODB.Connection
Dim db2 As ADODB.Connection
Dim db3 As ADODB.Connection
Dim dbConStr1 As String
Dim dbConStr2 As String
Dim dbConstr3 As String
Dim DepartmentNameAndCode() As String
Dim sCurDepartmentNewName As String
Dim sCurDepartmentOldName As String
Dim sCurDepartmentCode As String
Dim sCurItemCode As String
Dim AllItemOfOneDepartment() As String
Private Sub Command3_Click()
Dim sCurAffirmatoryPeriod As Integer
sCurAffirmatoryPeriod = 10
sCurAffirmatoryPeriod = sCurAffirmatoryPeriod - 1
If Int(sCurAffirmatoryPeriod / 5) = 0 Then
myEndTime = Date + sCurAffirmatoryPeriod
Else
myEndTime = Date + Int(sCurAffirmatoryPeriod / 5) * 7 + sCurAffirmatoryPeriod Mod 5
End If
Debug.Print myEndTime
End Sub
Private Sub Command4_Click()
Dim c As String
Call CaculateStartTimeOrEndTimeOfCNJ("10", Date, c)
End Sub
Private Sub Form_Load()
ReDim DepartmentNameAndCode(21, 1)
DepartmentNameAndCode(0, 0) = "财政局"
DepartmentNameAndCode(0, 1) = "41010501004"
DepartmentNameAndCode(1, 0) = "房管局"
DepartmentNameAndCode(1, 1) = "41010502004"
DepartmentNameAndCode(2, 0) = "工商局"
DepartmentNameAndCode(2, 1) = "41010503004"
DepartmentNameAndCode(3, 0) = "国土资源局"
DepartmentNameAndCode(3, 1) = "41010504004"
DepartmentNameAndCode(4, 0) = "计生委"
DepartmentNameAndCode(4, 1) = "41010505004"
DepartmentNameAndCode(5, 0) = "计统局"
DepartmentNameAndCode(5, 1) = "41010506004"
DepartmentNameAndCode(6, 0) = "建设和环境保护局"
DepartmentNameAndCode(6, 1) = "41010507004"
DepartmentNameAndCode(7, 0) = "交通局"
DepartmentNameAndCode(7, 1) = "41010508004"
DepartmentNameAndCode(8, 0) = "教文体局"
DepartmentNameAndCode(8, 1) = "41010509004"
DepartmentNameAndCode(9, 0) = "经贸委"
DepartmentNameAndCode(9, 1) = "41010510004"
DepartmentNameAndCode(10, 0) = "科技局"
DepartmentNameAndCode(10, 1) = "41010511004"
DepartmentNameAndCode(11, 0) = "民政局"
DepartmentNameAndCode(11, 1) = "41010512004"
DepartmentNameAndCode(12, 0) = "农村经济委员会"
DepartmentNameAndCode(12, 1) = "41010513004"
DepartmentNameAndCode(13, 0) = "人防办"
DepartmentNameAndCode(13, 1) = "41010514004"
DepartmentNameAndCode(14, 0) = "人事劳动和社会保障局"
DepartmentNameAndCode(14, 1) = "41010515004"
DepartmentNameAndCode(15, 0) = "市政局"
DepartmentNameAndCode(15, 1) = "41010516004"
DepartmentNameAndCode(16, 0) = "司法局"
DepartmentNameAndCode(16, 1) = "41010517004"
DepartmentNameAndCode(17, 0) = "卫生局"
DepartmentNameAndCode(17, 1) = "41010518004"
DepartmentNameAndCode(18, 0) = "物价局"
DepartmentNameAndCode(18, 1) = "41010519004"
DepartmentNameAndCode(19, 0) = "宗教局"
DepartmentNameAndCode(19, 1) = "41010520004"
DepartmentNameAndCode(20, 0) = "文化新闻出版管理局"
DepartmentNameAndCode(20, 1) = "41010521004"
DepartmentNameAndCode(21, 0) = "技术监督局"
DepartmentNameAndCode(21, 1) = "41010523004"
Dim i As Integer
For i = 0 To UBound(DepartmentNameAndCode, 1)
Combo1.AddItem DepartmentNameAndCode(i, 0)
Next i
dbConStr1 = "driver={SQL server};Persist Security Info=False;User ID=;Database=ShenPi4;Server=LYSOFT-HQIS5DQ5"
dbConStr2 = "driver={SQL server};Persist Security Info=False;User ID=;Database=ShenPi2;Server=LYSOFT-HQIS5DQ5"
dbConstr3 = "driver={SQL server};Persist Security Info=False;User ID=;Database=ShenPi1;Server=LYSOFT-HQIS5DQ5"
End Sub
Private Sub Combo1_Click()
Select Case LTrim(Combo1.Text)
Case "工商局"
'sCurDepartmentNewName = "工商分局"
sCurDepartmentOldName = "工商局"
sCurDepartmentOldName = "工商局"
sCurDepartmentCode = DepartmentNameAndCode(Combo1.ListIndex, 1)
Label3.Caption = "新数据库中对应的单位名称：" + sCurDepartmentNewName
Label2.Caption = "新数据库中对应单位代码是：" + sCurDepartmentCode
Case "建设和环境保护局"
'sCurDepartmentNewName = "城建环保局"
sCurDepartmentNewName = "建设和环境保护"
sCurDepartmentOldName = "建设和环境保护局"
sCurDepartmentCode = DepartmentNameAndCode(Combo1.ListIndex, 1)
Label3.Caption = "新数据库中对应的单位名称：" + sCurDepartmentNewName
Label2.Caption = "新数据库中对应单位代码是：" + sCurDepartmentCode
Case "农村经济委员会"
'sCurDepartmentNewName = "农经委"
sCurDepartmentNewName = "农村经济委员会"
sCurDepartmentOldName = "农村经济委员会"
sCurDepartmentCode = DepartmentNameAndCode(Combo1.ListIndex, 1)
Label3.Caption = "新数据库中对应的单位名称：" + sCurDepartmentNewName
Label2.Caption = "新数据库中对应单位代码是：" + sCurDepartmentCode
Case "人事劳动和社会保障局"
'sCurDepartmentNewName = "人事局"
sCurDepartmentNewName = "人事劳动和社会保障局"
sCurDepartmentOldName = "人事劳动和社会保障局"
sCurDepartmentCode = DepartmentNameAndCode(Combo1.ListIndex, 1)
Label3.Caption = "新数据库中对应的单位名称：" + sCurDepartmentNewName
Label2.Caption = "新数据库中对应单位代码是：" + sCurDepartmentCode
Case "国土资源局"
'sCurDepartmentNewName = "国土局"
sCurDepartmentNewName = "国土资源局"
sCurDepartmentOldName = "国土资源局"
sCurDepartmentCode = DepartmentNameAndCode(Combo1.ListIndex, 1)
Label3.Caption = "新数据库中对应的单位名称：" + sCurDepartmentNewName
Label2.Caption = "新数据库中对应单位代码是：" + sCurDepartmentCode
Case "文化新闻出版管理局"
sCurDepartmentNewName = "文化新闻出版管理局"
sCurDepartmentOldName = "教文体局"
sCurDepartmentCode = DepartmentNameAndCode(Combo1.ListIndex, 1)
Label3.Caption = "新数据库中对应的单位名称：" + sCurDepartmentNewName
Label2.Caption = "新数据库中对应单位代码是：" + sCurDepartmentCode
Case Else
sCurDepartmentNewName = LTrim(Combo1.Text)
sCurDepartmentOldName = LTrim(Combo1.Text)
sCurDepartmentCode = DepartmentNameAndCode(Combo1.ListIndex, 1)
Label3.Caption = "新数据库中对应的单位名称：" + sCurDepartmentNewName
Label2.Caption = "新数据库中对应单位代码是：" + sCurDepartmentCode
End Select
Select Case sCurDepartmentCode
Case "41010509004", "41010521004"
Command1.Enabled = False
Command2.Enabled = True
Case "41010510004"
Command1.Enabled = False
Command2.Enabled = False
Case Else
Command1.Enabled = True
Command2.Enabled = False
End Select
'-------------------------------------------------------------------------
Call GetAllItemOfOneDepartment(sCurDepartmentCode, AllItemOfOneDepartment)
'-------------------------------------------------------------------------
End Sub
Private Sub Command1_Click()
'处理非教文体局的数据转换问题2003-11-1 dww pm18:40
Dim SQL1 As String
Dim SQL2 As String
Dim tempStr As String
Dim i As Integer
Set rs1 = New ADODB.Recordset
Set db1 = New ADODB.Connection
Set rs2 = New ADODB.Recordset
Set db2 = New ADODB.Connection
db1.ConnectionString = dbConStr1
db1.Open
db2.ConnectionString = dbConStr2
db2.Open
SQL1 = "select * from banjian where 受理单位='" & sCurDepartmentOldName & "'"
rs1.Open SQL1, db1, adOpenStatic, adLockReadOnly
If Not rs1.EOF Then
SQL2 = "select * from STra" + sCurDepartmentCode
rs2.Open SQL2, db2, adOpenDynamic, adLockOptimistic
Do While Not rs1.EOF
sCurItemCode = ""
tempStr = Trim(rs1.Fields("申报项目"))
For i = 0 To UBound(AllItemOfOneDepartment, 1)
If AllItemOfOneDepartment(i, 1) = tempStr Then
sCurItemCode = AllItemOfOneDepartment(i, 0)
Exit For
End If
Next i
'--------------------------------------------------------------------
rs2.AddNew
rs2.Fields("TransactionCode").Value = rs1.Fields("受理号").Value
'------------------------------------------------------------------
'处理此处数据转换时候有点小问题2003-11-3 dww 11:16
rs2.Fields("tbl_TransactionProcedure").Value = "tbl_TransactionProcedure" + sCurDepartmentCode
rs2.Fields("tbl_TransactionCharge").Value = "tbl_TransactionCharge" + sCurDepartmentCode
rs2.Fields("tbl_CertificationPrintRecord").Value = "tbl_TransactionCertificationPrintRecord" + sCurDepartmentCode
rs2.Fields("tbl_SubmitApplicationMaterial").Value = "M" + sCurDepartmentCode + sCurItemCode
'-------------------------------------------------------------------
rs2.Fields("TransactionCodeIssueTime").Value = Trim(Str(rs1.Fields("承诺时限").Value)) + "个工作日"
rs2.Fields("TransactionGroupNumber").Value = rs1.Fields("批办数量").Value
rs2.Fields("TransactionChargeTotal").Value = rs1.Fields("收费金额").Value
'--------------------------------------------------------------------
rs2.Fields("TransactionType").Value = rs1.Fields("受件类型").Value
'---------------------------------------------------------------------
rs2.Fields("DepartmentCode").Value = sCurDepartmentCode
rs2.Fields("DepartmentName").Value = rs1.Fields("受理单位").Value
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -