华芸智森-优快云博客

原创 SQLSERVER2000 用过程来模拟MDX分析报表的效果(2)

文字我就不写了.这篇只是 SQLSERVER2000 用过程来模拟MDX分析报表的效果(1) 的后续.我写了一个例子.供大家下载.地址:http://d.download.youkuaiyun.com/down/709167/MSTOP

2008-10-22 11:41:00 1541 1

转载 sqlserver2005的KPI展示控件开发详解

注意：这篇文章其实在几天前我已经写过，但是那是我的第一片文章，写的相当粗糙，很多东西都没有写详细，只是草草的提供了源码的下载，看到我的那篇点击量有点大，给了我不少安慰，因此决定重写KPI展示这片文章。没有深入了解过的朋友请继续往下看。关于sqlserver2005中的KPI特性，相信接触过sqlserver2005的BI的平台的朋友都有所耳闻。并且跟数据挖掘查看器一样，微

2008-10-14 12:37:00 1793

转载 sqlserver2005 数据挖掘控件研究

注意：对于本文提到的dll，因为微软没有公布，建议不要用于真实项目中去。否则以后使用中出现问题，将变的非常被动，本文仅作学习之用。对于搞Sqlserver2005BI的朋友来说，相信肯定看到过sqlserver自带的数据挖掘模型的查看器，但是他们仅仅限于sqlserver2005客户端，微软并没有给我们提供编程接口来使用这些优秀的数据挖掘模型的查看器。后来通过webcast我知道了微软

2008-10-14 12:32:00 2678 4

环境说明:本文提到的控件是在ASP.NET2.0环境下,分析服务对应的是SQLServer2005.支持三种挖掘模型，聚类，决策树和贝叶斯。对应的三个控件是：DMClusterViewer,DMDecisionTreeViewer和DMNaiveBayesViewer。如下图：演示出的结果大致分别如下（用自带的Adventure Works DW）：图为聚类：图为决策树图为贝叶斯对于数据挖掘现在理

2008-10-14 12:29:00 1815 1

转载 Analysis Services 微软Olap服务MDX函数应用举例

本文目的对丰富的函数集可以提供的强大功能有一个直观的认识看看Microsoft是怎样应用函数，也许可以参考借鉴；应用举例成员百分比分析函数：CurrentMember、Parent等；分析各城市的销售所占全部城市的总销售额百分比。WITHMEMBER Measures.[Unit Sales Percent] AS ((Store.CURRENTMEMBER,Measures.[

2008-10-14 02:15:00 2074 2

转载 Analysis Services MDX 中的重要概念

您可以使用多维表达式 (MDX) 查询多维数据或创建用于多维数据集的 MDX 表达式，但是需要先了解一下 Microsoft SQL Server 2005 Analysis Services (SSAS) 维度概念和术语。下面一节简要介绍了您需要了解的基本维度建模概念和术语。随后各节说明了如何应用这些概念。有关详细信息，请参阅 Microsoft TechNet 网站 SQL Serve

2008-10-14 02:12:00 2479

原创 SQLSERVER2000 用过程来模拟MDX分析报表的效果(1)

这个想法的产生比较特殊,当时我在某学会工作,我对数据仓库的学习也初见成效,也做了一两个基于数据仓库的产品,总觉得数据仓库部署比较麻烦,而我的客户仅仅是需要一张分析型的报表.他只要满足多维的旋转,聚合,产生一个层次性的报表就可以满足要求. 基于这种情况,我想:能不能在数据库下模拟一张这样的报表来满足用户的需要? 因为写过仓库下的二个基于WEB的展示组件,显示一个MDX返回的CellS

2008-10-11 21:42:00 1803

原创 VB.NET将CellSet转为DataTable

将CellSet转为DataTable. CellSet对象. DataTable Private Function AdoMdCellSetToDataTable(ByVal CellSet As Microsoft.AnalysisServices.Ad

2008-10-11 20:34:00 1363

原创 SQLSERVER2000下按任意的字段旋转的存储过程

---------------------------------------------------------------------------- -- 分段截取函数 ---------------------------------------------------------------------------- CREATE FUNCTION DBO.FUN_SplitStr

2008-10-11 00:33:00 922

原创 SQLSERVER2000中数据库物理优化

SQLSERVER数据表的记录重排物理优化方案该方案产生于2005年,当时我接手了某产业库的设计.我们在开发这个产品时,在数据库中引入了100万条记录作为开发版数据库.开发过程非常顺利,前台程序的测试速度也非常好.但我们在后来将当前的5亿条数据库追加到开发库进行测试时,发现无论什么情况,都无法从数据库中取出记录,发现在读取数据库时,磁盘灯一直在亮,而性能性能监视器里的CPU使用率很底.

2008-10-11 00:27:00 1276

原创 VB中窗体控件的值自动保存到INI文件中.

资源地址:http://d.download.youkuaiyun.com/down/681083/MSTOP第一次运行,在窗体的控件中输入不同的值.然后退出.再运行,你输入的值将会自动读到相应的控件中.//窗体 Private Sub Form_Load() On Error Resume Next Call GetIniToFrmControl(Me, "C

2008-10-10 23:44:00 3337

原创 VB 窗体的任何部分皆可拖动窗体

按窗体的任何部份皆可拖动窗体,假定窗体名为Form1 声明部份 Declare Function ReleaseCapture Lib "user32" () As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As

2008-10-10 23:19:00 1793

原创 VB设置软件开机启动.

如何设置软件自启动?调用一系列API函数Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongConst HKEY_LOCAL_MACHINE = Private Declare Function RegCreateKeyEx Lib "advapi32

2008-10-10 23:17:00 1596

原创 VB中启动控制面板命令

在VB中用Shell调用.如 Private Sub Form_Load() Shell "rundll32.exe desk.cpl,InstallScreenSaver c:/win/system/Flying Windows.scr"End Sub启动控制面板命令控制面板模块： control.exe命令： rundll32.exe she

2008-10-10 23:13:00 1200

原创 VB自定义文件COPY的类.

原代码地址:http://d.download.youkuaiyun.com/down/681014/MSTOP //================================ //MSTOP(陈建华) // 2001/03/16 //================================ Option Explic

2008-10-10 22:57:00 1260

原创 VB网络校时.

有时我们对某些场合,对系统时间的要求是很高的,例如:SQLSERVER服务器间的同步或文件同步.但计算机的时钟运行一段时间,会出现一个误差.时间长了,可能达分钟以上.下面程序可以解决这个问题.该程从各天文台或国家授时中心读取时间后,并设置为计算机的本地时间.误差在一秒以内. Option ExplicitDim SvrName(14) As String

2008-10-10 22:49:00 2542 1

原创 VB中对数据库的各种操作.

数据库操作(SmDbCtrl) Option ExplicitPublic DbStyle As StringDim CT As SmDataDiap ======================================================================== 创建一个SQLSERVER定

2008-10-10 22:38:00 5160 2

原创 VB中窗体操作.

窗口操作(SmWinCtrl) Option ExplicitPrivate Const HWND_TOP = 0Private Const HWND_BOTTOM = 1Private Const HWND_TOPMOST = -1Private Const HWND_NOTOPMOST = -2Private Const SWP

2008-10-10 22:36:00 1571

原创 VB中取各种系统路径名,格式化磁盘,建立快捷方式,鼠标的定位,移动

Option Explicit 系统操作(SmSysCls) Const SW_SHOW = 5Public Type SmPointAPI X As Long Y As LongEnd TypePrivate Declare Function EbExecuteLine Lib "vba6.

2008-10-10 22:34:00 2141 1

原创 VB注册表操作函数

Option Explicit 注册表操作(SmRegCtr) /类型. Public Enum RegDataType /REG_NONE = 0 未知类型 REG_SZ = 1 Unicode字符串 /REG_EXP

2008-10-10 22:33:00 2061

原创 VB对数字/字符数组的快速排序.查找.

数值与数组操作 Option Explicit 数值快速排序(从小到大) 函数:NumSortAZ 参数:Myarray Double数组,L 数组的左边界,R 数组右边界. 返回值:无例子: Public Sub NumSortAZ(ByRef Myarray, l As Long, R As Long)

2008-10-10 22:31:00 6202 4

原创 VB利用API进行媒体播放

媒体播放(SmMedia) Option ExplicitDim s As String, ShortPathName As StringPrivate Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPat

2008-10-10 22:29:00 1239

转载 VB取硬盘的物理信息(序列号,容量,转速,型号)

取硬盘的物理信息(序列号,容量,转速,型号)(smHDinfo) /网站：东方热讯：http://www.easthot.net /邮件：sales@easthot.net /2003.01.23 ***********************************************************************

2008-10-10 22:27:00 1960

原创 VB 磁盘信息,文件夹,文件操作

文件,文件夹操作类 /工程==>引用==>Microsoft Scripting Runtime Option ExplicitPrivate Const HKEY_CLASSES_ROOT = Private Const HKEY_CURRENT_USER = Private Const HKEY_LOCAL_MACHINE = Priv

2008-10-10 22:25:00 2066 1

原创 VB中自定义一个调色板

图形颜色类 Option ExplicitDim Colors() As VariantDim ColorToUse As Long 建立一个调色板. 函数名: CreateColorPal 入口参数: ColorPic As Object 说明:ColorPic 欲设置成调色板的对象名作用: 将一个对象设置成

2008-10-10 22:24:00 2747

原创 VB各种标准对话框

标准对话框(SmDialog) Option ExplicitPrivate Const RESOURCE_CONNECTED As Long = &H1Private Const RESOURCE_GLOBALNET As Long = &H2Private Const RESOURCE_REMEMBERED As Long = &H3

2008-10-10 22:21:00 1371

原创 VB汉字简繁体转换

简繁体转换(smBig2GB) Option ExplicitDim BigData As VariantDim GbData As Variant 将BIG码转为GB码函数:BigToGB 参数:BigStr BIG码字符串返回值:GB码字符串 Function BigToGB(BigStr As

2008-10-10 22:18:00 1832

原创 VB动态函数曲线的绘制

CTRL+T ==>Microsoft ScriptControl Option Explicit Public Y As Double Public X As Double 引用 Private Sub Command1_Click() Dim MathStr A

2008-10-10 22:16:00 2359 1

原创 VB 汉字拼音及声调

Private Sub Command1_Click() Text2 = "全拼+声调：" & GetChineseSpell(Text1, 0) & vbCrLf & "全拼：" & GetChineseSpell(Text1, 1) & vbCrLf & "拼音首字母：" & GetChineseSpell(Text1, 2)End Sub========

2008-10-10 22:14:00 2767

原创 VB字符串表达式计算函数.

这是一个VB6.0的字符串表达式计算函数. Private Function EvaluateExpr(ByVal expr As String) As Single Const PREC_NONE = 11 Const PREC_UNARY = 10 Const PREC_POWER = 9 Const

2008-10-10 22:11:00 6532 3

原创 VB取各颜色分量,将RGB转为HTML颜色.

//取各颜色分量 Public Function GetRedValue(COLOR As Long) As Integer 取得红色值 GetRedValue = COLOR And End FunctionPublic Function GetGreenValue(COLOR As Long) As Integer 取得绿色值

2008-10-10 21:58:00 2069