静态博客入口:http://blog.5d.cn/user8/wwle/
2008/05/26 | 裁减图片
类别(语言类学习笔记) | 评论(0) | 阅读(43) | 发表于 13:31
procedure TForm1.Cut(sf:string);
var
  jpg: TJPEGImage;
  Bmp: TBitmap;
begin
  jpg := TJPEGImage.Create;
  Bmp := TBitmap.Create;
  try
    jpg.LoadFromFile(sf);
    self.Image1.Picture.LoadFromFile(sf);
    Bmp.Assign(jpg);
    bmp.Canvas.CopyRect(rect(0,0,jpg.width,jpg.Height),bmp.Canvas,rect(0,0,jpg.Width,jpg.Height-30));
    if SavePictureDialog1.Execute then
    begin
      jpg.SaveToFile(self.SavePictureDialog1.FileName);
      self.Image2.Picture.LoadFromFile(self.SavePictureDialog1.FileName);
    end; 
2008/05/25 | 谈Delphi编程中资源文件的应用
类别(语言类学习笔记) | 评论(0) | 阅读(252) | 发表于 11:03

谈Delphi编程中资源文件的应用
                                                 陈经韬
(一)初级应用篇:
   资源文件一般为扩展名为res的文件.在VC中资源文件用得非常普遍,但Delphi
在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE
(一般位于\Delphi\BIN目录下),我们完全可以做出跟VC一样效果的文件来。
   资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译,
生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如在一条程序中你要
临时调用一幅图片,一般作法是把图片放在某一路径下(通常是主程序所在路径),
但如果用户路径误删你的图片文件,则可能使程序找不到相应文件而出错崩溃.另外,
如果你想自己的程序界面美观,想用一些自定义光标,也要用到资源文件。
   资源文件的使用步骤为:
1.编写rc脚本文本
 

2008/05/23 | Access 导入导出excel资料
类别(语言类学习笔记) | 评论(0) | 阅读(451) | 发表于 13:28

以下为导出:

For   Each   SQL   In   CurrentDb.TableDefs  
  If   UCase(Mid(SQL.Name,   1,   2))   <>   "MS"   Then  
  dd="select   *   into   [excel   8.0;database=d:\temp\"   &   SQL.Name   &".xls]."  
  &   SQL.Name   &   "from   "   &SQL.Name  
  currentdb.execute   dd  
  End   If  
  Next  
  or  
  select   *   into   [excel   8.0;database=d:\temp\123.xls].dd   from   tt

以下为导入:

select * into bbb from [excel 8.0

2008/05/23 | 再贴一个关于操作 Excel 的帖子
类别(语言类学习笔记) | 评论(0) | 阅读(415) | 发表于 13:03

转贴:来自http://delphi.ktop.com.tw
Delphi控制Excel2000

希望這分資料,為論壇中的各位會員關於EXCEL操作的問題提供一些幫助。
同時也希望各位能將自己整理的、或已有的資料共享出來。
這樣可以減少大家的「重複勞動」嗎?
技術在於交流,經驗在於積累!!!!

一.使用動態創建的方法
首先創建 Excel 對象,使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );

1) 顯示當前窗口:
ExcelApp.Visible := True;

2) 更改 Excel 標題欄:
ExcelApp.Caption := '應用程序調用 Microsoft Excel';

3) 添加新工作簿:
ExcelApp.WorkBooks.Add;

4) 打開已存在的工作簿:
ExcelApp.WorkBooks.Open( 'C:\

2008/05/21 | 转载
类别(语言类学习笔记) | 评论(0) | 阅读(146) | 发表于 09:14

http://blog.csdn.net/xzhifei/archive/2007/02/26/1515074.aspx

原创 自画TListView带进度条的Item

新一篇: WindowsNT/200 环境下要自订纸张尺寸(自定义页面)

2008/05/19 | 一些操作语句
类别(数据库学习笔记) | 评论(1) | 阅读(37) | 发表于 11:22

use tt
go

declare @s varchar(8000)
set @s=''
select @s=@s+',['+cap+']' from a
--exec(@s)
print @s

/*,[aa        ],[bb        ],[cc        ],[dd        ],[ee        ],[ff        ],[gg        ]*/

go  --以上使用sql  以下 oracle

 

 

/*
decode()函數使用技巧
·软件环境:
1、Windows NT4.0+OR

2008/05/16 | 不想再写,看来不行.文件存入数据库
类别(其他相关笔记) | 评论(0) | 阅读(192) | 发表于 17:04

不想再写一行代码了,但是不行!

事情逼你要写,有些东西不太清晰了,需要复习!

如果用vfp 的话,可以这样使用filetostr() 和 strtofile().这两个函数.

如果用delphi 哪可以这样:

procedure   TfrmLoadTemplate.OpenDocandSaveClick(Sender:   TObject);  
  begin  
      OpenDialog1.Filter:='WORD文档(*.DOC)|*.DOC';{从对话窗选择文件}  
      if   OpenDialog1.Execute   then  
      begin  
       

2008/05/16 | 用A表数据更新B表数据的示例
类别(数据库学习笔记) | 评论(0) | 阅读(155) | 发表于 17:00


create table at(id int ,cap char(10) default(''))
create table bt(id int ,cap char(10))


declare @i int

set @i=1
while @i<100
begin
  insert into at values(@i,default)
  set @i= @i+1
end


set @i=1
while @i<100
begin
  insert into bt values(@i,'aa'+cast(@i as char(4)) )
  set @i= @i+1
end

 

update at set at.cap =bt.cap from at,bt where at.id=bt.id

select * from at
select * from bt

2008/05/13 | "地震震出"了朋友送的书
类别(其他相关笔记) | 评论(1) | 阅读(22) | 发表于 16:04

  昨天由于特殊的原因,就提前走了.

  回家之后觉得不知道这多余的时间要做什么?就看看书柜,哎,有两本朋友送的书 <<delphi 深度历险>> <<delphi 编程思想>> (他已经转学vc++,去了上海).快四年了(真是书非借不能读也).

  对于我这个delphi业余爱好者,突然间对作者的名字熟悉起来.

  陈宽达,李维,侯捷,等等,又清晰了. 

  因为已经好长时间不再编程了,现在又看了起来,觉得沉淀的。

于是找出了他们的 网页去看看:

http://jjhou.csdn.net/

http://gordonliwei.spaces.live.com/

2008/05/12 | RecordSet - ADO三大对象的属性、方法、事件及常数之三
类别(网页类学习笔记) | 评论(0) | 阅读(311) | 发表于 14:19
RecordSet - ADO三大对象的属性、方法、事件及常数之三
2008/05/12 | asp(rs.open sql,conn,a,b游标类型 )
类别(网页类学习笔记) | 评论(0) | 阅读(277) | 发表于 14:15
asp(rs.open sql,conn,a,b游标类型 )
2008/05/09 | T60/X60 SATA 硬盘驱动下载及安装
类别(其他相关笔记) | 评论(0) | 阅读(3970) | 发表于 17:57

T60/X60 SATA 硬盘驱动下载及安装

Published on Thursday, March 15th, 2007 1:30 pm GMT
Category: Miscellanea

T60/X60 SATA 硬盘驱动下载

安装方法一:

1、通过上面的链接下载得到AHCI驱动。

2、解压缩驱动在一个任意的目录里,(9个文件和一个文件夹)。

3、开始->控制面板->系统->硬件->设备管理器->IDE ATA/ATAPI控制器->第一个设备(名字长记不清了)->驱动程序->更新驱动程序->是。仅这一次->从列表安装->最后一项(不要搜索)->从磁盘安装->选择那个驱动的解压缩目录->iaahci文件->这里一定要注意需要选择82801GBM的那个驱动->OK 。

4、更换驱动后可以复位BIOS的设置,

2008/05/08 | VFP的皮肤
类别(语言类学习笔记) | 评论(0) | 阅读(81) | 发表于 23:22

明天,有空到梅子论坛看看关于VFP换皮肤的问题。

总感觉用VFP写出的界面不太美观,在梅子论坛下载了一个皮肤类,使用时设置有点不太顺利。不过效果还是出来了。

明天要好好看看,研究一下!

2008/05/08 | 国标网线制作方法
类别(其他相关笔记) | 评论(0) | 阅读(71) | 发表于 11:23
           第七代系统使用国标直通线,两种标准都可用

RJ-45连接器的线排列有两种方法,分别是568B和568A,我们常用 568B方式,排列见下图:

实际上在10M 100M网络中,仅仅使用12 36 这四根线,1000M网络要用所有的。
两边使用同样标准的线称为直通线(可以用于七代系统),用于PC到HUB普通口,HUB普通口到HUB级连口之间的连接。
两边使用不同样标准的线称为级联线(不可以用于七代系统),用于PC到PC,HUB普通口到HUB普通口之间的连接。
不按照标准排列的线在100M工作时会出现不可预测的丢包现象。
产生以上丢包的原因是线对之间相互干扰太大,如果你不记得标准,至少应该让12 36 各用一对扭在一起的线,因为他们各自彼此是差分驱动的一对。
遵循EIA/TIA 568B的标准来制作接头。根据图示,线对

2008/05/07 | 為Grid增添一個新的功能:按Cloumn列排序!
类别(数据库学习笔记) | 评论(0) | 阅读(391) | 发表于 23:06

天气:心情:

為Grid增添一個新的功能:按Cloumn列排序!

説明一下,運用這個功能要使用到VFP8及後續版本中的動態事件綁定的功能!並有可能還要使用到CA類,所以對於還在使用VFP6的朋友就稍微有點不適,但該方法依舊可以使用,只是在代碼的編寫上複雜了許多,我不會對VFP6使用該功能作講述,希望你們自己去摸索,要么。。。就趕快升級你的VFP吧!

該步驟我是依照具體使用方法一步一步來的,如果你一邊對照設計就應該不會錯了!

第一步:肯定是建立一個表單,並添加好Grid控件了(