cmy3918-优快云博客

转载窗体上画直线

Public Class Form1 Dim Bmp1 As Bitmap Dim IsDown As Boolean = False Dim myPen As New Pen(Color.GreenYellow, 2) Dim arrayLine(,) As Point Dim pLine1, pLine2 As Point Dim countLine,

2009-03-26 11:04:00 818

原创系统输入法检测

Private Function bIsHave() As Boolean Try Dim num As Integer = 0 num = System.Windows.Forms.InputLanguage.InstalledInputLanguages.Count If num

2009-03-24 17:01:00 465

原创金额阿拉伯数字转换为中文的自定义函数

CREATE FUNCTION ChangeBigSmall(@ChangeMoney money) RETURNS VarChar(100) AS BEGIN Declare @String1 char(20) Declare @String2 char(30) Declare @String4 Varchar(100) D

2009-03-24 16:51:00 369

原创数据库中旧历转新历

SET QUOTED_IDENTIFIER OFF GOSET ANSI_NULLS ON GOALTER PROCEDURE p_OldtoNewDate @pdDate as datetime,@pbLeapMonth as bit ,@return as datetime outputASset nocount on /*declare @pdDate as dateti

2009-03-24 16:50:00 6724 1

转载输入阳历取对应阴历的存储过程

--1、建一表，放初始化资料 --因为农历的日期，是由天文学家推算出来的，到现在只有到2049年的，以后的有了还可以加入！ CREATE TABLE SolarData ( yearId int not null, data

2009-03-24 16:43:00 471

原创建立sql自动备份(作业)的存储过程

SET QUOTED_IDENTIFIER ON GOSET ANSI_NULLS ON GO --@Type=4 每日备份 =8每周备份--@Used=0 不启用 =1 启用--@Num 从周日开始排 1,2,4,8,16,32,64 如果是每日备份则必须为1-- exec p_swt_DataBackUp swtpro4,D:/BaseData,174000,

2009-03-24 16:37:00 701

原创跳出for循环

For i As Integer = 0 To 10 If i = 5 Then Continue For If i = 8 Then Continue For MsgBox(i.ToString) Next

2009-03-24 16:35:00 382

原创按字节截取字符串

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim str As String = Me.TextBox2.Text.Trim Dim sReturn As String = GetLenString

2009-03-24 16:32:00 447

原创中文提取助记码

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim ss As String ss = Me.TextBox3.Text.Trim Dim str As String F

2009-03-24 16:28:00 839

原创收缩sql数据库日志

backup log databaseName with NO_LOGbackup log databaseName with TRUNCATE_ONLYDBCC SHRINKDATABASE(databaseName)

2008-11-19 10:19:00 303

原创 vs.net2005技术总结

1.DataGridView定位当前选中行. Dim nRowIndex As Integer = 0 If dgv.Rows.Count > 0 Then nRowIndex = dgv.CurrentRow.Index End I

2008-06-05 14:00:00 827

原创放眼PDA开发的未来

现在随着PDA的普及，PDA的开发团队也逐渐壮大起来。但是目前PDA的种类繁多造成的影响也就随之尔来了。根据目前开发的经验来看，同一个PDA程序在不同型号，不同厂商的PDA上运行时是有一定的差别的，姑且不说速度上的差异，单是处理数据时的方法感觉上都不一样。曾经用过华朔的A716感觉不错，虽然速度上慢一些可是其他方面还好，可是同样的程序放到DELL的X50上就不一样了，出现

2006-04-22 17:09:00 962

cmy3918的专栏