귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
吏덈Ц怨 떟蹂 吏덈Ц怨 떟蹂 입니다.
글내용 - 吏덈Ц怨 떟蹂
 [吏덈Ц] 濡쒓렇씤 뤌 癒쇱 異쒕젰 吏덈Ц뱶由쎈땲떎..
뜽珥덈낫93
(臾몄뿬삤)
2019-05-08 삤쟾 10:15:33
344회 조회


등록된 파일이 없습니다.

씠嫄 濡쒓렇씤 뤌 솗씤踰꾪듉 遺遺꾩엯땲떎.

procedure TForm5.Button1Click(Sender: TObject);
var sStr : String;
begin
    sStr := 'SELECT SABUN, PASSWORD     '#13+
            '  FROM ssfsfs              '#13+
            ' WHERE SABUN = :ID         '#13;

    WITH Query1, SQL DO
    begin
        Query1.Close;
        Query1.SQL.Clear;
        SQL.Add(sStr);
        Query1.ParamByName('ID').AsString := Edit1.Text;
        Open;
    end;

    IF Edit1.Text = '' THEN
    begin
        StatusBar1.Panels[0].Text := '궗썝踰덊샇瑜 엯젰븯꽭슂.';
        Edit1.SetFocus;
        exit;
    end

    ELSE IF Edit2.Text = '' THEN
    begin
        StatusBar1.Panels[0].Text := '鍮꾨踰덊샇瑜 엯젰븯꽭슂.';
    end;

    IF Query1.IsEmpty THEN
    begin
        StatusBar1.Panels[0].Text := '궗썝踰덊샇媛 뾾뒿땲떎.';
        Edit1.SetFocus;
        exit;
    end

    ELSE begin
    IF Query1.FieldByName('PASSWORD').AsString = Edit2.Text THEN
    begin
        StatusBar1.Panels[0].Text := '濡쒓렇씤 꽦怨!';

        exit;
    end

    ELSE begin
        StatusBar1.Panels[0].Text := '鍮꾨踰덊샇媛 由쎈땲떎.';
        Edit2.SetFocus;
        exit;
    end;
    end;
end;

 

 

 

洹몃━怨 씠嫄 dpr뙆씪 엯땲떎.

program Mdiapp;

uses
  Forms,
  windows, Dialogs,SysUtils,Controls,
  Unit1 in 'Unit1.pas' {MAIN},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'C:\Users\Public\Pictures\Sample Pictures\Unit5.pas' {Form5},
  Unit6 in 'C:\Users\Public\Pictures\Sample Pictures\Unit6.pas' {DataModule6: TDataModule};

{$R *.RES}
var
Mutex: THandle;
begin
  Mutex := CreateMutex(nil, True, 'MyMutex');
  IF (Mutex <> 0) and (GetLastError = 0) THEN
  begin
  Application.Initialize;
  Form5 := TForm5.Create(nil);
  Form5.ShowModal;
  Application.CreateForm(TMAIN, MAIN);
  Application.CreateForm(TDataModule6, DataModule6);
  Application.Run;
  IF Mutex<> 0 THEN CloseHandle(Mutex);
  Form5.Free;
  end;
end.

 

Form5(濡쒓렇씤 뤌) 癒쇱 떎뻾릺怨 븘씠뵒 鍮꾨踰덊샇 떎 留욎쑝硫 떎쓬 硫붿씤솕硫댁쑝濡 異쒕젰븯怨 떢뜲 뼱뼸寃 빐빞븯굹슂..? 솗씤 늻瑜대㈃ db媛 뾾떎뒗? 뿉윭媛 쑉꽕슂.. 紐뉗씪吏 뿬湲곗꽌 留됲엳뒗 긽깭씤뜲 룄二쇱꽭슂뀥뀥