代码如下:
procedure TForm9.Button1Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select number from [teltable] where number='''+trim(edit1.Text)+'''');
adoquery1.Open;
//判断是否有空
if(trim(edit1.Text)<>'')and(trim(edit2.Text)<>'') then
begin
//判断用户是否已经存在
if(trim(edit1.Text)=adoquery1.FieldByName('number').AsString) then
begin
showmessage('用户已经存在,无法添加!');
Edit1.Clear;edit2.Clear;edit1.SetFocus;
end
//插入数据库的表中
else
begin
try
adotable1.Open;
adotable1.Append;
adotable1.FieldByName('number').AsString:=trim(edit1.Text);
adotable1.FieldByName('password').AsString:=trim(edit1.Text);
adotable1.FieldByName('name').AsString:=trim(edit2.Text);
showmessage('添加成功!');
Edit1.Clear;
Edit2.Clear;
edit1.SetFocus;
except
showmessage('数据库链接出错!');
end;
end;
end
else
begin
showmessage('学号和姓名不能为空!');
Edit1.Clear;
Edit2.Clear;
edit1.SetFocus;
end;
我感觉代码应该没太大问题,可以运行,运行时空的不允许添加,已有的不允许添加,符合标准的也弹出了message了,可是我打开我的telnumber表,并没有新添加的元组,各位帮忙啊!
end;
procedure TForm9.Button1Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select number from [teltable] where number='''+trim(edit1.Text)+'''');
adoquery1.Open;
//判断是否有空
if(trim(edit1.Text)<>'')and(trim(edit2.Text)<>'') then
begin
//判断用户是否已经存在
if(trim(edit1.Text)=adoquery1.FieldByName('number').AsString) then
begin
showmessage('用户已经存在,无法添加!');
Edit1.Clear;edit2.Clear;edit1.SetFocus;
end
//插入数据库的表中
else
begin
try
adotable1.Open;
adotable1.Append;
adotable1.FieldByName('number').AsString:=trim(edit1.Text);
adotable1.FieldByName('password').AsString:=trim(edit1.Text);
adotable1.FieldByName('name').AsString:=trim(edit2.Text);
showmessage('添加成功!');
Edit1.Clear;
Edit2.Clear;
edit1.SetFocus;
except
showmessage('数据库链接出错!');
end;
end;
end
else
begin
showmessage('学号和姓名不能为空!');
Edit1.Clear;
Edit2.Clear;
edit1.SetFocus;
end;
我感觉代码应该没太大问题,可以运行,运行时空的不允许添加,已有的不允许添加,符合标准的也弹出了message了,可是我打开我的telnumber表,并没有新添加的元组,各位帮忙啊!
end;
adotable1.FieldByName('number').AsString:=trim(edit1.Text);
adotable1.FieldByName('password').AsString:=trim(edit1.Text);
adotable1.FieldByName('name').AsString:=trim(edit2.Text);
adotable1.post; // <- 加上
showmessage('添加成功!');
Edit1.Clear;