htkk.frm

煤炭销售管理系统.完成煤炭销售的日常管理工作,和重车计量系统空车计量系统配合使用.

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form htkk 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   5475
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9600
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   5475
   ScaleWidth      =   9600
   Begin VB.Frame Frame4 
      Height          =   1455
      Left            =   240
      TabIndex        =   35
      Top             =   3360
      Width           =   8535
      Begin VB.TextBox txtFields 
         DataField       =   "tbr"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   17
         Left            =   2040
         TabIndex        =   39
         Top             =   360
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "bz"
         DataSource      =   "datPrimaryRS"
         Height          =   525
         Index           =   11
         Left            =   2040
         MultiLine       =   -1  'True
         TabIndex        =   37
         Top             =   840
         Width           =   6315
      End
      Begin VB.Label lblLabels 
         Caption         =   "填 票 人:"
         Height          =   255
         Index           =   17
         Left            =   480
         TabIndex        =   38
         Top             =   360
         Width           =   1200
      End
      Begin VB.Label lblLabels 
         Caption         =   "备    注:"
         Height          =   255
         Index           =   11
         Left            =   480
         TabIndex        =   36
         Top             =   840
         Width           =   1200
      End
   End
   Begin VB.Frame Frame3 
      Height          =   1575
      Left            =   4680
      TabIndex        =   28
      Top             =   1680
      Width           =   4095
      Begin VB.CheckBox chkFields 
         DataField       =   "djj"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   20
         Left            =   1680
         TabIndex        =   34
         Top             =   975
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "jsfs"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   15
         Left            =   1680
         TabIndex        =   32
         Top             =   675
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "ysfs"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   14
         Left            =   1680
         TabIndex        =   30
         Top             =   360
         Width           =   2000
      End
      Begin VB.Label lblLabels 
         Caption         =   "是否冻结:"
         Height          =   255
         Index           =   20
         Left            =   120
         TabIndex        =   33
         Top             =   975
         Width           =   1200
      End
      Begin VB.Label lblLabels 
         Caption         =   "结算方式:"
         Height          =   255
         Index           =   15
         Left            =   120
         TabIndex        =   31
         Top             =   675
         Width           =   1200
      End
      Begin VB.Label lblLabels 
         Caption         =   "运输方式:"
         Height          =   255
         Index           =   14
         Left            =   120
         TabIndex        =   29
         Top             =   360
         Width           =   1200
      End
   End
   Begin VB.Frame Frame2 
      Height          =   1455
      Left            =   4680
      TabIndex        =   21
      Top             =   240
      Width           =   4095
      Begin VB.TextBox txtFields 
         DataField       =   "sj"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   10
         Left            =   1800
         TabIndex        =   27
         Top             =   885
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "je"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   9
         Left            =   1800
         TabIndex        =   25
         Top             =   555
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "dj"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   8
         Left            =   1800
         TabIndex        =   23
         Top             =   240
         Width           =   2000
      End
      Begin VB.Label lblLabels 
         Caption         =   "开票时间:"
         Height          =   255
         Index           =   10
         Left            =   240
         TabIndex        =   26
         Top             =   870
         Width           =   1200
      End
      Begin VB.Label lblLabels 
         Caption         =   "金    额:"
         Height          =   255
         Index           =   9
         Left            =   240
         TabIndex        =   24
         Top             =   555
         Width           =   1200
      End
      Begin VB.Label lblLabels 
         Caption         =   "单    价:"
         Height          =   255
         Index           =   8
         Left            =   240
         TabIndex        =   22
         Top             =   240
         Width           =   1200
      End
   End
   Begin VB.Frame Frame1 
      Height          =   3015
      Left            =   240
      TabIndex        =   6
      Top             =   240
      Width           =   4335
      Begin VB.TextBox txtFields 
         DataField       =   "fhdw"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   6
         Left            =   1920
         TabIndex        =   20
         Top             =   2280
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "fhr"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   5
         Left            =   1920
         TabIndex        =   18
         Top             =   1965
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "hwm"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   4
         Left            =   1920
         TabIndex        =   16
         Top             =   1635
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "wfl"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   3
         Left            =   1920
         TabIndex        =   14
         Top             =   1320
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "yfl"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   2
         Left            =   1920
         TabIndex        =   12
         Top             =   1005
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "htl"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   1
         Left            =   1920
         TabIndex        =   10
         Top             =   675
         Width           =   2000
      End
      Begin VB.TextBox txtFields 
         DataField       =   "hth"
         DataSource      =   "datPrimaryRS"
         Height          =   285
         Index           =   0
         Left            =   1920
         TabIndex        =   8
         Top             =   360
         Width           =   2000
      End
      Begin VB.Label lblLabels 
         Caption         =   "发货单位:"
         Height          =   255
         Index           =   6
         Left            =   360