谁有能力并帮我解决这个问题，我给他满分！！！！！！！！

Question

现在有3个TEdit匡，我已经实现可以并只能望其中输入数字（字符型），现在需要实现一下功能：   
       0、将字符转化成字符
       1、设置其内容不能为空
       2、将3个TEdit里面的内容存入Access数据库中（可以调用sql语句实现）
先谢谢大家了,我要源码。

Answer 1

现在有3个TEdit匡，我已经实现可以并只能望其中输入数字（字符型），现在需要实现以下功能：   
       1、将字符转化成字符
       2、设置其内容不能为空
       3、将3个TEdit里面的内容存入Access数据库中（可以调用sql语句实现）
先谢谢大家了,我要源码。

Answer 2

设置内容不能为空？
if (Trim(Edit1.Text) = '') then 
begin
  Application.MessageBox('内容不能为空', '提示', MB_ICONINFORMATION);
  Exit;
end;

Answer 3

将3个TEdit里面的内容存入Access数据库中
TADOConnection.Execute('Insert into table1(field1, field2, field3) '#13#10 +
  'values(' + edit1.text + ',' + Edit2.Text + ',' + Edit3.Text + ')');

Answer 4

StrToInt(Edit1.Text);
if (Trim(Edit1.Text) = '') then 
begin
  Application.MessageBox('内容不能为空', '提示', MB_ICONINFORMATION);
  Exit;
end;
TADOConnection.Execute('Insert into table1(field1, field2, field3) '#13#10 +
  'values(' + edit1.text + ',' + Edit2.Text + ',' + Edit3.Text + ')');你是这个意思吗？

Answer 5

1、StrToInt(Edit1.Text)//整型，StrToFloat(Edit1.text)//浮点型
2、procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Trim(TEdit(Sender).Text)='' then
  begin
     TEdit(Sender).SetFocus;
     Application.MessageBox('请输入数字！','提示',MB_OK);
  end;
end;
3、 
procedure TForm1.Button1Click(Sender: TObject);
var
  InsertSQL:string;
begin
  InsertSQL:='Insert into TableName (Field1,Field2,Field3) values( '
             +#39+Edit1.Text+#39+', '
             +#39+Edit2.Text+#39+', '
             +#39+Edit3.Text+#39+')';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(InsertSQL);
  ADOQuery1.ExecSQL;

Answer 6

Delphi里面是不是不能直接使用整型变量integer？
当我要讲这些已经转化好的整型数据弄好后，怎么具体将数据存入数据库中（当然数据库重要的是整型数据）

Answer 7

to akwa，我是在赶项目，谢谢你的建议

Answer 8

、 
procedure TForm1.Button1Click(Sender: TObject);
var
  InsertSQL:string;
begin
  InsertSQL:='Insert into TableName (Field1,Field2,Field3) values( '
             +Edit1.Text+', '
             +Edit2.Text+', '
             +Edit3.Text+')';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(InsertSQL);
  ADOQuery1.ExecSQL;

Answer 9

Delphi里面是不是不能直接使用整型变量integer？
当我要将这些已经转化好的整型数据弄好后，怎么将它们存入数据库中（当然数据库重要的是整型数据），上面的程序存到数据库中之后是字符型数据吧？

Answer 10

edit onkeypress
begin
if not (key in ['0'..'9',#8,#13]) then
key:=#0;
end;
edit onexit
begin
if length(edit.text)=0 then
edit.setfocus;
end;adoconnection+adoquery

Answer 11

当我将它转化成整形后
如：好像不能：a：=integer；
              a=Strtoint（b.text）；
我该怎么实现将b.text转化的整形数据存入数据库中？

Answer 12

1、StrToInt(Edit1.Text)//整型，StrToFloat(Edit1.text)//浮点型
2、procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Trim(TEdit(Sender).Text)='' then
  begin
     TEdit(Sender).SetFocus;
     Application.MessageBox('请输入数字！','提示',MB_OK);
  end;
end;
3、 
procedure TForm1.Button1Click(Sender: TObject);
var
  InsertSQL:string;
begin
  InsertSQL:='Insert into TableName (Field1,Field2,Field3) values( '
             +#39+Edit1.Text+#39+', '
             +#39+Edit2.Text+#39+', '
             +#39+Edit3.Text+#39+')';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(InsertSQL);
  ADOQuery1.ExecSQL;

Answer 13

var
  InsertSQL:string;
begin
  InsertSQL:='Insert into TableName (Field1,Field2,Field3) values( '
             +Edit1.Text+', '
             +Edit2.Text+', '
             +Edit3.Text+')';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(InsertSQL);
  ADOQuery1.ExecSQL;
试试！
把Edit1.Text保存到数据库中就是整形

Answer 14

用query
 with query1 do
     append;
     ...
         ..
..
    post;

Answer 15

我已经可以保存了，将它们保存在Access数据库中，但是我在delphi中用sql语句却调不出刚保存数据到控件中，不知道为什么，数据库已经保存了，但是就是更新不了！

Answer 16

adoquery.sql.text='select * from table';
adoquery.active:=true;