Visual Basic 4 Unleashed/Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso/choreo/custserv.fr_/custserv.bin

Visual Basic Form | 1995-09-12 | 8.5 KB | 269 lines

VERSION 2.00
Begin Form cfrmCustService
   BackColor       =   &H00C0C0C0&
   Caption         =   "Customer Service"
   ClientHeight    =   5145
   ClientLeft      =   1035
   ClientTop       =   1710
   ClientWidth     =   7515
   Height          =   5550
   Left            =   975
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5145
   ScaleWidth      =   7515
   Top             =   1365
   Width           =   7635
   Begin SSFrame fra3dOrderInfo
      Caption         =   "Order Information"
      ForeColor       =   &H00000000&
      Height          =   2175
      Left            =   120
      TabIndex        =   24
      Top             =   2880
      Width           =   7335
      Begin CVDataGrid dgOrderDetail
         ColAlignment    =   "0,0,0,0,0"
         ColCaption      =   "Order ID,Order Date,Ship Date,Tax Rate,Shipping Fee"
         ColName         =   "colOrderID,colOrderDate,colShipDate,colTaxRate,colShippingFee"
         ColReadOnlyFlag =   "0,1,1,0,0"
         Columns         =   5
         ColWidths       =   "1125,1500,1500,1350,1305"
         Height          =   1275
         Left            =   210
         TabIndex        =   25
         Top             =   315
         Width           =   6885
      End
      Begin SSCommand cmb3dShowOrderDetail
         Caption         =   "Show Order Detail"
         Height          =   375
         Left            =   5040
         TabIndex        =   13
         Top             =   1680
         Width           =   2055
      End
      Begin SSCommand cmb3dDeleteOrder
         Caption         =   "Delete Order"
         Height          =   375
         Left            =   2625
         TabIndex        =   12
         Top             =   1680
         Width           =   2055
      End
      Begin SSCommand cmb3dInsertOrder
         Caption         =   "Insert Order ..."
         Height          =   375
         Left            =   240
         TabIndex        =   11
         Top             =   1680
         Width           =   2055
      End
   End
   Begin SSFrame fra3dCustInfo
      Caption         =   "Customer Information"
      ForeColor       =   &H00000000&
      Height          =   2295
      Left            =   120
      TabIndex        =   14
      Top             =   120
      Width           =   7335
      Begin ComboBox cboCSRep
         Height          =   300
         Left            =   960
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   1785
         Width           =   3255
      End
      Begin TextBox txtPosition
         Height          =   300
         Left            =   5280
         TabIndex        =   10
         Text            =   " "
         Top             =   1800
         Width           =   1935
      End
      Begin TextBox txtContact
         Height          =   300
         Left            =   5280
         TabIndex        =   9
         Text            =   " "
         Top             =   1440
         Width           =   1935
      End
      Begin TextBox txtFAX
         Height          =   300
         Left            =   5280
         TabIndex        =   8
         Text            =   " "
         Top             =   1080
         Width           =   1935
      End
      Begin TextBox txtPhone
         Height          =   300
         Left            =   5280
         TabIndex        =   7
         Text            =   " "
         Top             =   720
         Width           =   1935
      End
      Begin TextBox txtCustID
         Height          =   300
         Left            =   5280
         TabIndex        =   19
         TabStop         =   0   'False
         Text            =   " "
         Top             =   360
         Width           =   1935
      End
      Begin TextBox txtZip
         Height          =   300
         Left            =   3120
         TabIndex        =   5
         Text            =   " "
         Top             =   1320
         Width           =   1095
      End
      Begin TextBox txtState
         Height          =   300
         Left            =   2520
         TabIndex        =   4
         Text            =   " "
         Top             =   1320
         Width           =   615
      End
      Begin TextBox txtCity
         Height          =   300
         Left            =   960
         TabIndex        =   3
         Text            =   " "
         Top             =   1320
         Width           =   1575
      End
      Begin TextBox txtAddress2
         Height          =   300
         Left            =   960
         TabIndex        =   2
         Text            =   " "
         Top             =   1020
         Width           =   3255
      End
      Begin TextBox txtName
         Height          =   300
         Left            =   960
         TabIndex        =   0
         Text            =   " "
         Top             =   360
         Width           =   3255
      End
      Begin TextBox txtAddress1
         Height          =   300
         Left            =   960
         TabIndex        =   1
         Text            =   " "
         Top             =   720
         Width           =   3255
      End
      Begin Label lblPosition
         BackColor       =   &H00C0C0C0&
         Caption         =   "Position:"
         Height          =   255
         Left            =   4440
         TabIndex        =   23
         Top             =   1800
         Width           =   735
      End
      Begin Label lblContact
         BackColor       =   &H00C0C0C0&
         Caption         =   "Contact:"
         Height          =   255
         Left            =   4440
         TabIndex        =   22
         Top             =   1440
         Width           =   735
      End
      Begin Label lblFAX
         BackColor       =   &H00C0C0C0&
         Caption         =   "FAX:"
         Height          =   255
         Left            =   4440
         TabIndex        =   21
         Top             =   1080
         Width           =   495
      End
      Begin Label lblPhone
         BackColor       =   &H00C0C0C0&
         Caption         =   "Phone:"
         Height          =   255
         Left            =   4440
         TabIndex        =   20
         Top             =   720
         Width           =   615
      End
      Begin Label lblCustID
         BackColor       =   &H00C0C0C0&
         Caption         =   "Cust ID:"
         Height          =   255
         Left            =   4440
         TabIndex        =   18
         Top             =   360
         Width           =   735
      End
      Begin Label lblCSRep
         BackColor       =   &H00C0C0C0&
         Caption         =   "CS Rep:"
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   1800
         Width           =   735
      End
      Begin Label lblAddress
         BackColor       =   &H00C0C0C0&
         Caption         =   "Address:"
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   840
         Width           =   735
      End
      Begin Label lblName
         BackColor       =   &H00C0C0C0&
         Caption         =   "Name:"
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   360
         Width           =   615
      End
   End
Sub cmb3dDeleteOrder_Click ()
    If CalDeleteRecord(hDataGroup, "ORDERS") Then
        MsgBox "Order successfully deleted.", 48
    Else
        MsgBox "Unable to delete current Order.", 48
    End If
End Sub
Sub cmb3dInsertOrder_Click ()
    Dim iResult As Integer
    iResult = CalNewRecord(hDataGroup, "ORDERS")
    cmb3dInsertOrder.Enabled = False
    dfrmNewOrder.Show
End Sub
Sub cmb3dShowOrderDetail_Click ()
    cmb3dShowOrderDetail.Enabled = False
    cfrmReviewOrders.Show
End Sub
Sub Form_Load ()
    cfrmCustService.Height = 5550
    cfrmCustService.Width = 7635
    cfrmCustService.Top = 0
    cfrmCustService.Left = 0
    mdifrmMain.mnuWindowCustomerService.Enabled = False
    hDataGroup = CalGetDataGroup("CustomerService")
End Sub
Sub Form_Unload (Cancel As Integer)
    mdifrmMain.mnuWindowCustomerService.Enabled = True
End Sub