  K                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      Name = "Dataenvironment"
      1      1      form      form      Form1      Height = 426
Width = 606
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Picture = 
Caption = "Ա"
ControlBox = .F.
MaxButton = .F.
MinButton = .F.
Icon = 
WindowType = 1
Name = "Form1"
      PROCEDURE Load
sele chrs
if type('chrs.jsrv')='U'
use (dbf()) excl
alter table (dbf()) add jsrv n(1)
repl jsrv with js all
use (dbf())
endif

ENDPROC
     ,                              S   %             	                U  e  F   %C	 chrs.jsrvb U^ 
 QC& i1C&  N >  	 QC&  U  CHRS JSRV JS ALL Load,     1 q    A 2                              )                           grid      grid      Grid1      Form1     ColumnCount = 27
DeleteMark = .F.
Height = 384
Left = 12
Panel = 1
ReadOnly = .T.
RecordSource = "chrs"
Top = 36
Width = 580
Name = "Grid1"
Column1.ColumnOrder = 1
Column1.ControlSource = "name"
Column1.Width = 64
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.ColumnOrder = 3
Column2.ControlSource = "duty"
Column2.CurrentControl = "Text1"
Column2.Width = 58
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.Alignment = 2
Column3.ColumnOrder = 4
Column3.ControlSource = "iif(jd=1,'','')"
Column3.CurrentControl = "Text1"
Column3.Width = 29
Column3.ReadOnly = .T.
Column3.Name = "Column3"
Column4.Alignment = 2
Column4.ColumnOrder = 5
Column4.ControlSource = "iif(js=1,'','')"
Column4.CurrentControl = "Text1"
Column4.Width = 28
Column4.ReadOnly = .T.
Column4.Name = "Column4"
Column5.Alignment = 2
Column5.ColumnOrder = 10
Column5.ControlSource = "iif(userls=1,'','')"
Column5.CurrentControl = "Text1"
Column5.Width = 52
Column5.ReadOnly = .T.
Column5.Name = "Column6"
Column6.Alignment = 2
Column6.ColumnOrder = 11
Column6.ControlSource = "iif(prusrls=1,'','')"
Column6.CurrentControl = "Text1"
Column6.Width = 51
Column6.ReadOnly = .T.
Column6.Name = "Column7"
Column7.Alignment = 2
Column7.ColumnOrder = 12
Column7.ControlSource = "iif(cj=1,'','')"
Column7.CurrentControl = "Text1"
Column7.Width = 50
Column7.ReadOnly = .T.
Column7.Name = "Column8"
Column8.ColumnOrder = 2
Column8.ControlSource = "dept"
Column8.Width = 58
Column8.ReadOnly = .T.
Column8.Name = "Column5"
Column9.Alignment = 2
Column9.ColumnOrder = 7
Column9.ControlSource = "iif(sp=1,'','')"
Column9.Width = 26
Column9.ReadOnly = .T.
Column9.Name = "Column9"
Column10.Alignment = 2
Column10.ColumnOrder = 8
Column10.ControlSource = "iif(report=1,'','')"
Column10.Width = 28
Column10.ReadOnly = .T.
Column10.Name = "Column10"
Column11.Alignment = 2
Column11.ColumnOrder = 9
Column11.ControlSource = "iif(stard=1,'','')"
Column11.Width = 50
Column11.ReadOnly = .T.
Column11.Format = "z"
Column11.Name = "Column11"
Column12.Alignment = 2
Column12.ColumnOrder = 13
Column12.ControlSource = "iif(nbs=1,'','')"
Column12.Width = 53
Column12.ReadOnly = .T.
Column12.Name = "Column12"
Column13.Alignment = 2
Column13.ColumnOrder = 14
Column13.ControlSource = "iif(qpr=1,'','')"
Column13.Width = 53
Column13.ReadOnly = .T.
Column13.Name = "Column13"
Column14.Alignment = 2
Column14.ColumnOrder = 15
Column14.ControlSource = "gs"
Column14.Width = 52
Column14.ReadOnly = .T.
Column14.Format = "z"
Column14.Name = "Column14"
Column15.Alignment = 2
Column15.ColumnOrder = 16
Column15.ControlSource = "cl"
Column15.Width = 52
Column15.ReadOnly = .T.
Column15.Format = "z"
Column15.Name = "Column15"
Column16.Alignment = 2
Column16.ColumnOrder = 17
Column16.ControlSource = "iif(pu=1,'','')"
Column16.Width = 29
Column16.ReadOnly = .T.
Column16.Name = "Column16"
Column17.Alignment = 2
Column17.ColumnOrder = 18
Column17.ControlSource = "iif(ll=1,'','')"
Column17.Width = 29
Column17.ReadOnly = .T.
Column17.Name = "Column17"
Column18.Alignment = 2
Column18.ColumnOrder = 19
Column18.ControlSource = "iif(sls=1,'','')"
Column18.Width = 31
Column18.ReadOnly = .T.
Column18.Name = "Column18"
Column19.Alignment = 2
Column19.ColumnOrder = 20
Column19.ControlSource = "iif(order=1,'','')"
Column19.Width = 28
Column19.ReadOnly = .T.
Column19.Name = "Column19"
Column20.Alignment = 2
Column20.ColumnOrder = 21
Column20.ControlSource = "iif(pr=1,'','')"
Column20.Width = 27
Column20.ReadOnly = .T.
Column20.Name = "Column20"
Column21.Alignment = 2
Column21.ColumnOrder = 22
Column21.ControlSource = "iif(pc=1,'','')"
Column21.Width = 28
Column21.ReadOnly = .T.
Column21.Name = "Column21"
Column22.Alignment = 2
Column22.ColumnOrder = 23
Column22.ControlSource = "iif(bk=1,'','')"
Column22.Width = 29
Column22.ReadOnly = .T.
Column22.Name = "Column22"
Column23.Alignment = 2
Column23.ColumnOrder = 24
Column23.ControlSource = "iif(init=1,'','')"
Column23.Width = 40
Column23.ReadOnly = .T.
Column23.Name = "Column23"
Column24.Alignment = 2
Column24.ColumnOrder = 25
Column24.ControlSource = "iif(adm=1,'','')"
Column24.Width = 65
Column24.ReadOnly = .T.
Column24.Name = "Column24"
Column25.Alignment = 2
Column25.ColumnOrder = 26
Column25.ControlSource = "iif(adm2=1,'','')"
Column25.Width = 62
Column25.ReadOnly = .T.
Column25.Name = "Column25"
Column26.Alignment = 2
Column26.ColumnOrder = 27
Column26.ControlSource = "endate"
Column26.ReadOnly = .T.
Column26.Name = "Column26"
Column27.Alignment = 2
Column27.ColumnOrder = 6
Column27.ControlSource = "iif(jsrv=1,'','')"
Column27.Width = 37
Column27.ReadOnly = .T.
Column27.Name = "Column27"
      header      header      Header1      Form1.Grid1.Column1      &Caption = "Ա"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column1      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column2      $Caption = "ְ"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column2      iBorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      checkbox      checkbox      Check1      Form1.Grid1.Column2      LTop = 22
Left = 9
Height = 10
Width = 10
Caption = ""
Name = "Check1"
      header      header      Header1      Form1.Grid1.Column3      $Caption = "Ӵ"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column3      xAlignment = 2
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      checkbox      checkbox      Check1      Form1.Grid1.Column3      MTop = 22
Left = 13
Height = 10
Width = 10
Caption = ""
Name = "Check1"
      header      header      Header1      Form1.Grid1.Column4      $Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column4      xAlignment = 2
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      checkbox      checkbox      Check1      Form1.Grid1.Column4      MTop = 22
Left = 14
Height = 10
Width = 10
Caption = ""
Name = "Check1"
      header      header            Form1.Grid1.Column6      %Caption = ""
Name = ""
      textbox      textbox      Text1      Form1.Grid1.Column6      xAlignment = 2
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      checkbox      checkbox      Check1      Form1.Grid1.Column6      MTop = 22
Left = 16
Height = 10
Width = 10
Caption = ""
Name = "Check1"
      header      header      Header1      Form1.Grid1.Column7      (Caption = "û嵥"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column7      xAlignment = 2
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      checkbox      checkbox      Check1      Form1.Grid1.Column7      dTop = 34
Left = 14
Height = 10
Width = 10
Caption = ""
ControlSource = "adm"
Name = "Check1"
      header      header      Header1      Form1.Grid1.Column8      (Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column8      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column5      $Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column5      YBorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column9      $Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column9      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column10      $Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column10      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column11      (Caption = "ʱ׼"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column11      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column12      (Caption = "봦"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column12      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column13      (Caption = "۴"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column13      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column14      (Caption = "ʱŻ"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column14      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column15      (Caption = "Ż"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column15      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column16      $Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column16      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column17      $Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column17      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column18      $Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column18      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column19      $Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column19      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column20      $Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column20      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column21      $Caption = "̴"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column21      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column22      $Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column22      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column23      &Caption = "ʼ"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column23      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column24      *Caption = "ŹȨ"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column24      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column25      *Caption = "߹Ȩ"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column25      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column26      (Caption = ""
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column26      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      header      header      Header1      Form1.Grid1.Column27      &Caption = "Ľ"
Name = "Header1"
      textbox      textbox      Text1      Form1.Grid1.Column27      hAlignment = 2
BorderStyle = 0
Margin = 0
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
      commandbutton      commandbutton      Command1      Form1      Top = 6
Left = 14
Height = 25
Width = 93
Caption = "\<1."
ToolTipText = "˵"
ForeColor = 0,0,255
Name = "Command1"
      PROCEDURE Click
sele chrs
locat for code=idnb and name=idname
if found()
do renchrsb
endif
thisform.grid1.setfocus
thisform.refresh
ENDPROC
     R    9  9                           %             	                U  Q  F   -     	 %C43        
  	  U
  CHRS CODE IDNB NAME IDNAME RENCHRSB THISFORM GRID1 SETFOCUS REFRESH Click,     1 q  q A   1                              )   9                        commandbutton      commandbutton      Command2      Form1      Top = 6
Left = 107
Height = 25
Width = 93
Caption = "\<2.ӲԱ"
Enabled = (rt_adm2='1')
ForeColor = 0,0,255
Name = "Command2"
      VPROCEDURE Click
do rnwrt with 1
thisform.grid1.setfocus
thisform.refresh
ENDPROC
                                         %                             U  '        
    U  RNWRT THISFORM GRID1 SETFOCUS REFRESH Click,     1    1                       K       )                            commandbutton      commandbutton      Command3      Form1      Top = 6
Left = 200
Height = 25
Width = 93
Caption = "\<3.ɾ"
Enabled = (rt_adm2='1')
ForeColor = 0,0,255
Name = "Command3"
     #PROCEDURE Click
if dept=rt_dept or rt_adm2=yi
if messagebox('ȷʵҪɾ< '+trim(name)+' >  ',36,'')=6
repl dldate with dt next 1
dele next 1
endif
else
=messagebox('Բ𣬷ǱŲɾ',64,'')
endif

thisform.grid1.setfocus
thisform.grid1.refresh
ENDPROC
                                   TD   %   ^           m            U    %      { > %C ȷʵҪɾ< C `  >  $ xw  >  
    2 C Բ𣬷ǱŲɾ@ x   	 
   	   U  DEPT RT_DEPT RT_ADM2 YI NAME DLDATE DT NEXT THISFORM GRID1 SETFOCUS REFRESH Click,     1 1 A  !A   1                             )                           commandbutton      commandbutton      Command4      Form1      Top = 6
Left = 293
Height = 25
Width = 93
Caption = "\<4.Ȩ"
Enabled = (rt_adm2='1')
ForeColor = 0,0,255
Name = "Command4"
      PROCEDURE Click
if dept=rt_dept or rt_adm2='1'
do rnwrt with 2
else
=messagebox('ǱԱܴ',64,'')
endif
sele chrs
thisform.grid1.setfocus
thisform.refresh
ENDPROC
         j  j                           %          !  
               U    %   	   1*    ` . C ǱԱܴ@ x  F     
    U	  DEPT RT_DEPT RT_ADM2 RNWRT CHRS THISFORM GRID1 SETFOCUS REFRESH Click,     1   A q   1                              )   j                        commandbutton      commandbutton      Command7      Form1      Top = 6
Left = 547
Height = 25
Width = 26
Picture = exit.bmp
Cancel = .T.
Caption = ""
ForeColor = 0,0,255
Name = "Command7"
      PROCEDURE Click
sele chrs
set filt to
go top
sum 1,adm2 to x1,x2
if x1=0 or x2=0
=messagebox('ϵͳбһӦС߹Ȩ',64,'')
else
release thisform
endif

ENDPROC
     n    U  U                           %                            U    F   G( #) K(    %      > C& ϵͳбһӦС߹Ȩ@ x   <   U  CHRS ADM2 X1 X2 THISFORM Click,     1 q a Q q q A 2                              )   U                        commandbutton      commandbutton      Command5      Form1      Top = 6
Left = 386
Height = 25
Width = 93
Caption = "\<5.ɾ"
Enabled = (rt_adm2='1')
ForeColor = 0,0,255
Name = "Command5"
       , 0, 9, 6, 14, 10, 12, 2, 2

