jjkk168的专栏

原创 利用Aspose.Email同步IMAP邮件至Exchange2013

IMAP与Exchange2013同步数据

原创 论坛图片

原创 在用户自定义函数中动态查询指定表中动态列的数据信息

碰到一个小需求，需要形成一个用户自定义函数，该函数是需要从某个数据表中返回指定列的数据。首先以为比较轻松，无非就是动态拼接一下SQL语句就可以了，谁知当动态形成SQL语句以后，结果报错，原因是用户自定义函数中不能使用拼接的SQL语句，在网上搜了一大把，结果都是提出要用存储过程来处理。不信这个邪了，因为存储过程我实在不愿意过于滥的使用，没办法，后来想到利用XML来进行处理。代码如下：Create FUNCTION GetRoleAuthorizationValueByUser (@UserADAccoun

原创 辛辛苦苦整合的TextArea设置MaxLength的代码

Javascript代码function SetTextAreaMaxLength(controlId,length){ // JScript File for TextArea // Keep user from entering more than maxLength characters function doKeypress(control,lengt

原创 调用“页面设置”标准对话框并对当前的打印机进行设定的代码，经过多次调试，总算出结果了

Private Function ShowPageSetupDlg(frmOwner As Form) As Long    Dim PSD     As PRINTSETUPDLG_TYPE    Dim DevMode     As DEVMODE_TYPE    Dim DevName       As DEVNAMES_TYPE    Dim bReturn     As Intege

原创 Windows关机代码

Option ExplicitPrivate Const EWX_LogOff As Long = 0Private Const EWX_SHUTDOWN As Long = 1Private Const EWX_REBOOT As Long = 2Private Const EWX_FORCE As Long = 4Private Const EWX_POWEROFF As Long = 8

原创 VB设定打印机

文件一:模块代码:   Option Explicit      Dim TestOkButton As Boolean   Global constants for Win32 API   Public Const CCHDEVICENAME = 32   Public Const CCHFORMNAME = 32   Public Const GMEM_FIXED = &H0   Publ

原创 VB中获取指定打印机的各种纸张类型及大小

放入一个MSFlexGrid，名称为fgd1，列数为4Option ExplicitPrivate Const DC_MAXEXTENT = 5Private Const DC_MINEXTENT = 4Private Const DC_PAPERNAMES = 16Private Const DC_PAPERS = 2Private Const DC_PAPERSIZE = 3Priv

原创 BOM表查询的VB实现方法

相关需求及信息请点击这里查看。用VB代码实现方法引用：无，部件：无设计：在Form1中右下角加入一个CommandButton，名称默认为Command1，窗体的AutoRedraw属性设为True窗体文件一：Form1Option ExplicitPrivate mBom As Collection              这是入口的集合Private mBomReturn As Colle

转载 70年代出生的人

江湖已不是我们的江湖－－FOR 70年代的人我生于70年代，是伴随着港台歌曲成长起来的。跟现在的所谓新新人类不一样，我们那个时候不染黄色的头发，如果天生稍微有点黄的话，还要想方设法染黑。这主要是因为我们那个时候没有什么H.O.T，流行的是黑豹，唐朝，BEYOND，齐秦，比较新潮的发型是披肩长发，赵传还觉得自己长的比较丑，一天到晚老想飞，雨声也栩栩如生的在窗前天天想你。潘美辰在四处找家，齐豫却已

原创 一个自认为写得还可以的存储过程，就是没有注释，看起来有点乱。与ERP的BOM相关的

图示如下：所使用数据库 ： SQL Server 2000，数据表名：Te（乱七八糟命名的）表结构： varchar(20) varchar(20) decimal(20,4) Assbompoint sl  产成品半成品12  产成品半成品2 3  产成品半成品3 2  半成品1半成品4 2  半成品1半成品5 2  半成品3半成品5 3   最终需要输出结果 Assbompoint sl  产

转载 VB编辑ListView的SubItem

文件一，Form1.frm加入一个Listview，两个Imagelist，一个文本框代码如下：Option Explicit Copyright ?1997-1999 Brad Martinez, http://www.mvps.org Demonstrates how to in place do SubItem editing in the VB ListView.Pri

转载 VB的MD5类

Option Explicit Visual Basic MD5 Implementation Robert Hubley and David Midkiff (mdj2023@hotmail.com) modify by simonyan, Support chinese Standard MD5 implementation optimised for the Visual Basic

原创 C#的MD5类

using System;using System.Text;using System.Collections;namespace CHX.Common.CommonFunctions{ ///  /// MD5 的摘要说明。 ///  public class MD5 {  private const long OFFSET_4 = 4294967296;  private const long

转载 利用C#对远程服务进行操作，如MSSQLSERVER等。

在.net中提供了一些类来显示和控制Windows系统上的服务，并可以实现对远程计算机服务服务的访问，如System.ServiceProcess命名空间下面的ServiceController 类，System.Management下面的一些WMI操作的类。虽然用ServiceController可以很方便的实现对服务的控制，而且很直观、简洁和容易理解。但是我认为他的功能同通过WMI来操作服务相