有这样一个数据库的问题,希望兄弟们帮我解决! ( 积分: 50 )

  • 主题发起人 主题发起人 eagledark001
  • 开始时间 开始时间
E

eagledark001

Unregistered / Unconfirmed
GUEST, unregistred user!
首先数据库中已经放好了这样的数据
NAME YEWUZONGHAO KUFANGWEIZHI RIQI
一库房
二库房
张三 2005123456 三库房 20050620
四库房


要求:1。数据录入,查找库房是否为空,如果为空,则插入值。
2。如果不为空,继续查找,直到找到为空的,将值插入。
3。库房是固定的,我已经设为关键字,不能为空
4。是否可以通过判断名字为空,则插入
请大家帮我想想,谢谢了,保证给分
 
首先数据库中已经放好了这样的数据
NAME YEWUZONGHAO KUFANGWEIZHI RIQI
一库房
二库房
张三 2005123456 三库房 20050620
四库房


要求:1。数据录入,查找库房是否为空,如果为空,则插入值。
2。如果不为空,继续查找,直到找到为空的,将值插入。
3。库房是固定的,我已经设为关键字,不能为空
4。是否可以通过判断名字为空,则插入
请大家帮我想想,谢谢了,保证给分
 
procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from talbe ');
adoquery1.Open;
if adoquery1.RecordCount<>0 then
begin
while adoquery1.Eof=false do
begin
if (adoquery1.FieldByName('name').AsString='') or (adoquery1.FieldByName('name').AsString=null) then
begin
adoquery1.Edit;
adoquery1.FieldByName('name').AsString:='aaaa';
adoquery1.FieldByName('YEWUZONGHAO').AsString:='aaaa';
adoquery1.FieldByName('RIQI').AsDateTime:=date;
adoquery1.Post;
break;
end;
adoquery1.Next;
end;
end;
end;
 
能发到我信箱里吗?mcyqyh@163.com谢谢
 
如果我想知道这个值插入到那个库房怎么办。要返回一个值知道他放到了哪个位置。
 
还有其他的方法吗?如果要继续输入怎么办
是不是弄个IF else
我是初学者!
 
..看不太懂。。
NAME YEWUZONGHAO KUFANGWEIZHI RIQI
一库房
二库房
张三 2005123456 三库房 20050620
四库房

是几条数据啊....
要求:1。数据录入,查找库房是否为空,如果为空,则插入值。
2。如果不为空,继续查找,直到找到为空的,将值插入。
3。库房是固定的,我已经设为关键字,不能为空
4。是否可以通过判断名字为空,则插入
感觉你的描述有点问题...
3。库房是固定的,我已经设为关键字,不能为空 那你的1,2干什么的,没必要..
名字为空插入,插入什么,根据什么插入
 
1,2是固定的库房,插入人员信息呀,就好象分配学生到哪个宿舍一样,宿舍是固定的,将学生信息分配进去,判断姓名为空,空就插入。这样明白了吧!
 
我下面的代码不好用吗?
procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from talbe ');
adoquery1.Open;
if adoquery1.RecordCount<>0 then
begin
while adoquery1.Eof=false do
begin
if (adoquery1.FieldByName('name').AsString='') or (adoquery1.FieldByName('name').AsString=null) then
begin
adoquery1.Edit;
adoquery1.FieldByName('name').AsString:='aaaa';
adoquery1.FieldByName('YEWUZONGHAO').AsString:='aaaa';
adoquery1.FieldByName('RIQI').AsDateTime:=date;
adoquery1.Post;
break;
end;
adoquery1.Next;
end;
end;
end;
 
谢谢,分手给你wanghaiou
 
好用
正确,谢谢大哥指点
 
如果我想知道这个值插入到那个库房怎么办。要返回一个值知道他放到了哪个位置。
你可以在 adoquery1.Post; 后面加上
showmessage(adoquery1.FieldByName('KUFANGWEIZHI').AsString);
 
哪来的分,你也没结贴呀?
 
接受了哦谢谢!
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
913
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部