frmcontract.frm

企业ERP系统 采用VB+SQL2000实现。 有客户合约

VERSION 5.00
Object = "{4932CEF1-2CAA-11D2-A165-0060081C43D9}#2.0#0"; "Actbar2.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frmContractMan 
   Caption         =   " 客戶合約管理"
   ClientHeight    =   6255
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7935
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   14955
   ScaleWidth      =   19080
   Begin ActiveBar2LibraryCtl.ActiveBar2 ActiveBar21 
      Height          =   14955
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   19080
      _LayoutVersion  =   1
      _ExtentX        =   33655
      _ExtentY        =   26379
      _DataPath       =   ""
      Bands           =   "frmContract.frx":0000
      Begin VB.Frame Frame1 
         Height          =   8475
         Left            =   60
         TabIndex        =   1
         Top             =   420
         Width           =   15015
         Begin VB.PictureBox fraFind 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            ForeColor       =   &H80000008&
            Height          =   4935
            Left            =   120
            ScaleHeight     =   4905
            ScaleWidth      =   9765
            TabIndex        =   2
            ToolTipText     =   "在查询窗口上单按住鼠标左键，可拖动查询窗口"
            Top             =   120
            Visible         =   0   'False
            Width           =   9795
            Begin VB.CommandButton cmdCancel 
               Caption         =   "取消 &C"
               Height          =   315
               Left            =   6600
               TabIndex        =   14
               Top             =   4380
               Width           =   855
            End
            Begin VB.TextBox txtCustomerNo 
               BackColor       =   &H00C0FFC0&
               Height          =   315
               Left            =   1800
               TabIndex        =   13
               Top             =   120
               Width           =   1995
            End
            Begin VB.TextBox txtInsideNo 
               BackColor       =   &H00C0FFC0&
               Height          =   315
               Left            =   1800
               TabIndex        =   6
               Top             =   600
               Width           =   1995
            End
            Begin VB.TextBox txtSpec 
               BackColor       =   &H00C0FFC0&
               Height          =   315
               Left            =   1800
               TabIndex        =   5
               Top             =   1080
               Width           =   1995
            End
            Begin VB.CommandButton cmdFindAll 
               Caption         =   "全部 &A"
               Height          =   315
               Left            =   2460
               TabIndex        =   4
               Top             =   4380
               Width           =   855
            End
            Begin VB.CommandButton cmdFind 
               Caption         =   "查询 &F"
               Height          =   315
               Left            =   4980
               TabIndex        =   3
               Top             =   4380
               Width           =   855
            End
            Begin VB.Label Label15 
               BackColor       =   &H00C0FFC0&
               Height          =   195
               Left            =   480
               TabIndex        =   11
               Top             =   4440
               Width           =   375
            End
            Begin VB.Label Label12 
               BackColor       =   &H00FFFFFF&
               Caption         =   "模糊查询项"
               Height          =   255
               Left            =   2640
               TabIndex        =   10
               Top             =   2280
               Width           =   915
            End
            Begin VB.Image Image1 
               Height          =   480
               Left            =   240
               Picture         =   "frmContract.frx":3376
               Top             =   240
               Width           =   480
            End
            Begin VB.Label Label11 
               BackColor       =   &H00FFFFFF&
               Caption         =   "工廠簡稱"
               Height          =   255
               Left            =   840
               TabIndex        =   9
               Top             =   120
               Width           =   1035
            End
            Begin VB.Label Label3 
               BackColor       =   &H00FFFFFF&
               Caption         =   "业务员"
               Height          =   255
               Index           =   4
               Left            =   840
               TabIndex        =   8
               Top             =   1080
               Width           =   795
            End
            Begin VB.Label Label7 
               BackColor       =   &H00FFFFFF&
               Caption         =   "工廠全稱"
               Height          =   255
               Left            =   840
               TabIndex        =   7
               Top             =   600
               Width           =   795
            End
         End
         Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHF1 
            Height          =   8115
            Left            =   120
            TabIndex        =   12
            Top             =   240
            Width           =   14775
            _ExtentX        =   26061
            _ExtentY        =   14314
            _Version        =   393216
            AllowUserResizing=   3
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            _NumberOfBands  =   1
            _Band(0).Cols   =   2
         End
      End
   End
End
Attribute VB_Name = "frmContractMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub ActiveBar21_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)
     Select Case Tool.Name
        Case "cmdAdd":
            frmContract.Show vbModal

    Case "cmdCancel":
        Unload Me

    End Select
    
End Sub

Private Sub Form_Load()
    '设置窗口大小
    FormInit Me, True
    MSHF1.FormatString = "合約編號|日期|客戶|DESCRIPTION|PATT/QTY|UNIT PRICE|DELIVERY|PAYMENT|PACKING|REMARK|修改日期"
End Sub