실제 적용에서 저자는 보고서의 내용이 거의 변경되지 않지만 글꼴 형식과 레이아웃이 자주 변경되고 때로는 사용자가 데이터베이스의 실제 내용을 수정하고 싶지 않지만 특정 요구에 맞게 보고서 내용을 변경하고 싶어한다는 것을 발견했습니다. ReportSmith를 사용하면 전자의 문제는 해결할 수 있지만 후자의 경우에는 아무것도 할 수 없고, 인터페이스도 영어로 되어 있어 사용자에게 적합하지 않습니다. 3.0에서 TQReport 보고서 구성 요소를 사용하는 경우 둘 다 실시간으로 해결할 수 없으며 원본 코드를 사용하기 전에 수정하고 다시 컴파일해야 합니다. Word와 Excel을 사용하면 위의 단점을 완전히 극복할 수 있습니다. 구체적인 구현은 다음과 같습니다(Word 구현을 예로 들어).
먼저 Word를 사용하여 보고서 형식을 편집하고, 형식을 배치하고, 출력할 데이터 항목을 양식 필드로 바꾸고 이름을 지정합니다. 여기서는 양식 필드 Item1 및 Item2(둘 다 텍스트 유형)가 있다고 임시로 가정하고 이 문서를 템플릿 파일인 example.dot로 저장한 후 다음과 같이 진행합니다.
1) Delphi3을 실행하고 Form1로 설정된 시스템 구성 요소에 TDdeClientCov 구성 요소를 추가하고 이름을 DdeExample로 지정하고 ConnectMode를 ddeManual(수동 모드)로 설정합니다. DdeService를 '(WinWord)'로 설정합니다.
2) 다음과 같이 Word를 활성화하는 사용자 지정 프로세스를 작성합니다.
PROcedure Tform1.WordActive(Cmds: TStrings);
var
워드패스: 문자열;
시작하다
if(DdeExample.OpenLink 아님) then {동적으로 연결되었는지 확인}
시작하다
if(FindWindow('OpusApp', nil)=0) then
시작하다
WordPath := 'C:msofficewinword';
if(WordPath=') 그러면
ShowMessage('중국어 Word가 설치되어 있지 않거나 경로가 설정되어 있지 않습니다. 중국어 버전의 Word를 설치하고 설정하세요.')
그렇지 않으면 시작하다
DdeExample.ServiceApplication := WordPath+'Winword.exe';
if(DdeExample.OpenLink) then {매크로 명령이 동적으로 링크된 경우}
DdeExample.ExecuteMacroLines(Cmds,False)
또 다른
ShowMessage('중국어 버전의 Word를 시작할 수 없습니다!');
DdeExample.ServiceApplication := 'WinWord.exe';
끝;
끝
else start{매크로 명령이 동적으로 링크된 경우}
DdeExample.ExecuteMacroLines(Cmds,False);
끝;
끝
또 다른
DdeExample.ExecuteMacroLines(Cmds,false);
끝;
개인 선언 영역에 다음을 추가합니다.
프로시저 ActiveWord(Cmds: TStrings);
3) Form1에 Button1 버튼을 추가하고 onclick 이벤트에 다음 코드를 작성합니다.
절차 TForm1.Button1Click(Sender: TObject);
var
Cmds:TStringList;{Cmd 생성}
TempItem1,TempItem2:문자열;
시작하다
cmds:=TStringList.Create;
cmds.지우기;
TempItem1:='데이터 항목 1';
TempItem2:='데이터 항목 2';
Cmd를 사용하면
시작하다
분명한;
Add('[FileNew.Template ="Example.Dot″]');{템플릿 파일 열기 example.Dot}
Add('[AppMaximize]');{문서 최대화}
Add('[SetFormResult "Item1",″'+TempItem1+'″]');{데이터 TempItem1을 양식 필드 Item1에 전달}
Add('[SetFormResult "Item2","'+TempItem2+'"]);{데이터 TempItem2를 양식 필드 Item2에 전달}
끝;
WordActive(DdeExample,Cmds);{사용자 정의 프로세스 호출}
Cmds.Free;{Release Cmds}
끝;
이 프로그램을 실행하고 Button1을 클릭하면 Word가 시작되고 화면에 두 개의 데이터 항목(데이터 항목 1, 데이터 항목 2)이 나타나는 것을 볼 수 있습니다. 마지막으로, 이 보고서는 특정 애플리케이션과 아무 관련이 없기 때문에 이 보고서의 형식과 데이터를 마음대로 수정할 수 있습니다.
이 예에서는 중국어 Word6 또는 중국어 Word7이 사용됩니다. Word97의 매크로 명령이 Visual Basic 문으로 변경되었으므로 Word97을 사용하여 구현하려면 해당 매크로 명령을 해당 코드로 변경하십시오.
이것은 간단한 예입니다. Word의 매크로 기록 기능을 사용하여 더 많은 매크로(예: 테이블 자동 생성, 텍스트 채우기, 글꼴 변경 및 기타 매크로 명령)를 기록하고 이를 데이터베이스의 다양한 테이블과 연결하고 추가할 수 있습니다. 그러면 필요한 더 복잡한 기능을 얻을 수 있습니다.