을 TDataSetProvider, TDataSet의, TAdoQuery, TDataSource 제어 사용의 델파이 조합
제 1 제어 레이아웃 도면에 정상적으로 :
1, 파일 - 뉴 - VCL은 컨트롤을 찾기 위해 하나 하나 작성 Forms 응용 프로그램
사용 제어 : 버튼,을 TDataSetProvider, TDataSet의, TAdoQuery, TDataSource, DbgridEh
컨트롤 사이의 관계에 지점을 설정합니다 :
데이터 세트 1>의 DS1 DS2 포인트
qry1 2> dtsprvdr1 데이터 집합 포인트
점으로 ProviderName dtsprvdr1 3> DS2
4> DbGrideh 데이터 소스 포인트 DS1
2, 파일 - 새로 만들기 - 기타 - 데이터 모듈, 确定
심지어 데이터베이스에 연결하기위한 ADOConnection에서 컨트롤을 추가
편의를 위해, 단순히 컨트롤을 두 번 클릭하여 연결 문자열을 구성
파일을 저장
3, 다시 메인 형 PAS 파일 이때, 새로운 레퍼런스 DataModual 상부 유니트,
메인 창에있는 Qry1, DataModule5.ADOConnection1를 가리키는 자신의 데이터 소스를 설정
4, 쿼리하는 SQL 속성 qry1 문을 높이기 위해, 예를 들어 : testTable SELECT * FROM
5 주 폼 PAS 파일 증가 함수 :
1 개 프로 GetConnected (코네티컷 : TADOConnection); 2 시작 3 경우 Conn.Connected = 거짓 다음 4 시작 5 Conn.Connected을 : = 진정한; 6 단부 ; 7 단 ; 8 9 함수 QuerySql (SQL : 문자열 , 코네티컷 : TADOConnection) 부울; 10 VAR 11 AdoQuery : TADOQuery; 12 시작 13 결과 : = 거짓; 14 시도 15 시도 16 GetConnected (코네티컷)를; (17) AdoQuery :. = TADOQuery 생성 ( 무기 호 ); //이 클래스의 인스턴스를 생성한다 (18)가 AdoQuery.Close; 19. AdoQuery.Connection = 코네티컷 주, 20은 AdoQuery.SQL.Clear; 21이다 AdoQuery.SQL.Add (는 SQL) 22 인 AdoQuery이 .Open; 23은 그 결과 = AdoQuery.RecordCount> 0 ; 24 을 제외한 25 E ON : 예외가 수행 된다 (26)를 선두 27 ShowMessage ( ' 문 : ' +는 SQL + # 13는 # 10 + '예외 클래스 이름 : ' + E.ClassName + # 13 # 10 + ' 예외 메시지 : ' + e.Message); 28 (29) Application.MessageBox ( ' 데이터베이스 쿼리하면, 참조하시기 바랍니다 실패! ' , ' 팁 ' , MB_OK + MB_ICONINFORMATION ) (30) 그 결과 = 거짓; 31은 최종 ; 32 엔드 , 33은 (가) 마지막 34 엔드 , 35 엔드 ;
6 버튼 버튼을 두 번 클릭
1 QuerySql ( ' testTable SELECT * ' , DataModule5.ADOConnection1)를; 2 ds2.Active : = 거짓; 3 ds2.Active은 : 진정한 =;
7, 확인, 컴파일, 저장 및 실행
HTTPS : //www.cnblogs.com/OSKnown/p/8624761.html 재현