frmclass.frm

网上销售源代码

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmClass 
   Caption         =   "课管理"
   ClientHeight    =   2460
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7425
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   2460
   ScaleWidth      =   7425
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   1665
      Left            =   30
      TabIndex        =   0
      Top             =   630
      Width           =   7305
      Begin VB.ComboBox cboTerritory 
         Height          =   300
         Left            =   1230
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   270
         Width           =   2115
      End
      Begin VB.TextBox txtLinkman 
         Height          =   375
         Left            =   1230
         TabIndex        =   4
         Top             =   630
         Width           =   2115
      End
      Begin VB.TextBox txtClass 
         Height          =   375
         Left            =   4860
         TabIndex        =   3
         Top             =   240
         Width           =   2115
      End
      Begin VB.TextBox txtPhone 
         Height          =   375
         Left            =   4860
         TabIndex        =   2
         Top             =   630
         Width           =   2115
      End
      Begin VB.TextBox txtReMark 
         Height          =   435
         Left            =   1230
         TabIndex        =   1
         Top             =   1110
         Width           =   5775
      End
      Begin VB.Label Label14 
         Caption         =   "区域："
         Height          =   225
         Left            =   270
         TabIndex        =   10
         Top             =   278
         Width           =   945
      End
      Begin VB.Label Label15 
         Caption         =   "课："
         Height          =   225
         Left            =   3900
         TabIndex        =   9
         Top             =   315
         Width           =   945
      End
      Begin VB.Label Label18 
         Caption         =   "联系人："
         Height          =   225
         Left            =   270
         TabIndex        =   8
         Top             =   705
         Width           =   945
      End
      Begin VB.Label Label20 
         Caption         =   "电话："
         Height          =   225
         Left            =   3900
         TabIndex        =   7
         Top             =   705
         Width           =   945
      End
      Begin VB.Label Label27 
         Caption         =   "备注："
         Height          =   225
         Left            =   270
         TabIndex        =   6
         Top             =   1215
         Width           =   945
      End
   End
   Begin MSComctlLib.ImageList ImgOperation 
      Left            =   5880
      Top             =   60
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   19
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":5F42
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":6C1C
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":8926
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":94F8
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":C202
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":C51C
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":C96E
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":10330
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":108CA
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":10E64
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":1173E
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":11898
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":11C32
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":11FCC
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":12366
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":12700
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":12A1A
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmClass.frx":132F4
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar tlbOperate 
      Height          =   540
      Left            =   0
      TabIndex        =   11
      Top             =   0
      Width           =   7500
      _ExtentX        =   13229
      _ExtentY        =   953
      ButtonWidth     =   820
      ButtonHeight    =   953
      AllowCustomize  =   0   'False
      Wrappable       =   0   'False
      Style           =   1
      ImageList       =   "ImgOperation"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   12
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "新增"
            Style           =   3
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "保存"
            Key             =   "update"
            Object.ToolTipText     =   "保存"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "撤消"
            Key             =   "cancel"
            ImageIndex      =   10
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "首页"
            Key             =   "first"
            ImageIndex      =   13
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "前页"
            Key             =   "prev"
            ImageIndex      =   14
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "下页"
            Key             =   "next"
            ImageIndex      =   15
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "末页"
            Key             =   "last"
            ImageIndex      =   16
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "关闭"
            Key             =   "quit"
            Object.ToolTipText     =   "关闭"
            ImageIndex      =   19
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public P_SID As String

Private Sub Initcbo()
Dim sql As String
Dim Ars As New ADODB.Recordset

'查询课信息
    sql = "Select AreaStorID from AreaStor "
    Set Ars = SQLDB.Execute(sql)
    cboTerritory.Clear
    Do While Not Ars.EOF
        cboTerritory.AddItem Ars("AreaStorID") & ""
    Ars.MoveNext
    cboTerritory.ListIndex = 0
    Loop

End Sub

Private Sub Form_Load()
Dim sql As String
Dim Ars As New ADODB.Recordset