form12.frm

华城酒店管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form12 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "商品入库操作"
   ClientHeight    =   4605
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   9390
   LinkTopic       =   "Form12"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4605
   ScaleWidth      =   9390
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text6 
      Height          =   375
      Left            =   7200
      TabIndex        =   13
      Top             =   2640
      Width           =   1815
   End
   Begin VB.TextBox Text5 
      Height          =   375
      Left            =   7200
      TabIndex        =   12
      Top             =   2160
      Width           =   1815
   End
   Begin VB.TextBox Text4 
      Height          =   375
      Left            =   7200
      TabIndex        =   11
      Top             =   1680
      Width           =   1815
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   7200
      TabIndex        =   10
      Top             =   1200
      Width           =   1815
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   7200
      TabIndex        =   9
      Top             =   720
      Width           =   1815
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   7200
      TabIndex        =   0
      Top             =   240
      Width           =   1815
   End
   Begin VB.CommandButton Command8 
      Caption         =   "退出"
      Height          =   375
      Left            =   7800
      TabIndex        =   8
      Top             =   3240
      Width           =   975
   End
   Begin VB.CommandButton Command7 
      Caption         =   "确认"
      Height          =   375
      Left            =   6480
      TabIndex        =   7
      Top             =   3240
      Width           =   1215
   End
   Begin VB.CommandButton Command6 
      Caption         =   "售 价"
      Height          =   375
      Left            =   6000
      TabIndex        =   6
      Top             =   2640
      Width           =   1215
   End
   Begin VB.CommandButton Command5 
      Caption         =   "合  计"
      Height          =   375
      Left            =   6000
      TabIndex        =   5
      Top             =   2160
      Width           =   1215
   End
   Begin VB.CommandButton Command4 
      Caption         =   "数  量"
      Height          =   375
      Left            =   6000
      TabIndex        =   4
      Top             =   1680
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "单  价"
      Height          =   375
      Left            =   6000
      TabIndex        =   3
      Top             =   1200
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "名  称"
      Height          =   375
      Left            =   6000
      TabIndex        =   2
      Top             =   720
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "编  号"
      Height          =   375
      Left            =   6000
      TabIndex        =   1
      Top             =   240
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid Grid1 
      Height          =   4455
      Left            =   0
      TabIndex        =   14
      Top             =   0
      Width           =   5895
      _ExtentX        =   10398
      _ExtentY        =   7858
      _Version        =   393216
      Cols            =   6
      FixedCols       =   0
      FormatString    =   " 编号  | 名    称 | 单  价 |  数  量  | 合     计 | 售    价 "
   End
End
Attribute VB_Name = "Form12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量                                          FixIT90210ae-R383-H1984
Public sert As String
Private Sub Command7_Click()
   
 '开始保存内容，在保存内容的同时，在相关数据库中删除出库数量。
   Dim db As Database
  Dim EF As Recordset
  
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("Select * from spkc", dbOpenDynaset)
  
  
          
          EF.AddNew
           EF("编号") = Text1.Text
           EF("名称") = Text2.Text
           EF("单价") = Val(Text3.Text)
           EF("数量") = Val(Text4.Text)
           EF("合计") = Val(Text5.Text)
           EF("售价") = Val(Text6.Text)
           EF("入库日期") = Date
           EF.Update
           
           '-----------------
      
  EF.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 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 Text1_Change()
sert = "Select * from spbm Where 编号 = '" & Text1.Text & " '"
 SearchItp
End Sub


Private Sub SearchItp()

 '检索数据
  Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(sert, dbOpenDynaset)
  
  Dim curSumMoney As Currency
  Dim curSumQuanty As Currency
  
      curSumMoney = 0
      curSumQuanty = 0
      
  
     '列出记录
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
         
            Text2.Text = EF("名称")
            
            EF.MoveNext
         Loop
      End If
      
 '
  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 spkc", 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