vb037固定資產(chǎn)管理系統(tǒng)vb21

1、二者的結(jié)合第四章 Visual 51526.16.2二者的結(jié)合第四章 Visual 51526.16.2固定資產(chǎn)管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),經(jīng)過(guò)分析VISUALBASIC開發(fā)工具,，和關(guān)鍵字：VisualBasic6.0，控件、窗體、數(shù)據(jù)庫(kù)Thefixedassetsmanagementsystemisthe固定資產(chǎn)管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),經(jīng)過(guò)分析VISUALBASIC開發(fā)工具,，和關(guān)鍵字：VisualBasic6.0，控件、窗體、數(shù)據(jù)庫(kù)Thefixedassetsmanagementsystemisthetypicalinformationsystem(MIS),

2、itmainlydeveloptheestablishmentandandapplication procedures of include the backstage databases develop strong,thetthedatasafetylike.Butthenrequestthedprocedurefunctiontothelattercomplete,easyusageetc.ysis,weusetheVISUALBASICdevelopmenttoolofthe, making use of various development toolt faprovide,part

3、icularlyisthisabilityofthedatawindowwayofwhatit andsimpleanddirecttomanipulatethedatabaseheinaturntheobject,buildupthesystemapplication,then,starttheprototypesystemtocarryontheneedtothebeginning,reviseandimprovecontinuously,untilformationthe customer is satisfied and can go the system.Thewholesystem

4、frommatchtheoperationsimple,erfacevivid, practical, the request of the safety set out, completing the s of the fixed assets management, include each product, for an unique product of equipments, furniture, calculator and worthy asset-allocations to code, and according to this coding calculatorbuildu

5、pthefixedassetsinformationdatabase,add,gettote.etc.tocarryonthemanagementtothefixedassets,canthemanagerflytocarrys of the fixed assets management, include each product, for an unique product of equipments, furniture, calculator and worthy asset-allocations to code, and according to this coding calcu

6、latorbuildupthefixedassetsinformationdatabase,add,gettote.etc.tocarryonthemanagementtothefixedassets,canthemanagerflytocarryonfollowtothefixedassets,atanytimecontrol thepresentconditionandthecompanyemployeesofthefixedassetstoget withthefixedassetscircumstance,reducethefixedassetstothrowtolose thephe

7、nomenon,resolvetochecktoseek,blem, raisethemanagersworkefficiency.Therefore,developthea ir tasetofmanagementeshavingthesityverymuch,weinunderneathofillwithdevelopasetoffixedassetssystemasle,discussitsdevelopmentsandtheproblemresolve risewantstowantcontinuouslyusageefficie

8、ncyoffixedassets,andtakebackipanttimetheeinvestmentgoldandrealizationion,willstrengthentheassets .Themaincontentsofthefixedassetsmanagemen manages usuallyusage efficiency The fixed The fixed The limit eandlimitiyesofthefixedassetsinvestmentThe fixed assets tion Thethesismainly finishedfunction expla

9、ined the poroducedthe development background of this and the s of the want .The solution of the system fixed assets management第一章. 系統(tǒng)需求分析1.1 現(xiàn)行業(yè)務(wù)系統(tǒng)描Foxbase FoxPro,系統(tǒng)開發(fā)環(huán)境也是數(shù)據(jù)1.2組織結(jié)第一章. 系統(tǒng)需求分析1.1 現(xiàn)行業(yè)務(wù)系統(tǒng)描Foxbase FoxPro,系統(tǒng)開發(fā)環(huán)境也是數(shù)據(jù)1.2組織結(jié)13 業(yè)務(wù)流程分?，F(xiàn)行系統(tǒng)存在的主要問(wèn)2. MSSQLServer提出可能的解決新系統(tǒng)采用Visual Basic 6.0開發(fā)成功，充分

10、利用該開發(fā)程序的優(yōu)勢(shì)，提高了MSSQLServer提出可能的解決新系統(tǒng)采用Visual Basic 6.0開發(fā)成功，充分利用該開發(fā)程序的優(yōu)勢(shì)，提高了 1.6 可行性分析與決VB6.0自帶的數(shù)據(jù)庫(kù)來(lái)作為數(shù)據(jù)庫(kù)，這是一個(gè)支持多用戶的新型數(shù)據(jù)庫(kù)，適用于中小規(guī)模的數(shù)據(jù)量需求。企業(yè)網(wǎng)的建設(shè)也為新系統(tǒng)服務(wù)器/客戶公司的Visual公司的VisualBorland公司的Delphi 作為數(shù)據(jù)庫(kù)系統(tǒng)的開發(fā)，Visual BasicMIS重要支持技術(shù)，在MIS VisualBasic語(yǔ)言，Visual Basic 是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序Windows Windows SDK

11、C/C+Visual Basic 以高效、快速地開發(fā)出Windows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用總的來(lái)說(shuō)，Visual Basic 具有以下特點(diǎn)：效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-開發(fā)效率。Visual Basic 形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。VisualWindows SDK C/C+Visual Basic 以高效、快速地開發(fā)出Windows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用總的來(lái)說(shuō)，Visual Basic 具有以下特點(diǎn)：效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-開發(fā)效率。Visual Basic 形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。Vi

12、sual Basic 自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)面4.0版以后的VisualBasic 象的程序設(shè)計(jì)方法界面上，Visual Basic 自動(dòng)生成對(duì)象的程序代碼并封裝起來(lái)。每個(gè)對(duì)象以圖形方式顯Visual Basic是在BASIC語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，具有高級(jí)程序設(shè)計(jì)語(yǔ)言的語(yǔ)句結(jié)構(gòu)，接近于自然語(yǔ)言和人類的邏輯思維方式。Visual Basic 語(yǔ)句簡(jiǎn)單易懂，其編VisualBasic程序(.EXE)，脫離Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運(yùn)行。Visual Basic s能。同時(shí)，Visual Basic 其他外部數(shù)據(jù)庫(kù)，如Paradox 等，這些數(shù)據(jù)庫(kù)格式都可

13、以用Visual Basic Visual Basic ODBC 的方式使用并操大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如SQL Server，Oracle 等。在應(yīng)用程序中SQL 象的庫(kù)操作指令和多用戶數(shù)據(jù)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的 SQL 編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了能。同時(shí)，Visual Basic 其他外部數(shù)據(jù)庫(kù)，如Paradox 等，這些數(shù)據(jù)庫(kù)格式都可以用Visual Basic Visual Basic ODBC 的方式使用并操大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如SQL Server，Oracle 等。在應(yīng)用程序中SQL 象的庫(kù)操作指令和多用戶數(shù)據(jù)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的 SQL 編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了

14、SQL 網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速(Dynamic Data Exchange)路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更的數(shù)據(jù)。Visual Basic 提供了動(dòng)態(tài)數(shù)據(jù)Windows 應(yīng)用程序建立動(dòng)態(tài)對(duì)象與嵌入對(duì)象與嵌入(OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對(duì)象(object)，將不同的象(link)起來(lái)，再嵌入(embed)圖像、動(dòng)畫、文字等各種信息的集合式的文件。OLE的的技術(shù)。利用 OLE Visual Basic C/C+序加入到Visual Basic 第二系統(tǒng)設(shè)2.1 系統(tǒng)方案設(shè)定產(chǎn)為主、電腦 在2.2 系統(tǒng)實(shí)現(xiàn)功能第二系統(tǒng)設(shè)2.1 系統(tǒng)方案設(shè)定產(chǎn)為主、電腦 在2.2 系統(tǒng)實(shí)現(xiàn)功能第三

15、章.Visual basic 下的控件所實(shí)現(xiàn)的功能Windows 下的 Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（第三章.Visual basic 下的控件所實(shí)現(xiàn)的功能Windows 下的 Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和 方法），Visual Basic 也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。VisualBasicApplicationWizardVisualBasic3.2CoolBar控件與Office97種看到的CoolBar是類似的。CoolBar

16、就是一個(gè)可以在窗”中選擇Windows Common Controls 6.0”理解的聯(lián)機(jī)幫助文檔。微軟的HelpWorkshop4.0VisualBasic協(xié) 為些信息包括些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。Visual Basic允許你使用 第四章.使用實(shí)現(xiàn)關(guān)系型數(shù)據(jù)據(jù)庫(kù)（flat-file）和關(guān)系數(shù)據(jù)庫(kù)（relational）第四章.使用實(shí)現(xiàn)關(guān)系型數(shù)據(jù)據(jù)庫(kù)（flat-file）和關(guān)系數(shù)據(jù)庫(kù)（relational）第五章.系統(tǒng)總體規(guī)劃5.1功68輯詢護(hù)幫助退出轉(zhuǎn)轉(zhuǎn)密化添加編輯刪除退出搜索全部取消個(gè)個(gè)個(gè)個(gè)第五章.系統(tǒng)總體規(guī)劃5.1功68輯詢護(hù)幫助退出轉(zhuǎn)轉(zhuǎn)密化添加編輯刪除退出搜

17、索全部取消個(gè)個(gè)個(gè)個(gè)第六章具體數(shù)據(jù)編緝界面實(shí)現(xiàn)功能：第六章具體數(shù)據(jù)編緝界面實(shí)現(xiàn)功能：等數(shù)據(jù)查詢界面與功能簡(jiǎn)介第七章結(jié)束合用戶需求，能夠?qū)崿F(xiàn)固資產(chǎn)的基本信息的錄入、更新、刪除、打功能，從而實(shí)現(xiàn)資產(chǎn)的管理。對(duì)于數(shù)據(jù)的一致也通過(guò)第七章結(jié)束合用戶需求，能夠?qū)崿F(xiàn)固資產(chǎn)的基本信息的錄入、更新、刪除、打功能，從而實(shí)現(xiàn)資產(chǎn)的管理。對(duì)于數(shù)據(jù)的一致也通過(guò)程序進(jìn)行第八章主要參考文獻(xiàn)1 VisualBasic6.0作者：Bob Reselman , Richard Peasley , Wayne：電子工業(yè)2作者：Ned ：機(jī)械工業(yè)Office通VisualBasic6.0；電子工業(yè)中文s200024學(xué)作者：CraigE

18、ddy ，Timothy ：機(jī)械工業(yè)九程序源代碼、各功能模塊的程序流程圖登錄界面源代碼：Private Unload Me For X = 1 To If A1.Recordset.EOF = True Private Unload Me For X = 1 To If A1.Recordset.EOF = True Text1.Text = Text2.Text = IfTrim(Text4.Text)Then 16,ition=MDIForm1.Tag=Text1.Text Unload MeX = X - End IfNext PrivateSub Unload Me End SubPr

19、ivate Sub If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then MsgBox32,Unload Me End If End Sub系統(tǒng)主界面代碼：Unload Me End If End Sub系統(tǒng)主界面代碼：End End End End Unload MeEnd Select Case Button.IndexCaseCase 2Case 3Case 4Case 5Case 6UnloadEnd End 固定資產(chǎn)信息代碼Private d1.Tag=Trued1.Captionr = End 固定資產(chǎn)信息代碼Pri

20、vate d1.Tag=Trued1.Captionr = IfA1.Recordset.BOF=TrueAndA1.Recordset.EOF=TrueEnd For X=1ToIfA1.Recordset.EOF=TrueA1.Tag=Exit End X = X -r =r + Next Label3.Caption=d1.Caption = 輸入完畢d2.Enabled =d3.Enabled =End X = X -r =r + Next Label3.Caption=d1.Caption = 輸入完畢d2.Enabled =d3.Enabled =d4.Enabled =d5.En

21、abled =Form3.Height = Form3.Top=F1.Visible=Ift3(0).Text=MsgBox固定資產(chǎn)不能為空！16,t3(0).Text=d1.Caption = d2.Enabled =d3.Enabled =d4.Enabled =d5.Enabled =Form3.Height= Form3.Left =Form3.Top=F1.Visible=ForX=11ToIfLen(Trim(t3(X).Text)Form3.Height= Form3.Left =Form3.Top=F1.Visible=ForX=11ToIfLen(Trim(t3(X).Tex

22、t)200MsgBox過(guò)200個(gè)！, 16, Exit End Next d1.Caption = d2.Enabled =d3.Enabled =d4.Enabled =d5.Enabled =Form3.Height= F1.Visible=Form3.Left =Form3.Top=End End MsgBox您沒有這個(gè)權(quán)限！16,End End Private For X=0ToIfA1.Recordset.EOF=TrueMsgBox您沒有這個(gè)權(quán)限！16,End End Private For X=0ToIfA1.Recordset.EOF=TrueMsgBox32,Exit End

23、 Next End Private UnloadEnd Private d2.Tag=TrueIfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueMsgBox！16,d2.Caption查詢d8.Caption = 顯示信息Form3.Top=Form3.Height = d2.Caption = 結(jié)束查詢F3.Visible=d1.Enabled =d4.Enabled =d3.Enabled =d2.Caption查詢d8.Caption = 顯示信息Form3.Top=Form3.Height = d2.Caption = 結(jié)束查詢F3.Visi

24、ble=d1.Enabled =d4.Enabled =d3.Enabled =d2.Caption = 查詢d8.Caption = 打印Form3.Top=Form3.Height = Form3.Left =d1.Enabled =d4.Enabled =d3.Enabled =F3.Visible=End End MsgBox您沒有這個(gè)權(quán)限！16,End End Private d1.Tag=TrueIfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueMsgBox您沒有這個(gè)權(quán)限！16,End End Private d1.Tag=TrueIfA

25、1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueMsgBox！16,d3.Captiond3.Caption = 修改完畢d2.Enabled =d1.Enabled =d4.Enabled =d5.Enabled =Form3.Height = Form3.Top=F1.Visible=F1.Caption = 修Ift3(0).Text=MsgBox固定資產(chǎn)不能為空！16,ForX=11ToIfLen(Trim(t3(X).Text)200MsgBox過(guò)200個(gè)！, 16, Exit End Next d3.Caption = ForX=11ToIf

26、Len(Trim(t3(X).Text)200MsgBox過(guò)200個(gè)！, 16, Exit End Next d3.Caption = d2.Enabled =d1.Enabled =d4.Enabled =d5.Enabled =Form3.Height = Form3.Left =Form3.Top=F1.Visible=F1.CaptionEnd End End MsgBox您沒有這個(gè)權(quán)限！16,End End Private UnloadEnd Private d1.Tag=TrueIfA1.Recordset.EOF=TrueOrA1.Recordset.BOF=TrueMsgBox

27、UnloadEnd Private d1.Tag=TrueIfA1.Recordset.EOF=TrueOrA1.Recordset.BOF=TrueMsgBox可以刪除！, 16, Y= For X=1ToIfA1.Recordset.EOF=TrueIfA1.Recordset.BOF=TrueEnd Exit Label3.Caption=Y=Y+ X = X -End Next End MsgBox您沒有這個(gè)權(quán)限！16,End End Private For X=0ToIft17(X).TextEnd MsgBox您沒有這個(gè)權(quán)限！16,End End Private For X=0To

28、Ift17(X).Text=d6.Tag=d7.Tag=Call Exit End Next MsgBox您沒有輸入要查詢的值！16,End Sub For X=1ToIfd6.Tag)=Exit IfA1.Recordset.EOF=TrueEnd IfA1.Recordset.EOF=TrueMsgBox！, 32, Exit IfA1.Recordset.EOF=TrueEnd IfA1.Recordset.EOF=TrueMsgBox！, 32, Exit X = X -End End Next End Private For X=0ToIft17(X).Text=d6.Tag=d7.Tag=IfA1.Recordset.EOF=TrueEnd Call Exit End Next MsgBox您沒有輸入要查詢的值！16,End Private End Private For X=Call Exit End Next MsgBox您沒有輸入要查詢的值！16,End Private End Pr