frmyzlxpro.frm

小型超市进销存系统

VERSION 5.00
Begin VB.Form frmYZLXPro 
   Caption         =   "修改供应商资料"
   ClientHeight    =   5310
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9495
   LinkTopic       =   "Form2"
   MDIChild        =   -1  'True
   ScaleHeight     =   5310
   ScaleWidth      =   9495
   Begin VB.CommandButton cmdNO 
      Caption         =   "取   消"
      Height          =   495
      Left            =   5640
      TabIndex        =   19
      Top             =   4320
      Width           =   1335
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确   定"
      Height          =   495
      Left            =   2280
      TabIndex        =   18
      Top             =   4320
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Caption         =   "供应商资料"
      Height          =   3255
      Left            =   600
      TabIndex        =   9
      Top             =   600
      Width           =   4335
      Begin VB.TextBox txtProvName 
         Height          =   375
         Left            =   1440
         TabIndex        =   13
         Top             =   960
         Width           =   2535
      End
      Begin VB.TextBox txtProvDress 
         Height          =   735
         Left            =   1440
         MultiLine       =   -1  'True
         TabIndex        =   12
         Top             =   1560
         Width           =   2535
      End
      Begin VB.TextBox txtID 
         Enabled         =   0   'False
         Height          =   375
         Left            =   1440
         TabIndex        =   11
         Top             =   360
         Width           =   2535
      End
      Begin VB.TextBox txtEmp 
         Enabled         =   0   'False
         Height          =   495
         Left            =   1440
         TabIndex        =   10
         Top             =   2520
         Width           =   2535
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "供应商名："
         Height          =   180
         Left            =   240
         TabIndex        =   17
         Top             =   1080
         Width           =   900
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "供应商地址："
         Height          =   180
         Left            =   240
         TabIndex        =   16
         Top             =   1560
         Width           =   1080
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "供应商号："
         Height          =   180
         Left            =   240
         TabIndex        =   15
         Top             =   480
         Width           =   900
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "录入采购："
         Height          =   180
         Left            =   240
         TabIndex        =   14
         Top             =   2640
         Width           =   900
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "联系人资料"
      Height          =   3255
      Left            =   5160
      TabIndex        =   0
      Top             =   600
      Width           =   3615
      Begin VB.TextBox txtName 
         Height          =   375
         Left            =   1560
         TabIndex        =   4
         Top             =   360
         Width           =   1695
      End
      Begin VB.TextBox txtJob 
         Height          =   375
         Left            =   1560
         TabIndex        =   3
         Top             =   1080
         Width           =   1695
      End
      Begin VB.TextBox txtOffic 
         Height          =   375
         Left            =   1560
         TabIndex        =   2
         Top             =   1800
         Width           =   1695
      End
      Begin VB.TextBox txtMobile 
         Height          =   375
         Left            =   1560
         TabIndex        =   1
         Top             =   2520
         Width           =   1695
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "联系人："
         Height          =   180
         Left            =   360
         TabIndex        =   8
         Top             =   480
         Width           =   720
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "联系人职位："
         Height          =   180
         Left            =   360
         TabIndex        =   7
         Top             =   1200
         Width           =   1080
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "办公电话："
         Height          =   180
         Left            =   360
         TabIndex        =   6
         Top             =   1920
         Width           =   900
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "手机："
         Height          =   180
         Left            =   360
         TabIndex        =   5
         Top             =   2640
         Width           =   540
      End
   End
End
Attribute VB_Name = "frmYZLXPro"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdNO_Click()
    Unload Me
End Sub

Private Sub cmdOk_Click()
 
       If txtProvName.Text = "" Then
            MsgBox "供应商名不能为空", vbInformation
            txtProvName.SetFocus
            Exit Sub
        End If
        
        If txtProvDress.Text = "" Then
            MsgBox "供应商地址不能为空", vbInformation
            txtProvDress.SetFocus
            Exit Sub
        End If
        
        If txtName.Text = "" Then
            MsgBox "联系人名不能为空", vbInformation
            txtName.SetFocus
            Exit Sub
        End If
    
        If txtJob.Text = "" Then
            MsgBox "联系职务不能为空", vbInformation
            txtJob.SetFocus
            Exit Sub
        End If
        
        If txtOffic.Text = "" Then
            MsgBox "联系人办公电话不能为空", vbInformation
            txtOffic.SetFocus
            Exit Sub
        End If
        
        If txtMobile.Text = "" Then
            MsgBox "联系人手机不能为空", vbInformation
            txtMobile.SetFocus
            Exit Sub
        End If
        
        Dim strsql As String
        strsql = "update t_provider set providername='" & Trim(txtProvName.Text) & "',linkman='" & Trim(txtName.Text) & "',job='" & Trim(txtJob.Text) & "',mobile='" & Trim(txtMobile.Text) & "',offictel='" & Trim(txtOffic.Text) & "',provideradress='" & Trim(txtProvDress.Text) & "' where providerid='" & Trim(txtId.Text) & "'"
        Dblink.executeSQL (strsql)
        
        Call YZLRefMSHFlexGrid(frmYZLProv, "select providerid '供应商号',providername '供应商名' from t_provider")
        
        Unload Me
End Sub

Private Sub Form_Load()
    txtProvName.Text = frmYZLProvD.txtProvName.Text
    txtProvDress.Text = frmYZLProvD.txtProvDress.Text
    txtName.Text = frmYZLProvD.txtName.Text
    txtJob.Text = frmYZLProvD.txtJob.Text
    txtOffic.Text = frmYZLProvD.txtOffic.Text
    txtMobile.Text = frmYZLProvD.txtMobile.Text
    txtId.Text = frmYZLProvD.txtId.Text
    txtEmp.Text = frmYZLProvD.txtEmp.Text
    
    Unload frmYZLProvD
End Sub