各位前輩好小妹目前遇到一個棘手的問題公司收發部要求我必須要寫一個係統架構為ｘｐ下的此係統具有收發的功能．．可以依日期查到收文或發文且編輯好後可按下存檔．． ... 誰會寫這套程式 (小妹 收發 誰會寫這套程式 - 趣味新聞網

感觉是资料库相关的程式开发，建议用 C# 搭配 MS_SQL 或 Access 来开发
会比较容易，当然用 VB 也可以，我对 C 熟，所以用 C# 来开发。

对资料库语法也要有点基础，可看相关资料库程式语法书来加强自己。

如果您要写个人电脑的应用软体, 如您所述并无不可; 但如果是要建立一个收发文系统, 给整个机构运用, 那就有问题了.

如果要建立一个收发文系统, 建议您考虑建置网站(例如: Linux+Apache+php+MySQL), 用网页介面,
管理集中, 介面跨平台, 这样问题比较单存!

如果你有灌office,可以在VB com元件中找到Microsoft Word 1x.0 Object Library
1x.0看你office的版本,11.0是office 2003版的
加入参考之后就可以使用Word AP来做你要做的事
我的做法是先开启一个我做好的word版型
版型中把程式要写入文字的第方用特殊的字串来代替(exp:<!--content-->)
然后用word物件把这个字串replace掉,另存新档,档案名称当然就照妳要的去定
以.Net的做法是
1.先读入word版型
Import Word
Dim wcr As New Word.ApplicationClass    '开一个Word AP物件
Dim Nothings As system.Reflection.Missing
Dim wd As New Word.Document   '宣告Word文件物件
'开启Word版型

wd = wcr.Documents.Open("版型路径版型名称.doc",Nothings.Value,True,Nothings.Value,Nothings.Value,Nothings.Value,Nothings.Value,Nothings.Value,Nothings.Value,Nothings.Value,Nothings.Value,Nothings.Value,Nothings.Value,Nothings.Value,Nothings.Value,Nothings.Value)

'替代字串
With wd.Range.Find
    .ClearFormatting()
    .Forard = True
    .Text = "<!--content-->"
    With Replacement
            .ClearFormatting()
            .Text = "要替代的字串"
    End With
    .Execute(replace:=Word.WdReplace.wdReplaceAll)    '这个程序会传回有没有替代到要替代的字串,如何没有传回False,妳可以接他的值来判别其他你要做的
End With

wd.SaveAs("另存新档的目录另存新档的档名.doc")
wd.close()




===================================
其实相关文件MSDN都有,只是英文的,如果妳要有别的功能Goolge找不到就去MSDN找吧
剩下什么资料库存取的功能如果妳不会就另外问吧
不知道妳要用什么资料库来存取,上网找connString都找的到
写程式的人不会用Google是事倍功半

[ 本帖最后由 zeeman 于 2008-3-25 02:25 编辑 ]

基本上你要用 VB 写这套软体，有三个最基本的
1. 要会用 VB (这是废话) 。
2. 要找 VB 的资料库运用方面的资料，因为你的资料一定要用资料库来做。
3. 找 VB 控制 Word 的资料.. 上面的大大就有提供范例了。

其它就看你的程式功力了

文元國小傢長會宋俊明 為崇明國中墜樓生募款

誰會寫這套程式

哪種同事最討厭？網友狂點名一行為：薪水小偷！

前一篇新聞

誰會中原大學碩職班96年的考古題呢?有題目喔

后一篇新聞

誰會救一頁書??