delphi數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)合同管理系統(tǒng)論文范例(編輯修改稿)
2024-12-22 17:02 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 coding:=39。39。 //所使用的文檔代碼頁(yè) Visible:= 1。 //打開(kāi)文檔的窗口是否可見(jiàn) (filename, confirmconversions,readonly, addtorecentfiles,passworddocument, passwordtemplate,revert, writepassworddocument,writepasswordtemplate, format ,Encoding, Visible)。 itemindex := 1。 ((itemindex))。 。//PrintOut方法用于打印指定的文檔 。 。end。 主窗體設(shè)計(jì)主窗體中主要是通過(guò)菜單和工具欄按鈕來(lái)調(diào)用子窗體，合同管理系統(tǒng)主窗體運(yùn)行結(jié)果如圖3所示。圖3 合同管理系統(tǒng)主界面1．窗體設(shè)計(jì)步驟（1）運(yùn)行Delphi會(huì)自動(dòng)創(chuàng)建一個(gè)窗體，設(shè)置該窗體為程序主窗體，命名該窗體為“frm_main”，設(shè)置窗體的Caption屬性為“合同管理系統(tǒng)”；WindowsStyle屬性為“wsMaximized”。（2）在“Standard”組件頁(yè)中點(diǎn)選“TMainMenu”組件，添加到窗體上，雙擊該組件進(jìn)行菜單添加，如圖4所示。圖4 主菜單設(shè)計(jì)（3）在“Standard”組件頁(yè)中點(diǎn)選“TPanel”組件，在窗體上添加2個(gè)TPanel組件，命名為“Panel1”和“Panel3”，設(shè)置Bevellnner屬性為“bvSpace”；BevelOuter屬性為“bvLowered”。設(shè)置Panel1組件的Align屬性為“alTop”，設(shè)置Panel2組件的Align屬性為“alClient”。（4）在“Additional”組件頁(yè)中點(diǎn)選“TImage”組件，添加到Panel1組件上，設(shè)置Align屬性為“alTop”，在Picture屬性添加圖片。（5）在“Additional”組件頁(yè)中點(diǎn)選“TSpeedButton”組件，在TImage1組件上添加9個(gè)TSpeedButton組件，默認(rèn)命名，設(shè)置Flat屬性為“Tree”（6）在“Additional”組件頁(yè)中點(diǎn)選“TImage”組件，添加到Panel3組件上，設(shè)置Align屬性分別為“alLeft”和“alClient”，在Picture屬性中添加圖片。（7）在“Win32”組件頁(yè)中點(diǎn)選“TTreeView”、“TListView”組件、“TRichEdit”組件，添加到窗體上，設(shè)置ReadOnly屬性為“True”。（8）在“”組件頁(yè)中點(diǎn)選“TFileListView”組件，添加到窗體上，設(shè)置Visible屬性為“False”；設(shè)置Mask屬性為“*.doc”。（9）在“Standard”組件頁(yè)中點(diǎn)選“TPopupMenu”組件，添加到窗體上，雙擊展開(kāi)面板添加菜單，如圖5所示。圖5 彈出菜單設(shè)計(jì)（10）在“Win32”組件頁(yè)中點(diǎn)選“TImagelist”組件，添加到窗體上，雙擊為其添加圖片。（11）在“Dialog”組件頁(yè)中點(diǎn)選“TOpenDialog”組件和“TSaveDialog”組件，添加到窗體上。（12）在“Severs”組件頁(yè)中點(diǎn)選“TWordApplication”組件和“TWordDoucment”組件，添加到窗體上。（13）在“Win32”組件頁(yè)中點(diǎn)選“TStatusBar”組件，添加到窗體上，雙擊展開(kāi)面板，單擊【Add New（Ins）】按鈕添加項(xiàng)，并設(shè)置Text如圖6所示。圖6 任務(wù)欄設(shè)計(jì)2．程序相關(guān)代碼在主窗體中會(huì)用到2個(gè)自定義函數(shù)，用來(lái)向TreeView1中添加樹(shù)形選項(xiàng)，代碼如下：unit U_htgl。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,shellapi, Buttons, StdCtrls, ExtCtrls, Menus, ComCtrls, ImgList, Word2000, OleServer, FileCtrl, jpeg。type Tfrm_main = class(TForm) MainMenu1: TMainMenu。 procedure loaddata。//聲明函數(shù) procedure Skin_Change()。 private { Private declarations } public { Public declarations } dcx:string。//定義的全局變量 dr1,dr2,cx,zf:integer。 end。var frm_main: Tfrm_main。implementationuses U_lx, U_Data, U_drht, U_xtsz, U_htsy, U_dwxx, U_htqd, U_lxsz, U_htxg, U_htcx, U_cx, U_login, U_ri, U_Public, U_czygl。{$R *.dfm}procedure 。//函數(shù)過(guò)程vara,b,c:string。subt1,subt2:TTreenode。begin。with dobegin close。 。 (39。select * from 單位信息表39。)。 open。end。if (39。單位名稱(chēng)39。).Valuenull thenbegina:=(39。單位名稱(chēng)39。).Value。subt1:=(nil,a)。//向TreeView1中添加單位信息with dobegin close。 。 (39。select * from 合同類(lèi)型39。)。 open。end。while not dobeginb:=(39。htlx39。).Value。subt2:=(subt1,b)。//向Treeview1添加合同類(lèi)型子項(xiàng)with dobegin close。 。 (39。select * from 合同 where htlx=:aa39。)。 (39。aa39。).Value:=b。 open。end。while not dobegin c:=(39。htmc39。).Value。 (subt2,c)。//向Treeview1中添加合同名稱(chēng)子項(xiàng) 。end。end。//程序運(yùn)行時(shí)使TreeView中的樹(shù)形選項(xiàng)展開(kāi)end。end。procedure ()。//更換界面函數(shù)過(guò)程 var I:integer。 begin if g_str_skinpath=39。39。 then exit。 (g_str_skinpath+39。39。)。 (g_str_skinpath+39。39。)。 (g_str_skinpath+39。39。)。 end。要使程序在運(yùn)行時(shí)調(diào)用系統(tǒng)登錄窗體并執(zhí)行上面定義的函數(shù)，在窗體的OnShow事件中添加如下代碼：(Tfrm_login,frm_login)。dr1:=0。dr2:=0。cx:=0。xt_path。 //執(zhí)行公共模塊中的函數(shù)，用來(lái)取得數(shù)據(jù)庫(kù)中的系統(tǒng)的各路徑:=yb_path。 //設(shè)置filelistbox1組件的路徑loaddata。 //執(zhí)行自定義函數(shù)skin_change()。當(dāng)鼠標(biāo)單擊TreeView1中的一級(jí)菜單時(shí)不發(fā)生變化，當(dāng)單擊的是二級(jí)菜單時(shí)在Listview1中顯示當(dāng)前二級(jí)菜單的下的三級(jí)菜單名稱(chēng)，當(dāng)單擊的是三級(jí)菜單時(shí)在RichEdit中顯示文檔的內(nèi)容，TreeView1的單擊事件代碼如下：procedure (Sender: TObject)。varlistitem:Tlistitem。begin 。 //清除listview組件中的數(shù)據(jù) if then:=false。if =nil then //只是第一級(jí)begin:=false。:=false。exit。endelsebegin:=false。with dobegin close。 。 (39。select * from 合同 where htlx= :a39。)。 (39。a39。).Value:=。 open。end。while not dobegin listitem:=。 :=(39。htmc39。).Value。 。end。 :=alClient。 :=true。end。if nil then //第三級(jí)beginwith dobegin close。 。 (39。select * from 合同 where htmc=:b39。)。 (39。b39。).Value:=。 open。end。:=(39。htnr39。).Value。:=alClient。:=true。end。end。在TreeView1的OnDblClick事件中添加以下代碼，用于在所選中的三級(jí)菜單中雙擊打開(kāi)Word文檔。procedure (Sender: TObject)。
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1