recordclass.cls

金算盘软件代码

            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xDepartment)
            End If
        Case 3  '职员
            EditCard msgEmployee, lngEditID
            Set CtrlName.Recordset = RecordCon(xEmployee, lngID, , , , lngEmployeeCondition)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xEmployee, lngID)
            End If
        Case 4  '统计
            EditCard msgClass, lngEditID
            Set CtrlName.Recordset = RecordCon(xCLASS1)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCLASS1)
            End If
        Case 5  '全币种
            EditCard msgcurrency, lngEditID
            Set CtrlName.Recordset = RecordCon(xCurrencys, lngID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCurrencys, lngID)
            End If
        Case 6  '付款条件
            EditCard msgTerm, lngEditID
            Set CtrlName.Recordset = RecordCon(xTerm)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xTerm)
            End If
        Case 7  '科目
            EditCard msgAccount, lngEditID
            Set CtrlName.Recordset = RecordCon(xAccount, lngID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xAccount, lngID)
            End If
        Case 8  '商品
            EditCard msgItem, lngEditID
            Set CtrlName.Recordset = RecordCon(xItem)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xItem)
            End If
        Case 9  '工程表
            EditCard msgJob, lngEditID
            Set CtrlName.Recordset = RecordCon(xJob)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xJob)
            End If
        Case 10 '货位
            EditCard msgPosition, lngEditID
            Set CtrlName.Recordset = RecordCon(xPosition, lngID, 商品ID, 商品明细ID, lngItUnitID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xPosition, lngID)
            End If
        Case 11 '摘要
            EditCard msgRemark, lngEditID
            Set CtrlName.Recordset = RecordCon(xRemark)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xRemark)
            End If
        Case 12 '自定义项目1
            EditCard msgCustom2, lngEditID
            Set CtrlName.Recordset = RecordCon(xCustom1)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCustom1)
            End If
        Case 13 '自定义项目2
            EditCard msgCustom3, lngEditID
            Set CtrlName.Recordset = RecordCon(xCustom2)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCustom2)
            End If
        Case 14 '自定义项目3
            EditCard msgCustom4, lngEditID
            Set CtrlName.Recordset = RecordCon(xCustom3)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCustom3)
            End If
        Case 15 '自定义项目4
            EditCard msgCustom5, lngEditID
            Set CtrlName.Recordset = RecordCon(xCustom4)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCustom4)
            End If
        Case 16 '自定义项目5
            EditCard msgCustom6, lngEditID
            Set CtrlName.Recordset = RecordCon(xCustom5)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCustom5)
            End If
        Case 17 '项目
             EditCard msgClass2, lngEditID
            Set CtrlName.Recordset = RecordCon(xClass2)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xClass2)
            End If
        Case 18 '汇率
            Set CtrlName.Recordset = RecordCon(xRate, lngID)
        Case 19 '凭证类型
            EditCard msgVoucherType, lngEditID
            Set CtrlName.Recordset = RecordCon(xVoucherType)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xVoucherType)
            End If
        Case 20 '自定义项目0
             EditCard msgCustom1, lngEditID
             Set CtrlName.Recordset = RecordCon(xCustom0)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
             CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCustom0)
            End If
        Case 21 '单据模版
            lngEditID = EditCard(msgTemplate, lngEditID, , lngID, False)
            Set CtrlName.Recordset = RecordCon(xTemplatE, lngID, lngSalesReveiveStockPaymentID)
'            Set CtrlName.Recordset = RecordCon(xTemplatE, lngID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xTemplatE, lngID)
            End If
        Case 22 '科目类型
            Set CtrlName.Recordset = RecordCon(xAccountType, lngID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
        
        Case 23 '应收/应付科目
            EditCard msgAccount, lngEditID
            Set CtrlName.Recordset = RecordCon(xInvRecAccount)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xInvRecAccount)
            End If
        Case 24 '单位发货地址
            EditCard msgCustomerAddress, lngEditID, lngCustomerID
            Set CtrlName.Recordset = RecordCon(xCustomerAddress, lngCustomerID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCustomerAddress, lngCustomerID)
            End If
        Case 25 '单位开户银行
            EditCard msgCustomerBank, lngEditID, lngCustomerID
            Set CtrlName.Recordset = RecordCon(xCustomerBank, lngCustomerID)
            CtrlName.AddRefer "<新增>"
            CtrlName.AddRefer "<修改>"
            CtrlName.AddRefer "<删除>"
            CtrlName.SeekId lngEditID
            If Trim(CtrlName.Text) = "" Then
                lngEditID = 0
                CtrlName.SeekId FirstId(xCustomerBank, lngCustomerID)
            End If
        Case 26 '企业地址