⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 recordclass.cls

📁 金算盘软件代码
💻 CLS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
                CtrlName.SeekId lngNowID
              End If
        Case 17 '项目
            lngNowID = AddCard(msgClass2, strNewName)
            Set CtrlName.Recordset = RecordCon(xClass2)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 18 '汇率
'            lngnowid=addcard(msgra
            Set CtrlName.Recordset = RecordCon(xRate, lngID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
        Case 19 '凭证类型
            lngNowID = AddCard(msgVoucherType, strNewName)
            Set CtrlName.Recordset = RecordCon(xVoucherType)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 20 '自定义项目0
            lngNowID = AddCard(msgCustom1, strNewName)
            Set CtrlName.Recordset = RecordCon(xCustom0)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 21 '单据模版
              lngNowID = AddCard(msgTemplate, strNewName, , lngID, , , lngOldID) '此时LNGID为单据类型ID
              Set CtrlName.Recordset = RecordCon(xTemplatE, lngID, lngSalesReveiveStockPaymentID)
'              Set CtrlName.Recordset = RecordCon(xTemplatE, lngID)
              CtrlName.AddRefer "<新增>"
              CtrlName.AddRefer "<修改>"
              CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                If lngOldID < 1 Then
                    lngOldID = FirstId(intTabItem, lngID)
                End If
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 22 '科目类型
'              lngnowid=addcard(msg
              Set CtrlName.Recordset = RecordCon(xAccountType, lngID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
        Case 23 '应收/应付科目
            lngNowID = AddCard(msgAccount, strNewName)
            Set CtrlName.Recordset = RecordCon(xInvRecAccount)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 24 '单位发货地址
            lngNowID = AddCard(msgCustomerAddress, strNewName, lngCustomerID)
            Set CtrlName.Recordset = RecordCon(xCustomerAddress, lngCustomerID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 25 '单位开户银行
            lngNowID = AddCard(msgCustomerBank, strNewName, lngCustomerID)
            Set CtrlName.Recordset = RecordCon(xCustomerBank, lngCustomerID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 26 '企业地址
            lngNowID = AddCard(msgBusinessAddress, strNewName)
            Set CtrlName.Recordset = RecordCon(xBusinessAddress)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 27 '企业开户银行
            lngNowID = AddCard(msgBusinessBank, strNewName)
            Set CtrlName.Recordset = RecordCon(xBusinessBank)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 28 '商品单位
            lngNowID = frmItemUnitCard.AddCard(strNewName, 1, lngID)
            Set CtrlName.Recordset = RecordCon(xItemUnit, lngID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 29 '税率
            lngNowID = AddCard(msgTax, strNewName)
            Set CtrlName.Recordset = RecordCon(xTax)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 30 '转帐凭证
            lngNowID = AddCard(msgTrans, strNewName)
            Set CtrlName.Recordset = RecordCon(xTransVoucher)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 31 '付款方式
            lngNowID = AddCard(msgPaymentMethod, strNewName)
            Set CtrlName.Recordset = RecordCon(xPaymentMethod)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 33 '特殊类商品
            lngNowID = AddCard(msgItem, strNewName)
'            Set CtrlName.Recordset = RecordCon(xAdjustItem, lngID)
'            CtrlName.AddRefer "<新增>"
'            CtrlName.AddRefer "<修改>"
'            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
'                CtrlName.AddRefer lngNowID, , 2
                If Not CtrlName.Recordset Is Nothing Then
                    CtrlName.Recordset.Requery
'                    CtrlName.TextMatrix(CtrlName.Referrows - 1, 1) = CStr(lngNowID)
                    CtrlName.SeekId lngNowID
                Else
                    Set CtrlName.Recordset = RecordCon(xAdjustItem, lngID)
                    CtrlName.AddRefer "<新增>"
                    CtrlName.AddRefer "<修改>"
                    CtrlName.AddRefer "<删除>"
                    CtrlName.SeekId lngNowID
                End If
              End If
        Case 37     '付款方（邮电）
            lngNowID = AddCard(msgPayCustomer, strNewName)
            Set CtrlName.Recordset = RecordCon(xPayCustomer, lngID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 38     '工程合同（邮电）
            lngNowID = AddCard(msgProjectOrder, strNewName, , , , , , , lngProjID, strProjName)
            Set CtrlName.Recordset = RecordCon(xProjectOrder, lngID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case 39     '工程项目
            lngNowID = AddCard(msgProject, strNewName)
            Set CtrlName.Recordset = RecordCon(xProject, 0)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
              If lngNowID < 1 Then
                CtrlName.SeekId lngOldID
              Else
                CtrlName.SeekId lngNowID
              End If
        Case Else
    End Select
    NewRefer = True
End Function
'编辑参照内容，成功时返回为TRUE，ELSE 返回FALSE
Public Function EditRefer(ByVal CtrlName As ListText, ByVal lngEditID As Long, Optional ByVal strEditName As String = "", Optional ByVal lngCustomerID As Long, Optional intIndex As Integer = 0) As Boolean
    Dim lngNowID As Long
    
    If UCase(TypeName(CtrlName)) <> "LISTTEXT" Then
        EditRefer = False
        Exit Function
    End If
    If lngEditID < 1 Then
        ShowMsg CtrlName.Parent.hWnd, "请选择一参照", MB_SYSTEMMODAL + MB_ICONEXCLAMATION, "提示信息"
        EditRefer = False
        Exit Function
    End If
    If intIndex <> 0 Then
        intTabItem = intIndex   'Index 为控件参照的记录集。如科目、单位、币种等
    Else
        intTabItem = MsgNo2TabItem(CInt(CtrlName.Tag))
    End If
    Select Case intTabItem
        Case 1  '单位
            EditCard msgCustomer, lngEditID
            Set CtrlName.Recordset = RecordCon(xCustomer, lngID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCustomer, lngID)
            End If
        Case 2  '部门
            EditCard msgDepartment, lngEditID
            Set CtrlName.Recordset = RecordCon(xDepartment)
12345

⌨️ 快捷键说明

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