ソス@ソスソスソスLソスソスソスbソスVソスソスソスAソスbソスvソスfソス[ソスgソスdソスソスソス`ソスFソスbソスNソスノつゑソスソスソス
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
ソス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ソスヘ1ソスソスフパソス¥ソス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;
Selectソスソスソスナ托ソスソスンを調べゑソスホどゑソスソスナゑソスソスソスソスB
ソスソスソスwソスソスソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
SELECTソスソスソスナ、ソスLソスソスソスbソスVソスソスソスフ抵ソスソスソスソスソスソスソスソスソスソスフでゑソスソスソスソスH
ソスソスソスソスノゑソスソスソス
ソス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
ソスソスソスwソスソス
ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスB
ソスソスマ、ソスラ具ソスソスノなゑソスワゑソスソスソスソスB