我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您,望对您有所帮助。
procedure TFrmMain.N327Click(Sender: TObject);
var
FWord :Variant;
FDoc :Variant;
strSQL :string;
begin
//首先创造对象,如果出现异常就做出提示
try
FWord := CreateOleObject('Word.Application');
//WOrd程序的执行是否可见,值为false时,程序在后台运行。
FWord.Visible := True;
except
messagebox(0,'创建word对象失败!','警告',MB_OK+MB_ICONINFORMATION);
exit;
end;
strSQL :='select * From "B_T_Company_Infor"';
with dm.ClientDataSet_Temp do
begin
if Active then Active:=False;
CommandText:=strSQL;
Open;
end;
//现在打开的Word中,创建一个新的页面,然后在其中键入需要的内容
try
FDOC :=FWord.Documents.Add;
{对于Word的新页面}
FWord.Selection.Font.Name :='宋体';
FWord.Selection.Font.Size :=20;
FWord.Selection.Font.Bold :=2;
FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter;
FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString);
FWord.Selection.Typeparagraph;//换行
FWord.Selection.Typeparagraph;
FWord.Selection.paragraphs.Alignment := wdAlignParagraphLeft;
FWord.Selection.Font.Size :=12;
FWord.Selection.Font.Bold :=0;
FWord.Selection.TypeText(' 现将我社组团部的');
FWord.Selection.TypeText(' ');
FWord.Selection.TypeText('团计划发出,各地请按下列行程做接待,并及早落实'+
'团队计划和选派优秀导游员。各地代订住宿、火车票、机票务必安排好接待,日程'+
'如有变更,及时与下站接待社或本社联系,各地接团时请举【'+
dm.ClientDataSet_Temp.Fields[0].AsString+'】接站牌。');
FWord.Selection.Typeparagraph;//换行
FWord.Selection.Typeparagraph;//换行
FWord.Selection.TypeText('请速回传真确认,谢谢合作!');
FWord.Selection.Typeparagraph;//换行
FWord.Selection.Typeparagraph;//换行
FWord.Selection.TypeText('人数:');
FWord.Selection.TypeText('人数:');
FWord.Selection.TypeText('国籍:');
FWord.Selection.TypeText('国籍:');
FWord.Selection.TypeText('等级:');
FWord.Selection.TypeText('等级:');
FWord.Selection.Typeparagraph;//换行
FWord.Selection.TypeText('这里是团队安排');
FWord.Selection.Typeparagraph;//换行
FWord.Selection.Typeparagraph;//换行
FWord.Selection.TypeText('TO: ');
FWord.Selection.TypeText('12345678901234567890');
FWord.Selection.Typeparagraph;//换行
FWord.Selection.TypeText('TEL: ');
FWord.Selection.TypeText('12345678901234567890');
FWord.Selection.Typeparagraph;//换行
FWord.Selection.TypeText('FAX: ');
FWord.Selection.TypeText('12345678901234567890');
FWord.Selection.Typeparagraph;//换行
FWord.Selection.Typeparagraph;//换行
FWord.Selection.TypeText('______________________________________________');
FWord.Selection.Typeparagraph;//换行
FWord.Selection.Typeparagraph;//换行
FWord.Selection.TypeText('FROM: ');
FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString);
FWord.Selection.Typeparagraph;//换行
FWord.Selection.TypeText('TEL: ');
FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[3].AsString);
FWord.Selection.Typeparagraph;//换行
FWord.Selection.TypeText('FAX: ');
FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[4].AsString);
FWord.Selection.Typeparagraph;//换行
Except
on e: Exception do
Messagebox(0,Pchar(e.Message),'警告',MB_OK+MB_ICONINFORMATION);
end;
//保存文档
FWord.Caption := '组团计划保存在: '+ExtractFilePath(application.ExeName)+'Reports/GroupPlan.doc';
FDOC.SaveAS(ExtractFilePath(application.ExeName)+'Reports/GroupPlan.doc');
if messagebox(0,'组团计划已经保存成功!'+chr(13)+chr(13)+
'单击【确定】退出Word,返回到程序中!','您确信要退出Word吗?',
MB_YESNO+MB_ICONINFORMATION+MB_DEFBUTTON2)=IDYES then
begin
FWord.Quit;
FWord := Unassigned;
end;
end;