S
ski
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢提供
W
wffox
Unregistered / Unconfirmed
GUEST, unregistred user!
我也要,wffox@elong.com
H
hualiuc
Unregistered / Unconfirmed
GUEST, unregistred user!
我也要,lch@tyfonet.com
Y
yuso
Unregistered / Unconfirmed
GUEST, unregistred user!
好東西,偶也要. yuso@163.com
T
thomashukaidi
Unregistered / Unconfirmed
GUEST, unregistred user!
thank a lot
L
laidh
Unregistered / Unconfirmed
GUEST, unregistred user!
给我一份，谢谢！
laidh@163.net
laidh@163.net
Z
zl
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]zhulin@163.net
]zhulin@163.net
J
johnnyli
Unregistered / Unconfirmed
GUEST, unregistred user!
请给我一份，谢谢！
lilinian@163.net
lilinian@163.net
X
xiaoshandong
Unregistered / Unconfirmed
GUEST, unregistred user!
我也要一份，我会非常感谢你的
L
lgtnet
Unregistered / Unconfirmed
GUEST, unregistred user!
我也要一份，非常感谢
lgtnet@163.net
lgtnet@163.net
浮
浮点
Unregistered / Unconfirmed
GUEST, unregistred user!
我也要~~~
谢谢
float1983@21cn.com
谢谢
float1983@21cn.com
网
网络男孩
Unregistered / Unconfirmed
GUEST, unregistred user!
请给我一份，最好能有详细设计文档！
我的电子邮件是：delsoft@cnnb.net
我的电子邮件是：delsoft@cnnb.net
H
hz008
Unregistered / Unconfirmed
GUEST, unregistred user!
我也要一份，非常感谢hz008@yeah.net
欢
欢_乐
Unregistered / Unconfirmed
GUEST, unregistred user!
有
问题：TTreeview控件在数据库编程中(提供源码） ( 积分：100, 回复：132, 阅读：1047 )
分类：数据库-C/S型 ( 版主：千中元, luyear )
来自：SujmSujm, 时间：2001-9-4 20:32:00, ID：611297 [显示：小字体 | 大字体]
TTreeview控件在数据库编程中起到了重要的位置，以下是<<收费系统>>的一段代码是用treeview控件
实现一对多多树形结构以供交流，系统所有界面全部采用treeview 控件控制，.如需要系统全部源代码(150K)，
请与我联系：E_mail :sujm@public1.sz.js.cn
unit PrintInv;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, DBCtrls, Grids, DBGrids, ComCtrls, ExtCtrls,
ImgList, Menus;
type
TVillage=record //村记录
vid:string; //村ID
vname:string; //村名
end;
PVillage=^TVillage; //村指针
TTeam=record //组记录
vid:string; //村ID
tid:string; //组ID
tname:string //组名
end;
PTeam=^TTeam; //组指针
TfmPrintInv = class(TForm)
sqlVillage: TQuery;
sqlTeam: TQuery;
dsMonthly: TDataSource;
tv: TTreeView;
Splitter: TSplitter;
pnlFamily: TPanel;
ImageList: TImageList;
dbgFamily: TDBGrid;
pnlMonth: TPanel;
Label1: TLabel;
btnRefresh: TButton;
edtYY1: TEdit;
cbMM1: TComboBox;
sqlMonthLy: TQuery;
sqlCommon: TQuery;
cbMM2: TComboBox;
Label3: TLabel;
cbSort: TComboBox;
edtYY2: TEdit;
Label5: TLabel;
Label2: TLabel;
Label6: TLabel;
chkSort: TCheckBox;
PopupMenu: TPopupMenu;
pmPrintAll: TMenuItem;
pmPrintOne: TMenuItem;
pmPrintSelect: TMenuItem;
MainMenu: TMainMenu;
mmPrintInv: TMenuItem;
mmPrintOne: TMenuItem;
mmPrintAll: TMenuItem;
mmPrintSelect: TMenuItem;
N1: TMenuItem;
pmPreviewOne: TMenuItem;
N2: TMenuItem;
mmPreviewOne: TMenuItem;
mmReport: TMenuItem;
mmReportCharge: TMenuItem;
N3: TMenuItem;
pmReportCharge: TMenuItem;
mmPreviewSample: TMenuItem;
N4: TMenuItem;
mmDataOut: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure tvDeletion(Sender: TObject; Node: TTreeNode);
procedure tvGetImageIndex(Sender: TObject; Node: TTreeNode);
procedure tvGetSelectedIndex(Sender: TObject; Node: TTreeNode);
procedure edtYY1KeyPress(Sender: TObject; var Key: Char);
procedure tvChange(Sender: TObject; Node: TTreeNode);
procedure edtYY2KeyPress(Sender: TObject; var Key: Char);
procedure chkSortClick(Sender: TObject);
procedure btnRefreshClick(Sender: TObject);
procedure pmPrintAllClick(Sender: TObject);
procedure pmPrintOneClick(Sender: TObject);
procedure pmPrintSelectClick(Sender: TObject);
procedure mmPrintOneClick(Sender: TObject);
procedure mmPrintAllClick(Sender: TObject);
procedure mmPrintSelectClick(Sender: TObject);
procedure pmPreviewOneClick(Sender: TObject);
procedure mmPreviewOneClick(Sender: TObject);
procedure mmReportChargeClick(Sender: TObject);
procedure pmReportChargeClick(Sender: TObject);
procedure mmPreviewSampleClick(Sender: TObject);
procedure mmDataOutClick(Sender: TObject);
private
{ Private declarations }
procedure InitTree; //显示村组树
procedure DisplayMonth(Node:TTreeNode); //显示某月收费
public
{ Public declarations }
end;
var
fmPrintInv: TfmPrintInv;
implementation
uses catv_vars, ReportInv, SelectID, ReportCharge, ReportSample, SelectDir;
var strSelect,strFrom,strWhere,strGroup,strOrder:string; //由DisplayMonth函数生成,以提供打印数据,开票时引用这些
{$R *.DFM}
procedure TfmPrintInv.InitTree;
var tn0,tn1:TTreeNode;
aVillageVillage;
aTeamTeam;
begin
tv.Items.Clear;
tn0:=tv.Items.Add(nil,_AreaName);
with sqlVillage do
begin
Close;
SQL.Clear;
SQL.Add('select vid,vname from village order by vid ')
Open;
while not eof do
begin
New(aVillage);
aVillage.vid:=FieldByName('vid').asstring;
aVillage.vname:=FieldByName('vname').asstring;
tn1:=tv.Items.AddChildObject(tn0,aVillage.vname,aVillage);
with sqlTeam do
begin
Close;
SQL.Clear;
SQL.Add('select vid,tid,tname from team where vid=:vid order by tid ');
ParamByName('vid').asstring:=aVillage.vid;
Open;
while not eof do
begin
New(aTeam);
aTeam.vid:=aVillage.vid;
aTeam.tid:=FieldByName('tid').asstring;
aTeam.tname:=FieldByName('tname').asstring;
tv.Items.AddChildObject(tn1,aTeam.tname,aTeam);
Next;
end;
Close;
end;
Next;
end;
Close;
end;
end;
procedure TfmPrintInv.DisplayMonth(Node:TTreeNode);
var s:string; //显示指定村组、指定年月的收费用户，!!!!!!!!这里不区分有效和无效用户
begin
strSelect:='select f.id,max(f.fname) as fname,max(f.address) as address,count(*) as cnt,';
strSelect:=strSelect+' max(f.bankid) as bankid,max(f.terms) as terms,';
strSelect:=strSelect+' sum(m.m_reg) as m_reg,sum(m.m_charges) as m_charges,';
strSelect:=strSelect+' sum(m.m_other) as m_other,sum(m.m_all) as m_all ';
strFrom:=' from family f,monthly m ';
strGroup:=' group by f.id ';
strOrder:=' order by f.id ';
case Node.Level of
0: //所有用户
begin
s:=' f.id=m.id ';
s:=s+' and (m.yy+m.mm)>='''+edtYY1.Text+cbMM1.Text+'''';
s:=s+' and (m.yy+m.mm)<='''+edtYY2.Text+cbMM2.Text+'''';
end;
1: //指定村用户
begin
s:=' f.id=m.id and f.vid='''+PVillage(Node.data)^.vid+'''';
s:=s+' and (m.yy+m.mm)>='''+edtYY1.Text+cbMM1.Text+'''';
s:=s+' and (m.yy+m.mm)<='''+edtYY2.Text+cbMM2.Text+'''';
end;
2: //指定组用户
begin
s:=' f.id=m.id and f.vid='''+PTeam(Node.data)^.vid+''' and f.tid='''+PTeam(Node.data)^.tid+'''';
s:=s+' and (m.yy+m.mm)>='''+edtYY1.Text+cbMM1.Text+'''';
s:=s+' and (m.yy+m.mm)<='''+edtYY2.Text+cbMM2.Text+'''';
end;
end;
if chkSort.Checked then
strWhere:=' where sid='''+_Sid[cbSort.ItemIndex]+''' and '+s
else
strWhere:=' where '+s;
with sqlMonthly do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+strGroup+strOrder);
Open;
end;
end;
procedure TfmPrintInv.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfmPrintInv.FormCreate(Sender: TObject);
var y,m,d:Word;
i:integer;
begin
DecodeDate(Date,y,m,d);
edtYY1.Text:=IntToStr;
edtYY2.Text:=IntToStr;
cbMM1.ItemIndex:=m-1;
cbMM2.ItemIndex:=m-1;
cbSort.Items.Clear;
for i:=0 to Length(_Sname)-1 do
cbSort.Items.Add(_Sname);
cbSort.ItemIndex:=0;
chkSort.Checked:=False;
cbSort.Enabled:=False;
InitTree;
end;
procedure TfmPrintInv.tvDeletion(Sender: TObject; Node: TTreeNode);
begin
if Assigned(Node.data) then
case Node.Level of
1:
Dispose(PVillage(Node.Data));
2:
Dispose(PTeam(Node.Data));
end;
end;
procedure TfmPrintInv.tvGetImageIndex(Sender: TObject; Node: TTreeNode);
begin
if Node.Expanded then
Node.ImageIndex:=1
else
Node.ImageIndex:=0;
end;
procedure TfmPrintInv.tvGetSelectedIndex(Sender: TObject;
Node: TTreeNode);
begin
Node.SelectedIndex:=Node.ImageIndex;
end;
procedure TfmPrintInv.edtYY1KeyPress(Sender: TObject; var Key: Char);
begin
if ((Key>'9') or (Key <'0')) and not (Key=#8) then Key:=#0; //只允许 0-9 和退格键
end;
procedure TfmPrintInv.tvChange(Sender: TObject; Node: TTreeNode);
begin
DisplayMonth(Node);
end;
procedure TfmPrintInv.edtYY2KeyPress(Sender: TObject; var Key: Char);
begin
if ((Key>'9') or (Key <'0')) and not (Key=#8) then Key:=#0; //只允许 0-9 和退格键
end;
procedure TfmPrintInv.chkSortClick(Sender: TObject);
begin
cbSort.Enabled:=chkSort.Checked;
end;
procedure TfmPrintInv.btnRefreshClick(Sender: TObject);
begin
DisplayMonth(tv.selected);
end;
procedure TfmPrintInv.pmPrintAllClick(Sender: TObject);
begin
rptInv.DataSet:=rptInv.sqlPrint;
with rptInv.sqlPrint do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+strGroup+strOrder);
Open;
end;
rptInv.Print;
rptInv.sqlPrint.Close;
end;
procedure TfmPrintInv.pmPrintOneClick(Sender: TObject);
var select_id:string;
begin
Select_Id:=sqlMonthly.FieldByName('id').asstring;
rptInv.DataSet:=rptInv.sqlPrint;
with rptInv.sqlPrint do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+' and f.id='''+Select_id+''''+strGroup+strOrder);
Open;
end;
rptInv.Print;
rptInv.sqlPrint.Close;
end;
procedure TfmPrintInv.pmPrintSelectClick(Sender: TObject);
begin
with TfmSelectId.Create(nil) do
try
ShowModal;
if ModalResult=mrOk then
begin
with rptInv.sqlPrint do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+' and f.id>='''+edtID1.text+''' and f.id<='''+edtID2.Text+''''+strGroup+strOrder);
Open;
end;
rptInv.Print;
rptInv.sqlPrint.Close;
end;
finally
free;
end;
end;
procedure TfmPrintInv.mmPrintOneClick(Sender: TObject);
begin
pmPrintOne.Click;
end;
procedure TfmPrintInv.mmPrintAllClick(Sender: TObject);
begin
pmPrintAll.Click;
end;
procedure TfmPrintInv.mmPrintSelectClick(Sender: TObject);
begin
pmPrintSelect.Click;
end;
procedure TfmPrintInv.pmPreviewOneClick(Sender: TObject);
var select_id:string;
begin
Select_Id:=sqlMonthly.FieldByName('id').asstring;
rptInv.DataSet:=rptInv.sqlPrint;
with rptInv.sqlPrint do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+' and f.id='''+Select_id+''''+strGroup+strOrder);
Open;
end;
rptInv.Preview;
rptInv.sqlPrint.Close;
end;
procedure TfmPrintInv.mmPreviewOneClick(Sender: TObject);
begin
pmPreviewOne.Click;
end;
procedure TfmPrintInv.mmReportChargeClick(Sender: TObject);
var tn:TTreeNode;
S:string;
begin
tn:=tv.Selected;
case tn.Level of
0:
s:='';
1:
s:=tn.Text; //村镇
2:
s:=tn.Parent.Text+tn.Text; //村镇+组街
end;
if chkSort.Checked then
S:=S+' 用户类别:'+cbSort.Text;
if Trim(S)<>'' then
S:='('+trim(s)+')';
with rptCharge do
begin
qrlTitle.Caption:=_AreaName+edtYY1.Text+'年'+cbMM1.Text+'月至'+edtYY2.Text+'年'+cbMM2.Text+'月有线电视收费情况表'
qrlSubTitle.Caption:=S;
qrlUserName.Caption:='制表人:'+_UserName;
Dataset:=sqlMonthly; //???在报表中已静态设定,但 打印报表有时出现不存在的函数错误,本行以期解决.
Preview;
end;
end;
procedure TfmPrintInv.pmReportChargeClick(Sender: TObject);
begin
mmReportCharge.Click;
end;
procedure TfmPrintInv.mmPreviewSampleClick(Sender: TObject);
var select_id:string;
begin
Select_Id:=sqlMonthly.FieldByName('id').asstring;
rptSample.DataSet:=rptSample.sqlPrint;
with rptSample.sqlPrint do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+' and f.id='''+Select_id+''''+strGroup+strOrder);
Open;
end;
rptSample.Preview;
rptSample.sqlPrint.Close;
end;
end.
来自：wangyw_77, 时间：2001-9-4 20:51:00, ID：611317
给我一份，谢谢wangyw_tt@263.net
来自：cui27, 时间：2001-9-4 22:51:00, ID：611368
给我一份，谢谢。cui26@china.com
来自：easytop, 时间：2001-9-4 23:09:00, ID：611378
给我一份,Thanks!! easytop@21cn.com
来自：weiweiHU, 时间：2001-9-4 23:31:00, ID：611382
给我一份，谢谢。libo_lijiawei@163.com
来自：chyw123, 时间：2001-9-5 7:36:00, ID：611440
给我一份，谢谢。chyw123@163.com
来自：joe-chen, 时间：2001-9-5 9:56:00, ID：611569
请给我一份，THANK joe-chen@21cn.com
来自：bugs, 时间：2001-9-5 9:59:00, ID：611575
给我一份吧，万分感谢！！！
sxake@sina.com
来自：fullstrong, 时间：2001-9-5 10:02:00, ID：611585
给我一份： lizhijian@china.com
来自：gfong, 时间：2001-9-5 10:32:00, ID：611624
给我一份：gfong@163.com,谢谢
来自：尘莽, 时间：2001-9-5 11:18:00, ID：611711
Email To : Fangmin@yeah.net.
保证提供良好的建议（提高程序的效率）
来自：zs, 时间：2001-9-5 15:24:00, ID：612138
给我一份：zhsen@263.net,谢谢
来自：terrydelphi, 时间：2001-9-5 16:10:00, ID：612208
谢谢，能不能给我一份wuhanyt@21cn.com
来自：liyoubin, 时间：2001-9-5 16:29:00, ID：612259
谢谢，能不能给我一份liyoubin@21cn.com
来自：asaili, 时间：2001-9-5 21:22:00, ID：612685
能给我发一份吗
mfgme@21cn.com
来自：Dephic, 时间：2001-9-5 21:25:00, ID：612689
也给我一份：wudaiquan@china.com
谢谢！
来自：蓝色暇想, 时间：2001-9-5 21:52:00, ID：612732
也给我一份吧，谢谢
harry1818@21cn.com
来自：蛐蛐, 时间：2001-9-5 22:12:00, ID：612769
你上载到某个地方，如果你方便。anzuo@fm365.com
来自：TIDE_LIU, 时间：2001-9-5 22:36:00, ID：612799
给我一份吧！太感谢了！我正在找这方面的东东呢！
TIDE@263.NET
来自：xsjs, 时间：2001-9-5 22:51:00, ID：612827
给俺一份吧！
hqlsta@163.net
来自：Carfield2001, 时间：2001-9-6 8:25:00, ID：612952
谢谢你！给我一份
magic_yi@263.net
来自：ljh_ty, 时间：2001-9-6 8:31:00, ID：612962
谢谢你！给我一份
liujh_ty@263.net
来自：olivetrees, 时间：2001-9-6 9:18:00, ID：613036
给我一份;XiaoWenZheng@elong.com
谢谢....
来自：maming, 时间：2001-9-6 9:32:00, ID：613070
我也想要，要不放到一个地方，大家去载吧！
maming_hn@163,net
来自：robert99, 时间：2001-9-6 9:33:00, ID：613073
我正在开发(学习)数据库编程，能不能也给我一份，非常感谢！
Robert99@163.net
来自：forss, 时间：2001-9-6 13:29:00, ID：613507
放到 http://delphi.itschem.com 去吧，，
不然你发的也很累呀。。：）
来自：readxlp, 时间：2001-9-6 13:41:00, ID：613539
给我一份
readxlp@yeah.net
来自：tkai, 时间：2001-9-6 15:35:00, ID：613694
能给我一份吗？
tkggai@sina.com
如果你需要主页空间的话，我可以分你一点
来自：动画人生, 时间：2001-9-6 15:41:00, ID：613704
请给我一份
duanlintao@263.net
来自：piler, 时间：2001-9-6 20:57:00, ID：614149
给我一份,Thanks!! piler@163.net
来自：yth, 时间：2001-9-6 21:20:00, ID：614188
给我一份,Thanks!! yth@telekbird.com.cn
来自：mtoto, 时间：2001-9-6 21:22:00, ID：614191
能给我一份吗？
bjbzw@21cn.com
来自：omvm, 时间：2001-9-6 21:35:00, ID：614214
还有我
omvm@sohu.com
来自：zqq, 时间：2001-9-7 8:10:00, ID：614520
不要把我拉下
ycyczqq@21cn.com
来自：zl, 时间：2001-9-7 8:31:00, ID：614551
不能没有我的份呀
mailto:zhulin@163.net
来自：harmer, 时间：2001-9-7 8:36:00, ID：614566
谢了，也给我一份吧！
来自：duanyu, 时间：2001-9-7 8:45:00, ID：614587
thanks，
duansoft@21cn.com
来自：zqs10597249, 时间：2001-9-7 9:57:00, ID：614679
给我一份吧
zqs10597249@sina.com.cn
谢谢！
来自：hcx, 时间：2001-9-7 10:11:00, ID：614708
那么多人要肯定是好东东。所以我也要一份。
mail to:hzg004@163.net
来自：yufei, 时间：2001-9-7 10:12:00, ID：614711
也给我一份吧：
bgh@263.net
谢谢先！
来自：蛐蛐, 时间：2001-9-7 10:37:00, ID：614753
TO SujmSujm,你有没有，如果没有，就结束问题。
To all 哎。
来自：DiamondKing, 时间：2001-9-7 10:43:00, ID：614761
我也要。 zcgjerry@163.com
有后台的数据吗？
来自：润五月, 时间：2001-9-7 13:24:00, ID：615142
给我一份！谢谢
cuicuiczy@sohu.com
来自：hdzj2000, 时间：2001-9-7 13:31:00, ID：615152
给我也来一份！非常感谢！！！
hdzj2000@sina.com
来自：hymen1, 时间：2001-9-7 15:03:00, ID：615365
能给我发一份吗
hymen1@163.net
来自：jnleis, 时间：2001-9-7 17:34:00, ID：615734
ME TOO
jnleis@163.net
来自：lishding, 时间：2001-9-7 17:52:00, ID：615784
我也要一分学习学习
lishding@163.net
来自：kevincsg, 时间：2001-9-7 18:14:00, ID：615836
我也要一份kevin-csg@163.com
谢谢
来自：superbenben, 时间：2001-9-12 12:34:00, ID：621573
给我一份吧！！
最近我在编财务软件，需要，急需！！
chengyon2000@263.net
谢谢你！！！
来自：jinnys, 时间：2001-9-12 17:19:00, ID：622216
give me !!!!
jinnys@263.net
来自：jinnys, 时间：2001-9-12 17:19:00, ID：622220
give me !!!!
jinnys@263.net
来自：jianping0, 时间：2001-9-12 20:27:00, ID：622562
give me source!
jianping0@china.com
thank you!!!
来自：oldppp, 时间：2001-9-12 21:08:00, ID：622625
我要！
oldppp@263.net
来自：狄克, 时间：2001-9-12 22:00:00, ID：622705
Give me a copy!
g1206@yeah.net
Thanks!
来自：hongma, 时间：2001-9-12 22:04:00, ID：622712
mail to:yuebao@china.com
thanks
来自：ah_dragon, 时间：2001-9-12 22:33:00, ID：622747
mail to ah_dragon@sohu.com
thanks
来自：无雨, 时间：2001-9-18 15:00:00, ID：631993
mail to cfrourou@yeah.net
thanks
来自：dingbaosheng, 时间：2001-9-18 15:03:00, ID：632003
上传 上传 http://delphi.itschem.com [][][][][][][][]
来自：了了, 时间：2001-9-18 15:13:00, ID：632030
Please give it to me.
gcgyzcsx@mail.sc.cninfo.net
来自：wind fly, 时间：2001-9-18 15:39:00, ID：632113
ba_ljy@chinaren.com
来自：ml81888, 时间：2001-9-18 15:50:00, ID：632155
也给我一份吧
来自：ml81888, 时间：2001-9-18 15:52:00, ID：632159
也给我一份吧
来自：TomZhao, 时间：2001-9-18 15:52:00, ID：632161
刚才在PB里面做了一个.速度慢.
能否发一个参考参考
gyzly@263.net
3ks
来自：ailun, 时间：2001-9-19 1:14:00, ID：632530
给我一分
(gukehui@sohu.com.cn)
来自：cine2, 时间：2001-9-19 8:03:00, ID：632579
w-g@21cn.com谢
来自：i301zxr, 时间：2001-9-26 10:10:00, ID：645372
我现在刚在学树，能否也给我一份，谢谢！！i301zxr_002@163.com
来自：zcm1975117, 时间：2001-9-26 14:18:00, ID：645987
to me:
zcm1975117@21cn.com
来自：lliuxxingw, 时间：2001-9-26 15:58:00, ID：646224
to me:
lliuxxingw@163.net
来自：网中游, 时间：2001-9-27 17:30:00, ID：648507
me too xywjbprogram@263.net
来自：hbezwwl, 时间：2001-9-27 19:04:00, ID：648670
thank you!
to me:ftbmj@163.net
来自：LJH1978, 时间：2001-9-27 19:13:00, ID：648685
谢谢，请给我一份
LYPLAY1@21CN.COM
来自：yanlei, 时间：2001-9-27 19:21:00, ID：648689
[]
来自：zcm1975117, 时间：2001-9-28 8:35:00, ID：649078
sujmsujm:
你好!!发给我一份吧,我正想使用这个控件连接数据库,就是没有好一点的例子!!谢谢你了!!
zcm1975117@21cn.com
来自：kelisten, 时间：2001-9-28 8:48:00, ID：649094
mailto: yxj@cdsf.com
thx!!
来自：铁锈, 时间：2001-9-28 8:55:00, ID：649105
请给我也一份吧
mooyan@263.net,谢谢
来自：blue_morning, 时间：2001-9-28 8:58:00, ID：649113
看后一定回复。
blue_morning@sina.com
来自：ccgs, 时间：2001-9-28 9:23:00, ID：649161
给我也来一份，谢谢
ccgs@cmmail.com
还是好人多啊！
来自：pmis_2000, 时间：2001-9-28 9:43:00, ID：649197
给我也来一份,谢谢!,万分感激!!!
pmis_2000@yahoo.com.cn
来自：hunyuan, 时间：2001-9-28 10:06:00, ID：649236
yulm@cy6.dq.cnpc.com.cn
thanks
来自：gotosea, 时间：2001-9-28 10:39:00, ID：649298
seeinrain@sohu.com
来自：shephard, 时间：2001-9-28 11:11:00, ID：649383
我要， shephard@21cn.com 谢谢！ []
来自：edgaryu, 时间：2001-9-28 11:22:00, ID：649415
给我一份：edgaryu@etang.com,谢谢
来自：zhoujy, 时间：2001-9-28 11:49:00, ID：649480
我也要，jianyu_zhou@163.com 谢谢！[]
来自：SINGLBOY, 时间：2001-9-28 12:03:00, ID：649507
给我一份，谢谢。woho@yesky.com
来自：keler, 时间：2001-9-28 12:08:00, ID：649516
能实现动态的无限级扩展吗？如可以，给我一份。
friends_cool@163.com
来自：zgdtxf, 时间：2001-9-28 14:47:00, ID：649824
给我一份，谢谢。zzggdd@telekbird.com.cn
来自：xang2001, 时间：2001-9-28 16:22:00, ID：649981
给我一份，谢谢。xang0808@sina.com.cn
来自：ligbin, 时间：2001-10-2 15:47:00, ID：654352
也给我一份，谢谢！！！djgpplee@21cn.com
来自：SujmSujm, 时间：2001-10-5 22:15:00, ID：657160
如有兴趣请到：http://delphi.mychangshu.com/dispdoc.asp?id=203
下载，有好建议不要忘了告诉我.............
来自：yyanghhong, 时间：2001-10-6 1:00:00, ID：657266
go to http://delphi.mychangshu.com/dispdoc.asp?id=204, the method is quite fast,
and support drag and drop
来自：SujmSujm, 时间：2001-10-6 8:39:00, ID：657363
<<收费系统>>,TTreeview编程中起到了重要的位置，
用treeview控件控制数据库,
实现一对多多树形结构以供交流.
download: http://delphi.mychangshu.com/dispdoc.asp?id=203
来自：铁锈, 时间：2001-10-6 9:52:00, ID：657451
SujmSujm:你给得是一个可以直接运行得东东嘛，我没有用过Ttreeview,仅仅一个界面，
看不懂阿，能不能把源码方上去，给大家交流学习一下阿。
来自：zfnet, 时间：2001-10-6 9:54:00, ID：657453
别丢掉：
zylsoft@sina.com
来自：zoes, 时间：2001-10-6 10:04:00, ID：657470
俺也想要
yulswa@263.net
俺会给分的
来自：naj, 时间：2001-10-6 10:58:00, ID：657542
给我一份
heiang@163.net
来自：daiwei, 时间：2001-10-6 11:42:00, ID：657617
给我一份
daiwei@163.net
来自：SujmSujm, 时间：2001-10-6 14:00:00, ID：657724
download : http://delphi.mychangshu.com/dispdoc.asp?id=203
来自：Chien Yusin, 时间：2001-10-8 14:02:00, ID：660125
请给我一份，谢谢！
chienyusin@21cn.com
来自：大海黄, 时间：2001-10-8 14:16:00, ID：660166
速度如何啊，如果速度能跟上，不妨给我一份
<a href=mailto:hai_zero@263.net>这是我的邮箱</a>
来自：tooper, 时间：2001-10-9 16:15:00, ID：663169
me 也想欣赏欣赏
能给我一份吗
asd_studio@263.net
来自：geyufly, 时间：2001-10-9 16:40:00, ID：663233
我也想要，谢谢 geyufly@yahoo.com.cn
来自：xiaoqi, 时间：2001-10-9 22:06:00, ID：663742
给我一份吧
qhl0104_2001@Chinaren.com
来自：SujmSujm, 时间：2001-10-10 22:15:00, ID：665538
please download : http://delphi.mychangshu.com/dispdoc.asp?id=203
Sujm
来自：kcgee, 时间：2001-10-16 10:19:00, ID：675254
请给我一份，谢谢！
kcgee@21cn.com
来自：chenliang_fly, 时间：2001-10-16 11:25:00, ID：675429
me too .thank you []
来自：chenliang_fly, 时间：2001-10-16 11:30:00, ID：675446
me too ,thank you email:chenliang@butone.com[]
来自：zhongjiancai, 时间：2001-10-16 14:12:00, ID：675707
我也要，laozhong97@263.net
来自：dwcao, 时间：2001-10-16 16:47:00, ID：676046
我也要！dwcao@163.net 致崇高的敬礼！
来自：wanfamily, 时间：2001-10-17 11:28:00, ID：677362
太好了，我也想要一份。谢谢！
email:dogandgod2001@163.net
来自：jackylh, 时间：2001-10-17 12:58:00, ID：677552
请给我一份，谢谢！
jackylh@21cn.com
来自：jxt1, 时间：2001-10-21 2:05:00, ID：683780
我也要一份， jxt1@21cn.com 谢谢！
来自：emailcdz, 时间：2001-10-21 21:03:00, ID：684631
太好了，我也想要一份。谢谢！
emailcdz@yeah.net
来自：SujmSujm, 时间：2001-10-21 21:22:00, ID：684664
您的水平可以在这里发挥--招聘兼职写程序(delphi+sql server7.0)
老乡们，帮帮忙！！
===========================================
招聘兼职写程序(delphi+sql server7.0)-在江苏常熟市
===========================================
我们有一些项目，但苦于没有好的人手。靠一、二人无法完成理想的项目.
我司发出项目后，由兼职人员编好，送DEMO版，或来本人洽谈,当然路费问题不用说了.
要求：
1、有delphi使用经验
2、熟悉sql server7.0 or SQL server2000
备注：男性
有意者 请联系： sujm@public1.sz.js.cn
http://delphi.mychangshu.com/dispdoc.asp?id=203
SujmSujm
来自：xinjia, 时间：2001-10-21 22:20:00, ID：684751
lh_cnha@yahoo.com.cn
来自：zhaohai9, 时间：2001-10-22 0:41:00, ID：684873
我有兴趣加入，zhaohai9@163.net
来自：asljl, 时间：2001-10-22 1:30:00, ID：684890
能给我一份吗？谢谢
来自：blue_morning, 时间：2001-10-22 8:14:00, ID：684936
我也来一份
blue_morning@sina.com
来自：wn66, 时间：2001-10-22 11:57:00, ID：685454
給我一份好嗎?先謝了!!!!有源程式嗎?
E-mail:wang66nan@163.com
来自：dtwujp, 时间：2001-10-22 20:10:00, ID：686477
还有吗，给我一份。dtwujp@sohu.com
来自：SujmSujm, 时间：2001-10-22 20:21:00, ID：686499
to :：dtwujp
http://delphi.mychangshu.com/dispdoc.asp?id=203
Sujm
来自：ski, 时间：2001-10-23 10:29:00, ID：686861
谢谢提供
来自：wffox, 时间：2001-10-23 14:36:00, ID：687437
我也要,wffox@elong.com
来自：hualiuc, 时间：2001-10-23 16:16:00, ID：687615
我也要,lch@tyfonet.com
来自：yuso, 时间：2001-10-23 21:02:00, ID：688043
好東西,偶也要. yuso@163.com
来自：thomashukaidi, 时间：2001-10-23 23:50:00, ID：688258
thank a lot
来自：laidh, 时间：2001-10-24 9:08:00, ID：688426
给我一份，谢谢！
laidh@163.net
来自：zl, 时间：2001-10-26 8:00:00, ID：690839
[]zhulin@163.net
请给我一份，谢谢！
shanteng@21cn.com
问题：TTreeview控件在数据库编程中(提供源码） ( 积分：100, 回复：132, 阅读：1047 )
分类：数据库-C/S型 ( 版主：千中元, luyear )
来自：SujmSujm, 时间：2001-9-4 20:32:00, ID：611297 [显示：小字体 | 大字体]
TTreeview控件在数据库编程中起到了重要的位置，以下是<<收费系统>>的一段代码是用treeview控件
实现一对多多树形结构以供交流，系统所有界面全部采用treeview 控件控制，.如需要系统全部源代码(150K)，
请与我联系：E_mail :sujm@public1.sz.js.cn
unit PrintInv;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, DBCtrls, Grids, DBGrids, ComCtrls, ExtCtrls,
ImgList, Menus;
type
TVillage=record //村记录
vid:string; //村ID
vname:string; //村名
end;
PVillage=^TVillage; //村指针
TTeam=record //组记录
vid:string; //村ID
tid:string; //组ID
tname:string //组名
end;
PTeam=^TTeam; //组指针
TfmPrintInv = class(TForm)
sqlVillage: TQuery;
sqlTeam: TQuery;
dsMonthly: TDataSource;
tv: TTreeView;
Splitter: TSplitter;
pnlFamily: TPanel;
ImageList: TImageList;
dbgFamily: TDBGrid;
pnlMonth: TPanel;
Label1: TLabel;
btnRefresh: TButton;
edtYY1: TEdit;
cbMM1: TComboBox;
sqlMonthLy: TQuery;
sqlCommon: TQuery;
cbMM2: TComboBox;
Label3: TLabel;
cbSort: TComboBox;
edtYY2: TEdit;
Label5: TLabel;
Label2: TLabel;
Label6: TLabel;
chkSort: TCheckBox;
PopupMenu: TPopupMenu;
pmPrintAll: TMenuItem;
pmPrintOne: TMenuItem;
pmPrintSelect: TMenuItem;
MainMenu: TMainMenu;
mmPrintInv: TMenuItem;
mmPrintOne: TMenuItem;
mmPrintAll: TMenuItem;
mmPrintSelect: TMenuItem;
N1: TMenuItem;
pmPreviewOne: TMenuItem;
N2: TMenuItem;
mmPreviewOne: TMenuItem;
mmReport: TMenuItem;
mmReportCharge: TMenuItem;
N3: TMenuItem;
pmReportCharge: TMenuItem;
mmPreviewSample: TMenuItem;
N4: TMenuItem;
mmDataOut: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure tvDeletion(Sender: TObject; Node: TTreeNode);
procedure tvGetImageIndex(Sender: TObject; Node: TTreeNode);
procedure tvGetSelectedIndex(Sender: TObject; Node: TTreeNode);
procedure edtYY1KeyPress(Sender: TObject; var Key: Char);
procedure tvChange(Sender: TObject; Node: TTreeNode);
procedure edtYY2KeyPress(Sender: TObject; var Key: Char);
procedure chkSortClick(Sender: TObject);
procedure btnRefreshClick(Sender: TObject);
procedure pmPrintAllClick(Sender: TObject);
procedure pmPrintOneClick(Sender: TObject);
procedure pmPrintSelectClick(Sender: TObject);
procedure mmPrintOneClick(Sender: TObject);
procedure mmPrintAllClick(Sender: TObject);
procedure mmPrintSelectClick(Sender: TObject);
procedure pmPreviewOneClick(Sender: TObject);
procedure mmPreviewOneClick(Sender: TObject);
procedure mmReportChargeClick(Sender: TObject);
procedure pmReportChargeClick(Sender: TObject);
procedure mmPreviewSampleClick(Sender: TObject);
procedure mmDataOutClick(Sender: TObject);
private
{ Private declarations }
procedure InitTree; //显示村组树
procedure DisplayMonth(Node:TTreeNode); //显示某月收费
public
{ Public declarations }
end;
var
fmPrintInv: TfmPrintInv;
implementation
uses catv_vars, ReportInv, SelectID, ReportCharge, ReportSample, SelectDir;
var strSelect,strFrom,strWhere,strGroup,strOrder:string; //由DisplayMonth函数生成,以提供打印数据,开票时引用这些
{$R *.DFM}
procedure TfmPrintInv.InitTree;
var tn0,tn1:TTreeNode;
aVillage
Village;aTeam
Team;begin
tv.Items.Clear;
tn0:=tv.Items.Add(nil,_AreaName);
with sqlVillage do
begin
Close;
SQL.Clear;
SQL.Add('select vid,vname from village order by vid ')
Open;
while not eof do
begin
New(aVillage);
aVillage.vid:=FieldByName('vid').asstring;
aVillage.vname:=FieldByName('vname').asstring;
tn1:=tv.Items.AddChildObject(tn0,aVillage.vname,aVillage);
with sqlTeam do
begin
Close;
SQL.Clear;
SQL.Add('select vid,tid,tname from team where vid=:vid order by tid ');
ParamByName('vid').asstring:=aVillage.vid;
Open;
while not eof do
begin
New(aTeam);
aTeam.vid:=aVillage.vid;
aTeam.tid:=FieldByName('tid').asstring;
aTeam.tname:=FieldByName('tname').asstring;
tv.Items.AddChildObject(tn1,aTeam.tname,aTeam);
Next;
end;
Close;
end;
Next;
end;
Close;
end;
end;
procedure TfmPrintInv.DisplayMonth(Node:TTreeNode);
var s:string; //显示指定村组、指定年月的收费用户，!!!!!!!!这里不区分有效和无效用户
begin
strSelect:='select f.id,max(f.fname) as fname,max(f.address) as address,count(*) as cnt,';
strSelect:=strSelect+' max(f.bankid) as bankid,max(f.terms) as terms,';
strSelect:=strSelect+' sum(m.m_reg) as m_reg,sum(m.m_charges) as m_charges,';
strSelect:=strSelect+' sum(m.m_other) as m_other,sum(m.m_all) as m_all ';
strFrom:=' from family f,monthly m ';
strGroup:=' group by f.id ';
strOrder:=' order by f.id ';
case Node.Level of
0: //所有用户
begin
s:=' f.id=m.id ';
s:=s+' and (m.yy+m.mm)>='''+edtYY1.Text+cbMM1.Text+'''';
s:=s+' and (m.yy+m.mm)<='''+edtYY2.Text+cbMM2.Text+'''';
end;
1: //指定村用户
begin
s:=' f.id=m.id and f.vid='''+PVillage(Node.data)^.vid+'''';
s:=s+' and (m.yy+m.mm)>='''+edtYY1.Text+cbMM1.Text+'''';
s:=s+' and (m.yy+m.mm)<='''+edtYY2.Text+cbMM2.Text+'''';
end;
2: //指定组用户
begin
s:=' f.id=m.id and f.vid='''+PTeam(Node.data)^.vid+''' and f.tid='''+PTeam(Node.data)^.tid+'''';
s:=s+' and (m.yy+m.mm)>='''+edtYY1.Text+cbMM1.Text+'''';
s:=s+' and (m.yy+m.mm)<='''+edtYY2.Text+cbMM2.Text+'''';
end;
end;
if chkSort.Checked then
strWhere:=' where sid='''+_Sid[cbSort.ItemIndex]+''' and '+s
else
strWhere:=' where '+s;
with sqlMonthly do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+strGroup+strOrder);
Open;
end;
end;
procedure TfmPrintInv.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfmPrintInv.FormCreate(Sender: TObject);
var y,m,d:Word;
i:integer;
begin
DecodeDate(Date,y,m,d);
edtYY1.Text:=IntToStr
;edtYY2.Text:=IntToStr
;cbMM1.ItemIndex:=m-1;
cbMM2.ItemIndex:=m-1;
cbSort.Items.Clear;
for i:=0 to Length(_Sname)-1 do
cbSort.Items.Add(_Sname);
cbSort.ItemIndex:=0;
chkSort.Checked:=False;
cbSort.Enabled:=False;
InitTree;
end;
procedure TfmPrintInv.tvDeletion(Sender: TObject; Node: TTreeNode);
begin
if Assigned(Node.data) then
case Node.Level of
1:
Dispose(PVillage(Node.Data));
2:
Dispose(PTeam(Node.Data));
end;
end;
procedure TfmPrintInv.tvGetImageIndex(Sender: TObject; Node: TTreeNode);
begin
if Node.Expanded then
Node.ImageIndex:=1
else
Node.ImageIndex:=0;
end;
procedure TfmPrintInv.tvGetSelectedIndex(Sender: TObject;
Node: TTreeNode);
begin
Node.SelectedIndex:=Node.ImageIndex;
end;
procedure TfmPrintInv.edtYY1KeyPress(Sender: TObject; var Key: Char);
begin
if ((Key>'9') or (Key <'0')) and not (Key=#8) then Key:=#0; //只允许 0-9 和退格键
end;
procedure TfmPrintInv.tvChange(Sender: TObject; Node: TTreeNode);
begin
DisplayMonth(Node);
end;
procedure TfmPrintInv.edtYY2KeyPress(Sender: TObject; var Key: Char);
begin
if ((Key>'9') or (Key <'0')) and not (Key=#8) then Key:=#0; //只允许 0-9 和退格键
end;
procedure TfmPrintInv.chkSortClick(Sender: TObject);
begin
cbSort.Enabled:=chkSort.Checked;
end;
procedure TfmPrintInv.btnRefreshClick(Sender: TObject);
begin
DisplayMonth(tv.selected);
end;
procedure TfmPrintInv.pmPrintAllClick(Sender: TObject);
begin
rptInv.DataSet:=rptInv.sqlPrint;
with rptInv.sqlPrint do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+strGroup+strOrder);
Open;
end;
rptInv.Print;
rptInv.sqlPrint.Close;
end;
procedure TfmPrintInv.pmPrintOneClick(Sender: TObject);
var select_id:string;
begin
Select_Id:=sqlMonthly.FieldByName('id').asstring;
rptInv.DataSet:=rptInv.sqlPrint;
with rptInv.sqlPrint do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+' and f.id='''+Select_id+''''+strGroup+strOrder);
Open;
end;
rptInv.Print;
rptInv.sqlPrint.Close;
end;
procedure TfmPrintInv.pmPrintSelectClick(Sender: TObject);
begin
with TfmSelectId.Create(nil) do
try
ShowModal;
if ModalResult=mrOk then
begin
with rptInv.sqlPrint do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+' and f.id>='''+edtID1.text+''' and f.id<='''+edtID2.Text+''''+strGroup+strOrder);
Open;
end;
rptInv.Print;
rptInv.sqlPrint.Close;
end;
finally
free;
end;
end;
procedure TfmPrintInv.mmPrintOneClick(Sender: TObject);
begin
pmPrintOne.Click;
end;
procedure TfmPrintInv.mmPrintAllClick(Sender: TObject);
begin
pmPrintAll.Click;
end;
procedure TfmPrintInv.mmPrintSelectClick(Sender: TObject);
begin
pmPrintSelect.Click;
end;
procedure TfmPrintInv.pmPreviewOneClick(Sender: TObject);
var select_id:string;
begin
Select_Id:=sqlMonthly.FieldByName('id').asstring;
rptInv.DataSet:=rptInv.sqlPrint;
with rptInv.sqlPrint do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+' and f.id='''+Select_id+''''+strGroup+strOrder);
Open;
end;
rptInv.Preview;
rptInv.sqlPrint.Close;
end;
procedure TfmPrintInv.mmPreviewOneClick(Sender: TObject);
begin
pmPreviewOne.Click;
end;
procedure TfmPrintInv.mmReportChargeClick(Sender: TObject);
var tn:TTreeNode;
S:string;
begin
tn:=tv.Selected;
case tn.Level of
0:
s:='';
1:
s:=tn.Text; //村镇
2:
s:=tn.Parent.Text+tn.Text; //村镇+组街
end;
if chkSort.Checked then
S:=S+' 用户类别:'+cbSort.Text;
if Trim(S)<>'' then
S:='('+trim(s)+')';
with rptCharge do
begin
qrlTitle.Caption:=_AreaName+edtYY1.Text+'年'+cbMM1.Text+'月至'+edtYY2.Text+'年'+cbMM2.Text+'月有线电视收费情况表'
qrlSubTitle.Caption:=S;
qrlUserName.Caption:='制表人:'+_UserName;
Dataset:=sqlMonthly; //???在报表中已静态设定,但 打印报表有时出现不存在的函数错误,本行以期解决.
Preview;
end;
end;
procedure TfmPrintInv.pmReportChargeClick(Sender: TObject);
begin
mmReportCharge.Click;
end;
procedure TfmPrintInv.mmPreviewSampleClick(Sender: TObject);
var select_id:string;
begin
Select_Id:=sqlMonthly.FieldByName('id').asstring;
rptSample.DataSet:=rptSample.sqlPrint;
with rptSample.sqlPrint do
begin
Close;
SQL.Clear;
SQL.add(strSelect+strFrom+strWhere+' and f.id='''+Select_id+''''+strGroup+strOrder);
Open;
end;
rptSample.Preview;
rptSample.sqlPrint.Close;
end;
end.
来自：wangyw_77, 时间：2001-9-4 20:51:00, ID：611317
给我一份，谢谢wangyw_tt@263.net
来自：cui27, 时间：2001-9-4 22:51:00, ID：611368
给我一份，谢谢。cui26@china.com
来自：easytop, 时间：2001-9-4 23:09:00, ID：611378
给我一份,Thanks!! easytop@21cn.com
来自：weiweiHU, 时间：2001-9-4 23:31:00, ID：611382
给我一份，谢谢。libo_lijiawei@163.com
来自：chyw123, 时间：2001-9-5 7:36:00, ID：611440
给我一份，谢谢。chyw123@163.com
来自：joe-chen, 时间：2001-9-5 9:56:00, ID：611569
请给我一份，THANK joe-chen@21cn.com
来自：bugs, 时间：2001-9-5 9:59:00, ID：611575
给我一份吧，万分感谢！！！
sxake@sina.com
来自：fullstrong, 时间：2001-9-5 10:02:00, ID：611585
给我一份： lizhijian@china.com
来自：gfong, 时间：2001-9-5 10:32:00, ID：611624
给我一份：gfong@163.com,谢谢
来自：尘莽, 时间：2001-9-5 11:18:00, ID：611711
Email To : Fangmin@yeah.net.
保证提供良好的建议（提高程序的效率）
来自：zs, 时间：2001-9-5 15:24:00, ID：612138
给我一份：zhsen@263.net,谢谢
来自：terrydelphi, 时间：2001-9-5 16:10:00, ID：612208
谢谢，能不能给我一份wuhanyt@21cn.com
来自：liyoubin, 时间：2001-9-5 16:29:00, ID：612259
谢谢，能不能给我一份liyoubin@21cn.com
来自：asaili, 时间：2001-9-5 21:22:00, ID：612685
能给我发一份吗
mfgme@21cn.com
来自：Dephic, 时间：2001-9-5 21:25:00, ID：612689
也给我一份：wudaiquan@china.com
谢谢！
来自：蓝色暇想, 时间：2001-9-5 21:52:00, ID：612732
也给我一份吧，谢谢
harry1818@21cn.com
来自：蛐蛐, 时间：2001-9-5 22:12:00, ID：612769
你上载到某个地方，如果你方便。anzuo@fm365.com
来自：TIDE_LIU, 时间：2001-9-5 22:36:00, ID：612799
给我一份吧！太感谢了！我正在找这方面的东东呢！
TIDE@263.NET
来自：xsjs, 时间：2001-9-5 22:51:00, ID：612827
给俺一份吧！
hqlsta@163.net
来自：Carfield2001, 时间：2001-9-6 8:25:00, ID：612952
谢谢你！给我一份
magic_yi@263.net
来自：ljh_ty, 时间：2001-9-6 8:31:00, ID：612962
谢谢你！给我一份
liujh_ty@263.net
来自：olivetrees, 时间：2001-9-6 9:18:00, ID：613036
给我一份;XiaoWenZheng@elong.com
谢谢....
来自：maming, 时间：2001-9-6 9:32:00, ID：613070
我也想要，要不放到一个地方，大家去载吧！
maming_hn@163,net
来自：robert99, 时间：2001-9-6 9:33:00, ID：613073
我正在开发(学习)数据库编程，能不能也给我一份，非常感谢！
Robert99@163.net
来自：forss, 时间：2001-9-6 13:29:00, ID：613507
放到 http://delphi.itschem.com 去吧，，
不然你发的也很累呀。。：）
来自：readxlp, 时间：2001-9-6 13:41:00, ID：613539
给我一份
readxlp@yeah.net
来自：tkai, 时间：2001-9-6 15:35:00, ID：613694
能给我一份吗？
tkggai@sina.com
如果你需要主页空间的话，我可以分你一点
来自：动画人生, 时间：2001-9-6 15:41:00, ID：613704
请给我一份
duanlintao@263.net
来自：piler, 时间：2001-9-6 20:57:00, ID：614149
给我一份,Thanks!! piler@163.net
来自：yth, 时间：2001-9-6 21:20:00, ID：614188
给我一份,Thanks!! yth@telekbird.com.cn
来自：mtoto, 时间：2001-9-6 21:22:00, ID：614191
能给我一份吗？
bjbzw@21cn.com
来自：omvm, 时间：2001-9-6 21:35:00, ID：614214
还有我
omvm@sohu.com
来自：zqq, 时间：2001-9-7 8:10:00, ID：614520
不要把我拉下
ycyczqq@21cn.com
来自：zl, 时间：2001-9-7 8:31:00, ID：614551
不能没有我的份呀
mailto:zhulin@163.net
来自：harmer, 时间：2001-9-7 8:36:00, ID：614566
谢了，也给我一份吧！
来自：duanyu, 时间：2001-9-7 8:45:00, ID：614587
thanks，
duansoft@21cn.com
来自：zqs10597249, 时间：2001-9-7 9:57:00, ID：614679
给我一份吧
zqs10597249@sina.com.cn
谢谢！
来自：hcx, 时间：2001-9-7 10:11:00, ID：614708
那么多人要肯定是好东东。所以我也要一份。
mail to:hzg004@163.net
来自：yufei, 时间：2001-9-7 10:12:00, ID：614711
也给我一份吧：
bgh@263.net
谢谢先！
来自：蛐蛐, 时间：2001-9-7 10:37:00, ID：614753
TO SujmSujm,你有没有，如果没有，就结束问题。
To all 哎。
来自：DiamondKing, 时间：2001-9-7 10:43:00, ID：614761
我也要。 zcgjerry@163.com
有后台的数据吗？
来自：润五月, 时间：2001-9-7 13:24:00, ID：615142
给我一份！谢谢
cuicuiczy@sohu.com
来自：hdzj2000, 时间：2001-9-7 13:31:00, ID：615152
给我也来一份！非常感谢！！！
hdzj2000@sina.com
来自：hymen1, 时间：2001-9-7 15:03:00, ID：615365
能给我发一份吗
hymen1@163.net
来自：jnleis, 时间：2001-9-7 17:34:00, ID：615734
ME TOO
jnleis@163.net
来自：lishding, 时间：2001-9-7 17:52:00, ID：615784
我也要一分学习学习
lishding@163.net
来自：kevincsg, 时间：2001-9-7 18:14:00, ID：615836
我也要一份kevin-csg@163.com
谢谢
来自：superbenben, 时间：2001-9-12 12:34:00, ID：621573
给我一份吧！！
最近我在编财务软件，需要，急需！！
chengyon2000@263.net
谢谢你！！！
来自：jinnys, 时间：2001-9-12 17:19:00, ID：622216
give me !!!!
jinnys@263.net
来自：jinnys, 时间：2001-9-12 17:19:00, ID：622220
give me !!!!
jinnys@263.net
来自：jianping0, 时间：2001-9-12 20:27:00, ID：622562
give me source!
jianping0@china.com
thank you!!!
来自：oldppp, 时间：2001-9-12 21:08:00, ID：622625
我要！
oldppp@263.net
来自：狄克, 时间：2001-9-12 22:00:00, ID：622705
Give me a copy!
g1206@yeah.net
Thanks!
来自：hongma, 时间：2001-9-12 22:04:00, ID：622712
mail to:yuebao@china.com
thanks
来自：ah_dragon, 时间：2001-9-12 22:33:00, ID：622747
mail to ah_dragon@sohu.com
thanks
来自：无雨, 时间：2001-9-18 15:00:00, ID：631993
mail to cfrourou@yeah.net
thanks
来自：dingbaosheng, 时间：2001-9-18 15:03:00, ID：632003
上传 上传 http://delphi.itschem.com [
][][][][][][][]来自：了了, 时间：2001-9-18 15:13:00, ID：632030
Please give it to me.
gcgyzcsx@mail.sc.cninfo.net
来自：wind fly, 时间：2001-9-18 15:39:00, ID：632113
ba_ljy@chinaren.com
来自：ml81888, 时间：2001-9-18 15:50:00, ID：632155
也给我一份吧
来自：ml81888, 时间：2001-9-18 15:52:00, ID：632159
也给我一份吧
来自：TomZhao, 时间：2001-9-18 15:52:00, ID：632161
刚才在PB里面做了一个.速度慢.
能否发一个参考参考
gyzly@263.net
3ks
来自：ailun, 时间：2001-9-19 1:14:00, ID：632530
给我一分
(gukehui@sohu.com.cn)
来自：cine2, 时间：2001-9-19 8:03:00, ID：632579
w-g@21cn.com谢
来自：i301zxr, 时间：2001-9-26 10:10:00, ID：645372
我现在刚在学树，能否也给我一份，谢谢！！i301zxr_002@163.com
来自：zcm1975117, 时间：2001-9-26 14:18:00, ID：645987
to me:
zcm1975117@21cn.com
来自：lliuxxingw, 时间：2001-9-26 15:58:00, ID：646224
to me:
lliuxxingw@163.net
来自：网中游, 时间：2001-9-27 17:30:00, ID：648507
me too xywjbprogram@263.net
来自：hbezwwl, 时间：2001-9-27 19:04:00, ID：648670
thank you!
to me:ftbmj@163.net
来自：LJH1978, 时间：2001-9-27 19:13:00, ID：648685
谢谢，请给我一份
LYPLAY1@21CN.COM
来自：yanlei, 时间：2001-9-27 19:21:00, ID：648689
[gold]谢谢，请给我一份
yanleigis@21cn.com[/gold]
yanleigis@21cn.com[/gold]
]来自：zcm1975117, 时间：2001-9-28 8:35:00, ID：649078
sujmsujm:
你好!!发给我一份吧,我正想使用这个控件连接数据库,就是没有好一点的例子!!谢谢你了!!
zcm1975117@21cn.com
来自：kelisten, 时间：2001-9-28 8:48:00, ID：649094
mailto: yxj@cdsf.com
thx!!
来自：铁锈, 时间：2001-9-28 8:55:00, ID：649105
请给我也一份吧
mooyan@263.net,谢谢
来自：blue_morning, 时间：2001-9-28 8:58:00, ID：649113
看后一定回复。
blue_morning@sina.com
来自：ccgs, 时间：2001-9-28 9:23:00, ID：649161
给我也来一份，谢谢
ccgs@cmmail.com
还是好人多啊！
来自：pmis_2000, 时间：2001-9-28 9:43:00, ID：649197
给我也来一份,谢谢!,万分感激!!!
pmis_2000@yahoo.com.cn
来自：hunyuan, 时间：2001-9-28 10:06:00, ID：649236
yulm@cy6.dq.cnpc.com.cn
thanks
来自：gotosea, 时间：2001-9-28 10:39:00, ID：649298
seeinrain@sohu.com
来自：shephard, 时间：2001-9-28 11:11:00, ID：649383
我要， shephard@21cn.com 谢谢！ [
]来自：edgaryu, 时间：2001-9-28 11:22:00, ID：649415
给我一份：edgaryu@etang.com,谢谢
来自：zhoujy, 时间：2001-9-28 11:49:00, ID：649480
我也要，jianyu_zhou@163.com 谢谢！[
]来自：SINGLBOY, 时间：2001-9-28 12:03:00, ID：649507
给我一份，谢谢。woho@yesky.com
来自：keler, 时间：2001-9-28 12:08:00, ID：649516
能实现动态的无限级扩展吗？如可以，给我一份。
friends_cool@163.com
来自：zgdtxf, 时间：2001-9-28 14:47:00, ID：649824
给我一份，谢谢。zzggdd@telekbird.com.cn
来自：xang2001, 时间：2001-9-28 16:22:00, ID：649981
给我一份，谢谢。xang0808@sina.com.cn
来自：ligbin, 时间：2001-10-2 15:47:00, ID：654352
也给我一份，谢谢！！！djgpplee@21cn.com
来自：SujmSujm, 时间：2001-10-5 22:15:00, ID：657160
如有兴趣请到：http://delphi.mychangshu.com/dispdoc.asp?id=203
下载，有好建议不要忘了告诉我.............
来自：yyanghhong, 时间：2001-10-6 1:00:00, ID：657266
go to http://delphi.mychangshu.com/dispdoc.asp?id=204, the method is quite fast,
and support drag and drop
来自：SujmSujm, 时间：2001-10-6 8:39:00, ID：657363
<<收费系统>>,TTreeview编程中起到了重要的位置，
用treeview控件控制数据库,
实现一对多多树形结构以供交流.
download: http://delphi.mychangshu.com/dispdoc.asp?id=203
来自：铁锈, 时间：2001-10-6 9:52:00, ID：657451
SujmSujm:你给得是一个可以直接运行得东东嘛，我没有用过Ttreeview,仅仅一个界面，
看不懂阿，能不能把源码方上去，给大家交流学习一下阿。
来自：zfnet, 时间：2001-10-6 9:54:00, ID：657453
别丢掉：
zylsoft@sina.com
来自：zoes, 时间：2001-10-6 10:04:00, ID：657470
俺也想要
yulswa@263.net
俺会给分的
来自：naj, 时间：2001-10-6 10:58:00, ID：657542
给我一份
heiang@163.net
来自：daiwei, 时间：2001-10-6 11:42:00, ID：657617
给我一份
daiwei@163.net
来自：SujmSujm, 时间：2001-10-6 14:00:00, ID：657724
download : http://delphi.mychangshu.com/dispdoc.asp?id=203
来自：Chien Yusin, 时间：2001-10-8 14:02:00, ID：660125
请给我一份，谢谢！
chienyusin@21cn.com
来自：大海黄, 时间：2001-10-8 14:16:00, ID：660166
速度如何啊，如果速度能跟上，不妨给我一份
<a href=mailto:hai_zero@263.net>这是我的邮箱</a>
来自：tooper, 时间：2001-10-9 16:15:00, ID：663169
me 也想欣赏欣赏
能给我一份吗
asd_studio@263.net
来自：geyufly, 时间：2001-10-9 16:40:00, ID：663233
我也想要，谢谢 geyufly@yahoo.com.cn
来自：xiaoqi, 时间：2001-10-9 22:06:00, ID：663742
给我一份吧
qhl0104_2001@Chinaren.com
来自：SujmSujm, 时间：2001-10-10 22:15:00, ID：665538
please download : http://delphi.mychangshu.com/dispdoc.asp?id=203
Sujm
来自：kcgee, 时间：2001-10-16 10:19:00, ID：675254
请给我一份，谢谢！
kcgee@21cn.com
来自：chenliang_fly, 时间：2001-10-16 11:25:00, ID：675429
me too .thank you [
]来自：chenliang_fly, 时间：2001-10-16 11:30:00, ID：675446
me too ,thank you email:chenliang@butone.com[
]来自：zhongjiancai, 时间：2001-10-16 14:12:00, ID：675707
我也要，laozhong97@263.net
来自：dwcao, 时间：2001-10-16 16:47:00, ID：676046
我也要！dwcao@163.net 致崇高的敬礼！
来自：wanfamily, 时间：2001-10-17 11:28:00, ID：677362
太好了，我也想要一份。谢谢！
email:dogandgod2001@163.net
来自：jackylh, 时间：2001-10-17 12:58:00, ID：677552
请给我一份，谢谢！
jackylh@21cn.com
来自：jxt1, 时间：2001-10-21 2:05:00, ID：683780
我也要一份， jxt1@21cn.com 谢谢！
来自：emailcdz, 时间：2001-10-21 21:03:00, ID：684631
太好了，我也想要一份。谢谢！
emailcdz@yeah.net
来自：SujmSujm, 时间：2001-10-21 21:22:00, ID：684664
您的水平可以在这里发挥--招聘兼职写程序(delphi+sql server7.0)
老乡们，帮帮忙！！
===========================================
招聘兼职写程序(delphi+sql server7.0)-在江苏常熟市
===========================================
我们有一些项目，但苦于没有好的人手。靠一、二人无法完成理想的项目.
我司发出项目后，由兼职人员编好，送DEMO版，或来本人洽谈,当然路费问题不用说了.
要求：
1、有delphi使用经验
2、熟悉sql server7.0 or SQL server2000
备注：男性
有意者 请联系： sujm@public1.sz.js.cn
http://delphi.mychangshu.com/dispdoc.asp?id=203
SujmSujm
来自：xinjia, 时间：2001-10-21 22:20:00, ID：684751
lh_cnha@yahoo.com.cn
来自：zhaohai9, 时间：2001-10-22 0:41:00, ID：684873
我有兴趣加入，zhaohai9@163.net
来自：asljl, 时间：2001-10-22 1:30:00, ID：684890
能给我一份吗？谢谢
来自：blue_morning, 时间：2001-10-22 8:14:00, ID：684936
我也来一份
blue_morning@sina.com
来自：wn66, 时间：2001-10-22 11:57:00, ID：685454
給我一份好嗎?先謝了!!!!有源程式嗎?
E-mail:wang66nan@163.com
来自：dtwujp, 时间：2001-10-22 20:10:00, ID：686477
还有吗，给我一份。dtwujp@sohu.com
来自：SujmSujm, 时间：2001-10-22 20:21:00, ID：686499
to :：dtwujp
http://delphi.mychangshu.com/dispdoc.asp?id=203
Sujm
来自：ski, 时间：2001-10-23 10:29:00, ID：686861
谢谢提供
来自：wffox, 时间：2001-10-23 14:36:00, ID：687437
我也要,wffox@elong.com
来自：hualiuc, 时间：2001-10-23 16:16:00, ID：687615
我也要,lch@tyfonet.com
来自：yuso, 时间：2001-10-23 21:02:00, ID：688043
好東西,偶也要. yuso@163.com
来自：thomashukaidi, 时间：2001-10-23 23:50:00, ID：688258
thank a lot
来自：laidh, 时间：2001-10-24 9:08:00, ID：688426
给我一份，谢谢！
laidh@163.net
来自：zl, 时间：2001-10-26 8:00:00, ID：690839
[
]zhulin@163.net请给我一份，谢谢！
shanteng@21cn.com
H
HAZL
Unregistered / Unconfirmed
GUEST, unregistred user!
zhangleiha@263.net
J
jqw
Unregistered / Unconfirmed
GUEST, unregistred user!
me too,thank you very much!!
j_qw_cn@sina.com
j_qw_cn@sina.com
W
wingirl
Unregistered / Unconfirmed
GUEST, unregistred user!
to me ,thanks
wingirlzhou@163.com
wingirlzhou@163.com
K
kyonee
Unregistered / Unconfirmed
GUEST, unregistred user!
我也想得到你的帮助，给我一份，好吗？谢谢！c974@163.com
K
kyonee
Unregistered / Unconfirmed
GUEST, unregistred user!
谁有dxDBTreeView的download地址！？
B
baniu
Unregistered / Unconfirmed
GUEST, unregistred user!
给我一份:baniu@yesky.com