盒子论坛 v2.1

是啊,你用斷點跟蹤一下,它的錯誤是
比如:
var
  in1:integer;
  str1:string;
begin
  str1:='a1';    <--一個不能轉換成整數的字符
  in1:=strtoint(str1);  <--此時出錯
end;

var
  in1:integer;
  str1:string;
begin
  str1:='11';    <--要這種賦值
  in1:=strtoint(str1);  end;
----------------------------------------------
-

﹗﹗﹗

作者：

happyfox (happyfox)	★☆☆☆☆	-
	普通会员

2003/12/17 9:38:53

3楼：

var
  i:integer;
  Str,s:String;
  SQLTime:boolean;

begin
  SQLTime:=True;
  s:='select * from jshjk.db where a<>nil';
  for i := 0 to jshjcx.ComponentCount-1 do
  begin
   try
    str:=jshjcx.Components[i].Name;
    if ((jshjcx.Components[i] is Tcombobox) //判断是不是COMBOBOX且不能为时间相关的组合框
    and((jshjcx.Components[i] as Tcombobox).text<>'))then
      if not((str=ComboboxYear.Name) or (str=ComboboxMonth.Name)
        or(str=ComboboxSecYear.Name)or (str=ComboboxSecMonth.Name) )then
        s:=s+' and '+copy(jshjcx.Components[i].Name,(Length(jshjcx.Components[i].Name)-3),4)+'='  //限制字段长度为了4
        +(jshjcx.Components[i] as Tcombobox).text
      else //如果时间相关的年份有数据的话
        if ((ComboboxYear.text<>')  and SQLTime)then
        begin
          s:=s+' and hjsj between :date1 and :date2';
          SQLTime:=false;
        end;
    if ((jshjcx.Components[i] is TEdit) //如果是文本框控件的话
      and((jshjcx.Components[i] as TEdit).text<>'))then
      s:=s+' and '+copy(jshjcx.Components[i].Name,(Length(jshjcx.Components[i].Name)-3),4)+'='  //限制了字段长度必须为4
      +(jshjcx.Components[i] as TEdit).text;
   except
     exit;
   end;

  end;
  showmessage(s); //用于测试,到这一步没问题,应是S相加之后在执行SQL时出的问题
end;
//设置完SQL语句之后开始查询
with query1 do
begin
  Close;
  SQL.Clear;
  SQL.Add(s);
  ParamByName('date1').AsDate:=
    EncodeDate(StrToInt(ComboBoxYear.Text),StrToInt(ComboBoxMonth.Text),1);
  ParamByName('date2').AsDate:=
    EncodeDate(StrToInt(ComboBoxSecYear.Text),StrToInt(ComboBoxSecMonth.Text),30);
  prepare;
  open;
end;

如果在列表框中只选择一个教师组别数据也出错.

此帖子包含附件:

大小:53.7K

----------------------------------------------
无论你是狮子还是羚羊，为了生存，你别无选择，你必须跑！

作者：

dingning (丁宁)	★☆☆☆☆	-
	盒子活跃会员

2003/12/17 9:42:34

4楼：

可以使用控件不用那末多的下拉列表框
----------------------------------------------
-愿天下有情人终成眷属！
http://www.pro-thinking.com/bbs/

作者：

heihei_76 (小黑)	★☆☆☆☆	-
	盒子活跃会员

2003/12/17 10:46:43

5楼：

你能把此時的sql語句顯示出來看看嗎﹖,就是說﹐你不執行execsql或open。
顯示query1.sql.text出來看看﹐
----------------------------------------------
-

﹗﹗﹗

作者：

happyfox (happyfox)	★☆☆☆☆	-
	普通会员

2003/12/23 18:48:29

6楼：

谢谢各位兄弟问题已经解决了
----------------------------------------------
无论你是狮子还是羚羊，为了生存，你别无选择，你必须跑！

信息

登陆以后才能回复