DVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentLLeft = -41 Top = 158 Width = 520 Height = 200 Name = "Dataenvironment" 11formformForm1紿eight = 387 Width = 616 DoCreate = .T. ShowTips = .T. AutoCenter = .T. Caption = "跟踪服务数据输入" MaxButton = .F. MinButton = .F. Icon = car.ico WindowType = 1 Name = "Form1" textboxtextboxtxtNameForm1翪omment = "" ControlSource = "name" Height = 20 Left = 60 MaxLength = 30 TabIndex = 1 TabStop = .F. Top = 13 Width = 221 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "txtName" textboxtextboxtxtAddrForm1罜omment = "" ControlSource = "model" Format = "!" Height = 20 Left = 60 TabIndex = 3 TabStop = .F. Top = 61 Width = 111 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "txtAddr" textboxtextboxtxtTeleForm1袰omment = "" ControlSource = "licno" Format = "!" Height = 20 Left = 205 MaxLength = 14 TabIndex = 4 TabStop = .F. Top = 61 Width = 76 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "txtTele" textboxtextboxtxtDateForm1肅omment = "" ControlSource = "endate" Height = 20 Left = 60 MaxLength = 0 TabIndex = 6 TabStop = .F. Top = 110 Width = 73 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "txtDate" labellabelLabel2Form1cCaption = "客户名称" Height = 13 Left = 3 Top = 17 Width = 50 TabIndex = 20 Name = "Label2" labellabelLabel3Form1`Caption = "车型" Height = 13 Left = 28 Top = 65 Width = 25 TabIndex = 21 Name = "Label3" labellabelLabel4Form1aCaption = "车号" Height = 13 Left = 174 Top = 65 Width = 26 TabIndex = 23 Name = "Label4" labellabelLabel15Form1eCaption = "进厂日期" Height = 13 Left = 4 Top = 114 Width = 50 TabIndex = 27 Name = "Label15" linelineLine1Form1>Height = 0 Left = 3 Top = 329 Width = 596 Name = "Line1"  commandbutton commandbuttoncommand1Form1~Top = 343 Left = 147 Height = 28 Width = 105 Caption = "\<1.确认" TabIndex = 18 ForeColor = 0,0,255 Name = "command1" pPROCEDURE Click if empt(date) repl date with dt,idman with m.idname next 1 endif release thisform ENDPROC  %U3%麮↓,T 欞UTHISVALUEIDNAMEREFRESHDblClick,1!A2Q)Form1 commandbutton commandbuttonCommand2Form1婽op = 343 Left = 362 Height = 28 Width = 99 Cancel = .T. Caption = "\<0.取消" TabIndex = 19 ForeColor = 0,0,255 Name = "Command2" ,PROCEDURE Click release thisform ENDPROC 箕 ;%DYSU <UTHISFORMClick,1q1!)textboxtextboxText1Form1Comment = "" ControlSource = "things" Height = 77 Left = 355 MaxLength = 0 TabIndex = 14 ToolTipText = "双击此框可将此内容存入“常用语”库中" Top = 69 Width = 243 ForeColor = 0,0,255 BackColor = 255,255,255 BorderColor = 255,255,255 Name = "Text1" PROCEDURE DblClick local m_sele m_sele=sele() c=trim(this.value) sele afterswd loca for name=c if eof() insert into afterswd (name) value(this.value) endif sele (m_sele) =messagebox('该内容已存入“常用语”库中！',64,'告诉您') thisform.text1.refresh ENDPROC 羹 舟%*V <U T麮WT麮`F- %麮+f r见afterswd F4嘃C该内容已存入“常用语”库中！@告诉您陎 欞U M_SELECTHISVALUEAFTERSWDNAMETHISFORMTEXT1REFRESHDblClick,1q!qAA2)labellabelLabel1Form1fCaption = "跟踪事项" Height = 13 Left = 298 Top = 101 Width = 49 TabIndex = 41 Name = "Label1"  optiongroup optiongroup Optiongroup1Form1癆utoSize = .F. ButtonCount = 4 Value = ControlSource = "chk" Height = 25 Left = 355 Top = 11 Width = 244 TabIndex = 45 Name = "Optiongroup1" Option1.Caption = "走访" Option1.Value = 0 Option1.Height = 16 Option1.Left = 8 Option1.Top = 5 Option1.Width = 44 Option1.Name = "Option1" Option2.Caption = "电话" Option2.Height = 16 Option2.Left = 65 Option2.Top = 5 Option2.Width = 45 Option2.Name = "Option2" Option3.Caption = "信函" Option3.Height = 16 Option3.Left = 123 Option3.Top = 5 Option3.Width = 44 Option3.Name = "Option3" Option4.Caption = "其他" Option4.Height = 16 Option4.Left = 183 Option4.Top = 5 Option4.Width = 47 Option4.Name = "Option4" textboxtextboxText2Form1翪omment = "" ControlSource = "exdate" Height = 20 Left = 205 MaxLength = 0 TabIndex = 7 TabStop = .F. Top = 110 Width = 76 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text2" labellabelLabel5Form1fCaption = "出厂日期" Height = 13 Left = 150 Top = 114 Width = 50 TabIndex = 30 Name = "Label5" textboxtextboxText3Form1跜omment = "" ControlSource = "man" Height = 20 Left = 205 MaxLength = 0 TabIndex = 11 TabStop = .F. Top = 162 Width = 76 ForeColor = 0,0,255 BackColor = 255,255,255 BorderColor = 255,255,255 Name = "Text3" labellabelLabel6Form1dCaption = "接待人" Height = 13 Left = 162 Top = 166 Width = 38 TabIndex = 26 Name = "Label6" textboxtextboxText4Form1蜟omment = "" ControlSource = "tele" Format = "!" Height = 20 Left = 60 MaxLength = 30 TabIndex = 2 TabStop = .F. Top = 37 Width = 221 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text4" labellabelLabel8Form1`Caption = "电话" Height = 13 Left = 25 Top = 41 Width = 25 TabIndex = 22 Name = "Label8" textboxtextboxText5Form1罜omment = "" ControlSource = "chassis" Format = "!" Height = 20 Left = 60 TabIndex = 5 TabStop = .F. Top = 85 Width = 111 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text5" labellabelLabel9Form1bCaption = "底盘号" Height = 13 Left = 16 Top = 89 Width = 38 TabIndex = 24 Name = "Label9" textboxtextboxText8Form1顲omment = "" Value = ControlSource = "work" Format = "z" Height = 20 Left = 60 MaxLength = 0 TabIndex = 8 TabStop = .F. Top = 136 Visible = (empt(date)) Width = 73 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text8" labellabelLabel12Form1dCaption = "工时费" Height = 13 Left = 16 Top = 140 Width = 38 TabIndex = 28 Name = "Label12" textboxtextboxText9Form1餋omment = "" Value = ControlSource = "part" Format = "z" Height = 20 Left = 205 MaxLength = 0 TabIndex = 9 TabStop = .F. Top = 136 Visible = (empt(date)) Width = 76 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text9" labellabelLabel13Form1eCaption = "材料费" Height = 13 Left = 162 Top = 140 Width = 38 TabIndex = 33 Name = "Label13" textboxtextboxText10Form1顲omment = "" Value = ControlSource = "hj" Format = "z" Height = 20 Left = 60 MaxLength = 0 TabIndex = 10 TabStop = .F. Top = 162 Visible = (empt(date)) Width = 73 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text10" labellabelLabel14Form1bCaption = "合计" Height = 13 Left = 28 Top = 166 Width = 26 TabIndex = 29 Name = "Label14" textboxtextboxText11Form1腃omment = "" ControlSource = "itname" Height = 60 Left = 59 MaxLength = 0 TabIndex = 12 TabStop = .F. Top = 188 Width = 221 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text11" labellabelLabel16Form1eCaption = "维修项目" Height = 13 Left = 6 Top = 206 Width = 48 TabIndex = 34 Name = "Label16" textboxtextboxText12Form1腃omment = "" ControlSource = "ptname" Height = 60 Left = 59 MaxLength = 0 TabIndex = 13 TabStop = .F. Top = 255 Width = 221 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text12" labellabelLabel17Form1eCaption = "更新材料" Height = 14 Left = 4 Top = 273 Width = 50 TabIndex = 43 Name = "Label17" labellabelLabel18Form1fCaption = "跟踪方式" Height = 13 Left = 297 Top = 19 Width = 50 TabIndex = 35 Name = "Label18" textboxtextboxText13Form1鶦omment = "" ControlSource = "date" Height = 20 Left = 355 MaxLength = 0 TabIndex = 16 TabStop = .F. ToolTipText = "若时今天跟踪，点击“确认”时自动生成。" Top = 150 Width = 76 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text13" XPROCEDURE DblClick if empt(this.value) this.value=dt this.refresh endif ENDPROC   %}U3%麮↓,T 欞UTHISVALUEDTREFRESHDblClick,1!A2M)labellabelLabel19Form1gCaption = "跟踪日期" Height = 13 Left = 297 Top = 154 Width = 50 TabIndex = 32 Name = "Label19" textboxtextboxText14Form1鵆omment = "" ControlSource = "idman" Height = 20 Left = 522 MaxLength = 0 TabIndex = 17 TabStop = .F. ToolTipText = "点击“确认”时自动默认为操作员本人。" Top = 150 Width = 76 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text14" \PROCEDURE DblClick if empt(this.value) this.value=idname this.refresh endif ENDPROC  宋体, 0, 9, 6, 14, 10, 12, 2, 2 aCaption = "司机" Height = 13 Left = 174 Top = 89 Width = 26 TabIndex = 24 Name = "Label7" Label7labellabelForm1Text6textboxtextboxForm1Label24labellabelLabel20Form1eCaption = "跟踪人" Height = 13 Left = 478 Top = 154 Width = 37 TabIndex = 31 Name = "Label20" labellabelLabel10Form1fCaption = "服务态度" Height = 13 Left = 297 Top = 46 Width = 50 TabIndex = 38 Name = "Label10" comboboxcomboboxCombo1Form1疪owSourceType = 1 RowSource = "满意,一般,不满意" ControlSource = "chk1" Height = 23 Left = 355 TabIndex = 49 Top = 41 Width = 76 ForeColor = 0,0,255 Name = "Combo1" labellabelLabel11Form1fCaption = "维修技术" Height = 13 Left = 465 Top = 46 Width = 50 TabIndex = 37 Name = "Label11" comboboxcomboboxCombo2Form1疪owSourceType = 1 RowSource = "满意,一般,不满意" ControlSource = "chk2" Height = 23 Left = 522 TabIndex = 50 Top = 41 Width = 76 ForeColor = 0,0,255 Name = "Combo2" checkboxcheckboxCheck1Form1峊op = 178 Left = 295 Height = 16 Width = 71 Alignment = 1 Caption = "是否投诉" ControlSource = "投诉" TabIndex = 51 Name = "Check1" 絇ROCEDURE Click local c c=this.value thisform.投诉类别.enabled=c thisform.投诉内容.enabled=c thisform.跟进结果.enabled=c thisform.处理结果.enabled=c thisform.refresh ENDPROC w ^^7% UpTTTTT 欞 U CTHISVALUETHISFORM投诉类别ENABLED投诉内容跟进结果处理结果REFRESHClick,1q11114)^ optiongroup optiongroup投诉内容Form1FAutoSize = .F. ButtonCount = 5 Value = ControlSource = "投诉内容" Enabled = (投诉) Height = 25 Left = 354 Top = 203 Width = 244 TabIndex = 46 Name = "投诉内容" Option1.Caption = "服务" Option1.Value = 0 Option1.Height = 16 Option1.Left = 6 Option1.Top = 5 Option1.Width = 44 Option1.Name = "Option1" Option2.Caption = "质量" Option2.Height = 16 Option2.Left = 53 Option2.Top = 5 Option2.Width = 45 Option2.Name = "Option2" Option3.Caption = "效率" Option3.Height = 16 Option3.Left = 100 Option3.Top = 5 Option3.Width = 44 Option3.Name = "Option3" Option4.Caption = "价格" Option4.Height = 16 Option4.Left = 147 Option4.Top = 5 Option4.Width = 47 Option4.Name = "Option4" Option5.Caption = "其他" Option5.Height = 16 Option5.Left = 194 Option5.Top = 5 Option5.Width = 45 Option5.Name = "Option5" labellabelLabel21Form1gCaption = "投诉内容" Height = 13 Left = 296 Top = 211 Width = 50 TabIndex = 36 Name = "Label21"  optiongroup optiongroup投诉类别Form1葾utoSize = .F. ButtonCount = 2 Value = ControlSource = "投诉类别" Enabled = (投诉) Height = 25 Left = 436 Top = 174 Width = 162 TabIndex = 44 Name = "投诉类别" Option1.Caption = "一般投诉" Option1.Value = 0 Option1.Height = 16 Option1.Left = 11 Option1.Top = 5 Option1.Width = 70 Option1.Name = "Option1" Option2.Caption = "严重投诉" Option2.Height = 16 Option2.Left = 88 Option2.Top = 5 Option2.Width = 69 Option2.Name = "Option2" labellabelLabel22Form1gCaption = "投诉类别" Height = 13 Left = 379 Top = 180 Width = 50 TabIndex = 39 Name = "Label22" textboxtextbox跟进结果Form1:Comment = "" ControlSource = "跟进结果" Enabled = (投诉) Height = 50 Left = 354 MaxLength = 0 TabIndex = 15 ToolTipText = "双击此框可将此内容存入“常用语”库中" Top = 234 Width = 244 ForeColor = 0,0,255 BackColor = 255,255,255 DisabledForeColor = 0,0,255 BorderColor = 255,255,255 Name = "跟进结果" PROCEDURE DblClick local m_sele m_sele=sele() c=trim(this.value) sele afterswd loca for name=c if eof() insert into afterswd (name) value(this.value) endif sele (m_sele) =messagebox('该内容已存入“常用语”库中！',64,'告诉您') thisform.text1.refresh ENDPROC 羹 舟%*V <U T麮WT麮`F- %麮+f r见afterswd F4嘃C该内容已存入“常用语”库中！@告诉您陎 欞U M_SELECTHISVALUEAFTERSWDNAMETHISFORMTEXT1REFRESHDblClick,1q!qAA2)labellabelLabel23Form1gCaption = "跟进结果" Height = 13 Left = 296 Top = 253 Width = 49 TabIndex = 42 Name = "Label23"  optiongroup optiongroup处理结果Form1艫utoSize = .F. ButtonCount = 2 Value = ControlSource = "处理结果" Enabled = (投诉) Height = 25 Left = 354 Top = 289 Width = 244 TabIndex = 47 Name = "处理结果" Option1.Caption = "已处理" Option1.Value = 0 Option1.Height = 16 Option1.Left = 43 Option1.Top = 5 Option1.Width = 57 Option1.Name = "Option1" Option2.Caption = "未处理" Option2.Height = 16 Option2.Left = 143 Option2.Top = 5 Option2.Width = 57 Option2.Name = "Option2" labellabelgCaption = "处理结果" Height = 13 Left = 296 Top = 295 Width = 50 TabIndex = 40 Name = "Label24" 蜟omment = "" ControlSource = "driv" Format = "!" Height = 20 Left = 205 MaxLength = 14 TabIndex = 5 TabStop = .F. Top = 85 Width = 76 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text6"  /5%U<%麮↓.>腰腰 <UDATEDTIDMANIDNAMENEXTTHISFORMClick,1Aq1e)