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

hiro 2005/08/16(ｿｽｿｽ) 23:56:06

 [A]ｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽparadoxｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽ3000ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽﾒ難ｿｽｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[B]ｿｽﾌクｿｽGｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽtｿｽBｿｽ[ｿｽｿｽｿｽh'day'ｿｽﾅエｿｽｿｽｿｽ[ｿｽﾆなゑｿｽﾜゑｿｽｿｽB
ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽﾆ撰ｿｽｿｽｿｽﾉ難ｿｽｿｽしｿｽﾜゑｿｽｿｽﾌゑｿｽSQLｿｽｿｽｿｽｿｽ'day'ｿｽﾍ使ｿｽpｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽﾂ具ｿｽｿｽｿｽDelphi7,XP,BDE,ParadoxｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄは、
(1)ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅ全ｿｽﾄのフｿｽ@ｿｽCｿｽｿｽｿｽﾌフｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@Alter Table ｿｽﾅでゑｿｽｿｽｿｽｿｽｿｽｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽDelphiｿｽﾅの使ｿｽpｿｽﾌ仕ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
(2)SQLｿｽｿｽｿｽｿｽ'day'ｿｽｿｽｿｽgｿｽｿｽｿｽ髟ｶｿｽﾉ変更ｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@ｿｽﾈにゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽH

ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽいｿｽ試ｿｽsｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽNｿｽｿｽｿｽｿｽｿｽ`ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯ｩｿｽB

[A]---------------------------------------------------
           with BDETable1.FieldDefs do
                begin
                  Clear;
                  Add('Day', ftDate, 0, False);
                  Add('Hp', ftinteger, 0, False);
                  Add('Tp', ftinteger, 0, False);
                  Add('Yp', ftinteger, 0, False);
                  Add('Op', ftinteger, 0, False);
                  Add('Cp', ftinteger, 0, False);
                       ----ｿｽﾈ暦ｿｽ-------
           end;
[B]--------------------------------------------------------
         // mDir:string;//ｿｽpｿｽXｿｽｿｽ
         // mFile:String;//ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ ｿｽ@ｿｽiｿｽwｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽwｿｽｿｽｿｽｿｽﾔの擾ｿｽｿｽｿｽﾅ絞ｿｽ闕橸ｿｽﾞ）

           Query1.Active:=False;
           Query1.DatabaseName:=mDir;
           mstr:='select dbn.* from'+ mFile +'where day>=:pday01 and day<=:pday02';
           Query1.SQL.Text:=mstr;
           Query1.Params[0].AsDate:=DateTimePicker1.Date;
           Query1.Params[1].AsDate:=DateTimePicker2.Date;
           Query1.Active:=true;

hiro 2005/08/17(ｿｽｿｽ) 00:03:46

SQLｿｽｿｽｿｽｿｽｿｽsｿｽrｿｽｿｽｿｽﾌ包ｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽﾅゑｿｽｿｽB
                 mstr:='select * from '+ mFile +' where day>=:pday01 and day<=:pday02';

hiro 2005/08/17(ｿｽｿｽ) 07:50:21

CreateTable ｿｽﾅ托ｿｽｿｽﾌフｿｽHｿｽｿｽｿｽ_ｿｽﾉテｿｽ[ｿｽuｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽAｿｽfｿｽ[ｿｽ^ｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽ驍ｱｿｽﾆで会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

HOta 2005/08/17(ｿｽｿｽ) 08:03:20

ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽｿｽｿｽAlter TableｿｽﾈどゑｿｽSQLｿｽﾅ変更ｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽdayｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBDataBase Disktopｿｽﾅ変更ｿｽｿｽｿｽ驍ｵｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ