nbmanage.frm

本系统特为行业报价、订单、产品管理与客户关系管理所订制

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form NBmanage 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "编号设定"
   ClientHeight    =   3750
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6360
   Icon            =   "nbmanage.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3750
   ScaleWidth      =   6360
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      BorderStyle     =   0  'None
      Height          =   3135
      Left            =   720
      ScaleHeight     =   3135
      ScaleWidth      =   4695
      TabIndex        =   1
      Top             =   480
      Width           =   4695
      Begin VB.CommandButton Command1 
         Caption         =   "提 交"
         Height          =   375
         Left            =   1920
         TabIndex        =   6
         Top             =   2640
         Width           =   1215
      End
      Begin VB.TextBox Text4 
         Height          =   270
         Left            =   2160
         TabIndex        =   5
         Text            =   "000001"
         Top             =   1815
         Width           =   1695
      End
      Begin VB.TextBox Text3 
         Height          =   270
         Left            =   2160
         TabIndex        =   4
         Text            =   "999999"
         Top             =   1335
         Width           =   1695
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Left            =   2160
         TabIndex        =   3
         Text            =   "000001"
         Top             =   855
         Width           =   1695
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   2160
         TabIndex        =   2
         Text            =   "QC"
         Top             =   360
         Width           =   1695
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   720
         TabIndex        =   11
         Top             =   2280
         Width           =   3375
      End
      Begin VB.Label Label4 
         Caption         =   "当前起始号："
         Height          =   255
         Left            =   1080
         TabIndex        =   10
         Top             =   1830
         Width           =   1095
      End
      Begin VB.Label Label3 
         Caption         =   "后缀结束号："
         Height          =   255
         Left            =   1080
         TabIndex        =   9
         Top             =   1350
         Width           =   1215
      End
      Begin VB.Label Label2 
         Caption         =   "编号起始号："
         Height          =   240
         Left            =   1080
         TabIndex        =   8
         Top             =   870
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "编号前缀："
         Height          =   255
         Left            =   1080
         TabIndex        =   7
         Top             =   375
         Width           =   975
      End
   End
   Begin MSComctlLib.TabStrip TabStrip1 
      Height          =   3555
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   6271
      MultiRow        =   -1  'True
      TabStyle        =   1
      _Version        =   393216
      BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
         NumTabs         =   4
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "销售编号设定"
            Key             =   "销售"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "客户编号设定"
            Key             =   "客户"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "产品编号设定"
            Key             =   "产品"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "报价编号设定"
            Key             =   "报价"
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
   Begin ACTIVESKINLibCtl.Skin skn1 
      Left            =   0
      OleObjectBlob   =   "nbmanage.frx":000C
      Top             =   2880
   End
End
Attribute VB_Name = "NBmanage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/10
'描    述：商品综合管理系统 Sql2000版
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim TmpClass As String
Private Sub Command1_Click()
Set Qy1 = cnn.Execute("select * from numberm where id='" & TmpClass & "'")
If Qy1.EOF = False Then
Set Qy1 = cnn.Execute("delete from numberm where id='" & TmpClass & "'")
End If
Set Qy1 = cnn.Execute("insert into numberm values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & TmpClass & "')")
MsgBox "修改成功!"
End Sub

Private Sub Form_Load()
Skn1.LoadSkin App.Path & sknPname
Skn1.ApplySkinByName hWnd, "窗体"
Skn1.ApplySkin hWnd
SetClass
GridIni
End Sub

Private Sub TabStrip1_Click()
SetClass
GridIni
End Sub

Private Sub Text1_Change()
Text_Change
End Sub

Private Sub Text2_Change()
Text_Change
End Sub

Private Sub Text3_Change()
Text_Change
End Sub
Private Sub Text_Change()
If Text1.Text <> "" And Text2.Text <> "" Then
Label5.Caption = "编号起始：" & Text1.Text & Text2.Text & "-" & Text1.Text & Text3.Text
End If
End Sub
Private Sub SetClass()
'On Error GoTo ErrHandlor
    Select Case TabStrip1.SelectedItem.Index
        Case 1
            TmpClass = "1"
        Case 2
            TmpClass = "2"
        Case 3
            TmpClass = "3"
        Case 4
            TmpClass = "4"
    End Select
            Exit Sub
'ErrHandlor:
'    MsgBox "错误" & Err.Description, vbOKOnly, "提示"
        
End Sub
Private Sub GridIni() '显示内容
    On Error GoTo ErrHandlor
        Sql = "select * from numberm where id='" & TmpClass & "'"
        Set Qy1 = cnn.Execute(Sql)
        If Qy1.EOF = False Then
        Text1.Text = Qy1.Fields(0)
        Text2.Text = Qy1.Fields(1)
        Text3.Text = Qy1.Fields(2)
        Text4.Text = Qy1.Fields(3)
        Set Qy1 = Nothing
        End If
             Exit Sub
ErrHandlor:
    MsgBox "错误" & Err.Description, vbOKOnly, "提示"

End Sub

Private Sub Text4_Change()
Text_Change
End Sub