Archive for 12月 15th, 2008
P.D.C.A.自己啓発支援プログラム
by achi on Dec.15, 2008, under プログラム
目的:ある事象について「P.D.C.A.」と「何故の繰り返し」を実践し根本原因へいち早くたどり着くことを支援する目的を持つ「自己啓発・自己分析支援アプリケーション」
仕様:Form1->エントリ及びベースフォーム
Form2->データファイル参照及び簡易印刷用フォーム
Form3->データファイル読み込み及び一覧参照
Form4->Form3での選択データビジュアル表示及び分析テンプレート
概要:保存されたデータを元にForm4にて最終分析・評価を行う。
作業進捗フェーズに応じたP.D.C.A.の実践を評価する。->第一段階
P.D.C.A.各項目の妥当性と問題点の把握分析->第二段階
何故項目の評価により解決策へのステップアップ->第三段階
※本プログラムの主目的は個人レベルでのスパイラルアップによる問題解決力向上のための意識改革支援です。
「カイゼン」を意識して積極的な行動を目指す”個人の方のため”に作成いたしました。
LZH形式で三つのファイルを書庫にしています。
My Documentsなどにフォルダを作成して配置してご利用ください。データファイルは本体と同じフォルダ内に作成されます。
動作確認はWindows2000,WindowsXP/SP3,WindowsXP64ED,WindowsVistaです。
VisualStudio.NET2003で作成しました。
MDB内に指定したテーブルが存在するか
by achi on Dec.15, 2008, under VB.NETテクニック
‘MDB内に指定したテーブルが存在するか
‘Table存在確認関数
Private Function isExistsTable(ByVal strTableName As String)
Dim objCat, objTable
objCat = CreateObject(”ADOX.Catalog”)
objCat.ActiveConnection = CONN
isExistsTable = False
For Each objTable In objCat.Tables
If objTable.Type = “TABLE” Then
If objTable.Name = strTableName Then
isExistsTable = True
Exit For
End If
End If
Next
objCat = Nothing
End Function
開いているExcelBookとSheetをチェック
by achi on Dec.15, 2008, under VB.NETテクニック
‘開いているExcelBookとSheetをチェック
’とりあえずBook名を引数に開いているかどうか
Imports Excel = Microsoft.Office.Interop.Excel
‘ExcelOpen検知関数
‘Open: fExcelOpen(ExFileName) = True
Private Function fExcelOpen(ByVal ExFileName As String) As Boolean
Dim oExcel As Excel.Application
Dim oBooks As Excel.Workbooks
Dim oBook As Excel.Workbook
Dim fsts As Boolean = “False”
Dim oSheets As Excel.Sheets
Dim oSheet As Excel.Worksheet
Try
‘別プロセスのExcelを取得する
‘GetObjext第1引数のファイルパスは省略する
oExcel = GetObject(, “Excel.Application”)
‘開いているブックを全て取得する
oBooks = oExcel.Workbooks
‘ブック毎に確認
For Each oBook In oBooks
If oBook.Name = ExFileName Then
fsts = True
End If
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
‘COMコンポーネントの解放
If Not oSheet Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheet)
oSheet = Nothing
End If
If Not oSheets Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheets)
oSheets = Nothing
End If
‘COMコンポーネントの解放
If Not oBook Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
oBook = Nothing
End If
If Not oBooks Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks)
oBooks = Nothing
End If
If Not oExcel Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
oExcel = Nothing
End If
End Try
Return fsts
End Function