frmpsoderinfo.frm

金算盘软件代码

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Begin VB.Form frmPSOderInfo 
   Appearance      =   0  'Flat
   BackColor       =   &H80000004&
   Caption         =   "收款情况"
   ClientHeight    =   4695
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8880
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4695
   ScaleWidth      =   8880
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Cmdbutton 
      Height          =   350
      Index           =   1
      Left            =   7530
      Style           =   1  'Graphical
      TabIndex        =   19
      Top             =   900
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton Cmdbutton 
      Cancel          =   -1  'True
      Height          =   350
      Index           =   0
      Left            =   7530
      Style           =   1  'Graphical
      TabIndex        =   18
      Top             =   330
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid grdList 
      Bindings        =   "frmPSOderInfo.frx":0000
      Height          =   2205
      Left            =   150
      TabIndex        =   20
      Top             =   2070
      Width           =   7365
      _ExtentX        =   12991
      _ExtentY        =   3889
      _Version        =   393216
      Rows            =   8
      Cols            =   16
      FixedCols       =   0
      BackColor       =   16777215
      BackColorBkg    =   16777215
      GridColorFixed  =   16777215
      Redraw          =   -1  'True
      AllowBigSelection=   -1  'True
      FocusRect       =   0
      GridLines       =   0
      SelectionMode   =   1
      FormatString    =   " |日期      |单据类型|单据号    |商品         |数量       |单价       |扣率%|金额       |税率%      |税额        "
   End
   Begin MSRDC.MSRDC DatGrid 
      Height          =   345
      Left            =   7560
      Top             =   3540
      Visible         =   0   'False
      Width           =   1365
      _ExtentX        =   2408
      _ExtentY        =   609
      _Version        =   393216
      Options         =   0
      CursorDriver    =   0
      BOFAction       =   0
      EOFAction       =   0
      RecordsetType   =   1
      LockType        =   3
      QueryType       =   0
      Prompt          =   3
      Appearance      =   1
      QueryTimeout    =   30
      RowsetSize      =   100
      LoginTimeout    =   15
      KeysetSize      =   0
      MaxRows         =   0
      ErrorThreshold  =   -1
      BatchSize       =   15
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Enabled         =   -1  'True
      ReadOnly        =   0   'False
      Appearance      =   -1  'True
      DataSourceName  =   ""
      RecordSource    =   ""
      UserName        =   ""
      Password        =   ""
      Connect         =   ""
      LogMessages     =   ""
      Caption         =   "MSRDC1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Label hlb 
      Alignment       =   1  'Right Justify
      BackColor       =   &H80000009&
      Caption         =   "0"
      Height          =   195
      Index           =   0
      Left            =   180
      TabIndex        =   21
      Top             =   4230
      Width           =   555
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "部门"
      Height          =   315
      Index           =   5
      Left            =   4755
      TabIndex        =   17
      Top             =   360
      Width           =   450
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "币种"
      Height          =   315
      Index           =   4
      Left            =   2715
      TabIndex        =   16
      Top             =   1290
      Width           =   450
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "金额"
      Height          =   315
      Index           =   7
      Left            =   4740
      TabIndex        =   15
      Top             =   1290
      Width           =   450
   End
   Begin VB.Label lblField 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   240
      Index           =   0
      Left            =   1020
      TabIndex        =   14
      Top             =   360
      Width           =   3570
   End
   Begin VB.Label lblField 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   240
      Index           =   5
      Left            =   5415
      TabIndex        =   13
      Top             =   360
      Width           =   1815
   End
   Begin VB.Label lblField 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   240
      Index           =   2
      Left            =   1020
      TabIndex        =   12
      Top             =   1290
      Width           =   1485
   End
   Begin VB.Label lblField 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   240
      Index           =   4
      Left            =   3210
      TabIndex        =   11
      Top             =   1290
      Width           =   1380
   End
   Begin VB.Label lblField 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   240
      Index           =   7
      Left            =   5415
      TabIndex        =   10
      Top             =   1290
      Width           =   1815
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "单位"
      Height          =   315
      Index           =   0
      Left            =   255
      TabIndex        =   9
      Top             =   360
      Width           =   450
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "付款条件"
      Height          =   315
      Index           =   2
      Left            =   255
      TabIndex        =   8
      Top             =   1290
      Width           =   720
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "单据号"
      Height          =   165
      Index           =   1
      Left            =   255
      TabIndex        =   7
      Top             =   795
      Width           =   675
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "业务员"
      Height          =   195
      Index           =   6
      Left            =   4755
      TabIndex        =   6
      Top             =   795
      Width           =   585