仓管会计自己账目管理系统(自动保存).doc

仓库管理会计管理系统软件开发武谨摘要：会计是以货币为主要计量单位，以提高经济效益为主要目标，对企业，机关，事业单位和其他组织的经济活动进行全面，综合，连续，系统地核算和监督，并随着社会经济的日益发展，逐步开展预测、决策、控制和分析的一种经济管理活动，是经济管理活动的重要组成部分，会计可以分为很多种类，例如总帐会计、往来会计、成本会计、材料会计等，在这里我们主要说的是仓管会计，很多公司会计和仓管是不分开的，是有一个人承担，他的职责是对进出库货物进行清点记录并进行账目核算，随着现代化生产的迅速发展，经济管理水平的提高，电子计算机技术广泛应用于会计核算，使会计信息的搜集、分类、处理、反馈等操作程序摆脱了传统的手工操作，大大地提高了工作效率，实现了会计科学的根本变革.现在我们用vb6.0开发出仓管会计账目管理系统会给会计带来很大方便，只需要输入信息，系统就会自动的进行统计，核算和存档，也可以很方便的进行查询。关键词：会计，仓管会计，账目管理系统，统计，经济管理活动，vb6.0。The software development of Warehousing accounting management systemAbstract:Accounting is based on the currency as the main unit of measurement to enhance economic 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, 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, accounting 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 information 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 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.会计是以货币为主要计量单位，以提高经济效益为主要目标，运用专门方法对企业，机关，事业单位和其他组织的经济活动进行全面，综合，连续，系统地核算和监督，提供会计信息，并随着社会经济的日益发展，逐步开展预测、决策、控制和分析的一种经济管理活动，是经济管理活动的重要组成部分。1对会计的认识会计的对象是指会计所核算和监督的内容，即特定主体能够以货币表现的经济活动。以货币表现的经济活动通常又称为价值运动或资金流动。资金运动包括特定主体的资金投入、资金运用和资金退出等过程。 会计的基本职能包括进行会计核算和实施会计监督两个方面： 1）会计核算职能是指主要运用货币计量形式，通过确认、计量、记录和报告，从数量上连续、系统和完整的反映各个单位的经济活动情况，为加强经济管理和提高经济效益提供会计信息。 2）会计监督职能是指对特定主体经济活动和相关会计核算的合法性、合理性进行审查。会计的作用是加强经济核算，为企业经营管理提供数据；保证企业投入资产的安全和完善；为投资者提供财务报告，以便于投资者进行正确的投资决策。会计按其报告的对象不同可分财务会计(对外报告会计)和管理会计(对内报告会计)两部分。财务会计：编制财务报表，为企业内部和外部用户提供信息。财务会计的信息是提供广泛的用户。其重点在于报告财务状况和营运状况。管理会计：主要是对企业的管理层提供信息，作为企业内部各部门进行决策的依据。没有标准的模式、不受会计准则的控制。按行业分为：工业企业会计、商品流通会计、 金融证券会计、保险企业会计、 施工企业会计、房地产业会计、邮电通讯会计、农业企业会计、旅游餐饮会计、医疗卫生会计、交通运输会计、文化教育会计、物业管理会计、行政事业会计、上市公司会计、物流企业会计、连锁经营会计、出版印刷会计、私营企业会计、小企业会计(制造业) 会计、小企业会计(商业)会计、电力企业会计、煤炭企业会计、钢铁企业会计、 石油化工会计、汽车行 业会计、烟草企业会计、酒类企业会计、食品企业会计、药品企业会计、加工制造会计、轻工纺织会计、外经外贸会计、信息咨询服务业会计、广告服务会计、房屋中介服务会计、市场（农贸、五金、批发、建材、服装等）会计、个人独资企业会计、高新技术企业会计、软件及集成电路会计。按工作内容分为：总帐会计、往来会计、成本会计、材料会计等。按工作范围分为：公共会计、私用会计、政府会计。2现代会计现代会计是商品经济的产物。14、15世纪，由于欧洲资本主义商品货币经济的迅速发展，促进了会计的发展。其主要标志：一是利用货币计量进行价值核算；二是广泛采用复式记帐法，从而形成现代会计的基本特征和发展基石。20世纪以来，特别是第二次世界大战结束后，资本主义的生产社会化程度得到了空前的发展，现代科学技术与经济管理科学的发展突飞猛进。受社会政治、经济和技术环境的影响，传统的财务会计不断充实和完善，财务会计核算工作更加标准化、通用化和规范化。与此同时，会计学科在20世纪30年代成本会计的基础上，紧密配合现代管理理论和实践的需要，逐步形成了为企业内部经营管理提供信息的管理会计体系，从而使会计工作从传统的事后记账、算账、报账，转为事前的预测与决策、事中的监督与控制、事后的核算与分析。管理会计的产生与发展，是会计发展史上的一次伟大变革，从此，现代会计形成了财务会计和管理会计两大分支。随着现代化生产的迅速发展，经济管理水平的提高，电子计算机技术广泛应用于会计核算，使会计信息的搜集、分类、处理、反馈等操作程序摆脱了传统的手工操作，大大地提高了工作效率，实现了会计科学的根本变革. 从不同角度考察会计，可对会计本质得出不同的认识。这些认识可概括为：(1)会计是反映和监督物质资料生产过程的一种方法，是管理经济的工具。(2)会计是一个收集、处理和输送经济信息的信息系统。(3)会计是通过收集处理和利用经济信息，对经济活动进行组织、控制、调节和指导，促使人们比较分析，讲求经济效益的一种以价值活动为对象的管理活动。早期的会计包括审计。习惯上，对担任会计工作的专业人员简称为会计，有时把会计作为会计学的同义语。3仓管会计的职责现在在很多企业，特别是中小型企业中，仓管和会计是有一个人来承担的，因为在实际工作中, 会计与库管是有联系的,并且是有紧密的联系，会计中的资产项下的材料核算可以分三级帐来管理,说个具体的例子, 可能更直观一点，如果是个大型的公司,仓库的材料应由两个岗位完成, 一个是负责计录库存保管帐的,一个是具体管理实物的,小型的公司这两个职位由一个人来完成,就是自已管保管帐自已管实物,这个统称为第三级财务账,那么第一级材料账在公司的总帐会计那里负责,第二级材料账由财务部的材料会计负责,每月到月终结账时, 由二级材料账会计负责与库房的保管账进行核对,看是否两账相等,如果不想等要先找原因再调制调节表, 就有些类银行存款余额调节表的样子。知道他们的联系之后，我们还要清楚如果仓管和会计由一个人来做，那么他一定要知道仓管和会计是怎么来对账的，这个问题是实际工作中经常困扰会计和老板的问题，大部分单位都存在，在这里我就简单介绍一下：1）一般来说如果单位库存和材料（以下简称为材料）品种很多的情况下，会计只做总金额和总数量（每个品种一个总数量），仓管只做材料数量的进销存就可以了，每月会计和仓管对账，哪种材料数量不一样，就直接查这一种材料变动的明细。定期或不定期盘点材料实物，看帐实是否相符。2）如果单位材料品种少，可以记材料的进销存数量金额明细帐，月底和仓管的材料数量帐对照。3）如果单位材料品种多，老板又要你做材料帐通常做数量金额式的，也便于你和总金额对照，那要看你有没有精力去做，因为材料帐是最烦琐最占人力的。如果是大公司的话，可由专人记材料帐。总之：仓管可以做材料数量的进销存帐，会计做材料数量金额式的明细帐。最关键的是：无论采用哪种方法，都要定期盘点，（帐实相符才是老板最想要的）并将盘点结果上报给老板，以便找出原因和处理，优柔寡断只能让老板将材料短少的原因归结到会计没有控制好。现在这所有的工作都要有仓管会计一个人来完成。简单的来概括一下仓管会计的工作就是除了看好货物，不短少，保护完整，保证货物不影响正常使用，对出进的情况及时汇报，每月写分析，注意保质期，核对仓库的数量和财务账上数量是否一致。最好再根据出库单和入库单抽查一下仓库的明细账，看看登记是否准确，就是按照明细登记出入库的数量和金额，既可以核查仓库的数据，也可以间接核查财务账上的金额，对成本核算也有好处，差异要查找原因。4会计账目管理系统中涉及到的一些概念4.1账户账户是分门别类地反映和控制会计项目的工具。设置和运用账户是连续地归类记录经济业务数据,从而提供各要素项目的动态和状况所使用的专门方法。4.2财产清查 财产清查是核实货币及实物资产账实是否相符所使用的专门方法。 4.3编制会计报表 会计报表是总括反映价值运动过程及其结果的报告文件。编制会计报表是系统地提供会计信息所使用的专门方法。4.4会计期间如何将企业连续的经济活动以阶段成果形式反映出来，及时地为企业、政府及所有者提供企业经济和经营状况的信息，这就涉及到会计期间划分问题。企业会计准则规定：“会计核算应当划分会计期间，分期结算账目和编制会计报表。会计期间分为年度、季度和月份，年度、季度和月份的起讫日期采用公历日期。”4.5总分类账户与明细分类账户的关系 总分类账户对明细分类账户具有统驭控制作用；明细分类账户对总分类账户具有补充说明作用。总分类账户与其所属明细分类账户在总金额上应当相等。 4.6总分类账户与明细分类账户的平行登记 平行登记是指对所发生的每项经济业务事项，都要以会计凭证为依据，一方面记入有关总分类账户，另一方面记入有关总分类账户所属明细分类账户的方法。 总分类账户与明细分类账户平行登记要求做到：所依据会计凭证相同、借贷方向相同、所属会计期间相同、计入总分类账户的金额与计入其所属明细分类账户的合计金额相等。5仓库管理会计账目管理系统介绍Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。这款专门为仓管会计设计开发的管理系统就是用vb6.0来制作的，对于会计人员，这款软件很容易上手，学起来相当容易，当会计人员掌握了vb6.0以后就可以随时根据自己的需要进行修改。一下就是我们的制作过程和主要编程代码。该系统可以帮助仓管会计统计每天每月的进出库情况，并且可以进行数量和金额的统计工作，还可以按月按年进行查询和核对，核算，既有明细账还有总账。另外还可以进行财产清算和自动生成账目报表以及报表的打印。以下是该系统的主要界面：该界面是供仓管会计登录用的，只有知道密码才能进入，这样可以保证安全和保密性。该界面包含了系统的所有功能，下面将会逐一介绍上图中反映了第一个菜单的内容就是进出库管理以及退出，进出库管理中包含内容如下图所示： 这是进出库管理的第一级界面主要用来选择对具体的那个月份进行操作，当点击月份是将会出现下第二级界面：该界面中需要仓管会计输入相关的信息即可，输入完毕后点击保存即可，有电脑自动进行保存与统计。统计完毕后点击返回相应的界面。这是查询菜单，该菜单主要提供进出库账目的查询工作，选择想要查询的月份即可进入该月的统计界面，参看上图。该菜单提供按年度查询与统计工作，可以方便的查询一年的进出库账目以及货物情况，并且自动生成报表。其主界面如下图所示：当点击查看按钮时将会把一年中的进出库情况统计在右面的窗口内，方便查看，再点击查看的同时一年的报表就会产生并保存在相应的文件夹中，需要时可以进行打印。以上就是该系统的主要操作过程。该系统适用vb6.0制作的，源代码如下所示：这是登录界面的代码：Private Sub Command1_Click()password = 555000# If Txtpassword.Text = password And Trim(password) = 555000 Then mainform.Show Me.Hide Else MsgBox 输入的密码有误,请重新输入! End If Txtpassword = End SubPrivate Sub Command2_Click() Unload 登录End SubPrivate Sub Form_Load()登录.Caption = 登录 Operater1 = 无 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 Txtpassword.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年出库总表_Click()二零一二年出库统计.ShowEnd SubPrivate Sub M_2012年进库总表_Click()二零一二年进库统计.ShowEnd SubPrivate Sub M_2013年出库总表_Click()二零一三年出库统计.ShowEnd SubPrivate Sub M_2013年进库总表_Click()二零一三年进库统计.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月_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(退出前请确定数据是否保存!, 1 + 32) If aa = 1 Then EndEnd SubPrivate Sub M_FindDate_Click()按日期查.ShowEnd SubPrivate Sub M_InoutStorehouse_Click()进库出库管理.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 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 Integer)零三年四月.ShowEnd SubPrivate Sub M_五月_Click(Index As Integer)零三年五月.ShowEnd SubPrivate Sub M_一月_Click(Index As Integer)零三年一月.ShowEnd Sub这是进出库管理界面的代码Private Sub Command3_Click()Open d:fafa.dat For Output As #1 写入 Print #1, Text1.Text Print #1, Text2.TextClose #1End SubPrivate Sub Command1_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()零二年七月.ShowEnd 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_Click()零三年二月.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 Label24_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 Sub Label9_Click()零二年六月.ShowEnd Sub这是其中一个月的统计界面的代码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年三月出库.txt For Output As #1 写入 Print #1, Text1.TextClose #1End SubPrivate Sub Command2_Click()进库出库管理.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 = Text4(1).Text = Text5(1).Text = Open d:2012年三月进库.txt For Output As #1 写入 Print #1, Text2.TextClose #1End SubPrivate Sub Form_Load()Dim InputData As String * 1Open d:2012年三月出库.txt For Input As #1Do While Not EOF(1) InputData = Input(1, #1) Text1.Text = Text1.Text + InputDataLoopClose #1Dim strline As StringOpen d:2012年三月进库.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_Change()Text2.SelStart = Len(Text2.Text)End Sub这是按年进行账目和物品统计界面的代码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 + vbCrLf + Text9.Text + vbCrLf + Text10.Text + vbCrLf + Text11.Text + vbCrLfOpen d:2012年出库总表.txt For Output As #1 写入 Print #1, Text1.TextClose #1End SubPrivate Sub Form_Load()Dim InputData As String * 1Open d:2012年三月出库.txt For Input As #1Do While Not EOF(1) InputData = Input(1, #1) Text2.Text = Text2.Text + InputDataLoopClose #1Open d:2012年四月出库.txt For Input As #1Do While Not EOF(1) InputData = Input(1, #1) Text3.Text = Text3.Text + InputDataLoopClose #1Open d:2012年五月出库.txt For Input As #1Do While Not EOF(1) InputData = Input(1, #1) Text4.Text = Text4.Text + InputDataLoopClose #1Open d:2012年六月出库.txt For Input As #1Do While Not EOF(1) InputData = Input(1, #1) Text5.Text = Text5.Text + InputDataLoopClose #1Open d:2012年七月出库.txt For Input As #1Do While Not EO