热度 1|||
'打开智能窗体,窗体位置:项目窗体\本地项目\office部件演示\*中标通知编辑*
dim form1 = 创建窗体("3fe946fc-4212-48cd-ba82-74a3e277b396")
form1.Input1 = "新增"
form1.ShowDialog()
'刷新网格部件数据
网格部件1.RefreshData() |
if me.Input1 = "新增" then
me.FormTitle = "新增中标通知信息"
Office部件1.RefreshData()
'新增数据
记录部件1.AddNewRow()
'设置字段值
记录部件1.SetFieldValue("日期",Now())
end if |
if e.FieldName="编号" then
'当记录部件中编号字段值发生变化时,将该值赋值给office中书签“编号”
Office部件1.SetBookMarkValue("编号",记录部件1.GetFieldValue("编号"))
end if
if e.FieldName="招标日期" then
'当记录部件中招标日期字段值发生变化时,将该值赋值给office中书签“招标日期”
Office部件1.SetBookMarkValue("招标日期",FormatDateTime(记录部件1.GetFieldValue("招标日期"),"yyyy年MM月dd日"))
end if
if e.FieldName="中标价" then
'当记录部件中中标价字段值发生变化时,将该值赋值给office中书签“中标价”
Office部件1.SetBookMarkValue("中标价",记录部件1.GetFieldValue("中标价"))
'当记录部件中中标价字段值发生变化时,将该值赋值给office中书签“单价”
Office部件1.SetBookMarkValue("单价",记录部件1.GetFieldValue("中标价"))
end if
dim zongjia = 0.00
if e.Value1 = "中标价" then
if isnull(e.Value2) = false and isnull(记录部件1.GetFieldValue("数量")) = false then
zongjia = e.Value2 * 记录部件1.GetFieldValue("数量")
记录部件1.SetFieldValue("总价",zongjia)
end if
end if
if e.Value1 = "数量" then
if isnull(e.Value2) = false and isnull(记录部件1.GetFieldValue("中标价")) = false then
zongjia = e.Value2 * 记录部件1.GetFieldValue("中标价")
记录部件1.SetFieldValue("总价",zongjia)
end if
end if
if e.FieldName="总价" then
'当记录部件中总价字段值发生变化时,将该值赋值给office中书签“总价”
Office部件1.SetBookMarkValue("总价",记录部件1.GetFieldValue("总价"))
end if
end if |
'设置记录部件"文档ID"字段的值为记录部件中"ID"字段的值
记录部件1.SetFieldValue("文档ID",记录部件1.GetFieldValue("ID"))
'设置记录部件"文档内容"字段的值为office文档的内容
记录部件1.SetFieldValue("文档内容",Office部件1.GetContentText())
'设置office文档的记录ID值为记录部件的ID值
office部件1.RecordId = 记录部件1.GetFieldValue("ID")
if office部件1.SaveDocument() then
记录部件1.SaveData()
ShowInformation("保存成功")
Me.Output1="Y"
Me.Close()
else
ShowMessage("保存失败,请检查网络或者重新点保存!")
end if |
1. '打印文档内容
2. Office部件1.Print() |
'打开本地文档
Office部件1.OpenLocalFile() |
'将word全屏打开
Office部件1.ShowInFullScreen() |
'设置office部件的编辑模式为:有痕迹保留,不可以修订,可以手写批注
Office部件1.EditType="2,1" |
'设置记录部件中"标题"字段的值为office部件中书签标题的值
记录部件1.SetFieldValue("标题",Office部件1.GetBookMarkValue("标题"))
'设置记录部件中"副标题"字段的值为office部件中书签副标题的值
记录部件1.SetFieldValue("副标题",Office部件1.GetBookMarkValue("副标题")) |
'设置文档编辑模式为:可以编辑、无痕迹,不可手写批注
Office部件1.EditType="1,0"
dim fileName=记录部件1.GetFieldValue("标题")
Office部件1.InnerControl.FileName=记录部件1.GetFieldValue("标题")
dim path= Office部件1.InnerControl.WebSaveLocal()
Office部件1.InnerControl.WebAcceptAllRevisions(path)
Office部件1.InnerControl.FileName=fileName
Office部件1.EditType="4,0"
if isnull(path)=false then
if ShowQuestion("保存成功,是否打开文件?") then
OpenFile(path)
end if
end if |
'Office部件1.OpenSignature("签名位",0,0)
'第一个100表示相对文档起始位置的左边距,第二个100表示相对文档起始位置的上边距
Office部件1.OpenSignature(100,200) |
'打开签名或印章检验窗口
Office部件1.ValidateSignatures() |
'调用模板,模板ID可通过(select * from delit_office_template)查询出来
Office部件1.TemplateId="950a3d8890484556a641235830262b82"
'刷新数据
Office部件1.RefreshData() |
Powered by Discuz! X3.2
© 2001-2013 Comsenz Inc.