^^; 군인이시라....

쩝..

다음은 제가 작업한 플의 로그인 모듈을 올립니다.

database 컴포넌트를 사용하였고 ini파일에서 db서버의 ip주소를

읽어드려서 등록하는 부분이 있는데.. 그 부분은 걍 무시하시고



잘 참고하시기 바랍니다. 도움이 되었으면 합니다. 구럼~~ 휘리릭~~~



procedure Tlog_form.login; // 로그인 소스

var

server_ip : string;

ser_ini : Tinifile;

str : string;

begin

str := 'select * from user_db where user_id = :id and user_pass = :pass and '+

'user_key = :key';

try

ser_ini := Tinifile.create('c:고객관리프로그램log.ini');

server_ip := ser_ini.readstring('server','ip','');

dmf.database1.connected := false;

dmf.database1.params.values['server name'] := server_ip;//;

dmf.database1.connected := true;

if (id_e.text <> '') and (pass_e.text <> '') then

begin

with dmf.Qry do begin

close;

sql.clear;

sql.add(str);

parambyname('id').asstring := id_e.text;

parambyname('pass').asstring := pass_e.text;

parambyname('key').asstring := addmin.text;

open;

if fieldbyname('user_id').asstring = '' then begin

showmessage('정식적인 사용자가 아닙니다. 다시 시도하십시요');

addmin.text := '';

id_e.text := '';

pass_e.text := '';

dmf.database1.connected := false;

exit;

end;

end;

end else begin

showmessage('정식적인 사용자가 아닙니다. 다시 시도하십시요');

dmf.database1.connected := false;

exit;

end;

main_form.StatusB.panels[0].text := dmf.qry.fieldbyname('user_team').asstring +' '+ dmf.qry.fieldbyname('user_name').asstring;

main_form.StatusB.panels[1].text := '로그인 날짜 : ' + datetostr(date);

main.log_id := dmf.qry.fieldbyname('user_id').asstring;

main.logid := dmf.qry.fieldbyname('user_name').asstring;

showmessage('로그인 되었습니다.');

addmin.text := '';

id_e.text := '';

pass_e.text := '';

close;

except

dmf.database1.connected := false;

showmessage('로그인 실패');

exit;

end;

end;

procedure Tlog_form.SpeedButton1Click(Sender: TObject);

begin

login;

end;



procedure Tlog_form.FormClose(Sender: TObject; var Action: TCloseAction);

begin

action := cafree;

end;



procedure Tlog_form.SpeedButton2Click(Sender: TObject);

begin

dmf.database1.connected := false;

close;

end;



end.



군바리델피언 wrote:

> 또 질문을 해서 너무 죄송합니다.ㅠ.ㅠ

> 제가 만들고 있는 이 프로그램을 실행 시켰을때 사용자 계정을 입력하게 만들겁니다.

> 근데 이 사용자 계정을 디비를 만들어서 거기다 저장하고

> 로그인시 디비와 비교하여 맞으면 입장 시키고 틀리면 프로그램 종료 시킬려고 합니다.

> 이 사용자 계정은 추가 수정 제거가 가능하게 해야 되고여

> 디비에서는 이 사용자 계정이 보이지 않아야 합니다. 구지 디비 아니여도 좋구여

> 하여간 계정이 노출 되게 해서는 안됩니다.

> 군대는 보안이 우선이라서여^^

> 근데 제가 실력이 넘 안되고 델파이를 접한지 얼마 되지 않아 도저히 감이 안옵니다.

> 아시는 분은 길을 좀 열어 주십시요....넘 어려워여ㅠ.ㅠ

> 그리고 저 이프로젝트 못끝내면 군생활 내내 휴가 제한 되어 버립니다.ㅠ.ㅠ

> 아시는 분 자세하게 답변 좀 주십시요....