Private adoReader As System.Data.SqlClient.SqlDataReader
Private adoDataSet As System.Data.DataSet
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
'画面属性が初期化
initProperty()
'画面内容が初期化
initContent()
End If
End Sub
'********************************************************************
'* 関数名 : initProperty
'* 処理内容 : 画面属性が初期化
'* ①AJAXを利用するために、関連するJAVASCRIPT関数を声明する
'* 引き数 : なし
'* 戻り値 : なし
'* 作成日付 : 2006/06/12
'* 作成者 :
'********************************************************************
Private Function initProperty() As Integer
'画面のコントロールのIME設定
Me.divWork.Visible = False
'ボタンの属性を追加する
Me.btnDel.Attributes.Add("onClick", "return confirm('" & "削除してよろしいでしょうか?" & "')")
End Function
'********************************************************************
'* 関数名 : initContent
'* 処理内容 : 画面内容が初期化
'* 画面中の全ての情報が初期の状態になる
'* 引き数 : なし
'* 戻り値 : なし
'* 作成日付 : 2006/06/12
'* 作成者 :
'********************************************************************
Private Function initContent() As Integer
'変更会社と変更部門が初期化
'会社が初期化、コード対照マスタを参照する
Protected Sub btnConfirm_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
'画面入力チェック
validateInputCheckConfirm()
Me.Validate()
If Not IsValid Then
Exit Sub
End If
'業務チェック
validateLogicCheckConfirm()
Me.Validate()
If Not IsValid Then
Exit Sub
End If
adoReader.Close()
Protected Sub btnDel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDel.Click
'業務チェック
validateLeaderDelCheck()
Me.Validate()
If Not IsValid Then
Exit Sub
End If
'業務用テーブルに、削除しよう社員が存在するかどうかを判断する
'存在する場合、該当社員の稼動情報だけを削除する。存在しない場合、該当社員の稼動情報と社員の基本情報一緒に削除しようになる
'業務用テーブル(稼動テーブルの更新者、営業基本テーブルの更新者)
If checkUpdateCreate() Then
strDSql = "DELETE FROM ET_WORK_BASIC WHERE EMPLOYEE_CODE = '" & Me.txtEmployeeCode.Text & "' "
Me.DBCommon.ADONETExecuteSQL(strDSql)
Me.DBCommon.ADONETCommit()