个人博客

sqlserver查询excel

zgc — 2026/1/15 15:54:06

SELECT *

FROM OPENROWSET('Microsoft.ACE.OLEDB.12.0',

'Excel 8.0;Database=E:\file\2026-01\2026年1月12日.xlsx;Extended Properties=Excel 8.0',

'SELECT * FROM [sheet1$]')

勒索病毒防范措施

zgc — 2025/11/20 2:22:06

勒索病毒防范措施

发布日期：2021-06-11 浏览次数：9971 发布者：

“勒索病毒风靡全球，病毒肆虐，让企业和单位，包括个人蒙受损失，让大家闻风色变，俗话说：“兵来将挡水来土掩”，病毒虽然猖獗，但是大家平时做好安全防护措施，增加安全意识，不要轻易打开陌生的邮件，包括广告内容，及时更新系统和打系统漏洞补丁，还有使用移动存储设备的时候，要升级病毒库，查杀U盘。在使用移动存储设备，先查杀，后使用原则，做好以下措施，感染勒索病毒或者其他变异病毒，概率会大大降低。大家养成良好的操作习惯。以下是防范勒索病毒措施；Windows客户端和服务器端同样适用。”

一、病毒定义：

勒索病毒，是一种新型电脑病毒，主要以邮件、程序木马、网页挂马的形式进行传播。该病毒性质恶劣、危害极大，一旦感染将给用户带来无法估量的损失。这种病毒利用各种加密算法对文件进行加密，被感染者一般无法解密，必须拿到解密的私钥才有可能破解。

2017年12月13日，“勒索病毒”入选国家语言资源监测与研究中心发布的“2017年度中国媒体十大新词语”。

从2018年初到9月中旬，勒索病毒总计对超过200万台终端发起过攻击，攻击次数高达1700万余次，且整体呈上升趋势。

二、传播途径：

勒索病毒文件一旦进入本地，就会自动运行，同时删除勒索软件样本，以躲避查杀和分析。接下来，勒索病毒利用本地的互联网访问权限连接至黑客的C&C服务器，进而上传本机信息并下载加密私钥与公钥，利用私钥和公钥对文件进行加密。除了病毒开发者本人，其他人是几乎不可能解密。加密完成后，还会修改壁纸，在桌面等明显位置生成勒索提示文件，指导用户去缴纳赎金。且变种类型非常快，对常规的杀毒软件都具有免疫性。攻击的样本以exe、js、wsf、vbe等类型为主，对常规依靠特征检测的安全产品是一个极大的挑战。

通过漏洞发起的攻击占攻击总数的87.7%。由于win7、xp等老旧系统存在大量无法及时修复的漏洞，而政府、企业、学校、医院等局域网机构用户使用较多的恰恰是win7、xp等老旧系统，因此也成为病毒攻击的重灾区，病毒可以通过漏洞在局域网中无限传播。相反，win10系统因为强制更新，几乎不受漏洞攻击的影响。

通过邮件与广告推广的攻击分别为7.4%、3.9%。虽然这两类传播方式占比较少，但对于有收发邮件、网页浏览需求的企业而言，依旧会受到威胁。

此外，对于某些特别依赖U盘、记录仪办公的局域网机构用户来说，外设则成为勒索病毒攻击的特殊途径。

三、攻击对象：

勒索病毒一般分两种攻击对象，一部分针对企业用户(如xtbl，wallet)，一部分针对所有用户。

四、病毒规律：

该类型病毒的目标性强，主要以邮件为传播方式。

勒索病毒文件一旦被用户点击打开，会利用连接至黑客的C&C服务器，进而上传本机信息并下载加密公钥和私钥。然后，将加密公钥私钥写入到注册表中，遍历本地所有磁盘中的Office 文档、图片等文件，对这些文件进行格式篡改和加密;加密完成后，还会在桌面等明显位置生成勒索提示文件，指导用户去缴纳赎金。

该类型病毒可以导致重要文件无法读取，关键数据被损坏，给用户的正常工作带来了极为严重的影响。

五、病毒分析

一般勒索病毒，运行流程复杂，且针对关键数据以加密函数的方式进行隐藏。以下为APT沙箱分析到样本载体的关键行为。

1、调用加密算法库。

2、通过脚本文件进行Http请求。

3、通过脚本文件下载文件。

4、读取远程服务器文件。

5、通过wscript执行文件。

6、收集计算机信息。

7、遍历文件。

六、病毒防御

1：关闭服务进程（杜绝445端口）

开始菜单-》控制面板-》管理工具-》服务-》Server,点击禁止，然后启动类型选择禁用。

2：注册表关闭勒索病毒服务

开始菜单-》运行-》REGEDIT

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NetBT\Parameters新建DWORD键值，数值数据填写为0，基数选择十六进制，确定即可。

3：开启防火墙，防微杜渐过滤危险端口

开始菜单-》控制面板-》管理工具-》高级安全Windows Defender防火墙-》入站规则-》-》新建规则-》端口-》TCP-》特定本地端口-》阻止连接-》（域和专用还有公用）-》下一步-》名称和描述（比如135 & 135端口过滤阻止），其他端口过滤同上方法。

4：组策略安全设置ip安全策略

开始菜单-》运行-》gpedit.msc,打开本地组策略编辑器。依次展开“计算机配置---windows设置---安全设置---ip安全策略，在本地计算机”

以关闭139端口为例（其他端口操作相同）：

在本地组策略编辑器右边空白处右键单击鼠标，选择“创建IP安全策略”，弹出IP安全策略向导对话框，单击下一步；在出现的对话框中的名称处写“关闭端口”（可随意填写），点击下一步；对话框中的“激活默认响应规则”选项不要勾选，然后单击下一步；勾选“编辑属性”，单击完成。在出现的“关闭端口属性”对话框中，选择“规则”选项卡，去掉“使用添加向导”前边的勾后，单击“添加”按钮。在出现的“关闭端口属性”对话框中，选择“规则”选项卡，去掉“使用添加向导”前边的勾后，单击“添加”按钮。出现添加对话框，名称出填“封端口”（可随意填写），去掉“使用添加向导”前边的勾后，单击右边的“添加”按钮. 在出现的“IP筛选器属性”对话框中，选择“地址”选项卡，“源地址”选择“任何”，“目标地址”选择“我的IP地址”；

选择“协议”选项卡，各项设置如图片中所示。设置好后点击“确定”。返回到“ip筛选器列表”，点击“确定”。返回到“新规则属性”对话框

在ip筛选器列表中选择刚才添加的“封端口”，然后选择“筛选器操作”选项卡，，去掉“使用添加向导”前面的勾，单击“添加”按钮

在“筛选器操作属性”中，选择“安全方法”选项卡，选择“阻止”选项；在“常规”选项卡中，对该操作命名，点确定.

选中刚才新建的“新建1”，单击关闭，返回到“关闭端口属性“对话框，确认“IP安全规则”中封端口规则被选中后，单击确定。

在组策略编辑器中，可以看到刚才新建的“关闭端口”规则，选中它并单击鼠标右键，选择“分配”选项，使该规则开始应用！

到此，大功告成，同样的方法你可以添加对任何你想限制访问的端口的规则。

“综上所述：增加个人网络安全意识，养成良好的上网习惯和日常操作习惯，安装杀毒软件和防火墙，升级病毒库，定期全盘杀毒，及时打系统漏洞补丁。定时做好数据备份，把重要数据加密转移到安全的存储介质上，比如云盘和移动硬盘。不要安装过多的应用软件，不要轻易打开陌生的电子邮件，不要点击陌生人给你发送的链接地址，不要访问不知名的网站，不要点击广告内容，使用移动存储设备，先查杀，后使用。”

修改服务器远程端口

zgc — 2025/11/20 2:20:27

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp]

"PortNumber"=dword:0000c1f7

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp]

"PortNumber"=dword:0000c1f7

2023-12-28 医保接口更新

zgc — 2023/12/28 15:17:22

加密内容。

门诊医生站安装包下载

zgc — 2023/11/22 23:42:08

mzysz_setup地方版本20200419_6.0.0.460.exe下载

电子病历一键安装下载

电子病历20231219 新版下载

电子病历20231219 新版下载提取码：fpao

电子病历系统一键安装20250117电子病历系统下载

20250117版本电子病历下载，新增功能，中医，西医首页增加转归情况。

RAD Studio 10.4.2 绿色版

zgc — 2021/2/27 21:26:32

一、绿色版介绍
绿色版为完全版，没做任何的精简，也没有做任何的改动！
绿色版不含任何破解，仅供研究，24小时后请自行删除，如需继续使用RAD Studio，请购买正版。

二、绿色版文件包说明
绿色版共包含4个文件包，分别为：
dotnetfx45_full_x86_x64.exe：Microsoft .NET Framework 4.5，必选
RAD Studio 10.4.2 绿色版.7z：基础包，必选
RAD Studio 10.4.2 PlatformSDKs.7z：Android SDK、Android NDK，可选
RAD Studio 10.4 Green 1.4.rar：绿化程序，必选

三、绿色版使用说明
1.安装Microsoft .NET Framework 4.5，只安装一次即可，Windows 10已自带，可以跳过此步
2.解压RAD Studio 10.4.2 绿色版.7z到任意目录
3.解压RAD Studio 10.4.2 PlatformSDKs.7z解压到绿色版的Extra目录(10.4\Extra\CatalogRepository\)
4.解压RAD Studio 10.4 Green 1.4.rar解压到绿色版目录下(10.4\RADStudioSydneyGreen.exe)
5.运行RADStudioSydneyGreen.exe可实现绿化和卸载

四、下载地址
Microsoft .NET Framework 4.5 官方下载地址：
下载地址：http://download.microsoft.com/download/b/a/4/ba4a7e71-2906-4b2d-a0e1-80cf16844f5f/dotnetfx45_full_x86_x64.exe

RAD Studio 10.4.2 绿色版.7z(3.69GB，解压后26.2GB)
下载地址：https://pan.baidu.com/s/1xmMoFKEt--Kud7_6lB7Dgg
提取码：je3q
MD5: 7C078BC1C78DE33A70F76D98A193E8F6
SHA1: 37F43F18E57FA6B5C8245169C2D024A26B047998

RAD Studio 10.4.2 PlatformSDKs.7z(2.31GB，解压后5.91GB)
下载地址：https://pan.baidu.com/s/1TdS9B2t4ymcwrRQwqZKBiw
提取码：40w3
MD5: 34DD02D1EDE2BF62580C76F424E72C2F
SHA1: ED3C5D4E35DAB4E8B8ED07582317A042734719E2

RAD Studio 10.4 Green 1.4.rar(965KB)
下载地址：https://pan.baidu.com/s/1_YYv2QiQRJRXolH1u80bsg
提取码：0tod
MD5: 837FF4733D85FF4F7C77B803804AEC32
SHA1: 5F81CFE8BB39A4F983A63C64050ACCAFE86193AF

RAD Studio 10.4 Green Update History
-1.4
    支持RAD Studio 10.4.2
-1.3
    支持RAD Studio 10.4.1
-1.2
    修正部分环境变量路径错误
-1.1
    修正关联文件路径错误
    修正帮助文件路径错误
    修正卸载会连同10.3一起卸载的错误
-1.0
    RAD Studio 10.4 绿化程序第一版

https://cloud.189.cn/t/RjmmEnZJfqqa (访问码:9g8i) 天翼云盘

转自:http://bbs.2ccc.com/topic.asp?topicid=605673

Page.ClientScript.RegisterStartupScript不执行问题【转】

zgc — 2020/12/17 17:31:03

c#后台使用Page.ClientScript.RegisterStartupScript在前台注册一段脚本提示，发现没有效果，寻寻觅觅，终于从度娘处找到了原因：

该页面多次使用到了Page.ClientScript.RegisterStartupScript(Type type, string key, string script)

问题就出在了参数key上，同一页面会按顺序执行Page.ClientScript.RegisterStartupScript(Type type, string key, string script)，如果key都为空或为相同的值，则会只执行第一个脚本，所以后面的就失效了。

Page.ClientScript.RegisterStartupScript(this.GetType(), "alertsuccess", "<script language='javascript'>SendSuccess();</script>");

  /// <summary>
            /// 显示消息提示对话框
            /// </summary>
            /// <param name="page">当前页面指针，一般为this</param>
            /// <param name="msg">提示信息</param>
            public static void Show(System.Web.UI.Page page, string msg)
            {
                //由于可能频繁调用，增加随机因子 2020-12-17
                Random rnd = new Random(1200);
                page.ClientScript.RegisterStartupScript(page.GetType(), "message" + rnd.Next().ToString() + rnd.Next().ToString(), "<script language='javascript' defer>alert('" + msg.ToString() + "');</script>");
            }

转自：https://www.cnblogs.com/wufeng123/p/4459542.html

【转】bootstrap输入验证

zgc — 2020/12/4 14:26:09

下载并复制bootstrap验证css以及js到项目

创建自己的验证myValidater.js：

function validate(form) {
    var validateObj = {
        message: 'This value is not valid',
        feedbackIcons: {
            valid: 'glyphicon glyphicon-ok',
            invalid: 'glyphicon glyphicon-remove',
            validating: 'glyphicon glyphicon-refresh'
        }, fields: {}
    };
    //    (数组,  方法(下标，对象){});
    $.each(form.find("input"), function (i, item) {
        /* 
    fields:{    
                userName: {
                      message: '用户名验证失败',  
                      validators: {
                            notEmpty: {
                                message: '用户名不能为空'
                            }                    
                                 
                         }
              }
      }
         */
        var obj = {}; //存放验证规则
        obj.message = $(item).attr("name") + "必须填写";
        var validators = { };
        if (typeof ($(item).attr("myValidate")) == "undefined") {
        } else {
            var xiaoXi=$(item).parents("div.form-group").find("label").text();
            //非空验证
            if ($(item).attr("myValidate").indexOf("notEmpty") != -1) {
                validators.notEmpty = { message: xiaoXi+"不能为空" };
            }
            //数字
            if ($(item).attr("myValidate").indexOf("numeric") != -1) {
                validators.numeric = { message:xiaoXi+"必须是数字" };
            }
            /*  长度
            stringLength: {
                min: 6,
                max: 18,
                message: '用户名长度必须在6到18位之间'
            }
            */
            if ($(item).attr("myValidate").indexOf("stringLength") != -1) {
                var str = $(item).attr("myValidate");
                //2,10
                var val = str.substring(str.indexOf("(", str.indexOf("stringLength")) + 1, str.indexOf(")", str.indexOf("stringLength")));
                var stringLen = {};
                stringLen["min"] = val.split(",")[0];
                stringLen["max"] = val.split(",")[1];
 
                stringLen.message =xiaoXi + "长度必须为" + val.split(",")[0] + "到" + val.split(",")[1] + "之间";
                validators.stringLength = stringLen;
            }
            //长度必须几位
            if ($(item).attr("myValidate").indexOf("size") != -1) {
                var str = $(item).attr("myValidate");
                //2,10
                var val = str.substring(str.indexOf("(", str.indexOf("size")) + 1, str.indexOf(")", str.indexOf("size")));
                var stringLen = {};
                stringLen["min"] = val;
                stringLen["max"] = val;
                stringLen.message =xiaoXi + "长度必须为" + val+ "位";
                validators.stringLength = stringLen;
            }
            /*
            regexp: {
                            regexp: /^[a-zA-Z0-9_]+$/,
                            message: '用户名只能包含大写、小写、数字和下划线'
                        }
             */
            if ($(item).attr("myValidate").indexOf("nameregexp") != -1) {
                var reg = {};
                reg.regexp = /^[a-zA-Z0-9_\.]+$/;
                reg.message =xiaoXi+"必须为数字或者下划线，不能为特殊字符";
                validators.regexp = reg;
            }
            /* 邮箱
             *  emailAddress: {
                            message: '邮箱地址格式有误'
                        }
             */
            if ($(item).attr("myValidate").indexOf("email") != -1) {
                validators.emailAddress = { message: "电子邮箱地址不正确" };
            }
            //网址
            if ($(item).attr("myValidate").indexOf("uri") != -1) {
                validators.uri = { allowLocal: "true", message: "Uri地址格式不正确" };
            }
           //两次输入的密码不一致
            /*
              identical: {
                         field: 'password', //需要进行比较的input name值
                         message: '两次密码不一致'
                     }
             */
            if ($(item).attr("myValidate").indexOf("identical") != -1) {
                var str = $(item).attr("myValidate");
                var val = str.substring(str.indexOf("(", str.indexOf("identical")) + 1, str.indexOf(")", str.indexOf("identical")));
                validators.identical = {
                    field: val,
                    message: '密码和重复密码不一致'
                };
            }
            /*
             * 年龄
             */
            if ($(item).attr("myValidate").indexOf("ages") != -1) {
                var val = str.substring(str.indexOf("(", str.indexOf("ages")) + 1, str.indexOf(")", str.indexOf("ages")));
                var stringLen = {};
                stringLen["min"] = val.split(",")[0];
                stringLen["max"] = val.split(",")[1];
                 
                var age = {
                    lessThan: {
                        value: stringLen[1],
                        inclusive: true,
                        message: '年龄最高'+stringLen[1]
                    },
                    greaterThan: {
                        value: stringLen[0],
                        inclusive: false,
                        message: '年龄最小'+stringLen[0]
                    }
                };
                validators.ages = age;
            }
            //remote ajax验证，验证是否存在
            /*
             remote: {//ajax验证。server result:{"valid",true or false} 向服务发送当前input name值，获得一个json数据。例表示正确：{"valid",true} 
                     url: 'exist2.do',//验证地址
                     message: '用户已存在',//提示消息
                     type: 'POST'//请求方式
                     /**自定义提交数据，默认值提交当前input value
                      *  data: function(validator) {
                           return {
                               password: $('[name="passwordNameAttributeInYourForm"]').val(),
                               whatever: $('[name="whateverNameAttributeInYourForm"]').val()
                           };
                        }
            */           
            // remote(地址.action, input=id=主键的值)   新增：员工登录名.action?empNo=0&empName=姓名
            if ($(item).attr("myValidate").indexOf("remote") != -1) {
                var str = $(item).attr("myValidate");
                var val = str.substring(str.indexOf("(", str.indexOf("remote")) + 1, str.indexOf(")", str.indexOf("remote")));
                var arr=val.split(",");
                //向远程服务器发送的值
                var cust_data={};
                //主键如果有就取值，如果没有就为0
                cust_data[arr[1]]=$("#"+arr[1]).val() || 0;
                //name="empName"
                cust_data[$(item).attr("name")]=$(item).val();
                validators.remote = {
                    type:'POST',
                    url: arr[0],
                    data:cust_data,
                    message: xiaoXi+'已经存在!'
                };
            }
            obj.validators = validators;
            validateObj.fields[$(item).attr("name")] = obj;
        }
    })
    form.bootstrapValidator(validateObj);
}

在页面中导入验证的css和js：

<!-- bootstrapvalidator的css -->
  <link href="${pageContext.request.contextPath }/static/plugins/bootstrapvalidator/bootstrapValidator.min.css" rel="stylesheet"><!-- bootstrapvalidator的js -->
    <script src="${pageContext.request.contextPath }/static/plugins/bootstrapvalidator/bootstrapValidator.min.js"></script>
    <script src="${pageContext.request.contextPath }/static/plugins/bootstrapvalidator/language/zh_CN.js"></script>
    <script src="${pageContext.request.contextPath }/static/plugins/bootstrapvalidator/myValidater.js"></script>

在input标签中：

<input type="text" id="startTime" name="startTime"  myValidater="notEmpty"   class="form-control form_datetime" placeholder="请选择日期" />

在javascript中：

 <script type="text/javascript">
    $(function(){         //bootstrapvalidator验证
          validate( $("form") );
    });

转自：https://www.cnblogs.com/by-1642146903/articles/7143596.html

【转】bootstrap 轮播图片

zgc — 2020/11/27 16:41:01

<!DOCTYPE html>
<html>
<head>
  <title>Bootstrap 实例</title>
  <meta charset="utf-8">
  <meta name="viewport" content="width=device-width, initial-scale=1">
  <link rel="stylesheet" href="https://cdn.staticfile.org/twitter-bootstrap/4.3.1/css/bootstrap.min.css">
  <script src="https://cdn.staticfile.org/jquery/3.2.1/jquery.min.js"></script>
  <script src="https://cdn.staticfile.org/popper.js/1.15.0/umd/popper.min.js"></script>
  <script src="https://cdn.staticfile.org/twitter-bootstrap/4.3.1/js/bootstrap.min.js"></script>
  <style>
  /* Make the image fully responsive */
  .carousel-inner img {
      width: 100%;
      height: 100%;
  }
  </style>
</head>
<body>

<div id="demo" class="carousel slide" data-ride="carousel">
 
  <!-- 指示符 -->
  <ul class="carousel-indicators">
    <li data-target="#demo" data-slide-to="0" class="active"></li>
    <li data-target="#demo" data-slide-to="1"></li>
    <li data-target="#demo" data-slide-to="2"></li>
  </ul>
 
  <!-- 轮播图片 -->
  <div class="carousel-inner">
    <div class="carousel-item active">
      <img src="https://static.runoob.com/images/mix/img_fjords_wide.jpg">
    </div>
    <div class="carousel-item">
      <img src="https://static.runoob.com/images/mix/img_nature_wide.jpg">
    </div>
    <div class="carousel-item">
      <img src="https://static.runoob.com/images/mix/img_mountains_wide.jpg">
    </div>
  </div>
 
  <!-- 左右切换按钮 -->
  <a class="carousel-control-prev" href="#demo" data-slide="prev">
    <span class="carousel-control-prev-icon"></span>
  </a>
  <a class="carousel-control-next" href="#demo" data-slide="next">
    <span class="carousel-control-next-icon"></span>
  </a>
 
</div>

</body>
</html>

转载：https://www.runoob.com/try/try.php?filename=trybs4_carousel

卓越his专用后台划价服务版

zgc — 2020/9/28 11:36:54

后台划价服务版程序，需要。netframwork4.0。

delphi 服务管理单元

zgc — 2020/8/9 18:51:15

unit Unit_SvcMgr;

interface

uses
  Windows,SysUtils,SvcMgr,Registry,ADODB,Classes,StrUtils,ActiveX,WinSvc,IniFiles;

type

  TINIReader=class(TObject)
  private
    FReader:TIniFile;
    FInstanceName,FInstanceData,FInstanceLog: string;
    FPort: string;
    FInstanceApp:string;
    function GetLogName:string;
    function GetAppPath: string;
  public
    constructor Create(const FileName:string);overload;
    destructor Destroy;override;
    property AppPath:string read GetAppPath;
    property InstanceName:string read FInstanceName;
    property InstanceApp:string read FInstanceApp;
    property InstanceData:string read FInstanceData;
    property InstanceLog:string read FInstanceLog;
    property Port:string read FPort;
    property LogName:string read GetLogName;
  end;

  TLsSvcCenter = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
    procedure ServiceCreate(Sender: TObject);
  private
    FHProcess:THandle;
    FInstanceName,FCommandLine:string;
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

const
  _MDACVersion='数据访问组件版本:';
  _InstanceName='数据库当前实例名:';
  _ListenPort='数据服务访问端口:';
  _ServiceCaption='服务信息';
  _ServiceName='LsSvcCenter';
  _ServiceDisplayName='Ls Service Manager';
  _SectionName='ServerCnfg';
  _DefaultLocalTestConnStr='Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=127.0.0.1,';
  
var
  LsSvcCenter: TLsSvcCenter;

implementation

{$R *.DFM}

{ TINIReader }

function FileNameToLong(const AFileName: string): string;
var
  Buf: PChar;
  BufSize: Integer;
begin
  BufSize := GetShortPathName(PChar(AFileName), nil, 0) + 1;
  GetMem(Buf, BufSize);
  try
    GetShortPathName(PChar(AFileName), Buf, BufSize);
    Result := Buf;
  finally
    FreeMem(Buf);
  end;
end;

constructor TINIReader.Create(const FileName:string);
begin
  FReader:=TIniFile.Create(FileName);
  try
    FInstanceApp:=FileNameToLong(AppPath+'BINN\')+'sqlservr.exe';
    FInstanceData:=FileNameToLong(AppPath+'DATA\');
    FInstanceLog:=FileNameToLong(AppPath+'LOG\');
    FInstanceName:=FReader.ReadString(_SectionName,'InstanceName','LSSOFT');
    FPort:=FReader.ReadString(_SectionName,'Port','17717');
  finally
    FreeAndNil(FReader);
  end;
end;

destructor TINIReader.Destroy;
begin
  inherited;
end;

function TINIReader.GetAppPath: string;
begin
  Result:=ExtractFilePath(ParamStr(0));
end;

function TINIReader.GetLogName: string;
begin
  Result:=AppPath+'LOG\Log.TXT';
end;

procedure WriteLog(S: string);
var
  FHandle: THandle;
  i: integer;
begin
  try
    FHandle := CreateFile(PChar(ExtractFilePath(ParamStr(0))+'Log.txt'), GENERIC_WRITE,
      0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
    if (FHandle = 0) or (FHandle = INVALID_HANDLE_VALUE) then
    begin
      FHandle := CreateFile(PChar(ExtractFilePath(ParamStr(0))+'Log.txt'), GENERIC_WRITE,
        0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
      if (FHandle = 0) or (FHandle = INVALID_HANDLE_VALUE) then
      begin
        Exit;
      end;
    end;
    SetFilePointer(FHandle, 0, nil, FILE_END);
    s := FormatDateTime('yyyy-mm-dd hh:nn:ss ', NOW)+s + #13#10;
    WriteFile(FHandle, s[1], Length(s), LongWord(i), nil);
    CloseHandle(FHandle);
  except
  end;
end;

function GetMDACVersion: string;
var
  RegReader:TRegistry;
begin
  RegReader:=TRegistry.Create;
  try
    RegReader.RootKey:=HKEY_LOCAL_MACHINE;
    RegReader.OpenKey('SOFTWARE\Microsoft\DataAccess',False);
    Result:=RegReader.ReadString('FullInstallVer');
    RegReader.CloseKey;
  finally
    FreeAndNil(RegReader);
  end;
end;

function InstallService(const ServiceName,DisplayName:string):Boolean;
var
  Mgr,Svc:integer;
begin
  Mgr:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
  if Mgr<>0 then
  begin
    Svc:=WinExec(PChar('sc create '+ServiceName+' binpath= "'+ExtractFilePath(ParamStr(0))+'LsServer.exe"'+' start= auto DisplayName= "'+DisplayName+'"'),SW_HIDE);
    Result:=Svc>31;
    CloseServiceHandle(Mgr);
  end else Result:=False;
end;

function StopService(const ServiceName:string):Boolean;
var
  Mgr, Svc: Integer;
  SvcState:TServiceStatus;
begin
  Result:=True;
  try
    Mgr:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
    if Mgr<>0 then
    begin
      Svc := OpenService(Mgr, PChar(ServiceName), SERVICE_ALL_ACCESS);
      if Svc<>0 then
      begin
        if QueryServiceStatus(Svc,SvcState) then
        begin
          if SvcState.dwCurrentState=SERVICE_RUNNING then
            ControlService(Svc,SERVICE_CONTROL_STOP,SvcState);
        end;
        CloseServiceHandle(Svc);
      end;
      CloseServiceHandle(Mgr);
    end;
  except on E:Exception do
    begin
      WriteLog(E.Message);
      Result:=False;
    end;
  end;
end;

function _StartService(const ServiceName:string):Boolean;
var
  Mgr, Svc: Integer;
  SAV:PChar;
  SvcState:TServiceStatus;
begin
  Result:=True;
  try
    Mgr:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
    if Mgr<>0 then
    begin
      Svc := OpenService(Mgr, PChar(ServiceName), SERVICE_ALL_ACCESS);
      if Svc<>0 then
      begin
        if QueryServiceStatus(Svc,SvcState) then
        begin
          if SvcState.dwCurrentState=SERVICE_STOPPED then
            StartService(Svc,0,SAV);
        end;
        CloseServiceHandle(Svc);
      end
      else
      begin
        //如果服务不存在一直安装服务
        while True do
        begin
          InstallService(_ServiceName,_ServiceDisplayName);
          Svc := OpenService(Mgr, PChar(ServiceName), SERVICE_ALL_ACCESS);
          if Svc<>0 then
          begin
            if QueryServiceStatus(Svc,SvcState) then
            begin
              if SvcState.dwCurrentState=SERVICE_STOPPED then
                StartService(Svc,0,SAV);
            end;
            CloseServiceHandle(Svc);
            Break;
          end;
          Sleep(2000);
        end;
      end;
      CloseServiceHandle(Mgr);
    end;
  except on E:Exception do
    begin
      WriteLog(E.Message);
      Result:=False;
    end;
  end;
end;

function UnInstallService(const ServiceName:string):Boolean;
var
  Mgr, Svc: Integer;
  SvcState:TServiceStatus;
begin
  Result:=True;
  try
    Mgr:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
    if Mgr<>0 then
    begin
      Svc := OpenService(Mgr, PChar(ServiceName), SERVICE_ALL_ACCESS);
      if Svc<>0 then
      begin
        if QueryServiceStatus(Svc,SvcState) then
        begin
          if SvcState.dwCurrentState=SERVICE_RUNNING then
            ControlService(Svc,SERVICE_CONTROL_STOP,SvcState);
        end;
        DeleteService(Svc);
        CloseServiceHandle(Svc);
      end;
      CloseServiceHandle(Mgr);
    end;
  except on E:Exception do
    begin
      WriteLog(E.Message);
      Result:=False;
    end;
  end;
end;

function StartMSSQL(const CommandLine:string;var HProcess:THandle):Boolean;
var
  PROCESSINFORMATION:_PROCESS_INFORMATION;
  STARTUPINFO:TStartupInfo;
begin
  FillChar(STARTUPINFO, SizeOf(STARTUPINFO), 0);
  STARTUPINFO.cb := SizeOf(STARTUPINFO);
  Result:=CreateProcess(
          nil,
          PChar(CommandLine),
          nil,
          nil,
          True,
          CREATE_NO_WINDOW,
          nil,
          nil,
          STARTUPINFO,
          PROCESSINFORMATION);
  if Result then HProcess:=PROCESSINFORMATION.hProcess;
end;

function SetupServiceDescription(const SvcName,Description:string):Boolean;
var
  Reg:TRegistry;
begin
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SYSTEM\ControlSet001\Services\'+SvcName+'\',True);
    Reg.WriteString('Description',Description);
    Reg.CloseKey;
    Result:=True;
  finally
    FreeAndNil(Reg);
  end;
end;

function RemoveServiceDescription(const SvcName:string):Boolean;
var
  Reg:TRegistry;
begin
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SYSTEM\ControlSet001\Services\'+SvcName+'\',False);
    Reg.DeleteValue('Description');
    Reg.DeleteKey(SvcName);
    Reg.CloseKey;
    Result:=True;
  finally
    FreeAndNil(Reg);
  end;
end;

function SetupRegistry(const InstanceName,Port:string):Boolean;
var
  Reg:TRegistry;
  Buffer:array[0..162] of Char; //ID
begin
  Result:=True;
  Buffer:='8022c158ae7d4cd750da034b7dc20c80e66110850d0744b9e3148563a'+
          '6613a257dc2ee02c012f12d040bbad9060549ea11a714aec63d6452c5'+
          '5e27d82d71307227edf7f0cf15d88d1a1e3222949d7bea02';
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Microsoft\Microsoft SQL Server',True);
    Reg.CloseKey;

    Reg.OpenKey('SOFTWARE\Microsoft\Microsoft SQL Server\'+InstanceName,True);
    Reg.CloseKey;

    Reg.OpenKey('SOFTWARE\Microsoft\Microsoft SQL Server\'+InstanceName+'\MSSQLServer',True);
    Reg.CloseKey;

    Reg.OpenKey('SOFTWARE\Microsoft\Microsoft SQL Server\'+InstanceName+'\Setup',True);//不是必需要的,进程会读取该键值
    Reg.CloseKey;

    Reg.OpenKey('SOFTWARE\Microsoft\Microsoft SQL Server\'+InstanceName+'\MSSQLServer\CurrentVersion',True);
    Reg.WriteBinaryData('checksum',Buffer,SizeOf(Buffer));
    Reg.WriteString('CurrentVersion','8.00.194');
    Reg.CloseKey;

    Reg.OpenKey('SOFTWARE\Microsoft\Microsoft SQL Server\'+InstanceName+'\MSSQLServer\SuperSocketNetLib',True);
    Reg.CloseKey;

    Reg.OpenKey('SOFTWARE\Microsoft\Microsoft SQL Server\'+InstanceName+'\MSSQLServer\SuperSocketNetLib\Np',True);
    Reg.WriteString('PipeName','\\.\pipe\MSSQL$'+InstanceName+'\sql\query');
    Reg.CloseKey;

    Reg.OpenKey('SOFTWARE\Microsoft\Microsoft SQL Server\'+InstanceName+'\MSSQLServer\SuperSocketNetLib\Tcp',True);
    Reg.WriteString('TcpDynamicPorts',Port);
    Reg.WriteInteger('TcpHideFlag',0);
    Reg.WriteString('TcpPort',Port);
    Reg.CloseKey;

  finally
    FreeAndNil(Reg);
  end;
end;

function LocalADOTest(const ConnStr,LogName,ServerName:string): Boolean;
var
  FADOExec:TADOQuery;
  FADOConnection:TADOConnection;
  DBList:TStringList;
  i,j:integer;
  S:string;
  function ExtractDBName(S:string):string;
  var
    Pos:integer;
  begin
    Pos:=LastDelimiter('.',S);
    Result:=MidBStr(S,0,Pos-1);
  end;

  function IsFileUsing(const AName: string): Boolean;
  var
    HFileRes: HFILE;
  begin
    Result := False;
    if not FileExists(AName) then Exit;
    HFileRes := CreateFile(PCHAR(AName), GENERIC_READ or GENERIC_WRITE,
    0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
    Result := (HFileRes = INVALID_HANDLE_VALUE);
    if not Result then CloseHandle(HFileRes);
  end;

  procedure GetDBList(StringList:TStringList;FileMask:string);
  var
    Dir:string;
    SearchRec:TSearchRec;
  begin
    Dir:=ExtractFilePath(ParamStr(0))+'UDATA\';
    FindFirst(Dir+FileMask,faAnyFile,SearchRec);
    if not SameText(SearchRec.Name,'') then StringList.Add(SearchRec.Name);
    while FindNext(SearchRec)=0 do
    begin
      StringList.Add(SearchRec.Name);
    end;
  end;

begin
  try
    j:=0;
    DBList:=TStringList.Create;
    FADOConnection:=TADOConnection.Create(nil);
    FADOExec:=TADOQuery.Create(nil);
    FADOConnection.LoginPrompt:=False;
    FADOConnection.ConnectionString:=ConnStr;
    //如果连接失败尝试连接5次
    while True do
    begin
      Inc(j);
      if (FADOConnection.Connected) or (j>5) then Break;
      Sleep(1000);
      try
        FADOConnection.Open;
      except
      end;
    end;
    try
      if not IsFileUsing(LogName) then DeleteFile(LogName);
      DBList.Clear;
      GetDBList(DBList,'*.MDF');
      
      for i:=0 to DBList.Count-1 do
      begin
        S:=S+'INSERT INTO sysaltfiles(fileid,groupid,size,maxsize,growth,status,perf,dbid,name,filename) VALUES(1,1,128,-1,10,32770,0,'+InTToStr(i+5)+','+QuotedStr(ExtractDBName(DBList[i]))+','+QuotedStr('.\..\'+'UDATA\'+DBList[i])+')'+#13#10#13#10;
        S:=S+'INSERT INTO sysaltfiles(fileid,groupid,size,maxsize,growth,status,perf,dbid,name,filename) VALUES(2,0,128,-1,10,49218,0,'+InTToStr(i+5)+','+QuotedStr(ExtractDBName(DBList[i])+'_Log')+','+QuotedStr('.\..\'+'UDATA\'+ExtractDBName(DBList[i])+'_Log.LDF')+')'+#13#10#13#10;
        S:=S+'INSERT INTO sysdatabases(name,dbid,mode,status,status2,crdate,reserved,category,cmptlevel,filename) VALUES('+QuotedStr(ExtractDBName(DBList[i]))+','+InTToStr(i+5)+',0,1077936153,1090519040,GETDATE(),1900-1-1,0,80,'+QuotedStr('.\..\'+'UDATA\'+DBList[i])+')'+#13#10#13#10;
      end;

      FADOExec.SQL.Clear;
      FADOExec.SQL.Add('USE master');
      FADOExec.SQL.Add('exec sp_configure ''allow updates'',1');
      FADOExec.Connection:=FADOConnection;
      FADOExec.ExecSQL;
      Sleep(200);
      FADOExec.SQL.Clear;
      FADOExec.SQL.Add('RECONFIGURE WITH OVERRIDE');
      FADOExec.Connection:=FADOConnection;
      FADOExec.ExecSQL;
      Sleep(200);
      try
        FADOConnection.BeginTrans;
        FADOExec.SQL.Clear;
        FADOExec.SQL.Add('DELETE FROM sysdatabases WHERE name NOT IN(''master'',''model'',''msdb'',''tempdb'')');
        FADOExec.SQL.Add('DELETE FROM sysaltfiles WHERE dbid>=5');
        FADOExec.SQL.Add('UPDATE sysservers SET srvname='+ServerName+',datasource='+ServerName);
        if not SameText(S,'') then FADOExec.SQL.Add(S);
        FADOExec.Connection:=FADOConnection;
        FADOExec.ExecSQL;
        FADOConnection.CommitTrans;
      except on E:Exception do
        begin
          FADOConnection.RollbackTrans;
          WriteLog(E.Message);
          Result:=False;
        end;
      end;
      Sleep(200);
      FADOExec.SQL.Clear;
      FADOExec.SQL.Add('exec sp_configure ''allow updates'',0');
      FADOExec.Connection:=FADOConnection;
      FADOExec.ExecSQL;
      Sleep(200);
      FADOExec.SQL.Clear;
      FADOExec.SQL.Add('RECONFIGURE WITH OVERRIDE');
      FADOExec.Connection:=FADOConnection;
      FADOExec.ExecSQL;

      Result:=True;
    finally
      FADOExec.Close;
      FADOConnection.Close;
      FreeAndNil(FADOExec);
      FreeAndNil(FADOConnection);
      FreeAndNil(DBList);
    end;
  except on E:Exception do
    begin
      WriteLog(E.Message);
      Result:=False;
    end;
  end;
end;

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  LsSvcCenter.Controller(CtrlCode);
end;

function TLsSvcCenter.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TLsSvcCenter.ServiceStart(Sender: TService;
  var Started: Boolean);
var
  FINIReader:TINIReader;
begin
  FINIReader:=TINIReader.Create(ExtractFilePath(ParamStr(0))+'\Config.INI');
  try
    FInstanceName:=FINIReader.InstanceName;
    if SetCurrentDir(ExtractFilePath(ParamStr(0))+'BINN\') then //一定要设置当前路径
    begin
      SetupRegistry(FINIReader.InstanceName,FINIReader.Port); //安装注册表
      Sleep(1000);
      FCommandLine:=FINIReader.InstanceApp+' -c -d'+FINIReader.InstanceData+'master.mdf'+' -l'
      +FINIReader.InstanceData+'mastlog.ldf'+' -e'+FINIReader.InstanceLog+'Log.txt'+' -s'
      +FINIReader.InstanceName+' Port='+FINIReader.Port;
      StartMSSQL(FCommandLine,FHProcess); //启动服务
      Sleep(6000);
      //重新启动数据库
      CoInitialize(nil);
      LocalADOTest(_DefaultLocalTestConnStr+FINIReader.Port,FINIReader.LogName,QuotedStr('127.0.0.1'+','+FINIReader.Port));
      CoUninitialize;
      Started:=True;
    end;
  finally
  //释放对象
    FreeAndNil(FINIReader);
  end;
end;

procedure TLsSvcCenter.ServiceStop(Sender: TService;
  var Stopped: Boolean);
begin
  //卸载注册表
  WinExec(PChar('REG DELETE '+'"HKLM\SOFTWARE\Microsoft\Microsoft SQL Server\'+FInstanceName+'" /f'),SW_HIDE);
  //停止SQLServer服务器
  TerminateProcess(FHProcess,1);
  //
  Stopped:=True;
end;

procedure TLsSvcCenter.ServiceCreate(Sender: TObject);
var
  CmdLine:string;
  FINIReader:TINIReader;
begin
  CmdLine:=ParamStr(1);
  if CmdLine='' then Exit;
  if SameText(CmdLine,'/IS') then  //安装服务
  begin
    InstallService(_ServiceName,_ServiceDisplayName);
    SetupServiceDescription(_ServiceName,'LsServer Manager Provider');
  end;
  if SameText(CmdLine,'/US') then  //卸载服务
  begin
    UnInstallService(_ServiceName);
    RemoveServiceDescription(_ServiceName);
  end;
  if SameText(CmdLine,'/SS') then  //停止服务
  begin
    StopService(_ServiceName);
  end;
  if SameText(CmdLine,'/LS') then  //启动服务
  begin
    _StartService(_ServiceName);
  end;
  if SameText(CmdLine,'/SI') then  //服务信息
  begin
    FINIReader:=TINIReader.Create(ExtractFilePath(ParamStr(0))+'\Config.INI');
    try
      MessageBox(0,PChar(_MDACVersion+GetMDACVersion+'    '+#13#10+
                   _InstanceName+FINIReader.InstanceName+'    '+#13#10+
                   _ListenPort+FINIReader.Port+'    '),_ServiceCaption,MB_OK+MB_ICONINFORMATION);
    finally
      FreeAndNil(FINIReader);
    end;
  end;
end;

end.

sql数据库工具

zgc — 2020/2/14 20:51:26

sql数据库管理工具。

附加、分离、备份、恢复，查询功能。

c# 操作ppt

zgc — 2020/2/1 12:56:48

.在项目中添加引用 Microsoft PowerPoint 14.0 Object Library2. using Microsoft.Office.Interop.PowerPoint;
1.创建一个PPT，添加一个空白页

Microsoft.Office.Interop.PowerPoint.Application PPT = new Microsoft.Office.Interop.PowerPoint.Application();//创建PPT应用
Microsoft.Office.Interop.PowerPoint.Presentation MyPres = null;//PPT应用的实例
Microsoft.Office.Interop.PowerPoint.Slide MySlide = null;//PPT中的幻灯片


MyPres = PPT.Presentations.Open("文件路径", MsoTriState.msoFalse, MsoTriState.msoFalse, MsoTriState.msoTrue);//此处将一个PPT实例给了MyPres

MySlide = MyPres.Slides.Add(1, Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutBlank);//像PPT实例中，添加一个空白页，位置是“第一页”

2.向PPT的幻灯片中添加元素

2.1文本框

Microsoft.Office.Interop.PowerPoint.TextRange MyTextRng = null;

MySlide.Shapes.AddTextbox(MsoTextOrientation.msoTextOrientationHorizontal, 21.5F, 365F, 670F, 270F);

MyTextRng = MySlide.Shapes[1].TextFrame.TextRange;//请注意此处Shapes的索引，由于文本框是第一个添加的Shapes，所以此处索引是1。

MyTextRng.Font.NameFarEast = "微软雅黑";//文本框中，中文的字体                   
MyTextRng.Font.NameAscii = "Calibri";//文本框中，英文和数字的字体      
MyTextRng.Text ="C#生成PPT";//显示的内容
MyTextRng.Font.Bold = MsoTriState.msoTrue;//是否加粗
MyTextRng.Font.Color.RGB = A+ B * 256 + C * 256 * 256;//字体颜色，其中ABC直接用自定义颜色中的数字代替即可。
MyTextRng.Characters(1, 10).Font.Size = 24;//个性化设计。第1个字符开始，长度为10的字符，字体大小是24.
MyTextRng.ParagraphFormat.Alignment = Microsoft.Office.Interop.PowerPoint.PpParagraphAlignment.ppAlignLeft;//文本对齐方式（水平方向）
MySlide.Shapes[1].TextFrame.VerticalAnchor = MsoVerticalAnchor.msoAnchorMiddle; 文本对齐方式（垂直方向）


心得：最重要的设置在Font属性中。其他设置，基本可以参考PPT中元素属性的设置方式来找到。比如我在写文本水平对齐方式时（左对齐，居中，右对齐），在PPT中，我们直接点击“段落”中的快捷键即可。所以我就找“段落”的英文，正好Alignment是对齐的意思，所以就找到了。


2.2 图形（矩形）

MySlide.Shapes.AddShape(MsoAutoShapeType.msoShapeRectangle, 8.5F, 6.5F, 705F, 525F);

MySlide.Shapes[1].Line.ForeColor.RGB = A + B * 256 + C * 256 * 256;//改变线条颜色
MySlide.Shapes[1].Fill.Transparency = 1;//控制填充色为透明
MySlide.Shapes[1].Line.Style = MsoLineStyle.msoLineSingle;//改变线型里的复合类型
MySlide.Shapes[1].Line.Weight = 1F;//改变线粗细
MySlide.Shapes[1].Shadow.Style = MsoShadowStyle.msoShadowStyleOuterShadow;//控制阴影类型
MySlide.Shapes[1].Shadow.ForeColor.RGB = 0;//控制阴影颜色
MySlide.Shapes[1].Shadow.Transparency = 0.6F;//控制透明度
MySlide.Shapes[1].Shadow.Size = 100F;//控制大小
MySlide.Shapes[1].Shadow.Blur = 4F;//控制虚化
MySlide.Shapes[1].Shadow.OffsetX = 2.1F;//控制距离；
MySlide.Shapes[1].Shadow.OffsetY = 2.1F;//与offsetX共同决定角度

心得：基本的一些设置，通过英文就可以辨别。不过有些属性的设置是否与预期一致，需要等图形生成后再进一步确认。


2.3 图片

MySlide.Shapes.AddPicture("文件路径", MsoTriState.msoFalse, MsoTriState.msoTrue, 27F, 24F, 665F, 333F);


2.4 表格

Microsoft.Office.Interop.PowerPoint.Table MyTable = null;

MyTable = MySlide.Shapes.AddTable(19, 5, 40F, 100F, 10F, 10F).Table;//创建时规定的宽和高，不是表格最终的大小。

MyTable.Cell(k, j).Shape.TextFrame.TextRange.Font.Size = 10;
MyTable.Cell(k, j).Shape.TextFrame.TextRange.Font.Color.RGB = A + B * 256 + C * 256 * 256;
MyTable.Cell(k, j).Shape.TextFrame.TextRange.Font.NameAscii = "Arial";
MyTable.Cell(k, j).Shape.TextFrame.TextRange.Font.NameFarEast = "微软雅黑";
MyTable.Cell(k, j).Shape.TextFrame.TextRange.Font.Bold = MsoTriState.msoTrue;
MyTable.Cell(k, j).Shape.TextFrame.TextRange.ParagraphFormat.Alignment = Microsoft.Office.Interop.PowerPoint.PpParagraphAlignment.ppAlignCenter;
MyTable.Cell(k, j).Shape.TextFrame.VerticalAnchor = MsoVerticalAnchor.msoAnchorMiddle;
MyTable.Cell(k, j).Shape.Fill.ForeColor.RGB = 0;
MyTable.Cell(k, j).Shape.TextFrame.TextRange.Text = "C#生成PPT";

这里的设置，几乎和文本框的设置一样。只不过需要先选定Cell。一些个性化的设计，比如合并拆分单元格，边框颜色，按照一般的英文意思都能找到。


2.5 图表

Microsoft.Office.Interop.PowerPoint.Chart MyChart = null;//图表
Microsoft.Office.Interop.PowerPoint.ChartData MyChartData = null;//图表的数据源
Microsoft.Office.Interop.PowerPoint.Axis MyYvalaxis = null;//图表的纵坐标
Microsoft.Office.Interop.PowerPoint.Axis MyXvalaxis = null;//图表的横坐标
Microsoft.Office.Interop.PowerPoint.DataLabels MyDataLabels = null;//图表的数据标签
Microsoft.Office.Interop.PowerPoint.Series MySeries = null;//数据系列
Microsoft.Office.Interop.PowerPoint.ChartGroups MyChartGroups = null;//数据系列-系列选项
Microsoft.Office.Interop.PowerPoint.Points MyPoints = null; //数据系列


MyChart = MySlide.Shapes.AddChart(Microsoft.Office.Core.XlChartType.xlColumnClustered, 35F, 205F, 642F, 227F).Chart;//添加柱形图

MyChartData = MyChart.ChartData;//实例化数据源

Microsoft.Office.Interop.Excel.Workbook MyDataWorkbook_2 = (Microsoft.Office.Interop.Excel.Workbook)MyChartData.Workbook;//由于PPT的数据源是EXCEL工作表，所以此处还要调用EXCEL。

MyDataWorkbook_2.Application.WindowState = XlWindowState.xlMinimized;//不想看那么多窗口，所以最小化了。

Microsoft.Office.Interop.Excel.Worksheet MyDataWorksheet_2 = (Microsoft.Office.Interop.Excel.Worksheet)MyDataWorkbook_2.Worksheets[1];//实例化工作表

Microsoft.Office.Interop.Excel.Range tRange_2 = MyDataWorksheet_2.Cells.get_Range("A1", "C10");//选定数据区域

Microsoft.Office.Interop.Excel.ListObject tbl1_2 = MyDataWorksheet_2.ListObjects[1];
tbl1_2.Resize(tRange_2);

//赋值  
((Microsoft.Office.Interop.Excel.Range)(MyDataWorksheet_2.Cells.get_Range("A2"))).FormulaR1C1 = "全国得分";
((Microsoft.Office.Interop.Excel.Range)(MyDataWorksheet_2.Cells.get_Range("A3"))).FormulaR1C1 = null;
                    
//图表标题
MyChart.ChartTitle.Delete();

//纵轴
MyYvalaxis = (Microsoft.Office.Interop.PowerPoint.Axis)MyChart.Axes(Microsoft.Office.Interop.PowerPoint.XlAxisType.xlValue, Microsoft.Office.Interop.PowerPoint.XlAxisGroup.xlPrimary);

MyYvalaxis.MajorGridlines.Delete();//删除主横网络线
MyYvalaxis.MajorUnit = 0.5F;
MyYvalaxis.MinimumScale = 0.0F;
MyYvalaxis.MaximumScale = 1.5F;
MyYvalaxis.Format.Line.ForeColor.RGB = A + B * 256 + C * 256 * 256; ;//坐标轴颜色
MyYvalaxis.Format.Line.Transparency = 1F;//坐标轴是否透明；此句必须先指定颜色，否则无效              
MyYvalaxis.TickLabels.Delete();//删除坐标标签

//横轴
MyXvalaxis = (Microsoft.Office.Interop.PowerPoint.Axis)MyChart.Axes(Microsoft.Office.Interop.PowerPoint.XlAxisType.xlCategory, Microsoft.Office.Interop.PowerPoint.XlAxisGroup.xlPrimary);

MyXvalaxis.MajorTickMark = Microsoft.Office.Interop.PowerPoint.XlTickMark.xlTickMarkOutside;//主要刻度线类型
MyXvalaxis.Format.Line.Weight = 0.75F;//线型宽度
MyXvalaxis.Format.Line.ForeColor.RGB = A + B * 256 + C * 256 * 256;//线条颜色
MyXvalaxis.TickLabelPosition = Microsoft.Office.Interop.PowerPoint.XlTickLabelPosition.xlTickLabelPositionNone;

//图例
MyChart.Legend.Delete();

//数据标签格式和系列
//系列1
MySeries = (Microsoft.Office.Interop.PowerPoint.Series)MyChart.SeriesCollection(1);
MySeries.HasDataLabels = true;
MySeries.Format.Fill.ForeColor.RGB = A + B * 256 + C * 256 * 256;
MySeries.Format.Line.ForeColor.RGB = A + B * 256 + C * 256 * 256;
MySeries.Format.Line.Weight = 1.5F;

MySeries.Format.Shadow.Style = MsoShadowStyle.msoShadowStyleOuterShadow;//控制阴影类型
MySeries.Format.Shadow.ForeColor.RGB = 0;//控制阴影颜色
MySeries.Format.Shadow.Transparency = 0.6F;//控制透明度
MySeries.Format.Shadow.Size = 100F;//控制大小
MySeries.Format.Shadow.Blur = 4F;//控制虚化
MySeries.Format.Shadow.OffsetX = 2.1F;//控制距离； 
MySeries.Format.Shadow.OffsetY = 2.1F;//与offsetX共同决定角度

//柱子颜色
MyPoints = (Microsoft.Office.Interop.PowerPoint.Points)MySeries.Points();

MyPoints.Item(1).Format.Fill.ForeColor.RGB = A + B * 256 + B * 256 * 256;//系列1中，第1个柱子的颜色

//柱子距离
MyChartGroups = (Microsoft.Office.Interop.PowerPoint.ChartGroups)MyChart.ChartGroups();
MyChartGroups.Item(1).GapWidth = 50;

//数据标签
MyDataLabels = (Microsoft.Office.Interop.PowerPoint.DataLabels)MySeries.DataLabels();
MyDataLabels.Position = Microsoft.Office.Interop.PowerPoint.XlDataLabelPosition.xlLabelPositionOutsideEnd;
MyDataLabels.NumberFormat = "0.0%";
MyDataLabels.Format.TextFrame2.TextRange.Font.Size = 9F;
MyDataLabels.Format.TextFrame2.TextRange.Font.NameAscii = "Calibri";
MyDataLabels.Format.TextFrame2.TextRange.Font.Bold = MsoTriState.msoTrue;

//系列2
MySeries = (Microsoft.Office.Interop.PowerPoint.Series)MyChart.SeriesCollection(2);
MySeries.HasDataLabels = true;
MySeries.Format.Fill.ForeColor.RGB = A + B * 256 + C * 256 * 256;
MySeries.Format.Line.ForeColor.RGB = A + B * 256 + C * 256 * 256;
MySeries.Format.Line.Weight = 1.5F;

MySeries.Format.Shadow.Style = MsoShadowStyle.msoShadowStyleOuterShadow;//控制阴影类型
MySeries.Format.Shadow.ForeColor.RGB = 0;//控制阴影颜色
MySeries.Format.Shadow.Transparency = 0.6F;//控制透明度
MySeries.Format.Shadow.Size = 100F;//控制大小
MySeries.Format.Shadow.Blur = 4F;//控制虚化
MySeries.Format.Shadow.OffsetX = 2.1F;//控制距离
MySeries.Format.Shadow.OffsetY = 2.1F;//与offsetX共同决定角度

//柱子距离
MyChartGroups = (Microsoft.Office.Interop.PowerPoint.ChartGroups)MyChart.ChartGroups();
MyChartGroups.Item(1).GapWidth = 50;

//数据标签
MyDataLabels = (Microsoft.Office.Interop.PowerPoint.DataLabels)MySeries.DataLabels();
MyDataLabels.Position = Microsoft.Office.Interop.PowerPoint.XlDataLabelPosition.xlLabelPositionOutsideEnd;
MyDataLabels.NumberFormat = "0.0%";
MyDataLabels.Format.TextFrame2.TextRange.Font.Size = 9F;
MyDataLabels.Format.TextFrame2.TextRange.Font.NameAscii = "Calibri";
MyDataLabels.Format.TextFrame2.TextRange.Font.Italic = MsoTriState.msoTrue;

git for winxp

zgc — 2019/9/29 22:27:16

git for winxp

SQL查询分析器

zgc — 2019/9/29 21:36:05

SQL查询分析器

cefsharp 使用范例！

zgc — 2019/9/18 22:19:18

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using CefSharp;
using System.Security.Permissions;
using System.Runtime.InteropServices;
using System.Configuration;
using System.IO;

namespace WindowsFormsApplication1
{
    //[PermissionSet(SecurityAction.Demand, Name = "FullTrust")]
    //[ComVisible(true)]//COM+组件可见
    public partial class FrmWebCef : Form
    {
        public static string url="";
        public FrmWebCef(string _url)
        {
            InitializeComponent();
            try
            {
                url = ConfigurationManager.AppSettings["url"].ToString();
            }
            catch { }
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            CefSettings settings = new CefSettings();
            settings.Locale = "zh-CN";
            settings.CachePath = Directory.GetCurrentDirectory() + @"\Cache";
            //settings.AcceptLanguageList="zh-CN";
            settings.CefCommandLineArgs.Add("disable-application-cache", "1");
            settings.CefCommandLineArgs.Add("disable-session-storage", "1");
            if (!Cef.IsInitialized) Cef.Initialize(settings);
           // Cef.Initialize(settings);
           
            CefSharp.WinForms.ChromiumWebBrowser wb = new CefSharp.WinForms.ChromiumWebBrowser(url);
            wb.Dock = DockStyle.Fill;
           // CefSharp.CefSettings settings = new CefSharp.CefSettings();
           //// settings. = "zh-CN";
           // settings.Locale = "zh-CN";
////          <html><head><meta http-equiv="content-type" content="text/html;charset=GBK">
////</head><body><input type="text" value="send" id="input">
////<input type="button" value="send" id="button" onclick="Cl();">
////<script type="text/javascript">
////    document.getElementById('button').onclick = function () {
////        debugger;
////        alert('测试1');
////     //   window.extend.Close('测试');
        
////        window.parent.postMessage('this is test!index1', '*');
////    };
////    function Cl() {
////        debugger;
////        alert('测试');
////        parent.postMessage('this is test!index', '*');
////    }
////</script></body></html>
          // <html><head><meta http-equiv="x-ua-compatible" content="IE=10,chrome=1">
            //</head><body  style="margin:0;padding:0;overflow:hidden" scroll="no"><iframe width="100%" height="100%" marginwidth="0" marginheight="0" border="0" src="http://zhenggc.cc/indext.html"></iframe>
            //<script type="text/javascript"> var mess='';  function receiveMessage(e) {  alert('csharp _html:' +e.data);mess=e.data;  csh.CloseMe(e.data);}     window.addEventListener("message", receiveMessage, false);function go(){  window.external.Close(); } </script> </body></html>
           // Cef.Initialize(settings);
           // settings.l
          //  CefSharpSettings.LegacyJavascriptBindingEnabled = true;
            string html = "<html><head><meta http-equiv=\"x-ua-compatible\" content=\"IE=10,chrome=1\"></head><body style=\"margin:0;padding:0;overflow:hidden\" scroll=\"no\"><iframe  width=\"100%\" height=\"100%\" marginwidth=\"0\" marginheight=\"0\" border=\"0\" src=\"" + url + "\"></iframe>" +
                "<script  type=\"text/javascript\"> var mess='';  function receiveMessage(e) {  alert('csharp_html:' +e.data);mess=e.data;  csh.CloseMe(e.data);}     window.addEventListener(\"message\", receiveMessage, false); </script>  </body></html>";
            wb.LoadHtml(html, "http://zhenggc.cn/indext.html");
          //  wb.JsDialogHandler 
            wb.RegisterJsObject("csh", this, false);

        //    wb.DownloadHandler = new CefSharpDownloadHandler();
            this.Controls.Add(wb);
        }

        public void CloseMe(string mess)
        {
            MessageBox.Show("cSHarp" + mess);
            if (mess.Equals("kclose"))
            {
                this.Close();
            }

        }
    }
}

vs2010sp1在线安装

zgc — 2019/9/17 22:52:05

vs2010sp1在线安装下载

slidingmenu

zgc — 2019/7/20 20:28:25

slidingmenu

aspnetMvc4安装

zgc — 2019/7/10 21:29:01

aspnetMvc4安装 + web平台安装程序

fastreport v6.4

zgc — 2019/7/9 17:50:06

fast report vcl

2020-4-10 新增 FastReport 6.6.9

代码段

zgc — 2019/7/3 18:55:10

using System.IO;
using System.Net;
using System.Reflection;
using System.CodeDom;
using System.CodeDom.Compiler;
using System.Web.Services;
using System.Web.Services.Description;
using System.Web.Services.Protocols;
using System.Xml.Serialization;
using System.Configuration;

namespace webserviceImp
{
  
  public  class ImpWebSvr
    {
   // 1. 使用 WebClient 下载 WSDL 信息。
 static  WebClient web = new WebClient();
 static Stream stream = web.OpenRead(Url());
      
// 2. 创建和格式化 WSDL 文档。
static  ServiceDescription description = ServiceDescription.Read(stream);

// 3. 创建客户端代理代理类。
static ServiceDescriptionImporter importer = new ServiceDescriptionImporter();



      public static void GenCs(string FileName )
      {

          importer.ProtocolName = "Soap"; // 指定访问协议。
          importer.Style = ServiceDescriptionImportStyle.Client; // 生成客户端代理。
          importer.CodeGenerationOptions = CodeGenerationOptions.GenerateProperties | CodeGenerationOptions.GenerateNewAsync;

          importer.AddServiceDescription(description, null, null); // 添加 WSDL 文档。

          // 4. 使用 CodeDom 编译客户端代理类。
          CodeNamespace nmspace = new CodeNamespace(); // 为代理类添加命名空间，缺省为全局空间。
          CodeCompileUnit unit = new CodeCompileUnit();
          unit.Namespaces.Add(nmspace);

          ServiceDescriptionImportWarnings warning = importer.Import(nmspace, unit);
          CodeDomProvider provider = CodeDomProvider.CreateProvider("CSharp");

          // 5. 保存源代码到文件。当然，你也可以直接保存到内存字符串中。
          TextWriter writer = File.CreateText(FileName); // 指定你所需的源代码文件名。
          provider.GenerateCodeFromCompileUnit(unit, writer, null);
          writer.Flush();
          writer.Close();
      }

      public static string Url()
      {
          string url = "";
          try
          {
              url = ConfigurationManager.AppSettings["url"].ToString();
          }
          catch 
          {
          }
          if (url == "") url = "http://htbhwsy.com:6666/tjweb.webservice/webservice.asmx?WSDL";
          return url;

      }
    }
}

uses
  mshtml,activex;//除了这两个以外好像其他的都是系统在添加控件的时候自动加的
procedure TForm1.analyClick(Sender: TObject); //代码写在analy这个button的Click事件里的
var
  Doc:IHTMLDocument2;
  tmp:ihtmlelement;
  cont,result:widestring;
  linkadd:string;
  V: OleVariant;
  VNode: IXMLNode;
  vtitle: OleVariant;
  i, NodeCount: Integer;
begin
  //vnode相当于一个父结点，所有的更新内容都是这个父结点的子结点
  vnode:=xmldoc.DocumentElement.ChildNodes['channel'];
  //nodecount,channel父结点的子结点，这其中只有nodename为'item'的才是我们要的内容
  Nodecount:=vnode.ChildNodes.Count-1;
  for i := 0 to NodeCount do
    begin
      if vnode.ChildNodes[i].NodeName='item' then
        begin
          //获取标题vtitle和文章链接地址linkadd
  vtitle:=vnode.ChildNodes[i].ChildNodes['title'].NodeValue;
          linkadd:=vnode.ChildNodes[i].ChildNodes['link'].NodeValue;
          break;  //这里只做了一个节点的内容获取，主要是为了便于调试，实际代码中可相应调整
        end;
    end;
  //cont用于存放文章对应HTML文件的源代码，idHttp1是TIdHTTP控件
  cont:=idHttp1.Get(linkadd);
  //这下面是在做widestring向IHtmlDocument2的“转换”
  result:=cont;
  if cont = '' then Exit;
  CoInitialize(nil);
  doc := CoHTMLdocument_create as IHtmlDocument2;
  try
    V := VarArrayCreate([0, 0], varVariant);
    V[0] := result;
    Doc.Write(PSafeArray(TVarData(v).VArray));
    Doc.Close;
    tmp:=doc.all.item('content',varEmpty) as ihtmlelement;
    if tmp<>nil then
      memo1.Text:=tmp.innerText;  //这里的tmp.innerText就是文章的脚本了
  finally
    Doc := nil;
    CoUninitialize;
  end;
end;

代码段！

zgc — 2019/5/13 17:37:26

  private void excOut(string filePath)
        {
            DataTable table = SqliteHelpers.ExecuteDataset(this.resZERO()).Tables[0];
            if (table == null)
                MessageBox.Show("请先进行盘点。");
            else if (table.Rows.Count == 0)
                MessageBox.Show("请先进行盘点。");
            else
            {
                StreamWriter writer = new StreamWriter(filePath, false, Encoding.GetEncoding("gb2312"));
                string fG = ",";
                if (Program.FG == "t")
                    fG = "\t";
                else
                    fG = Program.FG;
                for (int i = 0; i < table.Rows.Count; i++)
                {
                    string str3 = "";
                    for (int j = 0; j < table.Columns.Count; j++)
                    {
                        if (j > 0) str3 = str3 + fG;
                        str3 = str3 + table.Rows[i][j].ToString();
                    }
                    writer.WriteLine(str3);
                }
                writer.Close();
                MessageBox.Show("导出成功!", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1);
            }
        }

        private void excOut(string sql, string filePath)
        {
            DataTable table = SqliteHelpers.ExecuteDataset(sql).Tables[0];
            if (table == null)
                MessageBox.Show("请先进行盘点。");
            else if (table.Rows.Count == 0)
                MessageBox.Show("请先进行盘点。");
            else
            {
                string fG = ",";
                if (Program.FG == "t")
                    fG = "\t";
                else
                    fG = Program.FG;
                StreamWriter writer = new StreamWriter(filePath, false, Encoding.GetEncoding("gb2312"));
                for (int i = 0; i < table.Rows.Count; i++)
                {
                    string str2 = "";
                    for (int j = 0; j < table.Columns.Count; j++)
                    {
                        if (j > 0) str2 = str2 + fG;
                        str2 = str2 + table.Rows[i][j].ToString();
                    }
                    writer.WriteLine(str2);
                }
                writer.Close();
                MessageBox.Show("导出成功!", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1);
            }
        }
        private string resZERO()
        {
            string str = "select ";
            string str2 = " group by ";
            if (Program.BH == "Y")
            {
                str = str + "Point";
                str2 = str2 + "Point";
            }
            if (Program.HH == "Y")
            {
                if (Program.BH == "Y")
                {
                    str = str + ",SubPoint";
                    str2 = str2 + ",SubPoint";
                }
                else
                {
                    str = str + "SubPoint";
                    str2 = str2 + "SubPoint";
                }
            }
            if (Program.TM == "Y")
            {
                if (Program.BH == "Y" || Program.HH == "Y")
                {
                    str = str + ",proCode";
                    str2 = str2 + ",proCode";
                }
                else
                {
                    str = str + "proCode";
                    str2 = str2 + "proCode";
                }
            }
            if (Program.SL == "Y")
            {
                if (Program.BH == "Y" || Program.HH == "Y" || Program.TM == "Y")
                    str = str + ",Sum(counts) counts";
                else
                    str = str + "Sum(counts) counts";
            }
            return (str + " from bs_scan " + str2 + " Order by scanTime");
        }

get_py 函数  get_wb
//根据输入的字符串返回拼音码
string str_temp
string str_out
int i
str_out=''
for i=1 to len(str_in)
	//返回字符串函数修改  gf_mid 修改为  mid 2019-5-13
	str_temp=mid(str_in,i,1)
	if str_temp<>' ' then
		select n into : str_temp from twzk where z= : str_temp ;
		str_out=str_out+upper(str_temp)
	end if
	if len(str_out)>8 then return str_out
next
return str_out

ggg

zgc — 2019/2/3 22:17:34

<script type="text/javascript">
var cnzz_protocol = (("https:" == document.location.protocol) ? "https://" : " 
document.write(unescape("%3Cspan id='cnzz_stat_icon_1276108372'%3E%3C/span%3E%3Cscript src='" + cnzz_protocol 
+ "s23.cnzz.com/z_stat.php%3Fid%3D1276108372%26online%3D1' type='text/javascript'%3E%3C/script%3E"));
</script>

非官方

老邱 — 2018/2/16 12:01:40

d方式方法d发

方法

老邱 — 2018/2/15 16:04:16