博客园_医药CRM系统开发

抓取验证码图片和自动执行select选择事件

2011-11-17T06:42:00Z

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Web;
using System.Net;
using Sanzond;
using System.Text.RegularExpressions;
using mshtml;

namespace HttpPostGet
{
    public partial class jond : Form
    {
        public jond()
        {
            InitializeComponent();
        }

        private void btnDisplay_Click(object sender, EventArgs e)
        {
            Cmd.CreateDirectory("c:\\xj");
            string url;
            url = txtURL.Text;
            lbPage.Text = "0";
            if (url.Length > 0)
            {
                webBrowserPreview.Navigate(url);
                //等待加载完毕
                //while (webBrowserPreview.ReadyState < WebBrowserReadyState.Complete) Application.DoEvents();
            }
            else
            {
                MessageBox.Show("请输入网址！");
            }
        }

private void jond_Load(object sender, EventArgs e)
{

}

        private void linkLabel1_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
        {
            txtURL.Text = "http://www.sanzond.com/tools";
            webBrowserPreview.Navigate("http://www.sanzond.com/tools");
        }

        private void webBrowserPreview_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
        {
            //listBox1.Items.Add(webBrowserPreview.ReadyState);

            while (webBrowserPreview.ReadyState != WebBrowserReadyState.Complete)
            {
                Application.DoEvents();
            }

//if (webBrowser1.ReadyState < WebBrowserReadyState.Complete || webBrowser1.Url.ToString() == LastUrl) return;
//LastUrl = webBrowser1.Url.ToString();

            if (webBrowserPreview.ReadyState == WebBrowserReadyState.Complete)
            {
                HtmlElement link = webBrowserPreview.Document.GetElementById("pager");

               link.SetAttribute("selectedindex", (Convert.ToInt32(link.GetAttribute("selectedindex"))+1).ToString());
               lbPage.Text = link.GetAttribute("selectedindex").ToString();
               link.InvokeMember("onchange");
               HTMLDocument html = (HTMLDocument)webBrowserPreview.Document.DomDocument;
               IHTMLControlElement img = (IHTMLControlElement)webBrowserPreview.Document.Images["Image1"].DomElement;
               IHTMLControlRange range = (IHTMLControlRange)((HTMLBody)html.body).createControlRange();
               range.add(img);
               range.execCommand("Copy", false, null);

               img = null;
               range = null;
               html = null;

               if (Clipboard.ContainsImage())
               {
                   this.pictureBox1.Image = Clipboard.GetImage();
                   //if (Clipboard.GetImage().)
                   pictureBox1.Image.Save("c:\\xj\\" + link.GetAttribute("selectedindex").ToString() + ".jpg");
                   //pictureBox1.
                   lbPage.Text = Convert.ToString(Convert.ToInt32(lbPage.Text) + 1);
                   Clipboard.SetImage(null);
               }
               else
               {
                   MessageBox.Show("执行不成功");
               }

Clipboard.Clear();

}
}

本文链接

基于wince.net的环境，使用pocketBuilder调用webservice所需安装环境和步骤

2011-09-07T11:02:00Z

PDA中部署webservice程序需安装的环境
PocketBuilder.ARM.CAB 运行环境
pocketSOAP.arm.CAB webservice运行环境
pksoapIF.dll pocketBuilder支持webservice的dll

WINDOWS平台开发需要的工具及环境

pocketSOAP

http://www.pocketsoap.com/

pocketbulider

pksoapif.dll

参考文件

http://notbig.blog.163.com/blog/static/21316286200841310546432/

iis部署ws需安装程序

powerbuilder 11的环境安装

D:\Program Files\Sybase115\PowerBuilder 11.5\DotNET\bin
将当前目录下的文件放至ws的BIN目录
将D:\Program Files\Sybase115\Shared\PowerBuilder\PBDWM115.DLL放入windows目录

本文链接

sql backup

2011-05-15T01:50:00Z

ALTER proc [P_DBBACKUP](@DbName varchar(50))
as
DECLARE @dbPath VARCHAR(200)
select @dbPath='E:\bak\'
select @dbPath=@dbPath+@DbName+'_'+convert(varchar(20),getdate(),112)+replace(convert(varchar(20),getdate(),108),':','')+'.bak'
BACKUP DATABASE @DbName
TO DISK = @dbPath
WITH INIT
,NOUNLOAD
,NAME = N'backup database'
,NOSKIP
,STATS = 10
,NOFORMAT

本文链接

Cumulative Update package 3 for SQL Server 2008 R2三个补丁下载地址，官网下载不直接给地址，不知为什么

2010-09-27T15:36:00Z

知识库文章编号： 2261464
语言： All (Global)
平台： i386
位置： (http://hotfixv4.microsoft.com/SQL%20Server%202008%20R2/nosp/2008R2_RTM_SapBI_CU3_2261464_10_50_1734_/10.50.1734.0/free/418819_intl_i386_zip.exe)
密码： +8z[6#s
密码更改日期: 09/28/2010
下一个密码: cNuuB9rv7
-----------------------------------------------------------
知识库文章编号： 2261464
语言： All (Global)
平台： i386
位置： (http://hotfixv4.microsoft.com/SQL%20Server%202008%20R2/nosp/2008R2_RTM_SNAC_CU3_2261464_10_50_1734_x/10.50.1734.0/free/418822_intl_i386_zip.exe)
密码： u0HS*@0
密码更改日期: 09/28/2010
下一个密码: 8j7t!aY3ZG
-----------------------------------------------------------
知识库文章编号： 2121407, 2133566, 2142496, 2225696, 2261464, 2268122, 2269585, 2270925, 2276203, 2277078, 2282505, 2283036, 2283051, 2283072, 2283091, 2283186, 2285517, 2285711, 2285720, 2290377, 2291697, 2292807, 2295244, 2297903, 2315727, 968398, 979212, 980142, 981159, 981811, 981814, 981881, 981888, 982207, 982363, 982376, 983429, 983480, 983500, 983564
语言： All (Global)
平台： i386
位置： (http://hotfixv4.microsoft.com/SQL%20Server%202008%20R2/nosp/SQLServer2008R2_RTM_CU3_2261464_10_50_17/10.50.1734.0/free/418815_intl_i386_zip.exe)
密码： ZV{QRlcLq
密码更改日期: 09/28/2010
下一个密码: y[BpHfp

本文链接

WIN7 X64位系统安装SQL SERVER2008失败总结

2010-08-15T03:03:00Z

在win7 64位的系统中，如果已经安装了vs 2008,并且安装路径不在系统盘，如安装vs2008在d盘，那么如果你安装sql server 2008,那么将会出现Upgrade Failed due to the following Error.The error code is :-2147467259.Message:未指定的错误，实际是SQL Server Business Intelligence Development Studio组件安装失败，这是因为直接点击sql server2008 的安装程序，SQL Server Business Intelligence Development Studio的默认安装是在C:\Program Files (x86)\Microsoft Visual Studio 9.0\Common7\IDE中，而BI需要和vs2008合并，可能错误就出现了，网上说这是sql server2008的bug,实际不是，而是当在x64位系统中安装时，如果vs不是默认安装，需要指定安装参数，即大家只需运行如下命令CMD即可安装成功，而不是在gui界面直接安装

setup.exe /Action="Install" /INSTALLSHAREDDIR="D:\Program Files\Microsoft SQL Server" /INSTALLSHAREDWOWDIR="D:\Program Files (x86)\Microsoft SQL Server"

本文链接

写了一个通用的用户选择页面，记录一下调用方法

2010-08-05T05:16:00Z

1.主页面
<a href="#" onclick="javascript:addressWindow2('email')">收件人：</a>

增加函数
        function addressWindow2(sign) {
            var url = "../SelectUser.aspx?valobj=存放用户值的控件名&txtobj=存放用户名称的控件名";
            var tree_window = window.open(url, 'addressbook', 'toolbar=no,menubar=no,location=no,resizable=no,scrollbars=yes,menubar=no,width=520,height=540,top=100,left=200, status=yes');

        }

本文链接

回顾这几年开发医药CRM的历程

2010-07-30T09:51:00Z

在做医药行业软件七年，在2006遇上个医药全国总代，刚好上我们公司的医药GSP进销存系统，而传统的商业进销存完全不能适应这个企业，自已就完全根据这个企业的实际情况重写了这个系统，直到今天一直运行稳定，呵呵，想想自已的这方面能力还是蛮强的，但带来个问题，软件不出问题，企业也不付维护费。哎，矛盾，好好写程序没钱挣的结果，这些年也没收上一年的维护费，失败，做生意和做程序是完全两回事呀，做生意的永远比做程序的精，当程序员的也要注意这点，呵呵！

明天继续....

本文链接

生成中文式的日期维度，时间自已定义

2010-07-30T09:20:00Z

USE [soa]
GO

/****** Object: Table [dbo].[DimDate] Script Date: 07/30/2010 17:18:32 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TABLE [dbo].[DimDate](
[DateKey] [int] NOT NULL,
[FullDateAlternateKey] [date] NOT NULL,
[DayNumberOfWeek] [tinyint] NOT NULL,
[ChineseDayNameOfWeek] [nvarchar](10) NOT NULL,
[DayNumberOfMonth] [tinyint] NOT NULL,
[DayNumberOfYear] [smallint] NOT NULL,
[WeekNumberOfYear] [tinyint] NOT NULL,
[EnglishMonthName] [nvarchar](10) NOT NULL,
[ChineseMonthName] [nvarchar](10) NOT NULL,
[MonthNumberOfYear] [tinyint] NOT NULL,
[CalendarQuarter] [tinyint] NOT NULL,
[CalendarYear] [smallint] NOT NULL,
[CalendarSemester] [tinyint] NOT NULL,
CONSTRAINT [PK_DimDate_DateKey] PRIMARY KEY CLUSTERED
(
[DateKey] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY],
CONSTRAINT [AK_DimDate_FullDateAlternateKey] UNIQUE NONCLUSTERED
(
[FullDateAlternateKey] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'日期yyyymmdd' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'DateKey'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'带间隔的日期' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'FullDateAlternateKey'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'一周第几天' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'DayNumberOfWeek'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'星期几' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'ChineseDayNameOfWeek'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'月的每几天' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'DayNumberOfMonth'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'年的第几天' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'DayNumberOfYear'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'年的第几个星期' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'WeekNumberOfYear'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'英文月名' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'EnglishMonthName'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'中文月名' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'ChineseMonthName'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'数字月' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'MonthNumberOfYear'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'季度' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'CalendarQuarter'
GO

EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'年' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'DimDate', @level2type=N'COLUMN',@level2name=N'CalendarYear'
GO

go
truncate table dimDate
go
--生成一年的时期维护数据,生成从2000年开始到2041年的所有日期维度
declare @curDate datetime
declare @i int
set @curDate='2000-01-01 00:00:00'
set @i=1
WHILE (@i <= 15000)
BEGIN
Insert into dimDate(
DateKey,
FullDateAlternateKey,
DayNumberOfWeek,
ChineseDayNameOfWeek,
DayNumberOfMonth,
DayNumberOfYear,
WeekNumberOfYear,
EnglishMonthName,
ChineseMonthName,
MonthNumberOfYear,
CalendarQuarter,
CalendarYear,
CalendarSemester
)
SELECT
Convert(varchar(8),@curDate,112) as DateKey,
Convert(varchar(10),@curDate,120) as FullDateAlternateKey,
datepart(weekday,@curDate) as DayNumberOfWeek,
(
  case   datepart(dw,@curDate)
  when   1   then   '星期天'
  when   2   then   '星期一'
  when   3   then   '星期二'
  when   4   then   '星期三'
  when   5   then   '星期四'
  when   6   then   '星期五'
  when   7   then   '星期六'
  end
) as ChineseDayNameOfWeek,
datepart(day,@curDate) as DayNumberOfMonth,
datepart(dayofyear,@curDate) as DayNumberOfYear,
0 as WeekNumberOfYear,--现在是一年中第几个星期,懒了没有写，有时间写这个函数的帮补充一下
(
  case   datepart(MONTH,@curDate)
  when   1   then   'January'
  when   2   then   'February'
  when   3   then   'March'
  when   4   then   'April'
  when   5   then   'May'
  when   6   then   'June'
  when   7   then   'July'
  when   8   then   'August'
  when   9   then   'September'
  when   10   then 'October'
  when   11   then 'November'
  when   12 then   'December'
  end
)   as EnglishMonthName,
(
  case   datepart(MONTH,@curDate)
  when   1   then   '一月'
  when   2   then   '二月'
  when   3   then   '三月'
  when   4   then   '四月'
  when   5   then   '五月'
  when   6   then   '六月'
  when   7   then   '七月'
  when   8   then   '八月'
  when   9   then   '九月'
  when   10   then '十月'
  when   11   then '十一月'
  when   12 then   '十二月'
  end
) as ChineseMonthName,
datepart(MONTH,@curDate) as MonthNumberOfYear,
datepart(Quarter,@curDate) as CalendarQuarter,
datepart(year,@curDate) as CalendarYear,
(case when datepart(MONTH,@curDate)>6 then 1 else 2 end) as CalendarSemester
set @i=@i+1
set @curDate=@curDate+1
END

本文链接

给reportview传参数的操作过程

2010-07-15T07:35:00Z

rdlc中定义导航
=Parameters!url.Value & "/orders/ImportCurrentOrderSales.aspx?OrderID="& Fields!ddbh.Value

        //将第一个框架中的日期转换成从00点开始
        ObjectDataSource1.SelectParameters["startddrq"].DefaultValue = StartTime;
        ObjectDataSource1.SelectParameters["endddrq"].DefaultValue = EndTime;
        ObjectDataSource1.SelectParameters["QueryCode"].DefaultValue = QueryCode;
        ObjectDataSource1.SelectParameters["proxyid"].DefaultValue = base.GetUserID();
        //将第二个框中的日期转换成从23点结束
//传参数
        ReportParameter urlParm = new ReportParameter();
        urlParm.Name = "url";
        string sDomain;
        if (ConfigurationSettings.AppSettings["SystemDomain"] != null)
            sDomain = ConfigurationSettings.AppSettings["SystemDomain"].ToString();
        else
            sDomain = "http://127.0.0.1/resin";

urlParm.Values.Add(sDomain);

        ReportViewer1.LocalReport.SetParameters(new ReportParameter[] { urlParm });//传入url参数
//结束
        ObjectDataSource1.CacheDuration = 0;
        ObjectDataSource1.DataBind();
        ReportViewer1.LocalReport.EnableHyperlinks = true;
        ReportViewer1.LocalReport.Refresh();

本文链接

山寨dell mini 3i的问题

2010-06-07T00:36:00Z

最主要是搜索信号非常弱，到了房间里几乎就再也没有信号了，所以以后还是不要买山寨手机了，看着漂亮，实际真的要用时用不起来。

本文链接