MS-SQL서버의 로그라는게 한게가 있어서.., 추적하긴 힘들겁니다.

거기다 대부분 MS-SQL서버에 접속하는 클라이언트 유저를 1개의 단일사용자로 해놓고, 클라이언트쪽 프로그램에서는

이사람 저사람 접근하니까요.


차라리 뭐 가칭 LOGT 같은 테이블을 하나 만들어 놓고,
예를 들어 이렇게..

<!--CodeS-->
DROP TABLE ERCM_LOGT;
CREATE TABLE ERCM_LOGT
(
LOGT_NO NUMERIC(14) IDENTITY(1,1), /* LOG ID */
LOGT_UNO VARCHAR(1) NOT NULL, /* 사용처 번호 (*주6) R-ERCM_UINFO */
LOGT_MODINFO1 VARCHAR(20) DEFAULT '', /* 모듈정보 - 메인모듈 */
LOGT_MODINFO2 VARCHAR(40) DEFAULT '', /* 모듈벙보 - 폼명 */
LOGT_USERINFO1 VARCHAR(40) DEFAULT '', /* 사용자 정보 사용자명, ID */
LOGT_USERINFO2 VARCHAR(100) DEFAULT '', /* 사용자 정보 PC명 맥주소, IP주소 */
LOGT_DOC VARCHAR(100) DEFAULT '', /* 처리내역 */
LOGT_TIME VARCHAR(30) DEFAULT '', /* 기록시간 */
);


-------------------------------------



// IN:EXE명(확장자제외), 폼명, 사용처코드, 사용자ID, PW, 내용
procedure WRITE_LOG(APP_NAME, FORM_NAME, UNO, USER_ID, USER_PW, MEMO: string); // 사용자별 고의조작 또는 실수조작 규명을 위한 로그를 남긴다
var
qryTMP: TADOQuery;
time_stamp, mac_addr, ip_addr, client_name, user_name: string;
begin
time_stamp := '['+FormatDateTime('YYYY-MM-DD, HH:NN:SS:ZZZ', Now)+']';
//-----
Screen.Cursor := crSQLWait;
qryTMP := nil;
qryTMP := TADOQuery.Create(Application);
try
qryTMP.Connection := ADO_CONNECTION;
qryTMP.CursorType := ctStatic;
with qryTMP do // 사용자 로긴
begin
if(Active) then Close;
SQL.Clear;
SQL.Text :=
' SELECT * '+#13+
' FROM ERCM_UPERM '+#13+
' WHERE UPERM_UNO = '''+ UNO +''' '+#13+
' AND UPERM_ID = '''+ USER_ID +''' '+#13+
' AND UPERM_PW = '''+ USER_PW +''' '+#13;
Open;
mac_addr := FieldByName('UPERM_LOG_MAC').AsString;
ip_addr := FieldByName('UPERM_LOG_IP').AsString;
client_name := FieldByName('UPERM_LOG_CLIENT').AsString;
user_name := FieldByName('UPERM_UNAME').AsString;
//-----
if(Active) then Close;
SQL.Clear;
SQL.Text :=
' INSERT INTO ERCM_LOGT ( '+#13+
' LOGT_UNO, '+#13+
' LOGT_MODINFO1, '+#13+
' LOGT_MODINFO2, '+#13+
' LOGT_USERINFO1, '+#13+
' LOGT_USERINFO2, '+#13+
' LOGT_DOC, '+#13+
' LOGT_TIME) VALUES ( '+#13+
' '''+ UNO +''', '+#13+
' '''+ APP_NAME +''', '+#13+
' '''+ FORM_NAME +''', '+#13+
' '''+ user_name +', '+ USER_ID +''', '+#13+
' '''+ client_name +', '+ mac_addr +', '+ ip_addr +''', '+#13+
' '''+ MEMO +''', '+#13+
' '''+ time_stamp +''') '+#13;
ExecSQL;
end;
finally
if(qryTMP <> nil) then qryTMP.Free;
end;
Screen.Cursor := crDefault;
end;

<!--CodeE-->



문제가 될만한 데이터에 접근하는 프로그램의 모듈에 이러한 프로시져를 삽입해 놓는 것이죠.
어쩌면 가장원시적인 방법일지 모르지만, 1개의 SQL서버 유저만 만들어놓고 운영할 시에는 사용해 볼만 합니다. ^^

답변 감사합니다. 한번 고려해 봐야 겠네요.. ㅋㅋ
그럼 수고 하세요~~!!