Swetter is on the way

推荐一个不错的学习网站：启航

2009-05-08T21:34:00.001+08:00

这是我的推广链接
http://www.myqihang.com/bbs/?fromuser=swetter
经常在这里的Delphi板块逛的，不再奔跑老大发的视频都挺不错
大家可以去下来看看

ProC

2009-05-02T20:44:00.000+08:00

这个ProC就是简单的将一段范例代码做了很小很小的修改
makefile文件也要相应的增加

/* -------------------------------------------------------
* myproc.pc
* Author: Youbin Wang
* Rem : 2009.04.28 create the file
* ------------------------------------------------------- */

#include
#include
#include
#include
#include
#include
#include
#include
#include "mystructs.h"

EXEC SQL BEGIN DECLARE SECTION;
#define UNAME_LEN 20
#define PWD_LEN 40

VARCHAR username[UNAME_LEN];
VARCHAR password[PWD_LEN];

/* host structure for output value */
struct
{
VARCHAR emp_name[UNAME_LEN];
float salary;
float commission;
}emprec;

/* indicator structure to correspond to host output struct */
struct
{
short emp_name_ind;
short sal_ind;
short comm_ind;
}emprec_ind;

int emp_number;
int total_queried;
int i_num;

EXEC SQL END DECLARE SECTION;

/* Sql communications area.
you car user #include or EXEC SQL INCLUDE.*/
#include

int sql_error(msg)
char *msg;
{
char err_msg[128];
size_t buf_len, msg_len;
EXEC SQL WHENEVER SQLERROR CONTINUE;

printf("\n%s\n", msg);
buf_len = sizeof(err_msg);
sqlglm(err_msg, &buf_len, &msg_len);
printf("%.*s\n", msg_len, err_msg);

EXEC SQL ROLLBACK RELEASE;
exit(EXIT_FAILURE);
}

int srv_to_proc(int input,int s_socket)
{
char temp_char[32];
/* connect to ORACLE */
strncpy((char*)username.arr,"SCOTT",UNAME_LEN);
username.len =
(unsigned short)strlen((char*)username.arr);
strncpy((char*)password.arr,"TIGER",PWD_LEN);
password.len =
(unsigned short)strlen((char*)password.arr);

EXEC SQL CONNECT :username IDENTIFIED BY :password;

printf("\nConnected to ORACLE as user:%s \n",username.arr);

total_queried = 0;

EXEC SQL WHENEVER NOT FOUND GOTO notfound;

printf("\n\nemployee Salary Commission\n");
printf("-------- ------- ----------\n");

i_num=input;
EXEC SQL SELECT ename, sal, comm
INTO :emprec INDICATOR :emprec_ind
FROM EMP WHERE rownum = :i_num ;

emprec.emp_name.arr[emprec.emp_name.len] = '\0';
printf("%s %7.2f ",
emprec.emp_name.arr, emprec.salary);
if (-1 == emprec_ind.comm_ind)
printf("NULL\n");
else
printf("%7.2f\n", emprec.commission);

send(s_socket,(char *)&emprec, sizeof(emprec), 0);
notfound:
printf("\nNot data left - try again.\n");

printf("\n\nTotal rows returned was %d.\n", total_queried);
printf("\n bye bye. \n\n\n");

//Disconnect from ORACLE
EXEC SQL ROLLBACK WORK RELEASE;
exit(EXIT_SUCCESS);
}

改写为C/S模式

2009-04-25T13:05:00.002+08:00

上次贴的C代码有不少不规范的地方
随着学习的深入我把代码改写了下，写成C/S模式，但是运行时客户端只能连上一次服务器然后就断开。正在DEBUG

----------------------------makefile-------------------------------------------
# This makefile will generate "filetool" with fileoperator.c and fileoperator.h
# Author: Youbin Wang
# Date: 2009.04.17

OBJECTS=menu.o puberr.o simplecli.o
INCLUDE=-I/home/user01/NO05/include
MYPATH=/home/user01/NO05/bin
SERVEROBJ=simplesrv.o

all:filetool server

filetool: $(OBJECTS)
gcc -o filetool $(OBJECTS)
mv filetool $(MYPATH)

menu.o:menu.c
gcc $(INCLUDE) -c menu.c
`
puberr.o:puberr.c
gcc $(INCLUDE) -c puberr.c

simplecli.o:simplecli.c
gcc $(INCLUDE) -c simplecli.c

server : $(SERVEROBJ) puberr.o
gcc -o server $(SERVEROBJ) puberr.o
mv server $(MYPATH)

simplesrv.o:simplesrv.c
gcc $(INCLUDE) -c simplesrv.c

clean:
rm $(OBJECTS) $(SERVEROBJ)

------------------------------------menu.c-----------------------------------
/* -------------------------------------------------------
* $Source : menu.c 16-apr-2009.17:00:00 Youbin Wang $
* Function: Provide main menu and invoke client socket function
* Author : Youbin Wang
* Record :
2009.04.24 Change programme to c/s structure.
* 2009.04.22 Add errlog.
* 2009.04.16 Add the Version commentary.
* 2009.04.15 Create the main programme.
* ------------------------------------------------------- */
#include
#include
#include
#include
#include

/* -------------------------------------------------------
* global values
* ------------------------------------------------------- */
char * g_syslog="mytest";
char * g_print_str="testfile";

/* -------------------------------------------------------
* Show main menu if user haven't decided to exit the system
* or they just finish one operation
* Input parameter: none
* Output Parameter: return 0 while execute successfully
* ------------------------------------------------------- */
int show_menu()
{
printf(" --------------------------------------------\n");
printf(" Welcome TO This Programme \n");
printf(" This is the Main Menu \n");
printf(" --------------------------------------------\n");
printf("\n");
printf("Please Make your selection\n");
printf(" 1: Create a new file and write;\n");
printf(" 2: Open a file and write;\n");
printf(" 3: Open a file with read-only mode;\n");
printf(" 4: Exit;\n");
printf("\n");
return 0;
}

/* -------------------------------------------------------
* if the user choose to exit the system then invoke this function
* InputParameter:None
* OutputParameter: retrun 0 while execute successfully
* ------------------------------------------------------- */
int exit_system()
{
printf("\n");
printf("Exiting.........\n");
printf("\n");
printf(" Thank you for using this system.\n");
printf("\n");
printf(" If you have any problems or advices,contract the author at qisi1986@gmail.com\n");
printf("\n");
printf(" Wish you a good day. Bye Bye.\n");
return 0;
}

/* -------------------------------------------------------
* invoke if the user input the selection
* InputParamete r: the selection of user
* OutputParameter: return 0 while successfully
* Hint : if the user put the wrong key then it will provide hints
* ------------------------------------------------------- */
int selection(int Index)
{
int i_return=1;
printf("Your Selection is %d \n", Index);
printf("Now will invoke corresponding function,please wait.");
printf("\n");
sleep(1);
switch(Index)
{
case 1:
i_return = use_socket("127.0.0.1",1);
break;
case 2:
i_return = use_socket("127.0.0.1",2);
break;
case 3:
i_return = use_socket("127.0.0.1",3);
break;
case 4:
exit_system();
break;
default:
printf("Error!Please Enter a correct number!\n");
pub_err(2,__FILE__,__LINE__,g_syslog,"Enter an error number %s\n",g_print_str);
sleep(1);
}
if(0 == i_return)
printf("Operation successfully!!\n");
else
{
printf("Opeartion failed, please retry!\n");
i_return = 1;
return 1;
}
i_return = 1;
return 0;
}

int main()
{
int inputInt;
system("clear");
while(inputInt != 4)
{
system("clear");
show_menu();
printf("Enter your selection here: ");
scanf("%d", &inputInt);
selection(inputInt);
}
return 0;
}

-------------------------------puberr.c----------------------------------
#include
#include
#include
#include
#include
#include

#define FNAME_LEN 128
void pub_time(long *plHostDate, long *plHostTime)
{
struct tm *p;
time_t tmp;

time(&(tmp));
p = localtime(&tmp);
p->tm_year += 1899;

if (plHostDate != NULL)
*plHostDate =
(p->tm_year + 1) * 10000 + (p->tm_mon + 1) * 100 + p->tm_mday;
if (plHostTime != NULL)
*plHostTime = p->tm_hour * 10000 + p->tm_min * 100 + p->tm_sec;
return;
}

int _p_log(char *tmp_buf)
{
char logname[FNAME_LEN];
FILE *fp_log;
long l_date, l_time;

/*错误日志 */
pub_time(&l_date, &l_time);
sprintf(logname, "%s/log/pub_err%ld.log", getenv("HOME"),l_date);
// sprintf(logname, "../log/pub_err%ld.log", l_date);

if ((fp_log = fopen(logname, "a")) != NULL) {
fprintf(fp_log, "[%06ld/%06ld] %s\n", l_date % 1000000, l_time, tmp_buf);

fclose(fp_log);
}
else
{
fprintf(stderr, "[%06ld/%06ld] %s\n", l_date % 1000000, l_time, tmp_buf);
}

return 0;
}

/*
int pub_err(ret_code, file, line, recode, ...)
int ret_code;
char *file;
long line;
char *recode
*/
int pub_err(int ret_code, char *file, long line, char *recode, ...)
{
short i;
char *fmt, tmp_buf[2048], log[2048];
va_list args;

memset(tmp_buf, 0, 2048);
va_start(args,recode);
fmt = va_arg(args, char *);
vsprintf(tmp_buf, fmt, args);
va_end(args);
if (ret_code >= 0)
{
sprintf(log, "run message [%s][%ld][%s]", file, line,tmp_buf);
_p_log(log);
}
return ret_code;
}

------------------------------simplecli.c--------------------------------
/* ----------------------------------------------------------------
* simplecli.c
* Function:provide use_socket to set up a client socket
* and send the selection of user to server
* Record of Modification:
* 2009.04.24:Create function user_socket and test main
* ---------------------------------------------------------------- */

#include
#include
#include
#include
#include
#include

// define the defualt connect port id
#define SERVER_PORT 20130
// define the defualt client port as a random port
#define CLIENT_PORT ((20001+rand())%65536)
#define BUFFER_SIZE 255
#define REUQEST_MESSAGE "welcome to connect the server.\n"

int use_socket(char* ip, int i_select)
{
int servfd,clifd,length = 0;
int recvbyte;
struct sockaddr_in servaddr,cliaddr;
socklen_t socklen = sizeof(servaddr);
char buf[BUFFER_SIZE];

if ((clifd = socket(AF_INET,SOCK_STREAM,0)) < 0)
{
printf("create socket error!\n");
exit(1);
}
srand(time(NULL));//initialize random generator

bzero(&cliaddr,sizeof(cliaddr));
cliaddr.sin_family = AF_INET;
cliaddr.sin_port = htons(CLIENT_PORT);
cliaddr.sin_addr.s_addr = htons(INADDR_ANY);

bzero(&servaddr,sizeof(servaddr));
servaddr.sin_family = AF_INET;
//inet_aton(argv[1],&servaddr.sin_addr);
//servaddr.sin_addr.s_addr=inet_addr(ip);
inet_aton(ip,&servaddr.sin_addr);
servaddr.sin_port = htons(SERVER_PORT);
//servaddr.sin_addr.s_addr = htons(INADDR_ANY);

if (bind(clifd,(struct sockaddr*)&cliaddr,sizeof(cliaddr))<0)
{
printf("bind to port %d failure!\n",CLIENT_PORT);
exit(1);
}
if (connect(clifd,(struct sockaddr*)&servaddr, socklen) < 0)
{
printf("can't connect to %s!\n",ip);
exit(1);
}

send(servfd,(char *)&i_select,sizeof(i_select),0);
length = recv(clifd,(char *)&recvbyte,sizeof(recvbyte),0);
if(length < 0)
{
printf("error comes when recieve data from server %s!", ip);
exit(1);
}
if(recvbyte == 0)
{
close(clifd);
return 0;
}
else
{
close(clifd);
exit(1);
}
}

/*-----------this is the test main function of use_socket-----------
int main()
{
int i=3;
if(use_socket("127.0.0.1", i))
printf("successful");
else
printf("failed");
return 0;

}-------------------------------------------------------------------*/

--------------------------simplesrv.c-------------------------------------
/* -------------------------------------------------------
* simplesrv.c
* Function:Start the server and listen a port
* When client send data, it recieve data
* deal with the data and send feedback info
* Record of Modification:
* 2009.04.23: Create it.
* -------------------------------------------------------*/
#include
#include
#include
#include
#include
#include
#include
#include "puberr.h"

#define SERVER_PORT 20130 // define the defualt connect port id
#define LENGTH_OF_LISTEN_QUEUE 10 //length of listen queue in server
#define BUFFER_SIZE 255
#define WELCOME_MESSAGE "welcome to connect the server. "

/* -------------------------------------------------------
* global values
* ------------------------------------------------------- */
char * g_syslog="mytest";
char * g_print_str="testfile";

/* -------------------------------------------------------
* invoke when the user choose to open a file with readonly mode(3)
* InputParameter:None
* OutputParameter: return 0 if execute successfully, 1 if error occured
* ------------------------------------------------------- */
int open_file_readonly()
{
char c_output;
FILE *fl_p_readonly;
fl_p_readonly = fopen("mytext.txt","rt");

printf("Reading mytext.txt ...\n");
if(NULL==fl_p_readonly)
{
pub_err(2, __FILE__, __LINE__, g_syslog, "Cannot open file mytext.txt in read-only mode %s\n", g_print_str);
getchar();
return 1;
}

printf("Open file successfully! \n");
sleep(1);
c_output=fgetc(fl_p_readonly);
while(c_output!=EOF)
{
printf("Reading the text...\n");
sleep(1);
putchar(c_output);
c_output=fgetc(fl_p_readonly);
}
fclose(fl_p_readonly);
pub_err(2, __FILE__, __LINE__, g_syslog,"Close the file %s\n", g_print_str);
return 0;
}

/* -------------------------------------------------------
* invoke when the user choose to create a new file(1)
* InputParameter: None
* OutputParameter: return 0 if execute successfully, 1 if error accured
* -------------------------------------------------------*/
int create_file()
{
printf("Creating a file ..\n");
FILE *fl_createfile;
fl_createfile = fopen("new.txt","wt+");
if(NULL==fl_createfile)
{
pub_err(2, __FILE__, __LINE__, g_syslog, "Cannot create a file %s\n",g_print_str);
getchar();
return 1;
}
char c_inputchar;
printf("Successfully create a file...\n");
sleep(1);
printf("Please input your text: \n");
while (c_inputchar!='\n')
{
printf("I'm reading your input\n");
fputc(c_inputchar,fl_createfile);
c_inputchar=getchar();
}
/* rewind the position of file pointer to the top of file */
rewind(fl_createfile);
printf("Your inputment is: ");
c_inputchar=fgetc(fl_createfile);
while(c_inputchar!=EOF)
{
printf("I'm writing your input\n");
putchar(c_inputchar);
c_inputchar=fgetc(fl_createfile);
}
printf("\n");
fclose(fl_createfile);
printf("Done!!\n");
sleep(1);
return 0;
}

/* -------------------------------------------------------
* if the user choose to open a exist file(2) and write then invoke this function
* InputParameter:None
* OutputParameter: return 0 if execute successfully, 1 if an error occured
* ------------------------------------------------------- */
int open_file()
{
printf("Opening a file...\n");
FILE *fl_openfile;
fl_openfile = fopen("mytext.txt","wt+");
if(NULL==fl_openfile)
{
pub_err(2,__FILE__,__LINE__,g_syslog,"Cannot open a file %s\n",g_print_str);
getchar();
return 1;
}

char c_inputchar;
printf("Successfully open a file");
printf("Please input your text: \n");
while (c_inputchar!='\n')
{
fputc(c_inputchar,fl_openfile);
c_inputchar=getchar();
}
/* rewind the position of file pointer to the top of file */
rewind(fl_openfile);
printf("Your inputment is: ");
c_inputchar=fgetc(fl_openfile);
while(c_inputchar!=EOF)
{
putchar(c_inputchar);
c_inputchar=fgetc(fl_openfile);
}
printf("\n");
fclose(fl_openfile);
printf("Done!!\n");
sleep(1);
return 0;
}

/* -------------------------------------------------------
* invoke if the user input the selection
* InputParamete r: the selection of user
* OutputParameter: return 0 while successfully
* Hint : if the user put the wrong key then it will provide hints
* ------------------------------------------------------- */
int selection(int i_input)
{
switch(i_input)
{
case 1:
create_file();
break;
case 2:
open_file();
break;
case 3:
open_file_readonly();
break;
default:
pub_err(2,__FILE__,__LINE__,g_syslog,"Enter an error number %s\n",g_print_str);
return 1;
}
return 0;
}

int main(int argc, char **argv)
{
int servfd,clifd,recvbyte;
int length=0;
int sel_feedback=1;
struct sockaddr_in servaddr,cliaddr;
if ((servfd = socket(AF_INET,SOCK_STREAM,0)) < 0)
{
printf("create socket error!\n");
exit(1);
}
bzero(&servaddr,sizeof(servaddr));
servaddr.sin_family = AF_INET;
servaddr.sin_port = htons(SERVER_PORT);
servaddr.sin_addr.s_addr = htons(INADDR_ANY);
if (bind(servfd,(struct sockaddr*)&servaddr,sizeof(servaddr))<0)
{
printf("bind to port %d failure!\n",SERVER_PORT);
exit(1);
}
if (listen(servfd,LENGTH_OF_LISTEN_QUEUE) < 0)
{
printf("call listen failure!\n");
exit(1);
}

while (1)
{//server loop will nerver exit unless any body kill the process
char buf[BUFFER_SIZE];
long timestamp;
socklen_t length = sizeof(cliaddr);
clifd = accept(servfd,(struct sockaddr*)&cliaddr,&length);
if (clifd < 0)
{
printf("error comes when call accept!\n");
break;
}
strcpy(buf,WELCOME_MESSAGE);
//inet_ntop(INET_ADDRSTRLEN,cliaddr.sin_addr,buf,BUFFER_SIZE);
printf("from client,IP:%s,Port:%d\n",inet_ntoa(cliaddr.sin_addr),ntohs(cliaddr.sin_port));
timestamp = time(NULL);
strcat(buf,"timestamp in server:");
strcat(buf,ctime(×tamp));
//send(clifd,buf,BUFFER_SIZE,0);
length=recv(servfd,(char *)&recvbyte,sizeof(recvbyte),0);
if(length<0)
{
printf("error comes when recieve data from client");
close(clifd);
exit(1);
}
sel_feedback = selection(recvbyte);
send(clifd,(char *)sel_feedback,sizeof(sel_feedback),0);
close(clifd);
sel_feedback = 1;
}//exit
close(servfd);
return 0;
}

vi常用命令

2009-04-22T12:30:00.000+08:00

进入vi的命令
　　vi filename :打开或新建文件，并将光标置于第一行首
　　vi +n filename ：打开文件，并将光标置于第n行首
　　vi + filename ：打开文件，并将光标置于最后一行首
　　vi +/pattern filename：打开文件，并将光标置于第一个与pattern匹配的串处
　　vi -r filename ：在上次正用vi编辑时发生系统崩溃，恢复filename
　　vi filename....filename ：打开多个文件，依次进行编辑
　　
　　移动光标类命令[/b]
　　h ：光标左移一个字符
　　l ：光标右移一个字符
　　space：光标右移一个字符
　　Backspace：光标左移一个字符
　　k或Ctrl+p：光标上移一行
　　j或Ctrl+n ：光标下移一行
　　Enter ：光标下移一行
　　w或W ：光标右移一个字至字首
　　b或B ：光标左移一个字至字首
　　e或E ：光标右移一个字至字尾
　　) ：光标移至句尾
　　( ：光标移至句首
　　}：光标移至段落开头
　　{：光标移至段落结尾
　　nG：光标移至第n行首
　　n+：光标下移n行
　　n-：光标上移n行
　　n$：光标移至第n行尾
　　H ：光标移至屏幕顶行
　　M ：光标移至屏幕中间行
　　L ：光标移至屏幕最后行
　　0：（注意是数字零）光标移至当前行首
　　$：光标移至当前行尾
　　
　　屏幕翻滚类命令
　　Ctrl+u：向文件首翻半屏
　　Ctrl+d：向文件尾翻半屏
　　Ctrl+f：向文件尾翻一屏
　　Ctrl＋b；向文件首翻一屏
　　nz：将第n行滚至屏幕顶部，不指定n时将当前行滚至屏幕顶部。
　　
　　插入文本类命令
　　i ：在光标前
　　I ：在当前行首
　　a：光标后
　　A：在当前行尾
　　o：在当前行之下新开一行
　　O：在当前行之上新开一行
　　r：替换当前字符
　　R：替换当前字符及其后的字符，直至按ESC键
　　s：从当前光标位置处开始，以输入的文本替代指定数目的字符
　　S：删除指定数目的行，并以所输入文本代替之
　　ncw或nCW：修改指定数目的字
　　nCC：修改指定数目的行
　　
　　删除命令
　　ndw或ndW：删除光标处开始及其后的n-1个字
　　do：删至行首
　　d$：删至行尾
　　ndd：删除当前行及其后n-1行
　　x或X：删除一个字符，x删除光标后的，而X删除光标前的
　　Ctrl+u：删除输入方式下所输入的文本
　　
　　搜索及替换命令
　　/pattern：从光标开始处向文件尾搜索pattern
　　?pattern：从光标开始处向文件首搜索pattern
　　n：在同一方向重复上一次搜索命令
　　N：在反方向上重复上一次搜索命令
　　：s/p1/p2/g：将当前行中所有p1均用p2替代
　　：n1,n2s/p1/p2/g：将第n1至n2行中所有p1均用p2替代
　　：g/p1/s//p2/g：将文件中所有p1均用p2替换
　　
　　选项设置
　　all：列出所有选项设置情况
　　term：设置终端类型
　　ignorance：在搜索中忽略大小写
　　list：显示制表位(Ctrl+I)和行尾标志（$)
　　number：显示行号
　　report：显示由面向行的命令修改过的数目
　　terse：显示简短的警告信息
　　warn：在转到别的文件时若没保存当前文件则显示NO write信息
　　nomagic：允许在搜索模式中，使用前面不带“\”的特殊字符
　　nowrapscan：禁止vi在搜索到达文件两端时，又从另一端开始
　　mesg：允许vi显示其他用户用write写到自己终端上的信息
　　
　　最后行方式命令
　　：n1,n2 co n3：将n1行到n2行之间的内容拷贝到第n3行下
　　：n1,n2 m n3：将n1行到n2行之间的内容移至到第n3行下
　　：n1,n2 d ：将n1行到n2行之间的内容删除
　　：w ：保存当前文件
　　：e filename：打开文件filename进行编辑
　　：x：保存当前文件并退出
　　：q：退出vi
　　：q!：不保存文件并退出vi
　　：!command：执行shell命令command
　　：n1,n2 w!command：将文件中n1行至n2行的内容作为command的输入并执行之，若不指定n1，n2，则表示将整个文件内容作为command的输入
　　：r!command：将命令command的输出结果放到当前行
　　
　　寄存器操作
　　"?nyy：将当前行及其下n行的内容保存到寄存器？中，其中?为一个字母，n为一个数字
　　"?nyw：将当前行及其下n个字保存到寄存器？中，其中?为一个字母，n为一个数字
　　"?nyl：将当前行及其下n个字符保存到寄存器？中，其中?为一个字母，n为一个数字
　　"?p：取出寄存器？中的内容并将其放到光标位置处。这里？可以是一个字母，也可以是一个数字
　　ndd：将当前行及其下共n行文本删除，并将所删内容放到1号删除寄存器中。

写软件的需求分析全方位攻略

2009-04-21T16:33:00.000+08:00

原文：http://blog.csdn.net/broadview2006/archive/2009/04/21/4096395.aspx

Oracle Test05

2009-04-20T10:44:00.001+08:00

其它数据库对象
1. 创建序列empno_seq，开始值为8000，每次增长2，最大值为9000，其他参数自选
2. 使用数据字典视图user_sequences查询序列的信息
3. 使用empno_seq向emp表中插入数据,要求empno的值为empno_seq的递增值,其他字段的值任意.
4. 为emp表中的员工姓名(ename)定义索引
5. 使用数据字典user_indexs查看索引的信息
6. 使用sys/sys身份登录,为scott.emp建立同义词emp_synm

Oracle Test04

2009-04-20T10:43:00.002+08:00

视图
1. 使用表emp创建视图emp_view，其中包括姓名(ename)，员工号(empno，工资(sal),部门号(deptno).
2. 显示视图的结构
3. 查询数据字典视图user_views，检查视图的定义
4. 查询emp_view视图中的全部数据
5. 从emp_view中查询工资最高的三位员工信息
6. 修改视图emp_view,将视图中的数据限定在部门号是30的范围内

Oracle Test03

2009-04-20T10:43:00.001+08:00

约束
1. 向表emp的id列中添加PRIMARY KEY约束（my_emp_id_pk）
2. 向表dept的id列中添加PRIMARY KEY约束（my_dept_id_pk）
3. 查询数据字典，获取约束的信息
4. 向表emp中添加列dept_id，并在其中定义FOREIGN KEY约束，与之相关联的列是dept表中的id列。
5. 查询数据字典，获取约束的信息

Oracle Test02

2009-04-20T10:42:00.001+08:00

创建和管理表
1. 创建表departments
name type
id Number(4)
name Varchar2(25)
Hiredate Date
2. 将表dept中的数据插入表departments中
3. 创建表employees
name type
id Number(4)
name Varchar2(25)
deptno Number(2)
4. 将列name的长度增加到50
5. 查询数据字典视图user_tables检查刚才的操作
6. 根据表employees创建his_employees
7. 删除表employees
8. 将表his_employees重命名为employees
9. 在表departments和employees中添加新列test_column，并在数据字典中检查所作的操作

Oracle Test01

2009-04-20T10:41:00.000+08:00

测试

1. 使用PL/SQL Developer创建表my_employee,字段见第三题表头显示,字段统一定义为Varchar2(20).

2. 显示表my_employee的结构

3. 向表中插入下列数据,并提交

ID	FIRST_NAME	LAST_NAME	USERID	SALARY
1	patel	Ralph	Rpatel	895
2	Dancs	Betty	Bdancs	860
3	Biri	Ben	Bbiri	1100
4	Newman	Chad	Cnewman	750
5	Ropeburn	Audrey	Aropebur	1550

4. 将3号员工的last_name修改为“drelxer”,并提交

5. 将所有工资少于1000的员工的工资修改为1000,(不提交),并设置回滚点

6. 删除my_employee表中所有数据(不提交)

7. 回滚到第五题中的设置的回滚点

8. 删除表my_employee中所有数据,并提交

c写的小玩意

2009-04-16T16:25:00.004+08:00

最近在上ProC的培训课程，感觉这门课不是一般的杂，刚开始是unix，接下来是unix下c编程，接下来是proc，接下来是tux，unix下c编程还推荐用vi，理由是某些公司里是禁止用ue的。呵呵，今天还是用ue登陆到老师开的虚拟机服务器ftp上面将c文件载下来写。最近写到这里了
用C写果然最有成就感。。。不像用delphi,大部分是开发环境生成的，成就感少了一点。
c语言博大精深，千万不要觉得c++/Java更洋气一些。James Gosling现在就后悔当初Java引入了类，现在有多少人正在将Java当成OOP语言真正的在用呢？
c是除了汇编外最让人尊重的语言，老前辈，一定要牢牢掌握
用c写的是控制台下应用的一个小软件，提供主菜单，根据选择调用相应函数。命名规则采用unix环境下推荐的命名规则。只不过缩进我还是用空格敲，不喜欢用tab，虽然可能每次要敲4个或8个空格我还是敲，呵呵

------------------------------------------.c文件------------------------------------------------------
/*
* fileoperator.c
* Programme Name：Exercise
* Copyright@ Hundun Version: V 1.0
* Function：Provide main menu under console, invoke certain function according to user's choice
* Author：Youbin Wang
* Record of Modification:
* 2009.04.16 Add the Version commentary. Separate the .c file and .h file, add a function
* open_file_readonly() by Youbin Wang
* 2009.04.15 Create the main programme，
* declare and define Selection,ShowMenu,CreateFile,OpenFile,ExitSystem by Youbin Wang
*/
#include
#include
#include"user01_20090416.h"

/*
* Show main menu if user haven't decided to exit the system
* or they just finish one operation
* Input parameter: none
* Output Parameter: return 1 while execute successfully
*/
int show_menu()
{
printf("/*--------------------------------------------\n");
printf(" * Welcome TO This Programme \n");
printf(" * This is the Main Menu \n");
printf(" *--------------------------------------------*/\n");
printf("\n");
printf("Please Make your selection\n");
printf(" 1: Create a new file and write;\n");
printf(" 2: Open a file and write;\n");
printf(" 3: Open a file with read-only mode;\n");
printf(" 4: Exit;\n");
printf("\n");
return 1;
}

/*
* if the user choose to open a file with readonly mode(3) then invoke this function
* InputParameter:None
* OutputParameter: return 1 if execute successfully, return 0 if a error occured while open a file
*/
int open_file_readonly()
{
char c_output;
FILE *fl_p_readonly;
fl_p_readonly = fopen("mytext.txt","rt");
if(NULL==fl_p_readonly)
{
printf("\nCannot open file readonly, press any key to continue!\n");
getchar();
return 0;
}
printf("Successfully read a file\n");
sleep(1);
c_output=fgetc(fl_p_readonly);
while(c_output!=EOF)
{
printf("I'm reading the text\n");
sleep(1);
putchar(c_output);
c_output=fgetc(fl_p_readonly);
}
fclose(fl_p_readonly);
return 1;
}
/*
* if the user choose to create a new file(1) then invoke this function
* InputParameter: None
* OutputParameter: return 1 while execute successfully, o while error accured in creating file
*/
int create_file()
{
printf("Creating a file...\n");
FILE *fl_createfile;
fl_createfile = fopen("new.txt","wt+");
if(NULL==fl_createfile)
{
printf("\nCannot create file, press any key to continue!\n");
getchar();
return 0;
}
char c_inputchar;
printf("Successfully create a file!\n");
sleep(1);
printf("Please input your text: \n");
while (c_inputchar!='\n')
{
printf("I'm reading your input\n");
fputc(c_inputchar,fl_createfile);
c_inputchar=getchar();
}
/* rewind the position of file pointer to the top of file */
rewind(fl_createfile);
printf("Your inputment is: ");
c_inputchar=fgetc(fl_createfile);
while(c_inputchar!=EOF)
{
printf("I'm writing your input\n");
putchar(c_inputchar);
c_inputchar=fgetc(fl_createfile);
}
printf("\n");
fclose(fl_createfile);
printf("Done!!\n");
return 1;
}

/*
* if the user choose to open a exist file(2) and write then invoke this function
* InputParameter:None
* OutputParameter: return 1 while execute successfully, 0 when a error occured in creating or read file
*/
int open_file()
{
printf("Opening a file...\n");
FILE *fl_openfile;
fl_openfile = fopen("mytext.txt","wt+");
if(NULL==fl_openfile)
{
printf("\nCannot open file, press any key to continue!\n");
getchar();
return 0;
}

char c_inputchar;
printf("Successfully open a file");
printf("Please input your text: \n");
while (c_inputchar!='\n')
{
fputc(c_inputchar,fl_openfile);
c_inputchar=getchar();
}
/* rewind the position of file pointer to the top of file */
rewind(fl_openfile);
printf("Your inputment is: ");
c_inputchar=fgetc(fl_openfile);
while(c_inputchar!=EOF)
{
putchar(c_inputchar);
c_inputchar=fgetc(fl_openfile);
}
printf("\n");
fclose(fl_openfile);
printf("Done!!\n");
return 1;
}

/*
* if the user choose to exit the system then invoke this function
* InputParameter:None
* OutputParameter: retrun 1 while execute successfully
*/
int exit_system()
{
printf("\n");
printf("Exiting.........\n");
printf("\n");
printf(" Thank you for using this system.\n");
printf("\n");
printf(" If you have any problems or advices,contract the author at qisi1986@gmail.com\n");
printf("\n");
printf(" Wish you a good day. Bye Bye.\n");
return 1;
}

/*
* if the user input the selection, then the function 'main' will invoke this function
* InputParameter: the selection of user
* OutputParameter: return 1 while successfully
* if the user put the wrong key then it will provide hints
*/
int Selection(int Index)
{
printf("Your Selection is %d \n", Index);
printf("Now will invoke corresponding function,please wait.");
printf("\n");
sleep(1);
switch(Index)
{
case 1:
create_file();
break;
case 2:
open_file();
break;
case 3:
open_file_readonly();
break;
case 4:
exit_system();
break;
default:
printf("Error!Please Enter a correct number!\n");
sleep(1);
}
return 1;
}

int main()
{
char inputInt;
system("clear");
while(inputInt != 4)
{
system("clear");
show_menu();
printf("Enter your selection here: ");
scanf("%d", &inputInt);
Selection(inputInt);
}
return 1;
}

------------------------------------------------.h文件------------------------------------------
/*
* fileoperator.h
* Copyright@ Hundun Version: V 1.0
* Function:contains all the declaration of functions in fileoperator.c
* Author: Youbin Wang
* Record of Modification:
* 2009.04.16 Create the .h File, add open_file_readonly by Youbin Wang
*/
#include

/*
* The declaration of functions
* CreateFile,OpenFile, ExitSystem are invoked by Selection
*/
int show_menu();
int create_file();
int open_file();
int exit_system();
int selection(int index);
int open_file_readonly();

毕业设计（新增加密解密工具）

2009-04-15T22:51:00.003+08:00

又有新的东西啦。
给我的毕业设计专门做了一个加密解密工具。先上PP。老规矩，图片在上，解说在下

1：配置文件里新增了加密的相关配置信息。主要就是两个，一个是加密的关键字符串key，另外一个是一个0~1之间的小数（最好只到小数点后两位）。它们共同构成了加密的算法。算法是我从网上搜刮来的，我改了一下。原先我将算法直接用来加密memo里的所有内容，结果发现会发生一些小概率的加密未完成便中止的现象。后来我把它改成逐行读取逐行加密就没有问题了。这个BUG真的很奇怪，我已经发给老大了，希望他有时间帮我看一下。我数学不行啊。哎~~~~~

2：该图是输入明文后的效果。这个加密工具可以独立使用也可以嵌入到任何一个工具里。只要包含了加密工具的单元，调用它的一个hasIniOriginalText或者hasIniDecodedText将其设置为true，就可以讲你要加密的内容从你的工具里导入到加密工具的明文或密文输入栏了。

3：上图为加密后的脚本内容，看不懂吧，呵呵。这个密文可以放到明文显示栏里再加密，每次加密可以更换不同的key和percent，只要记住顺序，一次次的用正确的key和percent解密就行了，很方便很强大吧。。。真是要感谢贴了这个加密算法的蝈蝈。之前上网搜了，论坛问了，有人让我用MD5加密，这个加密虽然破解还是有一定难度，可是解密也很麻烦的。当然，我对MD5甚至对密码学根本是门外汉，上述完全是凭直觉哈。

下边贴出我稍微改动后的加密算法代码：

var
frmCryptograph: TfrmCryptograph;

key: string;
percent1: Double;

implementation

{$R *.dfm}

function TfrmCryptograph.DeCode(aCryptograph, aKey: string): string;
var
i,keylen,codelen:integer;
begin
keylen :=Length(akey);
codelen:=Length(aCryptograph);
SetLength(Result, Length(aCryptograph));
for i:=1 to codelen do
begin
Result[i]:=Chr(Ord(aCryptograph[i])-Ord(aKey[(i mod KeyLen)+1]));
end;
end;

function TfrmCryptograph.EnCode(aCryptograph, aKey: string): string;
var
i,keylen,codelen:integer;
begin
keylen:=Length(akey);
codelen:=Length(aCryptograph);
SetLength(Result, Length(aCryptograph));
for i:=1 to codelen do
begin
Result[i]:=Chr(Ord(aCryptograph[i])+Ord(aKey[(i mod KeyLen)+1]));
end;
end;

function TfrmCryptograph.GetKey(aKey: string; aPercent: Double): string;
var
i:integer;
begin
SetLength(Result,Length(aKey));
for i:=1 to Length(aKey) do
begin
Result[i]:=Chr(Round(Ord(aKey[i])*aPercent));
end;
end;

procedure TfrmCryptograph.btnEncodeClick(Sender: TObject);
var
i: Integer;
str: string;
begin
mmoOutput.Clear;
pgcCryptograph.ActivePageIndex := 1;
for i := 0 to mmoInput.Lines.Count do
begin
str := EnCode(mmoInput.Lines.Strings[i],GetKey(Key,Percent1));
mmoOutput.Lines.Append(str);
end;
end;

procedure TfrmCryptograph.btnDecodeClick(Sender: TObject);
var
i: Integer;
str: string;
begin
mmoInput.Clear;
pgcCryptograph.ActivePageIndex := 0;
for i := 0 to mmoOutput.Lines.Count do
begin
str := DeCode(mmoOutput.Lines.Strings[i],GetKey(Key,Percent1)) ;
mmoInput.Lines.Append(str)
end;
end;

procedure TfrmCryptograph.FormCreate(Sender: TObject);
begin
initEnDeCodeForm(Sender);
pgcCryptograph.ActivePageIndex := 0;
end;

procedure TfrmCryptograph.initEnDeCodeForm(Sender: TObject);
var
iniFileName: string;
begin
{如果没有初始化的明文输入，则清空}
if not withIniOriginalText then
mmoInput.Clear;
if not withIniDecodedText then
mmoOutput.Clear;
iniFileName := 'config\config.ini';
with TInifile.Create(iniFileName) do
begin
percent1 := ReadFloat('CRYPTOGRAPHY','PERCENT',0);
key := ReadString('CRYPTOGRAPHY','KEY','');
Free;
end;
end;

procedure TfrmCryptograph.FormShow(Sender: TObject);
begin
initEnDeCodeForm(Sender);
end;

procedure TfrmCryptograph.btnImportEncodeClick(Sender: TObject);
begin
dlgOpenCryptograph.Execute;
mmoInput.Clear;
try
mmoInput.Lines.LoadFromFile(dlgOpenCryptograph.FileName);
except
Exit;
// MessageBox(Handle, '读取文件出错，请重试', '提示', MB_OK);
end;
end;

procedure TfrmCryptograph.btnExportEncodeClick(Sender: TObject);
begin
dlgSaveCryptograph.Execute;
try
mmoInput.Lines.SaveToFile(dlgSaveCryptograph.FileName + '.sql');
except
Exit;
// MessageBox(Handle, '保存文件出错，请重试', '提示', MB_OK);
end;
end;

procedure TfrmCryptograph.btnImportDecodeClick(Sender: TObject);
begin
dlgOpenCryptograph.Execute;
mmoInput.Clear;
try
mmoInput.Lines.LoadFromFile(dlgOpenCryptograph.FileName);
except
Exit;
// MessageBox(Handle, '读取文件出错，请重试', '提示', MB_OK);
end;
end;

procedure TfrmCryptograph.btnExportDecodeClick(Sender: TObject);
begin
dlgSaveCryptograph.Execute;
try
mmoOutput.Lines.SaveToFile(dlgSaveCryptograph.FileName + '.sql');
except
Exit;
// MessageBox(Handle, '保存文件出错，请重试', '提示', MB_OK);
end;
end;

procedure TfrmCryptograph.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
mmoInput.Clear;
mmoOutput.Clear;
withIniOriginalText := False;
withIniDecodedText := False;
end;

总结：这个小工具花了我一天多的时间。其中大部分用来找加密未完成却中断的原因了，结果还是没有找到，可见要成为IT中的牛人，数学是多么重要。虽然实际开发中未必用得了算法，未必要那么考虑效率，可是，对于一个程序员来说，追求完美是一种天性，应该坚持下去。

查看SQL SERVER 加密存储过程,函数,触发器,视图

2009-04-14T21:11:00.000+08:00

原作出处：http://dev.csdn.net/develop/article/23/23218.shtm
作者：CSDN某大虾
读后感：目前难以理解透

create PROCEDURE sp_decrypt(@objectname varchar(50))
AS
begin
set nocount on
--CSDN：j9988 copyright:2004.07.15
--V3.2
--破解字节不受限制，适用于SQLSERVER2000存储过程，函数，视图，触发器
--修正上一版"视图触发器"不能正确解密错误
--发现有错，请E_MAIL：CSDNj9988@tom.com
begin tran
declare @objectname1 varchar(100),@orgvarbin varbinary(8000)
declare @sql1 nvarchar(4000),@sql2 varchar(8000),@sql3 nvarchar(4000),@sql4 nvarchar(4000)
DECLARE @OrigSpText1 nvarchar(4000), @OrigSpText2 nvarchar(4000) , @OrigSpText3 nvarchar(4000), @resultsp nvarchar(4000)
declare @i int,@status int,@type varchar(10),@parentid int
declare @colid int,@n int,@q int,@j int,@k int,@encrypted int,@number int
select @type=xtype,@parentid=parent_obj from sysobjects where id=object_id(@objectname)

create table #temp(number int,colid int,ctext varbinary(8000),encrypted int,status int)
insert #temp SELECT number,colid,ctext,encrypted,status FROM syscomments WHERE id = object_id(@objectname)
select @number=max(number) from #temp
set @k=0

while @k<=@number begin if exists(select 1 from syscomments where id=object_id(@objectname) and number=@k) begin if @type='P' set @sql1=(case when @number>1 then 'ALTER PROCEDURE '+ @objectname +';'+rtrim(@k)+' WITH ENCRYPTION AS '
else 'ALTER PROCEDURE '+ @objectname+' WITH ENCRYPTION AS '
end)

if @type='TR'
begin
declare @parent_obj varchar(255),@tr_parent_xtype varchar(10)
select @parent_obj=parent_obj from sysobjects where id=object_id(@objectname)
select @tr_parent_xtype=xtype from sysobjects where id=@parent_obj
if @tr_parent_xtype='V'
begin
set @sql1='ALTER TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION INSTERD OF INSERT AS PRINT 1 '
end
else
begin
set @sql1='ALTER TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION FOR INSERT AS PRINT 1 '
end

end
if @type='FN' or @type='TF' or @type='IF'
set @sql1=(case @type when 'TF' then
'ALTER FUNCTION '+ @objectname+'(@a char(1)) returns @b table(a varchar(10)) with encryption as begin insert @b select @a return end '
when 'FN' then
'ALTER FUNCTION '+ @objectname+'(@a char(1)) returns char(1) with encryption as begin return @a end'
when 'IF' then
'ALTER FUNCTION '+ @objectname+'(@a char(1)) returns table with encryption as return select @a as a'
end)

if @type='V'
set @sql1='ALTER VIEW '+@objectname+' WITH ENCRYPTION AS SELECT 1 as f'

set @q=len(@sql1)
set @sql1=@sql1+REPLICATE('-',4000-@q)
select @sql2=REPLICATE('-',8000)
set @sql3='exec(@sql1'
select @colid=max(colid) from #temp where number=@k
set @n=1
while @n<=CEILING(1.0*(@colid-1)/2) and len(@sql3)<=3996 begin set @sql3=@sql3+'+@' set @n=@n+1 end set @sql3=@sql3+')' exec sp_executesql @sql3,N'@sql1 nvarchar(4000),@ varchar(8000)',@sql1=@sql1,@=@sql2 end set @k=@k+1 end set @k=0 while @k<=@number begin if exists(select 1 from syscomments where id=object_id(@objectname) and number=@k) begin select @colid=max(colid) from #temp where number=@k set @n=1 while @n<=@colid begin select @OrigSpText1=ctext,@encrypted=encrypted,@status=status FROM #temp WHERE colid=@n and number=@k SET @OrigSpText3=(SELECT ctext FROM syscomments WHERE id=object_id(@objectname) and colid=@n and number=@k) if @n=1 begin if @type='P' SET @OrigSpText2=(case when @number>1 then 'CREATE PROCEDURE '+ @objectname +';'+rtrim(@k)+' WITH ENCRYPTION AS '
else 'CREATE PROCEDURE '+ @objectname +' WITH ENCRYPTION AS '
end)

if @type='FN' or @type='TF' or @type='IF'
SET @OrigSpText2=(case @type when 'TF' then
'CREATE FUNCTION '+ @objectname+'(@a char(1)) returns @b table(a varchar(10)) with encryption as begin insert @b select @a return end '
when 'FN' then
'CREATE FUNCTION '+ @objectname+'(@a char(1)) returns char(1) with encryption as begin return @a end'
when 'IF' then
'CREATE FUNCTION '+ @objectname+'(@a char(1)) returns table with encryption as return select @a as a'
end)

if @type='TR'
begin

if @tr_parent_xtype='V'
begin
set @OrigSpText2='CREATE TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION INSTEAD OF INSERT AS PRINT 1 '
end
else
begin
set @OrigSpText2='CREATE TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION FOR INSERT AS PRINT 1 '
end

end

if @type='V'
set @OrigSpText2='CREATE VIEW '+@objectname+' WITH ENCRYPTION AS SELECT 1 as f'

set @q=4000-len(@OrigSpText2)
set @OrigSpText2=@OrigSpText2+REPLICATE('-',@q)
end
else
begin
SET @OrigSpText2=REPLICATE('-', 4000)
end
SET @i=1

SET @resultsp = replicate(N'A', (datalength(@OrigSpText1) / 2))

WHILE @i<=datalength(@OrigSpText1)/2
BEGIN

SET @resultsp = stuff(@resultsp, @i, 1, NCHAR(UNICODE(substring(@OrigSpText1, @i, 1)) ^
(UNICODE(substring(@OrigSpText2, @i, 1)) ^
UNICODE(substring(@OrigSpText3, @i, 1)))))
SET @i=@i+1
END
set @orgvarbin=cast(@OrigSpText1 as varbinary(8000))
set @resultsp=(case when @encrypted=1
then @resultsp
else convert(nvarchar(4000),case when @status&2=2 then uncompress(@orgvarbin) else @orgvarbin end)
end)
print @resultsp

set @n=@n+1

end

end
set @k=@k+1
end

drop table #temp
rollback tran
end

毕业设计(未完工)

2009-04-13T18:58:00.007+08:00

前言：上周的时间几乎都花在搞毕设上了。感觉做的这个毕业设计很奇怪，没有参考代码就算了，连需求文档，软件架构分析，模块划分等都没有，直接就是开了几个小会，说了些功能要求就让我们自己写。没法，TA的老大们最近忙着推出4.0版本的TA系统，没空理我们。我们10F这些实习生闲的心慌慌，以为毕设没法完成了。谁知道Delphi这么强大。。开发进度很快，已经差不多要完工了。贴几张图上来记录一下成果
格式：图在上，解说在下.

1 ：这是框架的配置文件，主要用于配置登录数据库的方案名，用户名（暂时没把密码考虑进去，不然还要考虑加密，况且数据库目前只支持Oracle）。登录窗口直接从这里读取这两个配置文件从而进行初始化。这里使用了Delphi中的TIniFile类进行配置文件的读取和写入。确实是非常好用的一个类。
可以在配置文件上直接更改。若检测到改动会提示保存与否。

2：这是登录成功后从系统工具菜单里打开的新报表生成工具的第一页。主要用于查询现有可用报表，从一个专门的数据库表单中读取数据并显示在DBGrid中。这一页使用的是DBGrid，确实没有DBGridEh方便，为了写一个随鼠标滚轮而移动TDataSource的游标，并且实现在移动到表格边界时自动翻页，我得另外写个窗口过程，将DBGrid原先的窗口过程保存为一个TWndMethod的变量，将新的窗口过程赋给它。在新的窗口过程中要捕获WM_MOUSEWHEEL消息并做如下处理
if Message.WParam >0 then
ADBGrid.DataSource.DataSet.MoveBy(-1)
else
ADBGrid.DataSource.DataSet.MoveBy(1);
对于非鼠标滚轮消息则调用保存的原DBGrid窗口过程处理。同时，如果要在不同页里其他DBGrid里实现相同效果，我得做类似的处理。还要小心非鼠标滚轮的消息不会被忘记处理，不然马上会报错。
而如果使用DBGridEh，它是自带的属性 -_-##
上边蓝色部分两个Edit组件是用来跟踪当前选中报表信息，可以随顺表滚轮滚动动态更新为当前所在记录行

3：这是第2个页面。主要功能是绿色部分的SQL语句查询功能并在下边的表格里显示。在SQL语句输入框上有几个功能键：可以从外部带入一个SQL脚本，可以将输入的SQL脚本导出到硬盘，清空SQL输入框内容，执行SQL语句，另外带了一个拼写帮助。如右上角对话框所示。
可以在显示结果的DBGridEh中直接修改记录数据，并且修改将会被自动保存（暂时不支持回滚）。令人感动的DBGridEh自带了even和odd行颜色不同的功能，如果用普通的DBGrid又得自己写属性。

3：这是第三个字段设置页。主要用来勾选新报表要采用的字段，grid里的checkbox还没有加上去，因为要修改原表结构，添加至少三个字段进去，所以要问下导师要不要加。可以查询所有可用字段，可以添加和删除字段。
这一页可以从第一页双击GRID中某行数据跳转过来，如果是这样的话左边的新报表信息栏会已从第一页选中的报表配置为模版导入。图中左边显示的就是导入报表模版的结果

4：最后一个是SQL脚本生成。将生成新报表的操作全部翻译为SQL语句，导出成为脚本，如果某台计算机上装了相应的数据库导入了相应的表，那只要运行这个脚本，就可以在任意计算机上生成根据配置结果生成的新报表。

总结：一切都只草草带过。具体技术细节有时间我会陆续发上来，不过其实也没什么难的，是Delphi这把刀太好使了。如果是用MFC，这框架就得累死我。
这个框架写的还是不错的，可扩展性很强。有新的功能可以独立编写一个功能模块然后把相应的FORM做一些格式上更改就可以直接加入现有的框架了。但我觉得还不够，如果所有的功能模块都可以写成DLL文件形式的那就跟方便了，主程序也不会越写越大。

同时我有个想法，因为DLL文件调试很不方便（一旦生成了就没法跟进文件调了），而调试DLL的方法除了专门建个测试工程，还剩一个使用系统日志调试的。我想写个这样的DLL调试工具，liangpei2008在CSDN里回复说建议我用COM+写. GOSH，我还不清楚COM+是什么呢！慢慢来。总是会懂的，我要加油

咖啡全集

2009-04-13T12:49:00.000+08:00

拿铁咖啡

拿铁咖啡是意大利浓缩咖啡与牛奶的经典混合，意大利人也很喜欢把拿铁作为早餐的饮料。意大利人早晨的厨房里，照得到阳光的炉子上通常会同时煮着咖啡和牛奶。喝拿铁的意大利人，与其说他们喜欢意大利浓缩咖啡，不如说他们喜欢牛奶，也只有espresso才能给普普通通的牛奶带来让人难以忘怀的味道。

意大利式拿铁咖啡 (Caffe Latte)需要一小杯Espresso和一杯牛奶(150～200毫升)，拿铁咖啡中牛奶多而咖啡少，这与Cappuccino有很大不同。拿铁咖啡做法极其简单，就是在刚刚做好的意大利浓缩咖啡中倒入接近沸腾的牛奶。事实上，加入多少牛奶没有一定之规，可依个人口味自由调配。

如果在热牛奶上再加上一些打成泡沫的冷牛奶，就成了一杯美式拿铁咖啡。

星巴克的美式拿铁就是用这种方法制成的，底部是意大利浓缩咖啡，中间是加热到65～75℃的牛奶，最后是一层不超过半厘米的冷的牛奶泡沫。

如果不放热牛奶，而直接在意大利浓缩咖啡上装饰两大勺牛奶泡沫，就成了被意大利人叫做Espresso Macchiato的玛奇哈朵咖啡。

欧蕾咖啡(Café Au Lait)

欧蕾咖啡可以被看成是欧式的拿铁咖啡，与美式拿铁和F拿铁都不太相同。欧蕾咖啡的做法也很简单，就是把一杯意大利浓缩咖啡和一大杯热热的牛奶同时倒入一个大杯子，最后在液体表面放两勺打成泡沫的奶油。欧蕾咖啡区别于美式拿铁和意式拿铁最大的特点就是它要求牛奶和浓缩咖啡一同注入杯中，牛奶和咖啡在第一时间相遇，碰撞出的是一种闲适自由的心情。法国人是欧蕾咖啡最热情的拥护者，你在法国入的早餐桌上会看到肚子圆圆的欧蕾杯，里面盛的是他们一天好心情的源泉。有趣的是，比较所有的咖啡杯，可能法国人用来盛欧蕾咖啡的杯子是最大号的。

拿铁是最为国人熟悉的意式咖啡品项.它是在沉厚浓郁的 ESPRESSO中,加进等比例,甚至更多牛奶的花式咖啡.有了牛奶的温润调味,让原本甘苦的咖啡变得柔滑香甜\甘美浓郁,就连不习惯喝咖啡的人,也难敌拿铁芳美的滋味.和卡布奇诺一样,拿铁因为含有多量的牛奶而适合在早晨饮用.意大利人也喜欢拿它来暖胃,搭配早餐用.很多人搞不清楚拿铁,欧蕾之间的关系,其实拿铁是意大利式的年奶咖啡,以机器蒸汽的方式来蒸热牛奶,而欧蕾则是法式咖啡,他们用火将牛奶煮热,口感都是一泒的温润滑美. 作法:使用器具与材料. 深烘焙的咖啡豆适量. 牛奶适量(咖啡\鲜奶的比例为:1:1) 1.以热水浸泡杯子(温杯),使其温度上升后,再倒掉多余的水分使用. 2.将深烘焙的咖啡豆研磨后,将咖啡粉倒进填压器内,用压棒将咖啡粉压平,再将填压器扣住意式咖啡机萃取口,萃取出ESPRESSO(咖啡\鲜奶的比例为 1:1). 3.取适量牛奶,将其置于意式浓缩咖啡机的蒸汽喷嘴下,使其蒸成热牛奶. 4.将蒸热的牛奶倒进杯中. 5.将杯子上下摇晃,使奶泡上升 6.最后将ESPRESSO缓缓地倒进杯中即可.

卡布奇诺（Gappuccino/Cappuccino Coffee） 20世纪初期，意大利人阿奇布夏发明蒸汽压力咖啡机的同时，也发展出了卡布奇诺咖啡。卡布奇诺是一种加入以同量的意大利特浓咖啡和蒸汽泡沫牛奶相混合的意大利咖啡。此时咖啡的颜色，就象卡布奇诺教会的修士在深褐色的外衣上覆上一条头巾一样，咖啡因此得名。传统的卡布奇诺咖啡是三分之一浓缩咖啡，三分之一蒸汽牛奶和三分之一泡沫牛奶。特浓咖啡的浓郁口味，配以润滑的奶泡；颇有一些汲精敛露的意味。撒上了肉桂粉的起沫牛奶，混以自下而上的意大利咖啡的香气，新一代咖啡族为此而心动不已。它有一种让人无法抗拒的独特魅力，起初闻起来时味道很香，第一口喝下去时，可以感觉到大量奶泡的香甜和酥软，第二口可以真正品尝到咖啡豆原有的苦涩和浓郁，最后当味道停留在口中，你又会觉得多了一份香醇和隽永……一种咖啡可以喝出多种不同的独特味道，不觉得很神奇吗？第一口总让人觉得苦涩中带着酸味，大量的泡沫就像年轻人轻挑的生活，而泡沫的破灭和那一点点的苦涩又像是梦想与现实的冲突。最后品尝过生活的悲喜后，生命的香醇回甘却又让人陶醉…… 这就好像正值青春期的青少年一般，在享受过童稚、美好的时光后，便要开始面对踏入成人世界的冲击，真正尝到人生的原味——除了甘甜之外，还有一份苦涩。

卡布奇诺的由来维也纳人柯奇斯基（Fanz George Kolschitsky）是牛奶加咖啡的Cafe Latte创始人。这两种饮料均是咖啡和牛奶洐生出来，但卡布奇诺的来历却更有学问，一直是欧美研究文字变迁的最佳体材。 Cappuccino此字的历史：创设于1525五年以后的圣芳济教会（Capuchin）的修士都穿著褐色道袍，头戴一顶尖尖帽子，圣芳济教会传到意大利时，当地人觉得修士服饰很特殊，就给他们取个Cappuccino的名字，此字的意大利文是指僧侣所穿宽松长袍和小尖帽，源自意大利文“头巾”即Cappuccio。然而，老意爱喝咖啡，发觉浓缩咖啡、牛奶和奶泡混合后，颜色就像是修士所穿的深褐色道袍，于是灵机一动，就给牛奶加咖啡又有尖尖奶泡的饮料，取名为卡布奇诺（Cappuccino）。英文最早使用此字的时间在1948年，当时旧金山一篇报导率先介绍卡布奇诺饮料，一直到一九九0年以后，才成为世人耳熟能详的咖啡饮料。应该可以这么说Cappuccino咖啡这个字，源自圣芳济教会(Capuchin)和意大利文头巾（Cappucio），相信 Cappuccino的原始造字者，做梦也没料到僧侣的道袍最后会变成一种咖啡饮料名称。卡布奇诺也和一种猴名有关。非洲有一种小猴子，头顶上有一撮黑色的锥状毛发，很像圣芳济教会道袍上的小尖帽，这种小猴子也因此被取名为Capuchin，此一猴名最早被英国人使用的时间在1785年。Capuchin此字数百年后洐生成咖啡饮料名和猴子名称，一直是文字学者津津乐道的趣闻。干卡布奇诺与湿卡布奇诺你知道卡布奇诺可以干喝也可以湿喝吗？所谓干卡布奇诺（Dry Cappuccino）是指奶泡较多，牛奶较少的调理法，喝起来咖啡味浓过奶香，适合重口味者饮用。到于湿卡布奇诺（Wet Cappuccino）则指奶泡较少，牛奶量较多的做法，奶香盖过浓呛的咖啡味，适合口味清淡者。湿卡布奇诺的风味和时下流行的拿铁差不多。一般而言，卡布奇诺的口味比拿铁来得重，如果您是重口味不妨点卡布奇诺或干卡布奇诺，您如果不习惯浓呛的咖啡味，可以点拿铁或湿卡布奇诺。卡布奇诺咖啡的制作在意大利特浓咖啡的基础上，加一层厚厚的起沫的牛奶，就成了卡布奇诺。特浓咖啡的质量在牛奶和泡沫下会看不太出来，但它仍然是决定卡布奇诺口味的重要因素。把经过部分脱脂的牛奶倒入一只壶中，然后用起沫器让牛奶起沫、冲气，并且让牛奶不经过燃烧就可以象掼奶油一样均匀。盛卡布奇诺的咖啡杯应该是温热的不然倒入的牛奶泡沫会散开。平时可以将这些杯子放在咖啡机的顶部保温。将牛奶和泡沫倒在特浓咖啡上面，自然形成了一层，就好像把下面的咖啡包了起来。注意倒入冲泡好的意大利咖啡约五分满，打过奶泡的热牛奶倒至八分满。最后可随个人喜好，洒上少许再切成细丁的肉桂粉或巧克力粉，剩余的牛奶也可以一起倒进去，这样，一杯美味的卡布奇诺就制成了。

蓝山咖啡(BLUEMOUNTAIN) 　　是生产于牙买加蓝山海拔2500尺以上的咖啡豆，是一种微酸、柔顺、带甘、风味细腻的咖啡；纯蓝山咖啡口感、香味较淡，但喝起来却非常香醇精致；具有贵族的品味，乃咖啡中之极品。　　

摩卡咖啡(MOCHA) 　　目前以也门所生产的咖啡为最佳，其次为依索比亚的摩卡；摩卡咖啡带润滑中之中酸至强酸、甘性特佳、风味独特，含有巧克力的味道；具有贵妇人的气质，是极具特色的一种纯品咖啡。　　

哥伦比亚咖啡(COLOMBIA）　　哥伦比亚咖啡中以SUPREMO最具特色，其咖啡柔软香醇；带微酸至中酸，其品质及香味稳定，属中度咖啡，是用以调配综合咖啡的上品。　　

曼特宁咖啡(MANDELING) 　　是生产于印度尼西亚，苏门答腊中最具代表性的咖啡；风味香、浓、苦，口味相当强，但柔顺不带酸，是印度尼西亚生产的咖啡中品质最好的一种咖啡。　　碳烧咖啡(CHARCALFIRE）　　是一种重度烘焙的咖啡，味道焦、苦不带酸，咖啡豆有出油的现象，极适合用于蒸气加压咖啡。　　

巴西咖啡(SANTOS) 　　巴西乃世界第一的咖啡生产国，所产之咖啡，香味温和、微酸、微苦，为中性咖啡之代表，是调配温和咖啡不可或缺的品种。　　肯亚咖啡(KENYAAA) 　　是非洲高地栽培的代表性咖啡。AA代表其级数也就是最高级品，其咖啡豆肉质厚呈圆形，味浓质佳，通常采用浅焙。清晨起来喝一杯肯亚，具有醒脑的效用。　　

夏威夷咖啡(KONAFANCY) 　　属于夏威夷西部火山所栽培的咖啡，也是美国唯一生产的咖啡品种，口感较强，香味浓，带强酸，风味特殊。品质相当稳定，是前往夏威夷的观光客必购土产之一。

維也納咖啡（Viennese）乃奥地利最著名的咖啡，是一个名叫爱因·舒伯纳的马车夫发明的，也许是由于这个原因，今天，人们偶尔也会称维也纳咖啡为“单头马车”。以浓浓的鲜奶油和巧克力的甜美风味迷倒全球人士。雪白的鲜奶油上，洒落五色缤纷七彩米，扮相非常漂亮；隔着甜甜的巧克力糖浆、冰凉的鲜奶油啜饮滚烫的热咖啡，更是别有风味！

　　维也纳咖啡是慵懒的周末或是闲适的午后最好的伴侣，喝上一杯维也纳咖啡就是为自己创造了一个绝好的放松身心的机会。但是，由于含有太多糖分和脂肪，维也纳咖啡并不适合于减肥者。

hazelnut咖啡 Hazelnut就是指榛果咖啡
French Vanilla就是法式香草.你没必要把中文一起打上来的.懂的人一看就懂.不懂的就会根据这些去找地方复制答案了.这两种都是拿铁.只是里面放了不同的糖浆.底子都是
Espresso Ristretto 1杯 (15-20ml) +蒸汽奶泡约200ml

白咖啡

Malaysia是唯一出产正统白咖啡的地方哦~
现在市面上存在的咖啡都属于黑咖啡，黑咖啡是咖啡豆加焦糖经过高温炭烤而成，这一做工使得做出的咖啡有焦苦、酸、焦糖和炭化的味道。在健康上它会伤胃，上火，造成黑色素的沉淀等不利之处。
　　白咖啡是咖啡豆不加焦糖直接低温烘焙,去除了一般高温热炒及炭烤的焦枯、酸涩味,而且保留了原始咖啡的自然风味及浓郁的香气,香浓顺口而心动。不伤肠胃，不上火,低咖啡因,口感滑顺,甘醇芬芳。

几种咖啡的调制　　　　综合热咖啡：巴西3.5、曼特宁1、爪哇2、哥伦比亚2、摩卡1.5（调配式）香、甘、苦、酸。　　　　综合热咖啡：巴西2、曼特宁1、爪哇3.5、哥伦比亚2、摩卡1.5（调配式）香、甘、苦、酸。　　　　综合冰咖啡：曼特宁2、哥伦比亚2、爪哇2.5、荷兰一号2、摩卡1.5（调配式）香、醇、苦　　　　碳烧咖啡：独特的烘培方式，产于苏门答腊，哥伦比亚2、巴西2、曼特宁1.5、爪哇4.5。苦、醇。　　意大利咖啡：一般在家中冲泡意大利咖啡，是利用意大利发明的摩卡壶冲泡成的，这种咖啡壶也是利用蒸气压力的原理来淬取咖啡（又一个瓦特的徒弟）。摩卡壶可以使受压的蒸气直接通过咖啡粉，让蒸气瞬间穿过咖啡粉的细胞壁（还是虎克的徒弟），将咖啡的内在精华淬取出来，故而冲泡出来的咖啡具有浓郁的香味及强烈的苦味，咖啡的表面并浮现一层薄薄的咖啡油，这层油正是意大利咖啡诱人香味的来源。康宝蓝马琪雅朵咖啡：意大利咖啡真是“百花齐放”，又开出康宝蓝与马琪雅朵两朵花来。只要在意大利浓缩咖啡中加入适量的鲜奶油，即轻松地完成一杯康宝蓝。嫩白的鲜奶油轻轻漂浮在深沉的咖啡上，宛若一朵出淤泥而不染的白莲花，令人不忍一口喝下。在意大利浓缩咖啡中，不加鲜奶油、牛奶，只加上两大勺绵密细软的奶泡就是一杯马琪雅朵。不象康宝蓝，要想享受马琪雅朵的美味，就要一口喝下。法国牛奶咖啡：咖啡和牛奶的比例为1：1，正统的法国牛奶咖啡冲泡时，要牛奶壶和咖啡壶从两旁同时注入咖啡杯，这种冲配方法延续了几百年。今天，它仍是法国人早餐桌上不可或缺的饮品。法国baby，奶味十足！土耳其咖啡：至今仍采用原始煮法，复杂的工艺带着几许异国情调的神秘色彩。从中，我们可以窥视到奥斯曼帝国盛极一时的风采。爱尔兰咖啡：名字里就带着一阵威士忌浓烈的熏香，爱尔兰人视威士忌如生命，也少不了在咖啡中做些手脚！以威士忌调成的爱尔兰咖啡，更能将咖啡的酸甜味道衬托出来。一丝成熟的忧郁…… 小心，咖啡喝多了也会醉！皇家咖啡：这一道极品可是由一位能征贯战的皇帝发明的，对了，他就是法兰西帝国的皇帝拿破仑！他可不喜欢奶味，他喜欢的是法国的骄傲——白兰地！（又一个在咖啡中掺烈酒的家伙！）蓝色的火焰舞起白兰地的芳醇与方糖的焦香，再合上浓浓的咖啡香，苦涩中略带甘甜……法国的高傲，法国的浪漫。绿茶咖啡：绿茶的清香将我们的视线从遥远的国度拉了回来，日本是一个善于吸收与融合的民族，这一次，他们又在西方的咖啡与东方的绿茶之间找到了平衡点，也为爱喝茶的朋友们提供了新宠。这是一道纯东洋风味的咖啡，绿茶的幽雅清香、咖啡的浓郁厚重交流激荡。冰拿铁咖啡：我们不得不再一次提到拿铁咖啡。（是它太诱人，还是它风花雪月太过头？）利用果糖与牛奶混合增加牛奶的比重，使它与比重较轻的咖啡不会混合，成为黑白分明的两层，形成如鸡尾酒般曼妙的视觉效果，再加上冰块，给人一种高雅而浪漫的温馨感觉。魔力冰淇淋咖啡：这一道充满创意与富有变化的神奇口味只属于年轻的你！在冰凉的香草冰淇淋上倒入意大利浓缩咖啡，再用巧克力酱在鲜奶油和冰淇淋上自由构图，魔力般水乳交融的冰品咖啡，只留芳香与清爽在你口中。摩卡霜冻咖啡：喜爱巧克力的伙计们，还有没有胃口试试“霜冻”了的巧克力摩卡咖啡？用果汁机将冰块与冰淇淋打碎调和，创造出一种绵密的视觉效果，再加入摩卡冰咖啡，就大功告成了！入口溜滑，沁爽香醇，夏日炎炎中给你一个清凉的下午。

　　这种维也纳咖啡有着独特的喝法。品尝维也纳咖啡最大的技巧在于不去搅拌咖啡，而是享受杯中三段式的快乐：首先是冰凉的奶油，柔和爽口；然后是浓香的咖啡，润滑却微苦；最后是甜蜜的糖浆，即溶未溶的关键时刻，带给人们发现宝藏般的惊喜。

　　维也纳咖啡的制作有点像美式摩卡咖啡。首先在湿热的咖啡杯底部撒上薄薄一层砂糖或细冰糖，接着向杯中倒入滚烫而且偏浓的黑咖啡，最后在咖啡表面装饰两勺冷的新鲜奶油，一杯经典的维也纳咖啡就做好了。

【又是一个偷懒的转载】Returning语句的几个小问题

2009-04-13T11:09:00.000+08:00

ORACLE的DML语句中可以指定RETURNING语句。RETURNING语句的使用在很多情况下可以简化PL/SQL编程。

这里不打算说明RETURNING语句的使用（其实使用起来也很简单，和SELECT INTO语句没有多大区别。），主要打算说明RETURNING语句的几个特点。

其实这篇文章源于同事问我的一个问题：

使用UPDATE语句的时候，RETURNING得到的结果是UPDATE之前的结果还是UPDATE之后的结果？

这个问题把我问住了。考虑DELETE的情况，RETURNING返回的肯定是DELETE之前的结果，而考虑INSERT的情况，RETURNING返回的一定是INSERT之后的结果。但是UPDATE到底返回那种情况，就无法推断出来了。而且，由于一般在使用UPDATE的RETURNING语句时，都会返回主键列，而主键列一般都是不会修改的，因此确实不清楚Oracle返回的是UPDATE之前的结果还是之后的结果。

当然，一个简单的例子就可以测试出来：

SQL> CREATE TABLE T (ID NUMBER, NAME VARCHAR2(30));

表已创建。

SQL> SET SERVEROUT ON
SQL> DECLARE
2 V_NAME VARCHAR2(30);
3 BEGIN
4 INSERT INTO T VALUES (1, 'YANGTK') RETURNING NAME INTO V_NAME;
5 DBMS_OUTPUT.PUT_LINE('INSERT: ' || V_NAME);
6 V_NAME := NULL;
7 UPDATE T SET NAME = 'YTK' RETURNING NAME INTO V_NAME;
8 DBMS_OUTPUT.PUT_LINE('UPDATE: ' || V_NAME);
9 V_NAME := NULL;
10 DELETE T RETURNING NAME INTO V_NAME;
11 DBMS_OUTPUT.PUT_LINE('DELETE: ' || V_NAME);
12 END;
13 /
INSERT: YANGTK
UPDATE: YTK
DELETE: YTK

PL/SQL 过程已成功完成。

显然，UPDATE操作的RETURNING语句是返回UPDATE操作之后的结果。

顺便总结几个RETURNING操作相关的问题：

1．RETURNING语句似乎和RETURN通用。

SQL> SET SERVEROUT ON
SQL> DECLARE
2 V_NAME VARCHAR2(30);
3 BEGIN
4 INSERT INTO T VALUES (1, 'YANGTK') RETURN NAME INTO V_NAME;
5 DBMS_OUTPUT.PUT_LINE('INSERT: ' || V_NAME);
6 V_NAME := NULL;
7 UPDATE T SET NAME = 'YTK' RETURN NAME INTO V_NAME;
8 DBMS_OUTPUT.PUT_LINE('UPDATE: ' || V_NAME);
9 V_NAME := NULL;
10 DELETE T RETURN NAME INTO V_NAME;
11 DBMS_OUTPUT.PUT_LINE('DELETE: ' || V_NAME);
IXDBA.NET技术社区
12 END;
13 /
INSERT: YANGTK
UPDATE: YTK
DELETE: YTK

PL/SQL 过程已成功完成。

2．RETURNING语句也可以使用SQLPLUS的变量，这样，RETURNING语句不一定非要用在PL/SQL语句中。

SQL> VAR V_NAME VARCHAR2(30)
SQL> INSERT INTO T VALUES (1, 'YANGTK') RETURNING NAME INTO :V_NAME;

已创建 1 行。

SQL> PRINT V_NAME

V_NAME
--------------------------------
YANGTK

SQL> UPDATE T SET NAME = 'YTK' RETURNING NAME INTO :V_NAME;

已更新 1 行。

SQL> PRINT V_NAME

V_NAME
--------------------------------
YTK

SQL> DELETE T RETURNING NAME INTO :V_NAME;

已删除 1 行。

SQL> PRINT V_NAME

V_NAME
--------------------------------
YTK

3．INSERT INTO VALUES语句支持RETURNING语句，而INSERT INTO SELECT语句不支持。MERGE语句不支持RETURNING语句。

SQL> MERGE INTO T USING (SELECT * FROM T) T1
2 ON (T.ID = T1.ID)
3 WHEN MATCHED THEN UPDATE SET NAME = T1.NAME
4 WHEN NOT MATCHED THEN INSERT VALUES (T1.ID, T1.NAME)
5 RETURNING NAME INTO :V_NAME;
RETURNING NAME INTO :V_NAME
*第 5 行出现错误:
ORA-00933: SQL 命令未正确结束

SQL> INSERT INTO T SELECT * FROM T RETURNING NAME INTO :V_NAME;
INSERT INTO T SELECT * FROM T RETURNING NAME INTO :V_NAME
*第 1 行出现错误:
ORA-00933: SQL 命令未正确结束

这两个限制确实不大方便。不知道Oracle在以后版本中是否会放开。
个人感觉RETURNING语句和BULK COLLECT INTO语句配合使用的机会更多一些。

Delphi中调试DLL文件（感谢liangpei2008的回答）

2009-04-09T09:29:00.000+08:00

可以调试！

完整的调试 DLL方法如下：

1）新建一个 DLL 工程，名字就叫 MyDll 吧，编译后生成 MyDll.dll，我们要调试的就是它了。

2）新建一个用来调试 MyDll 的 Application 工程，名字就叫 MyDllTest 吧，编译后生成的可执行性文件为 MyDllTest.exe，这就是我们用来调试 MyDll.dll 的宿主程序

3）MyDllTest.exe 所在目录中不能有 MyDll.dll（重要！）

4）MyDllTest 采用静态调用的方法调用 MyDll.dll 的导出函数（重要！）

5）进入 MyDll 工程，执行菜单“Run”->“Parameters”，将弹出的对话框的 Local 页中的“Host Application”设置为上面的 MyDllTest.exe（含路径）

还要注意的是，调试 dll 的时候，被调试的 dll 和宿主程序不能在同一个 Project Group中，也就是说，你不要把 dll 和宿主程序放在同一个 Project Group中再进行调试，一定要单独打开 dll 工程进行调试。否则，调试也会不成功。

不过能调试DLL是省了一些时间，但不太规范！
创建一个日志输出模块(最好写成COM+)，声明几个接口，这样整个项目的日志记录均输出于此(同时在WIndows下的各种开发环境均可调用)！而且还可以复用！

Delphi做的百叶窗小程序

2009-04-06T22:21:00.004+08:00

做了一个百叶窗小程序
碰到了几个问题，比如说两个用到LoadFromFile函数的地方第一次可以识别相对路径
而如果我更改了其中一个的路径使其变为硬盘上某个绝对路径
那另外一个LoadFromFile就不能识别原先的相对路径了，很奇怪
我采取了加判断绕过这个问题的方法
先上代码，主要的是shutter单元，是作为一个组件来编写的
另外还写了个测试单元。主要针对Shutter的某些属性进行设置从而测试Shutter

unit Shutter;
{ CopyRight@ Swetter }
interface

uses
SysUtils, Windows, Classes, Forms, Controls, Graphics,
Messages, ExtCtrls, Dialogs;

const
{位图344*500,沿Y轴等分成10块
yInc存储了每块的高度
BitMapWid存储了位图的宽度
BitMapHei存储了位图的高度
ShowPixels为随Timer每次递增的行宽度
TimerInterval为Timer的时间间隔}
YInc = 50;
// ShowPixels = 1;
BitMapWid = 344;
BitMapHei = 500;
// TimerInterval = 50;

type
EShutterError = class(Exception);

TShutter = class(TCustomPanel)
private
FMemBitMap: TBitmap;
FMemMskBtMp: TBitmap;
FTimer: TTimer;
FActive: Boolean;
FCurrHei: Integer;
FVRect: TRect;
{FOpen指示百叶窗打开与关闭效果,true则百叶窗打开，false则百叶窗关闭
FDone指示位图是否显示完毕
FViewPic指示是否要查看原图
true为查看原图，此时FCurrHei值直接为yInc而不置0
false为不查看原图，此时在SetActive为false后FCurrHei置0
FNFrstm指示在百叶窗打开模式下（即清空图像）是否已贴上原图
false为未贴上原图，需重新贴一次；true为已贴上原图，可以开始贴屏蔽图}
FOpen: Boolean;
FDone: Boolean;
FViewPic: Boolean;
FOnDone: TNotifyEvent;
FNFrstm: Boolean;
FBkFileName: string;
FFgFileName: string;
ShowPixels: Integer;
TimerInterval: Integer;
procedure IncWid;
procedure SetActive(AValue: Boolean);
procedure ActOnTimer(Sender: TObject);
procedure DoTimer;
protected
procedure Paint; override;
procedure FillBitmap; virtual;
public
procedure CoordinateTimer;
procedure ImageChanged;
property Pixel: Integer read ShowPixels write ShowPixels;
property Interval: Integer read TimerInterval write TimerInterval;
property BkFileName: string read FBkFileName write FBkFileName;
property FgFileName: string read FFgFileName write FFgFileName;
property NFrstm: Boolean read FNFrstm write FNFrstm;
property Open: Boolean read FOpen write FOpen;
property ViewPic: Boolean read FViewPic write FViewPic;
property Active: Boolean read FActive write SetActive;
property Done: Boolean read FDone write FDone;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Publish inherited properties: }
property OnDone: TNotifyEvent read FOnDone write FOnDone;
property Align;
property Alignment;
property BevelInner;
property BevelOuter;
property BevelWidth;
property BorderWidth;
property BorderStyle;
property Color;
property Ctl3D;
property Font;
property Locked;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property Visible;
property OnClick;
property OnDblClick;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnResize;
end;

implementation

{ TShutter }

procedure TShutter.DoTimer;
begin
with FTimer do
begin
Enabled := False;
Interval := TimerInterval;
OnTimer := ActOnTimer;
end;
end;

constructor TShutter.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
TimerInterval := 50;
ShowPixels := 1;
FTimer := TTimer.Create(Self);
DoTimer;
{ 实例初始化的值 }
Width := 344;
Height := 500;
FActive := False;
BevelWidth := 3;
FFgFileName := '.\pics\pic.bmp';
FBkFileName := '.\pics\view.bmp';
end;

destructor TShutter.Destroy;
begin
SetActive(False);
FTimer.Free;
inherited Destroy;
end;

procedure TShutter.ActOnTimer(Sender: TObject);
begin
IncWid;
InvalidateRect(Handle, @FVRect, false);
end;

procedure TShutter.FillBitmap;
begin
//FVRect存储了整张内存位图的区域大小
FVRect := Rect(0, 0, BitMapWid, BitMapHei);
//初始化FMemBitMap的宽度和高度
FMemMskBtMp:= TBitmap.Create;
FMemBitMap := TBitmap.Create;
FMemMskBtMp.Width := BitMapWid;
FMemMskBtMp.Height:= BitMapHei;
FMemBitMap.Width := BitMapWid;
FMemBitMap.Height := BitMapHei;
try
if FBkFileName <> '.\pics\view.bmp' then
FMemMskBtMp.LoadFromFile(FBkFileName);
if FFgFileName <> '.\pics\pic.bmp' then
FMemBitMap.LoadFromFile(FFgFileName);
except
on EFOpenError DO
MessageBox(Handle,'打开文件出错，请重试','提示',MB_OK);
end;
end;

procedure TShutter.IncWid;
begin
if not FOpen and (not FDone) then
begin
if FCurrHei + ShowPixels <= yInc then Inc(FCurrHei, ShowPixels) //为保存位图，不要SetActive(False) else FDone := True; end else if FOpen and(not FDone) then begin if FCurrHei - ShowPixels >= 0 then
Dec(FCurrHei, ShowPixels)
else
FDone := True;
end;
end;

procedure TShutter.Paint;
var
i: Integer;
begin
//如果要查看背景图，直接贴上去
if FViewPic then
BitBlt(Canvas.Handle, 0, 0, BitMapWid, BitMapHei,
FMemBitMap.Canvas.Handle, 0, 0, srcCopy);

if FActive and not FOpen then
for i := 0 to 9 do
BitBlt(Canvas.Handle, 0, i*YInc, BitMapWid, FCurrHei,
FMemBitMap.Canvas.Handle, 0, i*YInc, srcCopy)
else if FActive and FOpen then
begin
if not NFrstm then
begin
for i := 0 to 9 do
BitBlt(Canvas.Handle, 0, i*YInc, BitMapWid, YInc,
FMemBitMap.Canvas.Handle, 0, i*YInc, SRCCOPY);
NFrstm := True;
end
else
for i := 0 to 9 do
BitBlt(Canvas.Handle, 0, i*YInc , BitMapWid, YInc - FCurrHei,
FMemMskBtMp.Canvas.Handle, 0, i*YInc, SRCCOPY);
end
else inherited Paint;
end;

procedure TShutter.SetActive(AValue: Boolean);
begin
if AValue and (not FActive) then
begin
FActive := True;
FillBitmap;
{FViewPic,true则查看位图
FOpen,True则为百叶窗打开模式}
if not FOpen then
FCurrHei := 0
else
FCurrHei := YInc;

try
FTimer.Enabled := True;
except
EShutterError.Create('Timer初始化出错');
end;
end
else if (not AValue) and FActive then
begin
FTimer.Enabled := False; //停止计时
if Assigned(FOnDone) // fire OnDone event,
then FOnDone(Self);
FActive := False; //停止组件
FMemBitMap.Free; //释放内存位图
FMemMskBtMp.Free; //释放屏蔽位图
Invalidate; //清空组件窗口内容
end;
end;

procedure TShutter.ImageChanged;
begin
if (FMemMskBtMp <> nil) and (FMemBitMap <> nil) then
begin
FMemMskBtMp.FreeImage; //释放所占用的位图资源免得重新加载错误
FMemBitMap.FreeImage;
end;
FillBitmap;
end;

procedure TShutter.CoordinateTimer;
begin
DoTimer;
end;

end.

基本上运行效果还是可以的
但是从代码中可以看到很多的boolean值的参数
它们是用来判断功能从而有选择的调用BitBlt函数
设计还是不够好，其实可以用case语句来区分不同功能
我用了太多的boolean来判断导致扩展起来很不方便，容易出BUG
先放这里，慢慢再改

仿Windows的画图程序

2009-04-05T22:28:00.000+08:00

仅贴出关键的代码部分

unit MainFrm;

interface

uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, Buttons, ExtCtrls, ColorGrd, StdCtrls, Menus, ComCtrls;

const
crMove = 1;
rate1 = 0.38;
rate2 = 0.19;
type

TDrawType = (dtLineDraw, dtRectangle, dtEllipse, dtRoundRect,
dtClipRect, dtCrooked, dtPolyLine, dtPolygon,
dtTriangle, dtFan);
{用于画三角形的record}
TTriangle = record
FStrtDot: TPoint;
FEndDot : TPoint;
FFrstDot: TPoint;
FScndDot: TPoint;
FThrdDot: TPoint;
FScndVal: Boolean;
end;
{用于画扇形的record}
TFan = record
FStrtDot: TPoint;
FOrgDot : TPoint;
FLstDot : TPoint;
FNFrst : Boolean;
end;
{用于画五角星的record，记录五个端点}
TStar = record
FTL: TPoint;
FBR: TPoint;
FFrstDot: TPoint;
FScndDot: TPoint;
FThrdDot: TPoint;
FFrthDot: TPoint;
FFfthDot: TPoint;
end;

TMainForm = class(TForm)
sbxMain: TScrollBox;
imgDrawingPad: TImage;
pnlToolBar: TPanel;
sbLine: TSpeedButton;
sbRectangle: TSpeedButton;
sbEllipse: TSpeedButton;
sbRoundRect: TSpeedButton;
pnlColors: TPanel;
cgDrawingColors: TColorGrid;
pnlFgBgBorder: TPanel;
pnlFgBgInner: TPanel;
Bevel1: TBevel;
mmMain: TMainMenu;
mmiFile: TMenuItem;
mmiExit: TMenuItem;
N2: TMenuItem;
mmiSaveAs: TMenuItem;
mmiSaveFile: TMenuItem;
mmiOpenFile: TMenuItem;
mmiNewFile: TMenuItem;
mmiEdit: TMenuItem;
mmiPaste: TMenuItem;
mmiCopy: TMenuItem;
mmiCut: TMenuItem;
sbRectSelect: TSpeedButton;
SaveDialog: TSaveDialog;
OpenDialog: TOpenDialog;
stbMain: TStatusBar;
pbPasteBox: TPaintBox;
sbFreeForm: TSpeedButton;
RgGrpFillOptions: TRadioGroup;
cbxBorder: TCheckBox;
sbPolyline: TSpeedButton;
sbPolygon: TSpeedButton;
sbTriangle: TSpeedButton;
sbFan: TSpeedButton;
dlgColor: TColorDialog;
btnBorder: TButton;
btnFill: TButton;
procedure FormCreate(Sender: TObject);
procedure sbLineClick(Sender: TObject);
procedure imgDrawingPadMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure imgDrawingPadMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure imgDrawingPadMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure cgDrawingColorsChange(Sender: TObject);
procedure mmiExitClick(Sender: TObject);
procedure mmiSaveFileClick(Sender: TObject);
procedure mmiSaveAsClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure mmiNewFileClick(Sender: TObject);
procedure mmiOpenFileClick(Sender: TObject);
procedure mmiEditClick(Sender: TObject);
procedure mmiCutClick(Sender: TObject);
procedure mmiCopyClick(Sender: TObject);
procedure mmiPasteClick(Sender: TObject);
procedure pbPasteBoxMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure pbPasteBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure pbPasteBoxMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure pbPasteBoxPaint(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure RgGrpFillOptionsClick(Sender: TObject);
procedure btnBorderClick(Sender: TObject);
procedure btnFillClick(Sender: TObject);
public
{ Public declarations }
MouseOrg: TPoint; // Stores mouse information
NextPoint: TPoint; // Stores mouse information
Drawing: Boolean; // Drawing is being performed flag
DrawType: TDrawType; // Holds the draw type information: TDrawType
FillSelected, // Fill shapes flag
BorderSelected: Boolean; // Draw Shapes with no border flag
EraseClipRect: Boolean; // Specifies whether or not to erase the
// clipping rectangle
Modified: Boolean; // Image modified flag
FileName: String; // Holds the filename of the image
OldClipViewHwnd: Hwnd; // Holds the old clipboard view window
{ Paste Image variables }
PBoxMoving: Boolean; // PasteBox is moving flag
PBoxMouseOrg: TPoint; // Stores mouse coordinates for moving PasteBox
PasteBitMap: TBitmap; // Stores a bitmap image of the pasted data
Pasted: Boolean; // Data pasted flag
LastDot: TPoint; // Hold the TPoint coordinate for performing
// free line drawing
procedure DrawToImage(TL, BR: TPoint; PenMode: TPenMode);
{ This procedure paints the image specified by the DrawType field
to imgDrawingPad }
procedure SetDrawingStyle;
{ This procedure sets various Pen/Brush styles based on values
specified by the form's controls. The Panels and color grid is
used to set these values }
procedure CopyPasteBoxToImage;
{ This procedure copies the data pasted from the Windows clipboard
onto the main image component imgDrawingPad }
procedure WMDrawClipBoard(var Msg: TWMDrawClipBoard);
message WM_DRAWCLIPBOARD;
{ This message handler captures the WM_DRAWCLIPBOARD messages
which is sent to all windows that have been added to the clipboard
viewer chain. An application can add itself to the clipboard viewer
chain by using the SetClipBoardViewer() Win32 API function as
is done in FormCreate() }
procedure CopyCut(Cut: Boolean);
{ This method copies a portion of the main image, imgDrawingPad, to the
Window's clipboard. }
end;

var
MainForm: TMainForm;

{用于画PolyLine的专用全局变量，Polyline随鼠标滑动而动态绘制
PLStart: TPoint，用于保存Polyline的起点，随着每次鼠标UP而动态更新
PLLast: TPoint，用于保存鼠标每滑动一次的终止点
PLDrawed: Boolean，用于鼠标滑动时检查是否已画了折线
true 则XOR掉起点到Move当前点上一点所绘制的折线并重画
false则直接重画
}
PLStart, PLLast: TPoint;
PLDrawed: Boolean;

{用于画Triangle的量，为TTriangle类型}
Trngl: TTriangle;
{用于画Fan的量，为TFan类型}
Fn: TFan;

implementation
uses ClipBrd, Math;

{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
{ This method sets the form's field to their default values. It then
creates a bitmap for the imgDrawingPad. This is the image on which
drawing is done. Finally, it adds this application as part of the
Windows clipboard viewer chain by using the SetClipBoardViewer()
function. This makes enables the form to get WM_DRAWCLIPBOARD messages
which are sent to all windows in the clipboard viewer chain whenever
the clipboard data is modified. }
begin
Screen.Cursors[crMove] := LoadCursor(hInstance, 'MOVE');

FillSelected := False;
BorderSelected := True;

Modified := False;
FileName := '';
Pasted := False;
pbPasteBox.Enabled := False;

// Create a bitmap for imgDrawingPad and set its boundaries
with imgDrawingPad do
begin
SetBounds(0, 0, 600, 400);
Picture.Graphic := TBitMap.Create;
Picture.Graphic.Width := 600;
Picture.Graphic.Height := 400;
end;
// Now create a bitmap image to hold pasted data
PasteBitmap := TBitmap.Create;
pbPasteBox.BringToFront;
{ Add the form to the Windows clipboard viewer chain. Save the handle
of the next window in the chain so that it may be restored by the
ChangeClipboardChange() Win32 API function in this form's
FormDestroy() method. }
OldClipViewHwnd := SetClipBoardViewer(Handle);
end;

procedure TMainForm.WMDrawClipBoard(var Msg: TWMDrawClipBoard);
begin
{ This method will be called whenever the clipboard data
has changed. Because the main form was added to the clipboard
viewer chain, it will receive the WM_DRAWCLIPBOARD message
indicating that the clipboard's data was changed. }
inherited;
{ Make sure that the data contained on the clipboard is actually
bitmap data. }
if ClipBoard.HasFormat(CF_BITMAP) then
mmiPaste.Enabled := True
else
mmiPaste.Enabled := False;
Msg.Result := 0;
end;

procedure TMainForm.DrawToImage(TL, BR: TPoint; PenMode: TPenMode);
{ This method performs the specified drawing operation. The
drawing operation is specified by the DrawType field }
var
//用于画五角星的点
x1,y1,x2,x3: Integer;
begin
with imgDrawingPad.Canvas do
begin
Pen.Mode := PenMode;

case DrawType of
dtLineDraw, dtPolyLine, dtTriangle, dtFan:
begin
MoveTo(TL.X, TL.Y);
LineTo(BR.X, BR.Y);
end;
dtPolygon:
begin
//x1这一点前边别忘记加上TL.X，否则画出奇怪的图形啊！！！
x1 := TL.X + (BR.X - TL.X) div 2;
y1 := trunc(TL.Y+(BR.Y-TL.Y)*rate1);
x2 := trunc(TL.X+(BR.X-TL.X)*rate2);
x3 := trunc(BR.X-(BR.X-TL.X)*rate2);
MoveTo(x1, TL.Y);
LineTo(x2, BR.y);
LineTo(BR.X, y1);
LineTo(TL.X, y1);
LineTo(x3, BR.Y);
LineTo(x1, TL.Y);
x1 := 0;
y1 := 0;
x2 := 0;
x3 := 0;
end;
dtRectangle:
Rectangle(TL.X, TL.Y, BR.X, BR.Y);
dtEllipse:
Ellipse(TL.X, TL.Y, BR.X, BR.Y);
dtRoundRect:
RoundRect(TL.X, TL.Y, BR.X, BR.Y,
(TL.X - BR.X) div 2, (TL.Y - BR.Y) div 2);
dtClipRect:
Rectangle(TL.X, TL.Y, BR.X, BR.Y);

end;
end;
end;

procedure TMainForm.CopyPasteBoxToImage;
{ This method copies the image pasted from the Windows clipboard onto
imgDrawingPad. It first erases any bounding rectangle drawn by PaintBox
component, pbPasteBox. It then copies the data from pbPasteBox onto
imgDrawingPad at the location where pbPasteBox has been dragged
over imgDrawingPad. The reason we don't copy the contents of
pbPasteBox's canvas and use PasteBitmap's canvas instead, is because
when a portion of pbPasteBox is dragged out of the viewable area,
Windows does not paint the portion pbPasteBox not visible. Therefore,
it is necessary to the pasted bitmap from the off-screen bitmap }
var
SrcRect, DestRect: TRect;
begin
// First, erase the rectangle drawn by pbPasteBox
with pbPasteBox do
begin
Canvas.Pen.Mode := pmNotXOR;
Canvas.Pen.Style := psDot;
Canvas.Brush.Style := bsClear;
Canvas.Rectangle(0, 0, Width, Height);
DestRect := Rect(Left, Top, Left+Width, Top+Height);
SrcRect := Rect(0, 0, Width, Height);
end;
{ Here we must use the PasteBitmap instead of the pbPasteBox because
pbPasteBox will clip anything outside if the viewable area. }
imgDrawingPad.Canvas.CopyRect(DestRect, PasteBitmap.Canvas, SrcRect);
pbPasteBox.Visible := false;
pbPasteBox.Enabled := false;
Pasted := False; // Pasting operation is complete
end;

procedure TMainForm.imgDrawingPadMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Modified := True;
// Erase the clipping rectangle if one has been drawn
if (DrawType = dtClipRect) and EraseClipRect then
DrawToImage(MouseOrg, NextPoint, pmNotXOR)
else if (DrawType = dtClipRect) then
EraseClipRect := True; // Re-enable cliprect erasing
if Pasted then
CopyPasteBoxToImage;

Drawing := True;
// Save the mouse information
if (DrawType = dtPolyline) and (not PLDrawed) then
begin
PLStart := Point(X,Y);
PLLast := PLStart;
end ;
if (DrawType = dtTriangle) and (not Trngl.FScndVal) then
begin
Trngl.FFrstDot := Point(X,Y);
Trngl.FStrtDot := Point(X,Y);
Trngl.FEndDot := Trngl.FStrtDot;
end;
if (DrawType = dtFan) and (not Fn.FNFrst) then
begin
Fn.FStrtDot := Point(X,Y);
Fn.FOrgDot := Point(X,Y);
Fn.FLstDot := Point(X,Y);
end;
MouseOrg := Point(X, Y);
NextPoint := MouseOrg;
LastDot := NextPoint; // Lastdot is updated as the mouse moves
//将线的起点移动到鼠标按下的点
imgDrawingPad.Canvas.MoveTo(X, Y);
end;

procedure TMainForm.imgDrawingPadMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
{ This method determines the drawing operation to be performed and
either performs free form line drawing, or calls the
DrawToImage method which draws the specified shape }
begin
if Drawing then
begin
case DrawType of
dtCrooked:
begin
imgDrawingPad.Canvas.MoveTo(LastDot.X, LastDot.Y);
imgDrawingPad.Canvas.LineTo(X, Y);
LastDot := Point(X,Y);
end;
dtPolyLine:
begin
DrawToImage(PLStart, PLLast, pmNotXor);
PLLast := Point(X,Y);
DrawToImage(PLStart, PLLast, pmNotXor);
PLDrawed := True;
end;
dtTriangle:
begin
DrawToImage(Trngl.FStrtDot, Trngl.FEndDot, pmNotXor);
Trngl.FEndDot := Point(X,Y);
DrawToImage(Trngl.FStrtDot, Trngl.FEndDot, pmNotXor);
end;
dtFan:
if not Fn.FNFrst then
begin
DrawToImage(Fn.FStrtDot, Fn.FOrgDot, pmNotXor);
Fn.FOrgDot := Point(X, Y);
DrawToImage(Fn.FStrtDot, Fn.FOrgDot, pmNotXor);
end
else begin
///:~@@@@@@@使用了pmCopy后扇形的前一条边就不会消失，为什么？？
DrawToImage(Fn.FStrtDot, Fn.FOrgDot, pmCopy);
DrawToImage(Fn.FOrgDot, Fn.FLstDot, pmNotXor);
DrawToImage(Fn.FStrtDot, Fn.FLstDot, pmNotXor);
Fn.FLstDot := Point(X,Y);
DrawToImage(Fn.FOrgDot, Fn.FLstDot, pmNotXor);
DrawToImage(Fn.FStrtDot, Fn.FLstDot, pmNotXor);
end
else begin
DrawToImage(MouseOrg, NextPoint, pmNotXor);
NextPoint := Point(X, Y);
DrawToImage(MouseOrg, NextPoint, pmNotXor)
end;
end;
end;
// Update the status bar with the current mouse location
stbMain.Panels[1].Text := Format('X: %d, Y: %D', [X, Y]);
end;

procedure TMainForm.imgDrawingPadMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Drawing then
{ Prevent the clipping rectangle from destroying the images already
on the image }
case DrawType of
dtPolyLine:
begin
DrawToImage(PLStart, Point(X,Y), pmCopy);
PLStart := Point(X,Y);
end;
dtTriangle:
begin
if not Trngl.FScndVal then
begin
Trngl.FScndDot := Point(X,Y);
DrawToImage(Trngl.FStrtDot, Trngl.FEndDot, pmCopy);
Trngl.FStrtDot := Trngl.FScndDot;
Trngl.FScndVal := True;
end
else begin
Trngl.FThrdDot := Point(X,Y);
DrawToImage(Trngl.FStrtDot, Trngl.FEndDot, pmCopy);
DrawToImage(Trngl.FThrdDot, Trngl.FFrstDot, pmNotXor);
Trngl.FScndVal := False;
end;
end;
dtFan:
if not Fn.FNFrst then
begin
DrawToImage(Fn.FStrtDot, Fn.FLstDot, pmCopy);
Fn.FNFrst := True;
end
else begin
DrawToImage(Fn.FStrtDot, Fn.FOrgDot, pmCopy);
DrawToImage(Fn.FStrtDot, Fn.FLstDot, pmCopy);
DrawToImage(Fn.FOrgDot, Fn.FLstDot, pmCopy);
Fn.FOrgDot := Point(X,Y);
end;
dtLineDraw, dtRectangle, dtEllipse, dtRoundRect, dtCrooked:
DrawToImage(MouseOrg, Point(X, Y), pmCopy);
end;
Drawing := False;
end;

procedure TMainForm.sbLineClick(Sender: TObject);
begin
// First erase the cliprect if current drawing type
if DrawType = dtClipRect then
DrawToImage(MouseOrg, NextPoint, pmNotXOR);

{ Now set the DrawType field to that specified by the TSpeedButton
invoking this method. The TSpeedButton's Tag values match a
specific TDrawType value which is why the typecasting below
successfully assigns a valid TDrawType value to the DrawType field. }
if Sender is TSpeedButton then
DrawType := TDrawType(TSpeedButton(Sender).Tag);

// Now make sure the dtClipRect style doesn't erase previous drawings
if DrawType = dtClipRect then begin
EraseClipRect := False;
end;
// Set the drawing style
SetDrawingStyle;
end;

procedure TMainForm.cgDrawingColorsChange(Sender: TObject);
{ This method draws the rectangle representing fill and border colors
to indicate the users selection of both colors. pnlFgBgInner and
pnlFgBgBorder are TPanels arranged one on to of the other for the
desired effect }
begin
pnlFgBgBorder.Color := cgDrawingColors.ForeGroundColor;
pnlFgBgInner.Color := cgDrawingColors.BackGroundColor;
SetDrawingStyle;
end;

procedure TMainForm.SetDrawingStyle;
{ This method sets the various drawing styles based on the selections
on the pnlFillStyle TPanel for Fill and Border styles }
begin
with imgDrawingPad do
begin
if DrawType = dtClipRect then
begin
Canvas.Pen.Style := psDot;
Canvas.Brush.Style := bsClear;
Canvas.Pen.Color := clBlack;
end

else if FillSelected then
Canvas.Brush.Style := bsSolid
else
Canvas.Brush.Style := bsClear;

if BorderSelected then
Canvas.Pen.Style := psSolid
else
Canvas.Pen.Style := psClear;

if FillSelected and (DrawType <> dtClipRect) then
Canvas.Brush.Color := pnlFgBgInner.Color;

if DrawType <> dtClipRect then
Canvas.Pen.Color := pnlFgBgBorder.Color;
end;
end;

procedure TMainForm.mmiExitClick(Sender: TObject);
begin
Close; // Terminate application
end;

procedure TMainForm.mmiSaveFileClick(Sender: TObject);
{ This method saves the image to the file specified by FileName. If
FileName is blank, however, SaveAs1Click is called to get a filename.}
begin
if FileName = '' then
mmiSaveAsClick(nil)
else begin
imgDrawingPad.Picture.SaveToFile(FileName);
stbMain.Panels[0].Text := FileName;
Modified := False;
end;
end;

procedure TMainForm.mmiSaveAsClick(Sender: TObject);
{ This method launches SaveDialog to get a file name to which
the image's contents will be saved. }
begin
if SaveDialog.Execute then
begin
FileName := SaveDialog.FileName; // Store the filename
mmiSaveFileClick(nil)
end;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
{ If the user attempts to close the form before saving the image, they
are prompted to do so in this method. }
var
Rslt: Word;
begin
CanClose := False; // Assume fail.
if Modified then begin
Rslt := MessageDlg('File has changed, save?', mtConfirmation, mbYesNOCancel, 0);
case Rslt of
mrYes: mmiSaveFileClick(nil);
mrNo: ; // no need to do anything.
mrCancel: Exit;
end
end;
CanClose := True; // Allow use to close application
end;

procedure TMainForm.mmiNewFileClick(Sender: TObject);
{ This method erases any drawing on the main image after prompting the
user to save it to a file in which case the mmiSaveFileClick event handler
is called. }
var
Rslt: Word;
begin
if Modified then begin
Rslt := MessageDlg('File has changed, save?', mtConfirmation, mbYesNOCancel, 0);
case Rslt of
mrYes: mmiSaveFileClick(nil);
mrNo: ; // no need to do anything.
mrCancel: Exit;
end
end;

with imgDrawingPad.Canvas do begin
Brush.Style := bsSolid;
Brush.Color := clWhite; // clWhite erases the image
FillRect(ClipRect); // Erase the image
FileName := '';
stbMain.Panels[0].Text := FileName;
end;
SetDrawingStyle; // Restore the previous drawing style
Modified := False;
end;

procedure TMainForm.mmiOpenFileClick(Sender: TObject);
{ This method opens a bitmap file specified by OpenDialog.FileName. If
a file was already created, the user is prompted to save
the file in which case the mmiSaveFileClick event is called. }
var
Rslt: Word;
begin

if OpenDialog.Execute then
begin

if Modified then begin
Rslt := MessageDlg('File has changed, save?', mtConfirmation, mbYesNOCancel, 0);
case Rslt of
mrYes: mmiSaveFileClick(nil);
mrNo: ; // no need to do anything.
mrCancel: Exit;
end
end;

imgDrawingPad.Picture.LoadFromFile(OpenDialog.FileName);
FileName := OpenDialog.FileName;
stbMain.Panels[0].Text := FileName;
Modified := false;
end;

end;

procedure TMainForm.mmiEditClick(Sender: TObject);
{ The timer is used to determine if an area on the main image is
surrounded by a bounding rectangle. If so, then the Copy and Cut
menu items are enabled. Otherwise, they are disabled. }
var
IsRect: Boolean;
begin
IsRect := (MouseOrg.X <> NextPoint.X) and (MouseOrg.Y <> NextPoint.Y);
if (DrawType = dtClipRect) and IsRect then
begin
mmiCut.Enabled := True;
mmiCopy.Enabled := True;
end
else begin
mmiCut.Enabled := False;
mmiCopy.Enabled := False;
end;
end;

procedure TMainForm.CopyCut(Cut: Boolean);
{ This method copies a portion of the main image to the clipboard.
The portion copied is specified by a bounding rectangle
on the main image. If Cut is true, the area in the bounding rectandle
is erased. }
var
CopyBitMap: TBitmap;
DestRect, SrcRect: TRect;
OldBrushColor: TColor;
begin
CopyBitMap := TBitMap.Create;
try
{ Set CopyBitmap's size based on the coordinates of the
bounding rectangle }
CopyBitMap.Width := Abs(NextPoint.X - MouseOrg.X);
CopyBitMap.Height := Abs(NextPoint.Y - MouseOrg.Y);
DestRect := Rect(0, 0, CopyBitMap.Width, CopyBitmap.Height);
SrcRect := Rect(Min(MouseOrg.X, NextPoint.X)+1,
Min(MouseOrg.Y, NextPoint.Y)+1,
Max(MouseOrg.X, NextPoint.X)-1,
Max(MouseOrg.Y, NextPoint.Y)-1);
{ Copy the portion of the main image surrounded by the bounding
rectangle to the Windows clipboard }
CopyBitMap.Canvas.CopyRect(DestRect, imgDrawingPad.Canvas, SrcRect);
{ Previous versions of Delphi required the bitmap's Handle property
to be touched for the bitmap to be made available. This was due to
Delphi's caching of bitmapped images. The step below may not be
required. }
CopyBitMap.Handle;
// Assign the image to the clipboard.
ClipBoard.Assign(CopyBitMap);
{ If cut was specified the erase the portion of the main image
surrounded by the bounding Rectangle }
if Cut then
with imgDrawingPad.Canvas do
begin
OldBrushColor := Brush.Color;
Brush.Color := clWhite;
try
FillRect(SrcRect);
finally
Brush.Color := OldBrushColor;
end;
end;
finally
CopyBitMap.Free;
end;
end;

procedure TMainForm.mmiCutClick(Sender: TObject);
begin
CopyCut(True);
end;

procedure TMainForm.mmiCopyClick(Sender: TObject);
begin
CopyCut(False);
end;

procedure TMainForm.mmiPasteClick(Sender: TObject);
{ This method pastes the data contained in the clipboard to the
paste bitmap. The reason it is pasted to the PasteBitmap, an off-
screen bitmap, is so that the user can relocate the pasted image
elsewhere on to the main image. This is done by having the pbPasteBox,
a TPaintBox component, draw the contents of PasteImage. When the
user if done positioning the pbPasteBox, the contents of TPasteBitmap
is drawn to imgDrawingPad at the location specified by pbPasteBox's location.}
begin
{ Clear the bounding rectangle }

pbPasteBox.Enabled := True;
if DrawType = dtClipRect then
begin
DrawToImage(MouseOrg, NextPoint, pmNotXOR);
EraseClipRect := False;
end;

PasteBitmap.Assign(ClipBoard); // Grab the data from the clipboard
Pasted := True;
// Set position of pasted image to top left
pbPasteBox.Left := 0;
pbPasteBox.Top := 0;
// Set the size of pbPasteBox to match the size of PasteBitmap
pbPasteBox.Width := PasteBitmap.Width;
pbPasteBox.Height := PasteBitmap.Height;

pbPasteBox.Visible := True;
pbPasteBox.Invalidate;
end;

procedure TMainForm.pbPasteBoxMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
{ This method set's up pbPasteBox, a TPaintBox for being moved by the
user when the left mouse button is held down }
begin
if Button = mbLeft then
begin
PBoxMoving := True;
Screen.Cursor := crMove;
PBoxMouseOrg := Point(X, Y);
end
else
PBoxMoving := False;
end;

procedure TMainForm.pbPasteBoxMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
{ This method moves pbPasteBox if the PBoxMoving flag is true indicating
that the user is holding down the left mouse button and is dragging
PaintBox }
begin
if PBoxMoving then
begin
pbPasteBox.Left := pbPasteBox.Left + (X - PBoxMouseOrg.X);
pbPasteBox.Top := pbPasteBox.Top + (Y - PBoxMouseOrg.Y);
end;
end;

procedure TMainForm.pbPasteBoxMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
{ This method disables moving of pbPasteBox when the user lifts the left
mouse button }
if PBoxMoving then
begin
PBoxMoving := False;
Screen.Cursor := crDefault;
end;
pbPasteBox.Refresh; // Redraw the pbPasteBox.
end;

procedure TMainForm.pbPasteBoxPaint(Sender: TObject);
{ The paintbox is drawn whenever the user selects the Paste option
form the menu. pbPasteBox draws the contents of PasteBitmap which
holds the image gotten from the clipboard. The reason for drawing
PasteBitmap's contents in pbPasteBox, a TPaintBox class, is so that
the user can also move the object around on top of the main image.
In other words, pbPasteBox can be moved, and hidden when necessary. }
var
DestRect, SrcRect: TRect;
begin
// Display the paintbox only if a pasting operation occurred.
if Pasted then
begin
{ First paint the contents of PasteBitmap using canvas's CopyRect
but only if the paintbox is not being moved. This reduces
flicker }
if not PBoxMoving then
begin
DestRect := Rect(0, 0, pbPasteBox.Width, pbPasteBox.Height);
SrcRect := Rect(0, 0, PasteBitmap.Width, PasteBitmap.Height);
pbPasteBox.Canvas.CopyRect(DestRect, PasteBitmap.Canvas, SrcRect);
end;
{ Now copy a bounding rectangle to indicate that pbPasteBox is
a moveable object. We use a pen mode of pmNotXOR because we
must erase this rectangle when the user copies PaintBox's
contents to the main image and we must preserve the original
contents. }
pbPasteBox.Canvas.Pen.Mode := pmNotXOR;
pbPasteBox.Canvas.Pen.Style := psDot;
pbPasteBox.Canvas.Brush.Style := bsClear;
pbPasteBox.Canvas.Rectangle(0, 0, pbPasteBox.Width, pbPasteBox.Height);
end;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
// Remove the form from the clipboard chain
ChangeClipBoardChain(Handle, OldClipViewHwnd);
PasteBitmap.Free; // Free the PasteBitmap instance
end;

procedure TMainForm.RgGrpFillOptionsClick(Sender: TObject);
begin
FillSelected := RgGrpFillOptions.ItemIndex = 0;
BorderSelected := cbxBorder.Checked;
SetDrawingStyle;
end;

procedure TMainForm.btnBorderClick(Sender: TObject);
begin
dlgColor.Execute;
pnlFgBgBorder.Color := dlgColor.Color;
SetDrawingStyle;
end;

procedure TMainForm.btnFillClick(Sender: TObject);
begin
dlgColor.Execute;
pnlFgBgInner.Color := dlgColor.Color;
SetDrawingStyle;
end;

end.

关键的几个函数是DrawToImage, 还有
procedure imgDrawingPadMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure imgDrawingPadMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure imgDrawingPadMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
这三个函数用来跟踪画图面板上的鼠标消息
在其中加入处理函数可以实现与画图程序一样的绘图效果
注意，procedure TMainForm.DrawToImage(TL, BR: TPoint; PenMode: TPenMode);
最后一个PenMode如果要实现动态绘制（即鼠标移到哪线就画到哪）
就必须用pmNotXor用来动态擦除再动态画上新的
而如果鼠标左键点下（代表确定要画在那），则要使用pmCopy把最终一条线画上去

UltraEdit中加入Delphi的语法高亮显示

2009-04-03T21:39:00.000+08:00

很多人非常喜欢用UltraEdit写代码，其功能强大相信很多人都是有目共睹的

然而ultra edit本身没有提供delphi的关键字语法高亮

（pascal就这样悲剧的被忽略了）

只找到c/c++/java/vb/jsp/mysql/python/ruby等等等等

没关系，可以配置的

依次打开高级--配置--编辑器显示--语法高亮

在‘词语列表完整路径’里默认指向UltraEdit的语法高亮配置文件

比如我的电脑上为

C:\Documents and Settings\wybin\Application Data\IDMComp\UltraEdit\WORDFILE.UEW

注意，某些版本中可能是txt格式

点击打开，打开该文件

在末尾加入以下代码。

注意，开头的/L14数字是可以改的，取决于你的UE上已经配置了多少个语法高亮文件

{--------------------Beginning of the codes, do not copy this line------------------------------ }

/L14"Delphi" Nocase Line Comment = // Block Comment On = { Block Comment On Alt = (* Block Comment Off = } Block Comment Off Alt = *) Escape Char = ?String Chars = ' File Extensions = pas dpr
/Delimiters = #$&'()*+,-./;<>@[]^{}
/Function String = "%^{procedure^}^{function^}"
/Indent Strings = "begin" "repeat" "asm"
/Unindent Strings = "end" "until"
/C1"Reserved words"
array asm
begin
case class const constructor
destructor dispinterface do downto
else end except exports
file finalization finally for function
goto
if implementation inherited initialization inline interface
label library
nil
object of out
packed procedure program property
raise record repeat resourcestring
set string
then threadvar to try type
unit until
uses
var
while with
/C2"Directives"
absolute abstract assembler automated
cdecl contains
default dispid dynamic
export external
far forward
implements index
message
name near nodefault
overload override
package pascal private protected public published
read readonly register reintroduce requires resident
safecall stdcall stored
virtual
write writeonly
/C3"Operators"
*
+
-
// /
< <= <>
=
> >=
@
and as
div
in is
mod
not
or
shl shr
xor
/C4"Special symbols"
#
$
&
(
(.
)
,
.
.)
..
:
:=
;
[
]
^

{------------------------End of the codes, do not copy this line------------------------------ }

保存，就可以高亮DELPHI的关键字了

右键菜单中加入当前文件目录的CMD快捷通道

2009-04-01T12:45:00.002+08:00

好久没写东西了
最近一直在忙着公司的培训(Delphi, Oracle, ProC等)。还有一门是我一直想学的JAVA，但是算了，哎，没缘分，只好等把目前的东西学透了再抽空自学了。还好可以找人问

最近在使用公司提供的软件时发现了一个好东西，贴出来共享下
由于软件有两种模式，一种是菜单管理模式，是完整版的可动态修改菜单的
但是需要在CMD窗口下调用系统EXE文件并修改些参数
老打开CMD然后复制路径接着右键粘贴挺麻烦的
想到以前有的OS右键菜单有DOS快速通道，可以打开CMD.EXE
上网找到了这个，可以直接右键进入当前目录的CMD窗口
说明完毕，贴关键的东西

在文件夹的右键菜单中添加“命令提示符cmd”快捷通道选项。
运行regedit打开注册表，在注册表 HKEY_CLASSES_ROOT\Directory\shell分支下新建一项命名为“CommandPrompt”，修改右侧窗口中的“默认”键值为“命令提示符（你想要在右键菜单里看到的文字）”，并在该项下级再建一个新项“Command”，将右侧窗口中“默认”键值设为“cmd.exe /k cd %1”。至此OK，你可以很快速的定位到指定的目录。

终于搭建起TA系统了！！

2009-03-14T00:05:00.000+08:00

真的是呕心沥血啊，哎

客户端程序是写好的，一堆DDL加个EXE文件

服务器端，数据库是ORC 10g

由于TA系统采用的是三层架构，中间层用的是Tuxedo8.1

首先是今天我把系统重装了

因为昨天装VC6编译器时系统卡住了，我很郁闷

别人装的系统已经让我郁闷很久了，从系统到硬盘到域都让我纠结

花了3个小时重装了系统和软件（很高效吧，嘿嘿，不是GHOST哦，装的是原版的）

然后接下来的四个小时就在搭建TA系统

——摸着石头过河啊

新装了ORC数据库，果然用起来很顺手，10g的你想装多少次它只会在

*:\oracle\product\10.2.0下多建几个db_*路径而已，这点比9i要好很多

顺利的导入了数据库，然后，艰辛的过程就开始了

首先建了个TA文件夹，里边有常用的一些目录

如src,temp,log,bin,etc等等

然后把服务器的一堆.pc和.c文件拷到src文件夹下，再加上用于配置VC编译器的makefile文件，接着启动cmd切换到src目录执行>make

热，报错。。。

找到问题所在——makefile配置文件里没有修改好

而且有两处错误，一点一点改，一点一点调

编译成功了！！然后再将ubb文件(tux配置)和编译好的可执行文件（自动放在bin目录）一起放到bin目录里，执行

tmloadcf -y ubb

what??tmloadcf can not run on a non-master mode

晕~~~是不是刚装系统时用的没有加入公司域的管理员账号装的TUX

加入域后我用域内用户名登陆，虽然我已经给它赋了管理员权限让它可以安装文件

但是在TUX这还是卡住了

没办法，重装TUX，重装的时候安装目录和先前不同（埋下了悲剧的伏笔）

重装TUX后再起，这回得退到make这一步了

>make

晕，buildserver不是一个内部或外部命令，也不是一个可执行的文件&*（&*

怎么回事，buildserver是tux\bin目录下的一个exe文件，建立服务器的

怎么会找不到？

看makefile和ubb文件，没有错啊。。。

困扰了很久，猛然想起：两次安装目录不同，环境变量！！！！

我只改了TUXDIR，而真正指向bin目录的是系统path变量下的tuxedo8.1\bin路径

改之再

>make

晕，CMDTUX_CAT you do not have a valid SDK license

靠，我装的时候明明把lic.txt文件导入了啊，它提示成功了

怎么可以。。。怎么可以酱紫。。。

再困扰了很久，又猛然想起，我瓜皮了，TUX识别lic的时候时去翻找TUXDIR变量

问题在这里！！改之，再

>make 哇卡卡卡卡，好顺利啊，酣畅淋漓

接下来又到了tmloadcf -y ubb这条命令

这回执行时候不会不承认我是它的master了

可是，又跳出来说TUXCONFIG未配置？？

咦。ubb文件里明明配了的嘛，怎么回事？

随便set TUXCONFIG=$APPDIR\bin

再敲入命令，不对，说TUXCONFIG应该要和ubb中的匹配

明白了，set回来，再敲入命令

哇卡卡卡卡，酣畅淋漓啊

接着tmboot，很听话的启动了

再启动客户端，跳出数据库配置窗口

由于前边抓狂了很久，已经不记得要怎么填WSNADDR了，本机似乎不用填

可是服务器名忘记了

OK，够了，今天已经被摧残够了

想对兄弟们说，我们这群小年轻

面对生活

一定要学习小强的精神

那就是

“你TM的就是踩不死我！！”

收工，刷卡下班

【转】09年3月编程语言排行榜：VB江河日下，JavaScript稳步上升

2009-03-09T22:48:00.000+08:00

2009年3月Tiobe编程语言排行榜出炉，前十位的排名基本没有变化，JavaScript前进2名，同比增长1.27%，(Visual) Basic下降1位，同比减少3.32%。

2009年3月榜单

前十名长期趋势

以下是排名21到50的语言

【CSDN新闻】专家称微软网络品牌混乱陷入web 2.0困局

2009-03-09T19:45:00.001+08:00

导读：业界分析人士伊安·加里森(Ian Garrison)今天载文称，微软正在公司内部测试Kumo搜索引擎，但仅靠杰出的技术，微软无法挑战谷歌。微软还需要整合旗下不同的服务品牌，让普通用户理解其服务产品。以下为其全文：

微软新的“谷歌杀手”——Kumo搜索引擎似乎非常棒，但仅靠杰出的技术，微软无法成为互联网搜索市场上的领头羊。

消息称，微软正在公司内部对Kumo进行测试。Kumo不仅能够理解搜索关键词，还能够理解复杂的句子，返回的搜索结果的相关度也高得多。

如果其表现能够与微软的宣传相符，Kumo将标志着搜索技术的一大进步。因为当前的搜索技术还很“基本”，尽管能够在不足1秒钟的时间内返回数以千计的搜索结果，但有多少搜索结果是用户真正感兴趣的？如果能够提供相关度更高的搜索结果，微软就可能成为搜索市场上的赢家，但这还取决于另外一个因素——有效整合其品牌。

目前，微软的“Live”服务可谓是一团乱麻。谷歌提供了简洁的服务，而微软则陷入了web 2.0困局。没有多少人真正理解Windows Live、Office Online、Office Live是什么。尽管每种服务可能都很棒，但普通用户却很难搞清楚它们各自的用途。

部分业界观察人士认为，微软在计划将各种服务整合到Kumo品牌下。考虑到微软目前服务产品的混乱局面，这可谓是一项英明的决策。如果微软希望挑战谷歌，就需要重新考虑其销售互联网服务的方式。(志翔)

【转】Oracle重新配置EM简化版教程

2009-03-09T19:19:00.000+08:00

Oracle 10G重建EM DB Control.
　　1.drop configuration files and repository run :
　　emca -deconfig dbcontrol db -repos drop
　　2. Logon SQLPLUS as user SYS or SYSTEM, and drop the sysman account and mangement objects:
　　a. drop user sysman cascade;
　　b. drop role MGMT_USER;
　　c. drop user MGMT_VIEW cascade;
　　d. drop public synonym MGMT_TARGET_BLACKOUTS;
　　e. drop public synonym SETEMVIEWUSERCONTEXT;
　　3.Create configuration files and repository run
　　emca -config dbcontrol db -repos create
　　创建EM时,提示的端口号,应为实例的断口号,比如1521,不是EM的端口号(比如1158)
　　EM的端口号在这个文件中可以查到10.2.0\db_1\sysman\config\emca.properties
　　然后,进行em后,界面出来了,但报了一个错:
　　Java.lang.Exception: Exception in sending Request :: null
　　很多功能不能用,提示重新登录.
　　在Oracle论坛上查到了解决办法:
　　http://forums.oracle.com/forums/thread.jspa?threadID=320574&tstart=0&messageID=1374397
　　找到下面的文件
　　10.2.0\db_1\ZYKNET_ORC2\sysman\config\emd.properties
　　其中的agentTZRegion缺省是GMT,改为你所在的时区即可,例如:
　　agentTZRegion=Asia/Chungking
　　关于时区的列表参考：10.2.0\db_1\sysman\admin\supportedtzs.lst
　　然后，重启OracleDBConsole

【转】你的系统有多脆弱

2009-03-09T19:14:00.002+08:00

软件安全性依然是热点话题。每个人，从老祖母到全球 500 强公司都听说过由互联网上的病毒和攻击者所引起的盗窃身份、丢失数据，及一般性的伤害的事。在 2008 年第一季度，所有报告的 1,474 个不同的软件脆弱点只有 64 个被解决。 ¹ 分辨率大约为 4%。伴随所有关于软件和系统安全的议论，计算机世界似乎处于一片混乱中，这会让许多人不禁问道：“我有多脆弱？”

在本文中，我将介绍一些伍斯特工业学院（Worcester Polytechnic Institute，WPI）近期的安全项目的成果，以及额外的研究。我的目的是通过阐明公共术语并且提供一些典型的安全性使用的现实实例来说明什么是软件安全性。

本文不打算提供全面的计算机安全教育，而是介绍一些辽阔且扩展的信息安全领域中的关键主题。如果您想要进一步讨论，那么请通过 rbreznak@wpi.edu 联系我。

背景

我早期对计算机安全的兴趣实际上激发了我对计算机科学的最初兴趣，并且从那时起就一直是我关注的焦点。所以不用说，我有一点失望的是 WPI 没有提供大学软件或系统安全课程。在没有任何正式的安全课程的情况下，我和其他两个计算机科学的学生决定进行独立研究，了解更多关于软件安全的知识。今年的早些日子，我们和 WPI 计算机科学的教授 Kathryn Fisler 谈论关于开始一个涉及软件安全的独立研究项目的事。我们计划开设一门首先在 08-09 学年度进行的安全软件工程的课程。众所周知，CS4400x 将成为 WPI 提供的第一门大学计算机科学安全课程。

在开设该课程的过程中，我们发现许多关于没有在标准课程中提到的软件脆弱性和预防的事实。我们发现大部分脆弱点通常由小的逻辑错误或软件开发人员没发现或解决的情况所引起。一些脆弱点不太复杂，因而很容易被黑客利用。可以通过一些简单的资源就能找到它们，像 Web 浏览器和文本编辑器。在软件开发团队没出错的其他情况下，安全性的破坏可能由最终用户不恰当地配置或使用软件所致。

我们的结论是，最大的安全缺陷源于开发人员错误地假设安全问题将在系统的其他地方处理 —— 举例来说，他们假设可以相信输入的数据。经验教训：我们不得不认识到安全是每个人的职责，不是其他人的。

脆弱性 101

脆弱性是什么？“利用”、“攻击”、“脆弱点”，和其它术语一般用于描述什么适当的软件安全目的在于纠正：系统中允许黑客特权访问信息或破坏系统的缺陷。 Mitre Corporation 将脆弱性定义为“系统或网络中允许黑客以另一个用户的身份执行命令，访问他们不应该访问的数据，冒充某人，及/或执行拒绝服务的状态”。 ² 根据此定义，脆弱就意味着处于一种状态，在这种状态下，黑客（人或恶意程序，像病毒或间谍软件）可以访问到比他们应该可以访问的要多的系统的部分。

脆弱点出现的范围很广，从明显的 —— 像使用不健壮的密码或存储无保护的私有数据 —— 到更有细微差异的 —— 像未检查的输入。

溢出攻击

最早遭受破坏的，且仍旧普遍的攻击来源于开发人员对最终用户输入的数据可以信任的假设。大部分程序设计人员未预料在用户名框中得到 40,000 行文本，或者从密码框中获得甚至非键盘输入的模糊字符，因此，所输入的数据从不会被验证无误。这种假设增加了溢出攻击。举例来说，使用本文编辑器并了解一些 Microsoft PowerPoint 文件格式的知识， ³ 人们就可以手工编写 PowerPoint 文件。编辑 PowerPoint 文件 ⁴ ，让内部字段中拥有比格式允许的更多的数据会导致 Microsoft PowerPoint XP 崩溃，然后执行任何黑客想要执行的程序。在一个这种脆弱性的熟悉的实例中，内嵌的 Windows 计算器程序被执行，然而，被执行的程序很容易是更恶意的。这只是无数的这类利用中的一个实例。

实质上，溢出类攻击是由于将太多的数据放入原始程序设计人员认为足够的空间中导致的。额外的数据溢出到预期存储区附近的内存中，并且覆盖与该区域的原始用途无关的数据。当执行余下的程序时，它使用新被覆盖的数据。如果黑客能够用伪数据（也就是，NOP）填充足够的空间，然后添加一点恶意代码或值，那么程序将执行恶意代码或使用新值。这可能导致许多不同的后果。黑客可能能够越过登录 ⁵ ，获得程序的管理员特权。如果受攻击的程序是由系统管理员启动的，那么恶意代码将作为原始程序的一部分进行执行，给黑客系统中的管理员特权。溢出脆弱点，尽管不总是出现，但在一些情况下，可能很容易被补救，当开发应用程序时利用“安全”库 ⁶ ，使用堆栈保护 ⁷ （也就是，StackGuard ⁸ ）或对输入数据进行检查，从而确保其是适当的大小或类型。这一类的利用总是以类似的方式进行，但会根据受影响的内存类型和预期效果而不同。

缓冲区溢出攻击

在缓冲区溢出攻击的实例中，程序的内部值溢出，从而改变程序的运行方式。 ⁹ 在程序的正常操作过程中，当调用一个函数时，被调用函数的所有参数以及返回位置的指针都放在栈中。当完成该函数之后，使用返回指针回到原来的位置并继续程序。利用缓冲区溢出进行攻击可以改变这个过程，并且允许黑客执行任何他们期望的函数。这是通过输入足够的数据来用伪数据覆盖参数，及输入到不同函数的新返回指针来实现的，现在就执行新的函数了。 ¹⁰

SQL 注入

除了溢出的利用以外，SQL 注入是另一类依赖于开发人员没测试输入数据的疏漏的攻击。大多数人拥有字母数字式密码，或者有安全意识的人，拥有附带其他键盘符号的字母数字式密码。由于这种想法，开发人员可能允许输入任何字符作为密码。这通常是没问题的，除非他们忘记清洁或检查输入数据。这种情况比应该的要发生的频繁得多。使用 SQL 数据库的密码系统（在许多网站上非常普遍的场景）可能运行这样的查询：

SELECT * FROM users WHERE 'username' = '$USER' AND 'password'='$PASS';

$USER 和 $PASS 会用用户提供的用户名和密码来代替。那么如果用户输入‘bob’和‘1234’，那么结果的查询是：

SELECT * FROM users WHERE 'username' = 'bob' AND 'password' = '1234';

，而来自数据库的返回值会是所有用 bob 作为用户名且用 1234 作为密码的数据元组。如果黑客输入 admin 和 <<'hi' 或 1=1>>--，那么查询是：

SELECT * FROM users WHERE 'username' = 'admin' and `password` = 'hi' OR 1=1--'

注意用户输入的引号如何与原始查询中的第三个引号匹配。数据库现在会返回用户名为 admin 的所有元组，并且会取消对密码的检查，因为 'password' = 'hi' OR 1=1 命令数据库寻找密码是 hi 的元组或 1=1 的元组，而由于 1 总是 1，所以每行都是候选。-- 是 SQL 注释标志，取消查询中原始的其他引号，并且还将取消任何额外的检查，因此如果有额外的凭证（也就是，keyfob ¹¹ 或 captcha ¹² ）也会被忽略。现在黑客可以以管理员的身份进入系统并且不用不得不给出合法的密码。通过利用越来越复杂的查询，黑客可以变更、添加，或查询数据。 ¹³ 对于数据库，这令黑客具有同应用程序相同的特权。

这种类型的脆弱点被证实是对 Web 应用程序最有效的攻击类型之一，并且随着对 Web 应用程序的信任的增加，这种利用的力量甚至将更令人畏缩。幸运的消息是，像溢出类型的攻击一样，可以通过清洁输入数据，并且从不立即相信用户输入（至少对于输入的数据）来防止大部分这种脆弱点。

散列攻击

任何处理在数据库中存储用户凭证的人都会告诉您，首要的规则之一是从不直接存储没有首先加密的密码或其它私有数据。如果数据库暴露了，那么使用加密方案将防止暴露用户的密码。为了更多的利益，利用单向加密算法或散列，像 MD5 ¹⁴ 或 Blowfish， ¹⁵ 将使密码的解密成为不可能。这是因为散列可以将输入值转化为新的值，而这些新值不能从数学上逆向生成原始值。传统上，攻击以这种方式存储的密码的方式涉及用尽可能多的不同的密码进行尝试直到最终有效，这被称之为“蛮干”技术。虽然这种类型的攻击十分简单，但通常是无效的，因为需要绝对的时间来尝试足够的组合，有时候要上千年，统计上是成功的，一般是理论的。

每天您可能都在使用散列攻击工具，而甚至不知道它。Google 真的非常擅长它所做的：在信息之间找到链接。举例来说，Googling “Bob Breznak”将取出所有关于我的信息：我为 The Rational Edge 写的最近的书评，我的个人站点（及废弃的）等等。现在，如果您从这里借鉴一下，那么您将得到快速返回结果的许多想法。应用该想法来寻找散列。举例来说，利用“foobar”的 MD5 散列：3858f62230ac3c915f300c664312c63f。现在将其输入 Google，瞧！0.21 秒内，第一个结果是“Google Hash: md5(foobar) = 3858f62230ac3c915f300c664312c63f”。您将找到的大部分结果都是哈希索引站点 —— 有意地连接散列值和其相应关键字的站点。尝试更复杂的字符串（举例来说，“bobby”、“crayon”、“rational”）将生成混合的结果。如果您尝试复杂的密码（或者最好是传递阶段），您可能没有收获。

这可能不是您需要担心的最大安全漏洞，但令其危险的是，这种利用不太知名，并且没有简单的补救办法。随着越来越复杂的关键字被匹配到散列上，匹配到已知密码上的可能性增加了。变更为更复杂的算法，比方说从 MD5 变更为 SHA-2， ¹⁶ 对恢复秘密的完整性没什么作用。这是因为尽管从不同的散列中获得同一个字符串的返回值，但是将关键字链接到散列上也只是时间的问题。虽然加密法总是将利用时间来蛮干作为安全网，搜索减少所需的时间，从而成功地从几千年到几年，甚至几个月。

现在，存在着两种主要的争论，它们将散列查找从年度最大的安全缺陷的竞争列表中去掉了。这种类型的攻击只可能在数据库或密码存储已经暴露的情况下进行。需要读取数据库、影子文件（UNIX 或 LINUX 系统保存用户密码的地方），或 I/O 流。在某些情况下，这可能和达到正确的 URL 或执行 SQL 注入一样简单，而在其他情况下，它可能需要比黑客多得多的工作。减小这种攻击的潜在严重性的另一个争论实际上源于散列的使用。由于许多字符串可以生成相同的散列，所以不能必然地确定原始的字符串（用户的真实密码）。然而，找到任何散列到相同值得字符串能够再次生成相同的散列值。这意味着尽管黑客可能没有获得实际的密码，但是由于系统使用存储的散列，而黑客拥有能生成同等散列的字符串，所以系统会像黑客拥有原始密码那样响应。

最终用户问题

即使有了最彻底地测试过的且安全的软件，一旦打包并交给最终用户，全部的赌都输了。软件如何配置和实现，像其他步骤那样扮演者关键的安全性角色。

默认值的谬论

用户犯的最大错误之一是当所使用的软件没有默认值时。许多软件为各种选项定义默认值，以便用户可以尽可能快地运行。虽然有时候这可能非常有益，像 Web 服务器默认为标准的 Web 服务器通信端口，这也会导致许多安全问题。举例来说，许多路由器和其它网络设备都有默认的登录用户名和密码。当用户不将这些默认值改为独特的值时就会出现问题。搜索“默认的路由器密码”将得到许多列出市场上大部分路由器的默认用户名和密码的站点。如果黑客打算进入网络，那么还未接触的用户名、密码、IP 地址，和其它默认值都是现成的钥匙。

不可靠的系统

当最终用户不确定他们添加的软件如何符合系统的其他部分，并且需要采取什么额外的安全量度时，会产生另一个问题。再次拿 Web 搜索举例。搜索“view/index.shtml axis”将返回未保护的网络摄像机的列表。在一些情况下，最终用户成功地设置了他们想让全世界都可见的网络摄像机。在其他情况下，网络摄像机被添加到某个网络，并且没有配置为不公开。这种未保护的摄像机可以被互联网上的每个人见到，并且可能快速地成为侵犯隐私罪。一些书籍和网站致力于提供返回所有者没犹豫过安全性并且现在公开了的数据搜索查询。 ¹⁷

我们从这些新的搜索中得到一些经验。第一，默认值到处都是，因此当不修改默认值时，考虑如果黑客知道此信息会有多有害。第二，您应该了解如何访问系统的各个部分并且考虑这种访问级别是否合适。第三，记住通过模糊的安全没有用。不论多么不重要或未公开的信息公开了，如果有人感兴趣，不管通过自动的搜索或一些人力，都可以找到该数据。 ¹⁸

结束语

随着越来越多的脆弱点日益被发现，这些威胁只是沧海一粟。如同这些实例一样，大部分脆弱点源于疏忽：忽略了实现安全实践的开发人员，或者忽略改变配置的最终用户。即使我提供的实例可能肤浅，并且似乎十分容易避免，但随着项目的增长，对于简单的未检查的情况就有机会了。黑客可能只需要小小的机会就对系统进行攻击并且引起永久性的损害。开发人员应该充分了解他们假设的影响，并且越过正常使用之外进行测试。通过充分地了解系统的工作方式，并且假定为对于产品的黑客角色，开发人员应该定期审查他们的工作，并且在必要时发布补丁。

个人可能说不出软件有多大缺陷，并且虽然没有那么完全的安全系统，但是人们可以通过利用多层次的安全性将脆弱性最小化。健壮的密码，让软件保持更新及适当地修补，并且当添加了每个软件困扰时了解它的影响，是最终用户添加保护层的小方法。最后，与软件相关的每个人都有责任关注安全性，并试图减少脆弱点。

注释

关于作者


		Bob Breznak 在马萨诸塞州，伍斯特的伍斯特工业学院研究计算机科学，专攻软件工程和机器人技术。目前，他作为高级助理，受雇于计算机科学系，并且受雇于 Sun Microsystems。在学校里，他频繁参与 Association for Computer Machinery（ACM）、IEEE、和最近刚把他选为主席的计算机科学的荣誉团体（Upsilon Pi Epsilon，或 UPE）。他通常在计算机科学楼的下层地下室中进行从系统安全到机器人技术的项目。

【转】EM 无法启动&&重新完全配置EM

2009-03-09T13:35:00.000+08:00

公司的电脑改了IP ,于是EM无法启动了

环境:ORACLE 10G

OS:WINXP SP2

D:\Documents and Settings\guanhao>emctl start dbconsole
OC4J Configuration issue. E:\oracle\product\10.2.0\db_1/oc4j/j2ee/OC4J_DBConsole
_server_tuosi not found.

EMCA的一些命令参数

D:\Documents and Settings\guanhao>emca
E:\oracle\product\10.2.0\db_1\bin\emca.bat [操作] [模式] [数据库类型] [标记] [参数]-h | --h | -help | --help: 打印此帮助消息-version: 打印版本-config dbcontrol db [-repos (create | recreate)] [-cluster] [-silent] [-backup]

[参数]: 配置数据库的 Database Control
-config centralAgent (db | asm) [-cluster] [-silent] [参数]: 配置中心代理管理
-config all db [-repos (create | recreate)] [-cluster] [-silent] [-backup] [参数]: 配置 Database Control 和中心代理管理

-deconfig dbcontrol db [-repos drop] [-cluster] [-silent] [参数]: 取消配置 Database Control
-deconfig centralAgent (db | asm) [-cluster] [ -silent] [参数]: 取消配置中心代理管理
-deconfig all db [-repos drop] [-cluster] [-silent] [参数]: 取消配置 Database Control 和中心代理管理

-addInst (db | asm) [-silent] [参数]: 为新的 RAC 实例配置 EM
-deleteInst (db | asm) [-silent] [参数]: 取消为指定的 RAC 实例配置 EM

-reconfig ports [-cluster] [参数]: 重新明确分配 Database Control 端口
-reconfig dbcontrol -cluster [-silent] [参数]: 重新配置 RAC Database Control 部署

-displayConfig dbcontrol -cluster [-silent] [参数]: 显示有关 RAC Database Control 配置的信息

-upgrade (db | asm | db_asm) [-cluster] [-silent] [参数]: 将较低版本的 EM 配置升级到当前版本

-restore (db | asm | db_asm) [-cluster] [-silent] [参数]: 将当前版本的 EM 配置复原到较低版本

参数和选项:
[参数]: [ -respFile 文件名 ] [ -paramName paramValue ]*
db: 对数据库 (包括使用 ASM 的数据库) 执行配置操作
asm: 仅对 ASM 实例执行配置操作
db_asm: 对数据库和 ASM 实例执行升级/复原操作
-repos create: 创建新的 Database Control 资料档案库
-repos drop: 删除当前的 Database Control 资料档案库
-repos recreate: 删除当前的 Database Control 资料档案库并重新创建一个
-cluster: 对 RAC 数据库执行配置操作
-silent: 在不提示参数的情况下执行配置操作
-backup: 配置数据库的自动备份

单实例数据库的参数
HOST: 数据库主机名
SID: 数据库 SID
PORT: 监听程序端口号
ORACLE_HOME: 数据库 ORACLE_HOME
HOST_USER: 自动备份的主机用户名
HOST_USER_PWD: 自动备份的主机用户口令
BACKUP_SCHEDULE: 自动备份调度 (HH:MM)
EMAIL_ADDRESS: 通知的电子邮件地址
MAIL_SERVER_NAME: 通知的发件 (SMTP) 服务器
ASM_OH: ASM ORACLE_HOME
ASM_SID: ASM SID
ASM_PORT: ASM 端口
ASM_USER_ROLE: ASM 用户角色
ASM_USER_NAME: ASM 用户名
ASM_USER_PWD: ASM 用户口令
SRC_OH: 要升级的数据库的 ORACLE_HOME
DBSNMP_PWD: DBSNMP 用户的口令
SYSMAN_PWD: SYSMAN 用户的口令
SYS_PWD: SYS 用户的口令
DBCONTROL_HTTP_PORT: Database Control HTTP 端口
AGENT_PORT: EM 代理端口
RMI_PORT: Database Control 的 RMI 端口
JMS_PORT: Database Control 的 JMS 端口

集群数据库的其它参数
CLUSTER_NAME: 集群名
DB_UNIQUE_NAME: 数据库的唯一名称
SERVICE_NAME: 服务名
EM_NODE: Database Control 节点名
EM_SID_LIST: 代理 SID 列表 [以逗号分隔]

于是先删除原来的配置:
D:\Documents and Settings\guanhao>emca -repos drop

EMCA 开始于 2007-11-19 14:45:06
EM Configuration Assistant 10.2.0.1.0 正式版
版权所有 (c) 2003, 2005, Oracle。保留所有权利。

输入以下信息:
数据库 SID: tuosi
监听程序端口号: 1521
SYS 用户的口令:
SYSMAN 用户的口令:
SYSMAN 用户的口令:
是否继续? [yes(Y)/no(N)]: y
2007-11-19 14:45:20 oracle.sysman.emcp.EMConfig perform
信息: 正在将此操作记录到 E:\oracle\product\10.2.0\db_1\cfgtoollogs\emca\tuosi\em
ca_2007-11-19_02-45-06-下午.log。
2007-11-19 14:45:21 oracle.sysman.emcp.EMReposConfig dropRepository
信息: 正在删除 EM 资料档案库 (此操作可能需要一段时间)...
2007-11-19 14:48:13 oracle.sysman.emcp.EMReposConfig invoke
信息: 已成功删除资料档案库
已成功完成 Enterprise Manager 的配置
EMCA 结束于 2007-11-19 14:48:13

创建新的配置:
D:\Documents and Settings\guanhao>emca -repos create

EMCA 开始于 2007-11-19 14:53:35
EM Configuration Assistant 10.2.0.1.0 正式版
版权所有 (c) 2003, 2005, Oracle。保留所有权利。

输入以下信息:
数据库 SID: tuosi
监听程序端口号: 1521
SYS 用户的口令:
SYSMAN 用户的口令:

是否继续? [yes(Y)/no(N)]: y
2007-11-19 14:53:50 oracle.sysman.emcp.EMConfig perform
信息: 正在将此操作记录到 E:\oracle\product\10.2.0\db_1\cfgtoollogs\emca\tuosi\em
ca_2007-11-19_02-53-35-下午.log。
2007-11-19 14:53:50 oracle.sysman.emcp.EMReposConfig createRepository
信息: 正在创建 EM 资料档案库 (此操作可能需要一段时间)...
2007-11-19 14:57:40 oracle.sysman.emcp.EMReposConfig invoke
信息: 已成功创建资料档案库
已成功完成 Enterprise Manager 的配置
EMCA 结束于 2007-11-19 14:57:40

D:\Documents and Settings\guanhao>emca -config dbcontrol db

EMCA 开始于 2007-11-19 15:02:45
EM Configuration Assistant 10.2.0.1.0 正式版
版权所有 (c) 2003, 2005, Oracle。保留所有权利。

输入以下信息:
数据库 SID: tuosi
已为数据库 tuosi 配置了 Database Control
您已选择配置 Database Control, 以便管理数据库 tuosi
此操作将移去现有配置和默认设置, 并重新执行配置
是否继续? [yes(Y)/no(N)]: y
监听程序端口号: 1521
SYS 用户的口令:
DBSNMP 用户的口令:
用户名/口令无效。
DBSNMP 用户的口令:
SYSMAN 用户的口令:
通知的电子邮件地址 (可选):
通知的发件 (SMTP) 服务器 (可选):
-----------------------------------------------------------------

已指定以下设置

数据库 ORACLE_HOME ................ E:\oracle\product\10.2.0\db_1

数据库主机名 ................ server
监听程序端口号 ................ 1521
数据库 SID ................ tuosi
通知的电子邮件地址 ...............
通知的发件 (SMTP) 服务器 ...............

-----------------------------------------------------------------
是否继续? [yes(Y)/no(N)]: y
2007-11-19 15:03:25 oracle.sysman.emcp.EMConfig perform
信息: 正在将此操作记录到 E:\oracle\product\10.2.0\db_1\cfgtoollogs\emca\tuosi\em
ca_2007-11-19_03-02-45-下午.log。
2007-11-19 15:03:27 oracle.sysman.emcp.util.DBControlUtil stopOMS
信息: 正在停止 Database Control (此操作可能需要一段时间)...
2007-11-19 15:03:39 oracle.sysman.emcp.util.DBControlUtil startOMS
信息: 正在启动 Database Control (此操作可能需要一段时间)...
2007-11-19 15:04:29 oracle.sysman.emcp.EMDBPostConfig performConfiguration
信息: 已成功启动 Database Control
2007-11-19 15:04:29 oracle.sysman.emcp.EMDBPostConfig performConfiguration
警告: 无法创建 Database Control 快捷方式
2007-11-19 15:04:29 oracle.sysman.emcp.EMDBPostConfig performConfiguration
信息: >>>>>>>>>>> Database Control URL 为 http://server:5500/em <<<<<<<<<<<
已成功完成 Enterprise Manager 的配置
EMCA 结束于 2007-11-19 15:04:29

原来的还没停止,于是

D:\Documents and Settings\guanhao>emctl start dbconsole
Oracle Enterprise Manager 10g Database Control Release 10.2.0.1.0
Copyright (c) 1996, 2005 Oracle Corporation. All rights reserved.
http://server:5500/em/console/aboutApplication
Agent Version : 10.1.0.4.1
OMS Version : 10.1.0.4.0
Protocol Version : 10.1.0.2.0
Agent Home : E:\oracle\product\10.2.0\db_1\server_tuosi
Agent binaries : E:\oracle\product\10.2.0\db_1
Agent Process ID : 1160
Agent Process ID : 1160
Agent is already started. Will restart the agent
This will stop the Oracle Enterprise Manager 10g Database Control process. Conti
nue [y/n] :y
OracleDBConsoletuosi 服务正在停止................
OracleDBConsoletuosi 服务已成功停止。
D:\Documents and Settings\guanhao>emctl start dbconsole
Oracle Enterprise Manager 10g Database Control Release 10.2.0.1.0
Copyright (c) 1996, 2005 Oracle Corporation. All rights reserved.
http://server:5500/em/console/aboutApplication
Starting Oracle Enterprise Manager 10g Database Control ...OracleDBConsoletuosi
服务正在启动 ................
OracleDBConsoletuosi 服务已经启动成功。

这样就重新配置了EM,当然可以从第3部直接来配置,但如果你考虑重新配置的话,就进行3步吧!

^(Oo)^

【《程序员》2008年4月刊】做人、做事，做架构师——架构师能力模型解析

2009-03-08T08:09:00.001+08:00

文 / 周爱民

引子

究竟是什么让你在同一个位置上——例如程序员或技术负责人——工作了三年、五年或者更久，而仍然得不到任何的发展空间？你觉得自己已成为技术圈中的大牛，并信心满满地去拿明天就要颁发的某某大奖，然而却仍然停留在同样的技术职位上，去年到今年涨的薪水甚至填不平物价升幅？于是，你开始对老板不满，对员工不满，对昨天升职的那个同事不满……你开始计划明天就要跑单，或者准备考虑提出加薪却又心怀忐忑。

如果技术人员有发展的轨迹，那么他要么“看透工具的本质，把关注点转移到‘团队’的圈子里去”，要么“顺着代码铺就的道路，亦步亦趋地成为良匠大师”。仅以技术方向而言，你大概可以做到架构师、总架构师甚至首席架构师；但问题是：你现在还只是一个程序员。那要如何才能踏上通往架构师之路呢？本文为你解析一个架构师的能力模型。

你能不能做一个好的架构师？

架构师不是界定一个技术高下的职位名称，而是一个职务。所谓职务，包括职——职位，务——工作。前者决定了你具备哪些资源，可以影响到怎样的范围，以及面向的机构，后者则简单地是你需要完成的工作列表。

所以我说“架构师”不是指“一个能做架构的人”。前者是把架构师当职能，后者是当工人。能做一份工作列表中的事，并不等于就成为相应职位上的人。在管理体系里面，你的个人特性决定了你在哪个位置，而技术技能只是做事实施的必需。架构师这个职务，同时要求较高的个人素质和技术能力，因此它的进取之路总结起来就是：做人、做事，做架构师。

因此“模型”由“个人特性”和“技术技能”两个方面构成，在第一张图中，我特别说明“个人特性”既包括人际关系的能力，也包括（具体）业务能力；“技术技能”也是如此。所以个人特性主要与“做人”有关，部分地也包含“做事”的要素。

图1 架构师能力模型

“有效沟通”以及“学会谈判”与做具体的事无关，是个人能力特性的公共方面。前者是过程，后者是知道如何定目标与求结果。而“风险与防备”是做事过程控制的关键，与前面两项正好构成了一个做事基本能力的完整体系。基本上，这三项个人特性都是一个“普通程序员”所不具备的，甚至在大多数情况下，普通程序员并不愿意去具备这样的个人特性，因为在许多陷于技术泥淖的开发人员看来：沟通总是会使事情变得更加麻烦，谈判则徒耗时间而无济于事。然而事实上，在整个的架构决策过程中，架构师需要不停地沟通与谈判。将“架构”变成“决策”的过程，其实就是对各个技术角色（及其思想）兼容并包的过程，你需要不断地协调需求、实现之间的各种问题，也需要面对各种投资者（时间、资金、人才等方面的决策者）进行谈判，以确定项目的规模——没有规模也就没有范围，没有范围如何展开设计呢？

一部分开发人员会认为上述过程是“项目经理”的事情，但真的如此吗？当你作为一个更高级别的架构师，以至于要影响到多个项目的决策时，你就全然不会有这种感受了。因为这种情况下，你的决策将先于项目的启动，或者说你已经不单单是一个技术角色了。

设计是架构能力的一部分，但架构师不是设计师——看清楚二者之间的不同，你才真正迈出了架构师职业生涯的第一步。

抽象是思维能力、模型化是表达能力

个人特性中另一个非常重要的方面是“抽象思维”，而这是与架构师角色直接相关的一种能力。这种能力既有职业技能特征，又是普遍性的能力。

所谓普遍性的能力，是指“抽象”在我们——作为人这种个体的——生活中无处不在。例如我们说花、草，说桌、椅……我们用语言去指称任何一个既已存在的（可以脱离我们的语言而自然存在的）事物时，就用到了抽象。说“桌子”的时候，既没有描述桌子的具体形式，也没有说明它的规格，但我们用这个名词时，所有人都知道“桌子是什么”。所以，名词概念是整个抽象逻辑系统中的主体。如果失去了这些名词定义，我们基本上不能说话，也不能描述任何东西——那便到了 “只可意会不可言传”的境地。

用现有的成熟语汇去描述你的系统时，大多数人会理解你所表达的含义，例如我们说“这个系统设计为一个三层结构”。然而架构师面临的系统在许多细节上并不见得能够用成熟的语汇去描述，因此必须自已构建一个抽象系统，这就需要概念抽象能力、概念表达能力和基于概念的逻辑表达能力。

概念抽象能力是一种思维能力。简单地说，就是“把目标分解或概括清楚”：你要么概而言之“它是什么”，要么详细地说明“它包括什么”。必须使用大量的语汇来陈述这个“什么”，这不单单是表达为文字，也表达为你在思想过程中的一个完整系统。通常用的方法是“映射系统”。例如你可以用数学中的“数轴” 来映射“实数域”。将目标系统形式化为一个概念化的、可讨论的结构系统后，你的抽象过程就基本结束了。

图2 能力模型中的个人特性

然而这个“抽象系统”可能只构建在你的思维意识里，还必须把它描绘出来。因为不能只是你自己思考清楚，系统就能设计完成。这个“描绘”就依赖于后面两种表达能力，一种是描绘概念实体，一种是描绘实体上的逻辑——有趣的是，这似乎又回到了“程序＝结构＋算法”。

现在大家回过头来看看UML，或者更多种类的ML（建模语言），他们就用于表达这两个方面的东西：要么是概念实体（例如用一个框表明系统边界），要么是实体上的逻辑（例如用箭头表明逻辑时序）。

所以大家应该清楚，我们再如何称赞UML，它也只是一种对模型化系统的“表达能力”，你只能把它当一种辅助表达的工具去使用，它本身既不能帮助思考，也不见得能作为抽象过程中的或抽象思维环境中的参考。

任何一个优秀的架构师都有自己独特的思考方式，这决定了他如何抽象系统，以及如何“创造性地”设计与构画这个系统。这种“独特的思考方式”贯彻他从孩童开始的整个成长过程，直至他形成独立的社会观、人生观与世界观。他认识世界的方式和接受世界的能力决定于他如何思考，也反映了他这种思考方式的“独特性”。但这并不表明他有特立独行的行为特性（我们这里只说他的思考方式），我们不应介意他是否用某种语言（例如UML或者形式化编程语言）来表达他的思考结果。

推动：设计做大，实施做小

架构师首先是把问题的真正目标确定下来，然后变成系统设计、平台设计或架构设计。而在此之后设计输出将会有两个方向的发展，一是被忠实地贯彻下来，二是被变形地发展下去。两个方向都存在致命的危险：架构最终能否被完整实现。对前者来说，可能是架构设计过度，或设计本身出现了错误；后者则是对架构直接的伤害。

所以架构师必须参与实施的全程——尤其是在架构被映射为目标系统的前期。在这个阶段中，架构师的任务就是推动架构实施，以保证在项目全程的设计／架构／体系的一致性。除了直接跟设计师或设计团队沟通，以保证他们的设计在你可以控制的范围之内以外，架构师还必须有阶段化设计的能力。这种能力用于将一个原本规模宏大的架构设计，变成较小的、易于实施的、对开发团队来说可控的关键点。例如在体系层次的规划上，设计可能是独立、异质的、可迁移的存储框架来实现数据层，但在（前期的）实施上，这里可能被表达为本地数据库，并要求前端开发人员必须通过一个清晰的数据交互层来访问——例如一组数据存取接口，或一个独立数据服务组件。开发人员可能在这里遇到障碍：因为要通过这些中间层来访问本地数据库，纯粹是多余的。然而，正是这“多余的工作”提供了系统弹性，为并行团队开发公共存储服务争取了周期，也为将来的灵活部署与数据迁移提供了可能。

这里的关键就在于，无论原始系统设定有多大，实施时总是在“做小”。每一个局部的实施块都是可控的，并为它在整个体系空间中留下了位置和接口，这样才可能由“小的部分”做大。一个大系统的架构师可能同时在考虑许多个项目中的、不同位置的架构，并且清楚这些项目最终的总体规模。而这，就是平台架构师和体系架构师所涉的领域。

图3 架构师模型图中的“实现能力”

架构真的是“好不好”的问题吗？如同我对工程的理解一样，架构问题的根本，也并不在于它是否完美或漂亮，而是在于是否合用。因此架构师必须对实施架构的团队以及实施过程有充分了解，知道他们的能力缺陷，知道实现过程要消耗的资源，清楚每个环节可能的故障以及先兆。只有这样，架构师才能设计一个让这个团队能实现，而且在实现过程中能受控的架构。

要知道，你作为架构师被请来，不是画几张图纸交给项目经理，说：你们去做吧，做不出来是你们不会做。即使你可以身体力行，在这个团队中教大家、培养大家，那么公司的开销呢？风险呢？这些东西难道就不考虑了？项目的周期因为实现的复杂程度而无法控制时，项目就死掉了。那么，追根究底来说，是不是架构师的问题？是啊，你为什么会做了一份“不合用”的架构呢？——你都不知道项目如何开发、由谁实施、如何管理等等，又如何能面对这些实际环境去设计架构呢？

所以这一部分能力，是要在你的开发经验、团队经验以及用人识人的经验中去找的。参考模型图的“实现能力”下的“设计能力→了解你的主要沟通对象”和“架构推行”等分支，对你或有一些可用的提示。

局部与全局

架构是一个从全局到局部的过程，而实施正好反过来，是从局部到全局。这也正是“设计做大，实施做小”的另一个层面的含义。设计大才可以见到全局，才知道此全局对彼全局的影响；实施小才可能关注细节，才谈得上品质与控制。

事实上，大多数情况下架构是在为“当前项目之外”去考虑，这可以看成全局关注的一个组成部分。因此我们需要界定所谓“全局”的范围：超出公司或整个产品系列、产品线或规划的范围才是多余的。

所以当架构决策谈及“全局”时，其目标并不见得是“保障当前项目”，而又必须由当前项目去完成。

一个经常被用到的例子是：如果仅为当前项目考虑，那么只需要做成DLL模块；如果为产品线考虑，可能会是“管道＋插件”的结构形式。而“管道＋插件”的形式显然比做成DLL模块更费时，这个时间成本（以及其它成本）就变成了当前项目的无谓开销。

这种全局策略对局部计划的影响是大多数公司不能忍受的，也被很多团队所垢病。然而这却是架构师角色对体系的“近乎必然”的影响——如果你试图在体系中引用架构师这个角色的话。一些情况下，体系能够容纳这种影响，例如“技术架构师”试图推动某种插件框架，而正好开发人员对这项技术感兴趣，那就顺其自然地花点工夫去实现了。但如果不是这样，实施者或实施团队看不到“多余的部分”对他们的价值时，来自局部的抵触就产生了。

这种情况下，平衡这些抵触就成了架构推行的实务之一。在我看来，“平衡”是全局的艺术和局部的技术。也就是说，一方面架构师要学会游说，另一方面也要寻求更为简洁的、成本更小的实现技术。只有当整个体系都意识到（你所推行的）架构的重要性，而且实施成本在他们可以接受的范围之内时，他们才会积极行动起来。

所以所谓平衡，其实也是折衷的过程。构架师只有眼中见大，才知道哪些折衷可以做，而哪些不能。所谓设计评估（模型图中的实现能力->设计能力->设计评估分支）并不是去分析一个设计结果好或不好，而是从中看到原始的需求，看到体系全局的意图，然后知道在将设计变得更为“适当”时可以做哪些折衷。同样的原因，架构师也必须知道自己的决策会产生的影响，才能控制它们，以防它们变成团队的灾难。有些时候，架构师甚至需要抛弃一些特性，以使得项目能够持续下去。因为产品的阶段性产出只是整个战略中的一个环节，而不是全部。

其它

“怎么做一个架构师”这个问题得分成两个部分来看，一个是“做到”，一个是“做好”。由于架构师本身不过是一个技术职位，所以时机成熟了自然会做得到。但问题是，真有一天你被放在这个位置上了，你能做得好吗？

我浏览过几套所谓培训机构的有关架构师的教程，也翻阅过一些讲架构的书。我发现他们普遍地是将架构作为一种“职业技术”来讲，就像培养程序员或者缝纫工一样来教育。但就我的经验来说，架构并不是一件纯粹表现技术能力的工作，所以并不是翻几本书学几种方法就可以投入“实战”的。更深层的问题是，架构师其实不是“战”出来的。昨天跟同事讨论这个话题，他把我们这几年来的一些思考用了三句话来概括，非常精彩：从无到有的，是架构；从表到里的，是抽象；从粗到细的，是设计。

那么到底什么是架构呢？从上面的概括中你是看不到答案的。到底如何做架构呢？从本文中你也是看不到答案的。然而我说，“你看不到答案”的根源其实是在于你的眼光与心性——后面这个词换成现代白话，就是“思想”。真正阻碍了你成为优秀架构师的，也许正是你既有的知识与思想方法，扔掉它们，接受一些全然有别的信息，也许正是良好的开端。

或许你现在正愤愤然：这篇文章怎么空洞无物？——我甚至能想象到一些读者的表情。然而请在问题面前停下来，不要急于给出答案。正如你将“?”稍微变下形，它就成为了“!”一样，问题的本身，就是答案。

作者简介

周爱民（aimingoo），具有十余年的软件开发、项目管理和团队建设的经验，现担任盛大网络的平台架构师，著有《大道至简》、《Delphi源代码分析》等。

【转】Delphi中常用VCL函数说明

2009-03-07T19:47:00.000+08:00

BCB/Delphi中常用的VCL函数说明
说明,BCB,Delphi,C++Builder,内存分配,文件操作,磁盘目录管理,字符串操作，时间日期管理，类型转换

--------------------
内存分配
--------------------
函数名称：AllocMem
函数说明：在队中分配指定字节的内存块,并将分配的每一个字节初始化为 0.函数原型如下:
void * __fastcall AllocMem(Cardinal Size);

函数名称：SysFreeMem
函数说明：释放所指定的内存块.函数原型如下:
int __fastcall SysFreeMem(void * P);

函数名称：SysReallocMem
函数说明：要求重新分配参数Size所指定的内存.函数原型如下:
void * __fastcall SysReallocMem(void * P , int Size);

--------------------
文件操作
--------------------
函数名称：ChangeFileExt
函数说明：更改指定文件的扩展名,函数原型如下:
AnsiString __fastcall ChangeFileExt(const AnsiString FileName,const AnsiString Extension);

函数名称：DeleteFile
函数说明：在计算机磁盘中删除指定的文件,如果操作成功,则函数返回真,函数原型如下:
bool __fastcall DeleteFile(const AnsiString FileName);

函数名称：ExtractFileDir
函数说明：返回指定文件的工作目录,函数原型如下:
AnsiString __fastcall ExtractFileDir(const AnsiString FileName);

函数名称：ExtractFileDrive
函数说明：返回指定文件的驱动器,函数原型如下:
AnsiString __fastcall ExtractFileDrive(const AnsiString FileName);

函数名称：ExtractFileExt
函数说明：返回指定文件的扩展名,函数原型如下:
AnsiString __fastcall ExtractFileExt(const AnsiString FileName);

函数名称：ExtractFileName
函数说明：返回指定文件的文件名及扩展名,函数原型如下:
AnsiString __fastcall ExtractFileName(const AnsiString FileName);

函数名称：ExtractFilePath
函数说明：返回指定文件的工作路径,函数原型如下:
AnsiString __fastcall ExtractFilePath(const AnsiString FileName);

函数名称：FileAge
函数说明：返回指定文件的时间标签,如果操作失败,则返回-1,函数原型如下:
int __fastcall FileAge(const System::AnsiString FileName);

函数名称：FileClose
函数说明：关闭指定的文件,函数原型如下:
void __fastcall FileClose(int Handle);

函数名称：FileCreate
函数说明：以指定的文件名称创建一个新的文件,如果返回为正数,表示操作成功,返回值为文件句柄,如果返回值为-1,表示操作失败.函数原型如下:
int __fastcall FileCreate(const System ::AnsiString FileName);

函数名称：FileExists
函数说明：用于测试指定的文件是否存在,如果存在返回真,否则返回假,函数原型如下:
bool __fastcall FileExists(const System::AnsiString FileName);

函数名称：FileGetAttr
函数说明：返回指定文件的属性,如果操作失败,则函数返回-1,函数原型如下;
int __fastcall FileGetAttr(const System::AnsiString FileName);

函数名称：FileGetDate
函数说明：返回指定文件的DOS时间标签,如果操作失败,则近回-1,函数原型如下:
int __fastcall FileGetDate(int Handle);

函数名称：FileOpen
函数说明：打开指定的文件,如果返回为正数,表示操作成功,返回值为文件句柄:如果返回值为-1,表示操作失败,函数原型如下:
int __fastcall FileOpen(const System::AnsiString FileName,int Mode);

函数名称：FileRead
函数说明：从文件中读取指定字节的数据到缓冲区中,函数返回实际读取的字节数,函数原型如下;
int __fastcall FileRead(int Handle,void *Buffer,int Count);

函数名称：FileSeek
函数说明：调整文件指针到新的位置,如果操作成功,则返回新的文件位置,如果操作失败,则函数返回-1,函数原型如下:
int __fastcall FileSeek(int Handle,int Offset,int Origin);

函数名称：FileSetAttr
函数说明：更改指定文件的属性参数,如果操作成功,则返回0,函数原型如下;
int __fastcall FileSetAttr(const System::AnsiString FileName,int Attr);

函数名称：FileSetDate
函数说明：更改指定文件的DOS时间标签,如果操作成功,返回0,否则返回错误代码,函数原型如下:
int __fastcall FileSetDate(int Handle,int Age);

函数名称：FileWrite
函数说明：将缓冲区的数据写入到指定的文件的当前位置中去如果操作成功,函数返回实际写入的字节数,如果返回为-1,则表示操作产生错误,函数原型如下:
int __fastcall FileWrite(int Handle,const void *Buffer,int Count);

函数名称：FindClose
函数说明：释放FindFirst操作所申请的内存资源,函数原型如下:
void __fastcall FindClose(TSearchRec &F);

函数名称：FindFirst
函数说明：在指定的文件目录内,搜寻符合特定属性参数的文件,如果成功地查找到符合条件的文件,则函数返回0,否则函数返回一个错误代码,函数原型如下:
int __fastcall FindFirst(const System::AnsiString Path,int Attr,TSearchRec &F);

函数名称：FindNext
函数说明：继续搜寻FindFirst所指定属性参数的文件,如果成功地查找到符合条件的文件,则函数返回0,否则函数返回一个错误代码,函数原型如下:
int __fastcall FindNext(TSearchRec &F);
// 本文转自 C++Builder 研究 - http://www.ccrun.com/article.asp?i=983&d=22l01d

函数名称：RenameFile
函数说明：更改指定文件的名称,如果操作成功,则函数返回真,函数原型如下:
bool __fastcall RenameFile(const AnsiString OldName, const AnsiString NewName);

--------------------
磁盘目录管理
--------------------
函数名称：CreateDir
函数说明：创建新的目录,如果操作成功,返回真,否则返回假,函数原型如下:
bool __fastcall CreateDir(const AnsiString Dir);

函数名称：DiskFree
函数说明：返回指定磁盘的剩余空间,如果操作成功,返回剩余磁盘空间,如果操作失败,则返回-1,函数原型如下:
int __fastcall DiskFree(Byte Drive);

函数名称：DiskSize
函数说明：返回指定磁盘的空间,如果操作成功,返回磁盘空间,如果操作失败,则返回-1,函数原型如下:
int __fastcall DiskSize(Byte Drive);

函数名称：GetCurrentDir
函数说明：返回当前工作目录,函数原型如下:
AnsiString __fastcall GetCurrentDir();

函数名称：RemoveDir
函数说明：删除指定的目录,如果操作成功,返回真,否则返回假,函数原型如下:
bool __fastcall RemoveDir(const AnsiString Dir);

函数名称：SetCurrentDir
函数说明：设置当前工作目录,如果操作成功,则返回真,函数原型如下:
bool __fastcall SetCurrentDir(const AnsiString Dir);

--------------------
字符串操作
--------------------
函数名称：CompareStr
函数说明：比较两个AnsiString字符串,函数原型如下:
int __fastcall CompareStr(const AnsiString S1, const AnsiString S2);

函数名称：CompareText
函数说明：比较两个AnsiString字符串,函数原型如下:
int __fastcall CompareText(const AnsiString S1, const AnsiString S2);

函数名称：LowerCase
函数说明：将指定的AnsiString字符串转换为小写形式,函数原型如下:
AnsiString __fastcall LowerCase(const AnsiString S);

函数名称：StrAlloc
函数说明：为字符串分配指定字节的内存,并返回内存指针,函数原型如下:
char * __fastcall StrAlloc(Cardinal Size);

函数名称：StrBufSize
函数说明：返回*Str所指向内存的大小,函数原型如下:
Cardinal __fastcall StrBufSize(const char * Str);

函数名称：StrCat
函数说明：连接两个字符串,并返回目的字符串指针,函数原型如下:
char * __fastcall StrCat(char * Dest, const char * Source);

函数名称：StrComp
函数说明：两个字符串相到比较,返回比较的结果,函数原型如下:
int __fastcall StrComp(const char * Str1, const char * Str2);

函数名称：StrCopy
函数说明：将源字符串拷贝到目的字符串中,函数原型如下:
char * __fastcall StrCopy(char * Dest, const char * Source);

函数名称：StrECopy
函数说明：将源字符串拷贝到目的字符串中,并返回目的字符串结尾指针,函数原型如下:

char * __fastcall StrECopy(char * Dest, const char * Source);

函数名称：StrEnd
函数说明：返回字符串结尾指针,函数原型如下:
char * __fastcall StrEnd(const char * Str);

函数名称：StrIComp
函数说明：两个字符串相互比较(不论大小写),返回比较的结果,函数原型如下:
int __fastcall StrIComp(const char * Str1, const char * Str2);

函数名称：StrLCat
函数说明：将指定数目的源字符串连接到目的字符串,并返回目的字符串指针,函数原型如下:
char * __fastcall StrLCat(char * Dest, const char * Source, Cardinal MaxLen);

函数名称：StrLComp
函数说明：对两个字符串指定数目的字符进行比较操作,函数原型如下:
int __fastcall StrLComp(const char * Str1, const char * Str2, Cardinal MaxLen);

函数名称：StrLCopy
函数说明：将源字符串指定数目的字符拷贝到目的字符串中,并返回目的字符串指针,函数原型如下:
char * __fastcall StrLCopy(char * Dest, const char * Source, Cardinal MaxLen);

函数名称：StrLen
函数说明：返回字符串的长度,函数原型如下:
Cardinal __fastcall StrLen(const char * Str);

函数名称：StrLower
函数说明：将字符串转换为小写形式,函数原型如下:
char * __fastcall StrLower(char * Str);

函数名称：StrMove
函数说明：从源字符串向目的字符串拷贝指定数目的字符,函数原型如下:
char * __fastcall StrMove(char * Dest, const char * Source, Cardinal Count);

函数名称：StrNew
函数说明：在堆中为指定字符串分配空间,并将字符串拷贝到此空间中,函数原型如下:
char * __fastcall StrNew(const char * Str);

函数名称：StrPas
函数说明：将指定的字符串转换为AnsiString类型字符串对象,函数原型如下:
AnsiString __fastcall StrPas(const char * Str);

函数名称：StrPCopy
函数说明：将AnsiString类型的源字符串拷贝到目的字符串中,并返回目的字符串指针,函数原型如下:
char * __fastcall StrPCopy(char * Dest, const AnsiString Source);

函数名称：StrPLCopy
函数说明：将源字符串(AnsiString类型)指定数目的字符拷贝到目的字符串中,并返回目的字符串指针,函数原型如下:
char * __fastcall StrPLCopy(char * Dest, const AnsiString Source, Cardinal MaxLen);

函数名称：StrPos
函数说明：在Strl所指定的字符串中寻找Str2所指定的子字符串,并返回Str2在Str2中第一个子字符的指针,函数原型如下:
char * __fastcall StrPos(const char * Str1, const char * Str2);

函数名称：StrRScan
函数说明：在指定的字符串中寻找特定的字符,并返回字符串中最后一个特定字符的指针,函数原型如下:
char * __fastcall StrRScan(const char * Str, char Chr);

函数名称：StrScan
函数说明：在指定的字符串中寻找特定的字符,并返回字符串中第一个特定字符的指针,函数原型如下:
char * __fastcall StrScan(const char * Str, char Chr);

函数名称：StrUpper
函数说明：将字符串转换为大写形式,函数原型如下:
char * __fastcall StrUpper(char * Str);

函数名称：UpperCase
函数说明：将指定的AnsiString字符串转换为大写形式,函数原型如下:
AnsiString __fastcall UpperCase(const AnsiString S);

--------------------
类型转换
--------------------
函数名称：FloatToStr
函数说明：将浮点数转换为AnsiString字符串,函数原型如下:
AnsiString __fastcall FloatToStr(Extended Value);

函数名称：FloatToStrF
函数说明：将浮点数转换为指定格式的AnsiString字符串,函数原型如下:
AnsiString __fastcall FloatToStrF(Extended Value, TFloatFormat Format,int Precision, int Digits);

函数名称：IntToHex
函数说明：将整数转换为十六进制字符串,函数原型如下:
AnsiString __fastcall IntToHex(int Value, int Digits);

函数名称：IntToStr
函数说明：将整数转换为AnsiString字符串,函数原型如下:
AnsiString __fastcall IntToStr(int Value);

函数名称：StrToFloat
函数说明：将AnsiString字符串转换为一个浮点数值,函数原型如下:
Extended __fastcall StrToFloat(const AnsiString S);

函数名称：StrToInt
函数说明：将AnsiString字符串转换为整数值,如果不能进行转换,则产生EConvertError异常,函数原型如下:
int __fastcall StrToInt(const AnsiString S);

函数名称：StrToIntDef
函数说明：将AnsiString字符串转换为一个数值,函数原型如下:
int __fastcall StrToIntDef(const System::AnsiString S,int Default);

--------------------
时间日期管理
--------------------
函数名称：Date
函数说明：返回TDateTime对象,包含当前的年月日信息,函数原型如下:
System::TDateTime __fastcall Date(void);

函数名称：DateTimetoStr
函数说明：将TDateTime对象转换为字符串对象,函数原型如下:
AnsiString __fastcall DateTimeToStr(System::TDateTime DateTime);

函数名称：DatetimeToString
函数说明：将TDateTime对象转换为指定格式的字符串对象,函数原型如下:
void __fastcall DateTimeToString(AnsiString &Result, const AnsiString Format,System::TDateTime DateTime);

函数名称：DateTimeToSystemTime
函数说明：将TDateTime对象转换为操作系统时间,函数原型如下:
void __fastcall DateTimeToSystemTime( System::TDateTime DateTime, _SYSTEMTIME &SystemTime);

函数名称：DateToStr
函数说明：将TDateTime对象(包含当前年月日信息)转换为字符串对象,函数原型如下:
AnsiString __fastcall DateToStr(System::TDateTime Date);

函数名称：Now
函数说明：返回TDateTime对象,获取当前的日期和时间信息,函数原型如下:
System::TDateTime __fastcall Now(void);

函数名称：StrToDate
函数说明：将字符串对象转换为年月日对象,函数原型如下:
System::TDateTime __fastcall StrToDate(const AnsiString S);

函数名称：StrToDateTime
函数说明：将字符串对象转换为年月日时间对象,函数原型如下:
System::TDateTime __fastcall StrToDateTime(const AnsiString S);

函数名称：StrToTime
函数说明：将字符串对象转换时间对象,函数原型如下:
System::TDateTime __fastcall StrToTime(const AnsiString S);

函数名称：SystemTimeToDateTime
函数说明：将操作系统时间转换为TDateTime对象,函数原型如下:
System::TDateTime __fastcall SystemTimeToDateTime(const _SYSTEMTIME &SystemTime);

函数名称：Time
函数说明：返回TDateTime对象,包含当前的时间信息,函数原型如下:
System::TDateTime __fastcall Time(void);

函数名称：TimeToStr
函数说明：将当前日期转换为字符串对象,函数原型如下:
AnsiString __fastcall TimeToStr(System::TDateTime Time);


本文档是ccrun(老妖)根据网上资料整理而成。

Delphi中属性的使用（unit2）

2009-03-07T16:25:00.001+08:00

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes;

type
// 基类employee
employee=class
protected
name:string; // 姓名
empno:string; // 雇员号
accumpay:real;// 月薪
public
constructor create();// 构造函数
Procedure pay(); Virtual; // 计算月薪函数（虚拟方法）
Procedure displaystatus(); Virtual;// 显示信息函数（虚拟方法）
end;

//技术员类technician
technician=class(employee)
private
hrRate:string;//每小时酬金
hr:string; //当月工作时数
function GetHourlyRate():string;
procedure SetHourlyRate(Value: string);
function GetWorkHours():string;
procedure SetWorkHours(Value: string);

public
property MyHourlyRate: string read GetHourlyRate write SetHourlyRate;
property MyWorkHours: string read GetWorkHours write SetWorkHours;
Procedure pay(); override; //计算月薪函数（覆盖基类中同名方法）
Procedure displaystatus();override; //显示信息函数（覆盖基类中同名方法）
end;

//销售员类（派生于employee）
salesman=class(employee)
private
comm:string;//提取销售额的百分比
sale:string;//销售额
function GetCommrateRate():string;
procedure SetCommrateRate(Value: string);
function GetSales():string;
procedure SetSales(Value: string);
public
property MyCommRate: string read GetCommrateRate write SetCommrateRate;
property MySales: string read GetSales write SetSales;
Procedure pay(); override; //计算月薪函数（覆盖基类中同名方法）
Procedure displaystatus(); override; //显示信息函数（覆盖基类中同名方法）
end;

var
tech: technician;
sales: salesman;
name1,number,result1: string;

implementation
//employee类的函数实现
constructor employee.create();
begin
name:=name1; // name1为存放雇员姓名的全局变量
empno:=number; // number为存放雇员号的全局变量
accumpay:=0.0;
end;

Procedure employee.pay();
begin
end;

Procedure employee.displaystatus();
begin
end;

//技术员类的函数实现
Procedure technician.pay();
begin
accumpay:=strtofloat(GetHourlyRate)*strtofloat(GetWorkHours);
end;

Procedure technician.displaystatus();
begin
result1:=empno+'号技术员'+name+'的本月工资为 '+floattostr(accumpay);
end;
//技术员工资结算
function technician.GetHourlyRate(): string;
begin
GetHourlyRate:=hrRate;
end;
procedure technician.SetHourlyRate(Value: string);
begin
hrRate:=Value;
end;
function technician.GetWorkHours(): string;
begin
GetWorkHours:=hr;
end;
procedure technician.SetWorkHours(Value: string);
begin
hr:=value;
end;

//销售员类的函数实现
Procedure salesman.pay();
begin
accumpay:=strtofloat(GetCommrateRate)*strtofloat(GetSales);
end;

Procedure salesman.displaystatus();
begin
result1:=empno+'号销售员'+name+'的本月工资为 '+floattostr(accumpay);
end;
//销售人员工资结算
function salesman.GetCommrateRate(): string;
begin
GetCommrateRate:=comm;
end;
procedure salesman.SetCommrateRate(Value: string);
begin
comm:=value;
end;
function salesman.GetSales(): string;
begin
GetSales:=sale;
end;
procedure salesman.SetSales(Value: string);
begin
sale:=value;
end;

end.

Delphi中属性的使用（unit1）

2009-03-07T16:23:00.000+08:00

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Label1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
tch: TGroupBox;
sls: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
jsyno: TEdit;
jsyxm: TEdit;
hours: TEdit;
Label5: TLabel;
xsyno: TEdit;
Label6: TLabel;
xsyxm: TEdit;
xsl: TEdit;
Label7: TLabel;
Label8: TLabel;
result: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
lblHrRate: TLabel;
edtHrRate: TEdit;
lblComm: TLabel;
edtComm: TEdit;
GroupBox3: TGroupBox;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ResetTech(flag: boolean); //设置只读属性
procedure ResetSale(flag: boolean);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject); //flag标志着只读属性，true则只读，false则可修改
procedure SetEmptyTech();
procedure SetEmptySale();
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;
{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
t1: technician;
s1: salesman;
begin
if RadioButton1.Checked =true then
begin
// 计算技术员的月薪
number:=jsyno.Text ;
name1:= jsyxm.Text ;
t1:=technician.create ();
t1.MyHourlyRate := edtHrRate.Text;
t1.MyWorkHours := hours.Text;
t1.pay ();
t1.displaystatus ();
end
else begin
// 计算销售员的月薪
number:= xsyno.Text ;
name1:= xsyxm.Text ;
s1:=salesman.create ();
s1.MySales := xsl.Text;
s1.MyCommRate := edtComm.Text;
s1.pay ();
s1.displaystatus ();
end;
// 将信息显示在result文本框中
SetEmptyTech();
SetEmptySale();
result.Text :=result1;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.ResetTech(flag: boolean); //根据radio button选择情况设置各输入组的只读情况
begin
if flag = true then
begin
jsyno.ReadOnly := true;
jsyxm.ReadOnly := true;
hours.ReadOnly := true;
edtHrRate.ReadOnly := true;
jsyno.Enabled := false;
jsyxm.Enabled := false;
hours.Enabled := false;
edtHrRate.Enabled := false;
end
else begin
jsyno.ReadOnly := false;
jsyxm.ReadOnly := false;
hours.ReadOnly := false;
edtHrRate.ReadOnly := false;
jsyno.Enabled := true;
jsyxm.Enabled := true;
hours.Enabled := true;
edtHrRate.Enabled := true;
end;
end;

procedure TForm1.ResetSale(flag: boolean);
begin
if flag = true then
begin
xsyno.ReadOnly := true;
xsyxm.ReadOnly := true;
xsl.ReadOnly := true;
edtComm.ReadOnly := true;
xsyno.Enabled := false;
xsyxm.Enabled := false;
xsl.Enabled := false;
edtComm.Enabled := false;
end
else begin
xsyno.ReadOnly := false;
xsyxm.ReadOnly := false;
xsl.ReadOnly := false;
edtComm.ReadOnly := false;
xsyno.Enabled := true;
xsyxm.Enabled := true;
xsl.Enabled := true;
edtComm.Enabled := true;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if RadioButton1.Checked =true then//选中了技术员
begin
ResetTech(false); //将技术员的只读属性设置为false
ResetSale(true);//将销售员的只读属性设置为true
end
else begin
ResetTech(true); //将技术员的只读属性设置为true
ResetSale(false);//将销售员的只读属性设置为false
end;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
ResetTech(false); //将技术员的只读属性设置为false
ResetSale(true);//将销售员的只读属性设置为true
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
ResetTech(true); //将技术员的只读属性设置为true
ResetSale(false);//将销售员的只读属性设置为false
end;

procedure TForm1.SetEmptySale;
begin
xsyno.Text := '';
xsyxm.Text := '';
xsl.Text := '';
edtComm.Text := '';
end;

procedure TForm1.SetEmptyTech;
begin
jsyno.Text := '';
jsyxm.Text := '';
hours.Text := '';
edtHrRate.Text := '';
end;

end.

僵尸网络

2009-03-07T10:22:00.001+08:00

僵尸网络指采用一种或多种传播手段，将大量主机感染bot程序（僵尸程序），从而在控制者和被感染主机之间所形成的一个可一对多控制的网络。
　　攻击者通过各种途径传播僵尸程序感染互联网上的大量主机，而被感染的主机将通过一个控制信道接收攻击者的指令，组成一个僵尸网络。之所以用僵尸网络这个名字，是为了更形象的让人们认识到这类危害的特点：众多的计算机在不知不觉中如同中国古老传说中的僵尸群一样被人驱赶和指挥着，成为被人利用的一种工具。
　　在Botnet的概念中有这样几个关键词。“bot程序”是robot的缩写，是指实现恶意控制功能的程序代码；“僵尸计算机”就是被植入bot的计算机；“控制服务器（Control Server）”是指控制和通信的中心服务器，在基于IRC（因特网中继聊天）协议进行控制的Botnet中，就是指提供IRC聊天服务的网络。
　　Botnet
　　首先是一个可控制的网络，这个网络并不是指物理意义上具有拓扑结构的网络，它具有一定的分布性，随着bot程序的不断传播而不断有新位置的僵尸计算机添加到这个网络中来。
　　其次，这个网络是采用了一定的恶意传播手段形成的，例如主动漏洞攻击，邮件病毒等各种病毒与蠕虫的传播手段，都可以用来进行Botnet的传播，从这个意义上讲，恶意程序bot也是一种病毒或蠕虫。
　　最后一点，也是Botnet的最主要的特点，就是可以一对多地执行相同的恶意行为，比如可以同时对某目标网站进行分布式拒绝服务（DDos）攻击，同时发送大量的垃圾邮件等，而正是这种一对多的控制关系，使得攻击者能够以极低的代价高效地控制大量的资源为其服务，这也是Botnet攻击模式近年来受到黑客青睐的根本原因。在执行恶意行为的时候，Botnet充当了一个攻击平台的角色，这也就使得 Botnet不同于简单的病毒和蠕虫，也与通常意义的木马有所不同。
　　僵尸网络是互联网上受到黑客集中控制的一群计算机，往往被黑客用来发起大规模的网络攻击，如分布式拒绝服务攻击(DDoS)、海量垃圾邮件等，同时黑客控制的这些计算机所保存的信息，譬如银行帐户的密码与社会安全号码等也都可被黑客随意“取用”。因此，不论是对网络安全运行还是用户数据安全的保护来说，僵尸网络都是极具威胁的隐患。僵尸网络的威胁也因此成为目前一个国际上十分关注的问题。然而，发现一个僵尸网络是非常困难的，因为黑客通常远程、隐蔽地控制分散在网络上的“僵尸主机”，这些主机的用户往往并不知情。因此，僵尸网络是目前互联网上黑客最青睐的作案工具。
　　对网友而言，感染上“僵尸病毒”却十分容易。网络上搔首弄姿的美女、各种各样有趣的小游戏，都在吸引着网友轻轻一点鼠标。但事实上，点击之后毫无动静，原来一切只是骗局，意在诱惑网友下载有问题的软件。一旦这种有毒的软件进入到网友电脑，远端主机就可以发号施令，对电脑进行操控。
　　专家表示，每周平均新增数十万台任人遥控的僵尸电脑，任凭远端主机指挥，进行各种不法活动。多数时候，僵尸电脑的根本不晓得自己已被选中，任人摆布。
　　僵尸网络之所以出现，在家高速上网越来越普遍也是原因。高速上网可以处理(或制造)更多的流量，但高速上网家庭习惯将电脑长时间开机，唯有电脑开机，远端主机才可以对僵尸电脑发号施令。
　　网络专家称：“重要的硬件设施虽然非常重视杀毒、防黑客，但网络真正的安全漏洞来自于住家用户，这些个体户欠缺自我保护的知识，让网络充满地雷，进而对其他用户构成威胁。”
　　Botnet的发展过程
　　Botnet是随着自动智能程序的应用而逐渐发展起来的。在早期的IRC聊天网络中，有一些服务是重复出现的，如防止频道被滥用、管理权限、记录频道事件等一系列功能都可以由管理者编写的智能程序所完成。于是在1993 年，在IRC 聊天网络中出现了Bot 工具——Eggdrop，这是第一个bot程序，能够帮助用户方便地使用IRC 聊天网络。这种bot的功能是良性的，是出于服务的目的，然而这个设计思路却为黑客所利用，他们编写出了带有恶意的Bot 工具，开始对大量的受害主机进行控制，利用他们的资源以达到恶意目标。
　　20世纪90年代末，随着分布式拒绝服务攻击概念的成熟，出现了大量分布式拒绝服务攻击工具如TFN、TFN2K和Trinoo，攻击者利用这些工具控制大量的被感染主机，发动分布式拒绝服务攻击。而这些被控主机从一定意义上来说已经具有了Botnet的雏形。
　　1999 年，在第八届DEFCON 年会上发布的SubSeven 2.1 版开始使用IRC 协议构建攻击者对僵尸主机的控制信道，也成为第一个真正意义上的bot程序。随后基于IRC协议的bot程序的大量出现，如GTBot、Sdbot 等，使得基于IRC协议的Botnet成为主流。
　　2003 年之后，随着蠕虫技术的不断成熟，bot的传播开始使用蠕虫的主动传播技术，从而能够快速构建大规模的Botnet。著名的有2004年爆发的 Agobot/Gaobot 和rBot/Spybot。同年出现的Phatbot 则在Agobot 的基础上，开始独立使用P2P 结构构建控制信道。
　　从良性bot的出现到恶意bot的实现，从被动传播到利用蠕虫技术主动传播，从使用简单的IRC协议构成控制信道到构建复杂多变P2P结构的控制模式，Botnet逐渐发展成规模庞大、功能多样、不易检测的恶意网络，给当前的网络安全带来了不容忽视的威胁。
　　Botnet的工作过程
　　Botnet的工作过程包括传播、加入和控制三个阶段。
　　一个Botnet首先需要的是具有一定规模的被控计算机，而这个规模是逐渐地随着采用某种或某几种传播手段的bot程序的扩散而形成的，在这个传播过程中有如下几种手段：
　　（1）主动攻击漏洞。其原理是通过攻击系统所存在的漏洞获得访问权，并在Shellcode 执行bot程序注入代码，将被攻击系统感染成为僵尸主机。属于此类的最基本的感染途径是攻击者手动地利用一系列黑客工具和脚本进行攻击，获得权限后下载 bot程序执行。攻击者还会将僵尸程序和蠕虫技术进行结合，从而使bot程序能够进行自动传播，著名的bot样本AgoBot，就是实现了将bot程序的自动传播。
　　（2）邮件病毒。bot程序还会通过发送大量的邮件病毒传播自身，通常表现为在邮件附件中携带僵尸程序以及在邮件内容中包含下载执行bot程序的链接，并通过一系列社会工程学的技巧诱使接收者执行附件或点击链接，或是通过利用邮件客户端的漏洞自动执行，从而使得接收者主机被感染成为僵尸主机。
　　（3）即时通信软件。利用即时通信软件向好友列表发送执行僵尸程序的链接，并通过社会工程学技巧诱骗其点击，从而进行感染，如2005年年初爆发的MSN性感鸡（Worm.MSNLoveme）采用的就是这种方式。
　　（4）恶意网站脚本。攻击者在提供Web服务的网站中在HTML页面上绑定恶意的脚本，当访问者访问这些网站时就会执行恶意脚本，使得bot程序下载到主机上，并被自动执行。
　　（5）特洛伊木马。伪装成有用的软件，在网站、FTP 服务器、P2P 网络中提供，诱骗用户下载并执行。
　　通过以上几种传播手段可以看出，在Botnet的形成中传播方式与蠕虫和病毒以及功能复杂的间谍软件很相近。
　　在加入阶段，每一个被感染主机都会随着隐藏在自身上的bot程序的发作而加入到Botnet中去，加入的方式根据控制方式和通信协议的不同而有所不同。在基于IRC协议的Botnet中，感染bot程序的主机会登录到指定的服务器和频道中去，在登录成功后，在频道中等待控制者发来的恶意指令。图2为在实际的Botnet中看到的不断有新的bot加入到Botnet中的行为。
　　在控制阶段，攻击者通过中心服务器发送预先定义好的控制指令，让被感染主机执行恶意行为，如发起DDos攻击、窃取主机敏感信息、更新升级恶意程序等。图3为观测到的在控制阶段向内网传播恶意程序的Botnet行为。
　　Botnet的分类
　　Botnet根据分类标准的不同，可以有许多种分类。
　　按bot程序的种类分类
　　（1）Agobot/Phatbot/Forbot/XtremBot。这可能是最出名的僵尸工具。防病毒厂商Spphos 列出了超过500种已知的不同版本的Agobot(Sophos 病毒分析)，这个数目也在稳步增长。僵尸工具本身使用跨平台的C++写成。Agobot 最新可获得的版本代码清晰并且有很好的抽象设计，以模块化的方式组合，添加命令或者其他漏洞的扫描器及攻击功能非常简单，并提供像文件和进程隐藏的 Rootkit 能力在攻陷主机中隐藏自己。在获取该样本后对它进行逆向工程是比较困难的，因为它包含了监测调试器(Softice 和O11Dbg)和虚拟机（VMware 和Virtual PC)的功能。
　　（2）SDBot/RBot/UrBot/SpyBot/。这个家族的恶意软件目前是最活跃的bot程序软件，SDBot 由C语言写成。它提供了和Agobot 一样的功能特征，但是命令集没那么大，实现也没那么复杂。它是基于IRC协议的一类bot程序。
　　（3）GT-Bots。GT-Bots是基于当前比较流行的IRC客户端程序mIRC编写的，GT是（Global Threat）的缩写。这类僵尸工具用脚本和其他二进制文件开启一个mIRC聊天客户端, 但会隐藏原mIRC窗口。通过执行mIRC 脚本连接到指定的服务器频道上，等待恶意命令。这类bot程序由于捆绑了mIRC程序，所以体积会比较大，往往会大于1MB。
　　按Botnet的控制方式分类
　　（1）IRC Botnet。是指控制和通信方式为利用IRC协议的Botnet，形成这类Botnet的主要bot程序有spybot、GTbot和SDbot，目前绝大多数Botnet属于这一类别。
　　（2）AOL Botnet。与IRC Bot类似，AOL为美国在线提供的一种即时通信服务，这类Botnet是依托这种即时通信服务形成的网络而建立的，被感染主机登录到固定的服务器上接收控制命令。AIM-Canbot和Fizzer就采用了AOL Instant Messager实现对Bot的控制。
　　（3）P2P Botnet。这类Botnet中使用的bot程序本身包含了P2P的客户端，可以连入采用了Gnutella技术（一种开放源码的文件共享技术）的服务器，利用WASTE文件共享协议进行相互通信。由于这种协议分布式地进行连接，就使得每一个僵尸主机可以很方便地找到其他的僵尸主机并进行通信，而当有一些bot被查杀时，并不会影响到Botnet的生存，所以这类的Botnet具有不存在单点失效但实现相对复杂的特点。Agobot和Phatbot采用了P2P的方式。
　　Botnet的危害
　　Botnet构成了一个攻击平台，利用这个平台可以有效地发起各种各样的攻击行为，可以导致整个基础信息网络或者重要应用系统瘫痪，也可以导致大量机密或个人隐私泄漏，还可以用来从事网络欺诈等其他违法犯罪活动。下面是已经发现的利用Botnet 发动的攻击行为。随着将来出现各种新的攻击类型，Botnet还可能被用来发起新的未知攻击。
　　（1）拒绝服务攻击。使用Botnet发动DDos攻击是当前最主要的威胁之一，攻击者可以向自己控制的所有bots发送指令，让它们在特定的时间同时开始连续访问特定的网络目标，从而达到DDos的目的。由于Botnet可以形成庞大规模，而且利用其进行DDos攻击可以做到更好地同步，所以在发布控制指令时，能够使得DDos的危害更大，防范更难。
　　（2）发送垃圾邮件。一些bots会设立sockv4、v5 代理，这样就可以利用Botnet发送大量的垃圾邮件，而且发送者可以很好地隐藏自身的IP信息。
　　（3）窃取秘密。Botnet的控制者可以从僵尸主机中窃取用户的各种敏感信息和其他秘密，例如个人帐号、机密数据等。同时bot程序能够使用sniffer观测感兴趣的网络数据，从而获得网络流量中的秘密。
　　（4）滥用资源。攻击者利用Botnet从事各种需要耗费网络资源的活动，从而使用户的网络性能受到影响，甚至带来经济损失。例如：种植广告软件，点击指定的网站；利用僵尸主机的资源存储大型数据和违法数据等，利用僵尸主机搭建假冒的银行网站从事网络钓鱼的非法活动。
　　可以看出，Botnet无论是对整个网络还是对用户自身，都造成了比较严重的危害，我们要采取有效的方法减少Botnet的危害。
　　

【CSDN新闻】Websense 2009六大安全预测　黑客也玩“云安全”

2009-03-07T10:15:00.001+08:00

近日，Websense 发布2009年6大安全预测。其中“云安全”技术的被滥用、Web应用和Web2.0应用等被恶意利用的几率将大幅增加。

“云安全”被恶意利用的频率将越来越高

以云计算技术为基础的服务如亚马逊的Web服务(AWS)、微软的Azure 以及GoGrid等为企业和用户提供了简单易用的基础运算、可按需租用的存储空间和大幅度的成本节省。但这些服务也引起了网络犯罪者和黑客们的高度关注，他们将利用这些技术和服务来达成其恶意目的。Websense预测：2009年，云计算技术被滥用的现象将会越来越多。该技术既可被用于简单的垃圾邮件发送，也可用来发起针对下载、数据上传统计、恶意代码监测更为高级的恶意程序攻击。

富互联网应用系统（RIAs）如Flash、Google Gears等被恶意利用的几率增大

利用基于浏览器的Web应用如基于Web的CRM系统、Google文档和其他基于Web的办公工具等越来越多的取代了传统的桌面应用程序。运用基于浏览器的Web应用来丰富互联网使用体验的程序是富互联网应用系统（RIAs）。伴随这些应用需求的爆炸式增长，使用RIA技术的Google Gears、Air、Flash和Silverlight构建了一个大型的Web2.0网络应用体系，而安全问题却是最后被考虑的，这就如同敞开大门让网络犯罪分子肆意攻击。由于RIA的迅速流行，我们可以预见在2009年将会有大规模的利用RIA核心组件和用户创建的服务来发起的攻击，这些攻击将使黑客们能够远程操控用户的电脑。

黑客们将充分利用可编写Web发动攻击

Web2.0应用是一个开放了网络应用程序接口、mashups、小工具的开放世界，允许共享、使用来自其他网站的功能。搜索引擎Web API服务的发行以破纪录的速度发布而几乎没有什么时间来进行测试，而这种应用需要用户间达到一定的信赖水平方可。因此Websense认为在2009 年，利用Web API服务来获得信任、窃取用户的资格证书或机密信息的恶意攻击将会增加。

Web垃圾和向blog、论坛和社交性网站发送的恶意内容将会大幅度增加

那些允许用户进行内容编辑的网站越来越流行，数量也将出现飞跃增长，而这些网站很有可能导致Web垃圾和和向blog、论坛和社交性网站发送的恶意内容的大幅度增加，这些内容包括搜索引擎麻痹、恶意引诱传播和网络欺诈等。此外，这些威胁和攻击将被数种新的 Web攻击工具所整合，使黑客们可以发现那些存在漏洞或者允许发布恶意代码的网站。越来越多的基础设施特许承包商会在其提供的功能中增加HTTP发布功能。

黑客们将转向分布式僵尸网络控制和恶意代码托管模式

2008年Websense发现两家总部位于加利福尼亚州的托管公司McCololo和Intercage/Atrivo就由于发布僵尸网络和恶意代码被上游供应商关闭。Mcolor倒闭的当天垃圾邮件减少了50%，而Intercage/Atrivo倒闭的当天大大减轻了“风暴”僵尸网络的蔓延。Websense预测：由于这些僵尸集团仅拥有少数几家供应商来托管其C&C服务，他们会将其服务器分布到各处，同时转移至国外服务器供应商，使其更难被上游供应商、网络监管部门和执法部门所发现和关闭。

对于具有“良好声誉”网站的攻击将会持续

2009年，我们将看到有80%以上的恶意内容会以那些拥有“良好声誉”的网站为载体。会有更多的著名网站和Alexa排名前10万的网站遭受恶意攻击。这些攻击既包括对于当地著名网站某些特定频道的攻击，也包括对流行的体育网站、新闻网的攻击以及向这些网站中持续植入IFRAME、恶意重定向代码。

大唐软件技术经理陈建慧《如何做好开发团队负责人---管别人先管好自已，请从做一名合格程序员开始》

2009-03-05T19:11:00.001+08:00

开发经理(开发组长)开发经理是团队中的大师那就该是整个团队工作中的榜样，无论是工作效率、态度、分析设计水平、业务知识、技术能力各方面都要努力让自己成为团队成员榜样。

开发经理除了安排好目前工作之外还需要主动学习，不断提高自己的业务和技术水平。很多人会说很忙没有时间，那就要求开发经理要比别人付出更多的努力，因为开发经理拿的工资比别人高，就应该付出更多，为公司创造更高的价值。如果我是老板的话，我给你涨了工资，不仅仅是对你以前工作的肯定，但更重要的是期待你以后能有更高的产出，所以从开发人员变为开发经理之后就得更加努力有更高产出。
关键问题和核心代码一定要尽可能亲自动手。通过解决关键问题，可以在团队成员心中树立自已的形象和权威，减少经后工作量估算的误差，同时也减少团队成员变动引起的风险，开发经理要能够随时胜任为团队中任何人的替补。具统计优秀的开源软件代码的开发人员70%以上是30多岁的人，我们的开发经理大多数都比这个年纪要小，一个优秀的程序员至少需要十年以上才可能练成。如果现在就不动手，就只会管几个人，我觉得对公司来说都是一种资源的浪费，对个人来说是失去成长的机会。现在整行业的人都很浮躁的重要原因是大多数程序员都高估了自已的能力水平，降低了对自已的要求标准，很多人工作多年，连一个合格的程序员都算不上，更不要说优秀程序员。千万不能认为编码是一种低级劳动，一定要纠正这种错误思想，很多大师级的人物都在写代码，更何况自已只是一个不合格的程序员。
安排工作方面，先紧后松原则，做事情一定要先紧，安排工作也要先紧，要给自已和团队成员犯错误和解决风险的时间，留充分的余量。安排任务要给团队成员压力，要以自已完成任务的标准去要求下属。
总结自已和优秀成员的胜任特征，并复制给其它团队成员。复制的是胜任工作所需要的能力，做事情和思考问题的方法，不是只告诉他如何做某件具体事情。
及时检查团队成员的输出成果，通过对成员输出的检查及时了解成员的特点和能力水平，及时指出不足。以便经后能够按人员能力特点给其安排工作任务。指出成员的不足，是对他个人负责。

积极思想往下传，消极思想往上传，消极的思想和问题只能向上级领导反映，不要在下级面前表露出来，带给下级的永远是正面积极的思想。给团队成员灌输正面思想多抓住平常的机会，不能只等到面对面谈话时再来谈大道理，这个时侯讲的大道理大多数人都很难接受。多站在为对方着想的角度去灌输正面思想，不要总像个领导在下达命令。

swetter点评：不少经典部分。我相信所有优秀的人才都是以自己的努力钻研为背景的，而不是靠着某些别人称之为天赋的东西。

【转】如何修炼成技术专家

2009-03-05T19:06:00.002+08:00

1、选择适合自己的发展通道，走对路（附图）
-技术专家
-架构师
-技术经理

2、勤用外功，成长更快、更高（附图）
-再往前走走：更多一点点、更好一点点
-来倒立想想：换角度思考
-常回头看看：总结、对比

3、修炼内功，保持向上发展的内在动力（附图）
-初级阶段：Stay Hungry

-高级阶段：Stay Foolish

算法

2009-03-05T15:10:00.001+08:00

对非计算机专业的程序员来说

算法是一道硬伤

还有某些细节问题。。

【转自CSDN】软件开发10大经典致命错误

2009-03-04T19:57:00.001+08:00

【CSDN 3月2日编译】在Steve McConnell（McConnell是Construx软件公司的CEO和首席软件工程师。）的新书《快速开发：驯服疯狂的软件进度》中，作者将很多人经常会犯的错误命名为“经典错误”，这些错误本可以避免并提早预见由这些错误所产生的后果。

为了确定常见的软件开发错误出现的频率和严重程度，Construx软件开发白皮书的作者调查了500个软件从业人员。认定了42个经典的软件开发错误，下面的10个被认为是最有破坏性、最致命的：

1. 不切实际的期望；
2. 过于乐观的进度表；
3. 违背质量保证；
4. 一厢情愿；
5. 目标不清；
6. 过多的并发任务；
7. 特征发生变化；
8. 吵闹纷杂的办公室；
9. 在压力下放弃计划；
10. 风险管理不足

其它32个经典错误涉及：在项目进行中转换开发工具，开发人员外出镀金，开发人员和客户之间有摩擦等。

原文：

10 most damaging classic software development mistakes

In Steve McConnell’s book Rapid Development: Taming Wild Software Schedules, he defines “classic mistakes” as mistakes that have been made so often, by so many people, that the consequences of making these mistakes should be predictable and the mistakes should be avoidable. McConnell is CEO and Chief Software Engineer at Construx Software.

To determine the frequency and severity of common software development mistakes, the authors of this Construx Software Builders white paper surveyed 500 software practitioners. Of the 42 classic software development mistakes identified, these 10 mistakes are reported to be the most damaging:
Unrealistic expectations
Overly optimistic schedules
Shortchanged quality assurance
Wishful thinking
Confusing estimates with targets
Excessive multi-tasking
Feature creep
Noisy, crowded offices
Abandoning planning under pressure
Insufficient risk management

Several of the other 32 classic mistakes identified are: switching development tools in the middle of a project, developer gold plating, and friction between developers and customers.

完美程序（JDBC示范程序）

2009-02-20T18:06:00.003+08:00

/** 注意：良好的编程习惯是尽量的写try-catch-finally

* 而不是一味的throws Exception

* 否则如果在一个大的方法体上写throws Exception，内部出现Exception时

* 有可能导致程序停滞直到耗尽内存。

import java.sql.*;

public class TestJDBC {

public static void main(String[] args) {

ResultSet rs = null;

Statement stmt = null;

Connection conn = null;

try {//良好的编程习惯是尽量写try-catch-finally

Class.forName("oracle.jdbc.driver.OracleDriver");

//new oracle.jdbc.driver.OracleDriver();

conn = DriverManager.getConnection("jdbc:oracle:thin:@192.168.0.1:1521:SXT", "scott", "tiger");

stmt = conn.createStatement();

rs = stmt.executeQuery("select * from dept");

while(rs.next()) {

System.out.println(rs.getString("deptno"));

System.out.println(rs.getInt("deptno"));

}

} catch (ClassNotFoundException e) {

e.printStackTrace();

} catch (SQLException e) {

e.printStackTrace();

} finally {

try {

if(rs != null) {//在JDBC关闭过程中仍然有关闭异常需要捕捉

rs.close(); //首先判断某对象已被成功初始化，即!=null，然后关闭

rs = null; //关闭后还需要将其设置回初始化的null值

}

if(stmt != null) {

stmt.close();

stmt = null;

}

if(conn != null) {

conn.close();

conn = null;

}

} catch (SQLException e) {

e.printStackTrace();

}

正则表达式(Regular Expression)测试程序【续】

2009-02-17T14:50:00.002+08:00

/**正则表达式的分组
   * group
   */
/*
   Pattern p = Pattern.compile("(\\d{3,5})([a-z]{2})");//分组，使用()，此处把数字和字母分组。一共有3组，正则表达式本身就是一组
   String s = "123aa-34345bb-234cc-00";
   Matcher m = p.matcher(s);
   while(m.find()) {
   p(m.group(1));//group,内容为正则表达式所匹配的字符串，组号即第n个左小括号,输入第几组就打印选中的那个组的内容
   //m.group()则直接打印所有组内容
   }
*/

/** Reluctant quantifiers限定词勉强限定词
   * ?? 一个或没有
   *? 零个或更多
   * +? 一个或更多
   * {n}? 正好n个
   * {n,}? 至少n个
   * {n,m}? 至少n最多m
*/
/**Possesive quantifiers独占性限定词
   * ?+ 意义同上
   *+ Greedy,Reluctant,Possessive这三种quantifiers区别：它们都是匹配到了就停止
   * ++ Greedy，看到{n,m}就直接吞入m个字符，再与正则表达式匹配，匹配不上则往外吐一个再匹配
   * {n}+ Reluctant，看到{n,m}就吞入n个字符，再匹配，匹配不上则再吞一个字符
   * {n,}+ Possesive，独占的，与Greedy类似，一次吞m个，只是不往外吐
   * {n,m}+
*/
/*
   Pattern p = Pattern.compile(".{3,10}+[0-9]");
   String s = "aaaa5bbbb68";
   Matcher m = p.matcher(s);
   if(m.find())
   p(m.start() + "-" + m.end());
   else
   p("not match!");
*/

正则表达式(Regular Expression)测试程序

2009-02-17T03:19:00.003+08:00

import java.util.regex.Matcher;
import java.util.regex.Pattern;

public class RegExp {
  public static void main(String[] args) {
  /* p("abc".matches("..."));//可以匹配，一个点代表一个字符
   p("a8729a".replaceAll("\\d", "-"));//把数字全替换为横线,\\d代表一位数字
   Pattern p = Pattern.compile("[a-z]{3}");//匹配三个字符，每个都是a-z
   Matcher m = p.matcher("fgh");
   p(m.matches());*/
   // p("fgh".matches("[a-z]{3}"));//上边三句可合并为这一句

  /**Greedy quantifiers 贪婪限定符，默认
   * 初步认识 . * + ?即meta characters
   * . 一个字符
   * ? 一个或零个
   * * 零个或多个
   * + 一个或多个
   * [n] 正好n个
   * [n,]最少n个
   * [n,m]至少n个最多m个
   */
   /* p("a".matches("."));
   p("aaaa".matches("a*"));
   p("aaaa".matches("a+"));
   p("aaaa".matches("a?"));
   p("".matches("a*"));//零宽度匹配 zero length matches。空串匹配
   p("".matches("a?"));
   p("".matches("a+"));
   p("1231231425346234".matches("\\d{3,100}"));//至少3个之多100个，且都是数字
   p("192.168.0.aaa".matches("\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}"));
   p("192".matches("[0-2][0-9][0-9]"));//一个中括号内是匹配一个字符
   */

   /**
   * ^取反
   * -代表范围
   * |代表或者
   * &&代表并且
   */
   /* p("a".matches("[abc]"));
   p("a".matches("[^abc]"));
   p("A".matches("[a-zA-Z]"));
   p("A".matches("[a-z]|[A-Z]"));
   p("A".matches("[a-z[A-Z]]"));//或的另一个写法
   p("R".matches("[A-Z&&[RFG]]"));//交集，取A-Z与RFG集合交集的部分，其实就是RFG
   */

   /**
   *\d digit
   *\D non-digit
   *\s a whitespace character:如[ \t\n\x0B\f\r] 不可见的符号
   *\S a non-whitespace character
   *\w a word character: [a-zA-Z_0-9]包括下划线
   *\W a non-word character
   */
   /*p(" \n\r\t".matches("\\s{4}"));
   p(" ".matches("\\S"));
   p("a_8".matches("\\w{3}"));
   p("abc888&^%".matches("[a-z]{1,3}\\d+[&^#%]+"));
   p("\\".matches("\\\\"));//匹配一个\必须用两个\\
   */

   /**
   * POSIX Style
   * POSIX (Portable Operating System Interface based on uniX)
   * 以 unix 操作系统为基础的可携带操作系统界面
   * 以 unix 操作系统为基础的操作系统标准
   */
   /*p("a".matches("\\p{Lower}"));//很少这样写，不推荐
   */

   /**
   * boundary 边界匹配
   * ^位于中括号里代表取反，在中括号外代表一行的起始位置
   * $结尾
   * \b word boundary
   * \B non-word boundary
   */
   /*p("hello sir".matches("^h.*"));
   p("hello sir".matches(".*ir$"));
   p("hello sir".matches("^h[a-z]{1,3}o\\b.*"));
   p("hellosir".matches("^h[a-z]{1,3}o\\b.*"));

   */

   /**whilte lines 空白行
   * 此处空白行代表有空格的行。行开头就是换行符的不算作本例的空白行
   */

   /*p(" \n".matches("^[\\s【开头是空白字符】&&[^\\n]]【并且不是换行符】*\\n$【末尾跟着换行符】"));
   // " \n"即一个空白行
   */
}

  public static void p(Object o) {
   System.out.println(o);
  }
}

25则爱情语录

2009-02-16T10:19:00.001+08:00

1.一个人总要走陌生的路，看陌生的风景，听陌生的歌，然后在某个不经意的瞬间，你会发现，原本是费尽心机想要忘记的事情真的就那么忘记了。
1.One is always on a strange road, watching strange scenery and listeningto strange music. Then one day, you will find that the things you tryhard to forget are already gone. 　　
2.幸福，不是长生不老，不是大鱼大肉，不是权倾朝野。幸福是每一个微小的生活愿望达成。当你想吃的时候有得吃，想被爱的时候有人来爱你。
2.Happiness is not about being immortal nor having food or rights inone's hand. It’s about having each tiny wish come true, or havingsomething to eat when you are hungry or having someone's love when youneed love. 　　
3.爱情是灯，友情是影子，当灯灭了，你会发现你的周围都是影子。朋友，是在最后可以给你力量的人。
3.Love is a lamp, while friendship is the shadow. When the lamp is off,you will find the shadow everywhere. Friend is who can give youstrength at last. 　　
4.我爱你不是因为你是谁，而是我在你面前可以是谁。
4.I love you not for who you are, but for who I am before you.
5.爱情，要么让人成熟，要么让人堕落。
5.Love makes man grow up or sink down. 　　
6.举得起放得下的叫举重，举得起放不下的叫负重。可惜，大多数人的爱情，都是负重的。
6.If you can hold something up and put it down, it is calledweight-lifting; if you can hold something up but can never put it down,it's called burden-bearing. Pitifully, most of people are bearing heavyburdens when they are in love. 　
7．我们每个人都生活在各自的过去中，人们会用一分钟的时间去认识一个人，用一小时的时间去喜欢一个人，再用一天的时间去爱上一个人，到最后呢，却要用一辈子的时间去忘记一个人。
7.We all live in the past. We take a minute to know someone, one hour tolike someone, and one day to love someone, but the whole life to forgetsomeone.
8．一个人一生可以爱上很多的人，等你获得真正属于你的幸福之后，你就会明白一起的伤痛其实是一种财富，它让你学会更好地去把握和珍惜你爱的人。
8.One may fall in love with many people during the lifetime. When youfinally get your own happiness, you will understand the previoussadness is kind of treasure, which makes you better to hold and cherishthe people you love. 　　
9．年轻的时候会想要谈很多次恋爱，但是随着年龄的增长，终于领悟到爱一个人，就算用一辈子的时间，还是会嫌不够。慢慢地去了解这个人，体谅这个人，直到爱上为止，是需要有非常宽大的胸襟才行。
9.When you are young, you may want several love experiences. But as timegoes on, you will realize that if you really love someone, the wholelife will not be enough. You need time to know, to forgive and to love.All this needs a very big mind.
10．当明天变成了今天成为了昨天，最后成为记忆里不再重要的某一天，我们突然发现自己在不知不觉中已被时间推着向前走，这不是静止火车里，与相邻列车交错时，仿佛自己在前进的错觉，而是我们真实的在成长，在这件事里成了另一个自己。
10.When tomorrow turns in today, yesterday, and someday that no moreimportant in your memory, we suddenly realize that we r pushed forwardby time. This is not a train in still in which you may feel forwardwhen another train goes by. It is the truth that we've all grown up.And we become different. 　
11．离开我就别安慰我，要知道每一次缝补也会遭遇穿刺的痛。
11.If you leave me, please don't comfort me because each sewing has to meet stinging pain. 　　
12．曾经拥有的，不要忘记。不能得到的，更要珍惜。属于自己的，不要放弃。已经失去的，留作回忆。
12.Don’t forget the things you once you owned. Treasure the things youcan’t get. Don't give up the things that belong to you and keep thoselost things in memory. 　　
13．我喜欢并习惯了对变化的东西保持着距离，这样才会知道什么是最不会被时间抛弃的准则。比如爱一个人，充满变数，我于是后退一步，静静的看着，直到看见真诚的感情。
13.I love and am used to keeping a distance with those changed things.Only in this way can I know what will not be abandoned by time. Forexample, when you love someone, changes are all around. Then I stepbackward and watching it silently, then I see the true feelings.
14．男人的爱是俯视而生，而女人的爱是仰视而生。如果爱情像座山，那么男人越往上走可以俯视的女人就越多，而女人越往上走可以仰视的男人就越少。
14.Men love from overlooking while women love from looking up. If love isa mountain, then if men go up, more women they will see while womenwill see fewer men.　　
15．好的爱情是你通过一个人看到整个世界，坏的爱情是你为了一个人舍弃世界。
15.Good love makes you see the whole world from one person while bad love makes you abandon the whole world for one person.　
16．在自己面前，应该一直留有一个地方，独自留在那里。然后去爱。不知道是什么，不知道是谁，不知道如何去爱，也不知道可以爱多久。只是等待一次爱情，也许永远都没有人。可是，这种等待，就是爱情本身。
16.We shall always save a place for ourselves, only for ourselves. Andthen begin to love. Have no idea of what it is, who he is, how to loveor how long it will be. Just wait for one love. Maybe no one will comeout, but this kind of waiting is the love itself.　　
17．有谁不曾为那暗恋而痛苦？我们总以为那份痴情很重，很重，是世上最重的重量。有一天，暮然回首，我们才发现，它一直都是很轻，很轻的。我们以为爱的很深，很深，来日岁月，会让你知道，它不过很浅，很浅。最深和最重的爱，必须和时日一起成长。
17.Is there anyone who hasn't suffered for the secret love? We alwaysthink that love is very heavy, heavy and could be the heaviest thing inthe world. But one day, when you look back, you suddenly realize thatit's always light, light. We all thought love was very deep, but infact it's very thin. The deepest and heaviest love must grow up withthe time. 　　
18．在这个世界上，只有真正快乐的男人，才能带给女人真正的快乐。
18.In this world, only those men who really feel happy can give women happiness
19．女人如果不性感，就要感性；如果没有感性，就要理性；如果没有理性，就要有自知之明；如果连这个都没有了，她只有不幸。
19.If a woman is not sexy, she needs emotion; if she is not emotional, sheneeds reason; if she is not reasonable, she has to know herselfclearly. coz only she has is misfortune.
20．一段不被接受的爱情，需要的不是伤心，而是时间，一段可以用来遗忘的时间。一颗被深深伤了的心，需要的不是同情，而是明白。
21.An unacceptable love needs no sorrow but time- sometime for forgetting.A badly-hurt heart needs no sympathy but understanding.　　
22．我知道这世上有人在等我，但我不知道我在等谁，为了这个，我每天都非常快乐。
22. I know someone in the world is waiting for me, although I've no idea of who he is. But I feel happy every day for this. 　
23．一生至少该有一次，为了某个人而忘了自己，不求有结果，不求同行，不求曾经拥有，甚至不求你爱我。只求在我最美的年华里，遇到你。
23.In your life, there will at least one time that you forget yourself forsomeone, asking for no result, no company, no ownership nor love. Justask for meeting you in my most beautiful years. 　
24．我不觉得人的心智成熟是越来越宽容涵盖，什么都可以接受。相反，我觉得那应该是一个逐渐剔除的过程，知道自己最重要的是什么，知道不重要的东西是什么。而后，做一个纯简的人。
24.Idon't think that when people grow up, they will become morebroad-minded and can accept everything. Conversely, I think it's aselecting process, knowing what's the most important and what's theleast. And then be a simple man.　　
25．当你的心真的在痛，眼泪快要流下来的时候，那就赶快抬头看看，这片曾经属于我们的天空；当天依旧是那么的广阔，云依旧那么的潇洒，那就不应该哭，因为我的离去，并没有带走你的世界。
25.When you feel hurt and your tears are gonna to drop. Please look up andhave a look at the sky once belongs to us. If the sky is still vast,clouds are still clear, you shall not cry because my leave doesn't takeaway the world that belongs to you.

嵌入式SQL编程的编译过程

2009-01-05T23:07:00.000+08:00

嵌入式SQL程序中包含SQL语句和编程语言语句，所以它不能直接提交给编程语言的编译程序，而是要通过多级的代理
所有支持嵌入式SQL的产品都有以下类似的处理过程
1：嵌入式SQL源程序提交给SQL预编译程序。它扫描整个程序，找到嵌入的SQL语句并处理他们
2：预编译程序输出两个文件，第一个是玻璃了嵌入的SQL语句的源程序。在嵌入的SQL语句的位置由预编译程序替换成对专用DBMS程序段的调用。这些程序段提供了程序和DBMS之间运行时的连接。第二个文件是程序中所有嵌入SQL语句的复制品，即数据库存取模块DBRM(database request module)
3：从预编译程序输出的源文件交给宿主编程语言的标准编译程序，处理后生成对象代码作为输出结果。注意这一部并没有利用DBMS或SQL做什么
4：连接器linker接收编译程序生成的目标模块，将模块与各种库程序段连接在一起，并生成一个可执行程序。参与生成可执行程序的库程序段包括在第2步中描述的专用DBMS程序段
5:预编译程序对所生成的数据库存取模块提交给一个特殊的BIND程序。这个程序检查SQL语句，对他们进行解析，验证和优化。并为每条语句生成一个应用计划。这样的结果是得到整个程序的组合应用计划，他是嵌入式SQL语句的DBMS可执行版本。BIND程序在数据库中存储该计划，通常以创建计划的应用程序名字为它命名

嵌入式SQL技术原理

2009-01-04T22:56:00.000+08:00

嵌入式SQL技术使用下列技术嵌入SQL语句
1:SQL语句与宿主语言的语句在源程序中混合，这种嵌入式SQL源程序提交给SQL预编译程序，这个程序可以处理SQL语句
2：宿主编程语言的变量可以引用到嵌入式SQL语句中，这样允许SQL语句使用由程序计算得到的树枝
3：嵌入式SQL语句使用程序语言变量得到SQL查询结果。这样允许程序处理检索的树枝
4：有些特殊的程序标量用于为数据库字段分配NULL值，并支持对数据库中NULL值的检索
5：集中嵌入式SQL独有的SQL语句被添加到交互式SQL语言中，它们可以对擦和讯结果按记录进行处理

缺点：
1：程序源代码变为两种不同语言的混合物。
2：它是偶那个不再交互SQL中使用的SQL语言，如WHENEVER和INTO等

使用SQL编程

2009-01-04T22:51:00.000+08:00

SQL数据库提供商为在应用程序中使用SQL提供了两项基本技术
1：嵌入式SQL SQL语句直接嵌入在程序源代码中，与其他编程语句混合使用
一个特殊的SQL预编译程序接收组合在一起的源代码然后借助于其他编程工

具，将其转化为可执行程序
2：应用程序接口程序与DBMS进行通信，通过一系列的应用程序接口或API

函数调用进行通信。程序通过API调用传递SQL语句给DBMS，并使用API调用

检索查询结果。这种方法不需要特殊的预编译程序

DBMS语句处理
为了处理一条SQL语句，DBMS必须按5个步骤执行
1：DBMS从解析SQL语句开始。它将语句分解为单独的词，并确认该语句包含有效的动词，合法的子句等成分。在这一步中可以检测出语句中的语法错误和拼写错误
2：DBMS验证语句。用于和系统目录相反的顺序检查语句，可以检测出予以错误
3：DBMS优化语句。它用各种方法执行语句。研究了所有可选方案后，DBMS将选择合适的答案。
4：DBMS为语句生成应用计划，这个应用计划是一个二进制数，它代表执行计划所需步骤，它是DBMS可执行代码的等价物
5：最后DBMS执行应用计划实现语句

【典藏】Java学习之路

2008-12-19T19:17:00.000+08:00

Java学习之路：不走弯路，就是捷径

在ChinaITLAB导师制辅导中，笔者发现问得最多的问题莫过于"如何学习编程？Java该如何学习？"。类似的问题回答多了，难免会感觉厌烦，就萌生了写下本文的想法。到时候再有人问起类似的问题，我可以告诉他（她），请你去看看《Java学习之路》。拜读过台湾蔡学镛先生的《Java夜未眠》，有些文章如《Java学习之道》等让我们确实有共鸣，本文题目也由此而来。软件开发之路是充满荆棘与挑战之路,也是充满希望之路。Java学习也是如此，没有捷径可走。梦想像《天龙八部》中虚竹一样被无崖子醍醐灌顶而轻松获得一甲子功力，是很不现实的。每天仰天大叫"天神啊，请赐给我一本葵花宝典吧"，殊不知即使你获得了葵花宝典，除了受自宫其身之苦外，你也不一定成得了"东方不败"，倒是成"西方失败"的几率高一点。 "不走弯路，就是捷径"，佛经说的不无道理。

1．如何学习程序设计？ Java是一种平台，也是一种程序设计语言，如何学好程序设计不仅仅适用于Java，对C++等其他程序设计语言也一样管用。有编程高手认为，Java也好C也好没什么分别，拿来就用。为什么他们能达到如此境界？我想是因为编程语言之间有共通之处，领会了编程的精髓，自然能够做到一通百通。如何学习程序设计理所当然也有许多共通的地方。

1.1　培养兴趣兴趣是能够让你坚持下去的动力。如果只是把写程序作为谋生的手段的话，你会活的很累，也太对不起自己了。多关心一些行业趣事，多想想盖茨。不是提倡天天做白日梦，但人要是没有了梦想，你觉得有味道吗？可能像许多深圳本地农民一样，打打麻将，喝喝功夫茶，拜拜财神爷；每个月就有几万十几万甚至更多的进帐，凭空多出个"食利阶层"。你认为，这样有味道吗？有空多到一些程序员论坛转转，你会发现，他们其实很乐观幽默，时不时会冒出智慧的火花。

1.2　慎选程序设计语言男怕入错行，女怕嫁错郎。初学者选择程序设计语言需要谨慎对待。软件开发不仅仅是掌握一门编程语言了事，它还需要其他很多方面的背景知识。软件开发也不仅仅局限于某几个领域，而是已经渗透到了各行各业几乎每一个角落。如果你对硬件比较感兴趣，你可以学习C语言/汇编语言，进入硬件开发领域。如果你对电信的行业知识及网络比较熟悉，你可以在C/C++等之上多花时间，以期进入电信软件开发领域。如果你对操作系统比较熟悉，你可以学习C/Linux等等,为Linux内核开发/驱动程序开发/嵌入式开发打基础。如果你想介入到应用范围最广泛的应用软件开发（包括电子商务电子政务系统）的话，你可以选择J2EE或.NET，甚至LAMP组合。每个领域要求的背景知识不一样。做应用软件需要对数据库等很熟悉。总之，你需要根据自己的特点来选择合适你的编程语言。

1.3　要脚踏实地,快餐式的学习不可取先分享一个故事。有一个小朋友，他很喜欢研究生物学，很想知道那些蝴蝶如何从蛹壳里出来，变成蝴蝶便会飞。有一次，他走到草原上面看见一个蛹，便取了回家，然后看着，过了几天以后，这个蛹出了一条裂痕，看见里面的蝴蝶开始挣扎，想抓破蛹壳飞出来。这个过程达数小时之久，蝴蝶在蛹里面很辛苦地拼命挣扎，怎么也没法子走出来。这个小孩看着看着不忍心，就想不如让我帮帮它吧，便随手拿起剪刀在蛹上剪开，使蝴蝶破蛹而出。但蝴蝶出来以后，因为翅膀不够力，变得很臃肿，飞不起来。这个故事给我们的启示是：欲速则不达。浮躁是现代人最普遍的心态，能怪谁？也许是贫穷落后了这么多年的缘故，就像当年的大跃进一样，都想大步跨入共产主义社会。现在的软件公司、客户、政府、学校、培训机构等等到处弥漫着浮躁之气。就拿笔者比较熟悉的深圳IT培训行业来说吧，居然有的打广告宣称"参加培训，100%就业"，居然报名的学生不少，简直是藐视天下程序员。社会环境如是，我们不能改变，只能改变自己,闹市中的安宁，弥足珍贵。许多初学者C++/Java没开始学，立马使用VC/JBuilder,会使用VC/JBuilder开发一个Hello World程序，就忙不迭的向世界宣告，"我会软件开发了"，简历上也大言不惭地写上"精通VC/Java"。结果到软件公司面试时要么被三两下打发走了，要么被驳的体无完肤，无地自容。到处碰壁之后才知道捧起《C++编程思想》《Java编程思想》仔细钻研，早知如此何必当初呀。 "你现在讲究简单方便，你以后的路就长了"，好象也是佛经中的劝戒。

1.4　多实践,快实践彭端淑的《为学一首示子侄》中有穷和尚与富和尚的故事。从前，四川边境有两个和尚，一个贫穷，一个有钱。一天，穷和尚对富和尚说："我打算去南海朝圣，你看怎么样？"富和尚说："这里离南海有几千里远，你靠什么去呢？"穷和尚说："我只要一个水钵，一个饭碗就够了。"富和尚为难地说："几年前我就打算买条船去南海，可至今没去成，你还是别去吧！" 一年以后，富和尚还在为租赁船只筹钱，穷和尚却已经从南海朝圣回来了。这个故事可解读为：任何事情，一旦考虑好了，就要马上上路，不要等到准备周全之后，再去干事情。假如事情准备考虑周全了再上路的话，别人恐怕捷足先登了。软件开发是一门工程学科，注重的就是实践，"君子动口不动手"对软件开发人员来讲根本就是错误的，他们提倡"动手至上"，但别害怕，他们大多温文尔雅，没有暴力倾向，虽然有时候蓬头垢面的一副"比尔盖茨"样。有前辈高人认为，学习编程的秘诀是：编程、编程、再编程，笔者深表赞同。不仅要多实践，而且要快实践。我们在看书的时候，不要等到你完全理解了才动手敲代码，而是应该在看书的同时敲代码，程序运行的各种情况可以让你更快更牢固的掌握知识点。

1.5　多参考程序代码程序代码是软件开发最重要的成果之一，其中渗透了程序员的思想与灵魂。许多人被《仙剑奇侠传》中凄美的爱情故事感动,悲剧的结局更有一种缺憾美。为什么要以悲剧结尾？据说是因为写《仙剑奇侠传》的程序员失恋而安排了这样的结局，他把自己的感觉融入到游戏中，却让众多的仙剑迷扼腕叹息。多多参考代码例子，对Java而言有参考文献[4.3],有API类的源代码(JDK安装目录下的src.zip文件)，也可以研究一些开源的软件或框架。

1.6　加强英文阅读能力对学习编程来说，不要求英语, 但不能一点不会,。最起码像Java API文档(参考文献[4.4])这些东西还是要能看懂的,连猜带懵都可以；旁边再开启一个"金山词霸"。看多了就会越来越熟练。在学Java的同时学习英文，一箭双雕多好。另外好多软件需要到英文网站下载，你要能够找到它们，这些是最基本的要求。英语好对你学习有很大的帮助。口语好的话更有机会进入管理层，进而可以成为剥削程序员的"周扒皮"。

1.7　万不得已才请教别人笔者在ChinaITLab网校的在线辅导系统中解决学生问题时发现，大部分的问题学生稍做思考就可以解决。请教别人之前，你应该先回答如下几个问题。你是否在google中搜索了问题的解决办法？你是否查看了Java API文档？你是否查找过相关书籍？你是否写代码测试过？如果回答都是"是"的话，而且还没有找到解决办法，再问别人不迟。要知道独立思考的能力对你很重要。要知道程序员的时间是很宝贵的。

1.8　多读好书书中自有颜如玉。比尔?盖茨是一个饱读群书的人。虽然没有读完大学，但九岁的时候比尔?盖茨就已经读完了所有的百科全书，所以他精通天文、历史、地理等等各类学科，可以说比尔?盖茨不仅是当今世界上金钱的首富，而且也可以称得上是知识的巨富。笔者在给学生上课的时候经常会给他们推荐书籍，到后来学生实在忍无可忍开始抱怨，"天呐，这么多书到什么时候才能看完了"，"学软件开发，感觉上了贼船"。这时候，我的回答一般是，"别着急，什么时候带你们去看看我的书房，到现在每月花在技术书籍上的钱400元，这在软件开发人员之中还只能够算是中等的"，学生当场晕倒。（注：这一部分学生是刚学软件开发的）对于在Java开发领域的好书在笔者另外一篇文章中会专门点评。该文章可作为本文的姊妹篇。 .9　使用合适的工具工欲善其事必先利其器。软件开发包含各种各样的活动，需求收集分析、建立用例模型、建立分析设计模型、编程实现、调试程序、自动化测试、持续集成等等，没有工具帮忙可以说是寸步难行。工具可以提高开发效率，使软件的质量更高BUG更少。组合称手的武器。到飞花摘叶皆可伤人的境界就很高了，无招胜有招，手中无剑心中有剑这样的境界几乎不可企及。在笔者另外一篇文章中会专门阐述如何选择合适的工具（该文章也可作为本文的姊妹篇）。

2．软件开发学习路线两千多年的儒家思想孔孟之道，中庸的思想透入骨髓，既不冒进也不保守并非中庸之道，而是找寻学习软件开发的正确路线与规律。从软件开发人员的生涯规划来讲，我们可以大致分为三个阶段，软件工程师→软件设计师→架构设计师或项目管理师。不想当元帅的士兵不是好士兵，不想当架构设计师或项目管理师的程序员也不是好的程序员。我们应该努力往上走。让我们先整理一下开发应用软件需要学习的主要技术。
A．基础理论知识，如操作系统、编译原理、数据结构与算法、计算机原理等，它们并非不重要。如不想成为计算机科学家的话，可以采取"用到的时候再来学"的原则。
B．一门编程语言，现在基本上都是面向对象的语言，Java/C++/C#等等。如果做WEB开发的话还要学习HTML/JavaScript等等。
C．一种方法学或者说思想，现在基本都是面向对象思想（OOA/OOD/设计模式）。由此而衍生的基于组件开发CBD/面向方面编程AOP等等。
D．一种关系型数据库，ORACLE/SqlServer/DB2/MySQL等等
E．一种提高生产率的IDE集成开发环境JBuilder/Eclipse/VS.NET等。
F．一种UML建模工具，用ROSE/VISIO/钢笔进行建模。
G．一种软件过程，RUP/XP/CMM等等，通过软件过程来组织软件开发的众多活动，使开发流程专业化规范化。当然还有其他的一些软件工程知识。
H．项目管理、体系结构、框架知识。正确的路线应该是：B→C→E→F→G→H。
还需要补充几点：
1）．对于A与C要补充的是，我们应该在实践中逐步领悟编程理论与编程思想。新技术虽然不断涌现，更新速度令人眼花燎乱雾里看花；但万变不离其宗，编程理论与编程思想的变化却很慢。掌握了编程理论与编程思想你就会有拨云见日之感。面向对象的思想在目前来讲是相当关键的，是强势技术之一，在上面需要多投入时间，给你的回报也会让你惊喜。
2）．对于数据库来说是独立学习的，这个时机就由你来决定吧。
3）．编程语言作为学习软件开发的主线，而其余的作为辅线。
4）．软件工程师着重于B、C、E、D；软件设计师着重于B、C、E、D、F；架构设计师着重于C、F、H。

3．如何学习Java?
3.1 Java学习路线
3.1.1 基础语法及Java原理基础语法和Java原理是地基，地基不牢靠，犹如沙地上建摩天大厦，是相当危险的。学习Java也是如此，必须要有扎实的基础，你才能在J2EE、J2ME领域游刃有余。参加SCJP（SUN公司认证的Java程序员）考试不失为一个好方法，原因之一是为了对得起你交的1200大洋考试费，你会更努力学习，原因之二是SCJP考试能够让你把基础打得很牢靠，它要求你跟JDK一样熟悉Java基础知识；但是你千万不要认为考过了SCJP就有多了不起，就能够获得软件公司的青睐，就能够获取高薪，这样的想法也是很危险的。获得"真正"的SCJP只能证明你的基础还过得去，但离实际开发还有很长的一段路要走

3.1.2 OO思想的领悟掌握了基础语法和Java程序运行原理后，我们就可以用Java语言实现面向对象的思想了。面向对象，是一种方法学;是独立于语言之外的编程思想;是CBD基于组件开发的基础;属于强势技术之一。当以后因工作需要转到别的面向对象语言的时候，你会感到特别的熟悉亲切，学起来像喝凉水这么简单。使用面向对象的思想进行开发的基本过程是： ●调查收集需求。 ●建立用例模型。 ●从用例模型中识别分析类及类与类之间的静态动态关系，从而建立分析模型。 ●细化分析模型到设计模型。 ●用具体的技术去实现。 ●测试、部署、总结。

3.1.3 基本API的学习进行软件开发的时候，并不是什么功能都需要我们去实现，也就是经典名言所说的"不需要重新发明轮子"。我们可以利用现成的类、组件、框架来搭建我们的应用，如SUN公司编写好了众多类实现一些底层功能，以及我们下载过来的JAR文件中包含的类,我们可以调用类中的方法来完成某些功能或继承它。那么这些类中究竟提供了哪些方法给我们使用？方法的参数个数及类型是？类的构造器需不需要参数？总不可能SUN公司的工程师打国际长途甚至飘洋过海来告诉你他编写的类该如何使用吧。他们只能提供文档给我们查看，Java DOC文档（参考文献4.4）就是这样的文档，它可以说是程序员与程序员交流的文档。基本API指的是实现了一些底层功能的类，通用性较强的API，如字符串处理/输入输出等等。我们又把它成为类库。熟悉API的方法一是多查Java DOC文档（参考文献4.4），二是使用JBuilder/Eclipse等IDE的代码提示功能。

3.1.4 特定API的学习 Java介入的领域很广泛，不同的领域有不同的API，没有人熟悉所有的API，对一般人而言只是熟悉工作中要用到的API。如果你做界面开发，那么你需要学习Swing/AWT/SWT等API；如果你进行网络游戏开发，你需要深入了解网络API/多媒体API/2D3D等；如果你做WEB开发，就需要熟悉Servlet等API啦。总之，需要根据工作的需要或你的兴趣发展方向去选择学习特定的API。

3.1.5 开发工具的用法在学习基础语法与基本的面向对象概念时，从锻炼语言熟练程度的角度考虑，我们推荐使用的工具是Editplus/JCreator+JDK,这时候不要急于上手JBuilder/Eclipse等集成开发环境，以免过于关注IDE的强大功能而分散对Java技术本身的注意力。过了这一阶段你就可以开始熟悉IDE了。程序员日常工作包括很多活动，编辑、编译及构建、调试、单元测试、版本控制、维持模型与代码同步、文档的更新等等，几乎每一项活动都有专门的工具，如果独立使用这些工具的话，你将会很痛苦，你需要在堆满工具的任务栏上不断的切换，效率很低下，也很容易出错。在JBuilder、Eclipse等IDE中已经自动集成编辑器、编译器、调试器、单元测试工具JUnit、自动构建工具ANT、版本控制工具CVS、DOC文档生成与更新等等，甚至可以把UML建模工具也集成进去，又提供了丰富的向导帮助生成框架代码，让我们的开发变得更轻松。应该说IDE发展的趋势就是集成软件开发中要用到的几乎所有工具。从开发效率的角度考虑，使用IDE是必经之路，也是从一个学生到一个职业程序员转变的里程碑。 Java开发使用的IDE主要有Eclipse、JBuilder、JDeveloper、NetBeans等几种；而Eclipse、JBuilder占有的市场份额是最大的。JBuilder在近几年来一直是Java集成开发环境中的霸主，它是由备受程序员尊敬的Borland公司开发，在硝烟弥漫的Java IDE大战中,以其快速的版本更新击败IBM的Visual Age for Java等而成就一番伟业。IBM在Visual Age for Java上已经无利可图之下，干脆将之贡献给开源社区，成为Eclipse的前身，真所谓"柳暗花明又一村"。浴火重生的Eclipse以其开放式的插件扩展机制、免费开源获得广大程序员（包括几乎所有的骨灰级程序员）的青睐，极具发展潜力。

3.1.6 学习软件工程对小型项目而言，你可能认为软件工程没太大的必要。随着项目的复杂性越来越高，软件工程的必要性才会体现出来。参见"软件开发学习路线"小节。

3.2学习要点确立的学习路线之后，我们还需要总结一下Java的学习要点，这些要点在前文多多少少提到过，只是笔者觉得这些地方特别要注意才对它们进行汇总，不要嫌我婆婆妈妈啊。当程序员编写好某些类，觉得很有成就感,想把它贡献给各位苦难的同行。这时候你要使用"Javadoc"工具（包含在JDK中）生成标准的Java DOC文档,供同行使用。J2SE/J2EE/J2ME的DOC文档是程序员与程序员交流的工具，几乎人手一份，除了菜鸟之外。J2SE DOC文档官方下载地址：http://Java.sun.com/j2se/1.5.0/download.jsp，你可以到google搜索CHM版本下载。也可以在线查看：http://Java.sun.com/j2se/1.5.0/docs/api/index.html。对待DOC文档要像毛主席语录，早上起床念一遍，吃饭睡觉前念一遍。当需要某项功能的时候，你应该先查相应的DOC文档看看有没有现成的实现，有的话就不必劳神费心了直接用就可以了，找不到的时候才考虑自己实现。使用步骤一般如下： ●找特定的包，包一般根据功能组织。 ●找需要使用类，类命名规范的话我们由类的名字可猜出一二。 ●选择构造器，大多数使用类的方式是创建对象。 ●选择你需要的方法。

3.2.2 查书/google->写代码测试->查看源代码->请教别人当我们遇到问题的时候该如何解决？这时候不要急着问别人，太简单的问题，没经过思考的问题，别人会因此而瞧不起你。可以先找找书，到google中搜一下看看，绝大部分问题基本就解决了。而像"某些类/方法如何使用的问题"，DOC文档就是答案。对某些知识点有疑惑是，写代码测试一下，会给你留下深刻的印象。而有的问题，你可能需要直接看API的源代码验证你的想法。万不得已才去请教别人。

3.2.3学习开源软件的设计思想 Java领域有许多源代码开放的工具、组件、框架，JUnit、ANT、Tomcat、Struts、Spring、Jive论坛、PetStore宠物店等等多如牛毛。这些可是前辈给我们留下的瑰宝呀。入宝山而空手归，你心甘吗？对这些工具、框架进行分析，领会其中的设计思想，有朝一日说不定你也能写一个XXX框架什么的，风光一把。分析开源软件其实是你提高技术、提高实战能力的便捷方法。

3.2.4 规范的重要性没有规矩，不成方圆。这里的规范有两层含义。第一层含义是技术规范，多到http://www.jcp.org下载JSRXXX规范，多读规范，这是最权威准确最新的教材。第二层含义是编程规范，如果你使用了大量的独特算法，富有个性的变量及方法的命名方式；同时，没给程序作注释，以显示你的编程功底是多么的深厚。这样的代码别人看起来像天书，要理解谈何容易，更不用说维护了，必然会被无情地扫入垃圾堆。Java编码规范到此查看或下载http://Java.sun.com/docs/codeconv/，中文的也有，啊，还要问我在哪，请参考3.2.2节。

3.2.5 不局限于Java 很不幸，很幸运，要学习的东西还有很多。不幸的是因为要学的东西太多且多变，没时间陪老婆家人或女朋友，导致身心疲惫，严重者甚至导致抑郁症。幸运的是别人要抢你饭碗绝非易事，他们或她们需要付出很多才能达成心愿。 Java不要孤立地去学习，需要综合学习数据结构、OOP、软件工程、UML、网络编程、数据库技术等知识，用横向纵向的比较联想的方式去学习会更有效。如学习Java集合的时候找数据结构的书看看；学JDBC的时候复习数据库技术；采取的依然是"需要的时候再学"的原则。

4．结束语需要强调的是，学习软件开发确实有一定的难度，也很辛苦，需要付出很多努力，但千万不要半途而废。本文如果能对一直徘徊在Java神殿之外的朋友有所帮助的话，笔者也欣慰了。哈哈，怎么听起来老气横秋呀？没办法，在电脑的长期辐射之下，都快变成小老头了。最后奉劝各位程序员尤其是MM程序员，完成工作后赶快远离电脑，据《胡播乱报》报道，电脑辐射会在白皙的皮肤上面点缀一些小黑点，看起来鲜艳无比……

答华为笔试的最后一道题

2008-12-18T16:18:00.004+08:00

好久以前曾经笔了次华为的C/C++
前边做得都不错，最后一道题由于时间不够没做出来（60min）
题目是：一张单链表，只允许你遍历一次，要求找出其中间节点的位置

今天突然有了想法：
定义两个指针*pa与*pb，中间结点指针*pMid==NULL
pa=pb=head;
while(1)
{
pa=pa->next;
if(pb->next!=NULL)
{
pb=pb->next;
if(pb->nex!=NULL)
pb=pb->next;
else
{
//偶数节点链表无中间节点
cout<<"无中间节点";
break;
}
}
else
{
pMid=pa;
break;
}
}
这样子的话输出pa指针指向的当前节点，就是中间节点的位置了

啊啊啊。我真是太瓜了当时怎么不聪明一下呢
用两个指针就搞定了嘛

开源网站

2008-12-15T23:53:00.001+08:00

===程序员事业的50个源码网站奉献给大家===

优秀网站源码、编程源码下载网站大集中
1.51源码：http://www.51aspx.com/
2.源码之家：http://www.codejia.com/
3.源码网：http://www.codepub.com/
4.虾客源码：http://www.xkxz.com/
5.多多源码：http://www.morecode.net/
6.洪越源代码：http://www.softhy.net/
7.锋网源码：http://www.fwvv.net/
8.代码爱好者：http://www.codefans.com/
9.爱源码：http://www.aiyuanma.com/
10.酷源码：http://www.kyuanma.com/
11.搜源码：http://www.soucode.com/
12.拉基源码：http://www.lajicode.com/
13.源码开发网：http://www.codedn.com/
14.源码天空：http://www.codesky.net/
15.源码吧：http://www.asp88.net/
16.绿色源码：http://code888.cn/
17.9号源码中心：http://www.9code.com/
18.网馨源码：http://www.asppsa.com/
20.源码天下：http://www.pccode.net/
21.需要源码：http://www.needcode.cn/
22.华夏源码：http://www.haocpu.com/
23.天新网：http://codes.21tx.com/
24.源码网：http://www.yuanma5.com/
25.无忧源码：http://www.5uym.com/
26.中国下载站：http://www.cnz.cc/
27.资源吧：http://www.ziyuan8.com/
28.启明星源码：http://www.codewww.com/
29.我要源码：http://www.xia51.com/
30.清秋源码：http://www.asp678.com/
31.站长下载:http://down.chinaz.com/
32.CSDN下载：http://download.csdn.net
33.站长源码：http://down.cnzz.cn/
34.51源码：http://www.51aspx.com/
35.源码之家：http://www.mycodes.com/
36.源码网：http://www.codepub.com/
37.多多源码：http://www.morecode.net/
38.洪越源代码：http://www.softhy.net/
39.锋网源码：http://www.fwvv.net/
40.代码爱好者：http://www.codefans.net/
41.中国源码下载站：http://www.downcode.com/
42.源码开发网：http://www.bncms.com/
43.源码天空：http://www.codesky.net/
44.ASP300：http://www.asp300.com/
45:中国源码中心：http://www.cncode.com/
46：源码天下：http://www.pccode.net/
47.酷源码：http://www.kyuanma.com/
48.天新网：http://codes.21tx.com/
49.无忧源码：http://www.5uym.com/
50.资源吧：http://www.ziyuan8.com/

GNU通用公共许可证(GPL)

2008-12-07T21:11:00.000+08:00

有关复制，发布和修改的条款和条件
　　0. 此许可证适用于任何包含版权所有者声明的程序和其他作品，版权所有者在声明中明确说明程序和作品可以在GPL条款的约束下发布。下面提到的“程序”指的是任何这样的程序或作品。而“基于程序的作品”指的是程序或者任何受版权法约束的衍生作品。也就是说包含程序或程序的一部分的作品。可以是原封不动的，或经过修改的和／或翻译成其他语言的（程序）。在下文中，翻译包含在修改的条款中。每个许可证接受人（licensee）用你来称呼。许可证条款不适用于复制，发布和修改以外的活动。这些活动超出这些条款的范围。运行程序的活动不受条款的限止。仅当程序的输出构成基于程序作品的内容时，这一条款才适用（如果只运行程序就无关）。是否普遍适用取决于程序具体用来做什么。
　　1. 只要你在每一副本上明显和恰当地出版版权声明和不承担担保声明，保持此许可证的声明和没有担保的声明完整无损，并和程序一起给每个其他的程序接受者一份许可证的副本，你就可以用任何媒体复制和发布你收到的原始的程序的源代码。你可以为转让副本的实际行动收取一定费用。你也有权选择提供担保以换取一定的费用。
　　2. 你可以修改程序的一个或几个副本或程序的任何部分，以此形成基于程序的作品。只要你同时满足下面的所有条件，你就可以按前面第一款的要求复制和发布这一经过修改的程序或作品。
　　a）你必须在修改的文件中附有明确的说明：你修改了这一文件及具体的修改日期。
　　b）你必须使你发布或出版的作品（它包含程序的全部或一部分，或包含由程序的全部或部分衍生的作品）允许第三方作为整体按许可证条款免费使用。
　　c）如果修改的程序在运行时以交互方式读取命令，你必须使它在开始进入常规的交互使用方式时打印或显示声明：包括适当的版权声明和没有担保的声明（或者你提供担保的声明）；用户可以按此许可证条款重新发布程序的说明；并告诉用户如何看到这一许可证的副本。（例外的情况：如果原始程序以交互方式工作，它并不打印这样的声明，你的基于程序的作品也就不用打印声明）。
　　这些要求适用于修改了的作品的整体。如果能够确定作品的一部分并非程序的衍生产品，可以合理地认为这部分是独立的，是不同的作品。当你将它作为独立作品发布时，它不受此许可证和它的条款的约束。但是当你将这部分作为基于程序的作品的一部分发布时，作为整体它将受到许可证条款约束。准予其他许可证持有人的使用范围扩大到整个产品。也就是每个部分，不管它是谁写的。因此，本条款的意图不在于索取权利；或剥夺全部由你写成的作品的权利。而是履行权利来控制基于程序的集体作品或衍生作品的发布。此外，将与程序无关的作品和该程序或基于程序的作品一起放在存贮体或发布媒体的同一卷上，并不导致将其他作品置于此许可证的约束范围之内。
　　3. 你可以以目标码或可执行形式复制或发布程序（或符合第2款的基于程序的作品)，只要你遵守前面的第1，2款，并同时满足下列3条中的1条。
　　a）在通常用作软件交换的媒体上，和目标码一起附有机器可读的完整的源码。这些源码的发布应符合上面第1，2款的要求。或者
　　b）在通常用作软件交换的媒体上，和目标码一起，附有给第三方提供相应的机器可读的源码的书面报价。有效期不少于3年，费用不超过实际完成源程序发布的实际成本。源码的发布应符合上面的第1，2款的要求。或者
　　c）和目标码一起，附有你收到的发布源码的报价信息。（这一条款只适用于非商业性发布，而且你只收到程序的目标码或可执行代码和按b）款要求提供的报价）。作品的源码指的是对作品进行修改最优先择取的形式。对可执行的作品讲，完整的源码包括：所有模块的所有源程序，加上有关的接口的定义，加上控制可执行作品的安装和编译的script。作为特殊例外，发布的源码不必包含任何常规发布的供可执行代码在上面运行的操作系统的主要组成部分（如编译程序，内核等）。除非这些组成部分和可执行作品结合在一起。如果采用提供对指定地点的访问和复制的方式发布可执行码或目标码，那么，提供对同一地点的访问和复制源码可以算作源码的发布，即使第三方不强求与目标码一起复制源码。
　　4. 除非你明确按许可证提出的要求去做，否则你不能复制，修改，转发许可证和发布程序。任何试图用其他方式复制，修改，转发许可证和发布程序是无效的。而且将自动结束许可证赋予你的权利。然而，对那些从你那里按许可证条款得到副本和权利的人们，只要他们继续全面履行条款，许可证赋予他们的权利仍然有效。
　　5. 你没有在许可证上签字，因而你没有必要一定接受这一许可证。然而，没有任何其他东西赋予你修改和发布程序及其衍生作品的权利。如果你不接受许可证，这些行为是法律禁止的。因此，如果你修改或发布程序（或任何基于程序的作品），你就表明你接受这一许可证以及它的所有有关复制，发布和修改程序或基
　　于程序的作品的条款和条件。
　　6. 每当你重新发布程序（或任何基于程序的作品）时，接受者自动从原始许可证颁发者那里接到受这些条款和条件支配的复制，发布或修改程序的许可证。你不可以对接受者履行这里赋予他们的权利强加其他限制。你也没有强求第三方履行许可证条款的义务。
　　7. 如果由于法院判决或违反专利的指控或任何其他原因（不限于专利问题）的结果，强加于你的条件（不管是法院判决，协议或其他）和许可证的条件有冲突。他们也不能用许可证条款为你开脱。在你不能同时满足本许可证规定的义务及其他相关的义务时，作为结果，你可以根本不发布程序。例如，如果某一专利许可证不允许所有那些直接或间接从你那里接受副本的人们在不付专利费的情况下重新发布程序，唯一能同时满足两方面要求的办法是停止发布程序。
　　如果本条款的任何部分在特定的环境下无效或无法实施，就使用条款的其余部分。并将条款作为整体用于其他环境。本条款的目的不在于引诱你侵犯专利或其他财产权的要求，或争论这种要求的有效性。本条款的主要目的在于保护自由软件发布系统的完整性。它是通过通用公共许可证的应用来实现的。许多人坚持应用这一系统，已经为通过这一系统发布大量自由软件作出慷慨的供献。作者／捐献者有权决定他／她是否通过任何其他系统发布软件。许可证持有人不能强制这种选择。
　　本节的目的在于明确说明许可证其余部分可能产生的结果。
　　8. 如果由于专利或者由于有版权的接口问题使程序在某些国家的发布和使用受到限止，将此程序置于许可证约束下的原始版权拥有者可以增加限止发布地区的条款，将这些国家明确排除在外。并在这些国家以外的地区发布程序。在这种情况下，许可证包含的限止条款和许可证正文一样有效。
　　9. 自由软件基金会可能随时出版通用公共许可证的修改版或新版。新版和当前的版本在原则上保持一致，但在提到新问题时或有关事项时，在细节上可能出现差别。
　　每一版本都有不同的版本号。如果程序指定适用于它的许可证版本号以及“任何更新的版本”。你有权选择遵循指定的版本或自由软件基金会以后出版的新版本，如果程序未指定许可证版本，你可选择自由软件基金会已经出版的任何版本。
　　10. 如果你愿意将程序的一部分结合到其他自由程序中，而它们的发布条件不同。写信给作者，要求准予使用。如果是自由软件基金会加以版权保护的软件，写信给自由软件基金会。我们有时会作为例外的情况处理。我们的决定受两个主要目标的指导。这两个主要目标是：我们的自由软件的衍生作品继续保持自由状态。以及从整体上促进软件的共享和重复利用。
　　没有担保
　　11. 由于程序准予免费使用，在适用法准许的范围内，对程序没有担保。除非另有书面说明，版权所有者和／或其他提供程序的人们“一样”不提供任何类型的担保。不论是明确的，还是隐含的。包括但不限于隐含的适销和适合特定用途的保证。全部的风险，如程序的质量和性能问题都由你来承担。如果程序出现缺陷，你承担所有必要的服务，修复和改正的费用。
　　12. 除非适用法或书面协议的要求，在任何情况下，任何版权所有者或任何按许可证条款修改和发布程序的人们都不对你的损失负有任何责任。包括由于使用或不能使用程序引起的任何一般的，特殊的，偶然发生的或重大的损失（包括但不限于数据的损失，或者数据变得不精确，或者你或第三方的持续的损失，或者程序不能和其他程序协调运行等）。即使版权所有者和其他人提到这种损失的可能性也不例外。
　　最后的条款和条件
　　如何将这些条款用到你的新程序
　　如果你开发了新程序，而且你需要它得到公众最大限度的利用。要做到这一点的最好办法是将它变为自由软件。使得每个人都能在遵守条款的基础上对它进行修改和重新发布。
　　为了做到这一点，给程序附上下列声明。最安全的方式是将它放在每个源程序的开头，以便最有效地传递拒绝担保的信息。每个文件至少应有“版权所有”行以及在什么地方能看到声明全文的说明。
　　<用一行空间给出程序的名称和它用来做什么的简单说明>
　　版权所有（C） 19XX <作者姓名>
　　这一程序是自由软件，你可以遵照自由软件基金会出版的GNU通用公共许可证条款来修改和重新发布这一程序。或者用许可证的第二版，或者（根据你的选择）用任何更新的版本。
　　发布这一程序的目的是希望它有用，但没有任何担保。甚至没有适合特定目的的隐含的担保。更详细的情况请参阅GNU通用公共许可证。
　　你应该已经和程序一起收到一份GNU通用公共许可证的副本。如果还没有，
　　写信给：
　　The Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
　　MA02139, USA
　　还应加上如何和你保持联系的信息。
　　如果程序以交互方式进行工作，当它开始进入交互方式工作时，使它输出类似下面的简短声明：
　　Gnomovision 第69版，版权所有（C） 19XX，作者姓名，
　　Gnomovision绝对没有担保。要知道详细情况，请输入‘show w’。
　　这是自由软件，欢迎你遵守一定的条件重新发布它，要知道详细情况，
　　请输入‘show c’。
　　假设的命令‘show w’和‘show c’应显示通用公共许可证的相应条款。当然，你使用的命令名称可以不同于‘show w’和‘show c’。根据你的程序的具体情况，也可以用菜单或鼠标选项来显示这些条款。
　　如果需要，你应该取得你的上司（如果你是程序员）或你的学校签署放弃程序版权的声明。下面只是一个例子，你应该改变相应的名称：
　　Yoyodyne公司以此方式放弃James Harker
　　所写的 Gnomovision程序的全部版权利益。
　　，1989.4.1
　　Ty coon副总裁
　　这一许可证不允许你将程序并入专用程序。如果你的程序是一个子程序库。
　　你可能会认为用库的方式和专用应用程序连接更有用。如果这是你想做的事，使用GNU库通用公共许可证代替本许可证。

如何创建别人进不去也删不掉的文件

2008-12-05T22:58:00.002+08:00

建立一个别人既不能进入又不能删除的文件夹
2008-01-05 09:03
相信大家都遇到过自己的一些隐私文件不愿意让别人看到的情况吧，怎么解决呢？隐藏起来？换个名字？或者加密？这些办法都可以办到，其实还有一种方法，就是建立一个别人既不能进入又不能删除的文件夹，把自己的隐私文件放进去，别人就看不到啦，下面讲讲如何实现，很简单的。^_^

第一步：在运行中输入cmd，回车，打开命令行窗口

第二步：在命令行窗口中切换到想要建立文件夹的硬盘分区，如D盘

第三步：输入MD 123..\ 回车，注意文件夹名后有2个小数点

OK，搞定，看看你的D盘下面是不是多了一个名为123.的文件夹了？它是既不能进入又不能被删除的！不信你就试试看吧^_^

那么，如果自己想删除或者进入这个文件夹，又应该如何操作呢？同样也很简单。
如果想删除，在命令行窗口中输入 rd 123..\ 回车，即可删除，当然删除前请确认里面的文件都是不需要的，不要删错了，呵呵。

如果想进入，在命令行窗口中输入 start d:\123..\ (注意这里一定要是文件夹的绝对路径，否则无法打开即可打开此文件夹，你就可以随心所欲的把不想让别人看到的资料放进去啦！

原文来源：http://bbs.360safe.com/viewthread.php?tid=352718&extra=page%3D2

【财富论坛】郎咸平：未来和下一代很悲惨其二

2008-11-15T23:51:00.000+08:00

主持人：今天上半场的演讲就到这里，感谢朗教授。首先朗教授以我为例，举个例子非常容幸，而且告诉我说，今天我犯了一个大错误，在这里我也指出朗教授最大的错误就是来烟台来晚了，大家说对不对？让我们一起期待朗教授下半场的演出，休息15分钟。

主持人：对于期盼，朗教授的下半场的演讲而言，这个时间感觉更短，我们确实非常认真在听我们朗教授的演讲，不过我个人觉得还是稍微有一点点的遗憾，哪呢？整个演讲的过程中我们还是非常遗憾地听到了手机的铃声，所以我真的希望下半场的演讲过程中，亲爱的朋友能够将自己的手机打成静音或者是震动的状态，这是对朗教授最好的尊重，在朗教授走之后我说了一句话，朗教授可能没有听到，现在朗教授已经坐在了自己的座位上，朗教授说他从来没有犯过错此外，但是我说他只犯过一个错误，就是你来烟台太晚了，如果你早来烟台一年的话，至少我估计我的两个月辛辛苦苦攒下来的钱，还是两年的钱不会变成两个月，指出来我的错误，但是朗教授知道各位都套牢，但是各位和我一样，都找到了继续下去的信心，到底朗教授会让我们的信心百倍增强，我们让我们彻底的绝望，让我们一起来聆听。再次掌声有请朗教授！

朗教授：其实这也不是我的错，是阳光100的错，你们怎不早点叫我过来，我们两个人都没有错，搞了半天，刚才主持人给了我很大的压力，他说下半场的演讲，能不能为各位指出一条解套的方案，我不知道怎么解套，我的水平不够，说不定我越讲越绝望都可能，你们还敢听吗？

我前面讲到现在，还没有谈到次贷危机，也就是说告诉各位，就算没有次贷危机，我们中国经济发展也是这样的结果，所以，我们的问题比欧洲、比英国要严重得多得多。我们不但有二元经济所导致的民营经济的全面箫条，我们还有不可知的未来金融海啸的冲击。那么当然这个所谓的美国的次贷危机已经造成了很大的影响，可是我相信很多来宾，对于次贷危机为什么会发生以及它的冲击有多大？如何在我前面演讲的基础上更进一步阐述我的观点。那么最近我看了很多媒体的报道讲的不太正确，也想透过这个场合告诉大家到底资本主义出了什么问题？

以前在美国做房屋贷款是这样做的，这帮人在做，这些人并不是信用卓著，通过一些中介，负责帮银行收集资料做第一关的审核，那么中介把资料交给银行。银行在做第二次的审核，通过以后，银行把钱直接放贷给借款人，银行比如说借出一百万，银行就少了一百万，为了让资金充裕，就把一百万的债权卖给你，你们说熟悉的房地美跟房利美，就把一百万切成一千块，一千块一张的债券卖给全世界包括中国政府，卖的三千七百亿，总共差不多5万亿，这个过程本来是非常好的，信用卓著的借款人把资料给银行，银行通过把钱借给借款人，再把债券转给房利美，再切给1000块的债券卖给大众，所以银行不缺资金，房利美拿回一百万，最后的债权全部由社会所承担，这个社会是广义的社会，包括中国政府包括欧洲社会包括美国的大众，这是一条非常完美的链条。

可是，这么多年来，美国华尔街的贪婪，让这条链条彻底的变质，怎么变质？第一发明的次贷，次级贷就是允许财务报表不好的人，收入所得不够的人，信用不够的人依然可以买房子，如何透过第一道中介呢，就开始很像我们的银行，开始造假，学坏很快，学好不容易，拿一些假资料，我们做的很多了，骗银行我们骗多了，造一些假的资料，拿去忽悠你，银行所有的分析根据假的资料，所以通过审核把钱借给了借款人，银行拿这些有问题的次级债卖给房利美，他们根据这些一百万的次级债，切给一千块的债券卖给大众，中介为什么会造价，就是资本主义赖以为生的信托责任，在华尔街的贪婪下荡然无存。信托责任才是资本主义的灵魂，当中介机构一旦缺乏信托责任的下场就是整个链条被污染，只要借款人还不起债，银行债券就是差了，银行把差的债权卖给房利美，他们又发行债券卖给大众，会使得房利美还不起债。因此，造成破产现象。

现在美国政府在做什么呢，直接进来救助房利美的银行，他们基本上都是受害者，直接拿钱帮他们付利息，否则后果不堪设想，各位听懂了吗？所以次贷危机的真正原因来自信托责任的破产。你们千万不要小看这次危机，因为除了次贷危机以外我发现美国还有万亿的次次债，比如说卖热狗的、毒品的，这些人他们也可以买房子，这些人叫做次次贷也可以透过无聊的中介机构伪造一大堆的财务报表卖给银行，银行卖给房利美，这个是做爆炸呢？两年以后，所以美国政府透过7千亿的目的就是修补这个次次贷带来的污染，解救房利美。

但是各位请注意，这个影响太大了因为几万亿出去的，包括美国的AIG就是美国的国际保险公司，这个影响已经是危及全世界，而且更可怕的是这么多年来，为什么中国的经济成长这么健康？为什么中国这么严重的产能过剩，虽然是牺牲了环境、资源、劳动者的情况下，大量的产能过剩为什么还能存在，为什么经济不崩溃，原因是以美国为首的西方经济他们负债消化这些产品，也就是高度的负债，所有的美国人都在借钱，美国公司美国政府都在借钱，然后大量印发钞票，购买我们中国出口制造业的产品。只要美国这链条一断裂，美国人不再购买产品以后，中国过剩的产能危机立刻爆炸，为什么没有爆炸呢？就是美国人不断借款，购买我们的产品。

但是，不断地借款不断借款没有关系，只要你的借款的品质是好的就没有问题，比如像以前信用良好的借款者借款没有问题，问题是今天链条被污染了，所以高负债的情况下，一个被污染的链条，立刻产生重大危机，你们听我讲到这里，就应该要干什么？如果这个负债的链条，防火墙挡不住的话，下一步结果是什么？你想想，也就是美国赖以生存的、以负债为主的大量购买中国产品的做法将立刻破产。好了，如果美国人不再购买我们的产品，我们这么多的产能过剩怎么办？请你们在座的各位来宾你们来回答我一下，我们的消费只有30%，我们根本买不起，我们买不了这么多的产品，只要美国人因为经济危机不买的话，我们生产过剩的现象立刻爆炸。

我在这个时刻我根本就不想讲粉饰太平，我也不想取悦领导，因为我是真正爱国的，只有把这句话讲清楚。（掌声）只有尽早告诉政府它才能有英明对策，来宾们，你们都听懂了吗？中国产能过剩的问题，因为全球的高负债得到的缓解，他们买了我们的产品。只要我前面讲的防火墙一旦破裂，老百姓的信心一旦丧失，不再以负债的方式购买了，那么我们所面临的是企业的大量倒闭，我都不敢想。这一刻我比谁都紧张，我一直观察美国政府能不能成功救市，因为美国政府一旦失败你可不要做地上官，你可不要嘲笑美国政府部门，我们中国将付出惨重的代价。由于我看得比谁都早，看得比谁都明白，我到两点才睡，不断打电话到美国询问最新的情况是怎样？我得到的都是最新的讯息。不过告诉各位，我已经有了一些最新的讯息。我今天发现，美国的援助力不够，七千亿可能不够，你知道七千亿是什么概念吗？美国老百姓每一个人为此付出了接近3千美元。可是我认为，还是不够的。所以上周，美国股市跌了20%多，这是从包括1929年那次股灾，同样大的跌幅。你知道这意味着什么意义吗？可能大家没有这样的敏感度，我担心的是 1929年之后的经济大风波。

我现在希望，英国政府也开始救市，你知道发生什么事吗？为什么救市不成功？而且上个礼拜全世界几大国家联合行动救市，同时注资，同时降低利率，各位记得吗，可是最后结果是失败的，你知道为什么失败吗？因为，每一家金融机构拿到救助款之后，而且是利息非常低的救助款之后，他把钱压在手里，都在怕，借给你不还给我怎么办？我对银行没有什么信心，所以也不借给银行，所以政府给我的流动资金，我压在银行里，既不给企业短期融资也不给银行，我全部压在手上，如果银行都不拆借的话，我们全世界的短期融资怎么办？你怎么买原材料怎么发工资，你要靠短期融资，银行如果缺短期债的话，是无法生存的，否则资金会陷入周转不灵。

目前的现状是怎样的？银行系统虽然接收了政府的救助，但是由于根本的问题解决不了，大家不敢从事短期借贷，下一步就是美国的制造业、美国的企业、美国的服务业拿不到短期融资而全线崩溃。美国银行业会由于银行之间不准拆借、周转不灵，造成更多的现状。为什么这些银行不借？虽然拿到这么多钱的救助为什么不借？因为信心丧失，什么信心丧失？对于资本主义的信心丧失，我讲这句话有点可笑，你千万不要笑。

最近欧洲政府包括冰岛，已经开始把金融机构国有化，为什么？因为银行信用已经破产，大家都不相信银行，甚至连银行也不相信银行，银行拿到钱也不拆借企业，免得你们拿钱跑了。所以银行信用本身已经没有办法让系统运作了，因为银行信用不够了到最后逼迫英国政府、欧洲政府以国家力量收购银行变成我们痛恨的国有企业。你知道为什么这样做吗？因为以国家的信用担保，我保证还你钱，你只要以国家的信用担保，这家金融机构一定还钱，别的银行就会借钱给他，各位听懂了没有？在我们民营化的时候，你发现全世界国有化，为什么国有化，就是重新利用政府的信用，给这个经济体系打下长期定数，你们放心的去借吧？政府为你们撑腰，不但为银行撑腰，把银行收归国有，同时由政府印钞票向企业融资，你把你的票据卖给政府，政府拿钱买你的短期融资的票据，让你发行，购买原材料，因此今天整个信用体系，破产的是各国政府出面实行全球的国有化，什么目的？重新向这个腐败不堪的金融机构注入最后一股政府信用。透过政府信用，透过政府的钱直接拆借给银行，透过政府的钱直接购买企业的短期票据，让企业拿到短期融资发薪水、买原材料。美国政府还没有这样做。他们看在眼里，心很急。因为如果你不学习欧洲政府的话，没有政府信用在里面，整个金融体系会因信息不足而全面崩溃。

这是今天上午得到的最新消息，我一直在想这个事怎么讲，我讲的是最前沿的，美国政府也在考虑要不要把美国金融机构变成国营企业呢，这和美国政府的民营理念有悖不太愿意这样做，但是如果不这样做的，你的七千亿美救市计划很难成功，因为大家的信心丧失，我相信你们想问我一句话，你们问我说，朗教授政府信用是不是最后一步？你们想不想问这句话？对的，这是最后一步了。如果问我下面一句话，如果政府信用也不行呢，完了。那完了，没有别的办法了。我都不想演讲下去了。

走到这一步，整个金融体系的问题，会使得各国无力再以负债的方式成长，因此，就不会再以负债的方式购买我们产能过剩所制造的产品，听懂了吗？下一步就是什么呢？所以说中国不可能幸免于难，我也请各位来宾密切注意这几天的发展，你们要随时随地按照我今天告诉你们的思路注意观察一下，你会发现今天两点开始，欧洲各国政府甚至我怀疑美国政府要大量实行全面国有化。否则，无法注入最后一道强心剂。因为资本主义的信心完全崩溃，信用体系完全崩溃。

你看我讲到这里，大家鸦雀无声了，你们才知道事态的严重。竟然还有无聊学者胡说八道说明天会更好，大家放心。是看不懂呢，还是怎么回事儿？刚才主持人问我如何解套，我不知道，我没有这个能力解套，因为我发现美国政府也解不了套，郎咸平什么东西，还问我：朗教授，我们该做什么投资，你疯了，我昨天早上到今天中午很多企业家问我，我们应该投资什么行业，我一开始告诉你，你疯了，我当时讲你疯了，你可能觉得我在开玩笑，我讲到现在这样说你该理解了吧？

你晓不晓得什么危机在你面前，全世界各国的政府现在已经拟定了三个方针：第一个方针，就是政府出面协助各个金融机构的负债问题渡过难关。第二个问题，充足各个金融的资本，如果还不行，第三个，充足国有化，如果还不行有没有第四个，到这一天，防火墙会正式爆破，如果国有化解决不了问题，防火墙宣告爆破，我讲的工商链条多米诺骨牌效应将一发而不可收拾，中国经济发展靠出口创汇，基本是依靠过剩的产能发展。都听懂了吗？

当然了这个事件，未来是怎么走势我也无法预测。其实他们也是走一步算一步，以美国为首的西方国家作梦也没有想到连政府注入几千亿资金的结果还是无法救市。因为，源自于企业的信念还是过窄，逼迫政府出来用政府力量帮助银行完成短期拆借，帮助企业完成短期拆借，帮助他们继续生存下去。现在各国政府正在用政府的力量协助银行进行短期拆借，利用政府的力量协助企业进行短期融资，以维持一个正常的营运，而不要说发展。

你们听完我的演讲之后，以后再听到学者有任何乐观的呼吁你不要听了，你心里要做准备，没有人希望最坏的情况发生，我告诉各位来宾，我第一个做的演讲是跟次贷危机完全无关的中国经济问题。如果你们已经觉得日子很难过了，那么我第二个阶段的演讲将带来海啸般的冲击，我现在随时随地密切观察欧美各国能否有效斩断工商链条，中国的出口制造业就是工商链条的重要环节。

这也是为什么在第一场演讲完成以后，我告诉你们少投资，最少不要投资，减少负债，准备过冬。而且，像美国的财政部长鲍尔森以及美国的中央银行行长波兰克这些都是赫赫有名的人物，像波兰克这个人是1970年代的博士学者，我是1980年代毕业的经济学家，那个时代毕业的学者跟我们这个时代不一样，哪个时代的学者对于经济大恐慌本身研究得非常到位，不像我们80年代的学者是非常单纯的一批人，迷信市场的人基本上都是这批人，70年代的学家有非常强的政府道德责任感，当时波兰克也就是美国中央银行的主席，他的博士论文就是 1929年经济大恐慌，他说当时美国之所以发生经济大恐慌就是因为没有设立防火墙。

中国的企业、中国的制造业，在大海啸没有冲击之前为什么这样的不抗压，各位想想？所以我前面说了，第一，汇率的上升，第二成本的上升，第三劳动合同法，第四宏观调控，这四件事情和我现在讲的第五件事情相比它们的力量是非常小的，也就是在汇率、成本、劳合同法以及宏观调控的冲击下，我国制造业如此不抗压，为什么？这四项冲击远远比不上我刚才讲的大海啸。就算这四项小冲击，我们的制造业也抗不住，30%的企业倒闭，甚至到了年底有可能超过50%，我希望不会，政府应该出来救企业，我诚恳地希望不会到50%，但是请问这四项冲击为什么我们企业抗不住？因为，我们和欧美各国的企业相比，我们有一个天生的缺陷，那就是我们引以为傲的制造业大国误导了我们的政府部门，你真的以为我们是制造业大国吗？你在媒体上所看到的都是什么样的？都是错的，你真的这样认为吗？真正的制造业大国是美国，才不是中国呢，我们是自己感觉良好。那么我们中国制造业目前在什么环境之下呢？我给你讲一句最形象的话，中国经济发展到最后中国取得了 GDP，美国取得了利润，也就是说我们制造业的格局就是创造的GDP，最后的利润全部被美国席卷，这句话什么意思，为什么我们这么不抗压，因为我们的制造业不但破坏环境、浪费资源，而且是整条产业链中价值最低的过程。

我以芭比娃娃为例，我们广东东莞所生产的芭比娃娃卖到美国是9.9美元一个，接近10美元，请问10美元减掉1美元的9美元是如何创造出来的？那就是美国企业的灵魂，它透过6大块所创造出来，包括产品设计、原料采购、仓储运输、定单处理、批发经营、终端零售，创造出了9美元的产值，6大块加上中国一块的制造，叫做六加一的整个流程就是产业链，我们这么多年的经济成长，我们取得了整条产业链的“一”，而欧美各国掌控了整条产业链的“六”，这个价值是怎么回事儿？我们的制造业者在破坏环境、浪费资源、剥削劳工的基础上，我们每创造出一百万美元的产值，我们同时替美国创造出九百万美元的产值，我们辛辛苦苦创造出一亿美国的产值，我们同时替美国创造出9亿美元的产值。因此，中国越制造，美国越富裕，美国席卷了90%的价值。

那么这一种生产模式叫做国际分工。而中国被分到了最差的一项，破坏环境、浪费资源、剥削劳工。我们现在常常以1.8万亿感到扬扬得意，你晓不晓得我们怎样创造出这样的成绩？我们掌控着10%的价值，我们创造出1.8万亿美元的外汇，也就是1.8万亿除以10%等于18万亿，也就是我们出口制造业替全世界创造出18万亿的产值，我们只分到了1.8，其他的都是欧美的，你知道18万亿是什么概念呢？那就是在座的各位来宾和全中国的工人80年所加起来的工资的总和，这就是18万亿被国际分工席卷。

所以我常讲，今天西方帝国主义对中国的掠夺和19世纪免费掠夺非洲差不多，当时非洲是0%，现在中国拿10%，在我看来没有什么差别，至少非洲没有环境污染等的问题，我们的10%伴随着污染环境，浪费的资源以及被剥削的劳工，由于你是处在产业链的最底端。因此你特别抗压，因为真正掌控定价权的是整个产业链的六，一是不掌控定价权，所以你能不能想象，欧美各国尤其是以美国为首的欧美国家，不但席卷的90%的利益，而且掌控着我们的定价权，我们不掌控。这就是为什么，创造了汇率，成本、劳动合同法以及宏观调控之后我们的企业必须全力承担这些成本，因为我们不掌控定价权，我们无法提升售价，各位都懂了吗？这就是为什么我说的投资营销环境急速恶化，因为你不掌控定价权。

到最后的结果，大家不想干了，不想干的结果就像你们一样炒股去了，还被套牢了，想想这都是错的，你看，美国，掌控着定价权，透过6+1的6席卷了90%的产值，这种情况，他们竟然发生了次贷危机，你能不能想象他们的防火墙一旦破裂以后，洪水将席卷90%的产值，想到了没有？我前面跟大家讲的就是说防火墙破裂之后会影响到这个行业、这个行业，现在我把这个数字告诉你，美国防火墙破裂的结果冲击到以美国为首的90%的产值。然后再冲击到中国的10%的产值。

我就是把第二段演讲的前半段全部给你量化。因此，美国、欧洲的做法三步骤：第一保护银行的债权，第二保护银行资本金，第三全部国有化，如果能够斩断工商链条的话，美国所创造的90%才能保存住。如果抗不住的话，全部席卷90%，只要冲击90%，就同时冲击我们的10%。所以现在已经不是一个金融危机的问题了。各位来宾都听懂了吗？

那你可能问我了。那样我们这么多年的产业政策没有想到这个吗？我告诉你没有。我们这么多年的产业政策呼吁企业利用我们的廉价劳动力、呼吁企业品牌升级、呼吁企业产业升级，没错吧？我告诉你，都是错的，因为真正的竞争力来源于6+1的高效整合，我们应该用政府的力量让我们的企业做成6+1的高效整合才能掌控定价权。只有掌控定价权我们才有生存的机会。

可是目前我们的制造业是大量的倒闭。那么请各位来宾想

一想。像郎咸平这种水平都会看得明白的事，你们认为美国政府看不明白吗？你相不相信，美国政府的要员比我聪明得多得多，我已经够聪明得了，他们比我还聪明，当然你不一定相信，你说朗教授谦虚了，今天这个年头还能自认为自己不足的人太少了，中国人牛人太多，不知道还不行了，连我这种水平的人我都看得这么清楚，何况美国。

这位女士说对了大量热钱进入中国，大量收购中国的制造业，为什么？中国的制造业1，美国的产业链是6，6不能没有“1”啊，听懂了没有？如果1崩溃的话，“6”也一定会崩溃，“6”一定有“1”做基础，才能发展，如果我们不生产芭比娃娃卖给美国，它怎么能创造出6的产值呢？我再一次告诉我们的地方政府你们必须救自己。“1”最重要了。因为我们的“1”正在被大量的收购，我觉得这位来宾比我聪明，他已经把我结论讲的差不多了。

中国进出口总额的55%都是外资，中国高科技出口的87%是外资，中国的汽车高端零配件90%是外资，中国你们吃的粮油85%是外资，中国山东、河北的几个粮食局已经被外资收购了，知道吗？中国的养猪的产业链某条产业链被收购了。这就是今天你所面临的格局，你知道这些数据吗？你可能都不知道，为什么不知道，因为你们从来不介意，我今天演讲的时间特别长，我已经把这些全部讲了，我们就算保有6+1的“1”，而且产值这么低的而且还是大量被收购的情况下，次贷危机的冲击还没有开始。

可是这些现象的原因就是中国的经济成长是靠着推动GDP所拉动，就是30%的部门透过钢筋水泥拉动的成长，70%都是过冷的制造业，这种特殊的二元经济 30%过热，70%过冷。经过了汇率、成本、劳动合同法以及宏观调控的冲击之下，过冷的制造业更冷，所面临的投资环境更加恶化。而过热的地方政府过热，我记得上一次去山西，有的人说你看我们的山西最近发展很好，我说中国的哪个地方发展不好，哪个官员一上任也是搞建设，推动GDP的工程建设，透过30%拉动 GDP这就是各级政府做的事。越这样做，越多的资源流入过热的部门，过冷的制造业为什么这么不抗压？原因就是我们已经进入到了一个前所未有的产业链的暂停时代。以美国为首的欧美国家控制着整条产业链的“6”的，我们在破坏环境、浪费资源、剥削劳动的基础上我们创造的“1”，更严重的是这样使得我国的制造业产生严重的生产过剩现象，而这个生产过剩现象透过美国这么多年的负债增长的形势全部被它吸收了，所以我们看起来是表面的繁荣，我们这么多的产品好像是更富裕了，那个制造，你已经跟次贷危机牢牢挂钩了，因为购买你产品的原因就是负债，我们是靠美国的负债支撑起我们的出口制造业使得我们过剩的产能透过美国消化掉，

但是美国的次贷危机使得美国高负债的时代即将终结，你可以相信我。未来一定是负债比例大幅降低，因此对于中国产品的需求必定大幅降低，所以中国产能过剩的现实情况将会曝露无疑，这个时刻就是次贷危机防火墙爆炸的时候，不但冲击了美国所能够掌控的90%的产值，同时冲击到中国只有10%的产值的过剩的出口制造业，产能过剩的制造业。

下一步是什么呢？我也不想讲了，因为你已经听懂了多米诺骨牌效应，下一步是什么呢？再下一步是什么呢？会形成一个恶性循环。大家怎么都不吭气了，其实你们今天不应该来听我的演讲，不听的时候，模模糊糊过得挺好的，国家有吃有喝的，过得挺好的，一旦听懂以后再也睡不着了，相不相信我，你们每天晚上今天晚上都会看凤凰卫视，看美国的次贷危机，国有化会不会成功，一旦失败，朗教授告诉我们的最后一招，一旦国有化失败全盘崩溃，回去不要老是看《汉武大帝》什么的连续剧了，回去看看美国的国有化会不会成功。

主持人：朗教授的演讲到这里就结束了，接下来的时间就是我们在场的来宾向我们朗教授提问的时间，首先有请我们舞台左侧的朋友提问。

搜房网：朗教授你好，我是搜房网的网友提问一个非常实际的问题，就说在当前的情况下，如何能让自己日子保持得好一点，甚至过得更好一点。

朗教授：过得更好一点不可能的，不要过得更坏就不错了，我建议各位网友各位来宾，注意在这个时刻千万不要想赚多少钱，能够少赔多少钱是真的。这是我告诉你们的，如果你们想买外币保值的话，一定要买最保守外币，什么目的呢？不赚钱，也就是你买欧元一定要买等量的美元，保证不赚钱，也保证不亏钱，这是我给网友的建议。

提问：我是烟台日报的传媒记者，我问一下，今天总体感觉世界一片黑暗，我们改革开放30年，次贷危机来了以后，会不会是辛辛苦苦30年，会不会一夜回到改革前。

朗教授：这个问题问得太好了，这个不是我造成的该黑暗就是黑暗，该乐观就是乐观，为什么你们来听我的演讲，为什么大家欢迎听我的演讲，我是讲实话的，有良知的学者我不想骗你们，如果你认为是悲观就是悲观，但是事实只有一个，我今天给你讲的是事实，只要你要怎么做，千万不要问我，该不该炒股，这个我是不回答的，你只要了解了我讲的所有故事，该有的事你自己做判断。

提问：我记得第一次听您的课是在北京，当时给我印象最深的是在北京，出了三个，你错了，你错了，你还是错了，今天听得比较多的是你疯了，包括今天的主题，当时不是说您，我想说的是，因为在座可能更多的是我们的民营企业，包括房地产的一些行业，如果您是生在烟台，在这个企业之中，根据你的大的形势恩，我觉得还是有机会，你刚才也提到乱世出英豪，我想提两个比较简单的，企业能否自救，下一步问题是如何自救。谢谢。

朗教授：你的问题问得非常好，我想这样回答你，烟台，所受到的冲击远远小于广东、江浙。尤其是你们房地产价格是这个价位之下的话，你们所受到冲击也会远远小于温州等地，如果冲击不这么大的的话，制造业本身需要烟台市政府的大力救助。那么，我这个时刻，我认为一个比较有效的短期的办法，是我们的制造业目前千万谨慎小心，不要随意扩张产能，维持现状，继续改进你的效率，降低成本，同时更重要的是烟台的民营企业需要政府大力的救助，因为一切财富的基本来源来源于企业，一定是企业赚钱了，才会给员工更多的薪水，只有员工拿到更多的薪水，烟台才会更繁荣，大家不要只看GDP，如果烟台只是少数几个城市，首先放弃 GDP 的理念，着重企业的利润的话，你就能排在名列前茅，就能更容易渡过难关，不要只看GDP，GDP不重要，政府能够把资源移到对企业的直接救助方面，这就是对企业最大的帮助，也就是对烟台市最好的建设，这个需要一个思维的转变，什么转变呢？你不要认为救助制造业是违反市场化行为，你想想我今天的演讲，国有化是目前全世界的潮流，我们如果能够未雨绸缪，透过政府的力量援助制造业渡过难关，将来烟台市一定能够更快上一个台阶。各位理解我意思吧？

提问：最近我们注意到十七届三中全会正在召开，好象是经过这样一个磨难以后，我们才认识到以前所谓的出口消费三辆马车的次序应该改改，改成拉动内需在前面，我们想听听朗教授对十七届三中全会的精神，怎样可以走出困境。谢谢。

朗教授：大方向我们肯定是赞同的，但是你是提的什么内需？千万不要把国家的有限资源又拉到以GDP为主的资源，我们资源的是有限的，不要为了提升我们的 GDP又去大量建公路、桥梁又搞这个，最后是什么下场呢？就是把制造业的谨慎的资金投入到过热的部门，使得我们制造业更难，提升内需就是我们政府要学习欧美各国的做法，将大量资源投入到与民生相关的制造业跟服务业上，这才是我们未来该走的路，我认为最迫切的做法是利用政府的力量协助制造业从过热的部门转入过冷的部门，帮助制造业渡过难关。因为山东讲的是原则性的问题，我建议一个原则性的方法来回答你，我认为这是解决目前难题的方法，至于次贷危机的危机，我们没有办法，我们只能是坐以待毙。

提问：目前很多的专家学者都在讲目前的经济状况下中国经济转型的很好的机会。

朗教授：这是胡说八道。这些家伙站着说话不腰疼，不懂中国的经济，中国90%的制造业根本不可能转型，要转型就是破产，做陶瓷做肉干什么的的怎么可能转型，不在于转型而再在六加一，如果高价收购养猪行业有没有让养猪转型，那么多的外资收购我们粮油有没有改成高科技，他们收购粮油、都在做六加一的产业链的高效整合，我们传统行业没有错，升级是错的。你忘了养猪往哪里升？你讲，粮油怎么升级？要做什么呢？就在做这些公司收购我们传统制造业之后做的就是六加一高效整合而不是产业升级，理解我的意思吗？

提问：中央在十七届三中全会提出经济有些扭转，如果将来有失去土地的农民会不会造成严重的社会问题。

朗教授：我知道你要问的是什么，我不想说的，你要想到，一句话，如果我国的制造业产能过剩的制造业一旦受到金融海啸的冲击之后你想到下一步是什么？大量的失业，你只能是吸收农村人口，别的话我不讲了。

提问：你一再强调国有化，我想问一下国有化和私有化的问题。

朗教授：她问的问题是我们这么多年的改革是反潮流的，别人忙着退市我们忙着上市，这是一个学习的过程，并不是说四年来都在国有化，全世界的金融机构都是私营的多，上市的多，这是为什么我们国家也走上这条路，只是今年的这两个礼拜开始变成国有化，我也相信这次演讲以后我们政府会有深刻的认识，重新做一个思考私有化不是目的，目的是如何保护金融体系的问题，私有化也好，国有化也好都不是问题，只要保持稳定才是最大的前提，我们过去的私有化是有问题，我们是以私有化而私有化，我们未来要为了维持金融稳定而实行国有化或者是私有化。欧美国家为什么要国有化并不是变成社会主义，他们注入最后一剂强心剂，就是提升信心，国有化不是目的，所以大家不要搞错了不要认为欧美在国有化。我们就呼吁政府国有化，我们今天呼吁政府一定要在维持金融稳定的前提下，产生各种有益的方案，达成金融稳定，维护老百姓的信心，目前欧美是国有化，中国最重要的是维持老百姓的信心，我们中国也要做这样的事，维持老百姓的信心，至于怎样做也是更要考虑的问题，理解我的问题吗？

提问：在现在的经济环境作为经济学家与我们普通老百姓提一点建议，现在的情况下，投资房产还是比较保值的吗？

朗教授：房地产我这样讲好了，以亚洲各国为例，包括香港台湾韩国为例，房地产在足够长的时间下，包括十年到二十年以上，相对而言比股票市场更能够保值，这样波动是有的。我们现在会走上低谷也会，只要经济持续增长，情况会有所转换。你这样问的话，我相信回答是比较简单的，以台湾为例，台湾很富裕，原因和台湾老百姓都喜欢购买房屋有关系。举个例子，我们观察到广东的倒闭的企业会不会到台北，130亿美金，投入到台北干什么？买房子。陈水扁住的特区有一半是广东的台商买，有这种习惯，为什么这样的习惯呢？是台湾人致富的方法就是靠房地产。

提问：你好，朗教授，我只是一个高二的学生，所以我的问题可能过于浅显，请您多多包涵，我想问的第一个问题，你很有自信，而且你也很高的预见性，你今天分析的是我们现在所处的环境是多么灰暗，我想你为什么不分析为什么会这样分析，为什么不从美国的整个经济体系的建立过程中，从一战开始整个资本主义的经济体系是怎样建立的，为什么不从根源上探讨？

朗教授：应该从资本主义的本质开始，但是今天的时间不够。

提问：第二个问题我想问一下，前一段有学者说我们当下是处在人口红利期，我们今天知道这个说法是错误的，当我们大学毕业以后，我们面临的问题将会更多，我们将面临我们的爸爸妈妈爷爷奶奶将要全部靠我们养活，以及到时候考大学将会更难，研究生会更多，以及就业问题，我们现在应该做怎样的准备，才能在将来更好解决我们的人生，更好渡过我们的人生坎坷。

朗教授：你请坐，非常好，这位女同学，你高二是不是？你能问这么深刻的问题，我们对我们的下一代感到骄傲，我非常重视年轻人的问题，我才站起来回答你。因为她问的问题很深刻，我也希望我今天给你的回答能够改变你的一生，改变你的子女的一生，我非常严肃地站在这里，把你的两个问题做一个仔细的回答。我告诉各位我们的民族，我们这么多的年轻人都在学什么？讲一句难听的话，我们大学教育本身就是在摧残创造力。我们在干什么，我们在培养解题高手，像你有这种思路的女孩，甚至老师不会喜欢你，我必须以对你的重视表达我对教育的立场。我们中国的教育目的是在干什么，目的就是在训练你成为解题高手，我告诉你A我期待你讲 B，我告诉你C我期待你讲D，这么多年来，不要说朗教授的答案争议性很大，可是我们的大学教育没有培养学生这种能力，没有学生认为说这一切搞的都是错的，为什么今天一开始我们告诉你我们的媒体做的都是错的，我告诉你我们要否定A，你问的问题都是错的，我凭什么按照你的意愿回答B，到最后大家认为我可能是一个低端，偏激，甚至是争议性大，到最后发现原来思考的问题本身就是错误的，也就是说这种错误并不是一个学者专家的错误而是整个教育体系出了严重的错误，你们的子女只要在读完本科的结果就会是这样的结果，你告诉他A就是A，不会怀疑A是错的或者是C的错的，各位理解我的意思吗？我希望每位父母把我的话带回去给你的子女，怀疑告诉你的一切都是错的，只有这样才会培养你独立思考的创造力理解我意思吗？你问的我的第一个问题为什么这样重要，为什么按照我的思路讲，为什么不从y来讲，比如谈谈的原则，起源说不定这些才跟我们讲的有关，我可以讲，我在别的场合也说过，我讲了一句话，这是整个欧美国家对于整个资本主义的失望，这个话回答了你的问题，我从19世纪开始讲，我开玩笑说没有时间，但是我鼓励你这种说法，你高二学生没有听周杰伦的演唱会，你跑来听朗教授的演讲，这点我给里最高的崇敬。

看到高中生一追逐明星我就不舒服，我可能是嫉妒吧，这句话我也送给各位家长，为什么中国科技大的少年班是失败的，因为他们选拔的尖子学生根本不是天才是解题高手，这就是为什么他们培养不出真正的天才，真正的天才要像你这样问问题才能成为天才，永远怀疑A。第二个问题问得非常好，我把她的问题重复一遍等她长大以后，等她毕业以后，她的曾祖父增父母搞不好没有死，曾祖母、爸爸妈妈，结婚以后对方的一家人他们两口子养这么多的老前辈，哪个时候怎么办？最糟糕的是什么你辛辛苦苦考完了大学以后，大学一毕业保证失业，养也养不起，如果这样发展的话，中国十年二十年会成为最贫穷的国家，像我们这样的老人很多了，像他这样的也是，万一她找不到事怎么办？各位来宾有没有想到这个的严重性？她找不到事怎么办？我告诉你，为什么我要站起来回答你的问题，你已经帮我们所有的大学生问了朗教授一句话，我们为什么找不到事，我们连奉养父母的能力没有，我们为什么找不到事，因为产业政策都是错的，美国大学生比例这么高，我们如何搞教改，我们搞教改的原因是我们看到的美国的大学生这么多，我们误认为如果我们同样生产这么多的大学生就可以透过人力资本扩张像美国那样富裕，因为我们到处都是大学，最后发现今年培养出580万大专生，大部分找不到事。为什么？我有孙子了，我很关心这个事，我告诉你原因，那就是因为，真正需要大学生的是整条产业链中的“六 ”制造业这个“一”是不需要大学生的。理解了吗？那么你们问我了，难道搞教改的人不知道吗？我告诉你他就是不知道。他完全不知道美国多学生比例这么高的原因，是因为他们掌控着整个产业链的“六”，而我们掌控的是“一”，制造业本身不太需要大学生，因此烟台很多的工厂从董事长到保安没有一个大学生，有些工厂不是所有的啊，因为制造业不需要大学生，产品设计、零售规划、仓储物流这个需要大学生，可是我们都不掌控。都由谁掌控呢？由欧美各国掌控着。

这样一来的话，你会知道为什么中国长此下去会成为最贫穷的国家，因为我们掌控了价值链中最不重要的一个环节，因为掌控了6+1之后的“1”之后，带来的必然结果就是给你们一个最差的自然资源，挖光、用光的自然环境以及剥削的劳工给你们了，我们这一代是最对不起下一代了。这是我为什么站起来回答你的问题。

主持人：我相信今天朗教授精彩的演讲给留下了深刻的印象，接下来，让我们站起来以最热烈的掌声欢送朗教授、感谢朗教授！

Swetter is on the way

推荐一个不错的学习网站：启航

ProC

改写为C/S模式

vi常用命令

写软件的需求分析全方位攻略

Oracle Test05

Oracle Test04

Oracle Test03

Oracle Test02

Oracle Test01

c写的小玩意

毕业设计（新增加密解密工具）

查看SQL SERVER 加密存储过程,函数,触发器,视图

毕业设计(未完工)

咖啡全集

【又是一个偷懒的转载】Returning语句的几个小问题

Delphi中调试DLL文件（感谢liangpei2008的回答）

Delphi做的百叶窗小程序

仿Windows的画图程序

UltraEdit中加入Delphi的语法高亮显示

右键菜单中加入当前文件目录的CMD快捷通道

终于搭建起TA系统了！！

【转】09年3月编程语言排行榜：VB江河日下，JavaScript稳步上升

【CSDN新闻】专家称微软网络品牌混乱陷入web 2.0困局

【转】Oracle重新配置EM简化版教程

【转】你的系统有多脆弱

【转】EM 无法启动&&重新完全配置EM

【《程序员》2008年4月刊】做人、做事，做架构师——架构师能力模型解析

文 / 周爱民

【转】Delphi中常用VCL函数说明

Delphi中属性的使用（unit2）

Delphi中属性的使用（unit1）

僵尸网络

【CSDN新闻】Websense 2009六大安全预测 黑客也玩“云安全”

大唐软件技术经理陈建慧《如何做好开发团队负责人---管别人先管好自已，请从做一名合格程序员开始》

【转】如何修炼成技术专家

算法

【转自CSDN】软件开发10大经典致命错误

完美程序（JDBC示范程序）

正则表达式(Regular Expression)测试程序【续】

正则表达式(Regular Expression)测试程序

25则爱情语录

嵌入式SQL编程的编译过程

嵌入式SQL技术原理

使用SQL编程

【典藏】Java学习之路

答华为笔试的最后一道题

开源网站

GNU通用公共许可证(GPL)

如何创建别人进不去也删不掉的文件

【财富论坛】郎咸平： 未来和下一代很悲惨 其二

【CSDN新闻】Websense 2009六大安全预测　黑客也玩“云安全”

【财富论坛】郎咸平：未来和下一代很悲惨其二