日期判斷 |
|
答題得分者是：hagar
|
|
ddddd
一般會員   發表：4 回覆：5 積分：1 註冊：2002-12-15 發送簡訊給我 |
procedure TForm4.Button1Click(Sender: TObject);
var
sSQL:String;
begin
try
query1.SQL.Clear;
//insert into person.dbf (empno,name,sex) values(666,'starlife','man')
sSQL:='insert into person.dbf (empno,name,sex,birthday,towork,phone,address) values(';
sSQL:=sSQL EditNo.Text ',';
sSQL:=sSQL '''' EditName.Text ''',';
sSQL:=sSQL '''' EditSex.Text ''',';
sSQL:=sSQL '''' EditBirthday.text ''',';
sSQL:=sSQL '''' EditDate.text ''',';
sSQL:=sSQL EditPhone.Text ',';
sSQL:=sSQL '''' Editadd.text '''';
sSQL:=sSQL ')';
showMessage(sSQL); query1.SQL.Add(sSQL);
query1.ExecSQL;
showmessage('yes!');
self.Close;
except
showMessage('error');
end;
end; 請問要如果判斷 editbirthday和editdate 輸入的值是日期型態的丫
輸入錯誤型態會出現錯誤訊息呢
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
ddddd
一般會員 發表：4 回覆：5 積分：1 註冊：2002-12-15 發送簡訊給我 |
TDateTimePicker 元件 這個也能用在資料庫丫~ 那要怎麼讀入資料庫裡呢 procedure TForm4.Button1Click(Sender: TObject);
var
sSQL:String;
begin
try
query1.SQL.Clear;
//insert into person.dbf (empno,name,sex) values(666,'starlife','man')
sSQL:='insert into person.dbf (empno,name,sex,birthday,towork,phone,address) values(';
sSQL:=sSQL EditNo.Text ',';
sSQL:=sSQL '''' EditName.Text ''',';
sSQL:=sSQL '''' EditSex.Text ''',';
sSQL:=sSQL '''' EditBirthday.text ''',';
sSQL:=sSQL '''' EditDate.text ''',';
sSQL:=sSQL EditPhone.Text ',';
sSQL:=sSQL '''' Editadd.text '''';
sSQL:=sSQL ')';
showMessage(sSQL); query1.SQL.Add(sSQL);
query1.ExecSQL;
showmessage('yes!');
self.Close;
except
showMessage('error');
end;
end; 要怎麼改呢~~~
那是不是在設table的data欄位時就要設成日期型態的
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
ddddd
一般會員 發表：4 回覆：5 積分：1 註冊：2002-12-15 發送簡訊給我 |
引言: [quote] procedure TForm4.Button1Click(Sender: TObject); var sSQL:String; begin try query1.SQL.Clear; //insert into person.dbf (empno,name,sex) values(666,'starlife','man') sSQL:='insert into person.dbf (empno,name,sex,birthday,towork,phone,address) values('; sSQL:=sSQL EditNo.Text ','; sSQL:=sSQL '''' EditName.Text ''','; sSQL:=sSQL '''' EditSex.Text ''','; sSQL:=sSQL '''' EditBirthday.text ''','; sSQL:=sSQL '''' EditDate.text ''','; sSQL:=sSQL EditPhone.Text ','; sSQL:=sSQL '''' Editadd.text ''''; sSQL:=sSQL ')'; showMessage(sSQL); query1.SQL.Add(sSQL); query1.ExecSQL; showmessage('yes!'); self.Close; except showMessage('error'); end; end;try strtodate(editbirthday.text); except showmessage('invalid date'); end; 是這樣子嗎 procedure TForm4.Button1Click(Sender: TObject); var sSQL:String; begin try query1.SQL.Clear; sSQL:='insert into person.dbf (empno,name,sex,birthday,towork,phone,address) values('; sSQL:=sSQL EditNo.Text ','; sSQL:=sSQL '''' EditName.Text ''','; sSQL:=sSQL '''' EditSex.Text ''','; sSQL := sSQL '''' DateToStr(DateTimePicker1.Date) ''','; sSQL := sSQL '''' DateToStr(DateTimePicker2.Date) ''','; // sSQL:=sSQL '''' EditDate.text ''','; //要判斷輸入電話是不是數值是這樣子嗎 sSQL:=sSQL EditPhone.Text ','; try integer(editbirthday.text); except showmessage('invalid date'); end; //判斷地址 sSQL:=sSQL '''' Editadd.text ''''; try string(editbirthday.text); except showmessage('invalid date'); end; sSQL:=sSQL ')'; showMessage(sSQL); query1.SQL.Add(sSQL); query1.ExecSQL; showmessage('yes!'); self.Close; except showMessage('error'); end; end; 是這樣嗎?? 好像錯了~~ |
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
shyu_ting
一般會員 發表：13 回覆：25 積分：12 註冊：2002-11-04 發送簡訊給我 |
|
|
ddddd
一般會員 發表：4 回覆：5 積分：1 註冊：2002-12-15 發送簡訊給我 |
|
|
ddddd
一般會員 發表：4 回覆：5 積分：1 註冊：2002-12-15 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
發表時間：2003-01-12 14:23:53
IP:61.64.xxx.xxx 未訂閱
系統時間：2025-01-31 7:45:57
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |