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

<?xml version="1.0" encoding="utf-8" ?>
<Forms>
  <Form Name="FrmPaySetting">
    <Client>
      <Events>
        <Load>
          @Title="薪资设定";
          GetSchema();
          if(Search("SearchPaySetting"))
            ChangeMode("View");
          else
           ChangeMode("New");
        </Load>
        <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>
        <IKTextBox  name="ikTextBox1"			DataSource="PaySetting.ThreeFundBase_PaySetting"/>
        <IKTextBox  name="ikTextBox2"			DataSource="PaySetting.ProvideInsure_PaySetting"/>
        <IKTextBox  name="ikTextBox3"			DataSource="PaySetting.IdlenessInsure_PaySetting"/>
        <IKTextBox  name="ikTextBox4"			DataSource="PaySetting.MedicalInsure_PaySetting"/>
        <IKTextBox  name="ikTextBox5"			DataSource="PaySetting.AccFundAdjust_PaySetting"/>
        <IKTextBox  name="ikTextBox6"			DataSource="PaySetting.HouseAccFund_PaySetting"/>
        <IKTextBox  name="ikTextBox8"			DataSource="PaySetting.TaxBeginCH_PaySetting"/>
        <IKTextBox  name="ikTextBox7"			DataSource="PaySetting.TaxBeginF_PaySetting"/>
        
        <IKDataGridEx	name="ikDataGridEx2"			DataSource="LaterEarlySetting"  TableStyleIndex="0">
          <DataColumn Index="0" DataSource="LaterEarlySetting.Minutes_LaterEarlySetting" />
          <DataColumn Index="1" DataSource="LaterEarlySetting.Money_LaterEarlySetting" />
          <DataColumn Index="2" DataSource="LaterEarlySetting.Comment_LaterEarlySetting" />
        </IKDataGridEx>

        <IKDataGridEx	name="ikDataGridEx3"			DataSource="SickHoliday"  TableStyleIndex="0">
          <DataColumn Index="0" DataSource="SickHoliday.ServiceLength_SickHoliday" />
          <DataColumn Index="1" DataSource="SickHoliday.SickRate_SickHoliday" />
        </IKDataGridEx>

        <IKDataGridEx	name="ikDataGridEx1"			DataSource="TaxSetting"  TableStyleIndex="0">
          <DataColumn Index="0" DataSource="TaxSetting.BeginAmount_TaxSetting" />
          <DataColumn Index="1" DataSource="TaxSetting.EndAmount_TaxSetting" />
          <DataColumn Index="2" DataSource="TaxSetting.TaxRate_TaxSetting" />
          <DataColumn Index="3" DataSource="TaxSetting.FastDeduct_TaxSetting" />
        </IKDataGridEx>

        <IKDataGridEx	name="dgCalendarList"			DataSource="PayBase"  TableStyleIndex="0">
          <DataColumn Index="0" DataSource="PayBase.Type_PayBase" />
          <DataColumn Index="1" DataSource="PayBase.Value_PayBase" />
        </IKDataGridEx>
          
        <IKFormToolBar name="toolBar">
          <Events>
            <ClickEmpty>
              ChangeMode("Search");
            </ClickEmpty>
            <ClickSubmit>
              <Lable name="SubmitButtonClick" />
            </ClickSubmit>
            <ClickModify>
              ChangeMode("Modify");
            </ClickModify>
          </Events>
        </IKFormToolBar>
      </Controls>
    </Client>
    <Server>
      <Tables>
        <Table name="PaySetting" Type="Parent">
          <GetSchema CmdType="Text" CmdText="Select Top 0 PaySetting.*
                                              From PaySetting"/>
          <New CmdType="Text" CmdText="Insert Into dbo.PaySetting (ID_PaySetting
							                                                      , ThreeFundBase_PaySetting
							                                                      , ProvideInsure_PaySetting
							                                                      , IdlenessInsure_PaySetting
							                                                      , MedicalInsure_PaySetting
							                                                      , AccFundAdjust_PaySetting
							                                                      , HouseAccFund_PaySetting
							                                                      , TaxBeginCH_PaySetting
							                                                      , TaxBeginF_PaySetting
							                                                      )
                                                            Values (@ID_PaySetting
							                                                      , @ThreeFundBase_PaySetting
							                                                      , @ProvideInsure_PaySetting
							                                                      , @IdlenessInsure_PaySetting
							                                                      , @MedicalInsure_PaySetting
							                                                      , @AccFundAdjust_PaySetting
							                                                      , @HouseAccFund_PaySetting
							                                                      , @TaxBeginCH_PaySetting
							                                                      , @TaxBeginF_PaySetting
							                                                      )">
            <Params>
              <Param name="@ID_PaySetting"				          type="PaySetting.ID_PaySetting" 				          sourceColumn="ID_PaySetting" />
              <Param name="@ThreeFundBase_PaySetting"				type="PaySetting.ThreeFundBase_PaySetting" 				sourceColumn="ThreeFundBase_PaySetting" />
              <Param name="@ProvideInsure_PaySetting"				type="PaySetting.ProvideInsure_PaySetting" 				sourceColumn="ProvideInsure_PaySetting" />
              <Param name="@IdlenessInsure_PaySetting"			type="PaySetting.IdlenessInsure_PaySetting" 			sourceColumn="IdlenessInsure_PaySetting" />
              <Param name="@MedicalInsure_PaySetting"				type="PaySetting.MedicalInsure_PaySetting" 				sourceColumn="MedicalInsure_PaySetting" />
              <Param name="@AccFundAdjust_PaySetting"				type="PaySetting.AccFundAdjust_PaySetting" 				sourceColumn="AccFundAdjust_PaySetting" />
              <Param name="@HouseAccFund_PaySetting"				type="PaySetting.HouseAccFund_PaySetting" 				sourceColumn="HouseAccFund_PaySetting" />
              <Param name="@TaxBeginCH_PaySetting"				  type="PaySetting.TaxBeginCH_PaySetting" 				  sourceColumn="TaxBeginCH_PaySetting" />
              <Param name="@TaxBeginF_PaySetting"				    type="PaySetting.TaxBeginF_PaySetting" 				    sourceColumn="TaxBeginF_PaySetting" />
            </Params>
          </New>
          <Update CmdType="Text" CmdText="Update dbo.PaySetting
                                          Set ThreeFundBase_PaySetting = @ThreeFundBase_PaySetting  
	                                          , ProvideInsure_PaySetting = @ProvideInsure_PaySetting
	                                          , IdlenessInsure_PaySetting = @IdlenessInsure_PaySetting
	                                          , MedicalInsure_PaySetting = @MedicalInsure_PaySetting
	                                          , AccFundAdjust_PaySetting = @AccFundAdjust_PaySetting
	                                          , HouseAccFund_PaySetting = @HouseAccFund_PaySetting
	                                          , TaxBeginCH_PaySetting = @TaxBeginCH_PaySetting
	                                          , TaxBeginF_PaySetting = @TaxBeginF_PaySetting
                                          Where ID_PaySetting = @ID_PaySetting">
            <Params>
              <Param name="@ID_PaySetting"				          type="PaySetting.ID_PaySetting" 				          sourceColumn="ID_PaySetting" />
              <Param name="@ThreeFundBase_PaySetting"				type="PaySetting.ThreeFundBase_PaySetting" 				sourceColumn="ThreeFundBase_PaySetting" />
              <Param name="@ProvideInsure_PaySetting"				type="PaySetting.ProvideInsure_PaySetting" 				sourceColumn="ProvideInsure_PaySetting" />
              <Param name="@IdlenessInsure_PaySetting"			type="PaySetting.IdlenessInsure_PaySetting" 			sourceColumn="IdlenessInsure_PaySetting" />
              <Param name="@MedicalInsure_PaySetting"				type="PaySetting.MedicalInsure_PaySetting" 				sourceColumn="MedicalInsure_PaySetting" />
              <Param name="@AccFundAdjust_PaySetting"				type="PaySetting.AccFundAdjust_PaySetting" 				sourceColumn="AccFundAdjust_PaySetting" />
              <Param name="@HouseAccFund_PaySetting"				type="PaySetting.HouseAccFund_PaySetting" 				sourceColumn="HouseAccFund_PaySetting" />
              <Param name="@TaxBeginCH_PaySetting"				  type="PaySetting.TaxBeginCH_PaySetting" 				  sourceColumn="TaxBeginCH_PaySetting" />
              <Param name="@TaxBeginF_PaySetting"				    type="PaySetting.TaxBeginF_PaySetting" 				    sourceColumn="TaxBeginF_PaySetting" />
            </Params>
          </Update>
          <Delete CmdType="Text" CmdText="Delete LaterEarlySetting Where ID_PaySetting = @ID_PaySetting
                                           Delete SickHoliday Where ID_PaySetting = @ID_PaySetting
                                           Delete TaxSetting Where ID_PaySetting = @ID_PaySetting
                                           Delete PayBase Where ID_PaySetting = @ID_PaySetting
                                           Delete PaySetting Where ID_PaySetting = @ID_PaySetting">
            <Params>
              <Param name="@ID_PaySetting"				          type="PaySetting.ID_PaySetting" 				          sourceColumn="ID_PaySetting" />
            </Params>
          </Delete>
        </Table>
        <Table name="LaterEarlySetting" Type="Child">
          <GetSchema CmdType="Text" CmdText="Select Top 0 LaterEarlySetting.*
                                              From LaterEarlySetting"/>
          <New CmdType="Text" CmdText="Insert Into dbo.LaterEarlySetting (ID_LaterEarlySetting
									                                                        , ID_PaySetting
									                                                        , Minutes_LaterEarlySetting
									                                                        , Money_LaterEarlySetting
									                                                        , Comment_LaterEarlySetting
									                                                        )
							                                                        Values (@ID_LaterEarlySetting
									                                                        , @ID_PaySetting
									                                                        , @Minutes_LaterEarlySetting
									                                                        , @Money_LaterEarlySetting
									                                                        , @Comment_LaterEarlySetting
									                                                        )">
            <Params>
              <Param name="@ID_LaterEarlySetting"				      type="LaterEarlySetting.ID_LaterEarlySetting" 	      sourceColumn="ID_LaterEarlySetting" />
              <Param name="@ID_PaySetting"				            type="LaterEarlySetting.ID_PaySetting" 				        sourceColumn="ID_PaySetting" />
              <Param name="@Minutes_LaterEarlySetting"				type="LaterEarlySetting.Minutes_LaterEarlySetting" 	  sourceColumn="Minutes_LaterEarlySetting" />
              <Param name="@Money_LaterEarlySetting"				  type="LaterEarlySetting.Money_LaterEarlySetting" 			sourceColumn="Money_LaterEarlySetting" />
              <Param name="@Comment_LaterEarlySetting"				type="LaterEarlySetting.Comment_LaterEarlySetting" 		sourceColumn="Comment_LaterEarlySetting" />
            </Params>
          </New>
          <Update CmdType="Text" CmdText="Update dbo.LaterEarlySetting
                                          Set ID_PaySetting = @ID_PaySetting
                                            , Minutes_LaterEarlySetting = @Minutes_LaterEarlySetting
                                            , Money_LaterEarlySetting = @Money_LaterEarlySetting
                                            , Comment_LaterEarlySetting = @Comment_LaterEarlySetting
                                          Where ID_LaterEarlySetting = @ID_LaterEarlySetting">
            <Params>
              <Param name="@ID_LaterEarlySetting"				      type="LaterEarlySetting.ID_LaterEarlySetting" 	      sourceColumn="ID_LaterEarlySetting" />
              <Param name="@ID_PaySetting"				            type="LaterEarlySetting.ID_PaySetting" 				        sourceColumn="ID_PaySetting" />
              <Param name="@Minutes_LaterEarlySetting"				type="LaterEarlySetting.Minutes_LaterEarlySetting" 	  sourceColumn="Minutes_LaterEarlySetting" />
              <Param name="@Money_LaterEarlySetting"				  type="LaterEarlySetting.Money_LaterEarlySetting" 			sourceColumn="Money_LaterEarlySetting" />
              <Param name="@Comment_LaterEarlySetting"				type="LaterEarlySetting.Comment_LaterEarlySetting" 		sourceColumn="Comment_LaterEarlySetting" />
            </Params>
          </Update>
          <Delete CmdType="Text" CmdText="Delete LaterEarlySetting Where ID_LaterEarlySetting = @ID_LaterEarlySetting">
            <Params>
              <Param name="@ID_LaterEarlySetting"				      type="LaterEarlySetting.ID_LaterEarlySetting" 	      sourceColumn="ID_LaterEarlySetting" />
            </Params>
          </Delete>
        </Table>
        <Table name="SickHoliday" Type="Child">
          <GetSchema CmdType="Text" CmdText="Select Top 0 SickHoliday.*
                                              From SickHoliday"/>
          <New CmdType="Text" CmdText="Insert Into dbo.SickHoliday (ID_SickHoliday
							                                                      , ID_PaySetting
							                                                      , ServiceLength_SickHoliday
							                                                      , SickRate_SickHoliday
							                                                      )
					                                                      Values (@ID_SickHoliday
							                                                      , @ID_PaySetting
							                                                      , @ServiceLength_SickHoliday
							                                                      , @SickRate_SickHoliday
							                                                      )">
            <Params>
              <Param name="@ID_SickHoliday"				      type="SickHoliday.ID_SickHoliday" 	      sourceColumn="ID_SickHoliday" />
              <Param name="@ID_PaySetting"				      type="SickHoliday.ID_PaySetting" 	      sourceColumn="ID_PaySetting" />
              <Param name="@ServiceLength_SickHoliday"				      type="SickHoliday.ServiceLength_SickHoliday" 	      sourceColumn="ServiceLength_SickHoliday" />
              <Param name="@SickRate_SickHoliday"				      type="SickHoliday.SickRate_SickHoliday" 	      sourceColumn="SickRate_SickHoliday" />
            </Params>                                                     
          </New>
          <Update CmdType="Text" CmdText="Update dbo.SickHoliday
                                          Set ID_PaySetting = @ID_PaySetting
	                                          , ServiceLength_SickHoliday = @ServiceLength_SickHoliday
	                                          , SickRate_SickHoliday = @SickRate_SickHoliday
                                          Where ID_SickHoliday = @ID_SickHoliday">
            <Params>
              <Param name="@ID_SickHoliday"				      type="SickHoliday.ID_SickHoliday" 	      sourceColumn="ID_SickHoliday" />
              <Param name="@ID_PaySetting"				      type="SickHoliday.ID_PaySetting" 	      sourceColumn="ID_PaySetting" />
              <Param name="@ServiceLength_SickHoliday"				      type="SickHoliday.ServiceLength_SickHoliday" 	      sourceColumn="ServiceLength_SickHoliday" />
              <Param name="@SickRate_SickHoliday"				      type="SickHoliday.SickRate_SickHoliday" 	      sourceColumn="SickRate_SickHoliday" />
            </Params>
          </Update>
          <Delete CmdType="Text" CmdText="Delete SickHoliday Where ID_SickHoliday = @ID_SickHoliday">
            <Params>
              <Param name="@ID_SickHoliday"				      type="SickHoliday.ID_SickHoliday" 	      sourceColumn="ID_SickHoliday" />
            </Params>
          </Delete>
        </Table>
        <Table name="TaxSetting" Type="Child">
          <GetSchema CmdType="Text" CmdText="Select Top 0 TaxSetting.*
                                             From TaxSetting" />
          <New CmdType="Text" CmdText="Insert Into dbo.TaxSetting (ID_TaxSetting
							                                                    , ID_PaySetting
							                                                    , BeginAmount_TaxSetting
							                                                    , EndAmount_TaxSetting
							                                                    , TaxRate_TaxSetting
							                                                    , FastDeduct_TaxSetting
							                                                    )
					                                                    Values (@ID_TaxSetting
							                                                    , @ID_PaySetting
							                                                    , @BeginAmount_TaxSetting
							                                                    , @EndAmount_TaxSetting
							                                                    , @TaxRate_TaxSetting
							                                                    , @FastDeduct_TaxSetting
							                                                    )">
            <Params>
              <Param name="@ID_TaxSetting"				      type="TaxSetting.ID_TaxSetting" 	      sourceColumn="ID_TaxSetting" />
              <Param name="@ID_PaySetting"				      type="TaxSetting.ID_PaySetting" 	      sourceColumn="ID_PaySetting" />
              <Param name="@BeginAmount_TaxSetting"				      type="TaxSetting.BeginAmount_TaxSetting" 	      sourceColumn="BeginAmount_TaxSetting" />
              <Param name="@EndAmount_TaxSetting"				      type="TaxSetting.EndAmount_TaxSetting" 	      sourceColumn="EndAmount_TaxSetting" />
              <Param name="@TaxRate_TaxSetting"				      type="TaxSetting.TaxRate_TaxSetting" 	      sourceColumn="TaxRate_TaxSetting" />
              <Param name="@FastDeduct_TaxSetting"				      type="TaxSetting.FastDeduct_TaxSetting" 	      sourceColumn="FastDeduct_TaxSetting" />
            </Params>
          </New>
          <Update CmdType="Text" CmdText="Update dbo.TaxSetting
                                          Set ID_PaySetting = @ID_PaySetting
	                                          , BeginAmount_TaxSetting = @BeginAmount_TaxSetting
	                                          , EndAmount_TaxSetting = @EndAmount_TaxSetting
	                                          , TaxRate_TaxSetting = @TaxRate_TaxSetting
	                                          , FastDeduct_TaxSetting = @FastDeduct_TaxSetting
                                          Where ID_TaxSetting = @ID_TaxSetting ">
            <Params>
              <Param name="@ID_TaxSetting"				      type="TaxSetting.ID_TaxSetting" 	      sourceColumn="ID_TaxSetting" />
              <Param name="@ID_PaySetting"				      type="TaxSetting.ID_PaySetting" 	      sourceColumn="ID_PaySetting" />
              <Param name="@BeginAmount_TaxSetting"				      type="TaxSetting.BeginAmount_TaxSetting" 	      sourceColumn="BeginAmount_TaxSetting" />
              <Param name="@EndAmount_TaxSetting"				      type="TaxSetting.EndAmount_TaxSetting" 	      sourceColumn="EndAmount_TaxSetting" />
              <Param name="@TaxRate_TaxSetting"				      type="TaxSetting.TaxRate_TaxSetting" 	      sourceColumn="TaxRate_TaxSetting" />
              <Param name="@FastDeduct_TaxSetting"				      type="TaxSetting.FastDeduct_TaxSetting" 	      sourceColumn="FastDeduct_TaxSetting" />
            </Params>
          </Update>
          <Delete CmdType="Text" CmdText="Delete TaxSetting Where ID_TaxSetting = @ID_TaxSetting">
            <Params>
              <Param name="@ID_TaxSetting"				      type="TaxSetting.ID_TaxSetting" 	      sourceColumn="ID_TaxSetting" />
            </Params>
          </Delete>
        </Table>
        <Table name="PayBase" Type="Child">
          <GetSchema CmdType="Text" CmdText="Select Top 0 PayBase.*
                                            From PayBase" />
          <New CmdType="Text" CmdText="Insert Into dbo.PayBase (ID_PayBase
						                                                    , ID_PaySetting
						                                                    , Type_PayBase
						                                                    , Value_PayBase
						                                                    )
				                                                    Values (@ID_PayBase
						                                                    , @ID_PaySetting
						                                                    , @Type_PayBase
						                                                    , @Value_PayBase
						                                                    )">
            <Params>
              <Param name="@ID_PayBase"				      type="PayBase.ID_PayBase" 	      sourceColumn="ID_PayBase" />
              <Param name="@ID_PaySetting"				      type="PayBase.ID_PaySetting" 	      sourceColumn="ID_PaySetting" />
              <Param name="@Type_PayBase"				      type="PayBase.Type_PayBase" 	      sourceColumn="Type_PayBase" />
              <Param name="@Value_PayBase"				      type="PayBase.Value_PayBase" 	      sourceColumn="Value_PayBase" />
            </Params>
          </New>
          <Update CmdType="Text" CmdText="Update dbo.PayBase
                                          Set ID_PaySetting = @ID_PaySetting
	                                          , Type_PayBase = @Type_PayBase
	                                          , Value_PayBase = @Value_PayBase
                                          Where ID_PayBase = @ID_PayBase">
            <Params>
              <Param name="@ID_PayBase"				      type="PayBase.ID_PayBase" 	      sourceColumn="ID_PayBase" />
              <Param name="@ID_PaySetting"				      type="PayBase.ID_PaySetting" 	      sourceColumn="ID_PaySetting" />
              <Param name="@Type_PayBase"				      type="PayBase.Type_PayBase" 	      sourceColumn="Type_PayBase" />
              <Param name="@Value_PayBase"				      type="PayBase.Value_PayBase" 	      sourceColumn="Value_PayBase" />
            </Params>
          </Update>
          <Delete CmdType="Text" CmdText="Delete PayBase Where ID_PayBase = @ID_PayBase">
            <Params>
              <Param name="@ID_PayBase"				      type="PayBase.ID_PayBase" 	      sourceColumn="ID_PayBase" />
            </Params>
          </Delete>
        </Table>
      </Tables>
      <Search>
        <SearchPaySetting CmdType="Text" CmdText="Declare @ID_PaySetting Uniqueidentifier
                                                  Select @ID_PaySetting = ID_PaySetting
                                                  From PaySetting

                                                  Select * 
                                                  From PaySetting

                                                  Select * 
                                                  From LaterEarlySetting
                                                  Where ID_PaySetting = @ID_PaySetting

                                                  Select * 
                                                  From SickHoliday
                                                  Where ID_PaySetting = @ID_PaySetting

                                                  Select * 
                                                  From TaxSetting
                                                  Where ID_PaySetting = @ID_PaySetting

                                                  Select * 
                                                  From PayBase
                                                  Where ID_PaySetting = @ID_PaySetting">
          <Tables>
            <Table name="PaySetting" />
            <Table name="LaterEarlySetting" />
            <Table name="SickHoliday" />
            <Table name="TaxSetting" />
            <Table name="PayBase" />
          </Tables>
        </SearchPaySetting>
      </Search>
    </Server>
    <Lables>
      <Search>
        Empty();
        NewInstance();
        #PaySetting.ThreeFundBase_PaySetting = 0;
        #PaySetting.ProvideInsure_PaySetting = 0;
        #PaySetting.IdlenessInsure_PaySetting = 0;
        #PaySetting.MedicalInsure_PaySetting = 0;
        #PaySetting.AccFundAdjust_PaySetting = 0;
        #PaySetting.HouseAccFund_PaySetting = 0;
        #PaySetting.TaxBeginCH_PaySetting = 0;
        #PaySetting.TaxBeginF_PaySetting = 0;
        ikTextBox1.ReadOnly = true;
        ikTextBox2.ReadOnly = true;
        ikTextBox3.ReadOnly = true;
        ikTextBox4.ReadOnly = true;
        ikTextBox5.ReadOnly = true;
        ikTextBox6.ReadOnly = true;
        ikTextBox7.ReadOnly = true;
        ikTextBox8.ReadOnly = true;
        ikDataGridEx1.ReadOnly = true;
        ikDataGridEx2.ReadOnly = true;
        ikDataGridEx3.ReadOnly = true;
        dgCalendarList.ReadOnly = true;
        toolBar.EnableSubmit=false;
        toolBar.EnableModify=false;
        UpdateForm(true, "");
      </Search>
      <New>
        Empty();
        NewInstance();
        ikTextBox1.ReadOnly = false;
        ikTextBox2.ReadOnly = false;
        ikTextBox3.ReadOnly = false;
        ikTextBox4.ReadOnly = false;
        ikTextBox5.ReadOnly = false;
        ikTextBox6.ReadOnly = false;
        ikTextBox7.ReadOnly = false;
        ikTextBox8.ReadOnly = false;
        ikDataGridEx1.ReadOnly = false;
        ikDataGridEx2.ReadOnly = false;
        ikDataGridEx3.ReadOnly = false;
        dgCalendarList.ReadOnly = false;
        toolBar.EnableSubmit=GetRight(@Title,"新增");
        toolBar.EnableModify=false;
        #PaySetting.ID_PaySetting = NewGuid();
        #PaySetting.ThreeFundBase_PaySetting = 1725.00;
        #PaySetting.ProvideInsure_PaySetting = 8.00;
        #PaySetting.IdlenessInsure_PaySetting = 1.00;
        #PaySetting.MedicalInsure_PaySetting = 2.00;
        #PaySetting.AccFundAdjust_PaySetting = -200.00;
        #PaySetting.HouseAccFund_PaySetting = 7.00;
        #PaySetting.TaxBeginCH_PaySetting = 2000.00;
        #PaySetting.TaxBeginF_PaySetting = 4000.00;
        UpdateForm(true, "");
        @Status=1;
      </New>
      <View>
        ikTextBox1.ReadOnly = true;
        ikTextBox2.ReadOnly = true;
        ikTextBox3.ReadOnly = true;
        ikTextBox4.ReadOnly = true;
        ikTextBox5.ReadOnly = true;
        ikTextBox6.ReadOnly = true;
        ikTextBox7.ReadOnly = true;
        ikTextBox8.ReadOnly = true;
        ikDataGridEx1.ReadOnly = true;
        ikDataGridEx2.ReadOnly = true;
        ikDataGridEx3.ReadOnly = true;
        dgCalendarList.ReadOnly = true;
        toolBar.EnableSubmit=false;
        toolBar.EnableModify=GetRight(@Title,"修改");
        UpdateForm(true, "");
        @Status=2;
      </View>
      <Modify>
        ikTextBox1.ReadOnly = false;
        ikTextBox2.ReadOnly = false;
        ikTextBox3.ReadOnly = false;
        ikTextBox4.ReadOnly = false;
        ikTextBox5.ReadOnly = false;
        ikTextBox6.ReadOnly = false;
        ikTextBox7.ReadOnly = false;
        ikTextBox8.ReadOnly = false;
        ikDataGridEx1.ReadOnly = false;
        ikDataGridEx2.ReadOnly = false;
        ikDataGridEx3.ReadOnly = false;
        dgCalendarList.ReadOnly = false;
        toolBar.EnableSubmit=GetRight(@Title,"新增");
        toolBar.EnableModify=false;
        UpdateForm(true, "");
        @Status=3;
      </Modify>
      <SubmitButtonClick>
        <![CDATA[
        UpdateForm(false, "");
        SuspendLayout();
        for (@i=0;@i<RowCount("#LaterEarlySetting");@i=@i+1)
				{
          SetPosition("#LaterEarlySetting", @i);
          if (Equals(#LaterEarlySetting.ID_LaterEarlySetting,GuidEmpty()))
						#LaterEarlySetting.ID_LaterEarlySetting = NewGuid();
					#LaterEarlySetting.ID_PaySetting =#PaySetting.ID_PaySetting;
        }
        
        for (@i=0;@i<RowCount("#SickHoliday");@i=@i+1)
				{
          SetPosition("#SickHoliday", @i);
          if (Equals(#SickHoliday.ID_SickHoliday,GuidEmpty()))
						#SickHoliday.ID_SickHoliday = NewGuid();
					#SickHoliday.ID_PaySetting =#PaySetting.ID_PaySetting;
        }
        
        for (@i=0;@i<RowCount("#TaxSetting");@i=@i+1)
				{
          SetPosition("#TaxSetting", @i);
          if (Equals(#TaxSetting.ID_TaxSetting,GuidEmpty()))
						#TaxSetting.ID_TaxSetting = NewGuid();
					#TaxSetting.ID_PaySetting =#PaySetting.ID_PaySetting;
        }
        
        for (@i=0;@i<RowCount("#PayBase");@i=@i+1)
				{
          SetPosition("#PayBase", @i);
          if (Equals(#PayBase.ID_PayBase,GuidEmpty()))
						#PayBase.ID_PayBase = NewGuid();
					#PayBase.ID_PaySetting =#PaySetting.ID_PaySetting;
        }
        ResumeLayout();
        if(@Status == 1) 
				{
					New();
				}
				else if(@Status == 3)
				{
          Update();
				}
				ChangeMode("View");
        ]]>
      </SubmitButtonClick>
    </Lables>
  </Form>
</Forms>