《合同管理系统》论文范例

1、吉林省明日科技有限公司监制合同管理系统学 院专 业班 级学 号姓 名指导教师教师职称年月日 39 摘要【摘要】合同是合同当事人之间确定相互权利和义务关系的行为方式，对双方当事人都具有法律约束力，以此确保双方按照合同规定的条款履行各自的权力和义务，保证ERP建设的顺利实现。合同的确立以书面签字的形式体现，要确保合同有效，双方的签字必须是法人或者委托代理人。合同内容就是谈判讨论确定的内容。签订合同是谈判的结果，谈判的目的就是签订双方满意的合同。【关键词】 ERP 合同 目录摘要10 引言11 系统分析21.1 需求分析21.2 可行性分析22 总体设计22.1 项目规划22.2 系统功能架构图33

2、 系统设计33.1 设计目标33.2 开发及运行环境33.3 数据库设计34 主要功能模块设计44.1 公共模块设计44.2 主窗体设计84.3 系统登录设计144.4 新建合同164.5 合同审阅18附录A 参考文献31附录B 数据表32附录C 文件架构图340 引言合同管理是企业经营管理中不可缺少的组成部分，无论是企业内部人员管理，还是企业业务往来管理，都离不开合同。由于合同形式的多样性，履行过程的多变性，同时合同执行周期长，信息量大，查找起来非常困难，许多企业对合同管理一直没有好的办法。如果采用计算机管理合同，不但能对企业合同的起草、修改、审阅、签订和查询等一系列工作进行有效管理。并可以

3、为企业管理者提供科学的操作工具，为决策者提供及时、完整的决策参考资料，提升企业的管理水平和竞争能力。1 系统分析1.1 需求分析通过调查，要求系统需要有以下功能：q 能对合同进行全面管理。只要将已订立的合同及时输入系统，系统将可帮助用户完成合同的合同起草、修改、查询、合同签订等一系列工作。q 服务器端具备数据管理功能，客户端只能查看文档，不能修改或复制。可防止企业商业秘密泄露。q 建立数据库备份恢复机制，并提供数据灾难恢复功能。q 支持合同分类查找和模糊查询。q 打开指定路径下的合同文档（Word文档）。q 可实现文档与数据库管理合同。q 批量导入和导出合同。q 实现界面更换。q 系统退出。1

4、.2 可行性分析传统的合同管理方法存在诸多缺点，如：效率低、保密性差、时间一长就会产生大量的文件和数据积压，这对于查找和变更带来了不少的困难。使用计算机管理系统，可以有效管理合同，同时也能帮助企业更方便、快捷的查找合同，可以促进企业工作效率和经营管理能力的提高。合同管理系统使用Delphi 7.0开发，人力资源管理系统前台使用Delphi 7.0开发，它是当月前最为流行的可视化快速应用程序开发环境，对数据库有强大的支持，使开发数据库简单、高效。根据数据量分析，使用SQL Server 2000数据库，以保证数据的安全和执行高效。2 总体设计2.1 项目规划合同管理系统是一个通过计算机有效管理合

5、同的数据库系统，程序由启动窗体、登录窗体、系统主界面、系统设置模块、合同录入模块、合同变更模块、合同管理模块、合同查询模块等组成，特规划功能模块如下：q 系统设置模块该模块的主要功能是：单位信息、操作员管理、数据备份、数据还原、日志管理、界面设置、路径设置。q 合同录入模块该模块主要功能是：合同起草、合同审阅、合同修改、合同签订。q 合同变更模块该模块主要功能是：合同作废。q 合同管理模块该模块主要功能是：删除无效合同、合同类型管理、导入合同、合同打印。q 合同查询模块该模块主要功能是：合同查询、作废合同查询。2.2 系统功能架构图图1 合同管理系统系统功能结构图3 系统设计3.1 设计目标根

6、据企业的需要和合同管理系统的特点，该系统实施后，应达到以下目标：q 通过打开事先建立的合同样本起草合同，可节省合同书写的时间。q 将合同保存到数据库中，以利用查阅和管理。q 合同编辑方式灵活，支持合同批量导入功能。q 操作界面美观、标准、专业、统一，实施方法简单、方便。q 通过数据备份及恢复功能，减少数据不必要的损失。3.2 开发及运行环境系统开发平台：Delphi 7.0。数据库管理系统软件：SQL Server 2000。运行平台：Windows xp/ Windows 2000/Windows2003。分辨率：最佳效果800*600像素。3.3 数据库设计本系统采用SQL Server

7、2000 数据库，系统数据库名为pact，数据库pact中包括7个数据表。关于数据库中的数据表请参见附录B4 主要功能模块设计4.1 公共模块设计为了节省系统资源，实现代码重用，可以在系统中新建一个单元文件，用来存放一些全局变量和会被多次使用的函数。选择“File”/“New”/“Unit”菜单，新建一个单元文件，命名单元文件为U_Public，在单元文件中添加以下代码：unit U_Public;interfaceuses SysUtils, Classes, DB, ADODB, Dialogs, Controls, IniFiles, Forms, ComCtrls, ExtCtrls,

8、 StdCtrls, Graphics, windows, Mask, DBGrids,DBCtrls,Word2000, Grids, OleServer, Excel2000, Variants;procedure exec_sql(P_Str_lj:String);procedure Rz_Gl(czy,czsj,sj:string);procedure xt_path;procedure open_data(p_str_lj:string);Procedure Skinload();procedure close_data;procedure OpenWordFile(State,Pa

9、th: String; WordApplication1: TwordApplication;worddocument:Tworddocument);procedure wordRead( State,Path: String; WordApplication: TwordApplication;worddocument:Tworddocument);varsb_path:string;gg:string;czy:string;yb_path,cg_path,sy_path,xg_path,qd_path,hsz_path:string;g_str_skinname:string;g_str_

10、skinpath:string;implementationuses U_Data;procedure xt_path;beginwith data1.ADOQuery1 dobegin close; sql.Clear; sql.Add(select * from 系统路径); open;end;cg_path:=data1.ADOQuery1.fieldbyname(cglj).Value;sy_path:=data1.ADOQuery1.fieldbyname(sylj).Value;xg_path:=data1.ADOQuery1.fieldbyname(xglj).Value;qd_

11、path:=data1.ADOQuery1.fieldbyname(qdlj).Value;hsz_path:=data1.ADOQuery1.fieldbyname(hsz).Value;end; procedure open_data(p_str_lj:string);begin data1.AC.Open(); data1.skin.SQL.Clear; data1.skin.SQL.Add(p_str_lj); data1.skin.ExecSQL; data1.skin.Open;end; Procedure Skinload(); varAppPath:String;/程序路径be

12、gin GetDir(0,AppPath); open_data(select * from skin);if not data1.skin.Eof thenbegin g_str_skinname:=trim(data1.skin.FieldValuesmc); g_str_skinpath:=apppath+skin+g_str_skinname+;end;close_data;if g_str_skinname thenbegin if (strtoint(g_str_skinname)4) then begin g_str_skinname:=; g_str_skinpath:=; e

13、nd;end;if g_str_skinname= thenbegin g_str_skinname:=; g_str_skinpath:=;end;end;procedure Rz_Gl(czy,czsj,sj:string); /日志管理var NN:string;begin NN:=insert into 日志(czy,czsj,sj) values(; NN:=NN+quotedstr(czy)+,; NN:=NN+quotedstr(czsj)+,; NN:=NN+quotedstr(sj)+); exec_sql(nn);end;procedure Exec_Sql(P_Str_l

14、j:String);begin data1.AC.Open(); data1.Rz_Gl.SQL.Clear; data1.Rz_Gl.SQL.Add(p_str_lj); data1.Rz_Gl.ExecSQL; close_data;end;procedure close_data; begin data1.Rz_Gl.Close; data1.AC.Close;end;procedure OpenWordFile(State,Path: String; WordApplication1: TwordApplication;worddocument:Tworddocument);/打开Wo

15、rd函数过程var itemindex :olevariant; filename, confirmconversions, readonly, addtorecentfiles, passworddocument, passwordtemplate, revert, writepassworddocument, writepasswordtemplate, format, Encoding, Visible: olevariant; begin WordApplication1.Connect;/ 建立连接 wordApplication1.Visible:=True; filename :

16、=path ; /文档名 ( 包含路径 ) confirmconversions := false; /是否显示文件转换对话框 if state=false then readonly:=false else readonly :=false; /是否以只读方式打开文档 addtorecentfiles := false; /是否将文件添加到 文件 菜单底部的最近使用文件列表中 passworddocument := ; /打开此文档时所需要的密码 passwordtemplate := ; /打开此模板时所需要的密码 revert := true; /如果文档已经 ,是否重新打开文档 wri

17、tepassworddocument := ; /保存对文档更改时所需要的密码 writepasswordtemplate := ; /保存对模板进行更改时所需要的密码 format := wdopenformatdocument; /打开文档时所需使用的文件转换器 Encoding:=; /所使用的文档代码页 Visible:= 1; /打开文档的窗口是否可见 wordapplication1.documents.open( filename, confirmconversions,readonly, addtorecentfiles,passworddocument, passwordte

18、mplate,revert, writepassworddocument,writepasswordtemplate,format ,Encoding, Visible); itemindex := 1; if state=True then begin WordApplication1.CommandBars.ActiveMenuBar.Set_Enabled(False); /整个菜单工具兰隐藏 end else begin WordApplication1.CommandBars.ActiveMenuBar.Set_Enabled(True); end; WordApplication1

19、.Disconnect;/ 断开连接end;procedure wordRead( State,Path: String; WordApplication: TwordApplication;worddocument:Tworddocument);/读取Word文档的内容函数过程 var itemindex :olevariant; filename, confirmconversions, readonly, addtorecentfiles, passworddocument, passwordtemplate, revert, writepassworddocument, writepa

20、sswordtemplate, format, Encoding, Visible: olevariant; begin WordApplication.Connect; wordApplication.Visible:=false; filename := Path; /文档名 ( 包含路径 ) confirmconversions := false; /是否显示文件转换对话框 if state=false then readonly:=false else readonly := true; /是否以只读方式打开文档 addtorecentfiles := false; /是否将文件添加到

21、 文件 菜单底部的最近使用文件列表中 passworddocument := ; /打开此文档时所需要的密码 passwordtemplate := ; /打开此模板时所需要的密码 revert := true; /如果文档已经 ,是否重新打开文档 writepassworddocument := ; /保存对文档更改时所需要的密码 writepasswordtemplate := ; /保存对模板进行更改时所需要的密码 format := wdopenformatdocument; /打开文档时所需使用的文件转换器 Encoding:=; /所使用的文档代码页 Visible:= 1; /打

22、开文档的窗口是否可见 wordapplication.documents.open(filename, confirmconversions,readonly, addtorecentfiles, passworddocument, passwordtemplate,revert, writepassworddocument,writepasswordtemplate, format ,Encoding, Visible); itemindex := 1; worddocument.connectto(wordapplication.documents.item(itemindex); gg:

23、=worddocument.Range.Text;/读取文档内容 worddocument.Disconnect; WordApplication.Disconnect;end;cedure wordPrint( State,Path: String; WordApplication: TwordApplication;worddocument:Tworddocument);var itemindex :olevariant; filename, confirmconversions, readonly, addtorecentfiles, passworddocument, p

24、asswordtemplate, revert, writepassworddocument, writepasswordtemplate, format, Encoding, Visible: olevariant;begin WordApplication.Connect; wordApplication.Visible:=false; filename := Path; /文档名 ( 包含路径 ) confirmconversions := false; /是否显示文件转换对话框 if state=false then readonly:=false else readonly := f

25、alse; /是否以只读方式打开文档 addtorecentfiles := false; /是否将文件添加到 文件 菜单底部的最近使用文件列表中 passworddocument := ; /打开此文档时所需要的密码 passwordtemplate := ; /打开此模板时所需要的密码 revert := true; /如果文档已经 ,是否重新打开文档 writepassworddocument := ; /保存对文档更改时所需要的密码 writepasswordtemplate := ; /保存对模板进行更改时所需要的密码 format := wdopenformatdocument;

26、/打开文档时所需使用的文件转换器 Encoding:=; /所使用的文档代码页 Visible:= 1; /打开文档的窗口是否可见 wordapplication.documents.open(filename, confirmconversions,readonly, addtorecentfiles,passworddocument, passwordtemplate,revert, writepassworddocument,writepasswordtemplate, format ,Encoding, Visible); itemindex := 1; worddocument.co

27、nnectto(wordapplication.documents.item(itemindex); worddocument.PrintOut;/PrintOut方法用于打印指定的文档 worddocument.Disconnect; WordApplication.Disconnect;end;4.2 主窗体设计主窗体中主要是通过菜单和工具栏按钮来调用子窗体，合同管理系统主窗体运行结果如图3所示。图3 合同管理系统主界面1窗体设计步骤（1）运行Delphi会自动创建一个窗体，设置该窗体为程序主窗体，命名该窗体为“frm_main”，设置窗体的Caption属性为“合同管理系统”；Windo

28、wsStyle属性为“wsMaximized”。（2）在“Standard”组件页中点选“TMainMenu”组件，添加到窗体上，双击该组件进行菜单添加，如图4所示。图4 主菜单设计（3）在“Standard”组件页中点选“TPanel”组件，在窗体上添加2个TPanel组件，命名为“Panel1”和“Panel3”，设置Bevellnner属性为“bvSpace”；BevelOuter属性为“bvLowered”。设置Panel1组件的Align属性为“alTop”，设置Panel2组件的Align属性为“alClient”。（4）在“Additional”组件页中点选“TImage”组件，

29、添加到Panel1组件上，设置Align属性为“alTop”，在Picture属性添加图片。（5）在“Additional”组件页中点选“TSpeedButton”组件，在TImage1组件上添加9个TSpeedButton组件，默认命名，设置Flat属性为“Tree”（6）在“Additional”组件页中点选“TImage”组件，添加到Panel3组件上，设置Align属性分别为“alLeft”和“alClient”，在Picture属性中添加图片。（7）在“Win32”组件页中点选“TTreeView”、“TListView”组件、“TRichEdit”组件，添加到窗体上，设置ReadO

30、nly属性为“True”。（8）在“Win3.1”组件页中点选“TFileListView”组件，添加到窗体上，设置Visible属性为“False”；设置Mask属性为“*.doc”。（9）在“Standard”组件页中点选“TPopupMenu”组件，添加到窗体上，双击展开面板添加菜单，如图5所示。图5 弹出菜单设计（10）在“Win32”组件页中点选“TImagelist”组件，添加到窗体上，双击为其添加图片。（11）在“Dialog”组件页中点选“TOpenDialog”组件和“TSaveDialog”组件，添加到窗体上。（12）在“Severs”组件页中点选“TWordApplica

31、tion”组件和“TWordDoucment”组件，添加到窗体上。（13）在“Win32”组件页中点选“TStatusBar”组件，添加到窗体上，双击展开面板，单击【Add New（Ins）】按钮添加项，并设置Text如图6所示。图6 任务栏设计2程序相关代码在主窗体中会用到2个自定义函数，用来向TreeView1中添加树形选项，代码如下：unit U_htgl;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,shellapi, Buttons, S

32、tdCtrls, ExtCtrls, Menus, ComCtrls, ImgList, Word2000, OleServer, FileCtrl, jpeg;type Tfrm_main = class(TForm) MainMenu1: TMainMenu; procedure loaddata;/声明函数 procedure Skin_Change(); private Private declarations public Public declarations dcx:string;/定义的全局变量 dr1,dr2,cx,zf:integer; end;var frm_main:

33、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 *.dfmprocedure Tfrm_main.loaddata;/函数过程vara,b,c:string;subt1,subt2:TTreenode;begintreeview1.Items.Clear;with data1.ADOQuery1 dobegin close; sql.Clear;

34、sql.Add(select * from 单位信息表); open;end;if data1.ADOQuery1.FieldByName(单位名称).Valuenull thenbegina:=data1.ADOQuery1.fieldbyname(单位名称).Value;subt1:=treeview1.Items.Add(nil,a);/向TreeView1中添加单位信息with data1.htlx dobegin close; sql.Clear; sql.Add(select * from 合同类型); open;end;while not data1.htlx.Eof dobeg

35、inb:=data1.htlx.FieldByName(htlx).Value;subt2:=treeview1.Items.AddChild(subt1,b);/向Treeview1添加合同类型子项with data1.htb dobegin close; sql.Clear; sql.Add(select * from 合同 where htlx=:aa); parameters.ParamByName(aa).Value:=b; open;end;while not data1.htb.Eof dobegin c:=data1.htb.FieldByName(htmc).Value; t

36、reeview1.Items.AddChild(subt2,c);/向Treeview1中添加合同名称子项 data1.htb.Next;end;data1.htlx.Next;end;TreeView1.FullExpand;/程序运行时使TreeView中的树形选项展开end;end;procedure Tfrm_main.Skin_Change();/更换界面函数过程 var I:integer; begin if g_str_skinpath= then exit; image1.Picture.LoadFromFile(g_str_skinpath+1.jpg); image2.Pi

37、cture.LoadFromFile(g_str_skinpath+2.jpg); image3.Picture.LoadFromFile(g_str_skinpath+3.jpg); end;要使程序在运行时调用系统登录窗体并执行上面定义的函数，在窗体的OnShow事件中添加如下代码：application.CreateForm(Tfrm_login,frm_login);frm_login.ShowModal;frm_login.Free;dr1:=0;dr2:=0;cx:=0;xt_path; /执行公共模块中的函数，用来取得数据库中的系统的各路径filelistbox1.Directo

38、ry:=yb_path; /设置filelistbox1组件的路径loaddata; /执行自定义函数skin_change();当鼠标单击TreeView1中的一级菜单时不发生变化，当单击的是二级菜单时在Listview1中显示当前二级菜单的下的三级菜单名称，当单击的是三级菜单时在RichEdit中显示文档的内容，TreeView1的单击事件代码如下：procedure Tfrm_main.TreeView1Click(Sender: TObject);varlistitem:Tlistitem;begin listview1.Clear; /清除listview组件中的数据 if tree

39、view1.Selected.Selected thenrichedit1.Visible:=false;if treeview1.Selected.Parent=nil then /只是第一级beginlistview1.Visible:=false;richedit1.Visible:=false;exit;endelsebeginrichedit1.Visible:=false;with data1.htb dobegin close; sql.Clear; sql.Add(select * from 合同 where htlx= :a); parameters.ParamByName(

40、a).Value:=treeview1.Selected.Text; open;end;while not data1.htb.Eof dobegin listitem:=listview1.Items.Add; listitem.Caption:=data1.htb.fieldbyname(htmc).Value; data1.htb.Next;end; listview1.Align:=alClient; listview1.Visible:=true;end;if treeview1.Selected.Parent.Parentnil then /第三级beginwith data1.A

41、DOQuery1 dobegin close; sql.Clear; sql.Add(select * from 合同 where htmc=:b); parameters.ParamByName(b).Value:=treeview1.Selected.Text; open;end;richedit1.Text:=data1.ADOQuery1.fieldbyname(htnr).Value;richedit1.Align:=alClient;richedit1.Visible:=true;end;end;在TreeView1的OnDblClick事件中添加以下代码，用于在所选中的三级菜单中

42、双击打开Word文档。procedure Tfrm_main.TreeView1DblClick(Sender: TObject);varpath:string;beginwith data1.ADOPublic dobegin close; sql.Clear; sql.Add(select * from 合同 where htmc=:c); parameters.ParamByName(c).Value:=treeview1.Selected.Text; open;end;path:=data1.ADOPublic.fieldbyname(htlj).Value; /确定路径OpenWor

43、dFile(True,path,WordApplication1,WordDocument1); /执行打开函数，函数过程在公共模块end;在ListView1中双击选中的项目时打开Word文档，ListView1的双击事件代码如下：procedure Tfrm_main.ListView1DblClick(Sender: TObject);varpath:string; /路径beginwith data1.ADOPublic dobegin close; sql.Clear; sql.Add(select * from 合同 where htmc=:c); parameters.Param

44、ByName(c).Value:=listview1.Selected.Caption; open;end;path:=data1.ADOPublic.fieldbyname(htlj).Value; /确定路径OpenWordFile(True,path,WordApplication1,WordDocument1); /执行打开函数end;4.3 系统登录设计系统登录主要用于对进入进销存管理系统的用户进行安全性检查，以防止非法用户进入该系统。只有合法的用户，才可以进入系统。系统登录模块设计结果如图7所示。图7 系统登录模块1窗体设计步骤（1）添加一个新窗体，设置窗体的名称为“frm_Log

45、in”，设置BorderStyle属性为“bsNone”；设置Position属性为“poScreenCenter”。（2）在“Additional”组件页中点选“Timage”组件，添加到窗体上，设置Align属性为“alClient”；Stretch属性为“Tree”。（3）在“Standard”组件页中点选“TEdit”组件，在窗体上添加2个TEdit组件，默认命名，设置Edit2的PasswordChar属性为*，调整好大小和位置。（4）在“Additional”组件页中点选“TSpeedButton”组件，在窗体上添加2个TSpeedButton组件，设置Flat属性为“Tree”，

46、调整也大小和位置。2程序相关代码在Edit1的OnChange事件中添加如下代码，使用户按下Enter键或方向键，使焦点移至Edit2中。procedure Tfrm_Login.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);beginif (key=vk_return) or (key=vk_down) thenedit2.SetFocus;end;在Edit2的OnChange事件中添加如下代码，使用户按下Enter键时按执行【登录】按钮中的程序，用户按下方向键时焦点移至Edit1中。procedure T

47、frm_Login.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);beginif (key=vk_return) or(key=vk_down) thenspeedbutton1.Clickelseif key=vk_up thenedit1.SetFocus;end;在【确定】铵钮的OnClick事件中添加如下代码进行用户身份验证。验证用户名及其密码，主要通过记录集结果结合If语句判断用户选定的操作员及其输入的密码是否符合数据库中的操作员和密码，如果符合则允许登录，否则提示用户用户名或密码错误，错误三次强行退

48、出。i:=i+1;if trim(edit1.Text)= then application.MessageBox(请输入用户名,提示,64) else if trim(edit2.Text)= then application.MessageBox(请输入密码,提示,64) else begin with data1.login do begin close; sql.Clear; sql.Add(select * from user1 where username=:a and password=:b); parameters.ParamByName(a).Value:=trim(edit

49、1.Text); parameters.ParamByName(b).Value:=trim(edit2.Text); open; end; if data1.login.RecordCount0 then begin kk:=true; czy:=edit1.Text; frm_main.StatusBar1.Panels1.Text:=czy; frm_main.StatusBar1.Panels3.Text:=formatdatetime(yyyy年mm月dd日 hh:dd:ss,now); Rz_Gl(czy,frm_main.StatusBar1.Panels3.Text,登陆);

50、close; end else if i3 then begin application.MessageBox(用户名或密码错误,提示,64); edit1.Clear; edit2.Clear; edit1.SetFocus; end else begin application.MessageBox(对不起，您无权使用本系统,警告,64); application.Terminate; end;end;end;4.4 新建合同在新建合同模块中是通过打预先建好的样本，在写好后另存到指定的文件夹下，所以我们就需要先建如所需要用到的文件夹和合同模板，并通过“系统设置”菜单下的路径设置和“合同管理”菜单下的合同类型管理进行设置。这里的界面设置计比较简单，主要是通过一个TListView组件列出文件名，通过双击来打开Word文档，新建合同模块运行结果如图8所示。图8 新建合同模块1窗体设计步骤（1）添加一个新窗体，将窗体命名为“frm_lx”，设置Caption属性为“请选择合同类型”，Position属性为“poScreenCenter”。（2）在“Win32”组件页中点选“T