倉(cāng)管會(huì)計(jì)自己賬目管理系統(tǒng)(自動(dòng)保存)

1、倉(cāng)庫(kù)管理會(huì)計(jì)管理系統(tǒng)軟件開(kāi)發(fā)武謹(jǐn)摘要：會(huì)計(jì)是以貨幣為主要計(jì)量單位，以提高經(jīng)濟(jì)效益為主要目標(biāo)，對(duì)企業(yè)，機(jī)關(guān)，事業(yè)單位和其他組織的經(jīng)濟(jì)活動(dòng)進(jìn)行全面，綜合，連續(xù)，系統(tǒng)地核算和監(jiān)督，并隨著社會(huì)經(jīng)濟(jì)的日益發(fā)展，逐步開(kāi)展預(yù)測(cè)、決策、控制和分析的一種經(jīng)濟(jì)管理活動(dòng)，是經(jīng)濟(jì)管理活動(dòng)的重要組成部分，會(huì)計(jì)可以分為很多種類(lèi)，例如總帳會(huì)計(jì)、往來(lái)會(huì)計(jì)、成本會(huì)計(jì)、材料會(huì)計(jì)等，在這里我們主要說(shuō)的是倉(cāng)管會(huì)計(jì)，很多公司會(huì)計(jì)和倉(cāng)管是不分開(kāi)的，是有一個(gè)人承擔(dān)，他的職責(zé)是對(duì)進(jìn)出庫(kù)貨物進(jìn)行清點(diǎn)記錄并進(jìn)行賬目核算，隨著現(xiàn)代化生產(chǎn)的迅速發(fā)展，經(jīng)濟(jì)管理水平的提高，電子計(jì)算機(jī)技術(shù)廣泛應(yīng)用于會(huì)計(jì)核算，使會(huì)計(jì)信息的搜集、分類(lèi)、處理、反饋等操作程序擺

2、脫了傳統(tǒng)的手工操作，大大地提高了工作效率，實(shí)現(xiàn)了會(huì)計(jì)科學(xué)的根本變革.現(xiàn)在我們用vb6.0開(kāi)發(fā)出倉(cāng)管會(huì)計(jì)賬目管理系統(tǒng)會(huì)給會(huì)計(jì)帶來(lái)很大方便，只需要輸入信息，系統(tǒng)就會(huì)自動(dòng)的進(jìn)行統(tǒng)計(jì)，核算和存檔，也可以很方便的進(jìn)行查詢(xún)。關(guān)鍵詞：會(huì)計(jì)，倉(cāng)管會(huì)計(jì)，賬目管理系統(tǒng)，統(tǒng)計(jì)，經(jīng)濟(jì)管理活動(dòng)，vb6.0。The software development of Warehousing accounting management systemAbstract:Accounting is based on the currency as the main unit of measurement to enhance eco

3、nomic efficiency as the main target, economic activities of enterprises, organizations, institutions and other organizations are accounted and integrated comprehensively and systematically, With the increasing socio-economic development, it has a gradual development to forecasting, decision-making,

4、control and analysis of an economic management activities, it is an important part of economic management activities, accounting can be divided into many types, such as general ledger accounting, between accounting, costaccounting, materials accounting, and here we talk about warehouse accounting, a

5、ccounting and warehouse is not separated, sometimes one person need to commit the two duties ,espically in some small companies. with the rapid development of modern production, the improvement of the level of economic management, computer technology is widely used in accounting, accounting informat

6、ion collection, classification, processing, feedback and operating procedures so that account gets rid of the traditional manual operation, which greatly improve work efficiency and finish fundamental change in accounting science, developed warehouse accounts management system by vb 6.0 will bring a

7、 great convenience for accounting, and the accounting only need to enter information, the system software will automatically account and inquiry can also be very convenient.Key word: Accounting, Warehousing accounting, Accounts management system, Statistical, Economic management activities.會(huì)計(jì)是以貨幣為主要

8、計(jì)量單位，以提高經(jīng)濟(jì)效益為主要目標(biāo)，運(yùn)用專(zhuān)門(mén)方法對(duì)企業(yè)，機(jī)關(guān)，事業(yè)單位和其他組織的經(jīng)濟(jì)活動(dòng)進(jìn)行全面，綜合，連續(xù)，系統(tǒng)地核算和監(jiān)督，提供會(huì)計(jì)信息，并隨著社會(huì)經(jīng)濟(jì)的日益發(fā)展，逐步開(kāi)展預(yù)測(cè)、決策、控制和分析的一種經(jīng)濟(jì)管理活動(dòng)，是經(jīng)濟(jì)管理活動(dòng)的重要組成部分。1對(duì)會(huì)計(jì)的認(rèn)識(shí)會(huì)計(jì)的對(duì)象是指會(huì)計(jì)所核算和監(jiān)督的內(nèi)容，即特定主體能夠以貨幣表現(xiàn)的經(jīng)濟(jì)活動(dòng)。以貨幣表現(xiàn)的經(jīng)濟(jì)活動(dòng)通常又稱(chēng)為價(jià)值運(yùn)動(dòng)或資金流動(dòng)。資金運(yùn)動(dòng)包括特定主體的資金投入、資金運(yùn)用和資金退出等過(guò)程。 會(huì)計(jì)的基本職能包括進(jìn)行會(huì)計(jì)核算和實(shí)施會(huì)計(jì)監(jiān)督兩個(gè)方面： 1）會(huì)計(jì)核算職能是指主要運(yùn)用貨幣計(jì)量形式，通過(guò)確認(rèn)、計(jì)量、記錄和報(bào)告，從數(shù)量上連續(xù)、系統(tǒng)和完整的

9、反映各個(gè)單位的經(jīng)濟(jì)活動(dòng)情況，為加強(qiáng)經(jīng)濟(jì)管理和提高經(jīng)濟(jì)效益提供會(huì)計(jì)信息。 2）會(huì)計(jì)監(jiān)督職能是指對(duì)特定主體經(jīng)濟(jì)活動(dòng)和相關(guān)會(huì)計(jì)核算的合法性、合理性進(jìn)行審查。會(huì)計(jì)的作用是加強(qiáng)經(jīng)濟(jì)核算，為企業(yè)經(jīng)營(yíng)管理提供數(shù)據(jù)；保證企業(yè)投入資產(chǎn)的安全和完善；為投資者提供財(cái)務(wù)報(bào)告，以便于投資者進(jìn)行正確的投資決策。會(huì)計(jì)按其報(bào)告的對(duì)象不同可分財(cái)務(wù)會(huì)計(jì)(對(duì)外報(bào)告會(huì)計(jì))和管理會(huì)計(jì)(對(duì)內(nèi)報(bào)告會(huì)計(jì))兩部分。財(cái)務(wù)會(huì)計(jì)：編制財(cái)務(wù)報(bào)表，為企業(yè)內(nèi)部和外部用戶(hù)提供信息。財(cái)務(wù)會(huì)計(jì)的信息是提供廣泛的用戶(hù)。其重點(diǎn)在于報(bào)告財(cái)務(wù)狀況和營(yíng)運(yùn)狀況。管理會(huì)計(jì)：主要是對(duì)企業(yè)的管理層提供信息，作為企業(yè)內(nèi)部各部門(mén)進(jìn)行決策的依據(jù)。沒(méi)有標(biāo)準(zhǔn)的模式、不受會(huì)計(jì)準(zhǔn)則的控制。按

10、行業(yè)分為：工業(yè)企業(yè)會(huì)計(jì)、商品流通會(huì)計(jì)、 金融證券會(huì)計(jì)、保險(xiǎn)企業(yè)會(huì)計(jì)、 施工企業(yè)會(huì)計(jì)、房地產(chǎn)業(yè)會(huì)計(jì)、郵電通訊會(huì)計(jì)、農(nóng)業(yè)企業(yè)會(huì)計(jì)、旅游餐飲會(huì)計(jì)、醫(yī)療衛(wèi)生會(huì)計(jì)、交通運(yùn)輸會(huì)計(jì)、文化教育會(huì)計(jì)、物業(yè)管理會(huì)計(jì)、行政事業(yè)會(huì)計(jì)、上市公司會(huì)計(jì)、物流企業(yè)會(huì)計(jì)、連鎖經(jīng)營(yíng)會(huì)計(jì)、出版印刷會(huì)計(jì)、私營(yíng)企業(yè)會(huì)計(jì)、小企業(yè)會(huì)計(jì)(制造業(yè)) 會(huì)計(jì)、小企業(yè)會(huì)計(jì)(商業(yè))會(huì)計(jì)、電力企業(yè)會(huì)計(jì)、煤炭企業(yè)會(huì)計(jì)、鋼鐵企業(yè)會(huì)計(jì)、 石油化工會(huì)計(jì)、汽車(chē)行 業(yè)會(huì)計(jì)、煙草企業(yè)會(huì)計(jì)、酒類(lèi)企業(yè)會(huì)計(jì)、食品企業(yè)會(huì)計(jì)、藥品企業(yè)會(huì)計(jì)、加工制造會(huì)計(jì)、輕工紡織會(huì)計(jì)、外經(jīng)外貿(mào)會(huì)計(jì)、信息咨詢(xún)服務(wù)業(yè)會(huì)計(jì)、廣告服務(wù)會(huì)計(jì)、房屋中介服務(wù)會(huì)計(jì)、市場(chǎng)（農(nóng)貿(mào)、五金、批發(fā)、建材、服裝等）會(huì)計(jì)、

11、個(gè)人獨(dú)資企業(yè)會(huì)計(jì)、高新技術(shù)企業(yè)會(huì)計(jì)、軟件及集成電路會(huì)計(jì)。按工作內(nèi)容分為：總帳會(huì)計(jì)、往來(lái)會(huì)計(jì)、成本會(huì)計(jì)、材料會(huì)計(jì)等。按工作范圍分為：公共會(huì)計(jì)、私用會(huì)計(jì)、政府會(huì)計(jì)。2現(xiàn)代會(huì)計(jì)現(xiàn)代會(huì)計(jì)是商品經(jīng)濟(jì)的產(chǎn)物。14、15世紀(jì)，由于歐洲資本主義商品貨幣經(jīng)濟(jì)的迅速發(fā)展，促進(jìn)了會(huì)計(jì)的發(fā)展。其主要標(biāo)志：一是利用貨幣計(jì)量進(jìn)行價(jià)值核算；二是廣泛采用復(fù)式記帳法，從而形成現(xiàn)代會(huì)計(jì)的基本特征和發(fā)展基石。20世紀(jì)以來(lái)，特別是第二次世界大戰(zhàn)結(jié)束后，資本主義的生產(chǎn)社會(huì)化程度得到了空前的發(fā)展，現(xiàn)代科學(xué)技術(shù)與經(jīng)濟(jì)管理科學(xué)的發(fā)展突飛猛進(jìn)。受社會(huì)政治、經(jīng)濟(jì)和技術(shù)環(huán)境的影響，傳統(tǒng)的財(cái)務(wù)會(huì)計(jì)不斷充實(shí)和完善，財(cái)務(wù)會(huì)計(jì)核算工作更加標(biāo)準(zhǔn)化、通用化和

12、規(guī)范化。與此同時(shí)，會(huì)計(jì)學(xué)科在20世紀(jì)30年代成本會(huì)計(jì)的基礎(chǔ)上，緊密配合現(xiàn)代管理理論和實(shí)踐的需要，逐步形成了為企業(yè)內(nèi)部經(jīng)營(yíng)管理提供信息的管理會(huì)計(jì)體系，從而使會(huì)計(jì)工作從傳統(tǒng)的事后記賬、算賬、報(bào)賬，轉(zhuǎn)為事前的預(yù)測(cè)與決策、事中的監(jiān)督與控制、事后的核算與分析。管理會(huì)計(jì)的產(chǎn)生與發(fā)展，是會(huì)計(jì)發(fā)展史上的一次偉大變革，從此，現(xiàn)代會(huì)計(jì)形成了財(cái)務(wù)會(huì)計(jì)和管理會(huì)計(jì)兩大分支。隨著現(xiàn)代化生產(chǎn)的迅速發(fā)展，經(jīng)濟(jì)管理水平的提高，電子計(jì)算機(jī)技術(shù)廣泛應(yīng)用于會(huì)計(jì)核算，使會(huì)計(jì)信息的搜集、分類(lèi)、處理、反饋等操作程序擺脫了傳統(tǒng)的手工操作，大大地提高了工作效率，實(shí)現(xiàn)了會(huì)計(jì)科學(xué)的根本變革. 從不同角度考察會(huì)計(jì)，可對(duì)會(huì)計(jì)本質(zhì)得出不同的認(rèn)識(shí)。這些認(rèn)

13、識(shí)可概括為：(1)會(huì)計(jì)是反映和監(jiān)督物質(zhì)資料生產(chǎn)過(guò)程的一種方法，是管理經(jīng)濟(jì)的工具。(2)會(huì)計(jì)是一個(gè)收集、處理和輸送經(jīng)濟(jì)信息的信息系統(tǒng)。(3)會(huì)計(jì)是通過(guò)收集處理和利用經(jīng)濟(jì)信息，對(duì)經(jīng)濟(jì)活動(dòng)進(jìn)行組織、控制、調(diào)節(jié)和指導(dǎo)，促使人們比較分析，講求經(jīng)濟(jì)效益的一種以?xún)r(jià)值活動(dòng)為對(duì)象的管理活動(dòng)。早期的會(huì)計(jì)包括審計(jì)。習(xí)慣上，對(duì)擔(dān)任會(huì)計(jì)工作的專(zhuān)業(yè)人員簡(jiǎn)稱(chēng)為會(huì)計(jì)，有時(shí)把會(huì)計(jì)作為會(huì)計(jì)學(xué)的同義語(yǔ)。3倉(cāng)管會(huì)計(jì)的職責(zé)現(xiàn)在在很多企業(yè)，特別是中小型企業(yè)中，倉(cāng)管和會(huì)計(jì)是有一個(gè)人來(lái)承擔(dān)的，因?yàn)樵趯?shí)際工作中, 會(huì)計(jì)與庫(kù)管是有聯(lián)系的,并且是有緊密的聯(lián)系，會(huì)計(jì)中的資產(chǎn)項(xiàng)下的材料核算可以分三級(jí)帳來(lái)管理,說(shuō)個(gè)具體的例子, 可能更直觀一點(diǎn)，如果是個(gè)

14、大型的公司,倉(cāng)庫(kù)的材料應(yīng)由兩個(gè)崗位完成, 一個(gè)是負(fù)責(zé)計(jì)錄庫(kù)存保管帳的,一個(gè)是具體管理實(shí)物的,小型的公司這兩個(gè)職位由一個(gè)人來(lái)完成,就是自已管保管帳自已管實(shí)物,這個(gè)統(tǒng)稱(chēng)為第三級(jí)財(cái)務(wù)賬,那么第一級(jí)材料賬在公司的總帳會(huì)計(jì)那里負(fù)責(zé),第二級(jí)材料賬由財(cái)務(wù)部的材料會(huì)計(jì)負(fù)責(zé),每月到月終結(jié)賬時(shí), 由二級(jí)材料賬會(huì)計(jì)負(fù)責(zé)與庫(kù)房的保管賬進(jìn)行核對(duì),看是否兩賬相等,如果不想等要先找原因再調(diào)制調(diào)節(jié)表, 就有些類(lèi)"銀行存款余額調(diào)節(jié)表"的樣子。知道他們的聯(lián)系之后，我們還要清楚如果倉(cāng)管和會(huì)計(jì)由一個(gè)人來(lái)做，那么他一定要知道倉(cāng)管和會(huì)計(jì)是怎么來(lái)對(duì)賬的，這個(gè)問(wèn)題是實(shí)際工作中經(jīng)常困擾會(huì)計(jì)和老板的問(wèn)題，大部分單位都存在，在

15、這里我就簡(jiǎn)單介紹一下：1）一般來(lái)說(shuō)如果單位庫(kù)存和材料（以下簡(jiǎn)稱(chēng)為材料）品種很多的情況下，會(huì)計(jì)只做總金額和總數(shù)量（每個(gè)品種一個(gè)總數(shù)量），倉(cāng)管只做材料數(shù)量的進(jìn)銷(xiāo)存就可以了，每月會(huì)計(jì)和倉(cāng)管對(duì)賬，哪種材料數(shù)量不一樣，就直接查這一種材料變動(dòng)的明細(xì)。定期或不定期盤(pán)點(diǎn)材料實(shí)物，看帳實(shí)是否相符。2）如果單位材料品種少，可以記材料的進(jìn)銷(xiāo)存數(shù)量金額明細(xì)帳，月底和倉(cāng)管的材料數(shù)量帳對(duì)照。3）如果單位材料品種多，老板又要你做材料帳通常做數(shù)量金額式的，也便于你和總金額對(duì)照，那要看你有沒(méi)有精力去做，因?yàn)椴牧蠋な亲顭┈嵶钫既肆Φ?。如果是大公司的話，可由?zhuān)人記材料帳。總之：倉(cāng)管可以做材料數(shù)量的進(jìn)銷(xiāo)存帳，會(huì)計(jì)做材料數(shù)量金額式的明

16、細(xì)帳。最關(guān)鍵的是：無(wú)論采用哪種方法，都要定期盤(pán)點(diǎn)，（帳實(shí)相符才是老板最想要的）并將盤(pán)點(diǎn)結(jié)果上報(bào)給老板，以便找出原因和處理，優(yōu)柔寡斷只能讓老板將材料短少的原因歸結(jié)到會(huì)計(jì)沒(méi)有控制好?，F(xiàn)在這所有的工作都要有倉(cāng)管會(huì)計(jì)一個(gè)人來(lái)完成。簡(jiǎn)單的來(lái)概括一下倉(cāng)管會(huì)計(jì)的工作就是除了看好貨物，不短少，保護(hù)完整，保證貨物不影響正常使用，對(duì)出進(jìn)的情況及時(shí)匯報(bào)，每月寫(xiě)分析，注意保質(zhì)期，核對(duì)倉(cāng)庫(kù)的數(shù)量和財(cái)務(wù)賬上數(shù)量是否一致。最好再根據(jù)出庫(kù)單和入庫(kù)單抽查一下倉(cāng)庫(kù)的明細(xì)賬，看看登記是否準(zhǔn)確，就是按照明細(xì)登記出入庫(kù)的數(shù)量和金額，既可以核查倉(cāng)庫(kù)的數(shù)據(jù)，也可以間接核查財(cái)務(wù)賬上的金額，對(duì)成本核算也有好處，差異要查找原因。4會(huì)計(jì)賬目管理系

17、統(tǒng)中涉及到的一些概念4.1賬戶(hù)賬戶(hù)是分門(mén)別類(lèi)地反映和控制會(huì)計(jì)項(xiàng)目的工具。設(shè)置和運(yùn)用賬戶(hù)是連續(xù)地歸類(lèi)記錄經(jīng)濟(jì)業(yè)務(wù)數(shù)據(jù),從而提供各要素項(xiàng)目的動(dòng)態(tài)和狀況所使用的專(zhuān)門(mén)方法。4.2財(cái)產(chǎn)清查 財(cái)產(chǎn)清查是核實(shí)貨幣及實(shí)物資產(chǎn)賬實(shí)是否相符所使用的專(zhuān)門(mén)方法。 4.3編制會(huì)計(jì)報(bào)表 會(huì)計(jì)報(bào)表是總括反映價(jià)值運(yùn)動(dòng)過(guò)程及其結(jié)果的報(bào)告文件。編制會(huì)計(jì)報(bào)表是系統(tǒng)地提供會(huì)計(jì)信息所使用的專(zhuān)門(mén)方法。4.4會(huì)計(jì)期間如何將企業(yè)連續(xù)的經(jīng)濟(jì)活動(dòng)以階段成果形式反映出來(lái)，及時(shí)地為企業(yè)、政府及所有者提供企業(yè)經(jīng)濟(jì)和經(jīng)營(yíng)狀況的信息，這就涉及到會(huì)計(jì)期間劃分問(wèn)題。企業(yè)會(huì)計(jì)準(zhǔn)則規(guī)定：“會(huì)計(jì)核算應(yīng)當(dāng)劃分會(huì)計(jì)期間，分期結(jié)算賬目和編制會(huì)計(jì)報(bào)表。會(huì)計(jì)期間分為年度、季

18、度和月份，年度、季度和月份的起訖日期采用公歷日期?！?.5總分類(lèi)賬戶(hù)與明細(xì)分類(lèi)賬戶(hù)的關(guān)系 總分類(lèi)賬戶(hù)對(duì)明細(xì)分類(lèi)賬戶(hù)具有統(tǒng)馭控制作用；明細(xì)分類(lèi)賬戶(hù)對(duì)總分類(lèi)賬戶(hù)具有補(bǔ)充說(shuō)明作用?？偡诸?lèi)賬戶(hù)與其所屬明細(xì)分類(lèi)賬戶(hù)在總金額上應(yīng)當(dāng)相等。 4.6總分類(lèi)賬戶(hù)與明細(xì)分類(lèi)賬戶(hù)的平行登記 平行登記是指對(duì)所發(fā)生的每項(xiàng)經(jīng)濟(jì)業(yè)務(wù)事項(xiàng)，都要以會(huì)計(jì)憑證為依據(jù)，一方面記入有關(guān)總分類(lèi)賬戶(hù)，另一方面記入有關(guān)總分類(lèi)賬戶(hù)所屬明細(xì)分類(lèi)賬戶(hù)的方法。 總分類(lèi)賬戶(hù)與明細(xì)分類(lèi)賬戶(hù)平行登記要求做到：所依據(jù)會(huì)計(jì)憑證相同、借貸方向相同、所屬會(huì)計(jì)期間相同、計(jì)入總分類(lèi)賬戶(hù)的金額與計(jì)入其所屬明細(xì)分類(lèi)賬戶(hù)的合計(jì)金額相等。5倉(cāng)庫(kù)管理會(huì)計(jì)賬目管理系統(tǒng)介紹Visu

19、al Basic是一種由微軟公司開(kāi)發(fā)的包含協(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)編程語(yǔ)言。從任何標(biāo)準(zhǔn)來(lái)說(shuō)，VB都是世界上使用人數(shù)最多的語(yǔ)言不僅是盛贊VB的開(kāi)發(fā)者還是抱怨VB的開(kāi)發(fā)者的數(shù)量。它源自于BASIC編程語(yǔ)言。VB擁有圖形用戶(hù)界面（GUI）和快速應(yīng)用程序開(kāi)發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。這款專(zhuān)門(mén)為倉(cāng)管會(huì)計(jì)設(shè)計(jì)開(kāi)發(fā)的管理系統(tǒng)就是用vb6.0來(lái)制作的，對(duì)于會(huì)計(jì)人員，這款軟件很容易上手，學(xué)起來(lái)相當(dāng)容易，當(dāng)會(huì)計(jì)人員掌握了vb6.0以后就可以隨時(shí)根據(jù)自己的需要進(jìn)行修改。一下就是我們的制作過(guò)程

20、和主要編程代碼。該系統(tǒng)可以幫助倉(cāng)管會(huì)計(jì)統(tǒng)計(jì)每天每月的進(jìn)出庫(kù)情況，并且可以進(jìn)行數(shù)量和金額的統(tǒng)計(jì)工作，還可以按月按年進(jìn)行查詢(xún)和核對(duì)，核算，既有明細(xì)賬還有總賬。另外還可以進(jìn)行財(cái)產(chǎn)清算和自動(dòng)生成賬目報(bào)表以及報(bào)表的打印。以下是該系統(tǒng)的主要界面：該界面是供倉(cāng)管會(huì)計(jì)登錄用的，只有知道密碼才能進(jìn)入，這樣可以保證安全和保密性。該界面包含了系統(tǒng)的所有功能，下面將會(huì)逐一介紹上圖中反映了第一個(gè)菜單的內(nèi)容就是進(jìn)出庫(kù)管理以及退出，進(jìn)出庫(kù)管理中包含內(nèi)容如下圖所示： 這是進(jìn)出庫(kù)管理的第一級(jí)界面主要用來(lái)選擇對(duì)具體的那個(gè)月份進(jìn)行操作，當(dāng)點(diǎn)擊月份是將會(huì)出現(xiàn)下第二級(jí)界面：該界面中需要倉(cāng)管會(huì)計(jì)輸入相關(guān)的信息即可，輸入完畢后點(diǎn)擊保存即可

21、，有電腦自動(dòng)進(jìn)行保存與統(tǒng)計(jì)。統(tǒng)計(jì)完畢后點(diǎn)擊返回相應(yīng)的界面。這是查詢(xún)菜單，該菜單主要提供進(jìn)出庫(kù)賬目的查詢(xún)工作，選擇想要查詢(xún)的月份即可進(jìn)入該月的統(tǒng)計(jì)界面，參看上圖。該菜單提供按年度查詢(xún)與統(tǒng)計(jì)工作，可以方便的查詢(xún)一年的進(jìn)出庫(kù)賬目以及貨物情況，并且自動(dòng)生成報(bào)表。其主界面如下圖所示：當(dāng)點(diǎn)擊查看按鈕時(shí)將會(huì)把一年中的進(jìn)出庫(kù)情況統(tǒng)計(jì)在右面的窗口內(nèi)，方便查看，再點(diǎn)擊查看的同時(shí)一年的報(bào)表就會(huì)產(chǎn)生并保存在相應(yīng)的文件夾中，需要時(shí)可以進(jìn)行打印。以上就是該系統(tǒng)的主要操作過(guò)程。該系統(tǒng)適用vb6.0制作的，源代碼如下所示：這是登錄界面的代碼：Private Sub Command1_Click()password = 555

22、000# If Txtpassword.Text = password And Trim(password) = "555000" Then mainform.Show Me.Hide Else MsgBox "輸入的密碼有誤,請(qǐng)重新輸入!" End If Txtpassword = ""End SubPrivate Sub Command2_Click() Unload 登錄End SubPrivate Sub Form_Load()登錄.Caption = "登錄" Operater1 = "無(wú)&qu

23、ot; Txtpassword.Enabled = True Command1.Enabled = TrueEnd SubPrivate Sub Txtpassword_Change()If Len(Trim(Txtpassword) = 0 Then Command1.Enabled = False Else Command1.Enabled = True End IfEnd SubPrivate Sub Txtpassword_GotFocus()Txtpassword.BackColor = &HC0FFFF Txtpassword.SelStart = 0 Txtpasswor

24、d.SelLength = 12End SubPrivate Sub Txtpassword_LostFocus()Txtpassword.BackColor = &HFFC0C0End Sub這是主界面的代碼Private Sub M_10月_Click()零二年十月.ShowEnd SubPrivate Sub M_11月_Click()零二年十一月.ShowEnd SubPrivate Sub M_12月_Click()零二年十二月.ShowEnd SubPrivate Sub M_2012年出庫(kù)總表_Click()二零一二年出庫(kù)統(tǒng)計(jì).ShowEnd SubPrivate Sub

25、 M_2012年進(jìn)庫(kù)總表_Click()二零一二年進(jìn)庫(kù)統(tǒng)計(jì).ShowEnd SubPrivate Sub M_2013年出庫(kù)總表_Click()二零一三年出庫(kù)統(tǒng)計(jì).ShowEnd SubPrivate Sub M_2013年進(jìn)庫(kù)總表_Click()二零一三年進(jìn)庫(kù)統(tǒng)計(jì).ShowEnd SubPrivate Sub M_3月_Click()零二年三月.ShowEnd SubPrivate Sub M_4月_Click(Index As Integer)零二年四月.ShowEnd SubPrivate Sub M_5月_Click()零二年五月.ShowEnd SubPrivate Sub M_6月

26、_Click()零二年六月.ShowEnd SubPrivate Sub M_7月_Click()零二年七月.ShowEnd SubPrivate Sub M_8月_Click()零二年八月.ShowEnd SubPrivate Sub M_9月_Click()零二年九月.ShowEnd SubPrivate Sub M_Exit_Click() aa = MsgBox("退出前請(qǐng)確定數(shù)據(jù)是否保存!", 1 + 32) If aa = 1 Then EndEnd SubPrivate Sub M_FindDate_Click()按日期查.ShowEnd SubPrivate

27、 Sub M_InoutStorehouse_Click()進(jìn)庫(kù)出庫(kù)管理.ShowEnd SubPrivate Sub M_八月_Click(Index As Integer)零三年八月.ShowEnd SubPrivate Sub M_二月_Click(Index As Integer)零三年二月.ShowEnd SubPrivate Sub M_九月_Click(Index As Integer)零三年九月.ShowEnd SubPrivate Sub M_六月_Click(Index As Integer)零三年六月.ShowEnd SubPrivate Sub M_七月_Click(I

28、ndex As Integer)零三年七月.ShowEnd SubPrivate Sub M_三月_Click(Index As Integer)零三年三月.ShowEnd SubPrivate Sub M_十二月_Click(Index As Integer)零三年十二月.ShowEnd SubPrivate Sub M_十一月_Click(Index As Integer)零三年十一月.ShowEnd SubPrivate Sub M_十月_Click(Index As Integer)零三年十月.ShowEnd SubPrivate Sub M_四月_Click(Index As Int

29、eger)零三年四月.ShowEnd SubPrivate Sub M_五月_Click(Index As Integer)零三年五月.ShowEnd SubPrivate Sub M_一月_Click(Index As Integer)零三年一月.ShowEnd Sub這是進(jìn)出庫(kù)管理界面的代碼Private Sub Command3_Click()Open "d:fafa.dat" For Output As #1 '寫(xiě)入 Print #1, Text1.Text Print #1, Text2.TextClose #1End SubPrivate Sub Com

30、mand1_Click()mainform.ShowEnd SubPrivate Sub Form_Load()If Dir("d:fafa.dat") <> "" Then '讀取 Open "d:fafa.dat" For Input As #1 Do Until EOF(1) Line Input #1, fafa Text1 = Text1 & fafa & vbCrLf Loop Close #1End IfEnd SubPrivate Sub Label10_Click()零二年七月.S

31、howEnd SubPrivate Sub Label11_Click()零二年八月.ShowEnd SubPrivate Sub Label12_Click()零二年九月.ShowEnd SubPrivate Sub Label13_Click()零二年十月.ShowEnd SubPrivate Sub Label14_Click()零二年十一月.ShowEnd SubPrivate Sub Label15_Click()零二年十二月.ShowEnd SubPrivate Sub Label16_Click()零三年一月.ShowEnd SubPrivate Sub Label17_Clic

32、k()零三年二月.ShowEnd SubPrivate Sub Label18_Click()零三年三月.ShowEnd SubPrivate Sub Label19_Click()零三年四月.ShowEnd SubPrivate Sub Label20_Click()零三年五月.ShowEnd SubPrivate Sub Label21_Click()零三年六月.ShowEnd SubPrivate Sub Label22_Click()零三年七月.ShowEnd SubPrivate Sub Label23_Click()零三年八月.ShowEnd SubPrivate Sub Labe

33、l24_Click()零三年九月.ShowEnd SubPrivate Sub Label25_Click()零三年十月.ShowEnd SubPrivate Sub Label26_Click()零三年十一月.ShowEnd SubPrivate Sub Label27_Click()零三年十二月.ShowEnd SubPrivate Sub Label4_Click()零二年三月.ShowEnd SubPrivate Sub Label7_Click()零二年四月.ShowEnd SubPrivate Sub Label8_Click()零二年五月.ShowEnd SubPrivate S

34、ub Label9_Click()零二年六月.ShowEnd Sub這是其中一個(gè)月的統(tǒng)計(jì)界面的代碼Private Sub Command1_Click()Text1.Text = Text1.Text + Text3(0).Text + Space(13) + Text4(0).Text + Space(19) + Text5(0).Text + vbCrLfText3(0).Text = ""Text4(0).Text = ""Text5(0).Text = ""Open "d:2012年三月出庫(kù).txt" Fo

35、r Output As #1 '寫(xiě)入 Print #1, Text1.TextClose #1End SubPrivate Sub Command2_Click()進(jìn)庫(kù)出庫(kù)管理.ShowEnd SubPrivate Sub Command3_Click()mainform.ShowEnd SubPrivate Sub Command4_Click()Text2.Text = Text2.Text + Text3(1).Text + Space(13) + Text4(1).Text + Space(19) + Text5(1).Text + vbCrLfText3(1).Text =

36、""Text4(1).Text = ""Text5(1).Text = ""Open "d:2012年三月進(jìn)庫(kù).txt" For Output As #1 '寫(xiě)入 Print #1, Text2.TextClose #1End SubPrivate Sub Form_Load()Dim InputData As String * 1Open "d:2012年三月出庫(kù).txt" For Input As #1Do While Not EOF(1) InputData = Input(1,

37、#1) Text1.Text = Text1.Text + InputDataLoopClose #1Dim strline As StringOpen "d:2012年三月進(jìn)庫(kù).txt" For Input As #1Do While Not EOF(1) strline = Input(1, #1) Text2.Text = Text2.Text + strlineLoopClose #1End SubPrivate Sub Text1_Change()Text1.SelStart = Len(Text1.Text)End SubPrivate Sub Text2_Ch

38、ange()Text2.SelStart = Len(Text2.Text)End Sub這是按年進(jìn)行賬目和物品統(tǒng)計(jì)界面的代碼Private Sub Command2_Click()mainform.ShowEnd SubPrivate Sub Command3_Click()Text1.Text = Text2.Text + vbCrLf + Text3.Text + vbCrLf + Text4.Text + vbCrLf + Text5.Text + vbCrLf + Text6.Text + vbCrLf + Text7.Text + vbCrLf + Text8.Text + vbC

39、rLf + Text9.Text + vbCrLf + Text10.Text + vbCrLf + Text11.Text + vbCrLfOpen "d:2012年出庫(kù)總表.txt" For Output As #1 '寫(xiě)入 Print #1, Text1.TextClose #1End SubPrivate Sub Form_Load()Dim InputData As String * 1Open "d:2012年三月出庫(kù).txt" For Input As #1Do While Not EOF(1) InputData = Input(

40、1, #1) Text2.Text = Text2.Text + InputDataLoopClose #1Open "d:2012年四月出庫(kù).txt" For Input As #1Do While Not EOF(1) InputData = Input(1, #1) Text3.Text = Text3.Text + InputDataLoopClose #1Open "d:2012年五月出庫(kù).txt" For Input As #1Do While Not EOF(1) InputData = Input(1, #1) Text4.Text = Text4.Text + InputDataLoopClose #1Open "d:2012年六月出庫(kù).txt" For Input As #1Do While Not EOF(1) InputData = Input(1, #1) Text5.Text = Text5.Text + InputDataLoopClose #1Open "d:2012年七月出庫(kù).txt" For Input As #1Do While Not EOF(1) InputData = Input