form5.frm

来自「VB 编写的"华成POS管理系统",代码全,没有进行测试,数据库全,有兴趣的朋友」· FRM 代码 · 共 139 行

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form5 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "取单"
   ClientHeight    =   4185
   ClientLeft      =   60
   ClientTop       =   330
   ClientWidth     =   6795
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4185
   ScaleWidth      =   6795
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Height          =   3255
      Left            =   120
      TabIndex        =   1
      Top             =   0
      Width           =   6615
      Begin MSFlexGridLib.MSFlexGrid Grid1 
         Height          =   3015
         Left            =   120
         TabIndex        =   4
         Top             =   120
         Width           =   6375
         _ExtentX        =   11245
         _ExtentY        =   5318
         _Version        =   393216
         Cols            =   5
         FixedCols       =   0
         FormatString    =   "单    据   号    码|商    品    名    称|商品数量|商品价格|商品编号"
      End
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   2400
      TabIndex        =   0
      Top             =   3480
      Width           =   3015
   End
   Begin VB.Label Label4 
      Caption         =   "SPACE提取，ESC退出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2880
      TabIndex        =   3
      Top             =   3960
      Width           =   1935
   End
   Begin VB.Label Label1 
      Caption         =   "请输入您要提取的单据号码"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   3600
      Width           =   2175
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
 Dim ef As New Recordset
 Dim efc As New Recordset
 Dim su As String
 Dim pm As String
ef.Open "select * from saletemp  ", cnMain, 1, 1
Grid1.Rows = 1
 '在此循环计算销售金额
  If Not (ef.BOF And ef.EOF) Then
         Do While Not ef.EOF
         su = ef!merchid
       efc.Open "select * from merchinfo where  merchid=" & su & "", cnMain, 1, 1
        pm = efc!MerchName
      Grid1.AddItem Trim(ef!saleno) & vbTab & pm & vbTab & ef!SaleNumT & vbTab & ef!SaleMoneyT & vbTab & ef!merchid
       ef.MoveNext
         Loop
  End If
  ef.Close
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 27
Unload Me
Case 119

Case 46

Case 32 '保存、打印

 Dim ef As New Recordset
 Dim efc As New Recordset
 Dim su As String
 Dim pm As String
 Dim tm As String
 Dim zk As Double
 If Text1.Text <> "" Then
ef.Open "select * from saletemp  ", cnMain, 1, 1
Form1.Grid1.Rows = 1
 '在此循环计算销售金额
  If Not (ef.BOF And ef.EOF) Then
         Do While Not ef.EOF
         su = ef!merchid
       
       efc.Open "select * from merchinfo where  merchid=" & su & "", cnMain, 1, 1
        pm = efc!MerchName
        tm = efc!BarCode
        zk = 100
      Form1.Grid1.AddItem Trim(tm) & vbTab & pm & vbTab & ef!SaleMoneyT & vbTab & ef!SaleNumT & vbTab & zk & vbTab & ef!SaleNumT * ef!SaleMoneyT & vbTab & ef!merchid
       Form1.Text1.Text = ef!saleno
       ef.MoveNext
         Loop
  End If
  ef.Close
  '在此处删除已经提取的单据
   cnMain.Execute ("delete from saletemp where saleno='" & Text1.Text & "'")
  Unload Me
  End If
Case 46


End Select

End Sub