论坛: 编程破解 标题: 帮帮忙吧!!!delphi 复制本贴地址    
作者: cike [cike]    论坛用户   登录
procedure Tw_dwlr.TreeView1Click(Sender: TObject);
VAR
n:integer;
s1,s2,s3:string;
a1,a2:pchar;
begin
IF (Treeview1.Selected.Level = 2 )  then
  BEGIN
    S1:=trim(Treeview1.Selected.Text);
    a1:=pchar(s1);
    N:=Length(s1);
    a2:=strrscan(a1,'[');
    s3:=copy(s1,a2-a1+2,n-(a2-a1)-2);
    QUERY1.Close;
    QUERY1.SQL.Clear;
    QUERY1.SQL.Add('SELECT * FROM FCFYK WHERE FD_DWDM='''+S3+'''');
    QUERY1.Open;
  END;
end;
这是一棵树。请帮忙回答一下它的表达意思。小弟眼睛都花了

地主 发表时间: 04-02-25 19:48

回复: fox [farfox]   论坛用户   登录
procedure Tw_dwlr.TreeView1Click(Sender: TObject);
VAR
n:integer;
s1,s2,s3:string;
a1,a2:pchar;
begin
IF (Treeview1.Selected.Level = 2 )  then
  BEGIN
    S1:=trim(Treeview1.Selected.Text);
    a1:=pchar(s1);
    N:=Length(s1);
    a2:=strrscan(a1,'[');
    s3:=copy(s1,a2-a1+2,n-(a2-a1)-2);
    QUERY1.Close;
    QUERY1.SQL.Clear;
    QUERY1.SQL.Add('SELECT * FROM FCFYK WHERE FD_DWDM='''+S3+'''');
    QUERY1.Open;
  END;
end;

应该是一段根据树上的单位代码读取相应的信息的代码

B1层 发表时间: 04-02-26 09:12

回复: fox [farfox]   论坛用户   登录
这个树的第3级是 单位名称[单位代号] ,上一级应该是单位类别之类的东西, 不过,这程序可能比较烂,哈

B2层 发表时间: 04-02-26 09:16

回复: cike [cike]   论坛用户   登录
呵呵!!!fox大哥说的很对啊!这个程序确实烂。小弟初学编程还请大哥们多多指教啊
你能做一个给我类似的给我参考么
麻烦fox大哥了!!!


B3层 发表时间: 04-02-27 20:48

回复: cike [cike]   论坛用户   登录
还有能不能帮我解释一下
s1,a1,a2他们之间运算的过程啊!!!
小弟先谢大哥了啊!!!!

B4层 发表时间: 04-02-27 20:50

回复: cike [cike]   论坛用户   登录
我顶之又顶
fox大哥你多久来 啊
有哪位知道请给小弟帮助!!!
我给大家跪下了
谢谢!拜托了

B5层 发表时间: 04-02-28 09:45

回复: fox [farfox]   论坛用户   登录
假设鼠标点击treeview的node,该node的Level = 2了
假设该node的text是  第一个单位[firstcompany] ,那么

    S1:=trim(Treeview1.Selected.Text) ; //S1='第一个单位[firstcompany]';
    a1:=pchar(s1);                      //a1='第一个单位[firstcompany]';
    N:=Length(s1);                      //N=24;
    a2:=strrscan(a1,'[');              //a2='[firstcompany]'
    s3:=copy(s1,a2-a1+2,n-(a2-a1)-2);  //s3=firstcompany
    QUERY1.Close;                      //以下根据代号查相应的信息
    QUERY1.SQL.Clear;
    QUERY1.SQL.Add('SELECT * FROM FCFYK WHERE FD_DWDM='''+S3+'''');
    QUERY1.Open;


//总之,这大概是一个单位管理的模块,可能是管理的主界面,树上显示的单位是
//用单位名称[单位代号]的形式,可是数据库中的单位是根据单位代号区分的。
//首先,我觉得这程序应该不是你自己写的,哪里有自己写自己看不懂的道理?
//再有,如果有看不懂的,应该自己在电脑上44,如果你真想学的话。



B6层 发表时间: 04-02-28 12:44

回复: cike [cike]   论坛用户   登录
大哥大哥谢谢你
我爱死你了啊
哈哈哈哈哈哈
真的谢谢谢谢谢谢你了
我现在学习当中,自己根据这个模块做一个自己的管理软件
目的还是学习。以后还请大哥多多指教了



[此贴被 刺客(cike) 在 02月28日16时11分 编辑过]

B7层 发表时间: 04-02-28 16:08

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号