📄 storegoods.frm

📁 用与大型超市的管理与运行；具有提高效率节省费用的优点
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      Top             =   600
      Width           =   855
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "品名"
      Height          =   375
      Left            =   480
      TabIndex        =   2
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "品牌"
      Height          =   375
      Left            =   480
      TabIndex        =   1
      Top             =   1800
      Width           =   855
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "商品标号"
      Height          =   375
      Left            =   480
      TabIndex        =   0
      Top             =   720
      Width           =   855
   End
End
Attribute VB_Name = "storegoods"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

   
If Trim(Text1.Text) = "" Then
        MsgBox "商品标号不能为空！", vbOKOnly + vbExclamation, ""
        Text1.SetFocus
        Exit Sub
        End If
        If Trim(Text3.Text) = "" Then
        MsgBox "商品品牌不能为空！", vbOKOnly + vbExclamation, ""
        Text3.SetFocus
        Exit Sub
        End If
        If Trim(Text4.Text) = "" Then
        MsgBox "商品品名不能为空！", vbOKOnly + vbExclamation, ""
        Text4.SetFocus
        Exit Sub
        End If

Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled
Command5.Enabled = Not Command5.Enabled
Command6.Enabled = Not Command6.Enabled
Command7.Enabled = Not Command7.Enabled
Command8.Enabled = Not Command8.Enabled
Command9.Enabled = Not Command9.Enabled

If Command1.Caption = "新增" Then
   Command1.Caption = "确认"
    Data1.Recordset.AddNew
    Text1.Enabled = True
  
    Text3.Enabled = True
    Text4.Enabled = True
    Text5.Enabled = True
    Text6.Enabled = True
    Text7.Enabled = True
    Text8.Enabled = True
    Text9.Enabled = True
    Text10.Enabled = True
    Text11.Enabled = True
    Combo1.Enabled = True
    Combo2.Enabled = True
    Combo3.Enabled = True
    Text1.SetFocus
       

 
     
Else
    Command1.Caption = "新增"
    Text1.Enabled = False
   

   Text3.Enabled = False

  Text4.Enabled = False

  Text5.Enabled = False
 
  Text6.Enabled = False

   Text7.Enabled = False

  Text8.Enabled = False

  Text9.Enabled = False
  Text10.Enabled = False
  Text11.Enabled = False
  Combo1.Enabled = False
  Combo2.Enabled = False
  Combo3.Enabled = False
  If Trim(Text1.Text) = "" Then
     Text1.Text = "11112"
     Text4.Text = "34"
    
    'If Trim(Text2.Text) = "" Then
     '   MsgBox "条码不能为空！", vbOKOnly + vbExclamation, ""
      '  Text2.SetFocus
       ' Exit Sub
     'End If
   'If Trim(Text3.Text) = "" Then
    '    MsgBox "品牌不能为空！", vbOKOnly + vbExclamation, ""
     '   Tex3.SetFocus
      '  Exit Sub
  '   End If
   '  If Trim(Text4.Text) = "" Then
    '    MsgBox "品名不能为空！", vbOKOnly + vbExclamation, ""
     '   Text4.SetFocus
      '  Exit Sub
 '    End If
  '  If Trim(Text5.Text) = "" Then
   '     MsgBox "产地不能为空！", vbOKOnly + vbExclamation, ""
    '    Text5.SetFocus
     '   Exit Sub
   '  End If
    'If Trim(Text6.Text) = "" Then
'        MsgBox "规格不能为空！", vbOKOnly + vbExclamation, ""
 '       Text6.SetFocus
  '      Exit Sub
   '  End If
    ' If Trim(Text7.Text) = "" Then
     '   MsgBox "现价格不能为空！", vbOKOnly + vbExclamation, ""
      '  Text7.SetFocus
       ' Exit Sub
'     End If
'     If Trim(Text8.Text) = "" Then
'        MsgBox "数量不能为空！", vbOKOnly + vbExclamation, ""
'        Text8.SetFocus
'        Exit Sub
'     End If
'     If Trim(Text9.Text) = "" Then
'        MsgBox "促销价不能为空！", vbOKOnly + vbExclamation, ""
'        Text9.SetFocus
'        Exit Sub
'     End If
'     If Trim(Text10.Text) = "" Then
'        MsgBox "保质期不能为空！", vbOKOnly + vbExclamation, ""
'        Text10.SetFocus
'        Exit Sub
'     End If
'     If Trim(Text11.Text) = "" Then
'        MsgBox "上架期不能为空！", vbOKOnly + vbExclamation, ""
'        Text11.SetFocus
'        Exit Sub
'     End If
'     If Trim(Combo1.Text) = "" Then
'        MsgBox "等级不能为空！", vbOKOnly + vbExclamation, ""
'        Combo1.SetFocus
'        Exit Sub
'     End If
'     If Trim(Combo2.Text) = "" Then
'        MsgBox "单位不能为空！", vbOKOnly + vbExclamation, ""
'        Combo2.SetFocus
'        Exit Sub
'     End If
'     If Trim(Combo3.Text) = "" Then
'        MsgBox "商品标号不能为空！", vbOKOnly + vbExclamation, ""
'        Combo3.SetFocus
'        Exit Sub
'     End If
       
        Data1.Recordset.Update
        Data1.Recordset.MoveLast
        Data1.Recordset.Delete
        Data1.Recordset.MoveFirst
    Else
       Data1.Recordset.Update
       Data1.Recordset.MoveLast
    End If
End If
End Sub
Private Sub Command2_Click()

Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
Data1.Refresh
End If
Data1.RecordSource = "select * from good"
Data1.Refresh
End Sub

Private Sub Command3_Click()
On Error Resume Next
If Trim(Text1.Text) = "" Then
        MsgBox "商品标号不能为空！", vbOKOnly + vbExclamation, ""
        Text1.SetFocus
        Exit Sub
        End If
        If Trim(Text3.Text) = "" Then
        MsgBox "商品品牌不能为空！", vbOKOnly + vbExclamation, ""
        Text3.SetFocus
        Exit Sub
        End If
        If Trim(Text4.Text) = "" Then
        MsgBox "商品品名不能为空！", vbOKOnly + vbExclamation, ""
        Text4.SetFocus
        Exit Sub
        End If
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled
Command5.Enabled = Not Command5.Enabled
Command6.Enabled = Not Command6.Enabled
Command7.Enabled = Not Command7.Enabled
Command8.Enabled = Not Command8.Enabled
Command9.Enabled = Not Command9.Enabled
If Command3.Caption = "修改" Then
 Text1.Enabled = True
    
    Text3.Enabled = True
    Text4.Enabled = True
    Text5.Enabled = True
    Text6.Enabled = True
    Text7.Enabled = True
    Text8.Enabled = True
    Text9.Enabled = True
    Text10.Enabled = True
    Text11.Enabled = True
    Combo1.Enabled = True
    Combo2.Enabled = True
    Combo3.Enabled = True
   Command3.Caption = "确认"
 Data1.Recordset.Edit
   Text1.SetFocus
Else
Text1.Enabled = False


Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

Text7.Enabled = False

Text8.Enabled = False

Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
   Command3.Caption = "修改"
    
   Data1.Recordset.Update
   
End If

End Sub

Private Sub Command4_Click()
On Error Resume Next
Command1.Caption = "新增"
Command3.Caption = "修改"
Text1.Enabled = False


Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

Text7.Enabled = False

Text8.Enabled = False

Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Data1.UpdateControls
Data1.Recordset.MoveNext
Data1.Refresh
End Sub

Private Sub Command5_Click()
Data1.Recordset.MovePrevious
Data1.Recordset.MoveNext
Data1.Refresh
End Sub

Private Sub Command6_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Command7_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
    Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Command8_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Command9_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub Form_Activate()
Text1.Enabled = False






Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

Text7.Enabled = False

Text8.Enabled = False

Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False



End Sub
上一页 12
💿 文件大小 1940 K
👤 上传用户 sea_and_sun
📂 所属分类 SQL Server
🏷️ 相关标签

#大型 #运行 #高效率
⌨️ 快捷键说明

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