📄 frmwizard.frm

📁 一个用VB写的财务软件源码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
            .AddNew
            .Fields("type").Value = "供应"
            .Fields("jc").Value = i
            .Fields("ws").Value = val(mfgCodeLevel.TextMatrix(6, i + 3))
            .Update
        Next i
        .Close
    End With
    
    pbr.Value = 55
    lbPro.Caption = ""
    lbPro.Caption = "完成：55%"
    
    '2:预装科目记录
    If chkPreSet.Value Then
        FirstLevelSubjectLength = val(mfgCodeLevel.TextMatrix(2, 1 + 3))
        If FirstLevelSubjectLength < 3 Then FirstLevelSubjectLength = 3
        Set rstS = New ADODB.Recordset
        rstS.CursorLocation = adUseClient
        rstS.Open "select * from tSYS_tradeCode where tradeID='" & _
                    cboTradeKind.ItemData(cboTradeKind.ListIndex) & "'", _
                    gloSys.cnnSys, adOpenStatic, adLockReadOnly
                    
        Set rstD = New ADODB.Recordset
        rstD.CursorLocation = adUseClient
        
        '判断是否用点进行分隔
        sSql = "select * from tZW_km" & txtBeginYear.text
        rstD.Open sSql, Cnn, adOpenStatic, adLockOptimistic
        If rstS.RecordCount > 0 Then
            i = 0
            rstS.MoveFirst
            Do Until rstS.EOF
                i = i + 1
                pbr.Value = 55 + i / rstS.RecordCount * 5
                lbPro.Caption = ""
                lbPro.Caption = "完成：" & Format(pbr.Value, "#0") & "%"
                With rstD
                    .AddNew
                    iTemp = LenB(Trim$(rstS.Fields("kmdm").Value))
                    If iTemp < FirstLevelSubjectLength Then
                        .Fields("kmdm").Value = Left$(rstS.Fields("kmdm").Value, 1) + String(FirstLevelSubjectLength - iTemp, "0") + Right$(rstS.Fields("kmdm").Value, iTemp - 2)
                    Else
                        .Fields("kmdm").Value = rstS.Fields("kmdm").Value
                    End If
                    .Fields("kmmc").Value = rstS.Fields("kmmc").Value
                    .Fields("kmmcEng").Value = rstS.Fields("kmmcEng").Value
                    .Fields("kmlx").Value = rstS.Fields("classname").Value
                    .Fields("kmjc").Value = rstS.Fields("kmjc").Value
                    .Fields("IsEndkm").Value = rstS.Fields("isEndkm").Value
                    .Fields("yefx").Value = rstS.Fields("yefx").Value
                    .Update
                End With
                rstS.MoveNext
            Loop
        End If
     pbr.Value = 60
    lbPro.Caption = ""
    lbPro.Caption = "完成：60%"
    
    '装载科目余额表

        Dim rstB As New ADODB.Recordset
        sSql = "select * from tZW_Balance" & txtBeginYear.text
        rstB.Open sSql, Cnn, adOpenStatic, adLockOptimistic
        rstD.MoveFirst
        Do Until rstD.EOF
            With rstB
               .AddNew
               iTemp = LenB(Trim$(rstD.Fields("kmdm").Value))
                If iTemp < FirstLevelSubjectLength Then
                    .Fields("kmdm").Value = Left$(rstD.Fields("kmdm").Value, 1) + String(FirstLevelSubjectLength - iTemp, "0") + Right$(rstD.Fields("kmdm").Value, iTemp - 2)
                Else
                    .Fields("kmdm").Value = rstD.Fields("kmdm").Value
                End If
               .Fields("kmmc").Value = rstD.Fields("kmmc").Value
               .Fields("yefx").Value = rstD.Fields("yefx").Value
              ' .Fields("bz").Value = "人民币"
               .Update
            End With
            rstD.MoveNext
        Loop
        rstB.Close
    End If
     pbr.Value = 65
     lbPro.Caption = ""
     lbPro.Caption = "完成：65%"
    
    '3:预装籍贯记录
    Set cnnMDB = New ADODB.Connection
    cnnMDB.Open "DRIVER={Microsoft Access Driver (*.mdb)};FIL=MS Access;DRIVERID=25;DBQ=" & _
                App.Path & "\" & g_SETUPDBNAME & ";UID=Admin;PWD=;"
    With rstTemp
        .CursorLocation = adUseClient
        .Open "select * from tJGDM order by [code]", _
                    cnnMDB, adOpenStatic, adLockReadOnly
        If .RecordCount <> 0 Then
            i = 0
            Do Until .EOF
                i = i + 1
                pbr.Value = 65 + i / .RecordCount * 5
                lbPro.Caption = ""
                lbPro.Caption = "完成：" & Format(pbr.Value, "#0") & "%"
                adoCmd.CommandText = "INSERT INTO tRS_TJGDM(code,name) values('" & _
                        Trim$(.Fields("code").Value) & "','" & _
                        Trim$(.Fields("name").Value) & "')"
                adoCmd.Execute
                .MoveNext
            Loop
        End If
        .Close
    End With
    
    pbr.Value = 70
    lbPro.Caption = ""
    lbPro.Caption = "完成：70%"
    
    '4: 预置“人事劳动”子系统中的数据表字段中英文名称对应（“工资核算”也使用）
    With rstTemp
        .Open "select * from tBZDDY order by [TableName],[FieldName]", _
                    cnnMDB, adOpenStatic, adLockReadOnly
        If .RecordCount = 0 Then
            Err.Raise 5
        Else
            i = 0
            Do Until .EOF
                i = i + 1
                pbr.Value = 70 + i / .RecordCount * 5
                lbPro.Caption = ""
                lbPro.Caption = "完成：" & Format(pbr.Value, "#0") & "%"
                adoCmd.CommandText = "INSERT INTO tRS_TBZDDY(tablename,fieldname," & _
                        "code,style) values('" & _
                        Trim$(.Fields("TableName").Value) & "','" & _
                        Trim$(.Fields("FieldName").Value) & "','" & _
                        Trim$(.Fields("Code").Value) & "','" & _
                        Trim$(.Fields("Style").Value) & "')"
                adoCmd.Execute
                .MoveNext
            Loop
        End If
        .Close
    End With
    pbr.Value = 75
    lbPro.Caption = ""
    lbPro.Caption = "完成：75%"
    
    
    '5: 预置“数据备份功能”数据表字段中英文名称对应
    Set rstTemp = New ADODB.Recordset
    With rstTemp
        .Open "select * from tcon_daitem order by [citmsyscoding],[citmdacoding]", _
                    cnnMDB, adOpenStatic, adLockReadOnly
        If .RecordCount = 0 Then
            Err.Raise 5
        Else
            i = 0
            Do Until .EOF
                i = i + 1
                pbr.Value = 75 + i / .RecordCount * 5
                lbPro.Caption = ""
                lbPro.Caption = "完成：" & Format(pbr.Value, "#0") & "%"
                adoCmd.CommandText = "INSERT INTO tcon_daitem(cItmSysCoding,cItmDaCoding," & _
                        "vcitmdacaption,vcitmdaname,citmdaedition) values('" & _
                        Trim$(.Fields("citmsyscoding").Value & "") & "','" & _
                        Trim$(.Fields("citmdacoding").Value & "") & "','" & _
                        Trim$(.Fields("vcitmdacaption").Value & "") & "','" & _
                        Trim$(.Fields("vcitmdaname").Value & "") & "','" & _
                        Trim$(.Fields("citmdaedition").Value & "") & "')"
                adoCmd.Execute
                .MoveNext
            Loop
        End If
        .Close
    End With
    pbr.Value = 80
    lbPro.Caption = ""
    lbPro.Caption = "完成：80%"
    
    
    '*************** add 06.26
    
    ReDim sValues(42)

    sValues(1) = "'01',            'TZW_007',      'TZW_EXCH" & Trim(txtBeginYear.text) & "', '汇率数据表" & Trim(txtBeginYear.text) & "'"
    sValues(2) = "'01',            'TZW_013',     'TZW_PZSJ" & Trim(txtBeginYear.text) & "','凭证数据文件" & Trim(txtBeginYear.text) & "'"
    sValues(3) = "'01',            'TZW_023',      'TZW_ZZPZSET" & Trim(txtBeginYear.text) & "','转账凭证设置表" & Trim(txtBeginYear.text) & "'"
    sValues(4) = "'01',            'TZW_024',      'TZW_ZZHDSET" & Trim(txtBeginYear.text) & "','汇编凭证设置表" & Trim(txtBeginYear.text) & "'"
    sValues(5) = "'05',            'tGZ_018',      'tGZ_ZZPZGZSET" & Trim(txtBeginYear.text) & "','工资转账凭证设置" & Trim(txtBeginYear.text) & "'"
    sValues(6) = "'06',            'TGD_005',      'TGD_PLZD" & Trim(txtBeginYear.text) & "','批量制单" & Trim(txtBeginYear.text) & "'"
    sValues(7) = "'01',            'TZW_012',      'TZW_KM" & Trim(txtBeginYear.text) & "','会计科目" & Trim(txtBeginYear.text) & "'"
    sValues(8) = "'02',            'TBB_013',      'TBB_REPORTDATA" & Trim(txtBeginYear.text) & "','报表数据表" & Trim(txtBeginYear.text) & "'"
    sValues(9) = "'10',            'TCF_002',      'TCF_ONEONE" & Trim(txtBeginYear.text) & "','凭证拆分记录表" & Trim(txtBeginYear.text) & "'"
    sValues(10) = "'03',            'TUSU_005',     'TUSU_FZ" & Trim(txtBeginYear.text) & "','辅助核算表" & Trim(txtBeginYear.text) & "'"
    sValues(11) = "'01',            'TZW_002',      'TZW_BALANCE" & Trim(txtBeginYear.text) & "','科目余额表" & Trim(txtBeginYear.text) & "'"
    sValues(12) = "'01',            'TZW_003',      'TZW_CHECK" & Trim(txtBeginYear.text) & "','支票登记薄表" & Trim(txtBeginYear.text) & "'"
    sValues(13) = "'01',            'TZW_020',      'TZW_YHDZD" & Trim(txtBeginYear.text) & "','银行对账" & Trim(txtBeginYear.text) & "'"
    
    sValues(14) = "'07',            'TYSYF_02',      'tYSYF_Pzsj" & Trim(txtBeginYear.text) & "','应收应付凭证录表" & Trim(txtBeginYear.text) & "'"
    sValues(15) = "'07',            'TYSYF_03',      'tYsYf_FZ" & Trim(txtBeginYear.text) & "','应收应付科目数据表" & Trim(txtBeginYear.text) & "'"
    sValues(16) = "'07',            'TYSYF_04',      'tYSYF_BadAccountKm" & Trim(txtBeginYear.text) & "','坏账科目设置表" & Trim(txtBeginYear.text) & "'"
    sValues(17) = "'07',            'TYSYF_05',      'tZW_BadAccountAge" & Trim(txtBeginYear.text) & "','坏账账龄区间表" & Trim(txtBeginYear.text) & "'"
    
    
    
     '*********** begin 2002.08.07
            sValues(18) = "'01','TZW_001','TZW_ACCOUNTAGE" & Trim(txtBeginYear.text) & "','往来账账龄区间表" & Trim(txtBeginYear.text) & "'"
            sValues(19) = "'01','TZW_004','TZW_CUSTOMER" & Trim(txtBeginYear.text) & "','客户档案表" & Trim(txtBeginYear.text) & "'"
            sValues(20) = "'01','TZW_005','TZW_CUSTOMERCLASS" & Trim(txtBeginYear.text) & "','客户分类表" & Trim(txtBeginYear.text) & "'"
            sValues(21) = "'01','TZW_006','TZW_CUSTOMERSHOWSET" & Trim(txtBeginYear.text) & "','客户档案显示设置表" & Trim(txtBeginYear.text) & "'"
            sValues(22) = "'01','TZW_008','TZW_FOREIGNCURRENCY" & Trim(txtBeginYear.text) & "','外币代码名称表" & Trim(txtBeginYear.text) & "'"
            sValues(23) = "'01','TZW_009','TZW_ITEM" & Trim(txtBeginYear.text) & "','项目档案表" & Trim(txtBeginYear.text) & "'"
            sValues(24) = "'01','TZW_010','TZW_ITEMCLASS" & Trim(txtBeginYear.text) & "','项目类别表" & Trim(txtBeginYear.text) & "'"
            sValues(25) = "'01','TZW_011','TZW_JSFS" & Trim(txtBeginYear.text) & "','结算方式表" & Trim(txtBeginYear.text) & "'"
            sValues(26) = "'01','TZW_014','TZW_TEMPLETDETAIL" & Trim(txtBeginYear.text) & "','凭证模版附表" & Trim(txtBeginYear.text) & "'"
            sValues(27) = "'01','TZW_015','TZW_TEMPLETMAIN" & Trim(txtBeginYear.text) & "','凭证模版主表" & Trim(txtBeginYear.text) & "'"
            sValues(28) = "'01','TZW_016','TZW_TYPE" & Trim(txtBeginYear.text) & "','账户凭证格式" & Trim(txtBeginYear.text) & "'"
            sValues(29) = "'01','TZW_017','TZW_VENDOR" & Trim(txtBeginYear.text) & "','供应商档案" & Trim(txtBeginYear.text) & "'"
            sValues(30) = "'01','TZW_018','TZW_VENDORCLASS" & Trim(txtBeginYear.text) & "','供应商类别" & Trim(txtBeginYear.text) & "'"
            sValues(31) = "'01','TZW_019','TZW_VENDORSHOWSET" & Trim(txtBeginYear.text) & "','供应商显示设置" & Trim(txtBeginYear.text) & "'"
            sValues(32) = "'03','TUSU_002','TUSU_DEPARTMENT" & Trim(txtBeginYear.text) & "','部门表" & Trim(txtBeginYear.text) & "'"
            
            
            sValues(33) = "'09','TFX_001','TFX_REPORTDATA" & Trim(txtBeginYear.text) & "','分析报表数据" & Trim(txtBeginYear.text) & "'"
            sValues(34) = "'12','TMR_001','TMR_DRAFT" & Trim(txtBeginYear.text) & "','底稿数据主表" & Trim(txtBeginYear.text) & "'"
            sValues(35) = "'12','TMR_002','TMR_DRAFTASSISTANT" & Trim(txtBeginYear.text) & "','底稿数据辅表" & Trim(txtBeginYear.text) & "'"
            sValues(36) = "'12','TMR_003','TMR_OFFSET" & Trim(txtBeginYear.text) & "','抵销凭证主表" & Trim(txtBeginYear.text) & "'"
            sValues(37) = "'12','TMR_004','TMR_OFFSETDATA" & Trim(txtBeginYear.text) & "','内部交易数据表" & Trim(txtBeginYear.text) & "'"
            sValues(38) = "'12','TMR_005','TMR_OFFSETEQUAL" & Trim(txtBeginYear.text) & "','抵销平衡公式" & Trim(txtBeginYear.text) & "'"
            sValues(39) = "'12','TMR_006','TMR_OFFSETITEM" & Trim(txtBeginYear.text) & "','抵销项目表" & Trim(txtBeginYear.text) & "'"
            sValues(40) = "'12','TMR_007','TMR_OFFSETSUB" & Trim(txtBeginYear.text) & "','抵销凭证分录" & Trim(txtBeginYear.text) & "'"
            sValues(41) = "'12','TMR_008','TMR_REPORT" & Trim(txtBeginYear.text) & "','表样信息表" & Trim(txtBeginYear.text) & "'"
            sValues(42) = "'12','TMR_009','TMR_REPORTDATA" & Trim(txtBeginYear.text) & "','合并报表数据表" & Trim(txtBeginYear.text) & "'"
'********** end 2002.08.07
    
    For i = LBound(sValues) To UBound(sValues)
        adoCmd.CommandText = "INSERT INTO tCON_daItem" & _
                    "(cItmSysCoding ,cItmDaCoding, vcItmDaCaption ,vcItmDaName) values(" & _
                     sValues(i) & ")"
        adoCmd.Execute
    Next i
    
    
    '4:单位代码表tBB_Company
    sSql = "insert into tbb_company(cyear,vccode,vcname,ctype,bmerge) values('" & _
         Trim(txtBeginYear.text) & "','0000','" & Trim(txtEnterName.text) & "','本部',0)"

    adoCmd.CommandText = sSql
    adoCmd.Execute
    '5:汇总方式代码表tbb_totalmode
    sSql = "insert into tbb_totalmode(cyear,vctotalcode,vctotalname,vctotalcompanies,vctotalcodes) values('" & _
         Trim(txtBeginYear.text) & "','700','全部二级单位汇总',null,null)"

    adoCmd.CommandText = sSql
    adoCmd.Execute

    pbr.Value = 85
    lbPro.Caption = "完成：85%"

'预制报表数据   2002.08.22 add
rstMDB.CursorLocation = adUseClient
rstMDB.Open "Select * from Prefabricate order by orderID", cnnMDB, adOpenKeyset, adLockPessimistic
'pBr.Value = pBr.Value - rstMDB.RecordCount
While Not rstMDB.EOF
    sTableName = rstMDB.Fields("TableName").Value
    bYear = IIf(rstMDB.Fields("IsYearTable").Value <> 0, True, False)
    yField = Trim(rstMDB.Fields("yearfield").Value)
    lField = Trim(rstMDB.Fields("longfield").Value)
    ImportData sTableName, bYear, yField, lField, Cnn, cnnMDB
    pbr.Value = pbr.Value + 1
    lbPro.Caption = "完成：" & pbr.Value & "%"
    DoEvents
    rstMDB.MoveNext
Wend
rstMDB.Close
pbr.Value = 94
lbPro.Caption = "完成：94%"

End Sub

'表间复制   2002.08.22
Private Sub ImportData(ByVal sTableName As String, ByVal bYear As Boolean, ByVal yField As String, ByVal lField As String, ByRef Cnn As ADODB.Connection, ByRef cnnMDB As ADODB.Connection)
Dim rstSource As New ADODB.Recordset
Dim rSt As New ADODB.Recordset
Dim i As Integer
Dim FieldName As String
rstSource.Open "Select * from " + sTableName, cnnMDB, adOpenKeyset, adLockPessimistic
If bYear Then
    rSt.Open "Select * from " + sTableName + Trim(txtBeginYear.text), Cnn, adOpenKeyset, adLockPessimistic
Else
    rSt.Open "Select * from " + sTableName, Cnn, adOpenKeyset, adLockPessimistic
End If
While Not rstSource.EOF
    rSt.AddNew
    For i = 0 To rstSource.Fields.Count - 1
        FieldName = rstSource.Fields(i).Name
        If FieldName = yField Then
            rSt.Fields(FieldName).Value = Trim(txtBeginYear.text)
        ElseIf FieldName = lField Then
            DbtoDbbyField rstSource.Fields(i), rSt.Fields(FieldName)
        Else
            rSt.Fields(FieldName).Value = rstSource.Fields(i).Value
        End If
    Next i
    rSt.Update
    rstSource.MoveNext
Wend
rSt.Close
rstSource.Close
End Sub


'三：更新 YkcwSysDB 中几个表的记录
Private Sub AppendSysDB()
    Dim sSql As String, i As Long
    Dim rstTemp As ADODB.Recordset
   
    
    '1:在 tSYS_Account（账套管理表）中加入一条记录
    sSql = "select * from tSYS_Account"
    Set rstTemp = New ADODB.Recordset
    With rstTemp
        .CursorLocation = adUseClient
        .Open sSql, gloSys.cnnSys, adOpenStatic, adLockOptimistic
        .AddNew
        .Fields("AccountID").Value = Trim$(txtAccountID.text)
        .Fields("accountName").Value = Trim$(txtAccountName.text)
        .Fields("beginYear").Value = txtBeginYear.text
        .
上一页 1 2 3 45
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -