frm_new_stemperspecbill.frm

一个公司的客户财产管理系统vb源码

End
Attribute VB_Name = "Frm_New_StemperSpecBill"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub TDBGrid_Stemper_Width_Set()
On Error GoTo err
  Dim i As Integer
  For i = 0 To 49
    Me.TDBGrid_Stemper.Splits(0).Columns(i).DividerStyle = dbgCustomColor
    Me.TDBGrid_Stemper.Splits(0).Columns(i).DividerColor = RGB(148, 190, 231)
  Next

  Me.TDBGrid_Stemper.RowDividerStyle = dbgCustomColor
  Me.TDBGrid_Stemper.RowDividerColor = RGB(148, 190, 231)

  Me.TDBGrid_Stemper.Columns(0).Width = 600
  Me.TDBGrid_Stemper.Columns(1).Width = 800
  Me.TDBGrid_Stemper.Columns(2).Width = 600
  Me.TDBGrid_Stemper.Columns(3).Width = 600
  Me.TDBGrid_Stemper.Columns(4).Width = 600
  Me.TDBGrid_Stemper.Columns(5).Width = 600
  Me.TDBGrid_Stemper.Columns(6).Width = 1200
  Me.TDBGrid_Stemper.Columns(7).Width = 2500
  Me.TDBGrid_Stemper.Columns(8).Width = 2000
  Me.TDBGrid_Stemper.Columns(9).Width = 1250
  Me.TDBGrid_Stemper.Columns(10).Width = 600
  Me.TDBGrid_Stemper.Columns(11).Width = 600
  Me.TDBGrid_Stemper.Columns(12).Width = 600
  Me.TDBGrid_Stemper.Columns(13).Width = 600
  Me.TDBGrid_Stemper.Columns(14).Width = 600
  Me.TDBGrid_Stemper.Columns(15).Width = 600
  Me.TDBGrid_Stemper.Columns(16).Width = 600
  Me.TDBGrid_Stemper.Columns(17).Width = 600
  Me.TDBGrid_Stemper.Columns(18).Width = 800
  Me.TDBGrid_Stemper.Columns(19).Width = 800
  Me.TDBGrid_Stemper.Columns(20).Width = 800
  Me.TDBGrid_Stemper.Columns(21).Width = 800
  Me.TDBGrid_Stemper.Columns(22).Width = 800
  Me.TDBGrid_Stemper.Columns(23).Width = 600
  Me.TDBGrid_Stemper.Columns(24).Width = 800
  Me.TDBGrid_Stemper.Columns(25).Width = 800
  Me.TDBGrid_Stemper.Columns(26).Width = 600
  Me.TDBGrid_Stemper.Columns(27).Width = 800
  Me.TDBGrid_Stemper.Columns(28).Width = 800
  Me.TDBGrid_Stemper.Columns(29).Width = 1000
  Me.TDBGrid_Stemper.Columns(30).Width = 1000
  Me.TDBGrid_Stemper.Columns(31).Width = 1000
  Me.TDBGrid_Stemper.Columns(32).Width = 600
  Me.TDBGrid_Stemper.Columns(33).Width = 1000
  Me.TDBGrid_Stemper.Columns(34).Width = 1000
  Me.TDBGrid_Stemper.Columns(35).Width = 600
  Me.TDBGrid_Stemper.Columns(36).Width = 600
  Me.TDBGrid_Stemper.Columns(37).Width = 600
  Me.TDBGrid_Stemper.Columns(38).Width = 600
  Me.TDBGrid_Stemper.Columns(39).Width = 1200
  Me.TDBGrid_Stemper.Columns(40).Width = 1500
  Me.TDBGrid_Stemper.Columns(41).Width = 2500
  Me.TDBGrid_Stemper.Columns(42).Width = 2500
  Me.TDBGrid_Stemper.Columns(43).Width = 800
  Me.TDBGrid_Stemper.Columns(44).Width = 800
  Me.TDBGrid_Stemper.Columns(45).Width = 600
  Me.TDBGrid_Stemper.Columns(46).Width = 800
  Me.TDBGrid_Stemper.Columns(47).Width = 800
  Me.TDBGrid_Stemper.Columns(48).Width = 800
  Me.TDBGrid_Stemper.Columns(49).Width = 800
  Me.TDBGrid_Stemper.Columns(10).NumberFormat = "#,###,###"
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Form_Activate()
Call TDBGrid_Stemper_Width_Set
End Sub

Private Sub Form_Load()
On Error GoTo err
      '将客户财产临时表清空
      Set Cn = New ADODB.Connection
      Set Rs = New ADODB.Recordset
      Cn.Open Cs
      Str_SQL = "delete from Stemper_Specbill_temp"
      Set Rs = Cn.Execute(Str_SQL)
      If Rs.State = 1 Then Rs.Close
      Cn.Close
      
      Set Cn_StemperSpecBill_Temp = New ADODB.Connection
      Set Rs_StemperSpecBill_Temp = New ADODB.Recordset
      Cn_StemperSpecBill_Temp.Open Cs
      Rs_StemperSpecBill_Temp.Open "select * from Stemper_Specbill_temp order by 规格单号,小号 ", Cn_StemperSpecBill_Temp, adOpenKeyset, adLockOptimistic, adCmdText
      Set Me.TDBGrid_Stemper.DataSource = Rs_StemperSpecBill_Temp
      Call TDBGrid_Stemper_Width_Set
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
    Str_StemperSpecBill_ConsignmentTime = ""
    Str_StemperSpecBill_SpecialRequest = ""
    
    Bln_NewStemperSpecBillRepair = False
    Bln_NewStemperSpecBillView = False
    If Rs_StemperSpecBill_Temp.State = 1 Then Rs_StemperSpecBill_Temp.Close
    Cn_StemperSpecBill_Temp.Close
    Set Rs_StemperSpecBill_Temp = Nothing
    Set Cn_StemperSpecBill_Temp = Nothing
End Sub

Private Sub TDBGrid_Stemper_DblClick()
On Error GoTo err
  If Rs_StemperSpecBill_Temp.EOF = False And Rs_StemperSpecBill_Temp.BOF = False Then
    Bln_NewStemperSpecBillRepair = False
    Bln_NewStemperSpecBillView = True
    Load Frm_New_StemperSpecBill_Edit
    Frm_New_StemperSpecBill_Edit.Show vbModal
  End If
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub TDBGrid_Stemper_FetchRowStyle(ByVal Split As Integer, Bookmark As Variant, ByVal RowStyle As TrueOleDBGrid80.StyleDisp)
On Error GoTo err
'  If Me.TDBGrid_Stemper.Columns(18).CellValue(Bookmark) >= 10000 Then RowStyle.BackColor = vbRed


Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo err
   Select Case Button.Index
         Case 3 '添加节目(Add)
             Load Frm_StemperSpecBill_AddArt
             Frm_StemperSpecBill_AddArt.Show vbModal
         Case 4 '修改节目(Repair)
          If Rs_StemperSpecBill_Temp.EOF = False And Rs_StemperSpecBill_Temp.BOF = False Then
            Bln_NewStemperSpecBillRepair = True
            Bln_NewStemperSpecBillView = False
            Load Frm_New_StemperSpecBill_Edit
            Frm_New_StemperSpecBill_Edit.Show vbModal
          End If
         Case 5 '删除节目(Delete)
          If Rs_StemperSpecBill_Temp.EOF = False And Rs_StemperSpecBill_Temp.BOF = False Then
             Rs_StemperSpecBill_Temp.Delete
             Rs_StemperSpecBill_Temp.Update
'            Set Cn = New ADODB.Connection
'            Set Rs = New ADODB.Recordset
'            Cn.Open Cs
'            Rs.Open "select * from Stemper_Specbill_temp order by 规格单号,小号 where 内编码='" & Rs_StemperSpecBill_Temp!内编码 & "'", Cn, adOpenKeyset, adLockOptimistic, adCmdText
'            Rs.Delete
'            Rs.Update
'            Rs.Close
'            Cn.Close
            Me.TDBGrid_Stemper.Close
            If Rs_StemperSpecBill_Temp.State = 1 Then Rs_StemperSpecBill_Temp.Close
            Rs_StemperSpecBill_Temp.Open "select * from Stemper_Specbill_temp order by 规格单号,小号 ", Cn_StemperSpecBill_Temp, adOpenKeyset, adLockOptimistic, adCmdText
            Set Me.TDBGrid_Stemper.DataSource = Rs_StemperSpecBill_Temp
            MsgBox "删除成功！"
            Call TDBGrid_Stemper_Width_Set
          End If
         Case 6 '查看节目(View)
          If Rs_StemperSpecBill_Temp.EOF = False And Rs_StemperSpecBill_Temp.BOF = False Then
            Bln_NewStemperSpecBillRepair = False
            Bln_NewStemperSpecBillView = True
            Load Frm_New_StemperSpecBill_Edit
            Frm_New_StemperSpecBill_Edit.Show vbModal
          End If
         Case 7 '保存规格单(Save)
          If Rs_StemperSpecBill_Temp.RecordCount <> 0 Then
            Rs_StemperSpecBill_Temp.MoveFirst
            For i = 1 To Rs_StemperSpecBill_Temp.RecordCount
              Rs_StemperSpecBill_Temp!小号 = i
              Rs_StemperSpecBill_Temp.MoveNext
            Next
            Rs_StemperSpecBill_Temp.MoveFirst
            Rs_StemperSpecBill_Temp.Update
            Frm_Whole_StemperSpecBill.TDBGrid_Stemper.Close
            Rs_StemperSpecBill_Temp.MoveFirst
            Do While Not Rs_StemperSpecBill_Temp.EOF
                If Rs_StemperSpecBill.RecordCount <> 0 Then Rs_StemperSpecBill.MoveLast
                Rs_StemperSpecBill.AddNew
                '节目下单时其他要求
                If IsNull(Rs_StemperSpecBill_Temp!规格单号) = False Then Rs_StemperSpecBill!规格单号 = Rs_StemperSpecBill_Temp!规格单号
                If IsNull(Rs_StemperSpecBill_Temp!客户名称) = False Then Rs_StemperSpecBill!客户名称 = Rs_StemperSpecBill_Temp!客户名称
                If IsNull(Rs_StemperSpecBill_Temp!订单种类) = False Then Rs_StemperSpecBill!订单种类 = Rs_StemperSpecBill_Temp!订单种类
                If IsNull(Rs_StemperSpecBill_Temp!母盘归属) = False Then Rs_StemperSpecBill!母盘归属 = Rs_StemperSpecBill_Temp!母盘归属
'                If IsNull(Rs_StemperSpecBill_Temp!合同号) = False Then Rs_StemperSpecBill!合同号 = Rs_StemperSpecBill_Temp!合同号
                If IsNull(Rs_StemperSpecBill_Temp!备注) = False Then Rs_StemperSpecBill!备注 = Rs_StemperSpecBill_Temp!备注
                If IsNull(Rs_StemperSpecBill_Temp!特殊要求) = False Then Rs_StemperSpecBill!特殊要求 = Rs_StemperSpecBill_Temp!特殊要求
                If IsNull(Rs_StemperSpecBill_Temp!交货日期) = False Then Rs_StemperSpecBill!交货日期 = Rs_StemperSpecBill_Temp!交货日期
                If IsNull(Rs_StemperSpecBill_Temp!数量) = False Then Rs_StemperSpecBill!数量 = Rs_StemperSpecBill_Temp!数量
                '营销部录入部份
                If IsNull(Rs_StemperSpecBill_Temp!信息完整) = False Then Rs_StemperSpecBill!信息完整 = Rs_StemperSpecBill_Temp!信息完整
                If IsNull(Rs_StemperSpecBill_Temp!质量等级) = False Then Rs_StemperSpecBill!质量等级 = Rs_StemperSpecBill_Temp!质量等级
                If IsNull(Rs_StemperSpecBill_Temp!复制要求) = False Then Rs_StemperSpecBill!复制要求 = Rs_StemperSpecBill_Temp!复制要求
                If IsNull(Rs_StemperSpecBill_Temp!品质要求) = False Then Rs_StemperSpecBill!品质要求 = Rs_StemperSpecBill_Temp!品质要求
                If IsNull(Rs_StemperSpecBill_Temp!内编码) = False Then Rs_StemperSpecBill!内编码 = Rs_StemperSpecBill_Temp!内编码
                If IsNull(Rs_StemperSpecBill_Temp!料号) = False Then Rs_StemperSpecBill!料号 = Rs_StemperSpecBill_Temp!料号
                If IsNull(Rs_StemperSpecBill_Temp!节目名称) = False Then Rs_StemperSpecBill!节目名称 = Rs_StemperSpecBill_Temp!节目名称
                If IsNull(Rs_StemperSpecBill_Temp!母盘号码) = False Then Rs_StemperSpecBill!母盘号码 = Rs_StemperSpecBill_Temp!母盘号码
                If IsNull(Rs_StemperSpecBill_Temp!节目源种类) = False Then Rs_StemperSpecBill!节目源种类 = Rs_StemperSpecBill_Temp!节目源种类
                If IsNull(Rs_StemperSpecBill_Temp!节目种类) = False Then Rs_StemperSpecBill!节目种类 = Rs_StemperSpecBill_Temp!节目种类
                If IsNull(Rs_StemperSpecBill_Temp!母盘刻字要求) = False Then Rs_StemperSpecBill!母盘刻字要求 = Rs_StemperSpecBill_Temp!母盘刻字要求
                If IsNull(Rs_StemperSpecBill_Temp!刻录速度) = False Then Rs_StemperSpecBill!刻录速度 = Rs_StemperSpecBill_Temp!刻录速度
                If IsNull(Rs_StemperSpecBill_Temp!母盘内孔) = False Then Rs_StemperSpecBill!母盘内孔 = Rs_StemperSpecBill_Temp!母盘内孔
                If IsNull(Rs_StemperSpecBill_Temp!菲林索引) = False Then Rs_StemperSpecBill!菲林索引 = Rs_StemperSpecBill_Temp!菲林索引
                If IsNull(Rs_StemperSpecBill_Temp!印刷参照) = False Then Rs_StemperSpecBill!印刷参照 = Rs_StemperSpecBill_Temp!印刷参照
                If IsNull(Rs_StemperSpecBill_Temp!印刷方式) = False Then Rs_StemperSpecBill!印刷方式 = Rs_StemperSpecBill_Temp!印刷方式
                If IsNull(Rs_StemperSpecBill_Temp!印刷颜色) = False Then Rs_StemperSpecBill!印刷颜色 = Rs_StemperSpecBill_Temp!印刷颜色
                If IsNull(Rs_StemperSpecBill_Temp!委托书编码) = False Then Rs_StemperSpecBill!委托书编码 = Rs_StemperSpecBill_Temp!委托书编码
                If IsNull(Rs_StemperSpecBill_Temp!印刷要求) = False Then Rs_StemperSpecBill!印刷要求 = Rs_StemperSpecBill_Temp!印刷要求
                If IsNull(Rs_StemperSpecBill_Temp!包装要求) = False Then Rs_StemperSpecBill!包装要求 = Rs_StemperSpecBill_Temp!包装要求
                If IsNull(Rs_StemperSpecBill_Temp!包装方式) = False Then Rs_StemperSpecBill!包装方式 = Rs_StemperSpecBill_Temp!包装方式
                '品质部录入部分
                If IsNull(Rs_StemperSpecBill_Temp!母盘数量) = False Then Rs_StemperSpecBill!母盘数量 = Rs_StemperSpecBill_Temp!母盘数量
                If IsNull(Rs_StemperSpecBill_Temp!节目源状态) = False Then Rs_StemperSpecBill!节目源状态 = Rs_StemperSpecBill_Temp!节目源状态
                If IsNull(Rs_StemperSpecBill_Temp!印刷内圈) = False Then Rs_StemperSpecBill!印刷内圈 = Rs_StemperSpecBill_Temp!印刷内圈
                If IsNull(Rs_StemperSpecBill_Temp!菲林状态) = False Then Rs_StemperSpecBill!菲林状态 = Rs_StemperSpecBill_Temp!菲林状态
            '    If IsNull(Rs_StemperSpecBill_Temp!特殊防尘垫要求) = False Then Me.txt_Q_Fields(1).text = Rs_StemperSpecBill_Temp!特殊防尘垫要求 Else Me.txt_Q_Fields(1).text = ""
            '    If IsNull(Rs_StemperSpecBill_Temp!特殊箱唛标识) = False Then Me.txt_Q_Fields(2).text = Rs_StemperSpecBill_Temp!特殊箱唛标识 Else Me.txt_Q_Fields(2).text = ""
                If IsNull(Rs_StemperSpecBill_Temp!库位号) = False Then Rs_StemperSpecBill!库位号 = Rs_StemperSpecBill_Temp!库位号
                If IsNull(Rs_StemperSpecBill_Temp!财产备注) = False Then Rs_StemperSpecBill!财产备注 = Rs_StemperSpecBill_Temp!财产备注
                '生产部录入部分
                If IsNull(Rs_StemperSpecBill_Temp!印刷机号) = False Then Rs_StemperSpecBill!印刷机号 = Rs_StemperSpecBill_Temp!印刷机号
                If IsNull(Rs_StemperSpecBill_Temp!版状态) = False Then Rs_StemperSpecBill!版状态 = Rs_StemperSpecBill_Temp!版状态
                If IsNull(Rs_StemperSpecBill_Temp!专色油墨) = False Then Rs_StemperSpecBill!专色油墨 = Rs_StemperSpecBill_Temp!专色油墨
                If IsNull(Rs_StemperSpecBill_Temp!颜色样本) = False Then Rs_StemperSpecBill!颜色样本 = Rs_StemperSpecBill_Temp!颜色样本
                If IsNull(Rs_StemperSpecBill_Temp!不良率) = False And Rs_StemperSpecBill_Temp!不良率 <> "" Then Rs_StemperSpecBill!不良率 = Rs_StemperSpecBill_Temp!不良率
                If IsNull(Rs_StemperSpecBill_Temp!剩余良品数) = False Then Rs_StemperSpecBill!剩余良品数 = Rs_StemperSpecBill_Temp!剩余良品数
                If IsNull(Rs_StemperSpecBill_Temp!小于3000) = False Then Rs_StemperSpecBill!小于3000 = Rs_StemperSpecBill_Temp!小于3000
                Rs_StemperSpecBill!小号 = Rs_StemperSpecBill_Temp!小号
                Rs_StemperSpecBill.Update
                Rs_StemperSpecBill_Temp.MoveNext
            Loop
            If Rs_StemperSpecBill.State = 1 Then Rs_StemperSpecBill.Close
            Rs_StemperSpecBill.Open "select * from stemper_SpecBill order by 规格单号,小号", Cn_StemperSpecBill, adOpenKeyset, adLockOptimistic, adCmdText
            If Rs_StemperSpecBill.RecordCount <> 0 Then Rs_StemperSpecBill.MoveLast
            Set Frm_Whole_StemperSpecBill.TDBGrid_Stemper.DataSource = Rs_StemperSpecBill
            Call Frm_Whole_StemperSpecBill.TDBGrid_Stemper_Width_Set
          End If
          Unload Me
         Case 8 '退出下单(Exit)
            If MsgBox("你保存此次规格单单了吗?" + Chr(13) + "如果没有保存会造成此次信息数据丢失!" + Chr(13) + "单击“是”退出,单击“否”先进行保存.", vbQuestion + vbYesNo) = vbYes Then Unload Me
        
  End Select
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub