现在一头雾水

需求是：
1、点击一个医院 就可以添加联系人 联系方式 这些信息
2、点击一个城市 就可以添加医院名称 联系方式 联系人 等信息。
怎么写代码实现呢？

或者 谁能帮我讲下思路。
或者告诉我 是在click事件还是mousedown事件里写

别click了，在treeview的change事件中，判断节点的属性，是城市，右边加载录入医院界面，是医院，右边加载录入联系人界面。

弄个PAGECONTROL,添加两个页,第一页显示添加加医院名称 联系方式 联系人...
第二页显示添加联系人 联系方式 这些信息,
然后判断用户选择的节点是城市还是医院,然后根据需要显示页,同时隐藏掉另一页!~

加油啊

http://www.kuaipan.cn/file/id_48693573243109881.htm 访问密码： RKAAr6，去下载delphibbs的离线chm，新人想要找的答案，在里面几乎都有，这是dfw最后的遗产了。

呵呵

procedure TForm7.tv1Change(Sender: TObject; Node: TTreeNode);
var s1:string;
begin
s1:=node.Text;
if tv1.Selected.Text=s1 then
begin
with dscity do
begin
active:=false;
commandtext:='';
commandtext:='select * from customer where hospital =:h';
Parameters[0].Value:=s1;
active:=true;
end;
//因为要查询所有节点 所以selecte *
r:= dscity.FieldByName('region').Text;
ci:= dscity.FieldByName('city').Text;
h:= dscity.FieldByName('hospital').Text;
c:= dscity.FieldByName('contact').Text;
t:= dscity.FieldByName('telephone').Text;
end;
end;
这是我change里的代码
@jiangshi9999
treeview.selected.text怎么写呢??

还有 你看这怎么搞的？
一添加反而多出重复的城市和医院了、
是建树 的时候 循环出错么？
这是代码
begin
rootnode:=tv1.items.addchild(nil,'客户');
regionnode :=tv1.items.addchild(rootnode,dscity.fieldbyname('region').AsString);
with dscity do
begin
active := false;
commandtext :='select distinct city ,hospital,telephone,contact from customer order by city';
active :=true;
end;
dscity.first;
if not dscity.eof then
for i := 0 to dscity.recordcount - 1 do
begin
citynode :=tv1.Items.addchild(regionnode,dscity.fieldbyname('city').AsString);
with dshos do
begin
active :=false;
commandtext :='select * from customer where city =:c';
Parameters[0].Value:=citynode.Text;
active :=true;
end;
if not dshos.eof then
for j := 0 to dshos.recordcount - 1 do
begin
hospitalnode:= tv1.Items.addchild(citynode,dshos.fieldbyname('hospital').asstring);
dshos.next;
end;
dscity.next;
end;
end;

@jiangshi9999 太感谢你了

额...把IsExist: boolean;这句去掉吧!

procedure TMainFrm.AddTreeNode(Text: string);
var i: integer;
begin
for I := 0 to tv1.Items.Count - 1 do
begin
if tv1.Items[i].Text = Text then
Exit;
end; tv1.Items.addchild(XXXXXXXXX);
end;

获取到的医院名,然后不就可以获取到该医院的什么联系方式之类的吗
这.............
@jiangshi9999

procedure TForm7.btnAppendClick(Sender: TObject);
begin
with dscity do
begin
active := false;
commandtext :='select contact,telephone from customer where hosital=:h ';
active :=true;
end;
dscity.APPEND;
dscity.fieldbyname('contact').text:=dbedt1.text;
dscity.fieldbyname('telephone').text:=dbedt2.text;
dscity.fieldbyname('city').text:=ci;
dscity.FieldByName('hospital').Text:=h;
dscity.edit;
dscity.post;
drawtree;
end;
这是添加按钮的代码

begin
if tv1.Selected.Text= Node.Text then
begin
with dscity do
begin
active:=false;
commandtext:='';
commandtext:='select * from customer where hospital =selected.text'; Parameters[0].Value:=Node.Text;
active:=true;
end;
r:= dscity.FieldByName('region').Text;
ci:= dscity.FieldByName('city').Text;
h:= dscity.FieldByName('hospital').Text;
c:= dscity.FieldByName('contact').Text;
t:= dscity.FieldByName('telephone').Text;
end;
end;
这是change事件代码

r:= dscity.FieldByName('region').Text;
------------------------------------------
dscity.fieldbyname('telephone').text:=dbedt2.text;
dscity.fieldbyname('city').text:=ci;
我不理解这两个事件里这两段代码 总觉得不恰当 但说不出来
@jiangshi9999

你这个Changge代码严重不对....我给你改了.
begin
with dscity do
begin
active:=false;
commandtext:='';
commandtext:='select * from customer where hospital =''' + tv1.Selected.Text + '''';
active:=true;
end;
r:= dscity.FieldByName('region').Text;
ci:= dscity.FieldByName('city').Text;
h:= dscity.FieldByName('hospital').Text;
c:= dscity.FieldByName('contact').Text;
t:= dscity.FieldByName('telephone').Text;
end;

begin
with dscity do
begin
active := false;
commandtext :='select contact,telephone from customer where hosital=:h ';active :=true;
end;
dscity.APPEND;
dscity.fieldbyname('contact').AsString:=dbedt1.text;
dscity.fieldbyname('telephone').AsString:=dbedt2.text;
dscity.fieldbyname('city').text:=ci;
dscity.FieldByName('hospital').Text:=h;
dscity.edit;
dscity.post;
drawtree;end;
这样就好了么？
dscity.fieldbyname('city').text:=ci;
dscity.FieldByName('hospital').Text:=h; 不多余？
@jiangshi9999