keenweiwei
keenweiwei

实现水晶报表的打印功能(网摘)

 
  1. Imports System.Drawing
  2. Imports System.Drawing.Pen
  3. Imports System.Drawing.Font
  4. Imports System.Drawing.PointF
  5. Imports System.Drawing.Color
  6. Imports System.Drawing.Printing
  7. Imports System.Windows.Forms
  8. Imports System.Windows.Forms.DataGrid
  10. Public Class PrintDataTable
  11.     '以下用户可自定义
  12.     '当前要打印文本的字体及字号
  13.     Private TableFont As New Font("宋体", 10)
  14.     '表头字体
  15.     Private HeadFont As New Font("宋体", 20, FontStyle.Bold)
  16.     '副表头字体
  17.     Private SubHeadFont As New Font("宋体", 10, FontStyle.Regular)
  18.     '表头文字
  19.     Private HeadText As String
  20.     '副表头左文字
  21.     Private SubHeadLeftText As String
  22.     '副表头右文字
  23.     Private SubHeadRightText As String
  24.     '表头高度
  25.     Private HeadHeight As Integer = 40
  26.     '副表头高度
  27.     Private SubHeadHeight As Integer = 20
  28.     '表脚字体
  29.     Private FootFont As New Font("宋体", 10, FontStyle.Regular)
  30.     '副表脚字体
  31.     Private SubFootFont As New Font("宋体", 10, FontStyle.Regular)
  32.     '表脚文字
  33.     Private FootText As String
  34.     '副表脚左文字
  35.     Private SubFootLeftText As String
  36.     '副表脚右文字
  37.     Private SubFootRightText As String
  38.     '表脚高度
  39.     Private FootHeight As Integer = 30
  40.     '副表脚高度
  41.     Private SubFootHeight As Integer = 20
  42.     '表的基本单位
  43.     Dim XUnit As Integer
  44.     Dim YUnit As Integer = TableFont.Height * 2.5
  45.     '以下为模块内部使用
  46.     Private Ev As PrintPageEventArgs
  47.     Private DataTablePrinter As PrintDocument
  48.     Private DataGridColumn As DataColumn
  49.     Private DataGridRow As DataRow
  50.     Private DataTablePrint As DataTable
  51.     '当前要打印的行
  52.     Private Rows As Integer
  53.     '当前DATAGRID共有多少列
  54.     Private ColsCount As Integer
  55.     '当前正要打印的行号
  56.     Private PrintingLineNumber As Integer
  57.     '当前要所要打印的记录行数,由计算得到
  58.     Private PageRecordNumber As Integer
  59.     '正要打印的页号
  60.     Private PrintingPageNumber As Integer
  61.     '共需要打印的页数
  62.     Private PageNumber As Integer
  63.     '当前还有多少页没有打印
  64.     Private PrintRecordLeave As Integer
  65.     '已经打印完的记录数
  66.     Private PrintRecordComplete As Integer
  67.     Private PLeft As Integer
  68.     Private PTop As Integer
  69.     Private PRight As Integer
  70.     Private PBottom As Integer
  71.     Private PWidth As Integer
  72.     Private PHeigh As Integer
  73.     '当前画笔颜色
  74.     Private DrawBrush As New SolidBrush(System.Drawing.Color.Black)
  75.     '每页打印的记录条数
  76.     Private PrintRecordNumber As Integer
  77.     '总共应该打印的页数
  78.     Private TotalPage As Integer
  80.     Sub New(ByVal TableSource As DataTable)
  81.         DataTablePrint = New DataTable
  82.         DataTablePrint = TableSource
  83.         ColsCount = DataTablePrint.Columns.Count
  84.     End Sub
  86.     '用户自定义字体及字号
  87.     Public WriteOnly Property SetTableFont() As System.Drawing.Font
  88.         Set(ByVal Value As System.Drawing.Font)
  89.             TableFont = Value
  90.         End Set
  91.     End Property
  93.     Public WriteOnly Property SetHeadFont() As System.Drawing.Font
  94.         Set(ByVal Value As System.Drawing.Font)
  95.             HeadFont = Value
  96.         End Set
  97.     End Property
  99.     Public WriteOnly Property SetSubHeadFont() As System.Drawing.Font
  100.         Set(ByVal Value As System.Drawing.Font)
  101.             SubHeadFont = Value
  102.         End Set
  103.     End Property
  105.     Public WriteOnly Property SetFootFont() As System.Drawing.Font
  106.         Set(ByVal Value As System.Drawing.Font)
  107.             FootFont = Value
  108.         End Set
  109.     End Property
  111.     Public WriteOnly Property SetSubFootFont() As System.Drawing.Font
  112.         Set(ByVal Value As System.Drawing.Font)
  113.             SubFootFont = Value
  114.         End Set
  115.     End Property
  117.     Public WriteOnly Property SetHeadText() As String
  118.         Set(ByVal Value As String)
  119.             HeadText = Value
  120.         End Set
  121.     End Property
  123.     Public WriteOnly Property SetSubHeadLeftText() As String
  124.         Set(ByVal Value As String)
  125.             SubHeadLeftText = Value
  126.         End Set
  127.     End Property
  129.     Public WriteOnly Property SetSubHeadRightText() As String
  130.         Set(ByVal Value As String)
  131.             SubHeadRightText = Value
  132.         End Set
  133.     End Property
  135.     Public WriteOnly Property SetFootText() As String
  136.         Set(ByVal Value As String)
  137.             FootText = Value
  138.         End Set
  139.     End Property
  141.     Public WriteOnly Property SetSubFootLeftText() As String
  142.         Set(ByVal Value As String)
  143.             SubFootLeftText = Value
  144.         End Set
  145.     End Property
  147.     Public WriteOnly Property SetSubFootRightText() As String
  148.         Set(ByVal Value As String)
  149.             SubFootRightText = Value
  150.         End Set
  151.     End Property
  153.     Public WriteOnly Property SetHeadHeight() As Integer
  154.         Set(ByVal Value As Integer)
  155.             HeadHeight = Value
  156.         End Set
  157.     End Property
  159.     Public WriteOnly Property SetSubHeadHeight() As Integer
  160.         Set(ByVal Value As Integer)
  161.             SubHeadHeight = Value
  162.         End Set
  163.     End Property
  165.     Public WriteOnly Property SetFootHeight() As Integer
  166.         Set(ByVal Value As Integer)
  167.             FootHeight = Value
  168.         End Set
  169.     End Property
  171.     Public WriteOnly Property SetSubFootHeight() As Integer
  172.         Set(ByVal Value As Integer)
  173.             SubFootHeight = Value
  174.         End Set
  175.     End Property
  177.     Public WriteOnly Property SetCellHeight() As Integer
  178.         Set(ByVal Value As Integer)
  179.             YUnit = Value
  180.         End Set
  181.     End Property
  183.     Public Sub Print()
  184.         Try
  185.             DataTablePrinter = New Printing.PrintDocument
  186.             AddHandler DataTablePrinter.PrintPage, AddressOf DataTablePrinter_PrintPage
  187.             Dim PageSetup As PageSetupDialog
  188.             PageSetup = New PageSetupDialog
  189.             PageSetup.Document = DataTablePrinter
  190.             DataTablePrinter.DefaultPageSettings = PageSetup.PageSettings
  191.             If PageSetup.ShowDialog() = DialogResult.Cancel Then
  192.                 Exit Sub
  193.             End If
  194.             PLeft = DataTablePrinter.DefaultPageSettings.Margins.Left
  195.             PTop = DataTablePrinter.DefaultPageSettings.Margins.Top
  196.             PRight = DataTablePrinter.DefaultPageSettings.Margins.Right
  197.             PBottom = DataTablePrinter.DefaultPageSettings.Margins.Bottom
  198.             PWidth = DataTablePrinter.DefaultPageSettings.Bounds.Width
  199.             PHeigh = DataTablePrinter.DefaultPageSettings.Bounds.Height
  200.             '将当前页分成基本的单元
  201.             XUnit = (PWidth - PLeft - PRight) / DataTablePrint.Columns.Count - 1
  202.             PrintRecordNumber = (PHeigh - PTop - PBottom - HeadHeight - SubHeadHeight - FootHeight - SubFootHeight - YUnit) / YUnit
  203.             If DataTablePrint.Rows.Count > PrintRecordNumber Then
  204.                 If DataTablePrint.Rows.Count Mod PrintRecordNumber = 0 Then
  205.                     TotalPage = DataTablePrint.Rows.Count / PrintRecordNumber
  206.                 Else
  207.                     TotalPage = DataTablePrint.Rows.Count / PrintRecordNumber + 1
  208.                 End If
  209.             Else
  210.                 TotalPage = 1
  211.             End If
  212.             DataTablePrinter.DocumentName = TotalPage.ToString
  213.             Dim PrintPriview As PrintPreviewDialog
  214.             PrintPriview = New PrintPreviewDialog
  215.             PrintPriview.Document = DataTablePrinter
  216.             PrintPriview.WindowState = FormWindowState.Maximized
  217.             PrintPriview.ShowDialog()
  218.         Catch ex As Exception
  219.             MsgBox("打印错误，请检查打印设置！", 16, "错误")
  220.         End Try
  221.     End Sub
    1. Private Sub DataTablePrinter_PrintPage(ByVal sender As Object, ByVal Ev As System.Drawing.Printing.PrintPageEventArgs)
    2.         '还有多少条记录没有打印
    3.         PrintRecordLeave = DataTablePrint.Rows.Count - PrintRecordComplete
    4.         If PrintRecordLeave > 0 Then
    5.             If PrintRecordLeave Mod PrintRecordNumber = 0 Then
    6.                 PageNumber = PrintRecordLeave / PrintRecordNumber
    7.             Else
    8.                 PageNumber = PrintRecordLeave / PrintRecordNumber + 1
    9.             End If
    10.         Else
    11.             PageNumber = 0
    12.         End If
    13.         '正在打印的页数，因为每打印一个新页都要计算还有多少页没有打印所以以打印的页数初始为0
    14.         PrintingPageNumber = 0
    15.         '计算,余下的记录条数是否还可以在一页打印,不满一页时为假
    16.         If DataTablePrint.Rows.Count - PrintingPageNumber * PrintRecordNumber >= PrintRecordNumber Then
    17.             PageRecordNumber = PrintRecordNumber
    18.         Else
    19.             PageRecordNumber = (DataTablePrint.Rows.Count - PrintingPageNumber * PrintRecordNumber) Mod PrintRecordNumber
    20.         End If
    21.         Dim fmt As New StringFormat
    22.         '上下对齐
    23.         fmt.LineAlignment = StringAlignment.Center
    24.         '自动换行
    25.         fmt.FormatFlags = StringFormatFlags.LineLimit
    26.         '打印区域
    27.         Dim Rect As New Rectangle
    28.         '打印表格线格式
    29.         Dim Pen As New Pen(Brushes.Black, 1)
    30.         While PrintingPageNumber <= PageNumber
    31.             '表头中间对齐
    32.             fmt.Alignment = StringAlignment.Center
    33.             '表头和副表头宽度等于设置区域宽度
    34.             Rect.Width = PWidth - PLeft - PRight
    35.             Rect.Height = HeadHeight
    36.             Rect.X = PLeft
    37.             Rect.Y = PTop
    38.             '打印表头
    39.             Ev.Graphics.DrawString(HeadText, HeadFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
    40.             '副表头左对齐
    41.             fmt.Alignment = StringAlignment.Near
    42.             Rect.Width = (PWidth - PLeft - PRight) / 2 - 1
    43.             Rect.Height = SubHeadHeight
    44.             Rect.Y = PTop + HeadHeight
    45.             '打印副表头左
    46.             Ev.Graphics.DrawString(SubHeadLeftText, SubHeadFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
    47.             '右副表头文字从右往左排列
    48.             fmt.FormatFlags = StringFormatFlags.DirectionRightToLeft
    49.             '右副表头右对齐
    50.             fmt.Alignment = StringAlignment.Near
    51.             Rect.X = PLeft + (PWidth - PLeft - PRight) / 2
    52.             '打印副表头右
    53.             Ev.Graphics.DrawString(SubHeadRightText, SubHeadFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
    54.             fmt.Alignment = StringAlignment.Center
    55.             Rect.X = PLeft
    56.             Rect.Y = PTop + HeadHeight + SubHeadHeight + (PrintRecordNumber + 1) * (YUnit) + SubFootHeight
    57.             Rect.Height = FootHeight
    58.             Rect.Width = PWidth - PLeft - PRight
    59.             '打印表脚
    60.             Ev.Graphics.DrawString(FootText, FootFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
    61.             '副表左左对齐
    62.             fmt.Alignment = StringAlignment.Far
    63.             Rect.X = PLeft
    64.             Rect.Y = PTop + HeadHeight + SubHeadHeight + (PrintRecordNumber + 1) * (YUnit)
    65.             Rect.Height = SubFootHeight
    66.             Rect.Width = (PWidth - PLeft - PRight) / 2 - 1
    67.             '打印左表脚
    68.             Ev.Graphics.DrawString(SubFootLeftText, SubFootFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
    69.             '副表头右对齐
    70.             fmt.Alignment = StringAlignment.Near
    71.             Rect.X = PLeft + (PWidth - PLeft - PRight) / 2
    72.             If DataTablePrint.Rows.Count = 0 Then
    73.                 SubFootRightText = "第" & TotalPage & "页，共" & TotalPage & "页"
    74.             Else
    75.                 SubFootRightText = "第" & TotalPage - PageNumber + 1 & "页，共" & TotalPage & "页"
    76.             End If
    77.             '打印右表脚
    78.             Ev.Graphics.DrawString(SubFootRightText, SubFootFont, Brushes.Black, RectangleF.op_Implicit(Rect), fmt)
    79.             '得到datatable的所有列名
    80.             fmt.Alignment = StringAlignment.Center
    81.             Dim ColumnText(DataTablePrint.Columns.Count) As String
    82.             For Cols = 0 To DataTablePrint.Columns.Count - 1
    83.                 '得到当前所有的列名
    84.                 ColumnText(Cols) = DataTablePrint.Columns(Cols).ToString
    85.                 Rect.X = PLeft + XUnit * Cols
    86.                 Rect.Y = PTop + HeadHeight + SubHeadHeight
    87.                 Rect.Width = XUnit
    88.                 Rect.Height = YUnit
    89.                 Ev.Graphics.DrawString(ColumnText(Cols), New Font(TableFont, FontStyle.Bold), DrawBrush, RectangleF.op_Implicit(Rect), fmt)
    90.                 Ev.Graphics.DrawRectangle(Pen, Rect)
    91.             Next
    92.             '结束---------------------得到datatable的所有列名
    93.             '当前页面已经打印的记录行数
    94.             Dim PrintingLine As Integer = 0
    95.             While PrintingLine < PageRecordNumber
    96.                 '确定要当前要打印的记录的行号
    97.                 DataGridRow = DataTablePrint.Rows(PrintRecordComplete)
    98.                 For Cols = 0 To DataTablePrint.Columns.Count - 1
    99.                     Rect.X = PLeft + XUnit * Cols
    100.                     Rect.Y = PTop + HeadHeight + SubHeadHeight + (PrintingLine + 1) * (YUnit)
    101.                     Rect.Width = XUnit
    102.                     Rect.Height = YUnit
    103.                     If DataGridRow(ColumnText(Cols)) Is System.DBNull.Value = False Then
    104.                         Ev.Graphics.DrawString(DataGridRow(ColumnText(Cols)), TableFont, DrawBrush, RectangleF.op_Implicit(Rect), fmt)
    105.                     End If
    106.                     Ev.Graphics.DrawRectangle(Pen, Rect)
    107.                 Next
    108.                 PrintingLine += 1
    109.                 PrintRecordComplete += 1
    110.                 If PrintRecordComplete >= DataTablePrint.Rows.Count Then
    111.                     Ev.HasMorePages = False
    112.                     PrintRecordComplete = 0
    113.                     Exit Sub
    114.                 End If
    115.             End While
    116.             PrintingPageNumber += 1
    117.             If PrintingPageNumber >= PageNumber Then
    118.                 Ev.HasMorePages = False
    119.             Else
    120.                 Ev.HasMorePages = True
    121.                 Exit While
    122.             End If
    123.         End While
    124.     End Sub
    126.     '附转换函数
    127.     'listview转为Datatable函数
    128.     Public Function ListviewToDatatable(ByVal Listview1 As ListView)
    129.         Dim Table1 As New DataTable
    130.         Dim i As Integer
    131.         Dim datacol As DataColumn
    132.         For i = 0 To Listview1.Columns.Count - 1
    133.             datacol = New DataColumn
    134.             datacol.DataType = Type.GetType("System.Object")
    135.             datacol.ColumnName = Listview1.Columns(i).Text.Trim
    136.             Table1.Columns.Add(datacol)
    137.         Next i
    138.         Dim j As Integer
    139.         Dim Datarow1 As DataRow
    140.         For j = 0 To Listview1.Items.Count - 1
    141.             Datarow1 = Table1.NewRow
    142.             For i = 0 To Listview1.Columns.Count - 1
    143.                 Datarow1.Item(Listview1.Columns(i).Text.Trim) = Listview1.Items(j).SubItems(i).Text.ToString
    144.             Next i
    145.             Table1.Rows.Add(Datarow1)
    146.         Next j
    147.         Return Table1
    148.     End Function
    150.     '数据集转为Datatable函数
    151.     Public Function DataBaseToDataTable(ByVal SqlDataAdapter1 As Data.SqlClient.SqlDataAdapter, ByVal TableName As String)
    152.         Dim Table1 As New DataTable
    153.         Dim DataSet1 As New DataSet
    154.         DataSet1.Clear()
    155.         SqlDataAdapter1.Fill(DataSet1, TableName)
    156.         Table1 = DataSet1.Tables(TableName)
    157.         Return Table1
    158.     End Function
    159. End Class

你可能感兴趣的:(ListView,datagrid,table,报表,dataset)

  • Oracle查看表空间使用情况 假面生 Oracleoraclesql数据库
    --查询表空间使用情况SELECTUPPER(F.TABLESPACE_NAME)"表空间名",D.TOT_GROOTTE_MB"表空间大小(G)",D.TOT_GROOTTE_MB-F.TOTAL_BYTES"已使用空间(G)",TO_CHAR(ROUND((D.TOT_GROOTTE_MB-F.TOTAL_BYTES)/D.TOT_GROOTTE_MB*100,2),'990.99')||'%
  • 史上最全Oracle数据库查看表空间的名称及大小、使用情况等 DZ2317794308 sqloracle数据库
    1.查看表空间物理文件的名称及大小SELECTTABLESPACE_NAME,FILE_ID,FILE_NAME,ROUND(BYTES/(1024*1024),0)TOTAL_SPACEFROMDBA_DATA_FILESORDERBYTABLESPACE_NAME;2.查看表空间的名称及大小SELECTT.TABLESPACE_NAME,ROUND(SUM(BYTES/(1024*1024))
  • Flink (十二) ：Table API & SQL (一) 概览 Leven199527 Flinkflinksql大数据
    ApacheFlink有两种关系型API来做流批统一处理：TableAPI和SQL。TableAPI是用于Scala和Java语言的查询API，它可以用一种非常直观的方式来组合使用选取、过滤、join等关系型算子。FlinkSQL是基于ApacheCalcite来实现的标准SQL。无论输入是连续的（流式）还是有界的（批处理），在两个接口中指定的查询都具有相同的语义，并指定相同的结果。TableAP
  • 星露谷模组开发教程#7 自定义机器 c#
    首发于Enaium的个人博客添加大型工艺品机器也算是大型工艺品，所以我们需要先添加它的大型工艺品。这里做一张16x32格式为png的图。if(e.Name.IsEquivalentTo("Data/BigCraftables")){e.Edit(assets=>{vardict=assets.AsDictionary();dict.Data["Awesome_Orearium"]=newBigCr
  • mybatisplus获取返回对象（自增ID） 笑发财了1 springboot后端jarjavamavenmysql个人开发
    需求有时候我们在数据库里设置了属性自增，在添加对象后，前端需要我们返回这个属性（对象）。做法1.在该实体类的自增主键上加上注解@TableId(value="journey_location_id")，后面的type是默认值可以不写。value为数据表中的字段名@TableId(value="journey_location_id",type=IdType.AUTO)privateintjourn
  • CentOS7非root用户离线安装Docker及常见问题总结、加docker各类操作系统桌面程序下载地址 飞火流星02027 云计算K8SLinuxdocker离线安装docker离线安装包下载docker安装云原生k8sdockerdocker桌面程序下载地址
    环境说明1、安装用户有sudo权限2、本文讲docker组件安装，不是桌面程序安装3、本文讲离线安装，不是在线安装下载1、下载离线安装包，并上传到$HOME/basic-tool目录下载地址：Indexoflinux/static/stable/x86_64/我下的这个：https://download.docker.com/linux/static/stable/x86_64/docker-20
  • 查询mysql的引擎 PlanOne_A MySQLmysql数据库java
    一般情况下，mysql会默认提供多种存储引擎,你可以通过下面的查看:看你的mysql现在已提供什么存储引擎:mysql>showengines;看你的mysql当前默认的存储引擎:mysql>showvariableslike'%storage_engine%';你要看某个表用了什么引擎(在显示结果里参数engine后面的就表示该表当前用的存储引擎):mysql>showcreatetable表名
  • IOS 自定义代理协议Delegate OKXLIN ioscocoamacos
    QuestionViewCell.h文件代码，定义代理协议@protocolQuestionViewCellDelegate-(void)cellIsOpenDidChangeAtIndexPath:(NSIndexPath*)indexPath;@end@interfaceQuestionViewCell:UITableViewCell@property(nonatomic,weak)iddel
  • YOLO 安装 并且命令行指定配置文件 ELI_He999 python人工智能YOLO人工智能深度学习
    pipinstallultralyticssettings.yaml保存到当前目录，data参数yolo命令行指定配置文件{"settings_version":"0.0.6","datasets_dir":"xxxx\\datasets","weights_dir":"xxxx\\weights","runs_dir":"xxxx\\runs","uuid":"xxxx","sync":true
  • 【大模型】AutoDL部署AI绘图大模型Stable Diffusion使用详解 小码农叔叔 AI大模型实战与应用AutoDL部署AI绘图大模型AI绘图大模型AutoDL部署SDAI绘图大模型SD使用详解SD使用详解SD部署
    目录一、前言二、AI绘图大模型概述2.1AI绘图大模型介绍2.2AI绘图大模型特点2.3AI绘图大模型优势三、主流的AI绘图大模型介绍3.1Midjourney3.1.1Midjourney介绍3.1.2Midjourney功能特点3.1.3Midjourney使用场景3.2StableDiffusion3.2.1StableDiffusion介绍3.2.2StableDiffusion特点3.2
  • mysql主从数据一致性怎么校验_mysql主从数据一致性校验及纠错工具 Oliverzzzhang
    目录1、概述2、percona-tooldit工具的安装3、新建用户4、pt-table-checksum使用5、pt-table-sync使用6、个人总结1、概述假如你是一位运维人员，假如你生产环境上目录1、概述2、percona-tooldit工具的安装3、新建用户4、pt-table-checksum使用5、pt-table-sync使用6、个人总结1、概述假如你是一位运维人员，假如你生产环
  • pytorch-分类-检测-分割的dataset和dataloader创建 呆呆珝 基础pytorch分类人工智能
    1.前言在PyTorch中，Dataset和DataLoader是两个重要的工具，用于构建输入数据的管道。（1）Dataset是一个抽象类，表示数据集，需要实现__len__和__getitem__方法。（2）DataLoader是一个可迭代的数据加载器，它封装了数据集的加载、批处理、打乱和并行加载等功能。2.分类任务创建Dataset和DataLoader（1）对于分类任务，Dataset需要返
  • stable diffusion webui电商基础模型 Kun Li 多模态大语言模型stablediffusion
    电商生成模型的产生主要有两个路子，1.训练微调；2.模型融合。下面这些是借鉴，帮助思考如何构建电商模型。电商必备的10款StablediffusionWebUI模型-知乎一、WFProduct电商场景这是一个专门为电商摄影场景训练的lora模型，可以生成各种极具设计感的场景图，效果逼真，无论是电商、海报、产品渲染还是空间布置上都能用得到，可以解决产品摄影空间布景困难、创意度不…https://zh
  • stable diffusion 模型和lora融合 Kun Li 图像视频生成大模型stablediffusion
    炜哥的AI学习笔记——SuperMerger插件学习-哔哩哔哩接下来学习的插件名字叫做SuperMerger，它的作用正如其名，可以融合大模型或者LoRA，一般来说会结合之前的插件LoRABlockWeight使用，在调整完成LoRA模型的权重后使用改插件进行重新打包。除了LoRA，Checkpoint也可以通过这个插件进行融合合并。实际上，目前市面上存在大量的Checkpoint模型都是经由合并
  • Hutools 构建树结构 理想二旬不止(上班了，好像没有理想了) Hutools工具使用记录java
    详细介绍Hutools官网我们平时在进行业务开发时，经常会碰到需要构建树形结构的业务，比如常见的区域树结构└──省└──市└──区这类数据的特点就是每条数据有明确的父节点和子节点，如果没有父节点或者子节点的话，没有父节点的数据为树的顶级节点，如果没有子节点的话为树的底级节点。示例数据表及数据CREATETABLEarea(area_idBIGINTNOTNULLAUTO_INCREMENT,par
  • 【Mysql】Mysql数据库基本操作-------DDL（中） 爱学习的小何同学！ 数据库mysql
    1、对表结构的常用操作----创建表创建表格式：creattable(ifnotexists)(可以省略）表名(字段一类型[（宽度）][约束条件][comment'字段说明'],字段二类型[（宽度）][约束条件][comment'字段说明'],...)(表的一些设置）;创建表是构建一张空表，指定这个表的名字，这个表有几列，每一列叫什么名字，以及每一列存储的数据类型。示例：2、数据类型数据类型是指在
  • Bootstrap Blazor 中 Table 组件 的 OnColumnCreating 事件：统一设置 列 的 IsVisibleWhenAdd、IsVisibleWhenEdit 参数 cqths #BlazorWebAppwebapp.netc#
    当实体中属性较多时，在实体定义中对每一个属性设置相同参数比较麻烦，要统一修改也麻烦，此时可以考虑在OnColumnCreating事件中使用代码统一设置。//////在Table组件的OnColumnCreating事件中使用：设置AddColumnNames中列的IsVisibleWhenEdit=true，其余列IsVisibleWhenEdit=false。//////OnColumnCre
  • Bootstrap Blazor 组件库 Table 组件 OnQueryAsync 查询 EF Core 键集分页、偏移分页 使用备忘 cqths EFCore#BlazorWebAppbootstrap.netwebapp
    privatelonglastId=0,firstId=0;privatelonglastPageIndex=0;privateintlastPageItems=0;privateasyncTask>OnQueryAsync(QueryPageOptionsoptions){IEnumerableitems;//不是翻页：刷新、改变每页条数、过虑，此时，清除跟踪（清除缓存）if(!options.
  • 【MYSQL】mysql 常用命令 roman_日积跬步-终至千里 常用命令mysql数据库
    文章目录1.数据库管理命令2.表管理命令3.数据操作命令4.数据查询进阶5.用户与权限管理6.使用脚本操作数据库1.数据库管理命令--查看所有数据库SHOWDATABASES;--创建数据库CREATEDATABASE数据库名;--选择数据库USE数据库名;--删除数据库DROPDATABASE数据库名;2.表管理命令--查看所有表SHOWTABLES;--查看表结构DESCRIBE表名;--或S
  • WPF之comboBox可模糊查询 白驹……过隙 WPFwpf
    前言本文采用了prism框架的基础。0、先准备一个类publicclassComboBoxItemModel{publicstringName{get;set;}publicstringValue{get;set;}}一、xaml代码。前端这里需添加两个属性，还有keyUp事件等。1、IsEditable="True"（开启可编辑）2、IsTextSearchEnabled="False"（开启可
  • 如何实现 Handy Control DataGrid 全选功能 东百牧码人 状态模式
    如何实现HandyControlDataGrid全选功能在使用HandyControl的DataGrid控件时，经常会有全选的需求。今天我们就结合一段代码，详细介绍如何实现HandyControlDataGrid的全选功能。代码实现前端XAML代码代码解释DataGrid是主要的表格控件，ItemsSource绑定到TrendTagCollection，这是数据源集合。DataGridCheckB
  • WPF中让Combobox具有查找功能 cplmlm wpfwpfwindows
    需求：由于combobox绑定的数据源数量比较多，如果让用户在下拉列中查找，难免会不太方便，于是就需要让combobox可以输入内容，并且希望根据用户输入的内容去自动匹配，这样效率就会提高！先在xaml中添加一个combobox：先看设置的属性：IsEditable就是启用或禁用ComboBox的文本框中的文本编辑，让combobox可以输入内容IsTextSearchEnabled就是是否开启T
  • 入门Stable-Diffusion-WebUI全过程 沙漠蓝色披头 Ai大模型stablediffusion
    这里用的软件叫“stable-diffusion-webui”，严格意义上来说是一个基于StableDiffusion的开源项目。这个项目非常强大，把原本很难安装配置的开源项目做成了一个简单易操作的网页，后来又引入了插件系统，可以玩出很多花样。最重要的是这一切都免费且开源。安装stable-diffusion-webui需要事先做一些准备工作。一台带中高端显卡的电脑电脑可以流畅的访问github安
  • 如何训练Stable Diffusion 模型 俊偉 AGIstablediffusion扩散模型训练AI炼丹
    训练StableDiffusion模型是一个复杂且资源密集的过程，通常需要大量的计算资源（如GPU或TPU）和时间。StableDiffusion是一种基于扩散模型的生成式AI，能够根据文本提示生成高质量的图像。它的训练过程涉及多个步骤，包括数据准备、模型配置、训练参数调整等。以下是训练StableDiffusion模型的基本步骤和注意事项：1.环境准备1.1安装依赖项首先，确保你有一个适合深度学
  • Jdbc--实现对数据库的查询，更改，删除，添加等方法 Winston-Tao
    1.先新建一个数据库，代码如下：CREATETABLEuser_t(idINT(11)UNSIGNEDNOTNULLAUTO_INCREMENT,nameVARCHAR(50)NOTNULLDEFAULT'',passwordVARCHAR(50)NOTNULLDEFAULT'',emailVARCHAR(50)NOTNULLDEFAULT'',PRIMARYKEY(id))ENGINE=INNO
  • 已解决：No converter for [class XXX] with preset Content-Type ‘XXX‘ 青灯文案 Java后端java后端restful
    http://localhost:8085/api/v1.0/user/exportorg.springframework.http.converter.HttpMessageNotWritableException:Noconverterfor[classcn.com.wind.server.model.vo.Response]withpresetContent-Type'multipart/f
  • mysql之group by语句 程序研 mysqlmysql数据库
    MySQL的GROUPBY语句详细介绍在MySQL数据库中，GROUPBY子句用于将查询结果按照一个或多个列进行分组。这在数据分析和报表生成中非常有用，因为它允许我们对数据进行汇总和聚合，从而提取有价值的信息。本文将详细介绍GROUPBY语句的用法、注意事项以及通过多个代码例子来演示其功能。1.基本概念GROUPBY子句通常与聚合函数（如COUNT、SUM、AVG、MAX、MIN等）一起使用，以便
  • 【机器学习】使用scikit-learn中的KNN包实现对鸢尾花数据集或者自定义数据集的的预测 加德霍克 机器学习人工智能python学习作业
    一、KNN算法概念K最近邻(K-NearestNeighbor,KNN)分类算法是数据挖掘分类技术中最简单的方法之一，是著名的模式识别统计学方法，在机器学习分类算法中占有相当大的地位。它是一个理论上比较成熟的方法。既是最简单的机器学习算法之一，也是基于实例的学习方法中最基本的，又是最好的文本分类算法之一。二、对鸢尾花数据集进行预测1、代码示例：fromsklearn.datasetsimportl
  • 用Java提取Word文档表格数据
    Word文档作为一种广泛使用的文件格式，常常承载着丰富的表格信息，这些信息可能涉及到财务报表、项目规划、实验数据记录等多方面内容。将这些表格数据提取出来，能够方便进行数据分析以及内容再创作等场景。通过使用Java实现Word文档表格数据的提取，可以确保数据处理的一致性和准确性，同时大大减少所需的时间和成本。本文将介绍如何使用Java提取Word文档中的表格数据。用Java提取Word文档表格到文本
  • MySQL敏感数据进行加密的几种方法 我科绝伦（Huanhuan Zhou） mysqlmysql数据库
    使用MySQL内置的加密函数AES_ENCRYPT和AES_DECRYPT函数方法介绍：AES（AdvancedEncryptionStandard）是一种对称加密算法。在MySQL中，可以使用AES_ENCRYPT函数对数据进行加密，使用AES_DECRYPT函数进行解密。这种加密方式的特点是加密和解密使用相同的密钥。示例：首先，创建一个表来存储加密后的数据：CREATETABLEencrypt
  • Dom 周华华 JavaScripthtml
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml&q
  • 【Spark九十六】RDD API之combineByKey bit1129 spark
    1. combineByKey函数的运行机制   RDD提供了很多针对元素类型为(K,V)的API，这些API封装在PairRDDFunctions类中，通过Scala隐式转换使用。这些API实现上是借助于combineByKey实现的。combineByKey函数本身也是RDD开放给Spark开发人员使用的API之一   首先看一下combineByKey的方法说明：
  • msyql设置密码报错：ERROR 1372 (HY000): 解决方法详解 daizj mysql设置密码
    MySql给用户设置权限同时指定访问密码时，会提示如下错误： ERROR 1372 (HY000): Password hash should be a 41-digit hexadecimal number；   问题原因：你输入的密码是明文。不允许这么输入。   解决办法：用select password('你想输入的密码');查询出你的密码对应的字符串， 然后
  • 路漫漫其修远兮 吾将上下而求索 周凡杨 学习 思索
    王国维在他的《人间词话》中曾经概括了为学的三种境界古今之成大事业、大学问者，罔不经过三种之境界。“昨夜西风凋碧树。独上高楼，望尽天涯路。”此第一境界也。“衣带渐宽终不悔，为伊消得人憔悴。”此第二境界也。“众里寻他千百度，蓦然回首，那人却在灯火阑珊处。”此第三境界也。学习技术，这也是你必须经历的三种境界。第一层境界是说，学习的路是漫漫的，你必须做好充分的思想准备，如果半途而废还不如不要开始。这里，注
  • Hadoop(二)对话单的操作 朱辉辉33 hadoop
    Debug： 1、 A = LOAD '/user/hue/task.txt' USING PigStorage(' ') AS (col1,col2,col3); DUMP A; //输出结果前几行示例： (>ggsnPDPRecord(21),,) (-->recordType(0),,) (-->networkInitiation(1),,)
  • web报表工具FineReport常用函数的用法总结（日期和时间函数） 老A不折腾 finereport报表工具web开发
    web报表工具FineReport常用函数的用法总结（日期和时间函数）   说明：凡函数中以日期作为参数因子的，其中日期的形式都必须是yy/mm/dd。而且必须用英文环境下双引号(" ")引用。   DATE DATE(year,month,day):返回一个表示某一特定日期的系列数。 Year:代表年，可为一到四位数。 Month:代表月份。
  • c++ 宏定义中的##操作符 墙头上一根草 C++
    #与##在宏定义中的--宏展开 #include <stdio.h> #define f(a,b) a##b #define g(a)   #a #define h(a) g(a) int main() {       &nbs
  • 分析Spring源代码之，DI的实现 aijuans springDI现源代码
    (转) 分析Spring源代码之，DI的实现 2012/1/3 by tony                 接着上次的讲，以下这个sample [java]  view plain copy print
  • for循环的进化 alxw4616 JavaScript
    // for循环的进化 // 菜鸟 for (var i = 0; i < Things.length ; i++) { // Things[i] } // 老鸟 for (var i = 0, len = Things.length; i < len; i++) { // Things[i] } // 大师 for (var i = Things.le
  • 网络编程Socket和ServerSocket简单的使用 百合不是茶 网络编程基础IP地址端口
      网络编程;TCP/IP协议   网络:实现计算机之间的信息共享,数据资源的交换   协议:数据交换需要遵守的一种协议,按照约定的数据格式等写出去   端口:用于计算机之间的通信      每运行一个程序，系统会分配一个编号给该程序，作为和外界交换数据的唯一标识 0~65535   查看被使用的
  • JDK1.5 生产消费者 bijian1013 javathread生产消费者java多线程
    ArrayBlockingQueue：        一个由数组支持的有界阻塞队列。此队列按 FIFO（先进先出）原则对元素进行排序。队列的头部 是在队列中存在时间最长的元素。队列的尾部 是在队列中存在时间最短的元素。新元素插入到队列的尾部，队列检索操作则是从队列头部开始获得元素。 ArrayBlockingQueue的常用方法：
  • JAVA版身份证获取性别、出生日期及年龄 bijian1013 java性别出生日期年龄
            工作中需要根据身份证获取性别、出生日期及年龄，且要还要支持15位长度的身份证号码，网上搜索了一下，经过测试好像多少存在点问题，干脆自已写一个。 CertificateNo.java package com.bijian.study; import java.util.Calendar; import
  • 【Java范型六】范型与枚举 bit1129 java
    首先，枚举类型的定义不能带有类型参数，所以，不能把枚举类型定义为范型枚举类，例如下面的枚举类定义是有编译错的   public enum EnumGenerics<T> { //编译错，提示枚举不能带有范型参数 OK, ERROR; public <T> T get(T type) { return null;
  • 【Nginx五】Nginx常用日志格式含义 bit1129 nginx
    1. log_format 1.1 log_format指令用于指定日志的格式，格式：   log_format name(格式名称) type(格式样式)   1.2 如下是一个常用的Nginx日志格式：   log_format main '[$time_local]|$request_time|$status|$body_bytes
  • Lua 语言 15 分钟快速入门 ronin47 lua 基础
    - - 单行注释 - - [[      [多行注释] - - ]]   - - - - - - - - - - - 1. 变量 & 控制流 - - - - - - - - - - num = 23 - - 数字都是双精度 str = 'aspythonstring'
  • java-35.求一个矩阵中最大的二维矩阵 ( 元素和最大 ) bylijinnan java
    the idea is from: http://blog.csdn.net/zhanxinhang/article/details/6731134 public class MaxSubMatrix { /**see http://blog.csdn.net/zhanxinhang/article/details/6731134 * Q35 求一个矩阵中最大的二维
  • mongoDB文档型数据库特点 开窍的石头 mongoDB文档型数据库特点
    MongoDD: 文档型数据库存储的是Bson文档-->json的二进制 特点：内部是执行引擎是js解释器，把文档转成Bson结构，在查询时转换成js对象。 mongoDB传统型数据库对比    传统类型数据库：结构化数据，定好了表结构后每一个内容符合表结构的。也就是说每一行每一列的数据都是一样的    文档型数据库：不用定好数据结构，
  • [毕业季节]欢迎广大毕业生加入JAVA程序员的行列 comsci java
        一年一度的毕业季来临了。。。。。。。。      正在投简历的学弟学妹们。。。如果觉得学校推荐的单位和公司不适合自己的兴趣和专业，可以考虑来我们软件行业，做一名职业程序员。。。      软件行业的开发工具中，对初学者最友好的就是JAVA语言了，网络上不仅仅有大量的
  • PHP操作Excel – PHPExcel 基本用法详解 cuiyadll PHPExcel
    导出excel属性设置//Include classrequire_once('Classes/PHPExcel.php');require_once('Classes/PHPExcel/Writer/Excel2007.php');$objPHPExcel = new PHPExcel();//Set properties 设置文件属性$objPHPExcel->getProperties
  • IBM Webshpere MQ Client User Issue (MCAUSER) darrenzhu IBMjmsuserMQMCAUSER
    IBM MQ JMS Client去连接远端MQ Server的时候，需要提供User和Password吗？ 答案是根据情况而定，取决于所定义的Channel里面的属性Message channel agent user identifier (MCAUSER)的设置。 http://stackoverflow.com/questions/20209429/how-mca-user-i
  • 网线的接法 dcj3sjt126com
    一、PC连HUB (直连线)A端：（标准568B）：白橙，橙，白绿，蓝，白蓝，绿，白棕，棕。 B端：（标准568B）：白橙，橙，白绿，蓝，白蓝，绿，白棕，棕。 二、PC连PC （交叉线）A端：(568A)： 白绿，绿，白橙，蓝，白蓝，橙，白棕，棕； B端：（标准568B）：白橙，橙，白绿，蓝，白蓝，绿，白棕，棕。 三、HUB连HUB&nb
  • Vimium插件让键盘党像操作Vim一样操作Chrome dcj3sjt126com chromevim
    什么是键盘党？ 键盘党是指尽可能将所有电脑操作用键盘来完成，而不去动鼠标的人。鼠标应该说是新手们的最爱，很直观，指哪点哪，很听话！不过常常使用电脑的人，如果一直使用鼠标的话，手会发酸，因为操作鼠标的时候，手臂不是在一个自然的状态，臂肌会处于绷紧状态。而使用键盘则双手是放松状态，只有手指在动。而且尽量少的从鼠标移动到键盘来回操作，也省不少事。 在chrome里安装 vimium 插件
  • MongoDB查询（2）——数组查询[六] eksliang mongodbMongoDB查询数组
    MongoDB查询数组 转载请出自出处：http://eksliang.iteye.com/blog/2177292 一、概述  MongoDB查询数组与查询标量值是一样的，例如，有一个水果列表，如下所示： > db.food.find() { "_id" : "001", "fruits" : [ "苹
  • cordova读写文件（1） gundumw100 JavaScriptCordova
    使用cordova可以很方便的在手机sdcard中读写文件。 首先需要安装cordova插件：file 命令为： cordova plugin add org.apache.cordova.file 然后就可以读写文件了，这里我先是写入一个文件，具体的JS代码为： var datas=null;//datas need write var directory=&
  • HTML5 FormData 进行文件jquery ajax 上传 到又拍云 ileson jqueryAjaxhtml5FormData
    html5 新东西：FormData  可以提交二进制数据。 页面test.html <!DOCTYPE> <html> <head> <title> formdata file jquery ajax upload</title> </head> <body> <
  • swift appearanceWhenContainedIn:(version1.2 xcode6.4) 啸笑天 version
      swift1.2中没有oc中对应的方法： + (instancetype)appearanceWhenContainedIn:(Class <UIAppearanceContainer>)ContainerClass, ... NS_REQUIRES_NIL_TERMINATION;  解决方法： 在swift项目中新建oc类如下： #import &
  • java实现SMTP邮件服务器 macroli java编程
    电子邮件传递可以由多种协议来实现。目前，在Internet 网上最流行的三种电子邮件协议是SMTP、POP3 和 IMAP，下面分别简单介绍。 　　◆ SMTP 协议 　　简单邮件传输协议(Simple Mail Transfer Protocol,SMTP)是一个运行在TCP/IP之上的协议，用它发送和接收电子邮件。SMTP 服务器在默认端口25上监听。SMTP客户使用一组简单的、基于文本的
  • mongodb group by having where 查询sql qiaolevip 每天进步一点点学习永无止境mongo纵观千象
    SELECT cust_id, SUM(price) as total FROM orders WHERE status = 'A' GROUP BY cust_id HAVING total > 250 db.orders.aggregate( [ { $match: { status: 'A' } }, { $group: {
  • Struts2 Pojo（六） Luob. POJOstrust2
    注意：附件中有完整案例 1.采用POJO对象的方法进行赋值和传值 2.web配置 <?xml version="1.0" encoding="UTF-8"?> <web-app version="2.5" xmlns="http://java.sun.com/xml/ns/javaee&q
  • struts2步骤 wuai struts
    1、添加jar包 2、在web.xml中配置过滤器 <filter>        <filter-name>struts2</filter-name>        <filter-class>org.apache.st
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他