急！求救！Help me~~~~~~~~~~！SOS~~~~~~~~~~~~~！(50分)

狮

狮子王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #1

有两个表！
table1：编号，姓名，部门
table2：姓名
我想对table1用button1进行添加，我想用一个TCombox控件为姓名的文本，也就是说在
TCombox里的姓名是table2里的。如果table2里没有我要人的姓名，可以直接在TCombox里
输入我要添加人的姓名，并且点击button1后，把原来TCombox里没有的姓名添加到TCombox
里，以便下次添加时存在！
请问各路大虾，该如何解决，请说的详细点，小弟不甚感激！

 

D

deadcandance

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #2

每加一次数据到Table1，也把姓名存到Table2中，然后combox.items.clear，再用Table2中
的数据填充一遍。

 

狮

狮子王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #3

那如何把table2中的数据填充一遍呢？
还有如果每次都把姓名存到table2中的话，那如果出现了相同名字的，不就报错了！
请您在说详细点好吗？
因为我是个初学者！

 

A

Allen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #4

在BOTTON1 的事件中，在写TABLE1后，在在TABLE2中检索TCOMBBOX 编辑框中的姓名如果没有则
在TABLE2中插入。

 

Y

yong9898

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #5

procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Add(ComboBox1.Text);
end;
如果担心重复的话，可以在添加前，遍历一遍
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i:=0 to ComboBox1.Items.Count-1 do
if ComboBox1.Items=ComboBox1.Text
then Exit;
ComboBox1.Items.Add(ComboBox1.Text);
end;

 

L

liangdewei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #6

事实上，你即使添加到了COMBOBOX上，也得往数据库里保存，以保证你下次进来的
时候还有。当然，如果你又不想太麻烦，更新数据库的话，你可以用一个文本文件来
保存，呵呵，虽然有点老土，可是，简单：）
下面是检查COMBOBOX里是否有重复的姓名，没有则添加。
对了 ，随便说一句，楼上同志的做法未免太恐怖了吧，用恐怖的循环？！：）
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
if combobox1.Items.IndexOf(ComboBox1.Text)<0 then
ComboBox1.Items.Add(ComboBox1.Text);
end;

 

狮

狮子王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #7

怎么还是没有用呢？

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #8

建议你先看一些关于delphi控件使用的书。
这些问题好像不应该放在这里。

 

Y

yong9898

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #9

你好好看看吧，肯定可以的。把分加给大家吧。

 

狮

狮子王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #10

多人接受答案了。