定义的一些变量.
money:currency;
name:string;
date:tdate;
findquery.SQL.Clear;
findquery.SQL.Add('select * from TB_TICKET where 代金券编号 ='''+trim(edit1.text)+'''');
//上面一句话是查询代金券编号为edit1.text里的值.
money:=findquery.fields['金额'].AsCurrency; //这里有错误..错在哪?
name:=findquery.fields['客户名称'].AsString;
date:=now;//写入到一个新表中去.
queryname.SQL.Clear;
queryname.SQL.Add('insert into TB_SALES(代金券编号,金额,客户名称,消费日期,消费机号) values('''+edit1.Text+''',money,name,date,n)');
queryname.ExecSQL;现在要到一个TB_TICKET表中查找'代金券编号'为edit1.text.并且要将里面的一些字段 如:编号,金额,名称,等,追加到另一个表中去.
money:currency;
name:string;
date:tdate;
findquery.SQL.Clear;
findquery.SQL.Add('select * from TB_TICKET where 代金券编号 ='''+trim(edit1.text)+'''');
//上面一句话是查询代金券编号为edit1.text里的值.
money:=findquery.fields['金额'].AsCurrency; //这里有错误..错在哪?
name:=findquery.fields['客户名称'].AsString;
date:=now;//写入到一个新表中去.
queryname.SQL.Clear;
queryname.SQL.Add('insert into TB_SALES(代金券编号,金额,客户名称,消费日期,消费机号) values('''+edit1.Text+''',money,name,date,n)');
queryname.ExecSQL;现在要到一个TB_TICKET表中查找'代金券编号'为edit1.text.并且要将里面的一些字段 如:编号,金额,名称,等,追加到另一个表中去.
findquery.SQL.Add('select * from TB_TICKET where 代金券编号 ='''+trim(edit1.text)+'''');
//上面一句话是查询代金券编号为edit1.text里的值.
findquery.Open; // <----------------------------
money:=findquery.fields['金额'].AsCurrency; //这里有错误..错在哪?
定义变量就可以