form71.frm

利用VB编写的一个完整的酒店管理程序,支持双数据库!

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form71 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "易耗品出库"
   ClientHeight    =   4410
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   10125
   LinkTopic       =   "Form7"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4410
   ScaleWidth      =   10125
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command9 
      Caption         =   "查找"
      Height          =   375
      Left            =   9120
      TabIndex        =   16
      Top             =   360
      Width           =   855
   End
   Begin VB.TextBox Text7 
      ForeColor       =   &H000000C0&
      Height          =   375
      Left            =   9120
      TabIndex        =   14
      Top             =   1800
      Width           =   975
   End
   Begin VB.TextBox Text6 
      Height          =   375
      Left            =   7200
      TabIndex        =   13
      Top             =   2760
      Width           =   1815
   End
   Begin VB.TextBox Text5 
      Height          =   375
      Left            =   7200
      TabIndex        =   12
      Top             =   2280
      Width           =   1815
   End
   Begin VB.TextBox Text4 
      Height          =   375
      Left            =   7200
      TabIndex        =   11
      Top             =   1800
      Width           =   1815
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   7200
      TabIndex        =   10
      Top             =   1320
      Width           =   1815
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   7200
      TabIndex        =   9
      Top             =   840
      Width           =   1815
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   7200
      TabIndex        =   0
      Top             =   360
      Width           =   1815
   End
   Begin VB.CommandButton Command8 
      Caption         =   "退出"
      Height          =   375
      Left            =   8160
      TabIndex        =   8
      Top             =   3360
      Width           =   975
   End
   Begin VB.CommandButton Command7 
      Caption         =   "确认"
      Height          =   375
      Left            =   6840
      TabIndex        =   7
      Top             =   3360
      Width           =   1215
   End
   Begin VB.CommandButton Command6 
      Caption         =   "备  注"
      Height          =   375
      Left            =   6000
      TabIndex        =   6
      Top             =   2760
      Width           =   1215
   End
   Begin VB.CommandButton Command5 
      Caption         =   "合  计"
      Height          =   375
      Left            =   6000
      TabIndex        =   5
      Top             =   2280
      Width           =   1215
   End
   Begin VB.CommandButton Command4 
      Caption         =   "数  量"
      Height          =   375
      Left            =   6000
      TabIndex        =   4
      Top             =   1800
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "单  价"
      Height          =   375
      Left            =   6000
      TabIndex        =   3
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "名  称"
      Height          =   375
      Left            =   6000
      TabIndex        =   2
      Top             =   840
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "编  号"
      Height          =   375
      Left            =   6000
      TabIndex        =   1
      Top             =   360
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid Grid1 
      Height          =   4335
      Left            =   0
      TabIndex        =   17
      Top             =   0
      Width           =   5895
      _ExtentX        =   10398
      _ExtentY        =   7646
      _Version        =   393216
      Cols            =   10
      FixedCols       =   0
      FormatString    =   " 编号  | 名    称 | 单  价 |  数  量  | 合     计 | 备     注"
   End
   Begin VB.Label Label1 
      Caption         =   "库存数量"
      Height          =   255
      Left            =   9240
      TabIndex        =   15
      Top             =   1440
      Width           =   735
   End
End
Attribute VB_Name = "Form71"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量                                          FixIT90210ae-R383-H1984

Private Sub Command7_Click()
   
 '开始保存内容，在保存内容的同时，在相关数据库中删除出库数量。
   Dim db As Database
  
  Dim EF As Recordset
   Dim efc As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("Select * from yhck", dbOpenDynaset)
  Set efc = db.OpenRecordset("Select * from yhkc where 编号='" & Val(Text1.Text) & " '", dbOpenDynaset)
     
    
     
          EF.AddNew
          efc.Edit
          efc("数量") = Val(Text7.Text) - Val(Text4.Text)
          efc("合计") = (Val(Text7.Text) - Val(Text4.Text)) * Val(Text3.Text)
          EF("编号") = Text1.Text
          
           
          EF("名称") = Text2.Text
          
          EF("单价") = Val(Text3.Text)
          EF("数量") = Val(Text4.Text)
          EF("合计") = Val(Text5.Text)
          EF("备注") = Text6.Text
         EF("出库日期") = Date
          EF.Update    '-----------------
      efc.Update
  EF.Close
  efc.Close
 
  db.Close
   
  MsgBox "该易耗品已经出库  ", vbInformation
Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""
 Text4.Text = ""
 Text5.Text = ""
 Text6.Text = ""
 Text1.SetFocus
 SearchItby
End Sub





Private Sub Command8_Click()
Unload Me
End Sub

Private Sub Command9_Click()
 Search
End Sub

Private Sub Form_Load()
'retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 11880, 8280, SWP_SHOWWINDOW)
 sAppPath = App.Path

'FIXIT: 用 "Right$" 函数替换 "Right" 函数                                                         FixIT90210ae-R9757-R1B8ZE
 If Right(App.Path, 1) = "\" Then
    sAppPath = App.Path
    Else
    sAppPath = App.Path & "\"
 End If
 SearchItby
End Sub



Private Sub Search()

 '检索数据
  Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  
  Set EF = db.OpenRecordset("Select * from yhkc where 编号='" & Val(Text1.Text) & " '", dbOpenDynaset)
  Dim curSumMoney As Currency
  Dim curSumQuanty As Currency
  
      curSumMoney = 0
      curSumQuanty = 0
      
 
  
  
     '列出记录
       
           
            Text2.Text = EF("名称")
            Text3.Text = EF("单价")
            
            curSumMoney = EF("数量")
            
            Text7.Text = curSumMoney
            EF.MoveNext
        ' Loop
           
     
      

  EF.Close
  db.Close

End Sub

Private Sub Text4_Change()

 Text5.Text = Val(Text4.Text) * Val(Text3.Text)
 
End Sub

Private Sub SearchItby()

 '检索数据
  Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("select * from yhck", dbOpenDynaset)
  
  Dim curSumMoney As Currency
  Dim curSumQuanty As Currency
  Dim curSumMone As Currency
  Dim curSumQuant As Currency
  Dim curSumMon As Currency
  Dim curSumQuan As Currency
  Dim curSumMo As Currency

      
      
      
     Grid1.Rows = 1
  
     '列出记录
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
            Grid1.AddItem EF("编号") & vbTab & EF("名称") & vbTab & EF("数量") _
                     & vbTab & EF("单价") & vbTab & EF("合计") & vbTab & EF("备注")
                     
          
            EF.MoveNext
         Loop
      End If
      
 '添加合计
  'Grid1.AddItem "" & vbTab & "  合  计 " & vbTab & "" _
                     & vbTab & "" & vbTab & vbTab & vbTab & vbTab & curSumQuanty & vbTab & "" _
                       & curSumMoney & vbTab & curSumMone & vbTab & curSumQuant & vbTab & curSumMon & vbTab & curSumQuan & vbTab & curSumMo & ""
  
  
  
  Grid1.Row = Grid1.Rows - 1
  Dim X As Integer
      For X = 7 To 0 Step -1
      'Grid1.Col = X
         Grid1.CellBackColor = &HE0E0D0
      Next
  'Grid1.ColSel = 7
  
  EF.Close
  db.Close
End Sub