form1.frm

这是一个基于金蝶K/3的磅秤插件源代码。安装本差价需要金蝶K/310.0以上的版本。本插件是客户端程序。在车辆过磅时自动产生金蝶K/3的出库单。

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form FrmFp 
   Caption         =   "Form1"
   ClientHeight    =   6105
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6135
   LinkTopic       =   "Form1"
   ScaleHeight     =   6105
   ScaleWidth      =   6135
   StartUpPosition =   3  '窗口缺省
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   2955
      Left            =   0
      TabIndex        =   0
      Top             =   2040
      Width           =   5955
      _ExtentX        =   10504
      _ExtentY        =   5212
      _Version        =   393216
   End
End
Attribute VB_Name = "FrmFp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MSFlexGrid1_Click()

End Sub
Private Sub Init_Grid()
    Dim I As Integer
    With Me.grdRS
        .Cols = 7
        .Rows = 2
        .FixedRows = 1
        .FixedCols = 0
        .ColWidth(0) = 800
        .ColWidth(1) = 1500
        .ColWidth(2) = 1000
        .ColWidth(3) = 4000
        .ColWidth(4) = 1000
        .ColWidth(5) = 1000
        .ColWidth(6) = 1000
        .TextMatrix(0, 0) = "序号"
        .TextMatrix(0, 1) = "发票号码"
        .TextMatrix(0, 2) = "客户编码"
        .TextMatrix(0, 3) = "客户名称"
        .TextMatrix(0, 4) = "票重(吨)"
        .TextMatrix(0, 5) = "袋重(吨)"
        .TextMatrix(0, 6) = "总重(吨)"
        

         For I = 0 To .Cols - 1
             .ColAlignment(I) = 1
         Next I
    End With
End Sub