frm_fedback.frm

汽修厂管理软件

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frm_FedBack 
   Caption         =   "维修意见反馈情况"
   ClientHeight    =   3975
   ClientLeft      =   8760
   ClientTop       =   7125
   ClientWidth     =   6405
   Icon            =   "frm_FedBack.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3975
   ScaleWidth      =   6405
   Begin VB.Frame Frame4 
      Caption         =   "形式"
      Height          =   1455
      Left            =   4200
      TabIndex        =   12
      Top             =   120
      Width           =   1935
      Begin VB.OptionButton OptHappen 
         Caption         =   "被动"
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   14
         Top             =   840
         Width           =   1335
      End
      Begin VB.OptionButton OptHappen 
         Caption         =   "主动"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   13
         Top             =   360
         Width           =   1335
      End
   End
   Begin VB.CommandButton Cmd_Cancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   3720
      TabIndex        =   11
      Top             =   3360
      Width           =   1455
   End
   Begin VB.CommandButton Cmd_Ok 
      Caption         =   "确定"
      Height          =   375
      Left            =   1200
      TabIndex        =   10
      Top             =   3360
      Width           =   1455
   End
   Begin VB.Frame Frame3 
      Caption         =   "联络方式"
      Height          =   1455
      Left            =   1920
      TabIndex        =   2
      Top             =   120
      Width           =   2175
      Begin VB.OptionButton optConTact 
         Caption         =   "信函"
         Height          =   375
         Index           =   2
         Left            =   360
         TabIndex        =   8
         Top             =   960
         Width           =   735
      End
      Begin VB.OptionButton optConTact 
         Caption         =   "面谈"
         Height          =   375
         Index           =   1
         Left            =   360
         TabIndex        =   7
         Top             =   600
         Width           =   735
      End
      Begin VB.OptionButton optConTact 
         Caption         =   "电话"
         Height          =   375
         Index           =   0
         Left            =   360
         TabIndex        =   6
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "反馈情况:具体意见或建议"
      Height          =   1455
      Left            =   240
      TabIndex        =   1
      Top             =   1680
      Width           =   5895
      Begin RichTextLib.RichTextBox txt_Sugest 
         Height          =   1095
         Left            =   120
         TabIndex        =   9
         Top             =   240
         Width           =   5655
         _ExtentX        =   9975
         _ExtentY        =   1931
         _Version        =   393217
         Enabled         =   -1  'True
         MaxLength       =   250
         Appearance      =   0
         TextRTF         =   $"frm_FedBack.frx":030A
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "满意程度"
      Height          =   1455
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   1575
      Begin VB.OptionButton optHow 
         Caption         =   "有意见"
         Height          =   375
         Index           =   2
         Left            =   480
         TabIndex        =   5
         Top             =   960
         Width           =   855
      End
      Begin VB.OptionButton optHow 
         Caption         =   "一般"
         Height          =   375
         Index           =   1
         Left            =   480
         TabIndex        =   4
         Top             =   600
         Width           =   855
      End
      Begin VB.OptionButton optHow 
         Caption         =   "满意"
         Height          =   375
         Index           =   0
         Left            =   480
         TabIndex        =   3
         Top             =   240
         Width           =   855
      End
   End
End
Attribute VB_Name = "frm_FedBack"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_Cancel_Click()
Frm_History.rsFedBack.Close

Unload Me
End Sub

Private Sub Cmd_Ok_Click()
Dim i As Integer
Dim strFedBack As String
For i = 0 To 2
 If optHow(i).Value = True Then strFedBack = "[" & optHow(i).Caption
Next i
For i = 0 To 2
 If optConTact(i).Value = True Then strFedBack = strFedBack & optConTact(0).Caption
Next i

For i = 0 To 1
If OptHappen(i).Value = True Then strFedBack = strFedBack & OptHappen(i).Caption & "]"
Next i
strFedBack = strFedBack & txt_Sugest.Text
If Len(strFedBack) > 249 Then
 MsgBox "您添如数字过多,请删除" & CStr(250 - Len(strFedBack)) & "字!", vbInformation + vbOKOnly, STRGARAGE
 Exit Sub
 Else
 Frm_History.rsFedBack.Edit
 Frm_History.rsFedBack.Fields("反馈意见") = strFedBack
End If
 Frm_History.rsFedBack.Update
Frm_History.rsFedBack.Close
Frm_History.Grid_History.TextMatrix(Frm_History.Grid_History.Row, 6) = strFedBack
Unload Me
End Sub


Private Sub Form_Load()
Dim strFedBack As String
Dim intEnd As Integer
strFedBack = Frm_History.rsFedBack.Fields("反馈意见") & ""
If strFedBack = "" Then
    optHow(0).Value = True
    optConTact(0).Value = True
    OptHappen(0).Value = True
    Else
    intEnd = InStr(1, strFedBack, "]")
    If InStr(1, strFedBack, "满意") > 0 Then optHow(0).Value = True
    If InStr(1, strFedBack, "一般") > 0 Then optHow(1).Value = True
    If InStr(1, strFedBack, "有意见") > 0 Then optHow(2).Value = True
    If InStr(1, strFedBack, "电话") > 0 Then optConTact(0).Value = True
    If InStr(1, strFedBack, "面谈") > 0 Then optConTact(1).Value = True
    If InStr(1, strFedBack, "信函") > 0 Then optConTact(2).Value = True
    If InStr(1, strFedBack, "主动") > 0 Then OptHappen(0).Value = True
    If InStr(1, strFedBack, "被动") > 0 Then OptHappen(0).Value = True
    txt_Sugest.Text = Mid(strFedBack, intEnd + 1)
End If
End Sub