VB513 基于VB中佰仓储往来帐目管理系统

随着我国信息产业发展迅速以及中国加入世界贸易组织，国内仓储公司往来之间以及与外国仓储公司往来之间的竞争也越来越激烈，怎样发展业务以吸引更多顾客是各仓储公司往来面队的当务之急。
而帐目管理是仓储往来公司业务流程过程中十分重要且必备的环节之一，在其业务流程当中起着相当重要的作用。现在仓储往来公司的业务越来越多，吸引的客户也越来越多,仓储公司往来帐目的管理就越显重要。
仓储公司往来帐目管理系统是针对仓储公司公司往来帐目的日常管理而设计。仓储公司往来帐目管理系统不仅要求操作方便而且要求界面简洁，它还需要实现帐目管理，用户查询和查询统计功能。
针对上述情况和要求，采用软件工程的开发原理，依据软件流程过程规范，按照需求分析、概要设计、详细设计、程序编码、测试等过程开发了一个仓储公司往来账目管理系统。采用VB6.0作为编程语言，使用工具SQL Sever数据库设计实现了仓储公司往来帐目管理系统，完成系统管理、帐目管理、查询统计、用户查询等功能。 copyright think58 [资料来源：http://THINK58.com]

通过与仓储公司往来工作人员交流了解：随着仓储公司往来业务的推陈出新以及这些业务为客户带来的便利，使仓储公司往来吸引了越来越多的客户，一切都使仓储公司往来帐目的管理越来越重要。
仓储公司往来帐目管理系统是针对仓储公司往来帐目的日常管理而设计。仓储公司往来操作系统不仅要求操作方便而且要求界面简洁，它需要实现帐目管理，用户查询和查询统计等几个功能。包括支付管理、收款管理、现金管理、客户管理、查询管理、用户管理等功能。用户可以通过不同的方式来查询需要的信息。
通过该系统的设计实现，使仓储公司往来部门更好地进行业务管理，为客户提供更佳优质的服务。
2.2 用户对系统的期望
仓储公司往来对帐目管理系统的要求主要有以下几个方面：
1. 系统能够完成仓储公司往来帐目管理系统的主要功能；
2. 系统界面简洁，容易操作；
3. 具有一定的稳定性，安全性；
4. 访问速度快。
2.3 编程语言和运行环境介绍
仓储公司往来帐目管理系统采用VB6.0语言进行编程。VB6.0语言是一种在WINDOWS平台上所使用的程序是具有图形界面的,使用图形界面，使用户感到形象、生动，具有吸引力，一扫以往应用程序界面枯燥单调的感觉。在WINDOWS环境下设计具有图形界面的应用程序，如果用传统的高级语言进行，工作量将十分巨大，其中绝大部分的工作量花在界面设计上（用程序语句在屏幕上画出所需的界面），Visual Basic和其它可视化工具的出现，使应用程序的设计进入了一个新的阶段。

think58.com [资料来源：http://www.THINK58.com]

Visual Basic是MICROSOFT公司推出的程序设计语言，具有功能强大、软件费用支出低、见效快等特点。它提供了开发WINDOWS应用程序最迅速、最简捷的方法。 copyright think58 [资料来源：http://THINK58.com]

实现的主要代码如下：
Private Sub cxgl_Click()
Frmcx.Show
End Sub
Private Sub khgl_Click()
 Frmkh.Show
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
Set Cnn = Nothing
End Sub
Private Sub skgl_Click()
Frmsk.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 Select Case Button
        Case "支付管理"
            Frmzf.Show
        Case "收款管理"
            Frmsk.Show
        Case "现金管理"
            Frmxj.Show
        Case "客户管理"
            Frmkh.Show
        Case "用户管理"
            Frmyonghu.Show 内容来自think58 [资料来源：www.THINK58.com]
        Case "查询管理"
            Frmcx.Show
        Case "退出"
            End
    End Select
End Sub
4.2 功能界面的设计
4.2.1 支付管理功能的实现
支付功能是支付方支付款记录的一个界面，可以即时记录支付方及收款方的姓名、支付金额、支付日期、支付说明、支付方式、支付状态、支付单号等信息，也可以进行以上诸种信息的新增、修改、删除等操作，在该界面上还可以查看所有已支付的单、将支付的单等信息，界面如下： 本文来自think58 [资料来源：THINK58.com]

Private Sub Command5_Click()
Adodc1.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=zmgl"
Adodc1.RecordSource = "select * From zf where 支付状态='未支付'"
Adodc1.Refresh
End Sub
Private Sub DataGrid1_Click()
If yf = 1 Or yf = 2 Then Exit Sub
    For i = 0 To 5
    Text1(i) = DataGrid1.Columns(i + 1)
    Next i
    Text2 = DataGrid1.Columns(0)
        DTPicker1.Value = DataGrid1.Columns(7)
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=zmgl"
Adodc1.RecordSource = "select * From zf"
Adodc1.Refresh
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button
Case "新增"
    For i = 0 To 5
        Text1(i) = ""
    Next i
    Text1(5) = "未支付"

本文来自think58

    Text2 = ""
    Text1(0).SetFocus
    Command1.Enabled = True
    Command2.Enabled = True
    yf = 1
Case "修改"
    If Text2 = "" Then
        MsgBox "请选择要修改的支付单号", vbCritical, "警告"
    Else
        Command1.Enabled = True
        Command2.Enabled = True
        Text2.SetFocus
        yf = 2
    End If
Case "删除"
'On Error Resume Next
   Rst.Open "select * From zf where 编号='" + Trim(Text2) + "'", Cnn, adOpenKeyset, adLockOptimistic
    If Text2 = "" Then
        MsgBox "请选择要删除的支付单！", vbCritical, "警告"
    Else
        i = MsgBox("是否确定删除“" & Text2 & "”的支付单", vbYesNo, "提示") think58.com [资料来源：http://think58.com]
        If i = vbYes Then
           Rst.Delete
            Adodc1.Refresh
            For i = 0 To 3
                Text1(i) = ""
            Next i
        Else
            Exit Sub
        End If
    End If
   Rst.Close
Case "支付"
       If Text2 = "" Then
            MsgBox "请选择要删除的支付单！", vbCritical, "警告"
            Exit Sub
       End If

内容来自think58 [资料来源：www.THINK58.com]

             Rst.Open "select * From zf where 编号='" + Trim(Text2) + "'", Cnn, adOpenKeyset, adLockOptimistic
        If Rst.Fields("支付状态") = "已支付" Then
            MsgBox "该单已经支付过了！", , "提示"
            Rst.Close
            Exit Sub
        End If
    i = MsgBox("是否确定要马上对“" & Text2 & "”单进行支付", vbYesNo, "提示")
    If i = vbYes Then
        Rst1.Open "select * From xjgl", Cnn, adOpenKeyset, adLockOptimistic  '-打开资金管理表判断是否有足够的现金？
        If Val(Rst1.Fields("现金")) < Val(Rst.Fields("支付金额")) Then
            MsgBox "现有的资金为" + Rst1.Fields("现金") + "，不足已支付本单，请先充钱！", vbCritical, "提示" think58.com [版权所有：http://think58.com]
            Rst1.Close
            Rst.Close
            Exit Sub
        Else
            Rst1.Fields("现金") = Val(Rst1.Fields("现金")) - Val(Rst.Fields("支付金额"))
            Rst1.Update
            Rst1.Close
                        Rst.Fields("支付状态") = "已支付"
            Rst.Update
            Adodc1.Refresh
            MsgBox "支付成功！", , "提示"

think58.com [资料来源：http://www.THINK58.com]

            Rst.Close
                       For i = 0 To 3
                 Text1(i) = ""
            Next i
        End If
    Else
        Rst.Close
        Exit Sub
    End If
4.2.2 收款管理界面的设计与实现
在如图3所示的系统操作主界面单击“收款管理”按钮，进入如图7所示的收款管理界面。

[资料来源：http://think58.com]

    Adodc1.RecordSource = "select * From kh where 客户名称='" + Text1 + "'"
    Adodc1.Refresh
ElseIf Cx = 1 Then
    Adodc1.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=zmgl"
    Adodc1.RecordSource = "select * From zf where 编号='" + Text1 + "'"
    Adodc1.Refresh
ElseIf Cx = 2 Then
    Adodc1.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=zmgl"
    Adodc1.RecordSource = "select * From sk where 编号='" + Text1 + "'"
    Adodc1.Refresh
End If
End Sub
Private Sub Option1_Click()
Frame2.Caption = "输入您要查询的客户名称"
Cx = 0
Text1 = ""
Text1.SetFocus
End Sub
Private Sub Option2_Click()
Frame2.Caption = "输入您要查询的支出单号"
Cx = 1
Text1 = ""
Text1.SetFocus
End Sub
Private Sub Option3_Click()
Frame2.Caption = "输入您要查询的收款单号"
Cx = 2
Text1 = ""

think58 [资料来源：www.THINK58.com]

Text1.SetFocus

think58

[来源：http://www.think58.com]

[资料来源：THINK58.com]

参考文献
[1] Visual Basic数据库系统开发完全手册——王春才、高春燕、李俊民，人民邮电出版社，2003
[2] Visual Basic6.0基础培训百例——韩亚萍，机械工业出版社，2003
[3] Visual Basic实用培训教程——金英姿、邓少鹍，人民邮电出版社，2004
[4] Visual Basic课程设计与系统开发案例——伍俊良，清华大学出版社，2004
[5] Visual Basic课程设计案例精编——张勇等，水利水电出版社，2005
[6] Visual Basic6数据库处理-从入门到精通——王道荣、林信成 ，中国铁道出版社，2004
[7] Visual Basic 6.0高级编程——常晓波，清华大学出版社，2004
[8] Visual Basic数据库开发基础与应用——张朝昆、施丽娜，人民邮电出版社，2005
[9] Visual Basic数据库开发实例精粹——郭瑞军,唐邦民,谢晗昕，电子工业出版社，2005
[10] 软件项目开发综合实训--Visual Basic篇——王泰峰，人民邮电出版社，2005
[11] Visual Basic数据库系统项目开发实践——温小敏，科学出版社，2005
[12] Database Management Systems，Gehrke ——Raghu Ramakrishnan,Johannes，清华大学出版社，2003 copyright think58 [来源：http://think58.com]