sellbacktable.frm

来自「一个关于电脑管理汽车的软件」· FRM 代码 · 共 1,481 行 · 第 1/4 页

FRM
1,481 行
字号
1234
               Name            =   "宋体"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00800000&
            Height          =   255
            Index           =   11
            Left            =   3960
            TabIndex        =   25
            Top             =   2040
            Width           =   1215
         End
         Begin VB.Label BillName 
            Caption         =   "总退货额："
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00800000&
            Height          =   255
            Index           =   7
            Left            =   7200
            TabIndex        =   24
            Top             =   1800
            Width           =   1215
         End
      End
      Begin MSComctlLib.ListView lstAddress 
         Height          =   6495
         Left            =   120
         TabIndex        =   36
         Top             =   480
         Width           =   9015
         _ExtentX        =   15901
         _ExtentY        =   11456
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   0   'False
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   8388608
         BackColor       =   -2147483628
         BorderStyle     =   1
         Appearance      =   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         NumItems        =   4
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "Name"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "Address"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   2
            Text            =   "City, State, Zip"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   3
            Text            =   "Notes"
            Object.Width           =   2540
         EndProperty
      End
      Begin MSComctlLib.ListView lstBillDocu 
         Height          =   3615
         Left            =   -74880
         TabIndex        =   37
         Top             =   3240
         Width           =   9855
         _ExtentX        =   17383
         _ExtentY        =   6376
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   0   'False
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   8388608
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         NumItems        =   4
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "Name"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "Address"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   2
            Text            =   "City, State, Zip"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   3
            Text            =   "Notes"
            Object.Width           =   2540
         EndProperty
      End
   End
End
Attribute VB_Name = "SellBackTable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim NewRecord As Boolean
Dim LastSortIndex As Long, LastSortDir As Long
Private VarOption As Integer
Public lstAddressIndex As Long
Public ModifyBS As Boolean
Public lstBillDocuIndex As Long
Public BillStateBS As Integer
Public OrgRS As ChangeHistory







Private Sub cmbCheckMan_KeyDown(KeyCode As Integer, Shift As Integer)
 cmbCheckMan.Text = ""
End Sub

Private Sub cmbCheckMan_KeyUp(KeyCode As Integer, Shift As Integer)
 cmbCheckMan.Text = ""
End Sub


Private Sub cmbInvoiceType_KeyDown(KeyCode As Integer, Shift As Integer)
 cmbInvoiceType.Text = "'"
End Sub

Private Sub cmbInvoiceType_KeyUp(KeyCode As Integer, Shift As Integer)
 cmbInvoiceType.Text = ""
End Sub


Private Sub CmbPayWay_KeyDown(KeyCode As Integer, Shift As Integer)
 CmbPayWay.Text = ""
End Sub

Private Sub CmbPayWay_KeyUp(KeyCode As Integer, Shift As Integer)
 CmbPayWay.Text = ""
End Sub


Private Sub cmbPrincipal_KeyDown(KeyCode As Integer, Shift As Integer)
 cmbPrincipal.Text = ""
End Sub

Private Sub cmbPrincipal_KeyUp(KeyCode As Integer, Shift As Integer)
 cmbPrincipal.Text = ""
End Sub

Private Sub cmdFind_Click()
 VarInitData.SearchClientData = 5
 ClientDataFind.Show 1

End Sub


Private Sub Command1_Click(Index As Integer)
 Dim i As Integer
 Dim TempRS As MYSQL_RS, TempRS2 As MYSQL_RS
 Dim TempVar As Long
 Dim TempSQL As String
 Dim TempBillType As Integer
 Dim TempCount As Long
 Dim StrBillNum As String
 Dim GoodsPriceMoney As Double
 Select Case Index
  Case 0
    VarInitData.SellBS = True
    SearchGoods8.Show 1
  Case 1
    BillStateBS = 1
    For i = 0 To 3
     With Command3(i)
      .left = Command1(i).left
      .top = Command1(i).top
      .Visible = True
     End With
    Next i
    For i = 0 To 5
     Command1(i).Visible = False
    Next i
    Frame2.Enabled = True
    ClearFrame2
    
    lblOperateMan = CurrentOperate

    If SSStock.Tab = 1 Then
     SSStock.TabEnabled(0) = False
     SSStock_Click 0
    Else
     SSStock.Tab = 1
     SSStock.TabEnabled(0) = False
    End If
  Case 2
   If lstAddressIndex > 0 And lstAddress.ListItems.Count > 0 Then
    BillStateBS = 2
    For i = 0 To 3
     With Command3(i)
      .left = Command1(i).left
      .top = Command1(i).top
      .Visible = True
     End With
    Next i
    For i = 0 To 5
     Command1(i).Visible = False
    Next i
    Frame2.Enabled = True
    SSStock.Tab = 1
    SSStock.TabEnabled(0) = False
   End If
  Case 3
    If lstAddressIndex > 0 And lstAddress.ListItems.Count > 0 Then
     If MsgBox("确定删除这条记录吗？", vbOKCancel, VarInitData.SysPrompt) = vbOK Then
      TempSQL = "Delete From sellbacktable Where billnum = " & Quote(Trim(lstAddress.ListItems(lstAddressIndex).Text))
      gCnn.Execute TempSQL
      TempSQL = "Delete From sellbacktable2 Where billnum = " & Quote(Trim(lstAddress.ListItems(lstAddressIndex).Text))
      gCnn.Execute TempSQL
      TempSQL = VarInitData.DisplaySQLVal(17)
      VarInitData.LoadData lstAddress, TempSQL
      ClearFrame2
      lstBillDocu.ListItems.Clear
     End If
    End If
  Case 4
   TempSQL = VarInitData.DisplaySQLVal(17)
   VarInitData.LoadData lstAddress, TempSQL
  Case 5 '销售退货单
   If lstAddressIndex > 0 And lstAddress.ListItems.Count > 0 Then
    TempSQL = "Select * From sellbacktable2" & " Where billnum = " & Quote(Trim(lstAddress.ListItems(lstAddressIndex).Text))
    Set TempRS = New MYSQL_RS
    TempRS.OpenRs TempSQL, gCnn
    TempCount = TempRS.RecordCount
   If TempCount > 0 Then
    With TempRS
     .MoveFirst
     Do Until .EOF
      If VarInitData.SaveToStore2(TempRS, False) = False Then
       MsgBox "没有此种货物，入库失败", , VarInitData.SysPrompt
       TempRS.CloseRecordset
       TempRS.ReleaseMemory
       Set TempRS = Nothing
       Exit Sub
      End If
      .MoveNext
     Loop
    End With
    
    Set TempRS2 = New MYSQL_RS
    TempSQL = "Select * From counttable where countname =" & Quote("审核销退货单")
    TempRS2.OpenRs TempSQL, gCnn
    TempRS2.Fields("count").Value = CLng(TempRS2.Fields("count").Value) + 1
    StrBillNum = VarInitData.DealVarNo(CStr(TempRS2.Fields("count")), 6, "XT")
    TempRS2.Update
    TempRS2.CloseRecordset
    TempRS2.ReleaseMemory
    Set TempRS2 = Nothing
    
    With TempRS
     .MoveFirst
     Do Until .EOF
       VarInitData.SaveToStore2 TempRS, True, GoodsPriceMoney
       VarInitData.SaveToSellData TempRS, GoodsPriceMoney, StrBillNum
       .MoveNext
     Loop
    End With
    TempRS.CloseRecordset
    TempRS.ReleaseMemory
    Set TempRS = Nothing
    
    TempSQL = VarInitData.DisplaySQLVal(17) & " Where billnum = " & Quote(Trim(lstAddress.ListItems(lstAddressIndex).Text))
    Set TempRS = New MYSQL_RS
    TempRS.OpenRs TempSQL, gCnn
    VarInitData.SaveToSellBill TempRS, 19, StrBillNum
    TempRS.CloseRecordset
    TempRS.ReleaseMemory
    Set TempRS = Nothing

    TempSQL = "Delete from sellbacktable Where billnum = " & Quote(Trim(lstAddress.ListItems(lstAddressIndex).Text))
    gCnn.Execute TempSQL
    TempSQL = "Delete from sellbacktable2 Where billnum = " & Quote(Trim(lstAddress.ListItems(lstAddressIndex).Text))
    gCnn.Execute TempSQL
    TempSQL = VarInitData.DisplaySQLVal(17)
    VarInitData.LoadData lstAddress, TempSQL
   Else
    MsgBox "货物单据为空，操作失败", , VarInitData.SysPrompt
    TempRS.CloseRecordset
    TempRS.ReleaseMemory
    Set TempRS = Nothing
   End If
  End If
 Case 6
  If lstAddress.SelectedItem Is Nothing Then Exit Sub
  VarCrystal.DispalySellReport lstAddress.SelectedItem.Text, 17
 End Select
 VarInitData.DealListView lstAddress, lstAddressIndex
End Sub



Private Sub Command3_Click(Index As Integer)
 Dim TempSQL As String
 Dim TempCount As Long, TempMoney As Long
 Dim TempMoney2 As Long, TemplstCount As Long
 Dim i As Long, j As Long, TempFindIndex As Long
 Dim TempRS As MYSQL_RS
 Select Case Index
  Case 0 '增加新的记录"
  ' If lblBillNum.Caption <> "" Then
    AddRow4.Show 1
  ' End If
  Case 1 '删除记录
   If lstBillDocu.ListItems.Count > 0 And lstBillDocuIndex > 0 Then
    If MsgBox("确定删除这条记录吗？", vbOKCancel, VarInitData.SysPrompt) = vbOK Then
     lstBillDocu.ListItems.Remove lstBillDocuIndex
     OrgRS.DeleteKeyRS lstBillDocuIndex
     With SellBackTable
      TemplstCount = .lstBillDocu.ListItems.Count
      .lblGItemCount = TemplstCount
      TempCount = 0
      TempMoney = 0
      TempMoney2 = 0
      For i = 1 To TemplstCount
       TempCount = TempCount + Val(.lstBillDocu.ListItems(i).SubItems(3))
       TempMoney = TempMoney + Val(.lstBillDocu.ListItems(i).SubItems(5))
       TempMoney2 = TempMoney2 + Val(.lstBillDocu.ListItems(i).SubItems(6))
      Next i
1234

sellbacktable.frm - 源码说明

本页面展示了「一个关于电脑管理汽车的软件」中的 sellbacktable.frm 源码文件，采用 FRM 编程语言编写，共 1,481 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与电脑相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?