ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽ 2011/02/09(ｿｽｿｽ) 21:10:29

ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄまゑｿｽｿｽB
Delphi2010+XP SP3ｿｽﾌ環具ｿｽｿｽﾅ開ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

DBCtrlGridｿｽｿｽBeforePostｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅ包ｿｽｿｽｿｽｿｽﾌオｿｽuｿｽWｿｽFｿｽNｿｽg(TDBEdit)ｿｽｿｽ
ｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽlｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽAｿｽlｿｽﾉ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAbortｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽ
ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ任ｿｽﾓのオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
(ｿｽlｿｽﾌ再難ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾉ移難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ)ｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾅ鯉ｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽcｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾔになゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾜで趣ｿｽｿｽｿｽｿｽｿｽｿｽﾌは、
ｿｽ@ｿｽEDBEditｿｽﾉ抵ｿｽｿｽｿｽSetFocus
ｿｽ@ｿｽEｿｽfｿｽ[ｿｽ^ｿｽ¥ｿｽ[ｿｽXｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽTQueryｿｽｿｽField.FocusControl
  ｿｽEDBEditｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽﾄ、Windows.SetFocus
ｿｽﾌ３ｿｽｿｽｿｽ@ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽﾆゑｿｽｿｽﾄゑｿｽAbortｿｽｿｽｿｽ髓ｼｿｽOｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽﾇなゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽｿｽmｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽ 2011/02/09(ｿｽｿｽ) 21:13:16

ｿｽ¥ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽLｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽBｿｽB

> DBCtrlGridｿｽｿｽBeforePostｿｽCｿｽxｿｽｿｽｿｽg

ｿｽｿｽDBCtrlGridｿｽﾌデｿｽ[ｿｽ^ｿｽ¥ｿｽ[ｿｽXｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽQueryｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽ
ｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽB

Kenny 2011/02/10(ｿｽｿｽ) 10:41:40

D7+WinXP ProｿｽﾅゑｿｽｿｽｿｽｿｽA

procedure TForm1.Query1BeforePost(DataSet: TDataSet);
begin
  if DBEdit1.Field.Value=0 then begin
    DBEdit1.SetFocus;
    Abort
  end else
    DBEdit2.SetFocus;
end;

DBEdit1ｿｽﾉ難ｿｽｿｽﾍ鯉ｿｽPostｿｽｿｽgｿｽｿｽｿｽCｿｽｿｽｿｽAｿｽｿｽｿｽﾍゑｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽ0ｿｽﾈゑｿｽｿｽ闥ｼｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅなゑｿｽｿｽﾈゑｿｽ
PostｿｽｿｽｿｽｿｽDBEdit2ｿｽﾉ進ｿｽﾞ、ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ。(ｿｽｿｽｿｽﾛにはまとめてチｿｽFｿｽbｿｽNｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽﾇ。)
ｿｽｿｽｿｽｿｽｿｽｿｽﾅはゑｿｽｿｽｿｽﾅ包ｿｽｿｽﾊに難ｿｽｿｽしｿｽﾜゑｿｽｿｽｿｽｿｽﾇねゑｿｽｿｽB

ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽPostｿｽｿｽgｿｽｿｽｿｽCｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ?ｿｽuｿｽｿｽｿｽｿｽvｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽﾅ鯉ｿｽｿｽDBEditｿｽｿｽEnterｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽ 2011/02/10(ｿｽｿｽ) 11:27:11

Kennyｿｽｿｽｿｽｿｽ

ｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
PostｿｽﾌトｿｽｿｽｿｽCｿｽﾉつゑｿｽｿｽﾄでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾉコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽ轤ｸ
DBCtrlGridｿｽﾌ行ｿｽｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅゑｿｽｿｽﾌで、ｿｽﾅ鯉ｿｽｿｽDBEditｿｽｿｽｿｽ邇滂ｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾖ移難ｿｽ(Tabｿｽﾚ難ｿｽｿｽｿｽ)ｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ行ｿｽﾌ最擾ｿｽｿｽｿｽDBEditｿｽﾉ移ゑｿｽOｿｽｿｽPostｿｽﾌトｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
(ｿｽfｿｽoｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ、ｿｽｿｽｿｽﾌ様ｿｽﾈ難ｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽFｿｽｿｽｿｽﾅゑｿｽｿｽﾌで間茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ轤ｲｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽBｿｽBｿｽB)

ｿｽﾜゑｿｽｿｽ竭ｫｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌタｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽﾅエｿｽｿｽｿｽ[ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽ髣晢ｿｽRｿｽﾆゑｿｽｿｽﾄまゑｿｽｿｽﾄゑｿｽ
ｿｽｿｽｿｽﾍ値Aｿｽﾍ難ｿｽｿｽﾍ値Bｿｽｿｽ闖ｬｿｽｿｽｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ托ｿｽｿｽﾖチｿｽFｿｽbｿｽNｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、
ｿｽsｿｽｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽ骼橸ｿｽﾉエｿｽｿｽｿｽ[ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾍ値ｿｽﾌ托ｿｽｿｽﾖチｿｽFｿｽbｿｽNｿｽﾍ別の包ｿｽｿｽ@ｿｽﾅ考ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、ｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽ
ｿｽｿｽﾍゑｿｽAｿｽｿｽｿｽﾍ搾ｿｽｿｽﾚ単ｿｽﾊでフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽﾟゑｿｽ(ｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ)ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ。ｿｽBｿｽB

Kenny 2011/02/10(ｿｽｿｽ) 12:42:47

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽAｿｽｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽﾈどゑｿｽPostｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ、DBCtrlGridｿｽｿｽｿｽDBEditｿｽｿｽ
TABｿｽLｿｽ[ｿｽﾅ移難ｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽPostｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽﾚ難ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽｿｽ

procedure TForm1.DBCtrlGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (DBEdit3.Focused=true) and (Query1.State=dsEdit) and (Key=VK_TAB) then
    Query1.Post;
end;

ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽｿｽ
ｿｽEｿｽﾅ鯉ｿｽｿｽDBEditｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、
ｿｽEｿｽfｿｽ[ｿｽ^ｿｽZｿｽbｿｽgｿｽｿｽｿｽﾒ集ｿｽｿｽｿｽ[ｿｽhｿｽｿｽ
ｿｽETABｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽｿｽIｿｽｿｽPostｿｽｿｽｿｽﾄゑｿｽｿｽﾆとりあｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾋ。ｿｽｿｽｿｽﾉ難ｿｽdPostｿｽﾉなゑｿｽ謔､ｿｽﾈｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽ¥ｿｽｿｽ
ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽ 2011/02/10(ｿｽｿｽ) 14:41:31

Kennyｿｽｿｽｿｽｿｽ

ｿｽｿｽﾖ案ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽAKennyｿｽｿｽｿｽｿｽﾌ案ゑｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾒ通ゑｿｽﾌ難ｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
KeyDownｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾈので擾ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽ{ｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.