我新建了一個窗體,添加了一個DBGrid,Datasource,Query組件,設置query1的databasename的屬性為:D:\05248,Active設置為true, DBGrid1的datasource設置為datasource1, datasource1的dataset設置為query1.
再添加了3個edit組件和一個button組件,
其中button的代碼為:procedure TForm1.Button1Click(Sender: TObject);
var id,xm,xb:String;
begin
with query1 do
begin
close;
SQL.clear;
sql.add( 'insert into yuangong(no,name,sex) values( :id,:xm,:xb )' );
parambyname('id').Asstring:=edit1.Text;
parambyname('xm').AsString:=edit2.Text;
parambyname('xb').AsString:=edit3.Text;
execSQL;
end;
end;運行,出現錯誤:
[Hint] Unit1.pas(72): Variable 'id' is declared but never used in 'TForm1.Button1Click'
[Hint] Unit1.pas(72): Variable 'xm' is declared but never used in 'TForm1.Button1Click'
[Hint] Unit1.pas(72): Variable 'xb' is declared but never used in 'TForm1.Button1Click'
這是真麽原因?
麻煩大家指點一下。在此,我謝謝大家樂!!!
再添加了3個edit組件和一個button組件,
其中button的代碼為:procedure TForm1.Button1Click(Sender: TObject);
var id,xm,xb:String;
begin
with query1 do
begin
close;
SQL.clear;
sql.add( 'insert into yuangong(no,name,sex) values( :id,:xm,:xb )' );
parambyname('id').Asstring:=edit1.Text;
parambyname('xm').AsString:=edit2.Text;
parambyname('xb').AsString:=edit3.Text;
execSQL;
end;
end;運行,出現錯誤:
[Hint] Unit1.pas(72): Variable 'id' is declared but never used in 'TForm1.Button1Click'
[Hint] Unit1.pas(72): Variable 'xm' is declared but never used in 'TForm1.Button1Click'
[Hint] Unit1.pas(72): Variable 'xb' is declared but never used in 'TForm1.Button1Click'
這是真麽原因?
麻煩大家指點一下。在此,我謝謝大家樂!!!
将var id,xm,xb:String;这句删掉就可以了。