|
 | 作者: 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] 论坛用户 |
登录 |
|
这个树的第３级是 单位名称[单位代号] ，上一级应该是单位类别之类的东西， 不过，这程序可能比较烂，哈 |
| 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号
论坛: 编程破解
标题: 帮帮忙吧！！！delphi