kongchaos-优快云博客

转载 DELPHI 导EXCEL数据至SQL(稍微改了下)

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~ procedure TProductImpt.btn3Click(Sender: TObject);var ExcelID, Sheet: Variant; sFileName, sproductname: string; i, ExcelR

2009-01-15 08:56:00 701

原创 HOHO,搞定SQL创建SA权限用户(MSSERVER2000)

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~ --添加登陆用户: exec master..sp_addlogin k,k,MKPOSDBDEV (2005我没试,听人说方法不行了) --添加到数据库 exec master..sp_g

2008-04-18 11:41:00 535

原创找出重復記錄SQL

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~ 如果TABLE1有两个column COL1和COL2,那么下面的SQL可以找出TABLE1里的重复记录和重复记录数SELECT COUNT(*) AS RowNumber,COL1,COL2FROM TABLE1 T1WHERE(SELECT

2008-03-12 15:11:00 569 1

转载繁簡替互換(SQL)

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~if exists (select * from dbo.sysobjects where id = object_id(N[codetable]) and OBJECTPROPERTY(id, NIsUserTable) = 1)d

2008-03-04 09:52:00 3551

原创 common frame functoins(delphi)

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~ {common frame functoins--------------------------------------------------------} {资源处理代码} procedure LoadJpegFromRes(co

2008-02-29 15:14:00 801

原创使用SQL自帶的加密函數

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~ DECLARE @ClearPWD varchar(255) DECLARE @EncryptedPWD varbinary(255) SELECT @ClearPWD = test

2008-02-29 09:06:00 440

原创 FastStringFuncs(DelPhi 函數庫)

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~ unit FastStringFuncs; interface uses Graphics, FastStrings, Sysutils, Classes; const cHexChars = 012345678

2008-02-22 16:01:00 681

原创 Delphi中的线程类(原作 Raptor)

Delphi中的线程类--之（1）关键字ThreadEventCriticalSectionSynchronize Delphi中的线程类（之一） Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程

2008-02-21 16:45:00 525

原创提取摄像头视频(Dephi)

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~代码如下： const WM_CAP_START = WM_USER; const WM_CAP_STOP = WM_CAP_START + 68; const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10; con

2008-02-21 10:57:00 863

原创所有的表sqlserver

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~ SELECT o.name as TableName,USER_NAME(o.uid) as OWNER,ISNULL(ptb.value,N ) as TableDescription, c.colid as Fiel

2008-02-20 11:55:00 390

转载 Oracle 函數大全

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~ SQL中的单记录函数1.ASCII返回与指定的字符对应的十进制数;SQL> select ascii(A) A,ascii(a) a,ascii(0) zero,ascii( ) space from dual;

2008-02-19 15:40:00 474

原创 ASP.NET2.0中将文件上传到数据库(copy from JREN)

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~Access数据库代码 <%@ Page Language="C#" EnableViewState="true" %><%@ Impo

2008-02-19 15:37:00 579

原创 xpbutton (dephi)

2008-02-15 16:52:00 550

原创 dephi 函數庫

{函數庫說明:此函數是為提高編程效率,減少代碼重用所收集的調用方法:GC.函數名,例如:GC.KIT_DBG_TO_FILE(...) VERSION:1.01}unit Kitlib;interfaceuses comobj, IniFiles, Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, Menus,

2008-02-15 16:51:00 765

原创還是dephi,

// 程式來源 http://delphi.ktop.com.tw// 原作者:Yudi Wibisono XLSFILE元件// CCCHEN:改為Function版// 領航天使:除錯// dllee: 加入 StringGridToXLS(), 修正一些小 BUG, 指定此格式最大 Rows 數,以免爆了產生出的檔案不能用unit XLSFile;interfaceuses W

2008-02-15 16:47:00 464

原创 dephi用的人還多麼?希望對你有用

一个函数集 unit MyLib; interfaceusesclasses, Printers, DBGrids, Graphics, Sysutils, Windows, Forms, DB, Grids,Dialogs, ComObj, Controls,StdCtrls;typeTPrnOut = class(TObject)procedure Pri

2008-02-15 16:46:00 801

原创 Oracle用戶所有表導出

讲解"Oracle"下导出某用户所有表的方法发布时间：2008.02.02 05:17 来源：赛迪网作者：邹天华可能很多使用Oracle的客户都会遇到想把某用户所有表导出的情况，本文就提供这样一个方法帮你轻松解决这个问题。首先在sqlplus下以该用户登录到Oracle数据库，然后将以下内容粘贴到sqlplus中： set feedback off;set p

2008-02-15 16:43:00 659

转载 C#入门代码集 (copy)

一般的小东西：一、从控制台读取东西代码片断：using System;class TestReadConsole{ public static void Main() { Console.Write("Enter your name:"); string strName = Console.ReadLine(); Console.Write

2008-02-15 16:40:00 454

原创 sql語句優化(copy from JREN)

UNION vs UNION ALL尽可能用UNION ALL 代替UNION。其中的差异是因为UNION有排除重复行并且对结果进行排序的副作用，而UNION ALL不会做这些工作。选择无重复行的结果需要建立临时工作表，用它排序所有行并且在输出之前排序。（在一个select distinct 查询中显示查询计划将发现存在一个流聚合，消耗百分之三十多的资源处理查询）。当你确切知道你得需要时，可以

2008-02-15 16:36:00 446

原创 cursor及email發送方法

CREATE PROCEDURE dbo.MRB_24Hmail AS declare @mail varchar(60) declare @mail_message varchar(500) declare @mess nvarchar(1000) declare @mysql varchar(1000) declare sendmail cursor fo

2008-02-15 16:31:00 688

原创數字轉換成大寫英文(感謝網上無名大蝦，我就隻要改編下就ok)

推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,最新的电影电视剧都在速看电影吧!~ CREATE Procedure dbo.FormatNumToEngCaps@num numeric(18,2),@result varchar(500) outputASBEGIN DECLARE @i int,@hundred

2008-02-15 16:29:00 883

原创 excel導入sqlsever2000.

需要把excel檔導入excel,本打算用dts,怎麼也試不了成功,隻好用sql語句,可是怎麼也試不成功,後才明白,因為操作的是服務器，服務器沒有權限打開我的excle,隻好上傳excel檔sql語句如下select * into #temp from opendatasource(microsoft.jet.oledb.4.0,data source=//ufkstest1/e$

2008-02-15 16:24:00 350

kongchaos的专栏