8VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentLLeft = -41 Top = 158 Width = 520 Height = 200 Name = "Dataenvironment" 11formformForm1Height = 348 Width = 528 DoCreate = .T. ShowTips = .T. AutoCenter = .T. Caption = "ԤԼ" MaxButton = .F. MinButton = .F. Icon = ..\..\sxzysh\qd\car.ico WindowType = 1 Name = "Form1" textboxtextboxtxtNameForm1Comment = "" ControlSource = "m.addr" Height = 20 Left = 67 MaxLength = 30 TabIndex = 5 TabStop = .F. Top = 61 Width = 188 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "txtName" textboxtextboxtxtAddrForm1Comment = "" ControlSource = "m.model" Format = "!" Height = 20 Left = 67 MaxLength = 30 TabIndex = 7 TabStop = .F. Top = 115 Width = 188 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "txtAddr" &PROCEDURE When dausers() ENDPROC  %FZTU CUDAUSERSWhen,12)textboxtextboxtxtTeleForm1Comment = "" ControlSource = "m.licno" Format = "!" Height = 20 Left = 67 MaxLength = 14 TabIndex = 8 TabStop = .F. Top = 144 Width = 70 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "txtTele" textboxtextboxtxtDateForm1Comment = "" ControlSource = "m.fxdate" Height = 20 Left = 182 MaxLength = 0 TabIndex = 2 TabStop = .F. Top = 8 Width = 73 ForeColor = 0,0,255 BackColor = 255,255,255 Name = "txtDate" PROCEDURE Valid gath memvar field fxdate sele fxtable repl mans with 0 all sele fuser rc=recno() set filt to fxdate=m.fxdate and fxclass=m.fxclass go top scan while not eof() m.fxtime=fxtime sele fxtable loca for time=m.fxtime if eof() go bott endif repl mans with mans+1 next 1 sele fuser endscan sele fxtable go top thisform.grid1.refresh sele fuser set filt to go rc return .t. ENDPROC + %U _F>F TCOG(    #)~+C+ T F-  %C+#6>FF#) FG( #BaU FXTIMEFXTABLEMANSALLFUSERRCFXDATEFXCLASSTIMENEXTTHISFORMGRID1REFRESHValid,1rrQqQAqqAqQrar1)labellabelLabel2Form1pAutoSize = .F. Caption = "ַ" Height = 14 Left = 33 Top = 65 Width = 26 TabIndex = 20 Name = "Label2" labellabelLabel3Form1aCaption = "" Height = 13 Left = 34 Top = 119 Width = 25 TabIndex = 22 Name = "Label3" labellabelLabel4Form1aCaption = "" Height = 13 Left = 33 Top = 148 Width = 26 TabIndex = 24 Name = "Label4" labellabelLabel15Form1fCaption = "ԤԼ" Height = 13 Left = 124 Top = 12 Width = 50 TabIndex = 27 Name = "Label15" linelineLine1Form1>Height = 0 Left = 2 Top = 287 Width = 513 Name = "Line1"  commandbutton commandbuttoncommand1Form1}Top = 303 Left = 96 Height = 28 Width = 105 Caption = "\<1.ȷ" TabIndex = 15 ForeColor = 0,0,255 Name = "command1" 6PROCEDURE Click pswd=.t. release thisform ENDPROC  ;%DYSU <UTHISFORMClick,1q1!)Form1 commandbutton commandbuttonCommand2Form1Top = 303 Left = 329 Height = 28 Width = 99 Cancel = .T. Caption = "\<0.ȡ" TabIndex = 16 ForeColor = 0,0,255 Name = "Command2" ,PROCEDURE Click release thisform ENDPROC  %FZTU CUDAUSERSWhen,12)textboxtextboxText1Form1Comment = "" ControlSource = "m.mem" Height = 35 Left = 68 MaxLength = 0 TabIndex = 14 ToolTipText = "˫˿ɽݴ롰" Top = 235 Width = 188 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text1" labellabelLabel1Form1dCaption = "Ҫ" Height = 14 Left = 9 Top = 246 Width = 50 TabIndex = 32 Name = "Label1" textboxtextboxText4Form1Comment = "" ControlSource = "m.tele" Format = "!" Height = 20 Left = 67 MaxLength = 30 TabIndex = 6 TabStop = .F. Top = 88 Width = 188 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text4" labellabelLabel8Form1`Caption = "绰" Height = 13 Left = 34 Top = 92 Width = 26 TabIndex = 23 Name = "Label8" textboxtextboxText6Form1Comment = "" ControlSource = "m.code" Enabled = .F. Height = 20 Left = 67 MaxLength = 3 TabIndex = 1 TabStop = .F. Top = 6 Width = 46 ForeColor = 0,0,255 BackColor = 192,192,192 DisabledForeColor = 0,0,255 Name = "Text6" labellabelLabel7Form1pAutoSize = .F. Caption = "" Height = 14 Left = 33 Top = 10 Width = 26 TabIndex = 19 Name = "Label7" textboxtextboxText7Form1Comment = "" ControlSource = "m.name" Height = 20 Left = 67 MaxLength = 30 TabIndex = 4 TabStop = .F. Top = 34 Width = 188 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text7" labellabelLabel10Form1dCaption = "ͻ" Height = 13 Left = 9 Top = 38 Width = 50 TabIndex = 18 Name = "Label10" textboxtextboxText8Form1Comment = "" ControlSource = "m.miles" Format = "Z" Height = 20 Left = 67 MaxLength = 0 TabIndex = 13 TabStop = .F. Top = 172 Width = 70 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text8" labellabelLabel11Form1bCaption = "" Height = 13 Left = 33 Top = 176 Width = 26 TabIndex = 31 Name = "Label11" textboxtextboxText9Form1Comment = "" ControlSource = "m.clr" Format = "!" Height = 20 Left = 182 MaxLength = 30 TabIndex = 9 TabStop = .F. Top = 141 Width = 73 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text9" &PROCEDURE When dausers() ENDPROC  , 0, 9, 6, 14, 10, 12, 2, 2  Optiongroup1 optiongroup optiongroupForm1Label5labellabelForm1Text2textboxlabellabelLabel12Form1cCaption = "ɫ" Height = 13 Left = 149 Top = 145 Width = 25 TabIndex = 21 Name = "Label12" labellabelLabel13Form1eCaption = "Ԥ" Height = 13 Left = 9 Top = 206 Width = 50 TabIndex = 30 Name = "Label13"  optiongroup optiongroup Optiongroup2Form15AutoSize = .F. ButtonCount = 3 Value = ControlSource = "m.fxclass" Height = 26 Left = 68 Top = 200 Width = 188 TabIndex = 33 Name = "Optiongroup2" Option1.Caption = "С" Option1.Value = 0 Option1.Height = 16 Option1.Left = 11 Option1.Top = 5 Option1.Width = 46 Option1.Name = "Option1" Option2.Caption = "" Option2.Height = 16 Option2.Left = 70 Option2.Top = 5 Option2.Width = 46 Option2.Name = "Option2" Option3.Caption = "" Option3.Height = 16 Option3.Left = 130 Option3.Top = 5 Option3.Width = 45 Option3.Name = "Option3" PPROCEDURE Click gath memvar field fxclass sele fxclass loca for name=m.fxclass m_hr=iif(hr=0,0.5,hr) m_fxs=fxs sele fxtable dele all for i=l_fusertime1 to l_fusertime2 step m_hr insert into fxtable (time,fxs) values(i,m_fxs) endfor sele fuser rc=recno() set filt to fxdate=m.fxdate and fxclass=m.fxclass go top scan while not eof() m.fxtime=fxtime sele fxtable loca for time=m.fxtime if eof() go bott endif repl mans with mans+1 next 1 sele fuser endscan sele fxtable go top thisform.grid1.refresh sele fuser set filt to go rc return .t. ENDPROC  %%E!TU _F- 'TC?6 TF( &rfxtable F T COG(   #)~+C+ DT F-  %C+"#6>F F#) F G( # BaUFXCLASSNAMEM_HRHRM_FXSFXSFXTABLEI L_FUSERTIME1 L_FUSERTIME2TIMEFUSERRCFXDATEFXTIMEMANSNEXTTHISFORMGRID1REFRESHClick,1rqrQaArQqQAqqAqQrar1E)textboxtextboxText10Form1Comment = "" ControlSource = "m.fxtime" Format = "z" Height = 20 InputMask = "99.9" Left = 347 MaxLength = 0 TabIndex = 3 TabStop = .F. Top = 9 Width = 47 ForeColor = 0,0,255 BackColor = 255,255,255 Name = "Text10" PROCEDURE Valid gath memvar field fxtime sele fxtable repl mans with 0 all sele fuser rc=recno() set filt to fxdate=m.fxdate and fxclass=m.fxclass go top scan while not eof() m.fxtime=fxtime sele fxtable loca for time=m.fxtime if eof() go bott endif repl mans with mans+1 next 1 sele fuser endscan sele fxtable go top thisform.grid1.refresh sele fuser set filt to go rc return .t. ENDPROC  B%UldU Ta<UPSWDTHISFORMClick,1q1+)ButtonCount = 1 Value = ControlSource = "m.chk" Height = 23 Left = 435 Top = 8 Width = 68 Name = "Optiongroup1" Option1.Caption = "ѽӴ" Option1.Value = 0 Option1.Height = 16 Option1.Left = 5 Option1.Top = 5 Option1.Width = 63 Option1.Name = "Option1" textboxForm1.Grid1.Column3Text1textboxlabellabelLabel14Form1fCaption = "ԤԼʱ" Height = 13 Left = 289 Top = 13 Width = 49 TabIndex = 28 Name = "Label14" gridgridGrid1Form1 ColumnCount = 4 AllowAddNew = .F. DeleteMark = .F. Height = 238 Left = 275 Panel = 1 ReadOnly = .T. RecordSource = "fxtable" RecordSourceType = 1 TabIndex = 17 Top = 35 Width = 239 Name = "Grid1" Column1.Alignment = 2 Column1.ControlSource = "time" Column1.Width = 49 Column1.ReadOnly = .T. Column1.Format = "z" Column1.InputMask = "99.9" Column1.Name = "Column1" Column2.ControlSource = "fxs" Column2.Width = 55 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ColumnOrder = 3 Column3.ControlSource = "mans" Column3.Width = 54 Column3.ReadOnly = .T. Column3.Format = "z" Column3.Name = "Column5" Column4.Alignment = 2 Column4.ControlSource = "iif(mans>=fxs,'','')" Column4.Width = 41 Column4.ReadOnly = .T. Column4.Name = "Column3" headerheaderHeader1Form1.Grid1.Column15Alignment = 2 Caption = "ʱ" Name = "Header1" textboxtextboxText1Form1.Grid1.Column1xAlignment = 2 BorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1Form1.Grid1.Column27Alignment = 2 Caption = "ԤԼ" Name = "Header1" textboxtextboxText1Form1.Grid1.Column2iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1Form1.Grid1.Column57Alignment = 2 Caption = "ԤԼ" Name = "Header1" textboxtextboxText1Form1.Grid1.Column5iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1Form1.Grid1.Column33Alignment = 2 Caption = "״̬" Name = "Header1" textboxhAlignment = 2 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" bCaption = "Ӵ" Height = 13 Left = 149 Top = 176 Width = 25 TabIndex = 21 Name = "Label5" Comment = "" ControlSource = "m.idman" Enabled = .F. Format = "!" Height = 20 Left = 182 MaxLength = 0 TabIndex = 9 TabStop = .F. Top = 172 Width = 73 ForeColor = 0,0,255 BackColor = 192,192,192 DisabledForeColor = 0,0,255 Name = "Text2" + %U _F>F TCOG(    #)~+C+ T F-  %C+#6>FF#) FG( #BaU FXDATEFXTABLEMANSALLFUSERRCFXCLASSFXTIMETIMENEXTTHISFORMGRID1REFRESHValid,1rrQqQAqqAqQrar1)