frmchainprc.frm

注释：用VB开发的进销存系统源码

VERSION 5.00
Begin VB.Form frmChainPrc 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "配送价格"
   ClientHeight    =   5475
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2745
   Icon            =   "frmChainPrc.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5475
   ScaleWidth      =   2745
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox txtPF2 
      Height          =   315
      Left            =   900
      TabIndex        =   15
      Top             =   3420
      Width           =   1395
   End
   Begin VB.TextBox txtPF1 
      Height          =   315
      Left            =   900
      TabIndex        =   13
      Top             =   2985
      Width           =   1395
   End
   Begin VB.TextBox txtLSJ 
      Height          =   315
      Left            =   915
      TabIndex        =   11
      Top             =   2565
      Width           =   1395
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定[&O]"
      Height          =   405
      Left            =   630
      TabIndex        =   8
      Top             =   4830
      Width           =   1320
   End
   Begin VB.TextBox txtPSJ 
      Height          =   315
      Left            =   855
      TabIndex        =   7
      Top             =   4305
      Width           =   1395
   End
   Begin VB.TextBox txtJD 
      Height          =   315
      Left            =   870
      TabIndex        =   5
      Top             =   3885
      Width           =   1395
   End
   Begin VB.TextBox txtPrc 
      Height          =   315
      Left            =   930
      TabIndex        =   3
      Top             =   2130
      Width           =   1395
   End
   Begin VB.ListBox lstPSJ 
      Height          =   1500
      ItemData        =   "frmChainPrc.frx":000C
      Left            =   1335
      List            =   "frmChainPrc.frx":000E
      TabIndex        =   1
      Top             =   450
      Width           =   870
   End
   Begin VB.ListBox lstPrc 
      Height          =   1500
      ItemData        =   "frmChainPrc.frx":0010
      Left            =   180
      List            =   "frmChainPrc.frx":0012
      TabIndex        =   0
      Top             =   450
      Width           =   870
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      Caption         =   "城阳"
      Height          =   180
      Left            =   300
      TabIndex        =   16
      Top             =   3480
      Width           =   360
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "李沧"
      Height          =   180
      Left            =   315
      TabIndex        =   14
      Top             =   3060
      Width           =   360
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "零售价"
      Height          =   180
      Left            =   210
      TabIndex        =   12
      Top             =   2670
      Width           =   540
   End
   Begin VB.Label Label5 
      Caption         =   "配送价"
      Height          =   240
      Left            =   1440
      TabIndex        =   10
      Top             =   150
      Width           =   600
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "进货价"
      Height          =   180
      Left            =   330
      TabIndex        =   9
      Top             =   150
      Width           =   540
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "配送价"
      Height          =   180
      Left            =   60
      TabIndex        =   6
      Top             =   4320
      Width           =   540
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "加点"
      Height          =   180
      Left            =   240
      TabIndex        =   4
      Top             =   3930
      Width           =   360
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "进价"
      Height          =   180
      Left            =   375
      TabIndex        =   2
      Top             =   2235
      Width           =   360
   End
End
Attribute VB_Name = "frmChainPrc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public prc As Single

Public Sub InitData(GCode As String, CCode As String)
    Dim RsTemp As New ADODB.Recordset
    Dim LP
    On Error Resume Next
    lstPrc.Clear
    lstPSJ.Clear
    sSQL = "select 含税进价 as 进价 from lsjhd where 商品编码='" & Trim(GCode) & "' group by 含税进价 "
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    While Not RsTemp.EOF
        lstPrc.AddItem RsTemp("进价")
        RsTemp.MoveNext
    Wend
    'sSQL = "select 零售价 as 配送价 from psd where 商品编码='" & Trim(GCode) & "' AND 分店编码='" & Trim(CCode) & "' group by 零售价 order by 配送日期"
    sSQL = "select 配送日期,零售价 as 配送价 from psd where 商品编码='" & Trim(GCode) & "' AND 分店编码='" & Trim(CCode) & "' group by 配送日期,零售价 order by 配送日期"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    While Not RsTemp.EOF
        If LP <> RsTemp("配送价") Then
            lstPSJ.AddItem RsTemp("配送价")
            LP = RsTemp("配送价")
        End If
        RsTemp.MoveNext
    Wend
    
    sSQL = "select 零售价,批发价1,批发价2 from   商品主档 where 商品编码='" & Trim(GCode) & "'"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    If Not RsTemp.EOF Then
        txtLSJ.Text = RsTemp("零售价")
        txtPF1.Text = RsTemp("批发价1")
        txtPF2.Text = RsTemp("批发价2")
    End If
    
    Set RsTemp = Nothing
    RsTemp.Open "select 电话 from 分店主档 where 分店编码='" & Trim(CCode) & "'", Conn, adOpenStatic, adLockReadOnly
    txtJD = RsTemp("电话")
End Sub

Private Sub Command1_Click()
    prc = Val(txtPSJ.Text)
    Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 192 Then Call Command1_Click
End Sub


Private Sub lstPrc_Click()
   On Error Resume Next
    txtPrc.Text = lstPrc.Text
    txtPSJ.Text = Str(Val(txtPrc.Text) * (1 + Val(txtJD.Text) / 100))
End Sub

Private Sub lstPSJ_Click()
    txtPSJ.Text = lstPSJ.Text
End Sub

Private Sub txtJD_Change()
    On Error Resume Next
    txtPSJ.Text = Str(Val(txtPrc.Text) * (1 + Val(txtJD.Text) / 100))
End Sub

Private Sub txtLSJ_Click()
    On Error Resume Next
    txtPSJ.Text = Format(Val(txtLSJ.Text) / 1.25, "#.00")
End Sub

Private Sub txtPF1_Click()
    txtPSJ.Text = txtPF1.Text
End Sub

Private Sub txtPF2_Click()
    txtPSJ.Text = txtPF2.Text
End Sub

Private Sub txtPrc_Change()
    On Error Resume Next
    txtPSJ.Text = Str(Val(txtPrc.Text) * (1 + Val(txtJD.Text) / 100))
End Sub