태터데스크 관리자

도움말
닫기
적용하기   첫페이지 만들기

태터데스크 메시지

저장하였습니다.

1. 쿼리카운트를 해서 스트링그리드에 뿌려질만큼 1컬럼에 체크박스를 넣어줌
if SVdm.QryMember.RecordCount > 0 then
begin
Grid.AddCheckBox(1,i,false,false);
Grid.SetCheckBoxState(1,i,false);
end;

2. TadvStringGird.option 프로퍼티의 goEditing := true;

3. 상단에 전체선택 체크박스 하나 놓고 클릭시 전체선택 및 해제 코드 추가

procedure TformMember.suiCheckBox1Click(Sender: TObject);
var i : integer;
begin
if (suiCheckBox1.Checked = true) then
begin
for i := 1 to SVdm.QryMember.RecordCount do
begin
grid.SetCheckBoxState(1,i,true);
end;
end
else
begin
for i := 1 to SVdm.QryMember.RecordCount do
begin
grid.SetCheckBoxState(1,i,false);
end;
end;
end;

+ Recent posts