| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3268500
建立时间:2005年6月6日 |
| |
|
 [delpih编程]delphi 6控件重名不能安装的解决
软件技术
吕向阳 发表于 2009/3/30 11:17:25 |
delphi中经常会出现安装控件时，原有旧控件存在，新控件与原控件重
名不允话安装的情况。
只要知道相关的控件包名称，再进入
C:\Program Files\Borland\Delphi6\Projects\Bpl路径找到相关的文
件删除即可。
再次进入delphi时会提示该包已不存在，是否查找等提示，按NO进入后
再安装新控件则不存在问题了
|
|
|
[delpih编程]COMBOBOx同时显示两列数据
软件技术
吕向阳 发表于 2009/3/30 9:14:58 |
objItemEx=Class
public
caption:string;
value:string;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
objItem:ObjItemEx;
i:integer;
begin
for i:=1 to 26 do
begin
objitem:=ObjItemEx.Create;
objitem.caption:='Caption' + inttostr(i);
objitem.value:='value' + inttostr(i);
combobox1.Items.AddObject('ComboBox' + inttostr
(i),objitem);
end;
combobox1.ItemIndex:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
objItem:ObjItemEx;
begin
objitem:=(combobox1.Items.Objects[combobox1.ItemIndex]
as ObjItemEx);
showmessage(objitem.caption);
showmessage(objitem.value );
end;
|
|
|
收藏一些办公模板，分享了（WORD,EXCEL)
软件技术
吕向阳 发表于 2009/3/24 21:28:16 |
http://www.mydown.com/tests/gongwenfanben/bangongbiaoge/369/417369.shtml#downlistss
http://www.newsunday.com/post/786.html
1、预算模板：无论你是管理你的个人预算或是婚礼预算或是公司财政预算，你都可以在这里找到答案。
2、资产负债表：各种不同类型的资产负债表模板。
3、成本报告：这里提供的模板，方便你记录和控制自己及公司的开支预算，据此可做出相应的成本规划。
4、商业表格：在这里你可以找到不同类型的商业表格，从旅行的申请表到汽车运费日等，无所不包。
5、库存模板：管理和跟踪你的库存信息。
6、发票、工作订单类模板：不管你的工作在零售业或是服务业，在这里你都会找到一款适合自己的发票、工作订单模板。
7、订购单：这些模板不仅能将你的项目准确按时投送到指定地点，还可以用不同的颜色加以标注。
8、收益：各种收益统计模板。
9、工作时间记录单：使用这些模板来跟踪雇员的工作时间。
10、各种报告：不同的财务和管理报告模板。
11、清单类模板：为电话清单、货物清单、礼物清单等订制的模板
12、计划模板：企业和个人的规划类模板。
13、日程类模板：如员工的轮班方式，公司及个人的活动安排等。
14、Vertex42 Excel Templates：包括大量的excel模板，有些还提供使用手册。
15、OZGrid Excel Templates Page：收集了大量知名excel模板的网页。
下面几个是中文的excel模板
16、办公室excel表格
17、1000个excel表格模板
18、求职简历模板
19、实用的excel表格
20、五百个EXCEL模板 |
|
|
[delpih编程]DELPHI中memo的查找操作（转）
软件技术
吕向阳 发表于 2009/3/24 9:58:22 |
procedure TForm1.dlgFindMemo1Find(Sender: TObject);
var
i,PosReturn:Integer;
str:string;
begin
i:=Memo1.SelStart+memo1.SelLength ;
str :=Copy(Memo1.Text,i+1,Length(Memo1.Text));
PosReturn :=Pos(dlgFindMemo1.FindText,str);
if PosReturn <>0 then
begin
Memo1.SetFocus;
Memo1.SelStart:=PosReturn+i-1;
Memo1.SelLength:=Length(dlgFindMemo1.FindText);
end;
end;
|
|
|