frmfhdw.frm

电子皮带秤计量管理系统.完成电子皮带秤的自动计量工作,和销售管理系统配合使用更佳.

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmfhdw 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "发货单位（客户名）列表"
   ClientHeight    =   5625
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6030
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5625
   ScaleWidth      =   6030
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox picButtons 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      ForeColor       =   &H80000008&
      Height          =   3945
      Left            =   3600
      ScaleHeight     =   3915
      ScaleWidth      =   1380
      TabIndex        =   0
      Top             =   840
      Width           =   1410
      Begin VB.CommandButton cmdAdd 
         BackColor       =   &H0080C0FF&
         Caption         =   "添加(&A)"
         Height          =   300
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   120
         Width           =   800
      End
      Begin VB.CommandButton cmdUpdate 
         BackColor       =   &H0080C0FF&
         Caption         =   "更新(&U)"
         Height          =   300
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   720
         Width           =   800
      End
      Begin VB.CommandButton cmdDelete 
         BackColor       =   &H0080C0FF&
         Caption         =   "删除(&D)"
         Height          =   300
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   1320
         Width           =   800
      End
      Begin VB.CommandButton cmdRefresh 
         BackColor       =   &H0080C0FF&
         Caption         =   "刷新(&R)"
         Height          =   300
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   1920
         Width           =   800
      End
      Begin VB.CommandButton cmdClose 
         BackColor       =   &H00C0E0FF&
         Caption         =   "关闭(&C)"
         Height          =   300
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   2520
         Width           =   800
      End
   End
   Begin MSAdodcLib.Adodc datPrimaryRS 
      Align           =   2  'Align Bottom
      Height          =   330
      Left            =   0
      Top             =   5295
      Visible         =   0   'False
      Width           =   6030
      _ExtentX        =   10636
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   3
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "DSN=dzqch"
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   "dzqch"
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "select fhdw as 发货单位 from fhdw"
      Caption         =   " "
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSDataGridLib.DataGrid grdDataGrid 
      Bindings        =   "frmfhdw.frx":0000
      Height          =   3990
      Left            =   960
      TabIndex        =   6
      Top             =   840
      Width           =   2610
      _ExtentX        =   4604
      _ExtentY        =   7038
      _Version        =   393216
      AllowUpdate     =   -1  'True
      HeadLines       =   1
      RowHeight       =   23
      FormatLocked    =   -1  'True
      AllowAddNew     =   -1  'True
      AllowDelete     =   -1  'True
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   13.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   1
      BeginProperty Column00 
         DataField       =   "发货人"
         Caption         =   "发货人"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         ScrollBars      =   3
         BeginProperty Column00 
            ColumnWidth     =   1964.976
         EndProperty
      EndProperty
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "发货单位（客户名）列表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   1080
      TabIndex        =   7
      Top             =   240
      Width           =   3855
   End
End
Attribute VB_Name = "frmfhdw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
  '错误处理程序代码置于此处
  '想要忽略错误，注释掉下一行
  '想要捕获它们，在此添加代码以处理它们
  MsgBox "Data error event hit err:" & Description
End Sub



Private Sub cmdDelete_Click()
  On Error GoTo DeleteErr
  With datPrimaryRS.Recordset
    .Delete
    .MoveNext
    If .EOF Then .MoveLast
  End With
  'mainfrm.Data2.Refresh
  Exit Sub
DeleteErr:
  MsgBox Err.Description
End Sub

Private Sub cmdRefresh_Click()
  '只有多用户应用程序需要
  On Error GoTo RefreshErr
  datPrimaryRS.Refresh
 ' mainfrm.Data2.Refresh
  Exit Sub
RefreshErr:
  MsgBox Err.Description
End Sub

Private Sub cmdUpdate_Click()
  On Error GoTo UpdateErr

  datPrimaryRS.Recordset.UpdateBatch adAffectAll
 ' mainfrm.Data2.Refresh
  Exit Sub
UpdateErr:
  MsgBox Err.Description
End Sub

Private Sub cmdClose_Click()
'mainfrm.Data2.Refresh
  Unload Me
End Sub