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 發送簡訊給我 |
發表時間：2005-04-24 16:12:39
IP:222.184.xxx.xxx 未訂閱
系統時間：2024-05-17 14:35:35
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |