1. °³¹ß/½ÇÇà Ç÷§Æû (1) OS : (2) °³¹ßÅø : (3) »ç¿ë Database :
2. °³¹ß ÁßÀÎ ÇÁ·Î±×·¥
3. Áú¹® ³»¿ë with Query1 do begin Close; with SQL do begin Clear; Add('SELECT MI.*, MSG.*, MS.*, MH.*, MG.*, ME.*, MEX.*'); Add('FROM FMAS_INFO MI'); Add('WHERE M_GU=MSG_GU(+) AND M_KEY=MSG_KEY(+)'); Add(' AND M_GU=MS_GU(+) AND M_KEY=MS_KEY(+)'); Add(' AND M_GU=MH_GU(+) AND M_KEY=MH_KEY(+)'); Add(' AND M_GU=MG_GU(+) AND M_KEY=MG_KEY(+)'); Add(' AND M_GU=ME_GU(+) AND M_KEY=ME_KEY(+)'); Add(' AND M_GU=MEX_GU(+) AND M_KEY=MEX_KEY(+)'); Add(' AND MSG_KEY LIKE :MSG_KEY'); Add('ORDER BY M_GU, M_KEY'); end; ParamByName('MSG_KEY').AsString := '%' + Edname.Text + '%'; Open; Screen.Cursor := crDefault;
ÀÌ·±½ÄÀ¸·Î MSG_KEY°ªÀº Àß °Ë»öÀÌ µÇ¾î DBGrid¿¡ ³ª¿À´Âµ¥
procedure TForm1.Query1CalcFields(DataSet: TDataSet); // ÇÊµå º´ÇÕ begin DataSet['M_NAMEADDR'] := DataSet['M_NAME'] + '¤Ñ' + DataSet['M_ADDR']; end;
with Query1 do begin Close; with SQL do begin Clear; Add('SELECT MI.*, MSG.*, MS.*, MH.*, MG.*, ME.*, MEX.*'); Add('FROM FMAS_INFO'); Add('WHERE M_GU=MSG_GU(+) AND M_KEY=MSG_KEY(+)'); Add(' AND M_GU=MS_GU(+) AND M_KEY=MS_KEY(+)'); Add(' AND M_GU=MH_GU(+) AND M_KEY=MH_KEY(+)'); Add(' AND M_GU=MG_GU(+) AND M_KEY=MG_KEY(+)'); Add(' AND M_GU=ME_GU(+) AND M_KEY=ME_KEY(+)'); Add(' AND M_GU=MEX_GU(+) AND M_KEY=MEX_KEY(+)'); Add(' AND M_NAMEADDR LIKE :M_NAMEADDR'); Add('ORDER BY M_GU, M_KEY'); end; ParamByName('MSG_KEY').AsString := '%' + Edname.Text + '%'; Open; Screen.Cursor := crDefault; end; end;
º´ÇÕ½ÃŲ °ªÀ¸·Î °Ë»öÇÏ·Á°í ÇÏ´Ï ¿À·ù°¡ ¶å´Ï´Ù. º´ÇÕµÈ °ªÀº ´Ù¸¥ ¹æ¹ýÀ¸·Î °Ë»öÀ» ÇØ¾ß ÇÒ±î¿ä
|