frmfields.frm

来自「通用书店管理系统」· FRM 代码 · 共 1,590 行 · 第 1/5 页

FRM
1,590 行
字号
12345
      
        Dim strHeaderFormat$, strHeader$
        For c = 0 To tdbField.Columns.Count - 1
            If c = tdbField.Columns.Count - 1 Then
                strHeaderFormat = strHeaderFormat & "10"
                strHeader = strHeader & tdbField.Columns(c).Caption
            Else
                strHeaderFormat = strHeaderFormat & "10|"
                strHeader = strHeader & Trim(tdbField.Columns(c).Caption) & "|"
            End If
        Next c
'
        .cqTable.Content = arr
        .cqTable.LayOut = " Format=" & strHeaderFormat & "" & _
                          " Header=" & strHeader & ""
        
        '采用传句柄方式
        '.cqTable.Hwnd = Me.grdDetail.Hwnd
    End With
        
    With frm
        Set .PrintInfo = p
        '设置重复打印部分
        Call .setRepeat(cp_RepeatView_All)
        '设置表格填充空行
        '.blnEmptyRow = True
        '设置表格最后行拉伸到满页
        '.blnExtenLastCol = True
        '设置表格自动调整列宽到满页
        .blnColumnForPage = True
        '设置汇总高度，视汇总行数而定
        .SubTotal_Height = 600
        '设置页高、页宽、行高及最大页数
        '.MaxRowsPerPage = 10
        '.Row_Height = 300
        .TopHeader_Height = 1
        .SubTotal_Height = 600
        .ParagraphInterRate = 0.4
        .PrintPaperSize = pprEnv9
        '设置打印信息保存位置
        .strPrintInfoName = "出版社资料|" & Me.Caption
        
        .FormStart
        .Show vbModal
    End With
    Exit Sub

 Case "供货商资料"
            
            If Not checkpermission("书店管理系统", strUserName, , "基础设置.供货商资料管理.打印") Then
               Exit Sub
            End If
        With p
        
        '标题
        .cqFirstTitle.Content = "供货商资料"
        .cqFirstTitle.FontSize = 18
        .cqFirstTitle.FontBold = True
        
        '表前叙述
                   
        .cqSayingAboveTable.Content = "打印于：|" & Format(Date, "yyyy-MM-dd")
        .cqSayingAboveTable.LayOut = "Body align=left cols=3 interwidth=50 |label align=left width=16|text align=left width=20"
                
        If rstmp.Recordcount > 0 Then
            arr = rstmp.GetRows
        End If

      
'        Dim strHeaderFormat$, strHeader$
        For c = 0 To tdbField.Columns.Count - 1
            If c = tdbField.Columns.Count - 1 Then
                strHeaderFormat = strHeaderFormat & "10"
                strHeader = strHeader & tdbField.Columns(c).Caption
            Else
                strHeaderFormat = strHeaderFormat & "10|"
                strHeader = strHeader & Trim(tdbField.Columns(c).Caption) & "|"
            End If
        Next c
        
        .cqTable.Content = arr
        .cqTable.LayOut = " Format=" & strHeaderFormat & "" & _
                          " Header=" & strHeader & ""
        
        '采用传句柄方式
        '.cqTable.Hwnd = Me.grdDetail.Hwnd
    End With
        
    With frm
        Set .PrintInfo = p
        '设置重复打印部分
        Call .setRepeat(cp_RepeatView_All)
        '设置表格填充空行
        '.blnEmptyRow = True
        '设置表格最后行拉伸到满页
        '.blnExtenLastCol = True
        '设置表格自动调整列宽到满页
        .blnColumnForPage = True
        '设置汇总高度，视汇总行数而定
        .SubTotal_Height = 600
        '设置页高、页宽、行高及最大页数
        '.MaxRowsPerPage = 10
        '.Row_Height = 300
        .TopHeader_Height = 1
        .SubTotal_Height = 600
        .ParagraphInterRate = 0.4
        .PrintPaperSize = pprEnv9
        '设置打印信息保存位置
        .strPrintInfoName = "供货商资料|" & Me.Caption
        
        .FormStart
        .Show vbModal
    End With
    Exit Sub
    Case "客户资料"
            If Not checkpermission("书店管理系统", strUserName, , "客户管理.客户资料管理.打印") Then
               Exit Sub
            End If
    With p
        
        '标题
        .cqFirstTitle.Content = "客户资料"
        .cqFirstTitle.FontSize = 18
        .cqFirstTitle.FontBold = True
        
        '表前叙述
                   
        .cqSayingAboveTable.Content = "打印于：|" & Format(Date, "yyyy-MM-dd")
        .cqSayingAboveTable.LayOut = "Body align=left cols=3 interwidth=50 |label align=left width=16|text align=left width=20"
                
        If rstmp.Recordcount > 0 Then
            arr = rstmp.GetRows
        End If

      
'        Dim strHeaderFormat$, strHeader$
        For c = 0 To tdbField.Columns.Count - 1
            If c = tdbField.Columns.Count - 1 Then
                strHeaderFormat = strHeaderFormat & "10"
                strHeader = strHeader & tdbField.Columns(c).Caption
            Else
                strHeaderFormat = strHeaderFormat & "10|"
                strHeader = strHeader & Trim(tdbField.Columns(c).Caption) & "|"
            End If
        Next c
        
        .cqTable.Content = arr
        .cqTable.LayOut = " Format=" & strHeaderFormat & "" & _
                          " Header=" & strHeader & ""
        
        '采用传句柄方式
        '.cqTable.Hwnd = Me.grdDetail.Hwnd
    End With
        
    With frm
        Set .PrintInfo = p
        '设置重复打印部分
        Call .setRepeat(cp_RepeatView_All)
        '设置表格填充空行
        '.blnEmptyRow = True
        '设置表格最后行拉伸到满页
        '.blnExtenLastCol = True
        '设置表格自动调整列宽到满页
        .blnColumnForPage = True
        '设置汇总高度，视汇总行数而定
        .SubTotal_Height = 600
        '设置页高、页宽、行高及最大页数
        '.MaxRowsPerPage = 10
        '.Row_Height = 300
        .TopHeader_Height = 1
        .SubTotal_Height = 600
        .ParagraphInterRate = 0.4
        .PrintPaperSize = pprEnv9
        '设置打印信息保存位置
        .strPrintInfoName = "客户资料|" & Me.Caption
        
        .FormStart
        .Show vbModal
    End With
    Exit Sub
    Case "制品分类"
            If Not checkpermission("书店管理系统", strUserName, , "基础设置.制品图书分类管理.制品分类.打印") Then
               Exit Sub
            End If
    With p
        
        '标题
        .cqFirstTitle.Content = "制品分类"
        .cqFirstTitle.FontSize = 18
        .cqFirstTitle.FontBold = True
        
        '表前叙述
                   
        .cqSayingAboveTable.Content = "打印于：|" & Format(Date, "yyyy-MM-dd")
        .cqSayingAboveTable.LayOut = "Body align=left cols=3 interwidth=50 |label align=left width=16|text align=left width=20"
                
        If rstmp.Recordcount > 0 Then
            arr = rstmp.GetRows
        End If

      
'        Dim strHeaderFormat$, strHeader$
        For c = 0 To tdbField.Columns.Count - 1
            If c = tdbField.Columns.Count - 1 Then
                strHeaderFormat = strHeaderFormat & "10"
                strHeader = strHeader & tdbField.Columns(c).Caption
            Else
                strHeaderFormat = strHeaderFormat & "10|"
                strHeader = strHeader & Trim(tdbField.Columns(c).Caption) & "|"
            End If
        Next c
        
        .cqTable.Content = arr
        .cqTable.LayOut = " Format=" & strHeaderFormat & "" & _
                          " Header=" & strHeader & ""
        
        '采用传句柄方式
        '.cqTable.Hwnd = Me.grdDetail.Hwnd
    End With
        
    With frm
        Set .PrintInfo = p
        '设置重复打印部分
        Call .setRepeat(cp_RepeatView_All)
        '设置表格填充空行
        '.blnEmptyRow = True
        '设置表格最后行拉伸到满页
        '.blnExtenLastCol = True
        '设置表格自动调整列宽到满页
        .blnColumnForPage = True
        '设置汇总高度，视汇总行数而定
        .SubTotal_Height = 600
        '设置页高、页宽、行高及最大页数
        '.MaxRowsPerPage = 10
        '.Row_Height = 300
        .TopHeader_Height = 1
        .SubTotal_Height = 600
        .ParagraphInterRate = 0.4
        .PrintPaperSize = pprEnv9
        '设置打印信息保存位置
        .strPrintInfoName = "制品分类|" & Me.Caption
        
        .FormStart
        .Show vbModal
    End With
    Exit Sub
    Case "图书分类"
            If Not checkpermission("书店管理系统", strUserName, , "基础设置.制品图书分类管理.图书分类.打印") Then
               Exit Sub
            End If
    With p
        
        '标题
        .cqFirstTitle.Content = "图书分类"
        .cqFirstTitle.FontSize = 18
        .cqFirstTitle.FontBold = True
        
        '表前叙述
                   
        .cqSayingAboveTable.Content = "打印于：|" & Format(Date, "yyyy-MM-dd")
        .cqSayingAboveTable.LayOut = "Body align=left cols=3 interwidth=50 |label align=left width=16|text align=left width=20"
                
        If rstmp.Recordcount > 0 Then
            arr = rstmp.GetRows
        End If

      
'        Dim strHeaderFormat$, strHeader$
        For c = 0 To tdbField.Columns.Count - 1
            If c = tdbField.Columns.Count - 1 Then
                strHeaderFormat = strHeaderFormat & "10"
                strHeader = strHeader & tdbField.Columns(c).Caption
            Else
                strHeaderFormat = strHeaderFormat & "10|"
                strHeader = strHeader & Trim(tdbField.Columns(c).Caption) & "|"
            End If
        Next c
        
        .cqTable.Content = arr
        .cqTable.LayOut = " Format=" & strHeaderFormat & "" & _
                          " Header=" & strHeader & ""
        
        '采用传句柄方式
        '.cqTable.Hwnd = Me.grdDetail.Hwnd
    End With
        
    With frm
        Set .PrintInfo = p
        '设置重复打印部分
        Call .setRepeat(cp_RepeatView_All)
        '设置表格填充空行
        '.blnEmptyRow = True
        '设置表格最后行拉伸到满页
        '.blnExtenLastCol = True
        '设置表格自动调整列宽到满页
        .blnColumnForPage = True
        '设置汇总高度，视汇总行数而定
        .SubTotal_Height = 600
        '设置页高、页宽、行高及最大页数
        '.MaxRowsPerPage = 10
        '.Row_Height = 300
        .TopHeader_Height = 1
        .SubTotal_Height = 600
        .ParagraphInterRate = 0.4
        .PrintPaperSize = pprEnv9
        '设置打印信息保存位置
        .strPrintInfoName = "图书分类|" & Me.Caption
        
        .FormStart
        .Show vbModal
    End With
    Exit Sub
    Case "图书销售价折扣"
            If Not checkpermission("书店管理系统", strUserName, , "基础设置.图书销售价折扣管理.打印") Then
               Exit Sub
            End If
    With p
12345

frmfields.frm - 源码说明

本页面展示了「通用书店管理系统」中的 frmfields.frm 源码文件，采用 FRM 编程语言编写，共 1,590 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与书店管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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