flexgridform.frm

金算盘软件代码

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form dlForm 
   Caption         =   "Form2"
   ClientHeight    =   5190
   ClientLeft      =   435
   ClientTop       =   1350
   ClientWidth     =   8820
   FillStyle       =   0  'Solid
   LinkTopic       =   "Form2"
   ScaleHeight     =   5190
   ScaleWidth      =   8820
   Begin VB.TextBox Text3 
      Height          =   270
      Left            =   6240
      TabIndex        =   15
      Text            =   "Text1"
      Top             =   4680
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      Height          =   270
      Left            =   3960
      TabIndex        =   14
      Text            =   "Text1"
      Top             =   4680
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   1800
      TabIndex        =   13
      Text            =   "Text1"
      Top             =   4680
      Width           =   1215
   End
   Begin VB.Frame Frame2 
      Caption         =   "计算依据"
      Height          =   855
      Left            =   7560
      TabIndex        =   9
      Top             =   4080
      Width           =   1215
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Command1"
      Height          =   386
      Left            =   7500
      TabIndex        =   7
      Top             =   3048
      Width           =   1280
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Command1"
      Height          =   386
      Left            =   7500
      TabIndex        =   6
      Top             =   2640
      Width           =   1280
   End
   Begin VB.CommandButton Command5 
      Caption         =   "栏目设置"
      Height          =   386
      Left            =   7500
      TabIndex        =   5
      Top             =   2136
      Width           =   1280
   End
   Begin VB.CommandButton Command4 
      Caption         =   "筛选"
      Height          =   386
      Left            =   7500
      TabIndex        =   4
      Top             =   1728
      Width           =   1280
   End
   Begin VB.CommandButton Command3 
      Caption         =   "自动分配"
      Height          =   386
      Left            =   7500
      TabIndex        =   3
      Top             =   1320
      Width           =   1280
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command1"
      Height          =   386
      Left            =   7500
      TabIndex        =   2
      Top             =   768
      Width           =   1280
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   386
      Left            =   7500
      TabIndex        =   1
      Top             =   360
      Width           =   1280
   End
   Begin MSFlexGridLib.MSFlexGrid hlGrid 
      Bindings        =   "flexgridForm.frx":0000
      Height          =   4215
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   7335
      _ExtentX        =   12938
      _ExtentY        =   7435
      _Version        =   65541
      Rows            =   14
      Cols            =   8
      FixedCols       =   0
      RowHeightMin    =   300
      WordWrap        =   -1  'True
      ScrollTrack     =   -1  'True
      FocusRect       =   2
      FillStyle       =   1
      GridLines       =   3
      GridLinesFixed  =   0
      AllowUserResizing=   1
      FormatString    =   ""
   End
   Begin VB.Data DData1 
      Caption         =   "TEST"
      Connect         =   "Access"
      DatabaseName    =   "C:\dpd\account\Gasoft1998.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   -240
      Negotiate       =   -1  'True
      Options         =   32
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      ToolTipText     =   "OK"
      Top             =   3600
      Visible         =   0   'False
      Width           =   5295
   End
   Begin VB.Frame Frame1 
      Caption         =   "帐龄"
      Height          =   1455
      Left            =   7560
      TabIndex        =   8
      Top             =   3480
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "本次折扣"
      Height          =   255
      Left            =   5400
      TabIndex        =   12
      Top             =   4680
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "本次收款"
      Height          =   255
      Left            =   3120
      TabIndex        =   11
      Top             =   4800
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "应收余额"
      Height          =   255
      Left            =   960
      TabIndex        =   10
      Top             =   4800
      Width           =   855
   End
End
Attribute VB_Name = "dlForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private WithEvents mclsMainControl As MainControl
Attribute mclsMainControl.VB_VarHelpID = -1
Private clsListSet As ListSet

Private Sub Form_Load()


 CustomerID = 1
 'Set rst = dbs.OpenRecordset("SELECT Activity.lngActivityID, Activity.lngReceiptTypeID, Activity.strReceiptDate, Activity.strDueDate, Activity.lngOperatorID, Activity.lngPaymentMethodID, ActivityDetail.strRemark, ActivityDetail.lngActivityDetailID, ActivityDetail.lngAccountID, ActivityDetail.lngDepartmentID, ActivityDetail.lngEmployeeID, ActivityDetail.lngJobID, ActivityDetail.lngClassID1, ActivityDetail.lngClassID2, ActivityDetail.dblCurrAmount, ActivityDetail.dblCurrPaymentAmount, ActivityDetail.dblCurrPaymentDiscountAmount, ActivityDetail.blnIsReceipt, ActivityDetail.lngCustomerID " _
 '& " FROM Activity INNER JOIN ActivityDetail ON Activity.lngActivityID = ActivityDetail.lngActivityID " _
 '& " WHERE ((((Activity.lngReceiptTypeID)=36) AND ((ActivityDetail.blnIsReceipt)=False)) AND (ActivityDetail.lngCustomerID=" & CustomerID & ")) OR (((Activity.lngReceiptTypeID)=37)) OR (((Activity.lngReceiptTypeID)=38));")

 'Set DData1.Recordset = rst
 'DData1.Recordset.MoveLast
 

 Set clsListSet = New ListSet
 clsListSet.ViewId = 32
 ddd = clsListSet.SelectOfSql()
 clsListSet.ShowListSet 32
 hlGrid.Cols = 10
 hlGrid.Refresh
End Sub