귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
吏덈Ц怨 떟蹂 吏덈Ц怨 떟蹂 입니다.
글내용 - 吏덈Ц怨 떟蹂
 [吏덈Ц]뜽뙆씠 봽濡쒖떆 븿닔 룄二쇱꽭슂
븯엫엫
(源씗뿰)
2019-03-12 삤쟾 10:01:19
211회 조회


등록된 파일이 없습니다.

뜽뙆씠 媛쒕컻 泥섏쓬빐蹂대뒗 珥덈낫엯땲떎.

txt_dept_code 뿉뵒듃諛뺤뒪뿉 닽옄肄붾뱶瑜 엯젰븯怨 뿏꽣궎瑜 엯젰븯硫 洹몄뿉 빐떦븯뒗 씠由꾩쓣 뜲씠꽣踰좎씠뒪뿉꽌 寃깋븯뿬 txt_dept_name 뿉뵒듃諛뺤뒪뿉 蹂댁뿬二쇰뒗 봽濡쒖떆 븿닔瑜 留뚮뱾젮怨 빀땲떎. 

냼뒪뒗 씠윭빀땲떎.

procedure TForm2.txt_dept_codeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
   txt_dept_name.text:= Form2.Select_DeptName(txt_dept_code.Text);


function Form2.Select_DeptName(dcode:string):string;
 begin
       if key = #13 then begin
         with SelDeptName do
         begin
           Close;
           ParamByName('in_code').AsString := dcode;
           Open;
           if RecordCount <> 0 then
             result := FieldByName('dept_name').AsString
           else
             result :='';
           key := #0;
         end;
 end;
 end;


[Error] Unit2.pas(98): Undeclared identifier: 'Select_DeptName'
[Error] Unit2.pas(101): Statement expected but 'FUNCTION' found
[Error] Unit2.pas(101): Identifier redeclared: 'Form2'
[Error] Unit2.pas(103): Undeclared identifier: 'key'
[Error] Unit2.pas(104): Undeclared identifier: 'SelDeptName'
[Error] Unit2.pas(106): '(' expected but ';' found
[Error] Unit2.pas(107): Undeclared identifier: 'ParamByName'
[Error] Unit2.pas(107): Undeclared identifier: 'dcode'
[Error] Unit2.pas(109): Undeclared identifier: 'RecordCount'
[Warning] Unit2.pas(109): Comparing signed and unsigned types - widened both operands
[Error] Unit2.pas(110): Undeclared identifier: 'FieldByName'
[Error] Unit2.pas(110): Missing operator or semicolon
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit2.pas'

씠윴 삤瑜섍 굹뒗뜲 씠寃 臾댁뒯 삤瑜섏씤吏룄 紐⑤Ⅴ寃좉퀬 뼱뼡 닔젙쓣 빐빞븯뒗吏 紐⑤Ⅴ寃좎뒿땲떎.
룄二쇱꽭슂.