dBedit 用向上鍵可回上欄位嗎 ? |
尚未結案
|
Kumaisme
一般會員 發表:3 回覆:2 積分:1 註冊:2004-07-04 發送簡訊給我 |
各位先進 :
不才小弟又要請教問題 : 1.dBedit 之前經指點可以用 Enter 鍵移下一欄位, 但如果
要返回上欄位, 可以不要用 Shift Tab 鍵嗎? 用向上鍵可以嗎? 2.資料查詢之問題 : 是否要先做一個form 為使用者介面,給操作輸入條件,
(可以多個條一起輸入嗎 ? 如:編號, 簡稱, 全名 三欄, 且要複合查詢...)
程式碼是如何撰寫, 是用 SQL 語法嗎,
3.還是各位先進,可介紹相關針對一資料表的新增,異動,刪除,查詢,印表,
功能的書給不才小弟...我找了不少,對查詢功能介紹很少, 4.先謝謝各位先進了 !!!
|
Clarinet
高階會員 發表:9 回覆:97 積分:126 註冊:2002-05-08 發送簡訊給我 |
引言: 各位先進 : 不才小弟又要請教問題 : 1.dBedit 之前經指點可以用 Enter 鍵移下一欄位, 但如果 要返回上欄位, 可以不要用 Shift Tab 鍵嗎? 用向上鍵可以嗎? 2.資料查詢之問題 : 是否要先做一個form 為使用者介面,給操作輸入條件, (可以多個條一起輸入嗎 ? 如:編號, 簡稱, 全名 三欄, 且要複合查詢...) 程式碼是如何撰寫, 是用 SQL 語法嗎, 3.還是各位先進,可介紹相關針對一資料表的新增,異動,刪除,查詢,印表, 功能的書給不才小弟...我找了不少,對查詢功能介紹很少, 4.先謝謝各位先進了 !!!第一個問題: procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key =VK_UP then FindNextControl(Edit1, False, True, True).SetFocus; if Key =VK_DOWN then FindNextControl(Edit1, True, True, True).SetFocus; end; 第二個問題以後的,書都有,多看一下吧! GPS(全球衛星定位系統) http://www.allgps.com
------
GPS(全球衛星定位系統) http://www.allgps.com |
mine
中階會員 發表:28 回覆:129 積分:56 註冊:2004-03-31 發送簡訊給我 |
HI kumaisme:提供幾個方法給你參考
procedure TForm1.DBEdit2KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
FowardBackFocus(sender,key);
end; function TForm1.FowardBackFocus(sender:Tobject;key:word):boolean;
begin
if key=38 then
FindNextControl(Tdbedit(sender),false,true,true).SetFocus;
if key=40 then
FindNextControl(Tdbedit(sender),true,true,true).SetFocus;
end; procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
FowardBackFocus(sender,key);
end;
第二個方法站上有很多相闗的文章你可以找找這裡的只是一小部份
procedure TForm3.serdel(doaction,Dsort,order:string);//search or del function
var
subtemp,temp:String;
begin
With dm7.ADOQuery3 do begin
Close;SQL.Clear;
if doaction='select' then
temp:='select * FROM STUDENT '
else
if doaction='delete' then
begin
if muti=0 then begin
Showmessage('請選擇刪除條件!!');
Close;SQL.Clear;
SQL.add('select * from student ');
Open;
Exit;
end;
if MessageDlg('刪除後將無法復原資料,確定刪除?',mtWarning,[mbYes,mbNO],0)=mrNO then
Exit
else
temp:='delete From STUDENT ';
end
else
Exit;
subtemp:='';
if CheckBox1.Checked=True then//by cardno
begin
if (muti>1)and(subtemp<>'') then
if (Trim(edit1.text)<>'')or(Trim(edit2.Text)<>'') then
subtemp:=subtemp 'AND ';
if (Trim(Edit2.text)='')and(Trim(edit1.Text)<>'') then
subtemp:=subtemp 'Cardno like ''' Trim(Edit1.Text) '%'' ';
if (Trim(Edit1.text)='')and(Trim(Edit2.Text)<>'') then
subtemp:=subtemp 'Cardno <= ''' Trim(Edit2.Text) ''' ';
if (Trim(edit2.text)<>'')and(Trim(edit1.Text)<>'')then
subtemp:=subtemp 'Cardno between ''' Trim(Edit1.Text) ''' and ''' Trim(Edit2.Text) ''' ';
end;
if CheckBox10.Checked=True then//by Name
begin
if (muti>1)and(subtemp<>'') then
if (edit6.text<>'') then
subtemp:=subtemp 'AND ';
if Trim(Edit6.text)<>'' then
subtemp:=subtemp 'name like ''%' Trim(Edit6.Text) '%'' ';
end;
if (muti=0)or(subtemp='') then
begin
if order<>'' then
SQL.Add(temp 'ORDER BY ' Dsort ' ' order)
else
SQL.Add(temp);
end
else
begin
if order<>'' then
SQL.Add(temp 'Where ' subtemp 'ORDER BY ' Dsort ' ' Order)
else
SQL.Add(temp 'Where ' subtemp);
end;
if doaction='delete' then
begin
ExecSQL;
Close;SQL.Clear;
SQL.add('select * from student');
Open;
end
else
Open;
end;
end;
其次如果你是對sql 方面語方較不熟 你可以參考松崗的delphi 7資料庫程式設計 應該算的上易懂了 順心 搞不懂!搞不懂!永遠都搞不懂!! 發表人 - mine 於 2004/07/13 10:52:02
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
1.dBedit 之前經指點可以用 Enter 鍵移下一欄位, 但如果
要返回上欄位, 可以不要用 Shift + Tab 鍵嗎? 用向上鍵可以嗎?
本站下載 DOSMOVE 元件, 不用撰寫任何CODE, 就可以達成了!
2.資料查詢之問題 : 是否要先做一個form 為使用者介面,給操作輸入條件,
(可以多個條一起輸入嗎 ? 如:編號, 簡稱, 全名 三欄, 且要複合查詢...)
程式碼是如何撰寫, 是用 SQL 語法嗎,
你問了一個很大範圍的問題, 也很難這樣回答你, 建議先針對你上述提的方法
去實做, 遇到問題再提問!
3.還是各位先進,可介紹相關針對一資料表的新增,異動,刪除,查詢,印表,
功能的書給不才小弟...我找了不少,對查詢功能介紹很少,
這方面的資料在每一本的Delphi的書籍都有非常多的範例, 我猜你看的書並不多
或者你只有看Delphi原版所提供的參考技術手冊, 而對於查詢方面的介紹, 基本如locate, filter, findnext... 基本入門書都會提到, 要更高階的技巧, 可以找一些相關專門講資料庫處理的內容, 會有比較多的資料
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |