|
자답입니다.
procedure TRSUIPT_F.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
// 입고 정리버튼 생성
CASE Del_Exst.ItemIndex OF
1: begin
with TStringGrid(Sender).Canvas do
begin
if ARow > 0 then
begin
if ACol = 7 then
begin
Rect.Left := Rect.Left + 0;
Rect.Top := Rect.Top + 3;
Brush.Color := clBtnFace;
DrawFrameControl(Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH);
DrawTextA(Handle,' 추가', 7, Rect, DT_VCENTER);
end;
End;
End;
End;
End;
End;
// 스트링그리드1 버튼 이벤트
procedure TRSUIPT_F.StringGrid1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
acol, arow,i : Integer;
begin
i := 1;
CASE Del_Exst.ItemIndex OF
1: begin
StringGrid1.MouseToCell(X, Y, acol, arow);
For i:=1 TO StringGrid1.RowCount -1 DO
begin
if (arow = i) And (acol = 7) Then
begin
STRINGGRID1.CELLS[7,i]:=' [누름]';
MessageBeep(0);
If ApplicaTion.MessageBox(' 선택된 입고 자재를 입고정리 하시겠습니까?'+#13+#10' '+
'입고정리 예(Y) 입고취소 아니오(N) 버튼 선택',
'입고정리확인',
MB_Yesno+MB_IconQuesTion) <> IDYES Then
Exit;
RSUIPTS_F.RSU_INPTClick(Sender); //자재입고 프로그램 호출
FRM2011_F.spAPPENDClick; //추가버튼 클릭
FRM2011_F.ME_IN_DATE.Text := ME_RSU_DATE.Text; //입고일자
FRM2011_F.Ed_Cust_cd.Text := ED_CUST_CD.Text; //거래처코드
FRM2011_F.ED_ITEM_Cd.Text := STRINGGRID1.CELLS[1,i]; //자재코드
FRM2011_F.ED_In_QTY.Text := STRINGGRID1.CELLS[6,i]; //입고수량
FRM2011_F.ED_IN_MEMO.Text := '발주입고'; //입고내역
FRM2011_F.ST_CHN_DT.Caption := ST_CHN_DT.Caption; //변경일시
FRM2011_F.ST_CHN_ID.Caption := ST_CHN_ID.Caption; //변경자ID
FRM2011_F.BtnSAVE.Click; //저장
FRM2011_F.Free; //메모리제거
RSUIPTS_F.RSU_APPRClick(Sender); //바코드 자재입고 프로그램 원복
end;
end;
end;
end;
end;
>> 1. 개발/실행 플랫폼
>> (1) OS : Windows 7
>> (2) 개발툴 : Delphi 7
>> (3) 사용 Database : Firebird 2.1
>>
>> 2. 개발 중인 프로그램 : 바코드 자재입고 처리
>>
>> 3. 질문 내용
>> 안녕하세요?
>> 업체에서 입고되는 자재를 바코드 리더기로 입코처리하여 입고가 완료되면 DB에 저장하는 작업을 하려고
>> 합니다. 스트링그리드에 버튼 그리는것 버튼 이벤트로 1개 품목을 저장히는것 까지는 잘 되는데요 2번째
>> 품목 부터는 루프를 돌려봐도 이벤트가 먹히질 않습니다. 아시는분 루프 돌리는 방법좀 부탁드립니다.
>>
>> 아래소스는 스트링그리드에 버튼을 만들고 1개항목을 저장하는 루턴입니다.(루프적용)
>> procedure TRSUIPT_F.StringGrid1DrawCell(Sender: TObject; ACol,
>> ARow: Integer; Rect: TRect; State: TGridDrawState);
>> var
>> i: Integer;
>> begin
>> // 입고 정리버튼을 그립니다...
>> CASE Del_Exst.ItemIndex OF
>> 1: begin
>> with TStringGrid(Sender).Canvas do
>> begin
>> if ARow > 0 then
>> begin
>> if ACol = 7 then
>> begin
>> Rect.Left := Rect.Left + 0;
>> Rect.Top := Rect.Top + 5;
>> Brush.Color := clBtnFace;
>> DrawFrameControl(Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH);
>> DrawTextA(Handle,' 입고', 7, Rect, DT_VCENTER);
>> end;
>> End;
>> End;
>> End;
>> end;
>> end;
>>
>> // 스트링그리드1 버튼 이벤트
>> procedure TRSUIPT_F.StringGrid1MouseUp(Sender: TObject;
>> Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>> var
>> acol, arow,i : Integer;
>> begin
>> i := 1;
>> CASE Del_Exst.ItemIndex OF
>> 1: begin
>> StringGrid1.MouseToCell(X, Y, acol, arow);
>> if (arow = i) And (acol = 7) Then
>> begin
>> For i:=1 TO StringGrid1.RowCount -1 DO
>>
>> STRINGGRID1.CELLS[7,i]:=' [누름]';
>> MessageBeep(0);
>> If ApplicaTion.MessageBox(' 입고 자재를 입고정리 하시겠습니까?'+#13+#10' '+
>> '입고정리 예(Y) 입고취소 아니오(N) 버튼 선택',
>> '출고 정리확인',
>> MB_Yesno+MB_IconQuesTion) <> IDYES Then
>> Exit;
>>
>> RSUIPTS_F.RSU_INPTClick(Sender); //자재입고 프로그램 호출
>> FRM2011_F.spAPPEND.Click; //추가버튼 클릭
>> FRM2011_F.ME_IN_DATE.Text := ME_RSU_DATE.Text; //입고일자
>> FRM2011_F.Ed_Cust_cd.Text := ED_CUST_CD.Text; //거래처코드
>> FRM2011_F.ED_ITEM_Cd.Text := STRINGGRID1.CELLS[1,i]; //자재코드
>> FRM2011_F.ED_In_QTY.Text := STRINGGRID1.CELLS[6,i]; //입고수량
>> FRM2011_F.ED_IN_MEMO.Text := '발주입고'; //입고내역
>> FRM2011_F.ST_CHN_DT.Caption := ST_CHN_DT.Caption; //변경일시
>> FRM2011_F.ST_CHN_ID.Caption := ST_CHN_ID.Caption; //변경자ID
>> FRM2011_F.BtnSAVE.Click; //저장
>> FRM2011_F.Free; //메모리제거
>> RSUIPTS_F.RSU_APPRClick(Sender); //바코드 자재입고 프로그램 원복
>> INC(i);
>> end;
>> end;
>> end;
>> end;
>>
>>
>>
>>
|
[답변][자답]스트링그리드 버튼 이벤트 문제 입니다.
