跪求altera cyclone 2 的ep2c5t144c8...的高电平引脚pin ....还有出租车的VHDL程序y以及引脚分配。
1个回答
展开全部
//保存图片到图片表
if Trim(TextBox6.Text)<>'' then //图片有装入才能保存
begin
srm:=TMemoryStream.Create;
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('delete from zx_tpb where bt=:bt');
ADOquery1.Parameters.ParamByName('bt').Value:=Trim(TextBox1.Text);
ADOquery1.ExecSQL;
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('insert into zx_tpb (bt,tp) values (:bt,:tp)');
ADOquery1.Parameters.ParamByName('bt').Value:=Trim(TextBox1.Text);
Image3.Bitmap.SaveToStream(srm);
srm.Position := 0;
if srm.Size > 0 then
adoquery1.Parameters.ParamByName('tp').LoadFromStream(srm,ftblob); //图片
adoquery1.ExecSQL;
end;
if Trim(TextBox6.Text)<>'' then //图片有装入才能保存
begin
srm:=TMemoryStream.Create;
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('delete from zx_tpb where bt=:bt');
ADOquery1.Parameters.ParamByName('bt').Value:=Trim(TextBox1.Text);
ADOquery1.ExecSQL;
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('insert into zx_tpb (bt,tp) values (:bt,:tp)');
ADOquery1.Parameters.ParamByName('bt').Value:=Trim(TextBox1.Text);
Image3.Bitmap.SaveToStream(srm);
srm.Position := 0;
if srm.Size > 0 then
adoquery1.Parameters.ParamByName('tp').LoadFromStream(srm,ftblob); //图片
adoquery1.ExecSQL;
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询