| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3283319
建立时间:2005年6月6日 |
| |
|
 [delpih编程]delphi.net (bds2005,2006)中导入excel
软件技术
吕向阳 发表于 2009/11/3 23:07:41 |
procedure TWebForm2.Button4_Click(sender: System.object; e: System.EventArgs);
var
strx, strExcel, strconn: string;
conn: OleDbConnection;
mycommand: OleDbDataAdapter;
dt: datatable;
i: integer;
xkh: bkh;
akhpay: bkhpay;
begin
strConn := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/aaa.xls;Extended
Properties=Excel 8.0;';
conn := OleDbConnection.Create(strConn);
conn.Open();
strExcel := '';
myCommand := nil;
strExcel := 'select * from [She |
|
|
[delpih编程]mygeneration代码生成器中的类型判断（备查)
软件技术
吕向阳 发表于 2009/10/18 17:10:01 |
private string GetJavaType(IColumn column)
{
string sqlServerType = column.DataTypeName;
int charLength = column.CharacterMaxLength;
switch (sqlServerType)
{
case "bit":
return "Boolean";
case "decimal":
case "float":
case "numeric":
case "money":
case "smallmoney":
case "real":
return "Decimal";
case "tinyint":
case "smallint":
case "int":
case "bigint":
return "Integer";
case "smalldatetime":
case "datetime":
return "Ti |
|
|
[delpih编程]mygeneration做的一个模板，备忘
软件技术
吕向阳 发表于 2009/10/18 16:57:05 |
＜％
ｏｎ ｅｒｒｏｒ ｒｅｓｕｍｅ ｎｅｘｔ
Ｄｉｍ ｄａｔａｂａｓｅ
Ｄｉｍ ｏｂｊＴａｂｌｅ
Ｄｉｍ ｏｂｊＣｏｌｕｍｎ
Ｄｉｍ ｉｎｔＬｐ
Ｄｉｍ ｂＩｎＦｉｒｓｔ
Ｄｉｍ ｓｔｒＰｒｏｃＮａｍｅ
Ｄｉｍ ｂＨａｓＣｏｍｐｕｔｅｄ
Ｄｉｍ ｓｔｒＷｈｅｒｅＣｌａｕｓｅ
Ｄｉｍ ｓｔｒＷｈｅｒｅＡｎｄ
Ｄｉｍ ｓｔｒＷｈｅｒｅＦｉｅｌｄｓ
Ｄｉｍ ｓｔｒＣｏｍｍａ
Ｄｉｍ ｔａｂｌｅＮａｍｅｓ
Ｄｉｍ ｔａｂｌｅＮａｍｅ
Ｄｉｍ ｂｕｆｆｅｒ
Ｄｉｍ ｗｒｉｔｅＴｏＤａｔａｂａｓｅ
Ｓｅｔ ｄａｔａｂａｓｅ ＝ ＭｙＭｅｔａ．Ｄａｔａｂａｓｅｓ（０）
Ｓｅｔ ｔａｂｌｅＮａｍｅｓ ＝ ｉｎｐｕｔ．Ｉｔｅｍ（＂ｌｓｔＴａｂｌｅｓ＂）
ｗｒｉｔｅＴｏＤａｔａｂａｓｅ ＝ ｉｎｐｕｔ．Ｉｔｅｍ（＂ｃｈｋＢｏｘ＂）％＞
ｕｎｉｔ ｕａｌｌｃｌａｓｓ；
ｉｎｔｅｒｆａｃｅ
ｕｓｅｓ Ｗｉｎｄｏｗｓ， Ｍｅｓｓａｇｅｓ；
< |
|
|
[delpih编程]DELPHI组件源码别到处放
软件技术
吕向阳 发表于 2009/9/22 21:05:00 |
自己编写的一个delphi组件，因为多次改动，多次重装delphi ,各版本
的组件源码到处放。一开始，自己没有意识到这个问题的严重性，直到
今天，因为自己对原有的源码进行了修改完善，但始终调试不能成功，
多次将组件从控件管理中删除出来后重增加也不行。但代码确信没有问
题。
此时通过链接发现，在程序中插入的组件源码并不在修改后的文件上，
这才知道，源码的到处放的后果是这样的。花了一个多小时，才知道这
个问题。
将众多的源码版本删除，只留下自己正在编辑的那一个，问题解决。
|
|
|