goodsdata.frm

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

FRM
1,224 行
字号
123
         End
      End
      Begin MSComctlLib.ListView lstBillDocu 
         Height          =   3615
         Left            =   120
         TabIndex        =   9
         Top             =   1920
         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       =   0
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            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 VB.Label Label1 
         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           =   15
         Left            =   -67320
         TabIndex        =   51
         Top             =   600
         Width           =   1215
      End
   End
End
Attribute VB_Name = "GoodsData"
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
Private ModifyBS As Boolean
Public lstBillDocuIndex As Long
Private PageNum As Long



Private Sub cmdFind_Click()
 VarInitData.SearchSimpleCodeBS = 1
 SimpleCodeFind.Show 1
End Sub

Private Sub Combo1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 Combo1(Index).Text = ""
End Sub

Private Sub Combo1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
 Combo1(Index).Text = ""
End Sub

Private Sub Command1_Click(Index As Integer)
 Dim i As Integer
 Dim TempRS As MYSQL_RS
 Dim TempVar As Long
 Dim TempSQL As String
 Dim TempBillType As Integer
 Select Case Index
  Case 0
   SearchGoods.Show 1
  Case 1
   ClearFrame
   Frame1.Enabled = True
   Frame1.Visible = True
   lstBillDocu.Visible = False
   For i = 0 To 1
    With Command2(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
   SSStock.TabEnabled(0) = False
   SSStock.Tab = 1
   
  Case 2
   If lstBillDocuIndex > 0 And lstBillDocu.ListItems.Count > 0 Then
     ClearFrame
     Frame1.Visible = True
     lstBillDocu.Visible = False
     For i = 0 To 1
      With Command2(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
     SSStock.TabEnabled(0) = False
     SSStock.Tab = 1
     
     With lstBillDocu.ListItems(lstBillDocuIndex)
       TexGoods(0) = .Text
       TexGoods(1) = .SubItems(1)
       TexGoods(10) = .SubItems(2)
       TexGoods(2) = .SubItems(3)
       Combo1(0) = .SubItems(4)
       Combo1(1) = .SubItems(5)
       Combo1(2) = .SubItems(6)
       Combo1(3) = .SubItems(7)
       TexGoods(8) = .SubItems(8)
       TexGoods(9) = .SubItems(9)
       TexGoods(3) = .SubItems(10)
       TexGoods(4) = .SubItems(11)
       TexGoods(5) = .SubItems(12)
       TexGoods(6) = .SubItems(13)
       TexGoods(7) = .SubItems(14)
       TexGoods(11) = .SubItems(15)
     End With
     Frame1.Enabled = True
     ModifyBS = True
   End If
  Case 3
   If lstBillDocu.ListItems.Count > 0 And lstBillDocuIndex > 0 Then
    If MsgBox("确定删除这一项吗？", vbOKCancel, "提示") = vbOK Then
     TempSQL = "Delete From goodsdata Where goodscoding = " & Quote(Trim(lstBillDocu.ListItems(lstBillDocuIndex).Text))
     gCnn.Execute TempSQL
     TempSQL = VarInitData.DisplaySQLVal(3)
     VarInitData.LoadData lstBillDocu, TempSQL
     If lstBillDocuIndex > lstBillDocu.ListItems.Count Then
      lstBillDocuIndex = lstBillDocu.ListItems.Count
     End If
     VarInitData.DealListView lstBillDocu, lstBillDocuIndex
    End If
   End If
  Case 4
   TempSQL = VarInitData.DisplaySQLVal(3)
   VarInitData.LoadData lstBillDocu, TempSQL
   If lstBillDocu.ListItems.Count > 0 Then
    lstBillDocuIndex = 1
   End If
   VarInitData.DealListView lstBillDocu, lstBillDocuIndex
  Case 5
   If lstBillDocu.SelectedItem Is Nothing Then Exit Sub
   VarCrystal.DispalyGoodsdataReport
  Case 6 To 9
   Select Case Index
    Case 6 '首页
     PageNum = 0
    Case 7 '上一页
     PageNum = PageNum - 1
     If PageNum < 0 Then PageNum = 0
    Case 8 '下一页
     PageNum = PageNum + 1
    Case 9 '尾页
     PageNum = -1
   End Select
   'VarInitData.LoadData lstBillDocu, VarInitData.DisplaySQLVal(3), 2, PageNum
   'Label2 = PageNum + 1
 End Select
End Sub

Private Sub Command2_Click(Index As Integer)
 Dim TempRS As MYSQL_RS
 Dim i As Integer
 Dim TempSQL As String
 Select Case Index
  Case 0 '保存
    If LenB(TexGoods(0)) >= 50 Then
     MsgBox "货品编码的内容太多了，操作失败", , VarInitData.SysPrompt
     Exit Sub
    End If
    If Val(TexGoods(6)) < Val(TexGoods(7)) Then
     MsgBox "最高库存不能小于最低库存", , VarInitData.SysPrompt
     Exit Sub
    End If
    Set TempRS = New MYSQL_RS
    If ModifyBS = True Then
     SQL = "Select * From goodsdata Where goodscoding = " & Quote(Trim(lstBillDocu.ListItems(lstBillDocuIndex).Text))
    Else
     SQL = "Select * From goodsdata" 'Where AKey = " & Val(txtAKey)
    End If
    TempRS.OpenRs SQL, gCnn
    If ModifyBS = False Then
     If TempRS.RecordCount > 0 Then
      TempRS.MoveLast
      TempRS.MoveNext
     End If
    End If
    With TempRS
     If .EOF Then .AddNew
     .Fields("goodscoding") = Trim(TexGoods(0).Text)
     .Fields("goodsname") = Trim(TexGoods(1).Text)
     .Fields("venglishname") = Trim(TexGoods(10).Text)
     .Fields("goodsstandard") = Trim(TexGoods(2).Text)
     .Fields("goodssort") = Trim(Combo1(0).Text)
     .Fields("brand") = Trim(Combo1(1).Text)
     .Fields("producehere") = Trim(Combo1(2).Text)
     .Fields("unit") = Combo1(3).Text
     .Fields("replacecoding") = TexGoods(8).Text
     .Fields("bakcoding") = TexGoods(9).Text
     .Fields("orgprice") = TexGoods(3).Text
     .Fields("buyprice") = TexGoods(4).Text
     .Fields("sellprice") = TexGoods(5).Text
     .Fields("maxstore") = TexGoods(6).Text
     .Fields("minstore") = TexGoods(7).Text
     .Fields("bakintro") = TexGoods(11).Text
     .Update
    End With
    Set TempRS = Nothing
    TempSQL = VarInitData.DisplaySQLVal(3)
    VarInitData.LoadData lstBillDocu, TempSQL
    If ModifyBS = False Then lstBillDocuIndex = lstBillDocu.ListItems.Count
  Case 1
     ClearFrame
     If lstBillDocuIndex > 0 And lstBillDocu.ListItems.Count > 0 Then
      With lstBillDocu.ListItems(lstBillDocuIndex)
       TexGoods(0) = .Text
       TexGoods(1) = .SubItems(1)
       TexGoods(10) = .SubItems(2)
       TexGoods(2) = .SubItems(3)
       Combo1(0) = .SubItems(4)
       Combo1(1) = .SubItems(5)
       Combo1(2) = .SubItems(6)
       Combo1(3) = .SubItems(7)
       TexGoods(8) = .SubItems(8)
       TexGoods(9) = .SubItems(9)
       TexGoods(3) = .SubItems(10)
       TexGoods(4) = .SubItems(11)
       TexGoods(5) = .SubItems(12)
       TexGoods(6) = .SubItems(13)
       TexGoods(7) = .SubItems(14)
       TexGoods(11) = .SubItems(15)
      End With
     End If
 End Select
    ModifyBS = False
    SSStock.TabEnabled(0) = True
   Frame1.Enabled = False
    For i = 0 To 1
     Command2(i).Visible = False
    Next i
    For i = 0 To 5
     Command1(i).Visible = True
    Next i
    
End Sub




Private Sub Form_Activate()
 VarInitData.DealListView lstBillDocu, lstBillDocuIndex
End Sub

Private Sub Form_Load()
  Dim i As Integer
  Dim TempSQL As String
    VarInitData.InitBSE BSE1
    PageNum = 0

    Frame1.Visible = False
    Frame1.Enabled = False
    lstBillDocu.Visible = True
    For i = 0 To 1
     Command2(i).Visible = False
    Next i
    For i = 6 To 9
     Command1(i).Enabled = False
    Next i
   For i = 2 To 5
    TempSQL = VarInitData.DisplayDynSQLVal(VarInitData.SureNameFrIndex(i))
    VarInitData.LoadData Combo1(i - 2), TempSQL, 1
   Next i

   VarInitData.LoadData lstBillDocu, VarInitData.DisplaySQLVal(3)
   Label2 = PageNum + 1
End Sub


Private Sub Form_Resize()
 If Me.ScaleHeight > 0 And Me.ScaleWidth > 0 Then
  frameInfo.left = Me.ScaleLeft
  frameInfo.top = Me.ScaleTop
  frameInfo.Width = Me.ScaleWidth
  SSStock.top = frameInfo.top + frameInfo.Height
  SSStock.left = Me.ScaleLeft + 70
  SSStock.Width = IIf(Me.ScaleWidth - 140 > 0, Me.ScaleWidth - 140, 0)
  SSStock.Height = IIf(Me.ScaleHeight - frameInfo.Height - 50 > 0, Me.ScaleHeight - frameInfo.Height - 50, 0) 'Screen.Height - 2650
  lstBillDocu.top = 450
  lstBillDocu.left = 70
  lstBillDocu.Width = IIf(SSStock.Width - 140, SSStock.Width - 140, 0)
  lstBillDocu.Height = IIf(SSStock.Height - 550 > 0, SSStock.Height - 550, 0)
 End If
End Sub


Private Sub Form_Unload(Cancel As Integer)
 If BSE1.EngineStarted Then BSE1.EndSubClassing

End Sub

Private Sub lstBillDocu_ItemClick(ByVal Item As MSComctlLib.ListItem)
 lstBillDocuIndex = Item.Index
 
End Sub

Private Sub Option1_Click(Index As Integer)
 VarOption = Index + 1
End Sub

Private Sub SSStock_Click(PreviousTab As Integer)
 Dim TempSQL As String
 Dim TempStr As String
 Dim TempRS As MYSQL_RS
 Dim TempBillType As Integer
 Dim i As Integer
 If Frame1.Enabled = False Then
 If PreviousTab <> 0 Then
  lstBillDocu.Visible = True
  Frame1.Visible = False
  VarInitData.DealListView lstBillDocu, lstBillDocuIndex
 Else
  lstBillDocu.Visible = False
  Frame1.Visible = True
  TempSQL = VarInitData.DisplaySQLVal(3)
  ClearFrame
  Frame1.Enabled = False
  If lstBillDocuIndex > 0 And lstBillDocu.ListItems.Count > 0 Then
   With lstBillDocu.ListItems(lstBillDocuIndex)
     TexGoods(0) = .Text
     TexGoods(1) = .SubItems(1)
     TexGoods(10) = .SubItems(2)
     TexGoods(2) = .SubItems(3)
     Combo1(0) = .SubItems(4)
     Combo1(1) = .SubItems(5)
     Combo1(2) = .SubItems(6)
     Combo1(3) = .SubItems(7)
     TexGoods(8) = .SubItems(8)
     TexGoods(9) = .SubItems(9)
     TexGoods(3) = .SubItems(10)
     TexGoods(4) = .SubItems(11)
     TexGoods(5) = .SubItems(12)
     TexGoods(6) = .SubItems(13)
     TexGoods(7) = .SubItems(14)
     TexGoods(11) = .SubItems(15)
   End With
  End If

 End If
End If
End Sub
Private Sub ClearFrame()
 Dim i As Integer
  For i = 0 To 11
   TexGoods(i).Text = ""
  Next i
  For i = 0 To 3
   Combo1(i).Text = ""
  Next i
End Sub
123

goodsdata.frm - 源码说明

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

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

⌨️ 快捷键说明

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