摘要: Imports SystemImports System.DataImports System.Data.OleDbImports Microsoft.VisualBasicImports System.ConsoleImports System.Windows.FormsImports System.IOImports System.TextImports System.DrawingNamespace BogartMis.Cls Public Class DataControl #Region "SQL Process " Public Function... 阅读全文
posted @ 2013-10-14 14:32 vinsonLu 阅读(362) 评论(0) 推荐(0) 编辑
摘要: sql = "Select case when date ='' then '0'else CONVERT(varchar(100), date, 101) end as date,case when ad ='' then '0'else CONVERT(varchar(100), ad, 101) end as ad,event1,type1,code from EventData where ip='" + UserIP + "' order by code,event1&quo 阅读全文
posted @ 2013-10-14 14:29 vinsonLu 阅读(4519) 评论(0) 推荐(0) 编辑
摘要: vb里面的水晶报表打印控件:CrystalReportViewer用到的dll文件:水晶报表打印其实很简单,只要创建报表对象,再对其传递数据就可以打印出来。当然所传递的数据要与水晶报表设计里面的数据一致:Public Overloads Sub ShowDialog(ByVal netDs As DataSet, ByVal strPath As String, Optional ByVal showPrint As Boolean = True, Optional ByVal showExport As Boolean = True) Try If net... 阅读全文
posted @ 2013-09-12 12:54 vinsonLu 阅读(5593) 评论(1) 推荐(0) 编辑
摘要: http://www.96138.com.cn/gdrcu/zh_CN/Home/index.html 阅读全文
posted @ 2013-08-27 11:53 vinsonLu 阅读(467) 评论(0) 推荐(0) 编辑
摘要: 1.新建项目,同时添加一个类库,然后在类库里面定义自己的控件;完毕生成项目,然后在类库的bin目录下就自动生成了这个自定义控件的dll文件。2.在需要使用这个自定义控件的项目里,直接ctrl+c,ctrl+v这个dll文件到你的项目工具箱,即可拖曳使用。 阅读全文
posted @ 2013-08-14 17:36 vinsonLu 阅读(7235) 评论(0) 推荐(0) 编辑
摘要: 一开始听到job的要求,还真不知道如何下手,用Gridview?好像有做不到把图片show出来的。在网上搜索一遍,发现原来是ListView与Imglist的结合应用。看设计: Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click Try Me.ListView1.Items.Clear() Me.imglist.Images.Clear() ... 阅读全文
posted @ 2013-08-01 09:53 vinsonLu 阅读(1945) 评论(0) 推荐(0) 编辑
摘要: Sql Server 中一个非常强大的日期格式化函数 Select CONVERT(varchar(100), GETDATE(), 0): 05 16 2006 10:57AM Select CONVERT(varchar(100), GETDATE(), 1): 05/16/06 Select CONVERT(varchar(100), GETDATE(), 2): 06.05.16 Select CONVERT(varchar(100), GETDATE(), 3): 16/05/06 Select CONVERT(varchar(100), GETDATE(), 4): 16.05.0 阅读全文
posted @ 2013-06-06 17:39 vinsonLu 阅读(322) 评论(0) 推荐(0) 编辑
摘要: 一个label就是一条detail,分布成4列16行,用A4纸打印。这与通常的报表有点不一样,通常报表的明细都是一条一行;而现在要每4条放在一行,这需要用到“多列格式化”属性。先说打印条码的吧,条码图片怎么来?下载生成条码的exe文件Barcode.exe以及dll文件Zen.Barcode.Core.dll,通过shell函数调用执行Barcode.exe文件生成条码图片在给报表传数的table里面插入条码图片:Private Sub AddBarcodeImages(ByVal DTab As DataTable) If Not DTab Is Nothing Then ... 阅读全文
posted @ 2013-05-14 12:24 vinsonLu 阅读(1606) 评论(0) 推荐(0) 编辑
摘要: Dim SQL_Header As String = "CP Reference No.,CP Version No.,Call Lot,Remark ID,Remarks,UPDUSER" Dim SQL_Where As String = "" Dim SQL As String = "SELECT CPREFNO, CPVERNO,CLOT,REMLIN,REMARK,UPDUSER FROM CPM_Remark" Dim netDs As New DataSet Dim tn As String = "TB&quo 阅读全文
posted @ 2013-05-10 09:30 vinsonLu 阅读(819) 评论(0) 推荐(0) 编辑
摘要: session_a.php<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><title>session</title><meta name="Generator" content=""><meta name="Author" content="czh"><meta name="Keywords&qu 阅读全文
posted @ 2013-04-25 17:48 vinsonLu 阅读(239) 评论(0) 推荐(0) 编辑