企业办公费用管理系统

学号：成绩：

灰浅耕救大等都市等就

课程设计汇报

院系信息科学与工程系

专业计算机科学与技术

年级班年级计科二班

课程名称数据库应用与原理

设计题目企业办公费用信息管理系统

姓名______________

指导教师______________

2008年6月27日

设计题目:

企业办公费用管理信息系统设计

设计重要内容：

一、开发平台：VB+SQLSERVER2023

二、功能规定：

1、设计内容

设计一种企业办公费用管理信息系统，该系统的顾客由一般顾客和管理员构成，然后不

一样I向顾客拥有不一样的权限，各自完毕各自的管理功能，首先是欢迎界面，然后选择登录,

登录的时候首先要判断顾客的身份，合法的顾客然后进入到系统主界面中，不一样的顾客看

到不一样的系统功能。用sqlserver2023创立后台数据库，然后运用程序设计语言（VB）编

写程序实现对数据库口勺操作，按照规定完毕所有的功能和模块。

2、企业办公费用管理信息系统重要功能

（1）顾客管理：顾客登录界面、顾客注册界面、办公费用申请界面、办公费用信息查

询界面、木顾客密码口勺修改界面

（2）管理员管理：管理员登录界面、办公费用查询界面、办公费用添加、删除界面、本

顾客密码修改界面C

3、企业办公费用管理信息系统数据库表单（可以按照需求增长）

（1）顾客信息表单：颐客名、密码、顾客身份（管理员和一般顾客）

（2）部门信息表单：部门编号、部门名称、部门负责人、联络、电子邮件、备注

（3）办公费用申请表单：序号、费用编号（外码）、费用金额、部门编号（外码）、申请

年月、与否通过审核、备注

（4）办公费用类别表单：费用编号、费用名称

（5）办公费用控制表单：部门编号（外码）、年份、本年预算、本年合计支出

（6）办公费用支出明细表单：序号、费用编号（外码）、费用金额、部门编号（外码）、

支出日期

三、课程设计汇报重要内容：

I企业办公费用管理信息系统需求分析（给出系统功能模块图，对各功能作出详细简介）

2企业办公费用管理信息系统界面设计（给出界面截图及其重要控件的属性设置表格，

并给出各界面口勺详细代码）

3企业办公费用管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据

类型及其对应的阐明）

4企业办公费用管理信息系统程序设计（功能模块给出详细口勺程序代码，重点语句的注

释）

1.企业办公费用管理信息系统需求分析

图1.1零件交易管理信息系统

1.1欢迎界面

系统启动之后便可进入欢迎界面，单击“系统登陆”按钮便可进入选择登陆

界面。

1.2登录界面

选中管理员登录后便进入管理员服务界面

选中顾客登录后便进入顾客服务界面

点注册弹出注册界面，注册成功可返回登录界面

1.3管理员服务界面

可以进行办公费用查询，办公费用添加、删除，本顾客密码修改。

本顾客密码修改

管理员通过输入和确认新密码来更改自己的密码。

办公费用添加、删除

选此项后弹出选择费用修改类型，管理员可以查询，删除，添加费用信息，

在VB界面中修改了数据库中的信息。

办公费用查询

管理员可以根据部门的编号进行查询，可以查询申请和支出两种费用。

1.4顾客界面

顾客可以进行本顾客密码口勺修改，查看零件信息和工程项目使零件状况。

本顾客密码修改

顾客通过输入和确认新密码来更改自己的密码。

办公费用申请

顾客进入界面后可输入信息进行费用申请。

办公费用信息查询

顾客可以根据部门的I编号进行查询，可以查询申请和支出两种费用。

2,企业办公费用管理信息系统

■炊迎使用

欢迎使用办公费用信息系统

开发环境:VisualBasic6.0

数据环境：SQLServer2000

字号：200610137234

姓名：陈钊

系统登录

专业：计算机科学导技术

图2.1欢迎界面

，登录区|

用户名J登录|

密码|注册|

请选择I用户二J退出|

图2.2登录界面

■,For>3

图2.3新顾客注册界面

图2.4管理员服务界面

表2.1管理员服务界直属性表

对象属性设定值

Option1Caption本顾客密码修改

Option2Caption办公费用添加、删除

Option3caption办公费用查询

图2.5顾客服务界面

表2.2顾客服务界面属性表

对象属性设定值

Option1Caption本顾客密码修改

Option2Caption办公费用申请

Option3caption办公费用信息查询

图2.6顾客/管理员密码修改界面

一办公费用申请

图2.7办公费用申请界面

图2.8办公费用查询界面（顾客/管理员）

表2.3办公费用查询界面属性表

对象属性设置值

Dadagrid1datasourceAdodc1

Adodc1CaptionAdodc1

CommandstringDSN=chcnzhao

Coinmandlype2-adcmdtable

RecordsourcePartment

Visiblefalse

图2.9费用修改类型选择

图2.10申请费用修改界面

表2.4申请费用修改界面属性表

对象属性设置值

Adodc1CaptionAdodc1

CommandstringDSN=chenzhao

Commandtype2-adcmdlable

RecordsourceApplication

Visiblefalse

Adodc2CaptionAdodc2

CommandstringDSN=chenzhao

Commandtype2-adcmdtable

Visiblefalse

RecordsourceControl

、支出费用修改

费用编号［2^-1添加

费用金额|3000删除

部门编号|1-5更新

支出日期|2008-7-20

第一条上一条下一条末一条

图2.11支出费用修改界面

表2.5支出费用界面属性表

对象属性设置值

dadagridDatasourceAdodc1

Adodc1CaptionAdodc1

Commandtype2-adcmdtable

RecordsourceOut

Visiblefalse

Adodc2CaptionAdodc2

Commandtype2-adcmdtable

RecordsourceOut

Visiblefalse

图2.11MDI主窗体界面

3.企业办公费用管理信息系统数据库设计

企业办公费用管理信息系统总共有六张表：顾客信息表单、部门信息表单、办

公费用申请表单、办公费用类别表单、办公费用控制表单、办公费用支出明细表单。

表3.1顾客信息表Users

字段名称标始名称数据类型与否容许为空字段阐明

Uname顾客名char否主码

Ukey密码char否

Utype顾客类型char否

表3.2部门信息表Partmcnt

字段名称标始名称数据类型与否容许为空字段阐明

Pno部门编号char否主码

Pname部门名称char否

Pmanager负责人char是

Pcallchar是

Pemai1电子邮件Char是

Ps备注Char是

表3.3办公费用申请表Application

字段名称标始名称数据类型与否容许为空字段阐明

Ano序号int否主码

Tno费用编号char否引用Type外码

Amoney申请费用char是

Pno部门编号char否Partment外码

Adatc申请时间smalldatetime是

Apermit与否通过char是

Aps备注char是

表3.4办公费用类别表Type

字段名称标始名称数据类型与否容许为空字段阐明

Tno费用编号char否主码

Tnamc费用名称char否

表3.5办公费用控制表Control

字段名称林始名称数据类型与否容许为空字段阐明

Pno部门编号char否Partmen外码

Cyear年份char是

Cadvance本年预算char是

Cout本年支出char是

表3.6办公费用支出明细表Out

字段名称标始名称数据类型与否容许为空字段阐明

Ono序号int否主码

Tno费用编号char否引用Type外码

Omoney支出金额char是

Pno部门编号char否Partment外码

Odate支出口期Smalldatetime是

4.企业办公费用管理信息系统程序设计(部分代码)

4.1欢迎界面

欢迎界面是整个系统日勺首页，顾客可通过它进入到登录系统。

4.2登录界面

进入此界面后，使用者可根据自己的身份选择登录方式。一般顾客选择顾客登

录，管理员选择管理员登录。假如是新顾客，直接点注册。代码如下：

DimaAsInteger

PrivateSubCommandL_Click()

a=Combol.Listindex

Whilea=0

IfLen(Textl.Text)>0Then

Adodcl.CommandType=adCmdText

Adodcl.RecordSource="selectunamefromuserswhereuname=’〃&

Trim(Textl.Text)&andUtype='〃&〃顾客〃&

Adodcl.Refresh

Else

MsgBox〃请填写顾客名〃

ExitSub

EndIf

IfAdodcl.Recordset.EOF=TrueThen

MsgBox〃姓名错误!"，48,"warning!”

Textl.Text=〃〃

Text2.Text=〃〃

ExitSub

EndIf

IfLen(Text2.Text)>0Then

Adodcl.CommandType=adCmdText

Adodcl.RecordSource="selectukeyfromuserswhereuname='〃&

Trim(Textl.Text)&

Adodcl.Refresh

Else

MsgBox〃请填写密码”

ExitSub

EnclIf

IfStrComp(Trim(Adodc1.Recordset.Fields(〃ukey〃).Value),

Trim(Form2.Text2.Text))<>0Then

MsgBox〃密码错误！〃，48,“warning"

Text2.Text=

Text2.SetFocus

ExitSub

Else

MsgBox〃登录成功”

Form4.Show

Form2.Hide

ExitSub

EndIf

Wend

Whilea=1

IfLen(Textl.Text)>0Then

Adodc1.CommandType=adCmdText

Adodcl.RecordSource="selectunamefromuserswhereuname='〃&

Trim(Textl.Text)&andUtype='〃&〃管理员〃&

Adodc1.Refresh

Else

MsgBox〃请填写顾客名〃

ExitSub

EndIf

IfAdodcl.Recordset.EOF=TrueThen

MsgBox〃姓名错误!。48,"warning!"

Textl.Text=

Text2.Text=〃〃

ExitSub

EndIf

IfLen(Text2.Text)>0Then

Adodcl.CommandType=adCmdText

Adodcl.RecordSource="selectukeyfromuserswhereuname='〃&

Trim(Textl.Text)&

Adodcl.Refresh

Else

MsgBox”请填写密码”

ExitSub

EndIf

IfStrComp(Trim(Adodc1.Recordset.Fields("ukey").Value),

Trim(Form2.Text2.Text))<>0Then

MsgBox〃密码错误！“，48,"warning"

Text2.Text=""

Text2.SetFocus

ExitSub

Else

MsgBox〃登录成功〃

Form5.Show

Form2.Hide

ExitSub

EndIf

Wend

EndSub

PrivateSubCommand2_Click0

DimaAsInteger

a二MsgBox(〃您真的要退出吗？”,305,〃提醒〃)

Ifa=1Then

End

EndIf

EndSub

PrivateSubCommand3Click()

Form3.Show

EnclSub

PrivateSubForm_Load()

Combol.Additem〃顾客〃

Combol.Additem〃管理员〃

Combol.Text=Combol.List(0)

Textl.Text=〃”

Text2.Text=

EndSub

4.3顾客服务界面

顾客登录进去后，可以到顾客服务界面选择自己所需的服务，该界面为顾客提

供了三种服务，分别是“本顾客密码的修改”，“办公费用信息查询”和“办公费用

申请”。

4.4管理员服务界面

管理员登录进去后，可以到管理员服务界面选择自己所需的服务，该界面为管

理员提供了三种服务，分别是“本顾客密码口勺修改”，“办公费用信息查询”和“办

公费用添加、删除”。

4.5顾客密码修改界面程序设计(管理员密码修改也是次界面)

顾客如需修改自己的密码可在此界面进行，顾客通过顾客服务界面到此，然后

在此界面中输入原始密码和新密码并验证新密码，确认后假如无误就会提醒顾客修

改成功，并且其密码在顾客信息表中也会有对应的修改。代码如下：

PrivateSubCommand1Click()

IfTrim(Textl.Text=〃")Then

MsgBox"请输入密码！〃，0,〃提醒〃

Textl.SetFocus

ExitSub

EndIf

Adodcl.CommandType=adCmdText

Adodcl.RecordSource="selectukeyfromuserswhereuname=，〃&

Trim(Form2.Textl.Text)&Andukey='〃&Trim(Form6.Textl.Text)&

Adodcl.Refresh

IfAdodcl.Recordset.EOF=TrueThen

MsgBox"密码不对的I,请重新输入！〃，0,〃提醒〃

Textl.Text=〃〃

Text2.Text=〃〃

Text3.Text=〃〃

Textl.SetFocus

ExitSub

EndIf

IfTrim(Text2.Text)=""Then

MsgBox"请输入新密码〃，0,〃提醒〃

Text2.SetFocus

ExitSub

EndIf

IfTrim(Text2.Text)<>Trim(Text3.Text)Then

MsgBox"新密码不一致,请从新输入〃，0,〃提醒〃

Text2.Text=""

Text3.Text=

Text2.SetFocus

ExitSub

EndIf

Adodcl.Recordset.FieldsCukey").Value=Trim(Tcxt3.Text)

Adodcl.Refresh

MsgBox〃修改密码成功！〃，0,〃提醒〃

UnloadMe

EndSub

PrivateSubComnand2_Click()

UnloadMe

EndSub

4.6办公费用查询界面

顾客可通过输入部门编号查找对应部门信息,还可以查询此部门申请/支出费用

信息。运用datagrid和adodc控件的连接显示出来。代码如下：

DimiAsVariant

PrivateSubComnandl_Click()

EndSub

PrivateSubComnand2_Click()

IfAdodcl.Recordset.BOF=TrueThen

EndIf

EndSub

PrivateSubComnand3_Click()

IfAdodcl.Recordset.EOF=TrueThen

EndIf

EndSub

PrivateSubComnand4_Click0

EndSub

PrivateSubComnand5Click()

UnloadMe

EndSub

PrivateSubComnand6_Click()

DimstrpnoAsString

DimstrselectAsString

strpno=Trim(Form7.Textl.Text)

strselect=^selecttype,tno,tname,amoneyfromtypejoinapplicationon

type,tno=application,tnowhereapplication,pno='〃&strpno&"'〃

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=strselect

Adodcl.Refresh

SetDataGridl.DataSource=Adodcl

DataGridl.Columns(0).Caption="费用编号”

DataGridl.Columns(1).Caption=〃费用名称“

DataGridl.Columns(2).Caption=〃申请金额〃

EndSub

PrivateSubComnand7Click()

DimstrpnoAsString

DimstrselectAsString

strpno=Trim(Form7.Textl.Text)

strselect="selecttype,tno,tname,omoneyfromtypejoinoutontype,tno

二out.tnowhereout.pno='〃&strpno&〃'"

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=strselect

Adodcl.Refresh

SetDataGridl.DataSource=Adodcl

DataGridl.Columns(0).Caption="费用编号”

DataGridl.Columns(1).Caption="费用名称”

DataGridl.Columns(2).Caption=〃支出金额〃

EndSub

PrivateSubComnand8_Click()

DimstrselcctAsString

strselcct="selectpno,pname,pmanager,pcall,pemail,psfrompartment^

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=strselect

Adodcl.Refresh

SetDataGridl.DataSource=Adodcl

DataGridl.Columns(0).Caption=〃部门编号〃

DataGridl.Columns(1).Caption="部门名称”

DataGridl.Columns(2).Caption=〃负责人"

DataGridl.Columns(3).Caption=〃联络

DataGridl.Columns(4).Caption="电子邮件”

DataGridl.Columns(5).Caption=〃备注〃

EndSub

PrivateSubComnand9_Click()

DimstrselectAsString

IfLen(Text4.Text)>0Then

strselect="selectpno,pname,pmanager,pcall,pemail,psfrompartment

wherepno='〃&Trim(Text4.Text)&

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=strselect

Adodcl.Refresh

IfAdodcl.Recordset.EOF=TrueThen

MsgBox〃没有这个部门〃

Text4.Text=

Text4.SetFocus

ExitSub

Else

SetDataGridl.DataSourcc=Adodcl

DataGridl.Columns(0).Caption=〃部门编号〃

DataGridl.Columns(1).Caption="部门名称”

DataGridl.Columns(2).Caption=〃负责人〃

DataGridl.Columns(3).Caption=〃联络"

DcitaGridl.Columns(4).Caption=〃电子邮件〃

DataGridl.Columns(5).Caption=〃备注〃

EndIf

EndIf

EndSub

PrivateSubForn_Load()

SetDataGridl.DataSource=Adodcl

DataGridl.Columns(0).Caption=〃部门编号“

DataGridl.Columns(1).Caption=〃部门名称〃

DataGridl.Columns(2).Caption=〃负责人”

DataGridl.Columns(3).Caption="联络

DataGridl.Columns(4).Caption=〃电子邮件〃

DataGridl.Columns(5).Caption=〃备注〃

EndSub

4.7办公费用添加、删除界面

从管理员服务界面进入，有两种费用类型，申请/支出费用修改，管理员需要选

择。申请费用修改界面代码如下：

DimaAsInteger

DimbAsVariant

DimcAsVariant

PrivateSubComnand5Click()

'设置文本可编辑

Textl.Locked=False

Text2.Locked=False

Text3.Locked=False

Text7.Locked=False

Text5.Locked=False

Text6.Locked=False

Adodcl.CommandType=adCmdText

Adodcl.RecordSource="selectmax(ano)maxfromapplication”

Adodcl.Refresh

a=Adodcl.Recordset.Fields("max").Value'将序号日勺最大值赋给a

Adodcl.CommandType=adCmdTable

Adodcl.RecordSource="application”

Adodcl.Refresh

Textl.SetFocus

Commands.Enabled二False

Commands.Enabled二False

Command?.Enabled二True

Commands.Enabled=True

EndSub

PrivateSubComnand6Click()

DimresAsInteger

DimdAsVariant

res=MsgBox("确实要删除此行记录吗？”,vbExclamation+vbYesNo+

vbDefaultButton2)

Ifres=vbYesThen

IfAdodcl.Recordset.RecordCount>1Then

Adodc2.ComnandType=adCmdText

Adodc2.RecordSource="select*fromcontrolwherepno=，〃&

Trim(Text3.Text)&"'andcyear=，〃&Mid$(Trim(Text5.Text),1,4)&

Adodc2.Refresh

‘假如是通过日勺申请费用，有日期的，则从预算中减去

这部分费用

IfTrim(Text6.Text)="是〃AndLon(Text5.Text)>0Then

d=Adodc2.Recordset.Fields(〃cadvance〃).Value

Vai(Trim(Text2.Text))

Adodc2.Recordset.Fields(，，cadvance，/).Value二d

EndIf

EndIf

IfAdodcl.Recordset.EOF=TrueThen

EndIf

Else

MsgBox〃不能洛数据所有删除〃

ExitSub

EndIf

EndSub

PrivateSubComnand7_Click()

Adodcl.Recordset.Fields(z>ano/z).Value=a+1

IfLen(Textl.Text)>0Then

Adodc2.CommandType=adCmdText

Adodc2.RecordSource="selecttnofromtypewheretno='〃&

TrimfTextl.Text)&

Adodc2.Refresh

IfAdodc2.Recordset.EOF=TrueThen

MsgBox〃无此费用编号〃

Textl.Text=

Textl.SetFocus

ExitSub

Else

Adodcl.Recordset.Fields(^tno^).Value=Trim(Textl.Text)

EnclIf

EndIf

IfIsNumeric(Trim(Text2.Text))=TrueThen

Adodcl.Recordset.Fields(〃amoney〃).Value=Trim(Text2.Text)

Else

MsgBox〃请输入数字〃

Text2.Text=""

Text2.SetFocus

ExitSub

EndIf

IfLen(Text3.Text)>0Then

Adodc2.CommandType=adCmdTcxt

Adodc2.RecordSource="selectpnofrompartmcntwherepno=’〃&

Trim(Text3.Text)&

Adodc2.Refresh

IfAdodc2.Recordset.EOF=TrueThen

MsgBox〃无此部门编号〃

Text3.Text=""

Text3.SetFocus

ExitSub

Else

Adodcl.Recordset.Fields(z/pno,3.Value=Trim(Text3.Text)

EnclIf

EndIf

IfLen(Text3.Text)<=0Then

MsgBox〃请输入部门编号〃

Text3.SetFocus

ExitSub

EndIf

IfLen(Textl.Text)<=0Then

MsgBox〃请输入费用编号〃

Textl.SetFocus

ExitSub

EndIf

IfLen(Text5.Text)>0Then

IfIsDate(Trim(Text5.Text))=TrueThen

Adodcl.Recordset.Fields(^adate").Value=Trim(Text5.Text)

Else

MsgBox〃日期格式错误，请按XXXX-XX-XX输入〃

Text5.Text=

Text5.SetFocus

ExitSub

EndIf

EndIf

Adodcl.Recordset.Fields(，，aper^lit，，).Value=Trim(Text6.Text)

Adodcl.Recordset.Fields(^aps^).Value=Trim(Text7.Text)

’假如申请通过，则将申请日勺费用金额加如到对应预算中

IfTrim(Text6.Text)=〃是〃Then

IfLen(Text5.Text)>0Then

b=Mid$(Trim(Text5.Text),1,4)'取日期的年份

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=z/select*fromcontrolwherepno=，〃&

Trim(Text3.Text)&,andcyear='〃&b&〃'〃

Adodc2.Refresh

c=Adodc2.Recordset.Fields(/，cadvance，/).Value+Vai(Trim(Text2.Text))

'取预算金额和申请金额之和

Adodc2.Recordset.FieldsC'cadvance^).Value=c

EndIf

EndIf

MsgBox〃更新成功〃

’设置文本不可编辑

Textl.Locked=True

Text2.Locked=True

Text3.Locked=True

Text7.Locked=True

Text5.Locked=True

Text6.Locked=True

Commands.Enabled=True

Commands.Enabled=True

Commands.Enabled=False

EndSub

PrivateSubComnand8_Click()

Commands.Enabled=True

Commands.Enabled=True

Commands.Enabled二False

EndSub

PrivateSubFornLoadO

Commands.Enabled=False

Command?.Enabled二False

EndSub

PrivateSubComnandlClick()

EndSub

PrivateSubComnand2_Click()

IfAdodcl.Recordset.BOF=TrueThen

EndIf

EndSub

PrivateSubComnand3_Click()

IfAdodcl.Recordset.EOF=TrueThen

EndIf

EndSub

PrivateSubComnand4Click()

EndSub

支出费用修改代码如下：

DimaAsInteger

DimbAsVariant

DimcAsVariant

PrivateSubComnand5_Click()

Adodcl.CommandType=adCmdText

Adodcl.RecordSource="selectmax(ono)maxfromout”

Adodcl.Refresh

a=Adodcl.Recordset.Fields(^max^).Value

Adodcl.CommandType=adCmdTable

Adodcl.RecordSource=〃out〃

Adodcl.Refresh

Textl.SetFocus

Commands.Enabled=False

Commands.Enabled=False

Command?.Enabled=True

Commands.Enabled=True

EndSub

PrivateSubComnand6Click()

DimresAsInteger

res=MsgBox("确实要删除此行记录吗？〃，vbExclamation+vbYesNo+

vbDefaultButton2)

Ifres=vbYesThen

IfAdodcl.Recordset.RecordCount>1Then

'假如支出日勺费用有日期，则从总支出中去掉这部分支出

IfLen(Text5.Text)>0Then

Adodc2.ConunandType=adCmdText

Adodc2.RecordSource=/zselect*fromcontrolwherepno=，〃&

Trim(Text3.Text)&"'andcyear=，〃&Mid$(Trim(Text5.Text),1,4)&

Adodc2.Refresh

d=Adodc2.Recordset.Fields(^cout^).Value

Vai(Trim(Text2.Text))

Adodc2.Recordset.FieldsCcout").Value=d

EndIf

IfAdodcl.Recordset.EOF=TrueThen

EndIf

Else

MsgBox〃不能洛数据所有删除〃

ExitSub

EndIf

EndIf

EndSub

PrivateSubComnand7_Click()

Adodcl.Recordset.Fields(^ono^).Value=a+1

IfLen(Text1.Text)>0Then

Adodc2.CommandType=adCmdText

Adodc2.RecordSource="selecttnofromtypewheretno=，〃&

Trim(Textl.Text)&

Adodc2.Refresh

IfAdodc2.Recordset.EOF=TrueThen

MsgBox〃无此费用编号〃

Textl.Text=〃〃

Textl.SetFocus

ExitSub

Else

Adodcl.Recordset.Fields(^tno^).Value=Trim(Textl.Text)

EndIf

EndIf

IfIsNumeric(Trim(Text2.Text))二TrueThen

Adodcl.Recordset.Fields("omoney").Value=Trim(Text2.Text)

Else

MsgBox〃请输入数字〃

Text2.Text=

Text2.SetFocus

ExitSub

EndIf

IfLen(Text3.Text)>0Then

Adodc2.CommandType=adCmdText

Adodc2.RecordSource="selectpnofrompartmentwherepno&

Trim(Text3.Text)&

Adodc2.Refresh

IfAdodc2.Recordset.EOF=TrueThen

MsgBox〃无此部门编号“

Tcxt3.Text=〃〃

Tcxt3.SetFocus

ExitSub

Else

Adodcl.Recordset.Fields(，zpno，z).Value=Trim(Text3.Text)

EndIf

EndIf

IfLen(Text3.Text)<=0Then

MsgBox〃请输入部门编号〃

Text3.SetFocus

ExitSub

EndIf

IfLen(Textl.Text)<=0Then

MsgBox〃请输入费用编号〃

Textl.SetFocus

ExitSub

EndIf

IfLen(Text5.Text)>0Then

IfIsDate(Trin(Text5.Text))=TrueThen

Adodcl.Recordset.Fields(，，odate，z).Value=Trim(Text5.Text)

Else

MsgBox〃日期格