frm_outwholestemperspecbill.frm

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

      _StyleDefs(18)  =   ":id=6,.fgcolor=&H80000012&"
      _StyleDefs(19)  =   "EditorStyle:id=7,.parent=1"
      _StyleDefs(20)  =   "HighlightRowStyle:id=8,.parent=1,.namedParent=38"
      _StyleDefs(21)  =   "EvenRowStyle:id=9,.parent=1,.namedParent=39"
      _StyleDefs(22)  =   "OddRowStyle:id=10,.parent=1,.namedParent=40"
      _StyleDefs(23)  =   "RecordSelectorStyle:id=11,.parent=2,.namedParent=41"
      _StyleDefs(24)  =   "FilterBarStyle:id=12,.parent=1,.namedParent=42"
      _StyleDefs(25)  =   "Splits(0).Style:id=13,.parent=1"
      _StyleDefs(26)  =   "Splits(0).CaptionStyle:id=22,.parent=4"
      _StyleDefs(27)  =   "Splits(0).HeadingStyle:id=14,.parent=2"
      _StyleDefs(28)  =   "Splits(0).FooterStyle:id=15,.parent=3"
      _StyleDefs(29)  =   "Splits(0).InactiveStyle:id=16,.parent=5"
      _StyleDefs(30)  =   "Splits(0).SelectedStyle:id=18,.parent=6,.bgcolor=&HE6B46E&,.fgcolor=&H80000012&"
      _StyleDefs(31)  =   ":id=18,.borderColor=&HE6B46E&"
      _StyleDefs(32)  =   "Splits(0).EditorStyle:id=17,.parent=7"
      _StyleDefs(33)  =   "Splits(0).HighlightRowStyle:id=19,.parent=8"
      _StyleDefs(34)  =   "Splits(0).EvenRowStyle:id=20,.parent=9,.bgcolor=&HFFF3EF&,.borderColor=&HE7BE94&"
      _StyleDefs(35)  =   "Splits(0).OddRowStyle:id=21,.parent=10,.bgcolor=&HF7EBE7&,.borderColor=&HE7BE94&"
      _StyleDefs(36)  =   "Splits(0).RecordSelectorStyle:id=23,.parent=11"
      _StyleDefs(37)  =   "Splits(0).FilterBarStyle:id=24,.parent=12"
      _StyleDefs(38)  =   "Splits(0).Columns(0).Style:id=28,.parent=13"
      _StyleDefs(39)  =   "Splits(0).Columns(0).HeadingStyle:id=25,.parent=14"
      _StyleDefs(40)  =   "Splits(0).Columns(0).FooterStyle:id=26,.parent=15"
      _StyleDefs(41)  =   "Splits(0).Columns(0).EditorStyle:id=27,.parent=17"
      _StyleDefs(42)  =   "Splits(0).Columns(1).Style:id=32,.parent=13"
      _StyleDefs(43)  =   "Splits(0).Columns(1).HeadingStyle:id=29,.parent=14"
      _StyleDefs(44)  =   "Splits(0).Columns(1).FooterStyle:id=30,.parent=15"
      _StyleDefs(45)  =   "Splits(0).Columns(1).EditorStyle:id=31,.parent=17"
      _StyleDefs(46)  =   "Named:id=33:Normal"
      _StyleDefs(47)  =   ":id=33,.parent=0,.valignment=2"
      _StyleDefs(48)  =   "Named:id=34:Heading"
      _StyleDefs(49)  =   ":id=34,.parent=33,.valignment=2,.bgcolor=&HF38BAD&,.fgcolor=&H80000012&"
      _StyleDefs(50)  =   ":id=34,.wraptext=-1"
      _StyleDefs(51)  =   "Named:id=35:Footing"
      _StyleDefs(52)  =   ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
      _StyleDefs(53)  =   "Named:id=36:Selected"
      _StyleDefs(54)  =   ":id=36,.parent=33,.bgcolor=&H80FF&,.fgcolor=&H8000000E&,.borderColor=&HFF&"
      _StyleDefs(55)  =   "Named:id=37:Caption"
      _StyleDefs(56)  =   ":id=37,.parent=34,.alignment=2"
      _StyleDefs(57)  =   "Named:id=38:HighlightRow"
      _StyleDefs(58)  =   ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
      _StyleDefs(59)  =   "Named:id=39:EvenRow"
      _StyleDefs(60)  =   ":id=39,.parent=33,.bgcolor=&HFFFF00&"
      _StyleDefs(61)  =   "Named:id=40:OddRow"
      _StyleDefs(62)  =   ":id=40,.parent=33"
      _StyleDefs(63)  =   "Named:id=41:RecordSelector"
      _StyleDefs(64)  =   ":id=41,.parent=34"
      _StyleDefs(65)  =   "Named:id=42:FilterBar"
      _StyleDefs(66)  =   ":id=42,.parent=33"
   End
End
Attribute VB_Name = "Frm_OutWholeStemperSpecBill"
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 = 1250
  Me.TDBGrid_Stemper.Columns(1).Width = 600
  Me.TDBGrid_Stemper.Columns(2).Width = 400
  Me.TDBGrid_Stemper.Columns(3).Width = 400
  Me.TDBGrid_Stemper.Columns(4).Width = 400
  Me.TDBGrid_Stemper.Columns(5).Width = 400
  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 = "#,###,###"
'  Me.TDBGrid_Stemper.Columns(18).EditMaskUpdate = True
'  Me.TDBGrid_Stemper.Columns(18).EditMask = "##,###"
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_OutStemperSpecBill = New ADODB.Connection
    Set Rs_OutStemperSpecBill = New ADODB.Recordset
    Cn_OutStemperSpecBill.Open Cs
    Rs_OutStemperSpecBill.Open "select * from OutStemper_SpecBill  order by 规格单号,小号", Cn_OutStemperSpecBill, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs_OutStemperSpecBill.RecordCount <> 0 Then Rs_OutStemperSpecBill.MoveLast
    Set TDBGrid_Stemper.DataSource = Rs_OutStemperSpecBill
    Call TDBGrid_Stemper_Width_Set
    If OperatorDepartment <> "营销部" Then
       Me.Toolbar1.Buttons(3).Enabled = False
       Me.Toolbar1.Buttons(4).Enabled = False
       Me.Toolbar1.Buttons(5).Enabled = False
    End If
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
  If Rs_OutStemperSpecBill.State = 1 Then
    Rs_OutStemperSpecBill.Close
    Cn_OutStemperSpecBill.Close
  End If
  Set Rs_OutStemperSpecBill = Nothing
  Set Cn_OutStemperSpecBill = Nothing
  Bln_StemperSpecBillRepair = False
  Bln_StemperSpecBillView = False
  
End Sub

Private Sub TDBGrid_Stemper_DblClick()
On Error GoTo err
    Bln_StemperSpecBillRepair = False
    Bln_StemperSpecBillView = True
    Load Frm_OutStemperSpecBill_View
    Frm_OutStemperSpecBill_View.Show vbModal
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 '新建规格单(New)
            Load Frm_NewOutStemperSpecBill
            Frm_NewOutStemperSpecBill.Show vbModal
        Case 4 '修改信息(Repair)
           Bln_StemperSpecBillRepair = True
           Bln_StemperSpecBillView = False
           Load Frm_OutStemperSpecBill_View
           Frm_OutStemperSpecBill_View.Show vbModal
        Case 5 '删除信息(Delete)
         If MsgBox("你确认删除此规格单的此款节目吗?" + Chr(13) + "单击“是”删除,单击“否”取消删除.", vbQuestion + vbYesNo) = vbYes Then
           Set Cn = New ADODB.Connection
           Set Rs = New ADODB.Recordset
           Cn.Open Cs
           Rs.Open "select * from OutStemper_SpecBill where 内编码='" & Rs_OutStemperSpecBill!内编码 & "' and 规格单号='" & Rs_OutStemperSpecBill!规格单号 & "' and 小号='" & Rs_OutStemperSpecBill!小号 & "'", Cn, adOpenKeyset, adLockOptimistic, adCmdText
           Rs.Delete
           Rs.Update
           Rs.Close
           Cn.Close
           Me.TDBGrid_Stemper.Close
           If Rs_OutStemperSpecBill.State = 1 Then Rs_OutStemperSpecBill.Close
           Rs_OutStemperSpecBill.Open "select * from OutStemper_SpecBill  order by 规格单号,小号", Cn_OutStemperSpecBill, adOpenKeyset, adLockOptimistic, adCmdText
           If Rs_OutStemperSpecBill.RecordCount <> 0 Then Rs_OutStemperSpecBill.MoveLast
           Set Me.TDBGrid_Stemper.DataSource = Rs_OutStemperSpecBill
           Call TDBGrid_Stemper_Width_Set
         End If
        Case 6 '查看信息(View)
           Bln_StemperSpecBillRepair = False
           Bln_StemperSpecBillView = True
           Load Frm_OutStemperSpecBill_View
           Frm_OutStemperSpecBill_View.Show vbModal
        Case 7 '查找信息(Find)
          Load Frm_OutStemperSpecBill_Find
          Frm_OutStemperSpecBill_Find.Show vbModal
        Case 8 '导出Excel(Enter)
          Load Frm_OutStemperSpecBill_Export
          Frm_OutStemperSpecBill_Export.Show vbModal
        Case 9 '退出(Exit)
          Unload Me
  End Select
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub