| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3267709
建立时间:2005年6月6日 |
| |
|
 [delpih编程]fastreport的主从表设计(用adoquery连接)
软件技术
吕向阳 发表于 2009/6/30 22:22:38 |
1.主表与从表通过X_A这个字段做联系的,主表名为:X_ENG,从表名
为:l_eng,主表用ADOQUERY1做连接,从表用ADOQUERY2做连接.
2.ADOQUERY1的SQL.TEXT(select * from x_eng),
ADOQUERY2的SQL.TEXT(select * from l_eng where x_a=:ll).
3.加入一个datasource,adoquery1,adoquery2的datasource都指向它
4.很关键 ，在ADOQUERY1(主表)的AfterScroll事件写入如下代码:
with DataSet do begin
adoquery2.close;
adoquery2.Parameters[0].value :=FieldbyName('x_a').value;
adoquery2.Open;
end;
5.加入两个tfrxdataset,分别连接adoquery1,adoquery2
6.此时进入双 |
|
|
[delpih编程]delphi中当月第一天最后一天的函数
软件技术
吕向阳 发表于 2009/6/30 16:42:57 |
//获取任务栏尺寸
procedure GetMonthDay(const ADate: TDateTime;
var AMonthFirst, AMonthLast: TDateTime);
var
Year, Month, Day: Word;
begin
DecodeDate(ADate, Year, Month, Day);
AMonthFirst := EncodeDate(Year, Month, 1);
if Month + 1 > 12 then
AMonthLast := EncodeDate(Year + 1, 1, 1)
- 1
else
AMonthLast := EncodeDate(Year, Month + 1,
1) - 1
end;
procedure GetMonthDay(const ADate: TDateTime;
var AMonthFirst, AMonthLast: TDateTim |
|
|
[delpih编程]delphi 的webbrowser执行javascipt代码小例
软件技术
吕向阳 发表于 2009/6/29 21:17:52 |
procedure TForm14.Button15Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.parentWindow.execScript
('changePage(''2'')', 'JavaScript');
//changePage(''2'')是javascript程序名及参数
end;
|
|
|
[delpih编程]fastreport 报表从程序中传变量值到报表中
软件技术
吕向阳 发表于 2009/6/29 14:03:55 |
fastreport 报表从程序中传变量值到报表中
1.在frxreport编辑状态下进入报表的report菜单下的variables子菜
单,add几个，并edit改名，最后按确定，不确定不生效，确定是一个对
勾状按钮有OK标识。假定加了个了名为myvar1的变量
2.进入程序中选frxreport报表，进入其getvalue事件编辑
if varName = 'myvar1' then
Value := '这里填变量的值';
就成了
|
|
|
[delpih编程]BusinessSkinForm使用
软件技术
吕向阳 发表于 2009/6/29 9:22:06 |
BusinessSkinForm使用
1、先放bsBusinessSkinForm、bsSkinData、bsStoredSkin各一个到窗
体上
2、修改bsBusinessSkinForm的SkinData属性为bsSkinData1
3、修改bsSkinData1的StoredSkin属性为bsStoredSkin1
4、修改bsStoredSkin1的filename属性，指向一个皮肤文件，例如我的
55套皮肤包是放在C:\Program Files\Borland\Delphi7\BSF-Skins
\Skins文件夹里，我就修改
bsStoredSkin1的filename属性为C:\Program Files\Borland\Delphi7
\BSF-Skins\Skins\Animate\skin.ini
5、在delphi设计窗口中按下F9
|
|
|
[delpih编程]自修改的SplitString完成字符串分割，结果返回到一个stringlist列表
软件技术
吕向阳 发表于 2009/6/29 6:53:10 |
自修改的SplitString完成字符串分割，结果返回到一个stringlist列
表
绝大部分范例实际中用分割符为一个字符，而不是一个字符串，使用范
围很窄。下例中ch可以是多个字符的字符窜。
function SplitString(const Source, ch: string): TStringList;
var
temp: string;
i: Integer;
len1: integer;
begin
Result := TStringList.Create;
if Source = '' then
exit;
temp := Source;
len1 := length(ch);
i := pos(ch, Source);
while i <> 0 do
begin
Result.add(copy(temp, 0, i - 1));
Delete(temp, 1, i + len1 - 1);
i := pos(ch, temp);
end;
Result.add(temp);
end;
|
|
|