form2.frm

这是一个啤酒销售系统的软件

         Begin VB.OptionButton Option1 
            Caption         =   "销售查询"
            Height          =   375
            Index           =   2
            Left            =   120
            TabIndex        =   6
            Top             =   1800
            Width           =   1095
         End
         Begin VB.OptionButton Option1 
            Caption         =   "库存查询"
            Height          =   375
            Index           =   1
            Left            =   120
            TabIndex        =   5
            Top             =   1080
            Width           =   1095
         End
         Begin VB.OptionButton Option1 
            Caption         =   "商品查询"
            Height          =   375
            Index           =   0
            Left            =   120
            TabIndex        =   4
            Top             =   480
            Width           =   1215
         End
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   375
         Left            =   -71400
         TabIndex        =   2
         Top             =   1800
         Width           =   1215
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定"
         Height          =   375
         Left            =   -71400
         TabIndex        =   1
         Top             =   1440
         Width           =   1215
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
If Option1(0).Value = True Then
   tabstring4 = InputBox("请输入商品序列号，否则将显示全部信息", "输入")
   tabstring1 = "Select 商品.序列号,商品.价格,商品.种类,商品.名称,商品.出品日期,商品.产品介绍,商品.图例 "
   tabstring2 = "From 商品 "
   If tabstring4 <> "" Then
   tabstring3 = " Where 商品.序列号 =" & " '" & tabstring4 & "'"
   tabstring = tabstring1 & tabstring2 & tabstring3
   Else
   tabstring = tabstring1 & tabstring2
   End If
   frm查询.Show
   frm查询.Caption = 商品查询
   
   
ElseIf Option1(1).Value = True Then
   tabstring4 = InputBox("请输入商品序列号，否则将显示全部信息", "输入")
   tabstring1 = "Select 库存.序列号,库存.数量,商品.价格,商品.种类,商品.名称,商品.出品日期     "
   tabstring2 = "From 库存,商品 "
   tabstring3 = "Where  库存.序列号=商品.序列号 "
   If tabstring4 <> "" Then
   tabstring5 = " And  (库存.序列号 = " & " '" & tabstring4 & "'" & ")"
   tabstring = tabstring1 & tabstring2 & tabstring3 & tabstring5
   Else
   tabstring = tabstring1 & tabstring2 & tabstring3
   End If
   frm库存查询.Show
   
ElseIf Option1(2).Value = True Then
   tabstring4 = InputBox("请输入商品序列号，否则将显示全部信息", "输入")
   tabstring1 = "Select 销售.序列号,商品.价格,销售.数量,销售.销货单位,销售.日期,商品.种类,商品.名称 "
   tabstring2 = "From 商品, 销售 "
   tabstring3 = "Where 销售.序列号=商品.序列号 "
   If tabstring4 <> "" Then
   tabstring5 = " And (销售.序列号 =  " & " '" & tabstring4 & "'" & ")"
   tabstring = tabstring1 & tabstring2 & tabstring3 & tabstring5
   Else
   tabstring = tabstring1 & tabstring2 & tabstring3
   End If
   frm销售查询.Show
  
ElseIf Option1(3).Value = True Then
   tabstring4 = InputBox("请输入商品序列号，否则将显示全部信息", "输入")
   tabstring1 = "Select 客户.客户号,客户.客户单位,销售.序列号 ,销售.数量,销售.日期 "
   tabstring2 = "From 客户,销售 "
   tabstring3 = "Where 客户.客户单位 = 销售.销货单位 "
   If tabstring4 <> "" Then
   tabstring5 = " And (客户.客户号 =  " & " '" & tabstring4 & "'" & ")"
   tabstring = tabstring1 & tabstring2 & tabstring3 & tabstring5
   Else
   tabstring = tabstring1 & tabstring2 & tabstring3
   End If
   frm查询.Show
   frm查询.Caption = 客户查询
   
ElseIf Option1(4).Value = True Then
   tabstring4 = InputBox("请输入，否则将显示全部信息", "输入")
   tabstring1 = "Select 客户意见.编号,客户.客户单位,客户意见.客户意见,客户意见.问题登记,客户意见.处理意见       "
   tabstring2 = "From 客户,客户意见 "
   tabstring3 = "Where  客户.客户单位=客户意见.客户单位 "
   If tabstring4 <> "" Then
   tabstring5 = " And   (客户.客户单位 =  " & " '" & tabstring4 & "'" & ")"
   tabstring = tabstring1 & tabstring2 & tabstring3 & tabstring5
   Else
   tabstring = tabstring1 & tabstring2 & tabstring3
   End If
   frm查询.Show
   frm查询.Caption = 客户意见查询
 
ElseIf Option1(5).Value = True Then
   tabstring4 = InputBox("请输入帐户号，否则将显示全部信息", "输入")
   tabstring1 = "Select 帐户.帐户号,帐户.权限,帐户.密码       "
   tabstring2 = "From 帐户 "
   If tabstring4 <> "" Then
   tabstring3 = "Where (帐户.帐户号 =  " & " '" & tabstring4 & "'" & ")"
   tabstring = tabstring1 & tabstring2 & tabstring3
   Else
   tabstring = tabstring1 & tabstring2
   End If
   frm查询.Show
   frm查询.Caption = 帐户查询
End If

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
If Option3(0).Value = True Then
   frm商品修改.Show
ElseIf Option3(1).Value = True Then
   frm库存修改.Show
ElseIf Option3(2).Value = True Then
    frm销售修改.Show
ElseIf Option3(3).Value = True Then
     frm客户修改.Show
ElseIf Option3(4).Value = True Then
   frm意见修改.Show
ElseIf Option3(5).Value = True Then
   frm帐户修改1.Show
End If
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Command5_Click()
Dim fso, fo, files
Set files = CreateObject("Scripting.FileSystemObject")

If Option5(0).Value = True Then
   a = MsgBox("确定要备份吗 ?", vbOKCancel)
   If a = 1 Then
   '备份
 If files.FolderExists("c:\啤酒备份") Then
 Else
 files.createfolder ("c:\啤酒备份")
 End If
  Set fso = CreateObject("scripting.FileSystemObject")
  Set fo = fso.Getfile("C:\啤酒数据库\beer.mdb")
  fo.Copy "c:\啤酒备份\"
  MsgBox ("备份完毕！")
   
   End If
ElseIf Option5(1).Value = True Then
   a = MsgBox("确定要恢复吗 ?", vbOKCancel)
   If a = 1 Then
   '恢复
   
  Set fso = CreateObject("scripting.FileSystemObject")
  Set fo = fso.Getfile("c:\啤酒备份\beer.mdb")
  fo.Copy "C:\啤酒数据库\"
  MsgBox ("恢复成功！")
  End If
ElseIf Option5(2).Value = True Then
  
  '系统初始化
frm初始化.Show '初始化是按照表进行的，一张一张的进行
End If

End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Command7_Click()
Form2.Show
End Sub

Private Sub Form_Load()
SSTab1.Height = 7000
SSTab1.Width = 6500
Unload frm登录
'更改

Select Case qx
  Case 0:  '此权限用于系统管理员
     Option1(0).Value = True
     Option3(0).Value = True
     Option5(0).Value = True
  Case 1: ' 此权限用于库存管理人员
     Option1(0).Value = True
     Option1(2).Enabled = False
     Option1(3).Enabled = False
     Option1(4).Enabled = False
     Option1(5).Enabled = False
     Option3(0).Enabled = False
     Option3(1).Enabled = True
     Option3(2).Enabled = False
     Option3(3).Enabled = False
     Option3(4).Enabled = False
     Option3(5).Enabled = False
     Option3(2).Value = True
     Option5(0).Enabled = False
     Option5(1).Enabled = False
     Option5(2).Enabled = False  ' 没有初始化权限
     Command5.Enabled = False
  Case 2: '此权限用于销售管理人员
     Option1(0).Value = True
     Option3(0).Enabled = False
     Option3(1).Enabled = False
     Option3(2).Enabled = True
     Option3(3).Enabled = True
     Option3(4).Enabled = True
     Option3(5).Enabled = False
     Option3(1).Value = True
     Option5(0).Enabled = False
     Option5(1).Enabled = False
     Option5(2).Enabled = False  ' 没有初始化权限
     Command5.Enabled = False
  Case 3:  '此权限用于一般人员，暂且保留
     Option1(0).Value = True
     Option3(0).Enabled = False
     Option3(1).Enabled = False
     Option3(2).Enabled = False
     Option3(5).Enabled = False
     Option3(3).Value = True
     Option5(0).Enabled = False
     Option5(1).Enabled = False
     Option5(2).Enabled = False  ' 没有初始化权限
     Command5.Enabled = False
  Case 4:
     Option1(0).Value = True
     Option3(0).Enabled = False
     Option3(1).Enabled = False
     Option3(2).Enabled = False
     Option3(3).Enabled = False
     Option3(4).Enabled = False
     Option3(5).Enabled = False
     Option5(0).Enabled = False
     Option5(1).Enabled = False
     Option5(2).Enabled = False  ' 没有初始化权限
     Command3.Enabled = False
     Command5.Enabled = False
End Select
End Sub





Private Sub Frame3_DragDrop(Source As Control, X As Single, Y As Single)

End Sub