sanlu_new/program/SunRoxmServer/Form XML/FrmAttendanceRuleSetting.xml

<?xml version="1.0" encoding="utf-8" ?>
<Forms>
  <Form Name="FrmAttendanceRuleSetting">
    <Client>
      <Events>
        <Load>
          <![CDATA[
					@SetFlag=1;
					@Title="考勤班次设定";
					GetSchema();
					ChangeMode("Search");
					
					]]>
        </Load>
        <Closing>
          ;
        </Closing>
        <Closed>
          ;
        </Closed>
      </Events>
      <Mode>
        <Search>
          <Lable name="Search" />
        </Search>
        <New>
          <Lable name="New" />
        </New>
        <View>
          <Lable name="View" />
        </View>
        <Modify>
          <Lable name="Modify" />
        </Modify>
      </Mode>
      <Controls>
        <IKTextButton name="tbNo" DataSource="AttendanceRule.No_AttendanceRule">
          <Events>
            <Enter>
              <![CDATA[
							if(tbNo.ReadOnly == false)
							{
								if(tbNo.CValue != StringEmpty())
								{
									UpdateForm(false, "");
									if(Search("SearchAttendanceRuleWithNo", tbNo.CValue))
									{
										 ChangeMode("View");
									}
									else
									{
										if(GetRight(@Title,"新增"))
											ChangeMode("New");	
									}
								}
								else
								{
									MessageBox("请输入考勤班次设定编号！",@Title);
								}
							}
							]]>
            </Enter>
            <Click>
              @Temp = ShowSearchBox("AttendanceRuleSearch","INFOMATION",tbNo.CValue);
              if(@Temp != StringEmpty())
              {
                tbNo.CValue = @Temp;
                UpdateForm(false, "");
                if(Search("SearchAttendanceRuleWithNo",tbNo.CValue))
                {
                  ChangeMode("View");
                }
              }
            </Click>
          </Events>
        </IKTextButton>
        <IKTextBox		name="txtName"				DataSource="AttendanceRule.Name_AttendanceRule"/>
       
        <!--<IKComboBox		name="cbPayLimitCurrency"/>	-->
        <IKDateTimePicker name="dtpOnStuffOne"		DataSource="AttendanceRule.OnStuffOne"/>
        <IKDateTimePicker name="dtpOffStuffOne"			DataSource="AttendanceRule.OffStuffOne"/>
        <IKDateTimePicker name="dtpOnStuffTwo"		DataSource="AttendanceRule.OnStuffTwo"/>
        <IKDateTimePicker name="dtpOffStuffTwo"		DataSource="AttendanceRule.OffStuffTwo"/>

        <IKIntegralUpDown		name="itbArriveLate"			DataSource="AttendanceRule.ArriveLate_AttendanceRule"/>
        <IKIntegralUpDown		name="itbLeaveEarly"			DataSource="AttendanceRule.LeaveEarly_AttendanceRule"/>
        
        <IKTextBox		name="txtComment"			DataSource="AttendanceRule.Comment_AttendanceRule"/>
        
        <IKDateTimeText name="dttCreateDate"		DataSource="AttendanceRule.CreateDate_AttendanceRule"/>
        <IKTextBox		name="txtCreator"			    DataSource="AttendanceRule.Name_Creator"/>
        <IKTextBox		name="txtMender"			    DataSource="AttendanceRule.LastModUser"/>
        <IKDateTimeText name="dttMendeDate"			DataSource="AttendanceRule.LastModDate_AttendanceRule"/>


        <IKDataGridEx	name="dgEmployee"			DataSource="AttendanceRuleEmployee" TableStyleIndex="0">
          <DataColumn Index="0" DataSource="AttendanceRuleEmployee.No_Employee" >
            <IKDataGridTextButtonColumn>
              <Events>
                <Click>
                  @SetFlag=1;
                  ShowSearchBox("EmployeeSearch","INFOMATION",#AttendanceRuleEmployee.No_Employee);
                </Click>
                <SetFlagBeforeClick>
                  @SetFlag=0;
                </SetFlagBeforeClick>
              </Events>
            </IKDataGridTextButtonColumn>
          </DataColumn>
          <DataColumn Index="1" DataSource="AttendanceRuleEmployee.Name_Employee" />
        </IKDataGridEx>
        <IKFormToolBar name="toolBar">
          <Events>
            <ClickFirst>
              if(Search("SearchAttendanceRuleFirst"))
              {
              ChangeMode("View");
              }
            </ClickFirst>
            <ClickPrev>
              if(Search("SearchAttendanceRulePrevious", tbNo.CValue))
              {
              ChangeMode("View");
              }
            </ClickPrev>
            <ClickNext>
              if(Search("SearchAttendanceRuleNext", tbNo.CValue))
              {
              ChangeMode("View");
              }
            </ClickNext>
            <ClickLast>
              if(Search("SearchAttendanceRuleLast"))
              {
              ChangeMode("View");
              }
            </ClickLast>
            <ClickNew>
              ;
            </ClickNew>
            <ClickEmpty>
              ChangeMode("Search");
            </ClickEmpty>
            <ClickSubmit>
              <Lable name="SubmitButtonClick"/>
            </ClickSubmit>
            <ClickModify>
              ChangeMode("Modify");
            </ClickModify>
            <ClickDelete>
              Delete();
              ChangeMode("Search");
            </ClickDelete>
            <ClickPrint>
              PrintReport();
            </ClickPrint>
            <ClickAudit>
              ;
            </ClickAudit>
            <ClickUnAudit>
              ;
            </ClickUnAudit>
            <ClickImport>
              ;
            </ClickImport>
            <ClickExport>
              ;
            </ClickExport>
            <ClickClose>
              ;
            </ClickClose>
            <ClickExpand>
              ;
            </ClickExpand>
          </Events>
        </IKFormToolBar>
      </Controls>
      <Tables>
        <Table name="AttendanceRuleEmployee">
          <Events>
            <ColumnsChanged>
              <No_Employee>
                if(@SetFlag==0)
                {
                return;
                }
                if(Search("GetEmployeeNameByNo",#AttendanceRuleEmployee.No_Employee))
                {
                #AttendanceRuleEmployee.Name_Employee=#Employee.Name_Employee;
                #AttendanceRuleEmployee.ID_Employee=#Employee.ID_Employee;
                if(!Equals(#Employee.SuspendDate_Employee,DBNull()))
                MessageBox("该员工已停用！",@Title);
                }
                else
                {
                MessageBox("该员工不存在！",@Title);
                #AttendanceRuleEmployee.Name_Employee="";
                #AttendanceRuleEmployee.ID_Employee=GuidEmpty();
                @temp = ShowSearchBox("InputEmployeeSearch","INFOMATION",#AttendanceRuleEmployee.No_Employee);
                if(@temp != "")
                {
                ResumeColumnEvent("#AttendanceRuleEmployee.No_Employee");
                #AttendanceRuleEmployee.No_Employee = @temp;
                ClearColumnEvent();
                }
                }

              </No_Employee>
            </ColumnsChanged>
          </Events>
        </Table>
      </Tables>
      <LockInfomation  LockID="ID_AttendanceRule" LockNO="No_AttendanceRule" LockSearchFunction="SearchAttendanceRuleWithNo"/>
      <ChildForms>
        <ChildForm name="AttendanceRuleSearch" DataSource="AttendanceRule" SearchFunction="SearchAllAttendanceRule" SearchFunctionCondition="" SearchFunctionByNo="SearchAttendanceRuleWithNo" MappingName="考勤班次设定">
          <DataColumn Index="0" MappingName="#AttendanceRule.No_AttendanceRule"				HeaderText="班次编号" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
          <DataColumn Index="2" MappingName="#AttendanceRule.Name_AttendanceRule"		HeaderText="班次名称" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
        </ChildForm>
        <ChildForm name="InputEmployeeSearch" DataSource="Employee" SearchFunction="SearchAllEmployee" SearchFunctionByNo="" MappingName="员工">
          <DataColumn Index="0" MappingName="#Employee.No_Employee"			HeaderText="员工编号" Width="90" ColumnType="IKDataGridTextBoxColumn" />
          <DataColumn Index="1" MappingName="#Employee.Name_Employee"		HeaderText="员工名称" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
        </ChildForm>
        <ChildForm name="EmployeeSearch" DataSource="Employee" SearchFunction="SearchAllEmployee" SearchFunctionByNo="" MappingName="员工" ReturnDataSource="AttendanceRuleEmployee"  ShowCheckBox="true">
          <DataColumn Index="0" MappingName="#Employee.No_Employee"			HeaderText="员工编号" Width="90" ColumnType="IKDataGridTextBoxColumn" ReturnMappingName="#AttendanceRuleEmployee.No_Employee"/>
          <DataColumn Index="1" MappingName="#Employee.Name_Employee"		HeaderText="员工名称" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
        </ChildForm>
      </ChildForms>
      <FormatString>
        
      </FormatString>
    </Client>
    <Server>
      <Tables>
        <Table name="AttendanceRule" Type="Parent">
          <GetSchema CmdType="Text" CmdText="	SELECT TOP 0 AttendanceRule.*,A.Name_User AS Name_Creator,B.Name_User As LastModUser
														FROM AttendanceRule 
														LEFT JOIN AppUser A ON A.ID_User = AttendanceRule.ID_Creator
														LEFT Join AppUser B ON B.ID_User=AttendanceRule.LastModUser_AttendanceRule"/>
          <New CmdType="Text" CmdText="	
                                  INSERT INTO [AttendanceRule]
                                                 ([ID_AttendanceRule]
                                                 ,[No_AttendanceRule]
                                                 ,[Name_AttendanceRule]
                                                 ,[OnStuffOne]
                                                 ,[OffStuffOne]
                                                 ,[OnStuffTwo]
                                                 ,[OffStuffTwo]
                                                 ,[ArriveLate_AttendanceRule]
                                                 ,[LeaveEarly_AttendanceRule]
                                                 ,[TakeOff_AttendanceRule]
                                                 ,[Comment_AttendanceRule]
                                                 ,[ID_Creator]
                                                 ,[CreateDate_AttendanceRule]
                                                 ,[LastModUser_AttendanceRule]
                                                 ,[LastModDate_AttendanceRule])
                                           VALUES
                                                 (@ID_AttendanceRule
                                                 ,@No_AttendanceRule
                                                 ,@Name_AttendanceRule
                                                 ,@OnStuffOne
                                                 ,@OffStuffOne
                                                 ,@OnStuffTwo
                                                 ,@OffStuffTwo
                                                 ,@ArriveLate_AttendanceRule
                                                 ,@LeaveEarly_AttendanceRule
                                                 ,0
                                                 ,@Comment_AttendanceRule
                                                 ,@ID_Creator
                                                 ,@CreateDate_AttendanceRule
                                                 ,@LastModUser_AttendanceRule
                                                 ,@LastModDate_AttendanceRule)
                                  
                                        " >
            <Params>
              <Param name="@ID_AttendanceRule"				type="AttendanceRule.ID_AttendanceRule" 				sourceColumn="ID_AttendanceRule" />
              <Param name="@No_AttendanceRule"				type="AttendanceRule.No_AttendanceRule" 				sourceColumn="No_AttendanceRule" />
              <Param name="@Name_AttendanceRule"			type="AttendanceRule.Name_AttendanceRule"				sourceColumn="Name_AttendanceRule" />
              <Param name="@OnStuffOne"               type="AttendanceRule.OnStuffOne"	sourceColumn="OnStuffOne" />
              <Param name="@OffStuffOne"			type="AttendanceRule.OffStuffOne"			sourceColumn="OffStuffOne" />
              <Param name="@OnStuffTwo"		type="AttendanceRule.OnStuffTwo"			sourceColumn="OnStuffTwo" />
              <Param name="@OffStuffTwo"			type="AttendanceRule.OffStuffTwo"				sourceColumn="OffStuffTwo" />
              <Param name="@ArriveLate_AttendanceRule"		type="AttendanceRule.ArriveLate_AttendanceRule"			sourceColumn="ArriveLate_AttendanceRule" />
              <Param name="@LeaveEarly_AttendanceRule"		type="AttendanceRule.LeaveEarly_AttendanceRule"			sourceColumn="LeaveEarly_AttendanceRule" />
              <Param name="@TakeOff_AttendanceRule"			type="AttendanceRule.TakeOff_AttendanceRule"			sourceColumn="TakeOff_AttendanceRule" />
              <Param name="@Comment_AttendanceRule"		type="AttendanceRule.Comment_AttendanceRule"			sourceColumn="Comment_AttendanceRule" />
              <Param name="@ID_Creator"		type="AttendanceRule.ID_Creator"			sourceColumn="ID_Creator" />
              <Param name="@CreateDate_AttendanceRule"		type="AttendanceRule.CreateDate_AttendanceRule"			sourceColumn="CreateDate_AttendanceRule" />
              <Param name="@LastModUser_AttendanceRule"		type="AttendanceRule.LastModUser_AttendanceRule"		sourceColumn="LastModUser_AttendanceRule" />
              <Param name="@LastModDate_AttendanceRule"		type="AttendanceRule.LastModDate_AttendanceRule"		sourceColumn="LastModDate_AttendanceRule" />
            </Params>
          </New>
          <Update CmdType="Text" CmdText="
                                               Update AttendanceRule Set 
                                               [No_AttendanceRule]          =@No_AttendanceRule
                                               ,[Name_AttendanceRule]        =@Name_AttendanceRule
                                               ,[OnStuffOne]                 =@OnStuffOne
                                               ,[OffStuffOne]                =@OffStuffOne
                                               ,[OnStuffTwo]                 =@OnStuffTwo
                                               ,[OffStuffTwo]                =@OffStuffTwo
                                               ,[ArriveLate_AttendanceRule]  =@ArriveLate_AttendanceRule
                                               ,[LeaveEarly_AttendanceRule]  =@LeaveEarly_AttendanceRule
                                               ,[TakeOff_AttendanceRule]     =0
                                               ,[Comment_AttendanceRule]     =@Comment_AttendanceRule
                                               ,[ID_Creator]                 =@ID_Creator
                                               ,[CreateDate_AttendanceRule]  =@CreateDate_AttendanceRule
                                               ,[LastModUser_AttendanceRule] =@LastModUser_AttendanceRule
                                               ,[LastModDate_AttendanceRule] =@LastModDate_AttendanceRule
                                               Where ID_AttendanceRule=@ID_AttendanceRule
                                           
                                        ">
            <Params>
              <Param name="@ID_AttendanceRule"				type="AttendanceRule.ID_AttendanceRule" 				sourceColumn="ID_AttendanceRule" />
              <Param name="@No_AttendanceRule"				type="AttendanceRule.No_AttendanceRule" 				sourceColumn="No_AttendanceRule" />
              <Param name="@Name_AttendanceRule"			type="AttendanceRule.Name_AttendanceRule"				sourceColumn="Name_AttendanceRule" />
              <Param name="@OnStuffOne"               type="AttendanceRule.OnStuffOne"	sourceColumn="OnStuffOne" />
              <Param name="@OffStuffOne"			type="AttendanceRule.OffStuffOne"			sourceColumn="OffStuffOne" />
              <Param name="@OnStuffTwo"		type="AttendanceRule.OnStuffTwo"			sourceColumn="OnStuffTwo" />
              <Param name="@OffStuffTwo"			type="AttendanceRule.OffStuffTwo"				sourceColumn="OffStuffTwo" />
              <Param name="@ArriveLate_AttendanceRule"		type="AttendanceRule.ArriveLate_AttendanceRule"			sourceColumn="ArriveLate_AttendanceRule" />
              <Param name="@LeaveEarly_AttendanceRule"		type="AttendanceRule.LeaveEarly_AttendanceRule"			sourceColumn="LeaveEarly_AttendanceRule" />
              <Param name="@TakeOff_AttendanceRule"			type="AttendanceRule.TakeOff_AttendanceRule"			sourceColumn="TakeOff_AttendanceRule" />
              <Param name="@Comment_AttendanceRule"		type="AttendanceRule.Comment_AttendanceRule"			sourceColumn="Comment_AttendanceRule" />
              <Param name="@ID_Creator"		type="AttendanceRule.ID_Creator"			sourceColumn="ID_Creator" />
              <Param name="@CreateDate_AttendanceRule"		type="AttendanceRule.CreateDate_AttendanceRule"			sourceColumn="CreateDate_AttendanceRule" />
              <Param name="@LastModUser_AttendanceRule"		type="AttendanceRule.LastModUser_AttendanceRule"		sourceColumn="LastModUser_AttendanceRule" />
              <Param name="@LastModDate_AttendanceRule"		type="AttendanceRule.LastModDate_AttendanceRule"		sourceColumn="LastModDate_AttendanceRule" />
            </Params>
          </Update>
          <Delete CmdType="Text" CmdText="
                          DELETE AttendanceRuleEmployee WHERE ID_AttendanceRule = @ID_AttendanceRule
													DELETE AttendanceRule WHERE ID_AttendanceRule = @ID_AttendanceRule">
            <Params>
              <Param name="@ID_AttendanceRule" type="AttendanceRule.ID_AttendanceRule" sourceColumn="ID_AttendanceRule" />
            </Params>
          </Delete>
          <FKErrorReport ErrorMessage="该考勤班次设定已被引用，删除失败！"/>
          <UNIQUEErrorReport ErrorMessage="该考勤班次设定已存在，提交失败！"/>
        </Table>
        
        <Table name="AttendanceRuleEmployee" Type="Child">
          <GetSchema CmdType="Text" CmdText="SELECT top 0 AttendanceRuleEmployee.*,No_Employee,Name_Employee From AttendanceRuleEmployee Left Join Employee On Employee.ID_Employee=AttendanceRuleEmployee.ID_Employee " />
          <New CmdType="Text" CmdText="	
                                      Declare @Error nvarchar(256)
                                      Declare @No_Employee nvarchar(64)
                                      IF(Not Exists (Select * From AttendanceRuleEmployee Where ID_Employee=@ID_Employee))
                                        Insert Into AttendanceRuleEmployee(ID_AttendanceRuleEmployee,ID_AttendanceRule,ID_Employee) Values(@ID_AttendanceRuleEmployee,@ID_AttendanceRule,@ID_Employee)
                                      else
                                      BEGIN
                                        Select @No_Employee=No_Employee From Employee Where ID_Employee=@ID_Employee
                                        SET @Error = N'员工编号为'+@No_Employee+N'的班次已设定,提交失败！'
                                        RAISERROR(@Error,16,1)
																				RETURN
                                      END
                                      ">
            <Params>
              <Param name="@ID_AttendanceRuleEmployee"				type="AttendanceRuleEmployee.ID_AttendanceRuleEmployee" 			sourceColumn="ID_AttendanceRuleEmployee" />
              <Param name="@ID_AttendanceRule"				type="AttendanceRuleEmployee.ID_AttendanceRule" 				sourceColumn="ID_AttendanceRule" />
              <Param name="@ID_Employee"				type="AttendanceRuleEmployee.ID_Employee" 				sourceColumn="ID_Employee" />
            </Params>
          </New>
          <Update CmdType="Text" CmdText="
                                        Update AttendanceRuleEmployee Set ID_AttendanceRule=@ID_AttendanceRule,ID_Employee=@ID_Employee Where ID_AttendanceRuleEmployee=@ID_AttendanceRuleEmployee
                                        ">
            <Params>
              <Param name="@ID_AttendanceRuleEmployee"				type="AttendanceRuleEmployee.ID_AttendanceRuleEmployee" 			sourceColumn="ID_AttendanceRuleEmployee" />
              <Param name="@ID_AttendanceRule"				type="AttendanceRuleEmployee.ID_AttendanceRule" 				sourceColumn="ID_AttendanceRule" />
              <Param name="@ID_Employee"				type="AttendanceRuleEmployee.ID_Employee" 				sourceColumn="ID_Employee" />
            </Params>
          </Update>
          <Delete CmdType="Text" CmdText="DELETE AttendanceRuleEmployee WHERE ID_AttendanceRuleEmployee = @ID_AttendanceRuleEmployee">
            <Params>
              <Param name="@ID_AttendanceRuleEmployee"				type="AttendanceRuleEmployee.ID_AttendanceRuleEmployee" 				sourceColumn="ID_AttendanceRuleEmployee" />
            </Params>
          </Delete>
        </Table>      
      </Tables>
      <Search>
        <SearchAllAttendanceRule CmdType="Text" CmdText="
															SELECT AttendanceRule.* From AttendanceRule
															">
          <Tables>
            <Table name="AllAttendanceRule" />
          </Tables>
        </SearchAllAttendanceRule>
        
        <SearchAttendanceRuleWithNo CmdType="Text" CmdText="	
                                DECLARE @ID_AttendanceRule uniqueidentifier 
                                SELECT @ID_AttendanceRule = AttendanceRule.ID_AttendanceRule FROM AttendanceRule WHERE AttendanceRule.No_AttendanceRule = @No_AttendanceRule
                                
																SELECT AttendanceRule.*,A.Name_User AS Name_Creator,B.Name_User As LastModUser FROM AttendanceRule 
																LEFT JOIN AppUser A ON A.ID_User = AttendanceRule.ID_Creator
																LEFT Join AppUser B ON B.ID_User=AttendanceRule.LastModUser_AttendanceRule
																Where No_AttendanceRule=@No_AttendanceRule
                                
                                SELECT AttendanceRuleEmployee.*,No_Employee,Name_Employee From AttendanceRuleEmployee Left Join Employee On Employee.ID_Employee=AttendanceRuleEmployee.ID_Employee 
                                Where ID_AttendanceRule=@ID_AttendanceRule
																">

          <Params>
            <Param name="@No_AttendanceRule" type="AttendanceRule.No_AttendanceRule" Index="0" />
          </Params>
          <Tables>
            <Table name="AttendanceRule" />
            <Table name="AttendanceRuleEmployee" />
          </Tables>
        </SearchAttendanceRuleWithNo>

        <SearchAttendanceRuleFirst CmdType="Text" CmdText="	
                                DECLARE @ID_AttendanceRule uniqueidentifier 
                                SELECT Top 1 @ID_AttendanceRule = AttendanceRule.ID_AttendanceRule FROM AttendanceRule Order By No_AttendanceRule
                                
																SELECT AttendanceRule.*,A.Name_User AS Name_Creator,B.Name_User As LastModUser FROM AttendanceRule 
																LEFT JOIN AppUser A ON A.ID_User = AttendanceRule.ID_Creator
																LEFT Join AppUser B ON B.ID_User=AttendanceRule.LastModUser_AttendanceRule
																Where ID_AttendanceRule=@ID_AttendanceRule
                                
                                SELECT AttendanceRuleEmployee.*,No_Employee,Name_Employee From AttendanceRuleEmployee Left Join Employee On Employee.ID_Employee=AttendanceRuleEmployee.ID_Employee 
                                Where ID_AttendanceRule=@ID_AttendanceRule
																">

          
          <Tables>
            <Table name="AttendanceRule" />
            <Table name="AttendanceRuleEmployee" />
          </Tables>
        </SearchAttendanceRuleFirst>
        <SearchAttendanceRulePrevious CmdType="Text" CmdText="	
                                DECLARE @ID_AttendanceRule uniqueidentifier 
                                SELECT Top 1 @ID_AttendanceRule = AttendanceRule.ID_AttendanceRule FROM AttendanceRule WHERE AttendanceRule.No_AttendanceRule &lt; @No_AttendanceRule Order By No_AttendanceRule desc
                                
																SELECT AttendanceRule.*,A.Name_User AS Name_Creator,B.Name_User As LastModUser FROM AttendanceRule 
																LEFT JOIN AppUser A ON A.ID_User = AttendanceRule.ID_Creator
																LEFT Join AppUser B ON B.ID_User=AttendanceRule.LastModUser_AttendanceRule
																Where ID_AttendanceRule=@ID_AttendanceRule
                                
                                SELECT AttendanceRuleEmployee.*,No_Employee,Name_Employee From AttendanceRuleEmployee Left Join Employee On Employee.ID_Employee=AttendanceRuleEmployee.ID_Employee 
                                Where ID_AttendanceRule=@ID_AttendanceRule
																">

          <Params>
            <Param name="@No_AttendanceRule" type="AttendanceRule.No_AttendanceRule" Index="0" />
          </Params>
          <Tables>
            <Table name="AttendanceRule" />
            <Table name="AttendanceRuleEmployee" />
          </Tables>
        </SearchAttendanceRulePrevious>
        <SearchAttendanceRuleNext CmdType="Text" CmdText="
          
                                DECLARE @ID_AttendanceRule uniqueidentifier 
                                SELECT Top 1 @ID_AttendanceRule = AttendanceRule.ID_AttendanceRule FROM AttendanceRule WHERE AttendanceRule.No_AttendanceRule &gt; @No_AttendanceRule Order By No_AttendanceRule
                                
																SELECT AttendanceRule.*,A.Name_User AS Name_Creator,B.Name_User As LastModUser FROM AttendanceRule 
																LEFT JOIN AppUser A ON A.ID_User = AttendanceRule.ID_Creator
																LEFT Join AppUser B ON B.ID_User=AttendanceRule.LastModUser_AttendanceRule
																Where ID_AttendanceRule=@ID_AttendanceRule
                                
                                SELECT AttendanceRuleEmployee.*,No_Employee,Name_Employee From AttendanceRuleEmployee Left Join Employee On Employee.ID_Employee=AttendanceRuleEmployee.ID_Employee 
                                Where ID_AttendanceRule=@ID_AttendanceRule
																">

          <Params>
            <Param name="@No_AttendanceRule" type="AttendanceRule.No_AttendanceRule" Index="0" />
          </Params>
          <Tables>
            <Table name="AttendanceRule" />
            <Table name="AttendanceRuleEmployee" />
          </Tables>
        </SearchAttendanceRuleNext>
        
        
        <SearchAttendanceRuleLast CmdType="Text" CmdText="	
                                DECLARE @ID_AttendanceRule uniqueidentifier 
                                SELECT Top 1 @ID_AttendanceRule = AttendanceRule.ID_AttendanceRule FROM AttendanceRule Order By No_AttendanceRule desc
                                
																SELECT AttendanceRule.*,A.Name_User AS Name_Creator,B.Name_User As LastModUser FROM AttendanceRule 
																LEFT JOIN AppUser A ON A.ID_User = AttendanceRule.ID_Creator
																LEFT Join AppUser B ON B.ID_User=AttendanceRule.LastModUser_AttendanceRule
																Where ID_AttendanceRule=@ID_AttendanceRule
                                
                                SELECT AttendanceRuleEmployee.*,No_Employee,Name_Employee From AttendanceRuleEmployee Left Join Employee On Employee.ID_Employee=AttendanceRuleEmployee.ID_Employee 
                                Where ID_AttendanceRule=@ID_AttendanceRule
																">

          
          <Tables>
            <Table name="AttendanceRule" />
            <Table name="AttendanceRuleEmployee" />
          </Tables>
        </SearchAttendanceRuleLast>
        <GetEmployeeNameByNo CmdType="Text" CmdText="SELECT Employee.ID_Employee,Employee.No_Employee,Employee.Name_Employee,Employee.SuspendDate_Employee FROM Employee WHERE No_Employee = @No_Employee">
          <Params>
            <Param name="@No_Employee" type="Employee.No_Employee" Index="0" />
          </Params>
          <Tables>
            <Table name="Employee" />
          </Tables>
        </GetEmployeeNameByNo>

        <SearchAllEmployee CmdType="Text" CmdText="SELECT Employee.No_Employee,Employee.Name_Employee FROM Employee ">
          <Tables>
            <Table name="AllEmployee" />
          </Tables>
        </SearchAllEmployee>

        <SearchAttendanceRuleName CmdType="Text" CmdText="
                                                          Select * From AttendanceRule Where Name_AttendanceRule=@Name And No_AttendanceRule!=@No">
          <Params>
            <Param name="@Name" type="Employee.No_Employee" Index="0" />
            <Param name="@No"   type="Employee.No_Employee" Index="1" />
          </Params>
          <Tables>
            <Table name="AttendanceRuleNameLists" />
          </Tables>
        </SearchAttendanceRuleName>
        
      </Search>

    </Server>
    <Lables>
      <Search>
        Empty();
        NewInstance();
        tbNo.ReadOnly=false;
        txtName.ReadOnly=true;
        dtpOnStuffOne.Enabled=false;
        dtpOffStuffOne.Enabled=false;
        dtpOnStuffTwo.Enabled=false;
        dtpOffStuffTwo.Enabled=false;

        itbArriveLate.ReadOnly=true;
        itbLeaveEarly.ReadOnly=true;
        
        txtComment.ReadOnly=true;

        dgEmployee.ReadOnly=true;

        toolBar.EnableSubmit=false;
        toolBar.EnableModify=false;
        toolBar.EnableDelete=false;

        #AttendanceRule.ID_Creator=DBNull();
        #AttendanceRule.Name_Creator=DBNull();
        #AttendanceRule.CreateDate_AttendanceRule=DBNull();

        #AttendanceRule.LastModUser_AttendanceRule=DBNull();
        #AttendanceRule.LastModUser=DBNull();
        #AttendanceRule.LastModDate_AttendanceRule=DBNull();
        UpdateForm(true, "");
        tbNo.Focus();
        @Status=0;
      </Search>
      <New>
        Empty();
        NewInstance();
        tbNo.ReadOnly=true;
        txtName.ReadOnly=false;
        dtpOnStuffOne.Enabled=true;
        dtpOffStuffOne.Enabled=true;
        dtpOnStuffTwo.Enabled=true;
        dtpOffStuffTwo.Enabled=true;

        itbArriveLate.ReadOnly=false;
        itbLeaveEarly.ReadOnly=false;
        
        txtComment.ReadOnly=false;
        dgEmployee.ReadOnly=false;
        toolBar.EnableSubmit=true;
        toolBar.EnableModify=false;
        toolBar.EnableDelete=false;

        #AttendanceRule.ID_AttendanceRule				= NewGuid();
        #AttendanceRule.No_AttendanceRule				= tbNo.CValue;
        #AttendanceRule.ID_Creator=GetLoginUserID();
        #AttendanceRule.CreateDate_AttendanceRule=DateTimeNow();
        #AttendanceRule.Name_Creator=GetCurrentUser();

        #AttendanceRule.LastModUser_AttendanceRule=DBNull();
        #AttendanceRule.LastModUser=DBNull();
        #AttendanceRule.LastModDate_AttendanceRule=DBNull();

        UpdateForm(true, "");
        tbNo.Focus();
        @Status=1;
      </New>
      <View>
        tbNo.ReadOnly=false;
        txtName.ReadOnly=true;
        dtpOnStuffOne.Enabled=false;
        dtpOffStuffOne.Enabled=false;
        dtpOnStuffTwo.Enabled=false;
        dtpOffStuffTwo.Enabled=false;

        itbArriveLate.ReadOnly=true;
        itbLeaveEarly.ReadOnly=true;
        
        txtComment.ReadOnly=true;
        dgEmployee.ReadOnly=true;

        toolBar.EnableSubmit=false;
        toolBar.EnableModify			= GetRight(@Title,"修改");
        toolBar.EnableDelete			= GetRight(@Title,"删除");

        UpdateForm(true, "");
        tbNo.Focus();
        @Status=2;
      </View>
      <Modify>
        tbNo.ReadOnly=true;
        txtName.ReadOnly=false;
        dtpOnStuffOne.Enabled=true;
        dtpOffStuffOne.Enabled=true;
        dtpOnStuffTwo.Enabled=true;
        dtpOffStuffTwo.Enabled=true;

        itbArriveLate.ReadOnly=false;
        itbLeaveEarly.ReadOnly=false;
        
        txtComment.ReadOnly=false;
        dgEmployee.ReadOnly=false;

        toolBar.EnableSubmit=true;
        toolBar.EnableModify=false;
        toolBar.EnableDelete=false;

        #AttendanceRule.LastModUser_AttendanceRule		= GetLoginUserID();
        #AttendanceRule.LastModUser			= GetCurrentUser();
        #AttendanceRule.LastModDate_AttendanceRule		= DateTimeNow();

        UpdateForm(true, "");
        tbNo.Focus();
        @Status=3;
      </Modify>
      <SubmitButtonClick>
        <![CDATA[	
					if(txtName.CValue=="")
					{
						MessageBox("请输入班次名称！",@Title);
						txtName.Focus();
						return;
					}
          else
          {
            if(Search("SearchAttendanceRuleName",txtName.CValue,tbNo.CValue))
            {
              MessageBox("班次名称已存在！",@Title);
						  txtName.Focus();
						  return;
            }
          }
          
				  UpdateForm(false, "");
          
					
					SuspendLayout();
					
					for(@i=RowCount("#AttendanceRuleEmployee")-1;@i>=0;@i=@i-1)
					{
						SetPosition("#AttendanceRuleEmployee", @i);
						if(Equals(#AttendanceRuleEmployee.ID_AttendanceRuleEmployee,GuidEmpty()))
							#AttendanceRuleEmployee.ID_AttendanceRuleEmployee = NewGuid();	
            #AttendanceRuleEmployee.ID_AttendanceRule = #AttendanceRule.ID_AttendanceRule;
						if(Equals(#AttendanceRuleEmployee.ID_Employee, GuidEmpty()))
						{
							dgEmployee.CurrentRowIndex=@i;
							MessageBox("该员工不存在！",@Title);
							ResumeLayout();
							return;
						}
            Register_Set("1",#AttendanceRuleEmployee.ID_Employee);
						for(@j=@i+1;@j<=RowCount("#AttendanceRuleEmployee")-1;@j=@j+1)
						{
							SetPosition("#AttendanceRuleEmployee",@j);
							if(Equals(Register_Get("1"),#AttendanceRuleEmployee.ID_Employee))
							{	
								dgEmployee.CurrentRowIndex=@j;
								MessageBox("员工列表中已存在该员工！",@Title);
								Register_Remove("1");
								ResumeLayout();
								return;	
							}	
						}
					}
          Register_Remove("1");
					ResumeLayout();				
          if(@Status==1) 
					{
						New();
					}
					if(@Status == 3)
					{
						#AttendanceRule.LastModDate_AttendanceRule=DateTimeNow();
						Update();
					}
          
					ChangeMode("View");
				]]>
      </SubmitButtonClick>
    </Lables>
  </Form>
</Forms>