hzvcan-优快云博客

原创 SQL语言的魅力 36秒求解八皇后问题（92种结果）

--该表保存结果create table c(c1 tinyint, c2 tinyint, c3 tinyint, c4 tinyint, c5 tinyint, c6 tinyint, c7 tinyint, c8 tinyint, c9 tinyint, c10 tinyint, c11 tinyint, c12 tinyint, c13 tinyint, c14 tinyint, c15

2010-04-16 22:50:00 2037

原创批量核销

Public Function MainFunction(ByVal sKey As String, oList As Object, ByRef bCancel As Boolean) Dim frmX As New frmVerification Dim vec As New KFO.Vector Dim RsYear As ADODB.Recordset '当前年份

2016-04-22 10:57:15 1614 1

原创金蝶核销逻辑研究

IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[qk_Verification]') AND type in (N'P', N'PC'))DROP PROCEDURE [dbo].[qk_Verification]GOcreate proc qk_Verification@

2016-04-22 10:52:01 2496

原创 vb调用Excel时指定打印机

If strPrinter For Each p In Printers If strPrinter = p.DeviceName Then strPrinter = strPrinter & " 在 " & p.Port Exit For

2016-04-20 10:32:07 4501

原创金蝶核算项目插件

'delete from t_ThirdPartyComponent where FTypeID=101 and FTypeDetailID =4 and FComponentName ='baseitemtest.myclass''insert into t_ThirdPartyComponent(FTypeID, FTypeDetailID, FIndex, FComponent

2016-04-18 10:16:05 2422

原创漂亮等待控件

http://schemas.android.com/apk/res/android" android:layout_width="match_parent" android:layout_height="match_parent" android:background="@drawable/waitbar" android:orientatio

2016-03-15 17:29:09 405

原创 android枚举用法

package kd.scan;public class MyEnum {//该类定义各种枚举类型，增强代码可读性 public MyEnum() { // TODO Auto-generated constructor stub } public enum ScanCodeType { STANDARD, SAMSUNG, FINGER

2016-03-10 16:26:34 568

原创 sql笔记

qk_getBaseInfo 2,''IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[qk_getBaseInfo]') AND type in (N'P', N'PC'))drop proc qk_getBaseInfogocreate proc qk_getBaseIn

2016-03-10 16:25:17 312

原创模板

package kd.scan;import java.io.IOException;import java.lang.reflect.Method;import java.text.DecimalFormat;import java.util.ArrayList;import java.util.List; import android.app.Activit

2016-03-10 16:16:49 451

原创 android选择控件

package kd.scan;import java.io.IOException;import java.text.DecimalFormat;import java.util.ArrayList;import java.util.List;import android.app.Activity;import android.content.Context;

2016-03-10 16:14:47 1061

原创数据库操作

using System;using System.Data;using System.Configuration;using System.Linq;using System.Web;using System.Web.Security;using System.Web.UI;using System.Web.UI.HtmlControls;using System

2016-03-09 09:19:13 427

原创 ebcgl新增上级组

Dim ui As New KDLogin.ClsLoginDim m_oLogin As New KDLogin.NoUILoginDim strtemp As StringDim rs As ADODB.Recordset'Dim oLogin As New K3Login.ClsLoginDim oItemClassSet

2016-02-16 16:02:39 1126

原创 K3无界面登录新增职员

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long '编码:钱坤'日期:20160215'功能:新增职员'参数'1 strAcctNumber:账套编码 eg:02.uitest5'2 strNumber: 工号,当职员编码'3 strName:

2016-02-16 14:51:04 2433

原创 android 组合控件-属性获取

--属性文件 values下新建atrrs.xml -->标题 --> -->标题宽度 --> 如果是文本，可以不管，如果是数字，需录入数字, --> --> --package kd.scan;import android.content.Context;import andro

2016-01-26 16:15:28 1024

原创 android 自定义文本组合控件

--布局 --代码package kd.scan;import android.content.Context;import android.content.res.TypedArray;import android.text.InputType;import android.util.AttributeS

2016-01-22 14:15:38 331

原创 android条码系统直接打印出库单笔记

android需要调用webservice,然后webservic调用vb的dll，在dll中读取和编辑excel,然后直接打印excel(调用默认打印机)。打印的关键问题在于webservice的启用账号：Local system/Network service/Local Service，win7还有个新的账号applicationpoolidentity。如果用applicati

2015-06-26 14:48:51 1409

原创金蝶委外入库核销慢

问题描述：委外入库核销时，输入核销数量后，系统反应特别慢。要等好久才能输入下一个数量。原因分析:通过玩命的测试发现，核销时，出库的明细越多，输入数量后等待的时间越长，设置下过滤条件，减少出库的明细数量后，速度变快，问题解决。

2015-03-03 17:14:28 1763

原创 sql openxml学习笔记

DECLARE @doc xml--SET @doc = '----AccountNumber="10-4030-018759" ContactID="4189" BillToAddressID="14024" ShipToAddressID="14024" ShipMethodID="1" SubTotal="174.20" TaxAmt="10">--

2014-11-11 16:52:56 2576 1

原创 vb 中recordset提示对象关闭时不允许操作

vb中执行查询后，一般要判断是否为空，

2014-08-25 10:22:33 4340

表：权限的数据字典视图 视图作用 ALL_COL_PRIVS 表示列上的授权，用户和PUBLIC是被授予者 ALL_COL_PRIVS_MADE 表示列上的授权，用户是属主和被授予者 ALL_COL_RECD 表示列上的授权，用户和PUBLIC是被授予者 ALL_TAB_PRIVS 表示对象上的授权，用户是PUBLIC或被授予者或用户是属主 ALL_TAB_PRIVS_MADE 表示对象上的权限，用户是

2010-07-29 11:20:00 912

转载 VBA编程常用语句300句

*************** VBA 语句集 ** (第 1 辑) ******************************** 定制模块行为 *****************(1) Option Explicit 强制对模块内所有变量进行声明 Option Private Module 标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compa

2010-05-13 22:07:00 2410

原创 APPLICATION对象应用

Application对象代表整个Microsoft Excel应用程序，带有175个属性和52个方法，可以设置整个应用程序的环境或配置应用程序。--------------------------------------------------------------------------------示例01-01：体验开/关屏幕更新(ScreenUpdating属性)Sub 关闭屏幕更新

2010-05-13 22:05:00 591

原创 APPLICATION对象应用

2010-05-13 22:04:00 481

原创设置IP

netsh interface ip set address "本地连接" static 192.168.18.97 255.255.255.0 192.168.18.1 1netsh interface ip set dns "本地连接" static 192.168.18.1 primary

2010-05-13 22:03:00 285

原创 FSUTIL磁盘文件实用工具

FsutilFsutil 是一个命令行实用程序，可用于执行多种与文件分配表 (FAT) 和 NTFS 文件系统相关的任务，例如管理重分析点、管理稀疏文件或拆卸卷。因为 fsutil 的功能非常强大，所以只应由具有 Windows XP 或 Windows Server 2003 家族操作系统的完整知识的高级用户使用。此外，必须作为管理员或 Administrator 组的成员登录，才能使用 fsu

2010-05-13 22:01:00 1080

原创 MORE子命令

More 子命令以下命令在 more 提示 (-- More --) 下接受。关键字操作 space 显示下一页。 ENTER 显示下一行。 F 显示下一个文件。 q 退出。 ? 显示可用命令。 = 显示行号。 P n 显示以下 n 行。 S n 跳过下面 n 行。

2010-05-13 21:59:00 324

转载 FOR命令详解

批处理for命令详解FOR这条命令基本上都被用来处理文本,但还有其他一些好用的功能!看看他的基本格式(这里我引用的是批处理中的格式,直接在命令行只需要一个%号)FOR 参数 %%变量名 IN (相关文件或命令) DO 执行的命令参数:FOR有4个参数 /d /l /r /f 他们的作用我在下面用例子解释%%变量名 :这个变量名可以是小写a-z或者大写A-Z,他们区分大小写,FOR会

2010-05-13 21:58:00 500

原创注册表搜索

HKEY_CURRENT_USER/Software/360SD LibVer REG_SZ (1) 5745751--查找项:360sd D:/>reg query hkcu /f 360sd /k /sHKEY_CURRENT_USER/Software/360SD搜索结束: 找到 1 匹配。--查找值:libverD:/>reg query hkcu /v libv

2010-05-13 21:56:00 500

原创清除挂马网址

每个htm文件最后都被加上了一下命令用来将其去掉F:/javascript>for %i in (*.htm) do for /f "delims=`" %j in (%i) do @if not "%j"=="" echo %j >>%i.txt一下命令把.htm.txt改为.htmF:/javascript>for %i in (*.txt) do ren %i %~ni

2010-05-13 21:55:00 356

原创 treeview 无限分级（c# dataview)

表结构id name pid0 root -11 tom 0.... public void ShowTree()//利用dataview ，更高效，更省资源，读一次数据库即可 { Maticsoft.BLL.TREE tr

2010-05-13 21:31:00 1198

原创在存储过程中用ole对象(Scripting.FileSystemObject)读写文件

--注意:1.表的字段都改为字符型！！;2.默认的表名为gic_comp和gic_secur；3.如果出现截断的情况，--应该是值的长度和表中定义的长度不一样。更改表的字段的定义,长度改长就可以.--更改系统配置，允许使用OLE对象sp_configure show advanced,1goreconfiguregosp_configure ole automation procedures

2010-03-04 10:37:00 807

转载 Pivot研究

今天学习了SQL2005的PIVOT，PIVOT 关系运算符对表值表达式进行操作以获得另一个表。PIVOT 通过将表达式某一列中的唯一值转换为输出中的多个列来转换表值表达式，并在必要时对最终输出中所需的任何其余的列值执行聚合。记得我们在SQL2000中要用聚合和CASE语句完成一个行列转换吧，特别当待转成列的数据不定时，我们往往构造动态SQL，然后用EXEC来运

2010-02-05 15:10:00 623

原创关于登录名，用户名，角色，权限的学习笔记

select a.name,a.xtype,b.name,case action when 26 then references when 178 then create function when 193 then selectwhen 195 then insert when 196 then delete when 197 then update when 198

2009-12-25 15:49:00 884

原创带子查询的更新语句

create table [tb]([LINE] sql_variant,[ITEMID] varchar(3),[ID] int)insert [tb]select null,001,1 union allselect null,001,2 union allselect null,001,3 union allselect null,002,4 union allselect

2009-11-25 12:55:00 1039

转载只用一条语句删除重复数据--delete另类用法

--在sql2005下可以，sql2000不可以 create table tb(id int,name varchar(4))insert tb select 1,aaunion all select 1,aaunion all select 2,bbunion all select 3,bbunion all select 4,ccunion all select

2009-11-24 12:53:00 865

转载标识列不连续问题

--自增列通常在以下幾種情況而導致不連續if object_id(tb)is not null drop table tbgocreate table tb(ID int identity(0,1),name varchar(10)unique)--1插入失敗自動回滾insert tb([name]) select Ainsert tb([name]) select A/*錯誤原因訊

2009-11-24 12:18:00 541

原创 CTE递归

--create table tb(id int,name nvarchar(30),pid int)--insert into tb--select 1,辽宁省,0 union all--select 2,沈阳市,1 union all--select 3,大连市,1 union all--select 4,大东区,2 union all--select 5,沈河区,2 un

2009-11-24 12:06:00 495

原创 sql2005排名函数

--http://www.cnblogs.com/nokiaguy/archive/2009/02/05/1384860.htmlif object_id([tb]) is not null drop table [tb]go create table [tb]([name] varchar(10))insert [tb]select a union allselect a unio

2009-11-18 16:14:00 316