医药CRM系统开发

/****** 对象:  UserDefinedFunction [dbo].[HZ2PY]    脚本日期: 05/02/2012 18:23:38 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
drop function getpy
go
--汉字转换拼音函数
create Function [dbo].[getpy](     @cString nVarChar (200)) Returns nVarChar(100)
AS
Begin
    Declare @nFor    Int      --字符串循环用
    Declare @nPYFor  Int      --拼音串循环用
    Declare @cPYString  VarChar(100)     --拼音串
    Declare @cCurChar VarChar(2)         --当前字符 
    Declare @vReturn VarChar (100)      ----将返回的结果
    Set @cPYString = '吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗'
    Set @vReturn = '' 
    Set @nFor = 0 
    While @nFor < Len(@cString)  
    Begin  
        Set @nFor = @nFor + 1  
        Set @cCurChar = Substring(@cString,@nFor,1)  
        Set @nPYFor = 0  
        While @nPYFor < len(@cPYString)     
        Begin     
            Set @nPYFor = @nPYFor + 1 
            If @cCurChar < Substring(@cPYString,@nPYFor,1)  
                Begin        
                    Set @vReturn = Rtrim(@vReturn) + (Case When @nPYFor <> 1 Then Char(63 + @nPYFor) Else @cCurChar End)  
                    Break       
                End    
            Else    
                Begin  
                    Continue
                End    
        End   
    End
    Return @vReturn
END

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();

       

            }
        }

    }
}

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目录

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

 

知识库文章编号： 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