frmdd_edit.frm

音像店(CD刻录)进销存管理系统

      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "特别收费金额"
         Height          =   240
         Index           =   10
         Left            =   4320
         TabIndex        =   27
         Top             =   3330
         Width           =   1185
      End
      Begin VB.Label Label1 
         Caption         =   "订单类型"
         Height          =   240
         Index           =   9
         Left            =   540
         TabIndex        =   26
         Top             =   2250
         Width           =   870
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "顾客姓名"
         Height          =   240
         Index           =   8
         Left            =   4635
         TabIndex        =   25
         Top             =   2295
         Width           =   870
      End
      Begin VB.Label Label1 
         Caption         =   "录入日期"
         Height          =   240
         Index           =   6
         Left            =   540
         TabIndex        =   24
         Top             =   810
         Width           =   870
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "盒数量"
         Height          =   240
         Index           =   4
         Left            =   4635
         TabIndex        =   22
         Top             =   1800
         Width           =   870
      End
      Begin VB.Label Label1 
         Caption         =   "碟数量"
         Height          =   240
         Index           =   3
         Left            =   540
         TabIndex        =   21
         Top             =   3735
         Width           =   870
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "用碟"
         Height          =   240
         Index           =   2
         Left            =   540
         TabIndex        =   20
         Top             =   3240
         Width           =   870
      End
      Begin VB.Label Label1 
         Caption         =   "歌曲类型"
         Height          =   240
         Index           =   1
         Left            =   540
         TabIndex        =   19
         Top             =   2745
         Width           =   870
      End
      Begin VB.Label Label1 
         Caption         =   "顾客电话"
         Height          =   240
         Index           =   0
         Left            =   4680
         TabIndex        =   18
         Top             =   2790
         Width           =   870
      End
   End
End
Attribute VB_Name = "frmDD_Edit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public XS_ID As Long
Public Modify As Boolean

Dim MyXiaoShou As New clsXiaoShou
Dim MyDaiLiShang As New clsDaiLiShang
Dim MyShangPin As New clsShangPin
Dim MyGeQuLeiXing As New clsGeQuLeiXing


Private Sub cmdCancel_Click()
  Unload Me
End Sub

Private Sub cmdOK_Click()
  '检查录入数据的有效性
  If Trim(cmbDLS_DaiHao.Text) = "" Then
    MsgBox "请输入编号！", , "警告"
    cmbDLS_DaiHao.SetFocus
    Exit Sub
  End If
  If Trim(cmbDYGC.Text) = "" Then
    MsgBox "请输入是否打印歌词！", , "警告"
    cmbDYGC.SetFocus
    Exit Sub
  End If
  
  
  '把用户录入的数据复制到对象MyRuKuCaoZuo中
  With MyXiaoShou
    .Init
    
    .LR_Date = DateValue(Trim(txtLR_N.Text) & "-" & Trim(txtLR_Y.Text) & "-" & Trim(txtLR_R.Text))
    .DD_Date = DateValue(Trim(txtDD_N.Text) & "-" & Trim(txtDD_Y.Text) & "-" & Trim(txtDD_R.Text))
    .DLS_DaiHao = Trim(cmbDLS_DaiHao.Text)
    .DLS_name = MyDaiLiShang.GetMingCheng(Trim(cmbDLS_DaiHao.Text))
    .DDLX = Trim(cmbDDLX.Text)
    .GQLX = Trim(cmbGQLX.Text)
    
    '碟
    .YD = Trim(cmbYD.Text)
    MyShangPin.GetInfo (MyShangPin.GetId(Trim(cmbYD.Text)))
    .D_DLDJ = MyShangPin.DLJ
    .D_LSDJ = MyShangPin.LSJ
    .D_ShuLiang = Val(Trim(txtDShuLiang.Text))
    .D_DLJE = .D_DLDJ * .D_ShuLiang
    .D_LSJE = .D_LSDJ * .D_ShuLiang
    
    '盒
    .GDH = Trim(cmbGDH.Text)
    MyShangPin.GetInfo (MyShangPin.GetId(Trim(cmbGDH.Text)))
    .H_DLDJ = MyShangPin.DLJ
    .H_LSDJ = MyShangPin.LSJ
    .H_ShuLiang = Val(Trim(txtHShuLiang.Text))
    .H_DLJE = .H_DLDJ * .H_ShuLiang
    .H_LSJE = .H_LSDJ * .H_ShuLiang
    
    '歌词
    If Trim(cmbDYGC.Text) = "是" Then
      .DYGC = True
    Else
      .DYGC = False
    End If
    
    .TBSF_JE = Val(Trim(txtTBSFJE.Text))
    .TBSFYY = Trim(txtTBSFYY.Text)
    
    If Modify = False Then
      .Insert
    Else
      .Update (XS_ID)
    End If
  End With
  
  Set MyShangPin = Nothing
  Set MyXiaoShou = Nothing
  Set MyDaiLiShang = Nothing
  
  Unload Me
End Sub

Private Sub Form_Load()
  Dim i As Integer
  
  lblShowDate.Caption = Date
  txtLR_N.Text = Year(Date)
  txtLR_Y.Text = Month(Date)
  txtLR_R.Text = Day(Date)
  txtDD_N.Text = Year(Date)
  txtDD_Y.Text = Month(Date)
  txtDD_R.Text = Day(Date)
  
  With MyShangPin
    .Load_PinMing
    i = 0
    Do While Arr_ShangPin(i) <> ""
      .GetInfo (.GetId(Arr_ShangPin(i)))
      If Trim(.ShuLei) = "CDR" Then
        cmbYD.AddItem Arr_ShangPin(i)
      End If
      i = i + 1
    Loop
    
    i = 0
    Do While Arr_ShangPin(i) <> ""
      .GetInfo (.GetId(Arr_ShangPin(i)))
      If Trim(.ShuLei) = "CD盒" Then
        cmbGDH.AddItem Arr_ShangPin(i)
      End If
      i = i + 1
    Loop
  End With
  
  MyGeQuLeiXing.Load_LeiXing
  i = 0
  Do While Arr_GQLX(i) <> ""
    cmbGQLX.AddItem Arr_GQLX(i)
    i = i + 1
  Loop
  
  With MyDaiLiShang
    .Load_Client
    i = 0
    Do While Arr_Client(i) <> ""
      cmbDLS_DaiHao.AddItem .GetDaiHao(Arr_Client(i))
      i = i + 1
    Loop
  End With
  
  Set MyDaiLiShang = Nothing
  Set MyGeQuLeiXing = Nothing
  Set MyShangPin = Nothing
End Sub

Private Sub txtDD_N_KeyPress(KeyAscii As Integer)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtDD_R_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtDD_Y_KeyPress(KeyAscii As Integer)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtDShuLiang_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtGKDH_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtGKXM_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtHShuLiang_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtLR_N_KeyPress(KeyAscii As Integer)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtLR_R_KeyPress(KeyAscii As Integer)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtLR_Y_KeyPress(KeyAscii As Integer)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtTBSFJE_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
  If In_Single(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtTBSFYY_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub cmbDDLX_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub cmbDLS_DaiHao_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub cmbDYGC_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub cmbGDH_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub cmbGQLX_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub cmbYD_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub