Take it easy!

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で作成しました。

ダウンロードはこちらから

Leave a Comment more...

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

1 Comment more...

開いている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

2 Comments more...

Looking for something?

Use the form below to search the site:

Still not finding what you're looking for? Drop a comment on a post or contact us so we can take care of it!

Visit our friends!

A few highly recommended friends...

Archives

All entries, chronologically...