frm_gatheringbill.frm

这是个进销存管理系统

         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         _Version        =   393216
      End
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "收款金额："
      Height          =   180
      Left            =   2445
      TabIndex        =   15
      Top             =   1860
      Width           =   900
   End
End
Attribute VB_Name = "frm_gatheringBill"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商业用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费下载，必须经过吉林省明日科技有限公司授权，并保证程序的完整（不得修改代码、注释和相关内容），否则，我公司将追究其法律责任。
'《Visual Basic编程词典》软件是由吉林省明日科技有限公司开发的面向程序员和编程爱好者的技术最全、案例最多和使用最方便的Visual Basic编程技术词典。它包含30个实际项目的开发过程和源码（每月新增加一个实际开发项目源码）；最完整、最全面、最实用的函数、控件和基础技术大全；上千个编程技巧和几百个典型实例；同时还提供了编程中所需的各种素材和资源。价值无限，服务无限。技术服务及升级请访问www.cccxy.com
'《Visual Basic编程词典》是各级编程人员不可缺少的编程技术资源管理软件。如果您是初学者，本软件提供了大量实例、项目的源码及其详尽、完整的开发过程文档和技术说明文件，同时还配有各方面的学习录像，让您快速入门，快速精通；如果您是编程设计高手，本软件提供了大量编程技巧、源码速查和全方位的技术资源，让您轻松编程、轻松赚钱。
'《Visual Basic编程词典》软件是软件开发商和软件服务商的资源宝库，它提供了几十个实际项目案例的项目源码、软件升级和有限服务支持，同时每月还提供新的行业软件，让您用最好、最多的软件资源开拓您的软件市场，创造更多的利润空间。价值无限，服务无限。技术服务及升级请访问www.cccxy.com
'《Visual Basic编程词典》对所有源码项目的实例的开发过程和代码功能都作了详细说明，让您真正融会贯通，迅速提高编程本领。
'如果您在使用《Visual Basic编程词典》中有疑问或好的建议，请访问我公司"编程词典"技术服务网站www.cccxy.com或拨打我公司电话[phone]），我们愿为广大编程者提供最好的产品和最佳的服务。对于提出好的建议的读者，我们将给与奖励，详情请访问www.cccxy.com。
'吉林省明日科技有限公司 www.mingrisoft.com  www.cccxy.com  价值无限，服务无限
'[phone],4978982

Private Sub CmdAdd_Click()
  'ADO控件的RecordSource执行SQL语句
  Adodc1.RecordSource = "select * from tb_gathering"
  Adodc1.Refresh
  For i = 0 To Text1.Count - 2
      If Text1(i).Text = "" Then MsgBox "‘经手人’和‘付款单位’不能为空！": Exit Sub
  Next i
  '收款金额不能为空。
  If Text2.Text = "" Then
     MsgBox "收款金额不能为空！"
     Exit Sub
  End If
  '添加收款主要信息到收款信息表   '注意:将日期格式化为长日期型，否则在另一台计算机（短日期）执行会出错。
  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields("billdate").Value = Format(DTPicker1.Value, "yyyy-mm-dd")   '长日期格式
  Adodc1.Recordset.Fields("billcode").Value = Text1(0).Text
  Adodc1.Recordset.Fields("units").Value = Text1(1).Text
  Adodc1.Recordset.Fields("handle").Value = Text1(2).Text
  Adodc1.Recordset.Fields("summary").Value = Text1(3).Text
  Adodc1.Recordset.Fields("gathering").Value = Val(Text2.Text)
  Adodc1.Recordset.Update
   '开始向，往来帐明细表中录入数据
   adoCount.RecordSource = "select * from tb_currentaccount"
   adoCount.Refresh
   adoCount.Recordset.AddNew
   adoCount.Recordset.Fields("billdate") = DTPicker1.Value
   adoCount.Recordset.Fields("billcode") = Text1(0).Text
   adoCount.Recordset.Fields("summary") = Text1(3).Text
   adoCount.Recordset.Fields("factaddfee") = Text2.Text
   adoCount.Recordset.Fields("units") = Text1(1).Text
   adoCount.Recordset.Update
 
   '开始向,往来单位，列入应付款
   On Error GoTo zhang:  '表中无数据,因为在DataGride控件中已经将记录指定 该单位
   Dim payment As Single
     payment = AdoUnits.Recordset.Fields("gathering")
     AdoUnits.Recordset.Fields("gathering") = Val(Text2.Text) + payment
     AdoUnits.Recordset.Update
zhang:
   MsgBox "收款成功！"
   frm_main.Enabled = True
   Unload Me
End Sub
Private Sub DataGrid1_DblClick()
  Text1(2).Text = AdoEmploy.Recordset.Fields(1)
  DataGrid1.Visible = False
End Sub
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
 '13为键盘上的"回车键"
'关于本常数的详细说明或实例参见《Visual Basic编程词典》基础知识部分，该部分对所有常数都有详细语法说明。
'吉林省明日科技有限公司愿为您提供最实用、最全面、最完整和最方便的编程技术和开发资源，同时为您提供最周到的技术支持和服务。
'技术支持及升级请访问www.cccxy.com   www.mingrisoft.com   价值无限，服务无限
  If KeyCode = 13 Then
     Text1(2).Text = AdoEmploy.Recordset.Fields(1)
     Text1(1).SetFocus   '使控件获得焦点
     DataGrid1.Visible = False
  End If
End Sub
Private Sub DataGrid2_DblClick()
   On Error Resume Next     '表中无数据时
  Text1(1).Text = AdoUnits.Recordset.Fields(1)
  DataGrid2.Visible = False
End Sub

Private Sub DataGrid2_KeyDown(KeyCode As Integer, Shift As Integer)
 '13为键盘上的"回车键"
'关于本常数的详细说明或实例参见《Visual Basic编程词典》基础知识部分，该部分对所有常数都有详细语法说明。
'吉林省明日科技有限公司愿为您提供最实用、最全面、最完整和最方便的编程技术和开发资源，同时为您提供最周到的技术支持和服务。
'技术支持及升级请访问www.cccxy.com   www.mingrisoft.com   价值无限，服务无限
   If KeyCode = 13 Then
     Text1(1).Text = AdoUnits.Recordset.Fields(1)
     Text1(3).SetFocus   '使控件获得焦点
     DataGrid2.Visible = False
  End If
End Sub

Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
  'VbKeyReturn常数为键盘上的"回车键"
  '关于本常数的详细说明或实例参见《Visual Basic编程词典》基础知识部分，该部分对所有常数都有详细语法说明。
  '吉林省明日科技有限公司愿为您提供最实用、最全面、最完整和最方便的编程技术和开发资源，同时为您提供最周到的技术支持和服务。
  '技术支持及升级请访问www.cccxy.com   www.mingrisoft.com   价值无限，服务无限

  If KeyCode = vbKeyReturn Then Text1(2).SetFocus   '使控件获得焦点
End Sub

Private Sub Form_Activate()
  Text1(0).SetFocus   '使控件获得焦点
End Sub
Private Sub Form_Load()
  'ADO控件的RecordSource执行SQL语句
  Adodc1.RecordSource = "select * from tb_gathering order by billcode"
  Adodc1.Refresh
  If Adodc1.Recordset.RecordCount > 0 Then
     Adodc1.Recordset.MoveLast
  '使用Format函数将日期格式化为长日期格式
  '关于Format函数的详细说明或实例参见《Visual Basic编程词典》软件函数应用部分，该部分对所有函数都有详细语法说明和最实用的应用实例。
'吉林省明日科技有限公司愿为您提供最实用、最全面、最完整和最方便的编程技术和开发资源，同时为您提供最周到的技术支持和服务。
'技术支持及升级请访问www.cccxy.com   www.mingrisoft.com   价值无限，服务无限
     Text1(0).Text = Format(Now, "yyyymmdd") & "SK" & Left(Mid(Adodc1.Recordset.Fields(1), 11, 17), 7) + 1
  Else
     Text1(0).Text = Format(Now, "yyyymmdd") & "SK1000001"
  End If
  DTPicker1.Value = Format(Now, "yyyy-mm-dd")
  
End Sub

Private Sub Form_Unload(Cancel As Integer)
  frm_main.Enabled = True
End Sub
Private Sub Text1_DblClick(Index As Integer)
Select Case Index          '根据Text1索引值来判断，双击的是那一个文本控件
       Case 1:
            'ADO控件的RecordSource执行SQL语句
             AdoUnits.RecordSource = "select * from tb_units where fullname like'" + Text1(1).Text + "%'or spell like'%" + Text1(1).Text + "%'"
             AdoUnits.Refresh
             If AdoUnits.Recordset.RecordCount > 0 Then
                DataGrid2.Visible = True
             Else
               'ADO控件的RecordSource执行SQL语句
               AdoUnits.RecordSource = "select * from tb_units "
               AdoUnits.Refresh
               DataGrid2.Visible = True
             End If
       Case 2:
             AdoEmploy.RecordSource = "select * from tb_employ where fullname like'" + Text1(2).Text + "%'"
             AdoEmploy.Refresh
             If AdoEmploy.Recordset.RecordCount > 0 Then
                DataGrid1.Visible = True
             Else
               'ADO控件的RecordSource执行SQL语句
               AdoEmploy.RecordSource = "select * from tb_employ "
               AdoEmploy.Refresh
               DataGrid1.Visible = True
             End If
 End Select
End Sub

'《Visual Basic编程词典》软件是由吉林省明日科技有限公司开发的面向程序员和编程爱好者的技术最全、案例最多和使用最方便的Visual Basic编程技术词典。它包含30个实际项目的开发过程和源码（每月新增加一个实际开发项目）；最完整、最全面、最实用的函数、控件和基础技术大全；上千个编程技巧和几百个典型实例；同时还提供了编程中所需的各种素材和资源。价值无限，服务无限。技术服务及升级请访问www.cccxy.com , 电话：[phone]
'《Visual Basic编程词典》软件源码项目部分对所有代码都作了详细的注释和说明，同时提供了所有源码项目详尽、完整的开发过程文档和录像。技术支持及升级请访问www.cccxy.com   电话：[phone]
'《Visual Basic编程词典》对所有实例的开发过程和设计思路都作了详细的介绍。技术支持及升级请访问www.cccxy.com   电话：[phone]
'如果您在使用《Visual Basic编程词典》中有疑问或好的建议，请访问我公司"编程词典"技术服务网站www.cccxy.com或拨打我公司电话[phone]），我们愿为广大编程者提供最好的产品和最佳的服务。对于提出好的建议的读者，我们将给与奖励，详情请访问www.cccxy.com。

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 '13常数为键盘上的"回车键"
'关于本常数的详细说明或实例参见《Visual Basic编程词典》基础知识部分，该部分对所有常数都有详细语法说明。
'吉林省明日科技有限公司愿为您提供最实用、最全面、最完整和最方便的编程技术和开发资源，同时为您提供最周到的技术支持和服务。
'技术支持及升级请访问www.cccxy.com   www.mingrisoft.com   价值无限，服务无限
  If KeyCode = 13 Then
     Select Case Index       '当按回车键时，根据数组Text的索引值（Index）来判断，在某个Text控件按下的回车键
            Case 0: DTPicker1.SetFocus   '使控件获得焦点
            Case 1:
                 'ADO控件的RecordSource执行SQL语句
                  AdoUnits.RecordSource = "select * from tb_units where fullname like'" + Text1(1).Text + "%'and spell like'%" + Text1(1).Text + "%'"
                  AdoUnits.Refresh
                  If AdoUnits.Recordset.RecordCount > 0 Then
                     DataGrid2.Visible = True
                     If DataGrid2.Visible Then DataGrid2.SetFocus   '使控件获得焦点
                  Else
                    'ADO控件的RecordSource执行SQL语句
                    AdoUnits.RecordSource = "select * from tb_units "
                    AdoUnits.Refresh
                    DataGrid2.Visible = True
                    If DataGrid2.Visible Then DataGrid2.SetFocus   '使控件获得焦点
                  End If
            Case 2:
                  'ADO控件的RecordSource执行SQL语句
                  AdoEmploy.RecordSource = "select * from tb_employ where fullname like'" + Text1(2).Text + "%'"
                  AdoEmploy.Refresh
                  If AdoEmploy.Recordset.RecordCount > 0 Then
                     DataGrid1.Visible = True
                     If DataGrid1.Visible Then DataGrid1.SetFocus   '使控件获得焦点
                  Else
                    'ADO控件的RecordSource执行SQL语句
                    AdoEmploy.RecordSource = "select * from tb_employ "
                    AdoEmploy.Refresh
                    DataGrid1.Visible = True
                    If DataGrid1.Visible Then DataGrid1.SetFocus   '使控件获得焦点
                  End If
            Case 3: Text2.SetFocus   '使控件获得焦点
     End Select
  End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then SendKeys "{TAB}"
End Sub
'版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商业用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费下载，必须经过吉林省明日科技有限公司授权，并保证程序的完整（不得修改代码、注释和相关内容），否则，我公司将追究其法律责任。
'《Visual Basic编程词典》软件是由吉林省明日科技有限公司开发的面向程序员和编程爱好者的技术最全、案例最多和使用最方便的Visual Basic编程技术词典。它包含30个实际项目的开发过程和源码（每月新增加一个实际开发项目源码）；最完整、最全面、最实用的函数、控件和基础技术大全；上千个编程技巧和几百个典型实例；同时还提供了编程中所需的各种素材和资源。价值无限，服务无限。技术服务及升级请访问www.cccxy.com
'《Visual Basic编程词典》是各级编程人员不可缺少的编程技术资源管理软件。如果您是初学者，本软件提供了大量实例、项目的源码及其详尽、完整的开发过程文档和技术说明文件，同时还配有各方面的学习录像，让您快速入门，快速精通；如果您是编程设计高手，本软件提供了大量编程技巧、源码速查和全方位的技术资源，让您轻松编程、轻松赚钱。
'《Visual Basic编程词典》软件是软件开发商和软件服务商的资源宝库，它提供了几十个实际项目案例的项目源码、软件升级和有限服务支持，同时每月还提供新的行业软件，让您用最好、最多的软件资源开拓您的软件市场，创造更多的利润空间。价值无限，服务无限。技术服务及升级请访问www.cccxy.com
'《Visual Basic编程词典》对所有源码项目的实例的开发过程和代码功能都作了详细说明，让您真正融会贯通，迅速提高编程本领。
'如果您在使用《Visual Basic编程词典》中有疑问或好的建议，请访问我公司"编程词典"技术服务网站www.cccxy.com或拨打我公司电话[phone]），我们愿为广大编程者提供最好的产品和最佳的服务。对于提出好的建议的读者，我们将给与奖励，详情请访问www.cccxy.com。
'吉林省明日科技有限公司 www.mingrisoft.com  www.cccxy.com  价值无限，服务无限
'[phone],4978982