안녕하세요. 최용일입니다.



맞는건가 잘 모르겠네요.. 디비나 리스트뷰구조가 어떻게 되어있는지 몰라서...



procedure Tjage_Inout.btDeleteClick(Sender: TObject);

var

TempKey: string;

begin

if JajeInoutListView.Selected <> nil then

begin

if messageDlg('삭제할까요?', mtConfirmation, [mbYES, mbNO],0) = mrYes then

begin

TempKey := jajeInoutListView.Selected.Caption;

// Caption이 Key_No필드인가요??? 캡션이 아니라 서브아이템에 필드가 들어

// 있다면 아래와 같이 하세요.

// TempKey := jajeInoutListView.Selected.SubItems[Key_No필드 인덱스];

// 서브아이템은 캡션뒤에 인덱스 0번부터 나타납니다.

with dm1.jajeQry do

begin

close;

sql.Clear;

sql.Add('delete from Material_IO');

sql.Add('where Key_No = ''' + tempKey + '''');

Execsql;



close;

sql.Clear;

sql.add('select * from Material_IO');

open;

end;

end;

end;

end;



^^ 항상 즐코하세요.



유병용 wrote:

> listView에 있는 내용은 삭제가 잘되는군요...

> 정말 감사합니다..

> 그런데요..DB를 연동 해야거든요..그래서 내용삭제시 DB에 있는 내용도 같이

> 삭제해야 하는데 또 잘 안되네요...미안하지만 한번만 더 갈켜주세요..!!

> procedure Tjage_Inout.btDeleteClick(Sender: TObject);

> var

> i, msg : integer;

> tempKey : string;

> listItem : TlistItem;

> begin

> // 이 조건문을 어떻게 주어야 할지...힘드네요....//

> if JajeInoutListView.Selected.Caption <> 0 then

> listItem := jajeInoutListView.Selected.

>

> begin

> msg := messageDlg('삭제할까요?', mtConfirmation, [mbYES,mbNO],0);

> if msg = mrYES then

> begin

> tempKey := listItem; // <--- 이부분도 이상하구요..

> with dm1.jajeQry do

> begin

> close;

> sql.Clear;

> sql.Add('delete from Material_IO');

> sql.Add('where Key_No = ''' + tempKey + '''');

> Execsql;

>

> close;

> sql.Clear;

> sql.add('select * from Material_IO');

> open;

> end;

>

> end;

> end;