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)過分析VISUALBASIC開發(fā)工具,，和關(guān)鍵字：VisualBasic6.0，控件、窗體、數(shù)據(jù)庫Thefixedassetsmanagementsystemisthe固定資產(chǎn)管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),經(jīng)過分析VISUALBASIC開發(fā)工具,，和關(guān)鍵字：VisualBasic6.0，控件、窗體、數(shù)據(jù)庫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)存在的主要問2. MSSQLServer提出可能的解決新系統(tǒng)采用Visual Basic 6.0開發(fā)成功，充分

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

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

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

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

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

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

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

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

18、ddy ，Timothy ：機械工業(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過200個！, 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您沒有這個權(quán)限！16,End End Private For X=0ToIfA1.Recordset.EOF=TrueMsgBox您沒有這個權(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您沒有這個權(quán)限！16,End End Private d1.Tag=TrueIfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueMsgBox您沒有這個權(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過200個！, 16, Exit End Next d3.Caption = ForX=11ToIf

26、Len(Trim(t3(X).Text)200MsgBox過200個！, 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您沒有這個權(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您沒有這個權(quán)限！16,End End Private For X=0ToIft17(X).TextEnd MsgBox您沒有這個權(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