�L��b�V��A�b�v�f�[�g�d��`�F�b�N�ɂ��

�@

�e��̉ߋ��O

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

�֘A�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��ăt�H�[��
��鎞�Ƀf�[�^�x�[�X�֔��f��悤�Ƃ��Ă��܂��B
��ɂ��̃L�[��݂��Ă��΃G��[��b�Z�[�W��\��̂ł��B

��O��g�p��ăL�[�i�b�c�j��d��Ƃ��
�h�L�[��d��Ă��܂��h�Ƃ��悤�ȃ��b�Z�[�W��
�o�͂��̂ł��D�D�D
�ǂ̂悤�ɂ��悢��A�킩��܂��B
��w��낵��肢��܂��B

��f�[�^�̍X�V�͂P��̃p�\�R��ōs��܂��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��ŁA�L��b�V��̒��̂ł��H

��ċx�ݒ��ł� 2006/08/06(��) 15:07:50

��ɂ��
�f�[�^�x�[�X�Ɋւ��Ă͂��܂�ڂ��Ȃ��̂�(�܂��w��ł��̂�)
��Ⴂ��m��܂��񂪁A
�L��b�V��̃f�[�^��SELECT��ł͎擾�ł��Ȃ��Ǝv��܂��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�̒l');
    Active := True;
    //�f�[�^��ꍇ�A�܂�f�[�^��d��
    if RecordCount > 0 then
    begin
�@�@�@ShowMessage('�L�[��d��Ă��܂�');
      Abort;//�ÓI��O�𔭐��B�@
    end;
    //�ȉ��f�[�^�x�[�X�֓o�^��
    try
      IBQuery1.ApplyUpdates;
    except
      IBQuery1.Close;
    end;
  end;
end;

��̓L�[(CD)��ύX��邽�т�
SQL.Add('Select * from OPERATER');
SQL.Add('Where CD = ' + '�X�V��ꂽCD�̒l');
�Ńf�[�^��݂��邩�`�F�b�N��̂͂ǂ��ł��傤��H

�Ђ�� 2006/08/07(��) 10:40:00

��w��
��肪�Ƃ��܂��B
��ρA�׋��ɂȂ�܂��B

��̃y�[�W�̃g�b�v��

Created by board of various Programming Library.

�e����̉ߋ����O