// 스트링그리드셀에 마우스클릭시 접수내용 보여주기함수
PROCEDURE TMiChJoForm.MiChJO1_DATA(SENDER: TOBJECT);
var
l_MCode : String;
l_Hcode : integer;
BEGIN
{
내용을 ㅎㅜㅌ어 보니 각 COL 값이 A.HCODE 값과 대응 되는 군요.
그렇다면 sDBText 값을 HCODE값으로 입력받아야 원하는 값을 찾을 수 있을것 같습니다.
그리고 ROW값을 날자를 나타 내는것 같은데 이것도 조건에 넣어야 겠지요?

아래의 내용들은 합계와 날자 칼럼은 빼고 선택했을때 값을 나타냅니다.
}

if (StringGrid1.Col = 0) or (StringGrid1.Col = 12) then Exit;


l_MCode := '';
l_Hcode := 0;

l_Hcode := StrToInt(StringGrid1.col); //

Case l_Hcode of
1 : l_MCode := 'MIC1';
2 : l_MCode := 'MIC2';
3 : l_MCode := 'MIC3';
4 : l_MCode := 'MIC4';
5 : l_MCode := 'MIC5';
6 : l_MCode := 'MIC6';
7 : l_MCode := 'MIC7';
8 : l_MCode := 'MIC8';
9 : l_MCode := 'MIC9';
10 : l_MCode := 'MIC10';
11 : l_MCode := 'MIC11';
end;

SQL.ADD('SELECT A.* , B.Mname, C.Yname, D.Hname, E.Sname '+
' FROM Jaryo A,Mich B,Yhng C,Chury D,Singo E '+
' Where A.Mcode = B.Mcode '+
' AND A.Ycode = C.Ycode '+
' AND A.Hcode = D.Hcode '+
' AND A.Scode = E.Scode '+
//월별 조건은 월별을 입력하고 조회했을경우 해당됩니다. 조회시 무엇을 입력하고 조회 했는지에 따라 아래 조건은 수정되어야 합니다.
' And A.YulBul = '''+ED_YulBul.TEXT+''' '+

' And A.Mcode = '''+l_MCode+''' '+
' AND A.NALJA = '''+StringGrid1.Cells[0,StringGrid1.Row]+''' ');

이정도로 하면 대충 나올듯 싶네요!

글구 조회하는 것도 조금 수정을 봐야 할 듯 싶어요!

어차피 구하는 값이 날자에 MCODE의 합계로 나타내는 듯 한데

SELECT NALJA,MCODE,COUNT(*) ct
FROM JARYO A, Mich B,Yhng C,Chury D,SINGO E
WHERE A.YULBUL='2009-05'
AND A.MCODE = B.MCODE
AND A.YCODE = C.YCODE
AND A.HCODE = D.HCODE
AND A.SCODE = E.SCODE
AND A.MCODE <> '0' //DB내용을 보니 0인것은 미처리 대상이 아닌것 같더군요!
GROUP BY NALJA,MCODE

이렇게 group by 로 나타내고

for구문 활용해서 돌리면


// MCODE 값에 따른 Col값 리턴 하는 합수 선언해 놓고
function getColID(sCode :String):integer;
begin
if sCode ='MIC1' then result := 1;
if sCode ='MIC2' then result := 2;
......
if sCode ='MIC11' then result := 11;
end;


While Not Eof do
begin
sCol := getColID(FieldByName('MCODE').AsString);
Case FieldByName('NALJA').AsInteger of
1 : begin
StringGrid1.Cells[sCol,1] := FieldByName('ct').asString;
end;
2 : begin
StringGrid1.Cells[sCol,2] := FieldByName('ct').asString;
end;
...................
31 : begin
StringGrid1.Cells[sCol,31] := FieldByName('ct').asString;
end;
end;
Next;
end;

이런식으로 한다면 값을 뿌려 줄 수 있을것 같은데....
합계는 쿼리로 하지 마시고 위의 구문에서 값을 누적해서 한번 해보시길...
제가 도움드릴 수 있는건 여기까지 일것 같네요!

꼭 성공하시길!!

shininggem님 답변 너무 감사합니다. 너무답변 자세히 하여주셔서 면목이 없습니다.
그런데요 또한가지 부디치는데가 있어서 다시한번 질문드립니다.
아래 코드에서 sCol : Integer로 변수를걸고 컴파일 하니까
sCol := getColID(FieldByName('MCODE').AsString);에서 에러가 납니다.
부탁드립니다.

// 스트링그리드1 마우스 클릭시 셀값 좌표확인
procedure TMiChJoForm.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
sCol: Integer;
begin
while not Eof do
begin
sCol := getColID(FieldByName('MCODE').AsString);
case FieldByName('NALJA').AsInteger of
1:
begin
StringGrid1.Cells[sCol, 1] := FieldByName('ct').asString;
end;
2:
begin
StringGrid1.Cells[sCol, 2] := FieldByName('ct').asString;
end;
---------------------------------------------------
31:
begin
StringGrid1.Cells[sCol, 31] := FieldByName('ct').asString;
end;
end;
Next;
end;
End;

// Mcode 값에따른 Col값 리턴하는 함수선언
function getColID(sCode: string): integer;
begin
if sCode = 'MIC1' then
result := 1;
if sCode = 'MIC2' then
result := 2;
if sCode = 'MIC3' then
result := 3;
..............................
if sCode = 'MIC11' then
result := 11;
end;

// 스트링그리드셀에 마우스클릭시 접수내용 보여주기함수
procedure TMiChJoForm.MiChJO1_DATA(SENDER: TOBJECT);
var
l_MCode: string;
l_Hcode: integer;
begin
//Col := StringGrid1.Col;
//Row := StringGrid1.Row;
if (StringGrid1.Col = 0) or (StringGrid1.Col = 2) or (StringGrid1.Col = 3) or
(StringGrid1.Col = 4) or (StringGrid1.Col = 5) or (StringGrid1.Col = 6) or
(StringGrid1.Col = 7) or (StringGrid1.Col = 8) or (StringGrid1.Col = 9) or
(StringGrid1.Col = 10) or (StringGrid1.Col = 11) then
Exit;
l_MCode := '';
l_Hcode := 0;
//l_Hcode := StrToInt(StringGrid1.Col);
l_Hcode := StringGrid1.Col;
case l_Hcode of
1: l_MCode := 'MIC1';
2: l_MCode := 'MIC2';
......................................
11: l_MCode := 'MIC11';
end;
with QR_MiChJo1 do
begin
CLOSE;
SQL.Clear;
SQL.ADD('SELECT A.* , B.Mname, C.Yname, D.Hname, E.Sname ' +
' FROM Jaryo A,Mich B,Yhng C,Chury D,Singo E ' +
' Where A.Mcode = B.Mcode ' +
' AND A.Ycode = C.Ycode ' +
' AND A.Hcode = D.Hcode ' +
' AND A.Scode = E.Scode' +
' And A.YulBul = ''' + ED_YulBul.TEXT + ''' ' +
' And A.Mcode = ''' + l_MCode + ''' ' +
' AND A.NALJA = ''' + StringGrid1.Cells[0, StringGrid1.Row] + ''' ');
end;
end;

// 기본 SQL 구문생성(조회함수)
sSQL := (' SELECT NALJA,MCODE,COUNT(*) ct ' +
' FROM JARYO A, Mich B,Yhng C,Chury D,SINGO E ' +
' WHERE A.YULBUL=''Ed_YulBul.Text'''' AND A.MCODE = B.MCODE And ' +
' A.YCODE = C.YCODE AND A.HCODE = D.HCODE AND A.SCODE = E.SCODE And ' +
' A.MCODE <> ''0''' +
' GROUP BY NALJA,MCODE ');

With QR_MiChJo1 do
begin
....
end;

삽입하세요!

shininggem님 답변 감사합니다.
님의 답변대로하고 SQL함수가 빠버서 포함 시키 컴파일 하니까 컴파일은 잘 됩니다.
그런데 하단의 조회하는 // 기본 SQL 구문생성에서 에러가 나네요
아마 (' SELECT NALJA,MCODE,COUNT(*) ct ' + 여기서 ct가 어떵게 처리되는지 몰라서요
저의 데이타베이스는ct 라는 필드가 없습니다.
죄송합니다 빨리 끝이나야 님이 짐을 덜텐데 다시한번 봐주십시요

= 에러메세지 =
Project Fmsh.exe raised exception class EDBEnginError with message 'Invalid use of
Keyword.
Token : 0'
Line Number: 1'. Process stopped Use sTEP OR CONTINUE.


// 기본 SQL 구문생성
sSQL := (' SELECT NALJA,MCODE,COUNT(*) ct ' +
' FROM JARYO A, Mich B,Yhng C,Chury D,SINGO E ' +
' WHERE A.YULBUL=''Ed_YulBul.Text'''' AND A.MCODE = B.MCODE And ' +
' A.YCODE = C.YCODE AND A.HCODE = D.HCODE AND A.SCODE = E.SCODE And ' +
' A.MCODE <> ''0''' +
' GROUP BY NALJA,MCODE ');

// 스트링그리드1 마우스 클릭시 셀값 좌표확인
procedure TMiChJoForm.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
sCol: Integer;
begin
QR_MiChJo1.Close;
MichJo1_DATA(SENDER);
QR_MiChJo1.Open;
with QR_MiChJo1 do
begin
while not Eof do
begin
sCol := getColID(FieldByName('MCODE').AsString);
case FieldByName('NALJA').AsInteger of
1:
begin
StringGrid1.Cells[sCol, 1] := FieldByName('ct').asString;
end;
2:
begin
StringGrid1.Cells[sCol, 2] := FieldByName('ct').asString;
end;
---------------------------------------------------
31:
begin
StringGrid1.Cells[sCol, 31] := FieldByName('ct').asString;
end;
end;
Next;
end;
End;
End;

Sql.Add(' SELECT NALJA,MCODE,COUNT(*) ct ' +
' FROM JARYO A, Mich B,Yhng C,Chury D,SINGO E ' +
' WHERE A.YULBUL='''+Ed_YulBul.Text+''' AND A.MCODE = B.MCODE And ' +
' A.YCODE = C.YCODE AND A.HCODE = D.HCODE AND A.SCODE = E.SCODE And ' +
' A.MCODE <> ''0'' '+
' GROUP BY NALJA,MCODE ');


ct 가 잘못된게 아닙니다.
ct는 알리아스 명입니다. 필드이름 대신에 다른 별칭을 줄 수가 있는 거죠.
조건절에 WHERE A.YULBUL='''+Ed_YulBul.Text+''' 이부분 수정했습니다. 제가 올려드린 소스랑 틀리군요!

ct값은 count(*)의 결과를 ct라는 이름으로 정의한 것입니다.
사용자정의 이름이라서 필드목록에는 나타나지 않는것이구요...

shininggem님 안녕하십니까?. 님이 답변하여주신 코드를 기준하여 며칠동안 고생을해도
아직 문제가 풀리지 않습니다. 컴파일은 되는데 실행도중 에러가 나니까 어디까지 보이는지도
모를겠네요 어디가 잘못된건지 아래소스를 참고 하셔서 봐주셨으면 고맙겠습니다.

= 에러메세지 =
Project Fmsh.exe raised exception class EDBEnginError with message 'Invalid use of
Keyword.
Token : AND
Line Number: 1'. Process stopped Use Step or continue.


// 기본 SQL 구문생성(조회 화면 관련 처리)
sSQL := (' SELECT NALJA,MCODE,COUNT(*) ct ' +
' FROM JARYO A, Mich B,Yhng C,Chury D,SINGO E ' +
' WHERE '+
' A.YULBUL='''+Ed_YulBul.Text+''' And A.MCODE = B.MCODE And ' +
' A.YCODE = C.YCODE AND A.HCODE = D.HCODE AND A.SCODE = E.SCODE And ' +
' A.MCODE <> ''0'' ' +
' GROUP BY NALJA,MCODE ');

// 스트링그리드셀에 마우스클릭시 접수내용 보여주기함수
procedure TMiChJoForm.MiChJO1_DATA(SENDER: TOBJECT);
var
l_MCode: string;
l_Hcode: integer;
begin
if(StringGrid1.Col = 0) or (StringGrid1.Col = 2) or (StringGrid1.Col = 3) or
(StringGrid1.Col = 4) or (StringGrid1.Col = 5) or (StringGrid1.Col = 6) or
(StringGrid1.Col = 7) or (StringGrid1.Col = 8) or (StringGrid1.Col = 9) or
(StringGrid1.Col = 10) or (StringGrid1.Col = 11) then
Exit;
l_MCode := '';
l_Hcode := 0;
l_Hcode := StringGrid1.Col;
case l_Hcode of
1: l_MCode := 'MIC1';
2: l_MCode := 'MIC2';
3: l_MCode := 'MIC3';
4: l_MCode := 'MIC4';
5: l_MCode := 'MIC5';
6: l_MCode := 'MIC6';
7: l_MCode := 'MIC7';
8: l_MCode := 'MIC8';
9: l_MCode := 'MIC9';
10: l_MCode := 'MIC10';
11: l_MCode := 'MIC11';
end;
with QR_MiChJo1 do
begin
CLOSE;
SQL.Clear;
SQL.ADD('SELECT A.* , B.Mname, C.Yname, D.Hname, E.Sname ' +
' FROM Jaryo A,Mich B,Yhng C,Chury D,Singo E ' +
' Where '+
' A.Mcode = B.Mcode AND A.Ycode = C.Ycode AND '+
' A.Hcode = D.Hcode AND A.Scode = E.Scode And '+
' A.YulBul = ''' + ED_YulBul.TEXT + ''' And '+
' A.Mcode = ''' + l_MCode + ''' And '+
' A.NALJA = ''' + StringGrid1.Cells[0, StringGrid1.Row] + ''' ');
end;
end;

// Mcode 값에따른 Col값 리턴하는 함수
function TMiChJoForm.getColID(sCode: string): integer;
begin
if sCode = 'MIC1' then
result := 1;
if sCode = 'MIC2' then
result := 2;
if sCode = 'MIC3' then
result := 3;
if sCode = 'MIC4' then
result := 4;
if sCode = 'MIC5' then
result := 5;
if sCode = 'MIC6' then
result := 6;
if sCode = 'MIC7' then
result := 7;
if sCode = 'MIC8' then
result := 8;
if sCode = 'MIC9' then
result := 9;
if sCode = 'MIC10' then
result := 10;
if sCode = 'MIC11' then
result := 11;
end;

// 스트링그리드1 마우스 클릭시 셀값확인 및 내용보기
procedure TMiChJoForm.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
sCol: Integer;
begin
QR_MiChJo1.Close;
MichJo1_DATA(SENDER);
QR_MiChJo1.Open;
with QR_MiChJo1 do
begin
while not Eof do
begin
sCol := getColID(FieldByName('MCODE').AsString);
case FieldByName('NALJA').AsInteger of
1:
begin
StringGrid1.Cells[sCol, 1] := FieldByName('ct').asString;
end;
2:
begin
StringGrid1.Cells[sCol, 2] := FieldByName('ct').asString;
end;
3:
begin
StringGrid1.Cells[sCol, 3] := FieldByName('ct').asString;
end;
4:
begin
StringGrid1.Cells[sCol, 4] := FieldByName('ct').asString;
end;
5:
begin
StringGrid1.Cells[sCol, 5] := FieldByName('ct').asString;
end;
6:
begin
StringGrid1.Cells[sCol, 6] := FieldByName('ct').asString;
end;
7:
begin
StringGrid1.Cells[sCol, 7] := FieldByName('ct').asString;
end;
8:
begin
StringGrid1.Cells[sCol, 8] := FieldByName('ct').asString;
end;
9:
begin
StringGrid1.Cells[sCol, 9] := FieldByName('ct').asString;
end;
10:
begin
StringGrid1.Cells[sCol, 10] := FieldByName('ct').asString;
end;
11:
begin
StringGrid1.Cells[sCol, 11] := FieldByName('ct').asString;
end;
12:
begin
StringGrid1.Cells[sCol, 12] := FieldByName('ct').asString;
end;
13:
begin
StringGrid1.Cells[sCol, 13] := FieldByName('ct').asString;
end;
14:
begin
StringGrid1.Cells[sCol, 14] := FieldByName('ct').asString;
end;
15:
begin
StringGrid1.Cells[sCol, 15] := FieldByName('ct').asString;
end;
16:
begin
StringGrid1.Cells[sCol, 16] := FieldByName('ct').asString;
end;
17:
begin
StringGrid1.Cells[sCol, 17] := FieldByName('ct').asString;
end;
18:
begin
StringGrid1.Cells[sCol, 18] := FieldByName('ct').asString;
end;
19:
begin
StringGrid1.Cells[sCol, 19] := FieldByName('ct').asString;
end;
20:
begin
StringGrid1.Cells[sCol, 20] := FieldByName('ct').asString;
end;
21:
begin
StringGrid1.Cells[sCol, 21] := FieldByName('ct').asString;
end;
22:
begin
StringGrid1.Cells[sCol, 22] := FieldByName('ct').asString;
end;
23:
begin
StringGrid1.Cells[sCol, 23] := FieldByName('ct').asString;
end;
24:
begin
StringGrid1.Cells[sCol, 24] := FieldByName('ct').asString;
end;
25:
begin
StringGrid1.Cells[sCol, 25] := FieldByName('ct').asString;
end;
26:
begin
StringGrid1.Cells[sCol, 26] := FieldByName('ct').asString;
end;
27:
begin
StringGrid1.Cells[sCol, 27] := FieldByName('ct').asString;
end;
28:
begin
StringGrid1.Cells[sCol, 28] := FieldByName('ct').asString;
end;
29:
begin
StringGrid1.Cells[sCol, 29] := FieldByName('ct').asString;
end;
30:
begin
StringGrid1.Cells[sCol, 30] := FieldByName('ct').asString;
end;
31:
begin
StringGrid1.Cells[sCol, 31] := FieldByName('ct').asString;
end;
end;
Next;
end;
end;
end;