各位先進 : 不才小弟又要請教問題 : 1.dBedit 之前經指點可以用 Enter 鍵移下一欄位, 但如果 要返回上欄位, 可以不要用 Shift Tab 鍵嗎? 用向上鍵可以嗎? 2.資料查詢之問題 : 是否要先做一個form 為使用者介面,給操作輸入條件, (可以多個條一起輸入嗎 ? 如:編號, 簡稱, 全名 三欄, 且要複合查詢...) 程式碼是如何撰寫, 是用 SQL 語法嗎, 3.還是各位先進,可介紹相關針對一資料表的新增,異動,刪除,查詢,印表, 功能的書給不才小弟...我找了不少,對查詢功能介紹很少, 4.先謝謝各位先進了 !!!

引言: 各位先進 : 不才小弟又要請教問題 : 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

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

dBedit 有taborder属性，你把该dBedit 设置成2，把另一个设置成1，那么按上键就可以到1那个dBedit

1.dBedit 之前經指點可以用 Enter 鍵移下一欄位, 但如果   要返回上欄位, 可以不要用 Shift + Tab 鍵嗎?  用向上鍵可以嗎?     本站下載 DOSMOVE 元件, 不用撰寫任何CODE, 就可以達成了! 2.資料查詢之問題 : 是否要先做一個form 為使用者介面,給操作輸入條件, (可以多個條一起輸入嗎 ? 如:編號, 簡稱, 全名 三欄, 且要複合查詢...) 程式碼是如何撰寫, 是用 SQL 語法嗎, 你問了一個很大範圍的問題, 也很難這樣回答你, 建議先針對你上述提的方法 去實做, 遇到問題再提問! 3.還是各位先進,可介紹相關針對一資料表的新增,異動,刪除,查詢,印表, 功能的書給不才小弟...我找了不少,對查詢功能介紹很少, 這方面的資料在每一本的Delphi的書籍都有非常多的範例, 我猜你看的書並不多 或者你只有看Delphi原版所提供的參考技術手冊, 而對於查詢方面的介紹, 基本如locate, filter, findnext... 基本入門書都會提到, 要更高階的技巧, 可以找一些相關專門講資料庫處理的內容, 會有比較多的資料