DELPHI中的EDIT输入必填与可选填入问题,请教各位前辈 |
答題得分者是:supman
|
ntjrr
高階會員 發表:240 回覆:312 積分:110 註冊:2005-04-24 發送簡訊給我 |
我现在制作的通讯录软件,放了若干个EDIT编辑框,读写到数据库中都没有问题,但关键是运行程序输入内容后,一个字段都不能少,少了就提示要输入,好象都是必填字段了。但我在数据库字段中只有姓名是设为必填的,其它都可选的,请问我如何才能让有的内容不必填呢?我用的代码如下,BYNAME后的面乱码是数据库中相应字段的中文,拷过来好象有点乱码。
我想知道,EDIT的属性中有无设置好改动的,或者说代码中加什么参数就能处理好了?谢谢!
ADOTable1.FieldByName('ÐÕÃû').AsString := Edit1.Text;
ADOTable1.FieldByName('Æ´ÒôÂë').AsString := Edit2.Text;
ADOTable1.FieldByName('СÁéͨ').AsString := Edit3.Text;
ADOTable1.FieldByName('ÊÖ»ú').AsString := Edit4.Text;
ADOTable1.FieldByName('Õ¬µç').AsString := Edit5.Text;
ADOTable1.FieldByName('ÁªÏµµØÖ·').AsString := Edit6.Text;
ADOTable1.FieldByName('QQ').AsString := Edit7.Text;
ADOTable1.FieldByName('µç×ÓÐÅÏä').AsString := Edit8.Text;
ADOTable1.FieldByName('·Ö×é').AsString := Edit9.Text;
ADOTable1.FieldByName('ʹÓÃƵÂʼ¶±ð').AsString := Edit10.Text;
ADOTable1.FieldByName('±¸×¢').AsString := Edit11.Text;
ADOTable1.Post; 發表人 - ntjrr 於 2005/04/24 16:20:58
------
我的编程起步于ktop,我将永远支持ktop |
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
您好:
好像沒有耶,使用FindComponent做看看
procedure TForm1.Button2Click(Sender: TObject); var C: TEdit; I: Integer; A: array[0..2] of boolean; begin A[0]:=true;//要輸入 A[1]:=false;//不用輸入 for I:=0 to 2 do begin C := TEdit(FindComponent('Edit' IntToStr(I))); if (C.Text='') and (A[i]) then begin showmessage('請輸入資料'); C.SetFocus(); end; end; end;發表人 - supman 於 2005/04/24 16:55:00 |
ntjrr
高階會員 發表:240 回覆:312 積分:110 註冊:2005-04-24 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |