湖北汽车工业学院科技学院案例财务管理信息系统中数据导入导出技术_管理信息系统.pdf_大学文库

财务管理信息化财务管理信息系统中数据导入导出技术刘崇欣 (湖北汽车工业学院，湖北十W442002) 【演要】企业在管世俏息东流实际应用中各部小之间经常需罗法行数据交美，附务花门的这升霸求更加义出。本文针对期务管班信2东统中广记应用的开发工具和最据中管理东流，评纸介知应用中山开发工具实灵以LS与之可查排导入导技术的基本想里、实现方社和步军【关键词】ADOO1E白动化D山uLS:wEx2d 1引言用约数据年管进布流是不可的，两者不能直接是行数在信息技术快速爱展的今天，跑大多最全业都采据父损，者要中间数据接口。日箱技广冠采用的中间数用先进的管理信息系统亲籍曲企业管理和决策。财务相楼口是Dl数帮表。(2)直楼与Ex进行数帮管绳信皂系锐在企业中的成用更是替碧。财务数揭是交挨，所以，实珠了财务管理系统马数据表之间企业经菩成果的反疾，是企业的植心数据，在实际悦用的数据交换，就解决了财务数据导入导出问思。中，经常置要藏北他部门的数据进行交换，进？数据的企业财务氣统大多朵用SQL.SERVER数据库进行导入和导出。自帖起来，主要存在这两种情况：1)与不财务数据约管盟，本文介留成用Dll编程实现SQ 同的信息氣统进行数据交换，雨不同的信息氣烧所使 sewr与El之间致据导入导出技术。 (2)每一个投资方案的数君用一条记录表示，增知表2而旧日.PRG对表1的数走袋得的销果记录即增加授货方案的数据时不级成动程序，因而可方案出院》规销现值日税值1翼丝2现值3翼植4残值5 清足要求B。 (3)用式2可以计算出N个CT的现值。当V=0 或正负反相时即求特R。 211000-45厘545场-%14s4线9 Nv-2ei一一回 (4)程序中或变北长△的小数位数，可以设定计录结果的精佛度，从门清足要求C, 站束时间142603 (5)往冕解文件重中输入知费」的数站. 运：结零太明：方柔1的观金镜的符号威变了一次，名有一个正k解。为案2的那子流的符竹改变了表14个轻自方蜜的戏金淹数某 3次，间：有两个几讯。力案3的现台五的符号改蜜了 CFO CFI CF2 CF3 CF4 CES 试，包小没有出现两个R解，方案4的见金流的符学改变了5次，相也！有一个正K解。可见符号改 -10150 物变保次并不一宁出联两个以上的辉的结诊从正属 2 - 7 -1t0 10 的，但在于T状老下或者使用l要确认4个方案究 -1000-1200150012001800-100 所个有2个以上的解笔非好事。当贴联采帮角到万分之一0.01名)时，在一最的细 -23闭130-20200-1513 机各上计辣以上4个方案，，个方案6个观金流用了3 运行满足以上鬓求的显序居R常G可得到知表2 钟。精确到千分之一心1时，只要1秒针。改变计算的步长T亚可以改变肌的精度。结果。本程序俯加成进也可求解不可的融资和再投资利开始时间142600 卓下的威进型内含报例卓MR器。 50/CHINA MANAGEMEN7 INFORMATIONZATION 1994-2006 China Academic Joumal Electroaic Publishing House.All rights reserved.http:/www.enki.net

财务管理信总化 2基本思路 Use Procedure for Prepare=l: hi是备受就边的丽向对象的编程话言和开发 Auto Translate=True: 工具，具有盈人的数据年开发和管理功佳，立用面 Paeket Sie-4096: 编程实现SQL Server与E之间数据导入学出技求 Workslation ID=情T-CW 登谏的计算机发要用到Delphi提其的AO(etiveX Das Ohje-)数 Use Eneryption for Duto=False; 据年输程找术和0[工自动化凰务技术。3im们 Tag with column eollation when pocble-False AD0是一种新型的高级数据楼口，灿直核使用专 (2 Delphi访间QL Senver数蒸门的a:St组件支持该找术，AO:aSm组件不仅前面介馆过Dli提铁三个AD0数据仿问组件有用了期写最据止应用程疗的=个组创：TADOCo如使州不阿的数据访间饥件，料序代巴有生差中，但访司 nxn,TADOCommand和TADODatSet日件，还色音数据的巴浴和方法是一样的.如图2所示。在实现致据一三磐别的ADO数据诗同组件：TADOTable.TADO 的访问过程中，压要用到Delphi的D幽Aces面较上 QueT和TAD0 SocedProe..01E白动化止一种标张.通的TDataSouree饥件和Data Cont血板上的TDb 过这和标准楼口可将不同的Wi成用程亭联聚在崔 G组件流TDi组什，冠过AO的TA0y 一起。Dpi卖现了OLE自动化，可将elpi程序与组件访问SQL5r数据的步肆！州户相有的其快区州社序排度在一起。料华的菰例阅 TAlXKomertimn 是与办公悦用程序（如Miem国d与Microsoft Ex- e)的集成。所以，.立用Dpi实现SQL5r与E d之间的首据交接的方法是：酒过AD0潭立D TADKTable TAIKK TADOSoced 与QL5心：数新车程务器的迹接和诗问，调过O1E 自动化建立Dhi与Ec的连核和访问。士图I所示风民生游图2者出场4方法 SLSm数新 FA数钢表 A:在Fem中放置TADOConnection组件，按俱《I) 图1SQL8aw与EEn之月的数据交换介组的方法津立在接AIH:m,井打开该连接。 3实现技术 B:在Fm中放蓝TAIn组件，定义谗组件 3.1 Delphi坊SQL5ener技术的Connec七on属性和SQL属性，其代母为： (1)Delphi与SQL Server数掘序的连接 Ixlphi与SI,nr世琳序的连接过A)的 ADOQuery 1.Comneeticec='ADOComn': TAD0Cncn组件来实现。通过指定TADOCon- ADOQueryLelose: nection组件的ComeetionString属性定文连接字符串， ADOQuery1SQLClear: 指定该连孩的员据年名，置录的账号，置录的什算机等 All(Xery1ql-域aleel t fnm ew 信皂。S0L.Snr最据年管理吳在名为WT-CW'的计 C:在om中成登TDataSource组年，定义该组件算机上登录到sQL.Svr的CGl数据库上，其连接的DataSet属性为AD0 Queryl,Nae属性为Daa 字符中为： Soureel Pnnider=SQLLEDB.1; D:住Fm中欧凰TDC组件，定复该国件的 Pepaist Security Info-Tre: DataSouree属性为DSel,打开AD0Ql,表 Uwer lIas 置录用户名 r以中的最据将显示在Tl组作的网稳心。乃sswn=C4D4TA: 置录密码 32lrhi连接x技术 Initial Catalog-CWGI 连接的效据库 Dpi在接Ee已可以用两种方法实现。一种方法 Dla Sourr￥-HKYN L.Snve餐务客 CHINA MANAGEMENT INFORMATIONZATION /51 1994-2006 China Acndemic Journnl Electronic Publishing House,All noht;reserved hrtp/www.cnki.net

! !"#$% &%$%’(&($) #$*+,&%)#+$#-%)#+$ !"#$% &%$%’(&($) #$*+,&%)#+$#-%)#+$ / 财务管理信息化 ! 基本思路 "#$%&’ 是备受欢迎的面向对象的编程语言和开发工具!具有强大的数据库开发和管理功能" 应用 "#$%&’ 编程实现 ()* (#+,#+ 与 -./#$ 之间数据导入导出技术! 需要用到 "#$%&’ 提供的 0"1#2/3’,#4 "535 167#/38$数据库编程技术和 1*- 自动化服务技术% 9’/+:8:;3 的 2"1 是一种新型的高级数据接口!"#$%&’ 直接使用专门的 "535(#3 组件支持该技术" 2"1 "535(#3 组件不仅有用于编写数据库应用程序的三个组件&! >#/3’:>’@ 和 @:E8 应用程序联系在一起" "#$%&’ 实现了 1*- 自动化!可将 "#$%&’ 程序与用户拥有的其他应用程序集成在一起" 典型的范例就是与办公应用程序(如 9’/+:8:;3 D:+@ 与 9’/+:8:;3 -.! /#$$的集成% 所以!应用 "#$%&’ 实现 ()* (#+,#+ 与 -.! /#$ 之间的数据交换的方法是& 通过 2"1 建立 "#$%&’ 与 ()* (#+,#+ 数据库服务器的连接和访问! 通过 1*- 自动化建立 "#$%&’ 与 -./#$ 的连接和访问! 如图 F 所示% " 实现技术 GHI "#$%&’ 访问 ()* (#+,#+ 技术 (F$"#$%&’ 与 ()* (#+,#+ 数据库的连接 "#$%&’ 与 ()* (#+,#+ 数据库的连接通过 2"1 的 >#/3’:> 组件来实现 % 通过指定 ! >#/3’:> 组件的 =:>>#/3’:>(3+’>J 属性定义连接字符串! 指定被连接的数据库名!登录的账号’登录的计算机等信息% ()* (#+,#+ 数据库管理员在名为 D;:M’3’5$ =535$:JM=DL*O !!连接的数据库 "535 (:A+/#MSC(-TU-TO !!()* (#+,#+ 服务器 Q8# C+:/#@A+# ;:+ C+#%5+#MFO 2A3: 8$53#M P"MD/+B%3’:> ;:+ "535M\5$8#O /:$$53’:> E&#> %:88’6$#M\5$8# (]$"#$%&’ 访问 ()* (#+,#+ 数据前面介绍过 "#$%&’ 提供三个 2"1 数据访问组件! 使用不同的数据访问组件!程序代码有些差异!但访问数据的思路和方法是一样的!如图 ] 所示% 在实现数据的访问过程中!还要用到 "#$%&’ 的 "535 2//#88 面板上的 3+:$8 面板上的 >#/3’:> 组件!按照(F$ 介绍的方法建立连接 2"1=:>>!并打开该连接% N&在 \:+? 中放置 >#/3’:> 属性和 ()* 属性!其代码为& 2"1)A#+BFH=:>>#/3’:>^M_ 2"1=:>>_O 2"1)A#+BFH/$:8#O 2"1)A#+BFH()*H=$#5+O 2"1)A#+BFH8‘$H5@@a_8#$#/3 b ;+:? /Ec;BJ$_dO =&在 \:+? 中放置 <"535(:A+/# 组件!定义该组件的 "535(#3 属性为 2"1)A#+BF!e5?# 属性为 "535! (:A+/#F% "&在 \:+? 中放置 <"NL+’@ 组件!定义该组件的 "535(:A+/# 属性为 "535(:A+/#F! 打开 2"1)A#+BF!表 /Ec;BJ$ 中的数据将显示在 <"NL+’@ 组件的网格中% Gf] "#$%&’ 连接 -./#$ 技术 "#$%&’ 连接 -./#$ 可以用两种方法实现%一种方法 (1* (#+,#+ 数据库 -./#$ 数据表图 # $%& $’()’( 与 *+,’- 之间的数据交换图 ! 数据访问方法 .#

财务管理信息化是浪过用上日动化服务米实现、分一种方法是满过 procedlure TFormshe.BatlonlCirk(nder TUhject: h自悟的挖件米实现。本文介细第一和方法.使用 Y 01E自动化服务连技xl,其实现步骤： V:varis (1)在U4区如入Cm减O时jCm而4探作0上 i.jinteger. 对象的函数集，其知入方法： legin V:-m0与uEsd.pplication.9立 II-PA 川上对家 Winus,Meesges.SyoUlil.Varianes,Classes, Y,置orks Books.Ad Graphirs.Controls.Form. V.Visible--True: I元lngx,s9,暖2k,nitk,ri,Butten..Cumj: try (2)定义变量：为即将创建的0E对家定义一个 Far i:0 to datamudl adoquery_abe.FielCount-I do 变#，流交量是Vai类银。一种类显-交体数据类 berin 型长定义方法： Vdo(R1++lnT9i+1kl的表格是从 Yar 1开始编号 Y:waia出 VAcsiveCellFeemulaRIC1:-datamodladoquesy_sbe. (3)创建01E对像建立与Dxl的连接。f吗如下： Fie间FieldName.传意子授名 v:=CreateOLEObjeet(ExoeLApplicar6m.9生W建立 m OIE对象 j-西 V.WeckBooks.Adl d威modladoquery_.F行rt V.Viaible:-Tn: while cot datamodl.adoquery_sbe EOF do (4)材Exl表进行轻制发诈。 begin 4实现案例 For i:-0 to datamudl.adoquery_sbe.FieldCount-l do 侧务管理系统都悬侯对多留门的费用边行核算的 begin 功板。各部门麥用核算的站果和叫知者要及时反馈台￥，alg+lmfi9rj-T+IntTo+1h 各个部门，以便于他们及时掌挥费月的使用情况，进而 V.ActiveCell.FocmulaR1C1:latsmodladoquery_s 实修有效控制。传统的管理方法是财务常门骑各部门 Fields.AsString传送内容数同酸辩的明组打印出来，然后分发给各小。然向，在信息技术高速发展的今天，很多企业都建立了局城 duH1lpy_ahe.Next由网，可以紧用更左清的方注和干皮：通过立指宁出，将 j+1 各解门费用核算明细数都中入下x表，器后湖过网路过将x表分别发递价各韶门。这种方式经济又方 Shon Message(SQL.Seme最据到Eed的数据得便而且效零高。其实港方法如下：输完半！方 (I)按照3.l中介绍的Dpm与SQL Server数刻 T发牛错武时晖的连溪方法，浸立章据库的连接，并打开谧连接： Show Mesag数肃传输错误I上 (2)应用1)请月9015vr的货月期细表数止据。发部中分类金询，将各部：费用楼辩明朔查连出 d 来，是示在Di的Fm中。方法参超3.1(2)。 5钴束语门)设篮数其中出功服花望，神过点击震邻.将本文升绍是用Delphi实现SQL Senver与Ed Fm中当前整不的数都中入x表中。功能按切单之间的数出父换技术。如果米用的出其他开发工具域击事作程序代码如下：其地数据库，测实现方法可参佩执行。 52/CHINA MANAGFMENT INFOARMATIONZATION- 1994-2006 China Aendemic Journal Electronic Publishing House.All rights reserved.http//www.cnki.net

! !"#$% &%$%’(&($) #$*+,&%)#+$#-%)#+$ !"#$% &%$%’(&($) #$*+,&%)#+$#-%)#+$ / 是通过 "#$ 自动化服务来实现% 另一种方法是通过 &’()*+ 自带的控件来实现! 本文介绍第一种方法! 使用 ",$ 自动化服务连接 $-.’("其实现步骤# $/% 在 01’1 区加入 234"56 7234"56 是操作 ",$ 对象的函数集"其加入方法# 81’1 9+:;3?’17 @A10B+(17 C>D+>:B17 E(>11’17 FD>)*+.17 E3:BD3(17 G3D417 H+>(3?17 @B;EBD(17 FD+;17 &IFD+;17 I8BB3:17234"56J $K%定义变量& 为即将创建的 ",$ 对象定义一个变量" 该变量是 C>D+>:B 类型" 一种类型L变体数据类型"其定义方法# M>D MNM>D+>:BJ $O%创建 ",P 对象"建立与 P-.’( 的连接& 代码如下# MNQED’>B’",$"56’.B RS$-.’(TU))(+.>B+3:TVSWJ XX建立 ",P 对象 CT93DYI33Y1TU;;J CTC+1+5(’NQZD8’J $[%对 P-.’( 表进行控制操作& ! 实现案例财务管理系统都提供对各部门的费用进行核算的功能& 各部门费用核算的结果和明细需要及时反馈给各个部门"以便于他们及时掌握费用的使用情况"进而实施有效控制& 传统的管理方法是财务部门将各部门费用核算的明细打印出来"然后分发给各部门& 然而" 在信息技术高速发展的今天" 很多企业都建立了局域网"可以采用更先进的方法和手段#通过数据导出"将各部门费用核算明细数据导入 P-.’( 表"然后通过网络将 P-.’( 表分别发送给各部门& 这种方式既经济又方便"而且效率高& 其实施方法如下# $\% 按照 OT\ 中介绍的 H’()*+ 与 @], @’DM’D 数据库的连接方法"建立数据库的连接"并打开该连接’ $K% 应用 UH" 访问 @], @’DM’D 的费用明细表数据" 按部门分类查询" 将各部门费用核算明细查询出来"显示在 H’()*+ 的 G3D4 中& 方法参照 OT\$K%& $O% 设置数据导出功能按钮" 通过点击按钮"将 G3D4 中当前显示的数据导入 P-.’( 表中& 功能按钮单击事件程序代码如下# )D3.’;8D’ ZG3D415.TI8BB3:\E(+.YR@’:;’DN Z"56’.BWJ M>D CNM>D+>:BJ +%6N+:B’?’DJ 5’?+: CNQED’>B’",P"56’.B RSP-.’(TU))(+.>B+3:TVSWJ XX建立 ",P 对象 CT93DYI33Y1TU;;J CTC+1+5(’NQZD8’J BDA G3D +NQ^ B3 ;>B>43;\T>;3_8’DA‘15.TG+’(;E38:BL\ ;3 5’?+: CTF3B3RSa\SbSESbc:BZ3@BDR+b\WWJ XXP-.’( 的表格是从 \ 开始编号 CTU.B+M’E’((TG3D48(>a\E\#Q;>B>43;\T>;3_8’DA‘15. T G+’(;1d+eTG+’(;f>4’JXX传送字段名 ’:;J 6NgKJ ;>B>43;\T>;3_8’DA‘15.Th+D1BJ B>43;\T>;3_8’DA‘15.T$"h ;3 5’?+: h3D +Ng^ B3 ;>B>43;\T>;3_8’DA‘15.Th+’(;238:Bi\ ;3 5’?+: CTj3B3RSaSbk:BZ3@BDR6WbSESbk:BZ3@BDR+b\WWJ CTU.B+M’E’((TG3D48(>a\E\#Q;>B>43;\T>;3_8’DA‘15.T G+’(;1d+eTU1@BD+:?JXX传送内容 ’:;J ;>B>43;\T>;3_8’DA‘15.Tf’-BJ 6NQ6b\J ’:;J @*3?’ RS@], @’DM’D 数据到 P-.’( 的数据传输完毕l SWJ ’-.’)B mm发生错误时 @*3?’RS 数据传输错误l SWJ ’:;J ’:;J " 结束语本文介绍是应用 H’()*+ 实现 @], @’DM’D 与 P-.’( 之间的数据交换技术& 如果采用的是其他开发工具或其他数据库"则实现方法可参照执行& 财务管理信息化 "#

湖北汽车工业学院科技学院 案例 财务管理信息系统中数据导入导出技术_管理信息系统

湖北汽车工业学院科技学院案例财务管理信息系统中数据导入导出技术_管理信息系统