- 博客(31)
- 资源 (5)
- 收藏
- 关注
原创 用Delphi加密Access文件头
下面就用Delphi作个简单的加密解程序: 用到的加密解函数如下: const titlestr:array[0..15] of byte= ($00,$01,$00,$00,$53,$74,$61,$6E,$64,$61,$72,$64,$20,$4A,$65,$74) ; /
2009-04-15 08:43:00 1364
转载 关于汉字换行问题
procedure QrDbTextOnPrint(sender: TObject; var Value: String); var i : integer; begin FMemo := TMemo.Create(FWinControl); FMemo.Parent := se
2008-01-14 19:09:00 807
转载 SELECT 与 SET 对变量赋值的区别
SQL Server 中对已经定义的变量赋值的方式用两种,分别是 SET 和 SELECT。对于这两种方式的区别,SQL Server 联机丛书中已经有详细的说明,但很多时候我们并没有注意,其实这两种方式还是有很多差别的。SQL Server推荐使用 SET 而不是 SELECT 对变量进行赋值。当表达式返回一个值并对一个变量进行赋值时,推荐使用 SET 方法。下表列出 SET 与 SEL
2008-01-10 19:21:00 536
转载 全国各个省市数据库
--各个省市资料http://www.xzqh.org/quhua/index.htm出处:http://blog.csdn.net/shunzi110/archive/2007/03/09/1525479.aspx--不足:23山东和16山东重复--创建DBPromary数据库 create database DBPromaryuse DBPromarygo--创建promary表cre
2007-12-24 16:53:00 733
原创 用delphi动态创建的access表,设置其字段的“是否允许空字符串”为真
var access:OleVariant; begin access := CreateOleObject(ADOX.Catalog); access.Create(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/zz/temp.mdb); access:=null; try
2007-12-20 09:45:00 2432
转载 精妙的SQL和SQL SERVER 与ACCESS、EXCEL的数据导入导出转换
今天做个行列转换 找到的好语句 解决了我的问题 * 说明:复制表(只复制结构,源表名:a 新表名:b) select * into b from a where 11 * 说明:拷贝表(拷贝数据,源表名:a 目标表名:b) insert into b(a, b, c) select d,e,f from b; * 说明:显示文章、提交人和最后回复时间
2007-12-14 14:31:00 975
转载 使用Delphi快速开发ActiveX控件
ActiveX控件也就是一般所说的OCX控件,它是ActiveX技术的一部分。ActiveX是微软公司推出的基于组件对象模型COM的技术,包括对Windows 32位应用编程接口(Win32 API)和组件对象模型的一系列扩充和增强,目标是把计算机桌面环境与因特网环境集成起来,同时保护在Windows技术中现有的开发投资。微软的ActiveX技术根本上就是修改过的OCX技术,使它能够跨越Inter
2007-09-27 15:31:00 1791
转载 从编程中悟出八个字:1专 2静 3谦 4筹 5悟 6慎 7透 8恒
从编程中悟出八个字:1专 2静 3谦 4筹 5悟 6慎 7透 8恒 1"忽如一夜春风来,千树万树梨花开."现在的技术百花齐放,切忌不可贪. 不要盲目的追求新技术,唯有算法才是灵魂. 2"非淡泊无以明志,非宁静无以致远."要想达到高的境界,必须能够心静. 年轻的程序员都很浮躁,这一点对于他们来说尤为的重要. 3谦不仅指技术,而且还指人.
2007-07-30 10:25:00 1426 1
转载 [转]使用T_SQL脚本创建SQLServer2000后台计划作业任务
使用T_SQL脚本创建SQLServer2000后台计划作业任务作者:蒋勇 http://www.kipway.com 转载请保留此行 在数据库的应用系统中,充分的利用数据库的后台服务端的功能可以可以简化客户端前台的工作,更可以降低网络的负荷,同时使整个系统设计更合理,便于维护移植和升级,后台计划任务作业在很多数据库应用中经常会用到,当然是配合存储过程使用。 在SQL Server20
2007-03-15 10:08:00 978
转载 窗体总在最前
type TForm1 = class(TForm) procedure CreateParams(var Params:TCreateParams);override; public { Public declarations } end; var
2006-12-25 08:48:00 917
转载 SQLSERVER中易混淆的数据类型
转载于http://hi.baidu.com/guoxiaodan/blog/item/8f90a177a30bc71bb051b95c.html(1)char、varchar、text和nchar、nvarchar、ntext char和varchar的长度都在1到8000之间,它们的区别在于char是定长字符数据,而varchar是变长字符数据。所谓定长就是长度固定的,当输入的数据长度没
2006-12-23 09:41:00 707
原创 获取文件大小
function TFrm_Main.GetMyFileSize(sFileName: String): Real; var M:TMemoryStream; begin M:=TMemoryStream.Create; M.LoadFromFile(sFileName); Result:=M.Size;
2006-11-30 10:58:00 693
转载 SQL语句导入导出大全
SQL语句导入导出大全******* 导出到excelEXEC master..xp_cmdshell bcp SettleDB.dbo.shanghu out c:/temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P"" /*********** 导入ExcelSELECT * FROM OpenDataSource( Micro
2006-10-16 09:58:00 732
转载 C/C++ 程序设计员应聘常见面试试题深入剖析
原文地址:http://www.blogjava.net/faintbear/archive/2006/07/27/60321.html.引言 本文的写作目的并不在于提供C/C++程序员求职面试指导,而旨在从技术上分析面试题的内涵。文中的大多数面试题来自各大论坛,部分试题解答也参考了网友的意见。 许多面试题看似简单,却需要深厚的基本功才能给出完美的解答。企业要求面试者写一个最简单的s
2006-10-08 10:48:00 691
转载 快捷菜单
问题如下:把数据库里的数据用来动态生成菜单项,但是我不知道怎样判断我单击了哪个菜单项,所有的单击事件都指向了N1Click过程,因为我不知道会随数据库的数据产生多少菜单项。procedure TDBXP_RKD.edt_spmcClick(Sender: TObject);vari_spmc,count_spmc:integer;begin with dm_dbxp.qry_spmc do be
2006-05-20 17:38:00 1082
原创 在原数据库的基础上强制还原一数据库
在原数据库的基础上强制还原一数据库,其中“移至物理文件名”也改变了(新数据库文件与原数据库不在同一路经) 的sql语句怎么写啊,谢谢 !--------------------------------------------------------------------------------------------------------------------answered1
2006-05-15 10:19:00 1401
转载 面向对象的程序(http://blog.csdn.net/qi_jianzhou/archive/2006/03/31/646124.aspx)
在做一个查询时,我用到了面向对象的一些知识,现在总结一下 程序中需要查询功能,查询要灵活,界面统一。这样许多的查询窗体的界面都是一样的,要是一个窗体一个窗体的做,而且界面是一样的,就是功能不同,很累的,我就想该怎么做省事呢?想到了Delphi 的窗体继承的特性,对,我可以先做一个模板,然后让别的窗体继承这个窗体,不就达到界面的统一了,而且继承的窗体也可以在原窗体的基础上再添加控件,好就这么
2006-04-07 08:25:00 997 1
转载 format函数的使用
function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas功能 返回按指定方式格式化一个数组常量的字符形式说明 这个函数是我在Delphi中用得最多的函数,现在就列举几个例子给你个直观的理解"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型Format(x=
2006-04-07 08:20:00 1179
原创 delphi调用sql存储过程,并获取结果
delphi调用sql存储过程,并获取结果 adostoredproc1.Close; adostoredproc1.ProcedureName:=sp_thchl; adostoredproc1.Parameters.Clear; adostoredproc1.Parameters.CreateParameter(out,ftInteger,pdoutput,1,1);
2006-03-03 09:17:00 1358
原创 压缩数据库日志
压缩数据库日志方法:DUMP TRANSACTION [数据库名] WITH NO_LOGBACKUP LOG [数据库名] WITH NO_LOGDBCC SHRINKDATABASE([数据库名]) 程序里面的方法:压缩数据库日志--1.清空日志exec(DUMP TRANSACTION [+@dbname+] WITH NO_LOG) --2.截断事务日志:exec(
2006-02-24 09:41:00 842
原创 八条编程的建议 (zt)
1。从睡眠获得清醒的智力对我们有很大的帮助,顺便记得把电脑擦拭一下,干净的盘子可以增加食欲。2。连续编程不要超过二小时,或最多不超过三小时。然后就出去散散步,放松一下,将刚才的思维进行很好的整理。每半小时就要稍微闭目休息一下,因为半小时以后我们已从一个coder 变成一个Painter 。3。不要每天有系统有规则的练习写程序,系统性毁灭自发性,而自发性是编程真正的灵魂。4。复习诸如数据
2006-02-22 08:22:00 809
原创 怎么把Listview中的记录前checkbox打钩的记录选出来
procedure TForm1.Button1Click(Sender: TObject);varI: Integer;begin Caption:=; For i:= 0 to ListView1.Items.Count-1 do begin if ListView1.Items[i
2006-02-14 20:14:00 1439
原创 游标小样
cursor example declare @i int , @a varchar(20)declare cur_cursor cursor for select a from table1set @i=1while @ibegin open cur_cursor fetch cur_cursor
2006-01-21 21:27:00 692
原创 三九
我国民间把冬至过后的日子称作“数九寒天”,并编成“冬九九歌”来描述气候变化:“一九二九不出手;三九四九冰上走;五九六九沿河看柳;七九河开;八九雁来;九九加一九,耕牛遍地走”从中读来,三九四九是最冷的时期,故有“冷在三九”或“三九严寒”的说法
2006-01-19 08:54:00 624
原创 trigger for update
触发器在 for update 时 select from inserted 或 deleted 都可以在select语句中是没有updated的。(learn from Piip)
2006-01-14 15:43:00 993
原创 Delphi语句转换成批处理
var i,i1,i2: String;begin i := MyData.ini; i1 := MyData1.ini; i2 := MyData2.ini; if FileExists(i1) then begin ReNameFile(i,i2); ReNameFile(i1,i); end else if FileExists(i2) then b
2006-01-12 15:25:00 600
原创 Combobox不能正常输入字符
我用一Combobox控件,预先在Items里输入一些内容,Style是csDropDown,Font是GB2312。在win2000下使用没有问题,但在98下Combobox输入汉字后出来一些乱符,在两台98上都是这样?谢谢了!*************************************************************************************
2006-01-12 14:43:00 1039
原创 窗口关闭时报错:System Error Code 1400. 无效的窗口句柄
在Form Create的时候,我创建一多线程,来查询数据。但当窗口关闭时报错:System Error Code 1400. 无效的窗口句柄谢谢!********************************************************************************************************************ReplyMan:h
2006-01-12 14:41:00 16679 2
原创 the second blog
这是我的第二个blog,记得blog风开始流行的时候,曾经在博客中国注册过一个账号,并写了几篇文章,但没有坚持下来。这个也不打算用来写博。只记录自己曾经提问过的一些问题及回复。
2006-01-12 14:35:00 749
erp 详细流程图(图形目录)
2011-03-31
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人