资源描述:
《vbword模版数据库来制作格式合同的方法》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、用VB+WORD模版+数据库来制作格式合同的方法步骤一、word模版制作:在第一行是合同标题"【书签1合同标题xxxxxxxx合同】"第二行******************************合同编号:【书签2合同编号】签约单位:【书签3签约单位】签约地址:【书签4签约地址】签约日期:【书签5签约日期】.....表格第一行'表格第一行第一列中插入书签4表格第二行...货物名称数量规格【书签6货物清单】'实现代码如下DimcnAsNewADODB.ConnectionDimAdoRsAsNewADODB.RecordsetDimWordTempsA
2、sNewWord.ApplicationPrivateSubForm_Load()Ifcn.State=1Thencn.CloseEndIfcn.CursorLocation=adUseClientcn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"db1.mdb"EndSub'开始导出数据PrivateSubCommand1_Click()DimstrSQlAsStringDimRECAsIntegerDimiAsIntegerWordTemps.Documents.AddA
3、pp.Path+"货物合同.doc",FalseWordTemps.Selection.GoTowdGoToBookmark,,,"合同标题"WordTemps.Selection.TypeText“关于冬季货物的成交合同”WordTemps.Selection.GoTowdGoToBookmark,,,"合同编号"WordTemps.Selection.TypeText“2004000001”WordTemps.Selection.GoTowdGoToBookmark,,,"签约单位"WordTemps.Selection.TypeText“宏大科技
4、公司,天天科技公司”WordTemps.Selection.GoTowdGoToBookmark,,,"签约地址"WordTemps.Selection.TypeText“北京中关村大厦”WordTemps.Selection.GoTowdGoToBookmark,,,"签约时间"WordTemps.Selection.TypeTextfromat(Now,"yyyy-mm-dd")strSQl="select*fromMatrixs"AdoRs.OpenstrSQl,cn,adOpenKeyset,adLockOptimisticREC=AdoRs.R
5、ecordCountIfREC<1ThenMsgBox"无商品记录!",vbOKOnly,"提示"AdoRs.CloseExitSubElseAdoRs.MoveFirstWordTemps.Selection.GoTowdGoToBookmark,,,"货物清单"Fori=1ToRECWordTemps.Selection.TypeTextAdoRs!名称WordTemps.Selection.MoveRightunit:=wdCharacter,Count:=1'右移一格WordTemps.Selection.TypeTextAdoRs!数量Word
6、Temps.Selection.MoveRightunit:=wdCharacter,Count:=1'右移一格WordTemps.Selection.TypeTextAdoRs!规格AdoRs.MoveNextIfAdoRs.EOF=FalseThenWordTemps.Selection.InsertRowsBelow1'表格换行EndIfNextiAdoRs.CloseWordTemps.Visible=True'显示WORD窗口EndIfEndSub作者:soho_andy(冰)