frmyingfu_his.frm

< 飞鸿商品>>零售是基于VB+SQL2000开的商品零售管理系统. 开发的很好.可以一看

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmYingfu_his 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "冲减应付款历史查询"
   ClientHeight    =   5250
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7455
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmYingfu_his.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   5250
   ScaleWidth      =   7455
   Begin Manage.xpcmdbutton cmdClose 
      Height          =   465
      Left            =   5700
      TabIndex        =   6
      Top             =   570
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   820
      Caption         =   "关  闭"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin Manage.xpcmdbutton cmdQuery 
      Height          =   465
      Left            =   3840
      TabIndex        =   5
      Top             =   570
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   820
      Caption         =   "查  询"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSFlexGridLib.MSFlexGrid Grid 
      Height          =   3945
      Left            =   60
      TabIndex        =   0
      Top             =   1260
      Width           =   7335
      _ExtentX        =   12938
      _ExtentY        =   6959
      _Version        =   393216
      Cols            =   6
      FixedCols       =   0
      AllowUserResizing=   1
      FormatString    =   "入库单据号  |^ 供应商名称|^ 入库日期  |^ 总金额  |^ 冲减时间  |^ 冲减金额"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSComCtl2.DTPicker dtp2 
      Height          =   315
      Left            =   900
      TabIndex        =   1
      Top             =   720
      Width           =   2235
      _ExtentX        =   3942
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Format          =   20185089
      CurrentDate     =   37700
   End
   Begin MSComCtl2.DTPicker dtp1 
      Height          =   315
      Left            =   900
      TabIndex        =   2
      Top             =   240
      Width           =   2235
      _ExtentX        =   3942
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Format          =   20185089
      CurrentDate     =   37700
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FFFFFF&
      Index           =   1
      X1              =   7290
      X2              =   7290
      Y1              =   120
      Y2              =   1200
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00C0C0C0&
      Index           =   0
      X1              =   150
      X2              =   150
      Y1              =   90
      Y2              =   1170
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      Index           =   1
      X1              =   180
      X2              =   7260
      Y1              =   1170
      Y2              =   1170
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00C0C0C0&
      Index           =   0
      X1              =   180
      X2              =   7260
      Y1              =   90
      Y2              =   90
   End
   Begin VB.Label Label2 
      Caption         =   "截止："
      Height          =   210
      Left            =   360
      TabIndex        =   4
      Top             =   780
      Width           =   630
   End
   Begin VB.Label Label1 
      Caption         =   "起始："
      Height          =   210
      Left            =   360
      TabIndex        =   3
      Top             =   270
      Width           =   630
   End
End
Attribute VB_Name = "frmYingfu_his"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub cmdQuery_Click()
Dim SQL As String

SQL = "select a.id,b.gongying,b.indate,b.[sum],a.date,a.cash from yingfu_history as a,ruku_index as b where a.id=b.id and (a.date between '" _
  & Format(Date$, "yyyy-mm-dd") & "' and '" & Format(Date$, "yyyy-mm-dd") & "')"
FillGrid "入库单据号  |^ 供应商名称|^ 入库日期  |^ 总金额  |^ 冲减时间  |^ 冲减金额", SQL, Grid, 6
End Sub

Private Sub Form_Load()
  dtp1.Value = Date$
  dtp2.Value = Date$
End Sub