ｿｽ@ ｿｽ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

ｿｽTｿｽｿｽｿｽvｿｽ[ 2005/03/22(ｿｽｿｽ) 00:32:57

Del6Pro,BDE,XPProｿｽﾅゑｿｽｿｽB
TQuery,TDataSourceｿｽADBGridｿｽｿｽﾖ連ｿｽtｿｽｿｽｿｽﾄデｿｽ[ｿｽ^ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾅ、TQueryｿｽｿｽFilterｿｽｿｽLｿｽqｿｽｿｽｿｽﾄ、FilterｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽFilterｿｽｿｽｿｽｿｽｿｽｿｽsｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾟゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ謔ｭｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾈみに、TQuery.RecordCountｿｽｿｽgｿｽｿｽｿｽﾆ、TQueryｿｽｿｽSQLｿｽｿｽｿｽsｿｽﾉゑｿｽ關ｶｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB

HOta 2005/03/22(ｿｽｿｽ) 10:15:35

Filterｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、ｿｽPｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽﾂ撰ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
C/Sｿｽﾅは、TQueryｿｽｿｽFilterｿｽﾅはなゑｿｽｿｽAWhereｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽﾊ的ｿｽﾅゑｿｽｿｽ蛯､ｿｽBｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽﾌままでゑｿｽｿｽB

ｿｽTｿｽｿｽｿｽvｿｽ[ 2005/03/22(ｿｽｿｽ) 11:50:49

HOtaｿｽｿｽｿｽいつゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽFilterｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、ｿｽPｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽﾂ撰ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾌ的ｿｽﾉ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽか。

ｿｽｿｽC/Sｿｽﾅは、TQueryｿｽｿｽFilterｿｽﾅはなゑｿｽｿｽAWhereｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽﾊ的ｿｽﾅゑｿｽｿｽ蛯､ｿｽBｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽﾌままでゑｿｽｿｽB

Whereｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅは、ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈので、
ｿｽﾍゑｿｽｿｽﾟ、Edit1ｿｽ@EditｿｽQｿｽﾉ難ｿｽｿｽtｿｽｿｽｿｽｿｽﾍゑｿｽｿｽAｿｽｿｽｿｽﾌ難ｿｽｿｽtｿｽﾉ該ｿｽｿｽｿｽｿｽｿｽ驛鯉ｿｽRｿｽ[ｿｽhｿｽｿｽIｿｽｿｽｿｽｿｽｿｽ謔､ｿｽｿｽSQLｿｽ発行ｿｽｿｽｿｽAｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽAｿｽSｿｽｿｽｿｽﾒゑｿｽｿｽﾆのデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽAFilterｿｽｿｽﾝ定すｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽLｿｽqｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽjｿｽBSQLｿｽｿｽｿｽsｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽﾍキｿｽｿｽｿｽbｿｽVｿｽｿｽｿｽﾉ保趣ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽﾌ托ｿｽｿｽがｿｽｿｽﾔ簡単ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾉ、ｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽか。

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ 2005/03/22(ｿｽｿｽ) 11:54:37

  ShowMessage(IntToStr(DBGrid1.DataSource.DataSet.RecordCount));

ｿｽｿｽｿｽｿｽﾅ、ｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽか？

HOta 2005/03/22(ｿｽｿｽ) 13:09:37

TDataSetｿｽｿｽRecordCountｿｽｿｽFilterｿｽﾌ有ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB


Var
  BM : TBookmarkStr;
  Count:Integer;
Begin
  Query1.Filtered := true;
  BM := Query1.Bookmark;
  Query1.DisableControls;
  Count := 0;
  try
    Query1.First;
    While Not Query1.Eof do
    Begin
      Inc(Count);  //ｿｽｿｽｿｽｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽ
      Query1.Next;
    End;
  Finally
    Query1.Bookmark := BM ;
    Query1.EnableControls;
  End;
End;

C/Sｿｽﾌ場合ｿｽﾍ、ｿｽgｿｽｿｽｿｽtｿｽBｿｽbｿｽNｿｽｿｽｿｽｿｽ轤ｷｿｽｿｽｿｽﾟに、ｿｽIｿｽｿｽｿｽｿｽﾊゑｿｽﾈゑｿｽﾗゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ 2005/03/22(ｿｽｿｽ) 13:26:10

>C/Sｿｽﾌ場合ｿｽﾍ、ｿｽgｿｽｿｽｿｽtｿｽBｿｽbｿｽNｿｽｿｽｿｽｿｽ轤ｷｿｽｿｽｿｽﾟに、ｿｽIｿｽｿｽｿｽｿｽﾊゑｿｽﾈゑｿｽﾗゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽﾌ環具ｿｽｿｽFWinXP + Del7Ent + BDE + Paradoxｿｽiｿｽｿｽｿｽ[ｿｽJｿｽｿｽDBｿｽjｿｽﾅは、TDataSetｿｽｿｽRecordCountｿｽﾅ厄ｿｽｿｽﾈゑｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
C/Sｿｽﾂ具ｿｽｿｽﾅは、ｿｽﾇゑｿｽｿｽﾈるかｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽが、ｿｽAｿｽA

C/S or ｿｽｿｽｿｽ[ｿｽJｿｽｿｽｿｽｿｽﾉ関ゑｿｽ轤ｸｿｽAHOtaｿｽｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅゑｿｽｿｽﾆ、ｿｽmｿｽｿｽｿｽﾉ取得ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾋ。

ｿｽTｿｽｿｽｿｽvｿｽ[ 2005/03/22(ｿｽｿｽ) 14:30:57

HOtaｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB

ｿｽTｿｽｿｽｿｽvｿｽ[ 2005/03/23(ｿｽｿｽ) 09:56:12

HOtaｿｽTｿｽｿｽｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽsｿｽｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽAｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBDBGridｿｽｿｽzｿｽuｿｽｿｽｿｽﾄゑｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽDBNavigatorｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽｿｽADBGridｿｽﾆ関連ｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽDBNabigatorｿｽ利用ｿｽｿｽｿｽﾄ、ｿｽfｿｽ[ｿｽ^ｿｽｿｽ除ｿｽｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽｿｽLｿｽﾌコｿｽ[ｿｽhｿｽｿｽﾇのイｿｽxｿｽｿｽｿｽgｿｽｿｽpｿｽｿｽｿｽﾄ、ｿｽﾇのタｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽﾅ記ｿｽﾚゑｿｽｿｽｿｽﾎよいｿｽﾌゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽFｿｽXｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽE
ｿｽﾇなゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

HOta 2005/03/23(ｿｽｿｽ) 13:40:30

TQueryｿｽｿｽAfterDeleteｿｽCｿｽxｿｽｿｽｿｽgｿｽﾍどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽTｿｽｿｽｿｽvｿｽ[ 2005/03/24(ｿｽｿｽ) 09:14:45

HOta ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾂゑｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽﾏりだｿｽﾟみゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾊの包ｿｽｿｽ@ｿｽiSQLｿｽ発行ｿｽｿｽｿｽｿｽjｿｽﾅ、ｿｽｿｽ闥ｼｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽ

HOta 2005/03/24(ｿｽｿｽ) 10:16:38

TQueryｿｽｿｽAfterDeleteｿｽCｿｽxｿｽｿｽｿｽgｿｽﾍ起ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽか？

ｿｽTｿｽｿｽｿｽvｿｽ[ 2005/03/24(ｿｽｿｽ) 11:23:14

ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌはどのようｿｽﾉゑｿｽｿｽﾄ、ｿｽｿｽｿｽ閧ｷｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽHｿｽH
ｿｽｿｽｿｽｿｽIｿｽﾈ趣ｿｽｿｽｿｽﾅゑｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽ

HOta 2005/03/24(ｿｽｿｽ) 13:39:40

TQueryｿｽｿｽAfterDeleteｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ成ｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾌ抵ｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾌ抵ｿｽｿｽﾉブｿｽｿｽｿｽ[ｿｽNｿｽ|ｿｽCｿｽｿｽｿｽgｿｽﾅゑｿｽuｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽTｿｽｿｽｿｽvｿｽ[ 2005/03/24(ｿｽｿｽ) 21:20:26

HOtaｿｽｿｽｿｽｿｽFｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBafterDeleteｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽgｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽ

Created by board of various Programming Library.