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

ｿｽﾐゑｿｽｿｽ 2006/08/03(ｿｽｿｽ) 15:41:41

ｿｽrｿｽpｿｽkｿｽﾅ抵ｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽSｿｽｿｽｿｽiｿｽlｿｽ`ｿｽwｿｽPｿｽOｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽjｿｽｿｽ
DBGridｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽLｿｽｿｽｿｽbｿｽVｿｽｿｽｿｽAｿｽbｿｽvｿｽfｿｽ[ｿｽgｿｽｿｽgｿｽｿｽｿｽﾄフｿｽHｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽﾂゑｿｽｿｽ骼橸ｿｽﾉデｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾖ費ｿｽｿｽfｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾉゑｿｽｿｽﾌキｿｽ[ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽﾎエｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB

ｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽﾄキｿｽ[ｿｽiｿｽbｿｽcｿｽjｿｽｿｽｿｽdｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽhｿｽLｿｽ[ｿｽｿｽｿｽdｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽhｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾈｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽ
ｿｽoｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽDｿｽDｿｽD
ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽｿｽｿｽAｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽwｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾌ更ｿｽVｿｽﾍ１ｿｽｿｽﾌパｿｽ¥ｿｽRｿｽｿｽｿｽﾅ行ｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TFrmOperater.FormActivate(Sender: TObject);
begin
  IBDatabase1.Connected := Active;
  with IBQuery1 do
    begin
        Active := False;
        SQL.Clear;
        SQL.Add('Select * from OPERATER');
        SQL.Add('ORDER BY CD');
        Active := True;
    end;
end;
//ｿｽIｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽ
procedure TFrmOperater.SpeedButton2Click(Sender: TObject);
begin
  IBQuery1.ApplyUpdates;
  close;
end;

HOta 2006/08/03(ｿｽｿｽ) 17:10:53

Selectｿｽｿｽｿｽﾅ托ｿｽｿｽﾝを調べゑｿｽﾎどゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽﾐゑｿｽｿｽ 2006/08/03(ｿｽｿｽ) 17:15:49

ｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

SELECTｿｽｿｽｿｽﾅ、ｿｽLｿｽｿｽｿｽbｿｽVｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽH

ｿｽｿｽｿｽﾄ休ｿｽﾝ抵ｿｽｿｽﾅゑｿｽ 2006/08/06(ｿｽｿｽ) 15:07:50

ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ
ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾉ関ゑｿｽｿｽﾄはゑｿｽｿｽﾜゑｿｽﾚゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ(ｿｽﾜゑｿｽｿｽwｿｽｿｽｿｽﾅゑｿｽｿｽﾌゑｿｽ)
ｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽが、
ｿｽLｿｽｿｽｿｽbｿｽVｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽSELECTｿｽｿｽｿｽﾅは取得ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽ
//FormｿｽｿｽOnCloseQueryｿｽﾉゑｿｽ
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
ｿｽ@with IBQuery2 do
  begin
    Active := False;
    SQL.Clear;
    SQL.Add('Select * from OPERATER');
    SQL.Add('Where CD = ' + 'ｿｽXｿｽVｿｽｿｽｿｽ黷ｽCDｿｽﾌ値');
    Active := True;
    //ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽﾂまゑｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽdｿｽｿｽ
    if RecordCount > 0 then
    begin
ｿｽ@ｿｽ@ｿｽ@ShowMessage('ｿｽLｿｽ[ｿｽｿｽｿｽdｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ');
      Abort;//ｿｽﾃ的ｿｽｿｽOｿｽ発撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽ@
    end;
    //ｿｽﾈ会ｿｽｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾖ登ｿｽ^ｿｽｿｽｿｽｿｽ
    try
      IBQuery1.ApplyUpdates;
    except
      IBQuery1.Close;
    end;
  end;
end;

ｿｽｿｽｿｽｿｽｿｽｿｽﾍキｿｽ[(CD)ｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽ驍ｽｿｽﾑゑｿｽ
SQL.Add('Select * from OPERATER');
SQL.Add('Where CD = ' + 'ｿｽXｿｽVｿｽｿｽｿｽ黷ｽCDｿｽﾌ値');
ｿｽﾅデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽ驍ｩｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽﾌはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽﾐゑｿｽｿｽ 2006/08/07(ｿｽｿｽ) 10:40:00

ｿｽｿｽｿｽwｿｽｿｽ
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽﾏ、ｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.