frm盘点轧帐.frm

服装销售系统,VB开发.没有解压密码

VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Object = "{8D650141-6025-11D1-BC40-0000C042AEC0}#3.0#0"; "SSDW3B32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frm盘点轧帐 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "盘点轧帐"
   ClientHeight    =   2970
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5625
   Icon            =   "frm盘点轧帐.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2970
   ScaleWidth      =   5625
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Height          =   2580
      Left            =   120
      TabIndex        =   0
      Top             =   135
      Width           =   5385
      Begin VB.Frame Frame2 
         Caption         =   "轧帐单位"
         Height          =   750
         Left            =   270
         TabIndex        =   7
         Top             =   255
         Width           =   4845
         Begin VB.OptionButton optChain 
            Caption         =   "连锁店"
            Height          =   270
            Left            =   2715
            TabIndex        =   9
            Top             =   315
            Width           =   1230
         End
         Begin VB.OptionButton optCenter 
            Caption         =   "经营公司"
            Height          =   270
            Left            =   570
            TabIndex        =   8
            Top             =   315
            Value           =   -1  'True
            Width           =   1125
         End
      End
      Begin MSComCtl2.DTPicker dtpCheckDate 
         Height          =   300
         Left            =   2760
         TabIndex        =   6
         Top             =   1470
         Width           =   1650
         _ExtentX        =   2910
         _ExtentY        =   529
         _Version        =   393216
         Format          =   24444928
         CurrentDate     =   36413
      End
      Begin SSDataWidgets_B.SSDBCombo cmbSaleStyle 
         Height          =   270
         Left            =   510
         TabIndex        =   2
         Top             =   1455
         Width           =   1650
         DataFieldList   =   "Column 0"
         _Version        =   196614
         DataMode        =   2
         RowHeight       =   397
         Columns(0).Width=   2942
         Columns(0).Caption=   "销售类型"
         Columns(0).Name =   "销售类型"
         Columns(0).CaptionAlignment=   2
         Columns(0).DataField=   "Column 0"
         Columns(0).DataType=   8
         Columns(0).FieldLen=   256
         _ExtentX        =   2910
         _ExtentY        =   476
         _StockProps     =   93
         BackColor       =   -2147483643
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "轧帐日期"
         Height          =   180
         Left            =   2790
         TabIndex        =   5
         Top             =   1140
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "销售方式"
         Height          =   180
         Left            =   570
         TabIndex        =   4
         Top             =   1170
         Width           =   720
      End
      Begin Threed.SSCommand cmdExit 
         Height          =   435
         Left            =   2910
         TabIndex        =   3
         Top             =   2010
         Width           =   1185
         _ExtentX        =   2090
         _ExtentY        =   767
         _Version        =   131073
         Caption         =   "退出[&X]"
      End
      Begin Threed.SSCommand cmdCheckData 
         Height          =   435
         Left            =   780
         TabIndex        =   1
         Top             =   2010
         Width           =   1185
         _ExtentX        =   2090
         _ExtentY        =   767
         _Version        =   131073
         Caption         =   "轧帐[&E]"
      End
   End
End
Attribute VB_Name = "frm盘点轧帐"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


'***********************************************
'                   盘点轧帐
'***********************************************


Option Explicit

Private Sub cmbSaleStyle_InitColumnProps()
    cmbSaleStyle.AddItem "经销"
    cmbSaleStyle.AddItem "代销"
End Sub

Private Sub cmdCheckData_Click()
    
    On Error GoTo CheckErr
    Dim Temp
    Dim StockName As String
    
    If cmbSaleStyle.Text = "" Then
        MsgBox "请选择销售方式!", vbInformation, "提示窗口"
        Exit Sub
    End If
    
    Temp = MsgBox("您确定要轧帐吗?", vbQuestion + vbYesNo, "提示窗口")
    If Temp = vbNo Then Exit Sub
    
    Conn.BeginTrans
    If optCenter.Value Then
        StockName = "配送中心库存"
        Temp = "配送中心盘点轧帐"
    Else
        StockName = "分店库存"
        Temp = "分店盘点轧帐"
    End If
    
    sSQL = "SELECT * FROM " & Temp & " WHERE 轧帐日期='" & Format(dtpCheckDate.Value, "YYYY-MM-DD") & "'"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    If Not RsTemp.EOF Then
        MsgBox "已经存在日期为" & Format(dtpCheckDate.Value, "YYYY-MM-DD") & "的轧帐信息!", vbExclamation, "提示窗口"
        Conn.RollbackTrans
        Exit Sub
    End If
        
    If Temp = "配送中心盘点轧帐" Then
        sSQL = "INSERT INTO " & Temp & "(经营方式,轧帐日期,商品编码,品名,数量,进价金额,售价金额,单位)" & _
            " SELECT '" & cmbSaleStyle.Text & "' AS 经营方式,'" & Format(dtpCheckDate.Value, "YYYY-MM-DD") & "' AS 轧帐日期," & _
            " 商品编码,品名,数量,进价金额,售价金额,单位 FROM " & StockName & _
            " WHERE 经营方式='" & cmbSaleStyle.Text & "'"
    Else
        sSQL = "INSERT INTO " & Temp & "(经营方式,轧帐日期,分店编码,商品编码,品名,数量,进价金额,售价金额,单位)" & _
            " SELECT '" & cmbSaleStyle.Text & "' AS 经营方式,'" & Format(dtpCheckDate.Value, "YYYY-MM-DD") & "' AS 轧帐日期," & _
            " 分店编码,商品编码,品名,数量,进价金额,售价金额,单位 FROM " & StockName & _
            " WHERE 经营方式='" & cmbSaleStyle.Text & "'"
    End If
    Cmd.ActiveConnection = Conn
    Cmd.CommandText = sSQL
    Cmd.Execute
    
    Conn.CommitTrans
    MsgBox "轧帐完成!", vbInformation, "提示窗口"
    
    Exit Sub
CheckErr:
    MsgBox "轧帐失败！" & vbCrLf & Err.Description, vbExclamation, "错误窗口"
    Conn.RollbackTrans
End Sub


Private Sub cmdExit_Click()
    Unload Me
End Sub


Private Sub Form_Load()
    Call SetFormToCenter(Me)
End Sub