2009年10月04日
BONES シーズン4
待望の BONESシーズン4 がレンタル開始となりました。
やっぱり、面白いですね。
以前にも増してユーモアの部分も盛りだくさん。展開も速くて、あきません
シーズン3 の最終話、ジェファソニアン研究所天才同僚であるザックが食人者の感化を受けて殺人を起こしてしまったというショックなお話だったのですが…
実はシーズン4で、実際にはザックが殺人を起こしてはいなかった事が判明、手を貸しただけだったそうな、あぁぁ 良かった、良かった
現在は、心身喪失であったとしてセラピーを受けながら施設での長い生活を受けている。
もし手を貸しただけという事であれば短い期間の刑務所暮らしで済むのだが、ザックは刑務所ではやっていけない精神の持ち主で、皆には伏せておいて欲しいと セラピスト スイーツ に懇願する。
ザックの代わりにブレナンの色々な助手が毎話やってくるのだが、笑える助手たちばかりで、今後ザックも含めどうなっていくのか…復帰してほしいなぁ
途中、ジャックがザックを元気付ける為に施設へ行って事件の資料をザックへ渡すのだが、天才ザックは資料だけで犯人、残りの頭蓋骨の在りかを解明する。
科学的な証拠から犯人、犯行の内面にまで迫っていくブレナン＆色々な天才達＆アーティスト、そして直感で突き進むFBI捜査官ブ−スが互いに感化されながら毎話完結のヒューマンドラマです。
是非 BONES シーズン1 から観て頂きたいですね おほほほ
2009年08月30日
移行終了
新システムの稼動も概ねトラブルも無く稼動しているようです。
只、サーバーへのアクセスが集中しているらしく、表示がとても遅くなったとの事。 分散システム化足りてないようですねぇ
レンタルPCシステムは引き取り業者が回収に来るそうなので、HDD全て消去ソフトにて1時間ほど掛けて消去しました。
（実際は書き込んでいるんですけどね）
2009年08月27日
カラーレーザー買い替え
どうも、どうも ご無沙汰です。
本業準備、サポート業も忙しくて更新サボってました。
本業は今からシーズン
しかもこのご時勢で、市内の本業の同業者が倒産廃業となりまして、更に忙しくなりそうです。1ヶ月位ですけれど おほほほ
田舎は急速な高齢化が進み悲惨な状況で、購買能力の低下に伴い更なる深刻化を招きます。
景気が横ばいなんて、世間知らずの高官がのたまうだけですね。
本業で使っていたカラーレーザーが故障しました。
メーカーとの電話のやり取りでメンテナンスを行いましたが、復旧には至らず新規購入する事にしました。
修理するより、買った方が安く付きますものね 不条理この上ない あぁぁ
モノは先日パソコンサポートで代理購入した
IPSiO SP C710e A3サイズ対応
手差しトレイから排紙までストレート機構なのが気に入りました。
特殊なサイズ＆モノに印刷するので、紙が曲がらないのは紙詰まり回避に繋がりそうだからです
（単なる想像ですが…オイオイ）
とにかく長生きして欲しい 只それだけです おほほほ
2009年07月07日
プリンターのUSB 、LAN同時接続
事務所依頼のパソコン入れ替え作業。
パソコンはマウスコンピューターのセット品を注文。
「OS は XP と Vista どちらにしましょうか？」
「XP で…」と、きっぱり
おほほほ、そうですよね。今更 Vista なんぞ要りませんよね。
私もこんなに早く Vista の寿命が来るとは思ってもみませんでした あぁぁぁ
商品到着の連絡を受け訪問。
新規PCの接続は何の疑いも無く、CTUに直結したところ
…
ネット接続できません
どないなっとんねん
ＩＰアドレスは
…
確保できてます。他PCは無線でネット接続
下にぶら下がってる無線LAN親機にLANケーブルを接続してみると
…
えぇぇ！、しっかり接続できました。
ISP接続設定は無線LAN親機に設定してありますね。こりゃ
どうもNTTさんに設定してもらったらしい
こんなんで、ええの？CTUに設定しなくてええの？
長い事、これで運用して来たそうですから問題ないのでしょうね
当然2段ルーターって事になりますが
NTT版バスターは全くインストールされてなかったので、今回の新規PCにインストールしました。だって無料なんですからねぇ 使わにゃ 損々
カラーレーザープリンターは リコーのA3対応 SP-C710e
送料無料で5万円位ですがほんとに安くなりましたね。
インクジェットプリンターと同じで本体でなくトナーなどの消耗品で利益を確保する周辺機器になりました。
事務所はADSL回線、光回線とネットワークが2つ存在していて1台だけADSL専用の業務端末になってました。
今回はそのシステムの移行に伴いレンタルPCを光回線の自社PCへ移行、ADSLは廃止という手順になってます。
移行期間の間はネットワークプリンターは異なるネットワーク上の複数PCで共に使えるようにしなければなりません。
ADSL専用端末はUSB接続、光回線ネットワークではLAN接続で同時接続できなければ別途ADSL専用端末にLANボード2枚差しで運用するしか方法はありません。多分…
取説では同時接続できないとは書かれてないし
一応トライしてみる事に
…
あ〜、あっさり無問題で同時接続できました。
昔のプリンターでは異なるインターフェースの同時接続には対応していないなどの記述を見た記憶があったのですが進歩したんでしょうね。
経験の無いLANボード2枚差しもやってみたかったのですが、これはお預けになりました。とほほほ
Word、Excel はPersonal2003版をご希望でしたのでオークションでライセンス付のモノを落札用意、
この前に専用端末からライセンスを移動しようと思いましたが OFFICE XP でインストールCD無いので断念。
筆まめは新規に最新版購入でデータ移行。
プリンターが唯一懸念でしたが、無問題で安心しました。
プリンター
USBで
ラン（LAN)、ラン（LAN)、ラン（LAN)
…字余り
2009年06月30日
久しぶりの映画観賞
地元に映画館が無くなって久しい。
最盛期には6件ほどの映画館があったのに…
日曜日に久しぶりに店をお休みして熊本市内へ映画を観に行きました。
東京に住んでいた頃は良く観ていましたけど、それも数十年前です あぁぁぁ
ターミネーター4 を観たのですが、結構楽しめましたね。シュワちゃんはほんのワンシーンだけに出演で後は一切出番無し…もう十分でしょうかね
未来でジョン・コナーが自分の父となるカイルを過去に送る前の頃で、会った事もない若きカイルを救出するという設定でした。
迫力のあるシーン、感動のラストなど、ターミネーター2に続く名作だと感じました。
今度はいつ行けるのかしら おほほほ
2009年06月26日
Base から Calc へ (5)
・データを選択すると絞り込んだ SQL 文を作成しテキストボックスに書き込む
sSQL ="SELECT * " & CHR(13) & "FROM " & sQuote & sTableName & sQuote & CHR(13) & _
"WHERE " & sQuote & sFieldName & sQuote & " = '" & sFieldData & "'"
こんな感じで改行を入れて作成すると、テキストボックスで見やすくなります。
テキストボックス上で "=" を "LIKE" に書き換えると 曖昧検索に瞬時に変わりますし、又 "=:" に書き換えると パラメータクエリに瞬時に変わります。
・ボタンでテキストボックスの SQL 文を実行し結果を Calc の選択セルから書式無しで流し込む
これが一番苦労しました。Basic では繰り返し文が一番パフォーマンスに影響します。
FOR〜NEXT、DO〜LOOP、WHILE〜END 等でCalcのセルに書き込むときなどですね。数百行で止まっているようかの挙動を示します。
Calc上でのデータソースボタンよりの書き込みではその点瞬時に終わりますが欠点である勝手な書式が適用されたり、書き込み開始場所が限定されてしまいます.。
DoImport メソッドにて上記の動作は実現させる事が出来ます。そこで欠点を補う為に、見えないシートを作成しそこに DoImport メソッドで書き込み、次に書式無しで最初の選択セルからデータをセットするという方法を思い付きました。
シートの範囲から別範囲への書式無し書き込みは
getDataArray、setDataArray メソッドで瞬時に実現できます
'見えないシートにDoImportで書き込み
vAttrib = Array(MakePropertyValue("DatabaseName",sDBName),_
MakePropertyValue("SourceType",com.sun.star.sheet.DataImportMode.SQL),_
MakePropertyValue("SourceObject",sSQL))
oImportRange.doImport(vAttrib)
'見えないシートのデータを本来のセルから流し込み oState は項目挿入の有無
oCursor = TargetSheet.createCursorByRange(oImportRange)
oCursor.collapseToCurrentRegion
nStartColumn = oCursor.RangeAddress.startColumn
nStartRow = oCursor.RangeAddress.startRow
nEndColumn =oCursor.RangeAddress.endColumn
nEndRow = oCursor.RangeAddress.endRow
oTargetRange = oActiveSheet.getCellRangebyPosition(nStartColumn + nNewColumn ,_
nStartRow + nNewRow,nEndColumn + nNewColumn,nEndRow + nNewRow - oState)
oRange = TargetSheet.getCellRangebyPosition(nStartColumn,nStartRow + oState,nEndColumn,nEndRow)
oDataArray = oRange.getDataArray()
'見えないシートの削除
If oSheets.hasByName( sSheetName ) Then oSheets.removeByName(sSheetName)
Call Clear_Undo
oTargetRange.setDataArray(oDataArray)
'編集履歴の削除用サブルーチン
Sub Clear_Undo
Thiscomponent.isUndoEnabled = False
Thiscomponent.isUndoEnabled = True
End sub
以上で、本筋の部分は動作検証できました。実際はSQLコマンドを直接実行がチェックされている場合は登録クエリでないと実行できないなどがあるため、仮のクエリを登録し、実行後削除などの手順を入れました。
結果1000行で14秒位で書き込む事が出来ました。以下で公開してます
ツール＞拡張機能マネージャーからエクステンションを追加しOOoの再起動
Calc の ツール＞アドオン＞ボタンツールから追加したいボタンにチェックを入れると自動でボタンが追加されます。
http://cid-1d7cc4ac18a4898a.skydrive.live.com/self.aspx/OpenOffice/calctips.oxt?ccr=2491
2009年06月23日
Base から Calc へ (4)
'フォームを選択した場合
oForms.loadComponentFromURL("フォーム名", "_blank", 0, Array(MakePropertyValue("ActiveConnection",oDBConnection),_
MakePropertyValue("OpenMode","open"))
'プロパティ値、設定用ファンクション
Function MakePropertyValue( Optional nName As String, Optional vValue ) As com.sun.star.beans.PropertyValue
aPropertyValue = createUnoStruct( "com.sun.star.beans.PropertyValue" )
If Not IsMissing( nName ) Then
aPropertyValue.Name = nName
End If
If Not IsMissing( vValue ) Then
aPropertyValue.Value = vValue
EndIf
MakePropertyValue() = aPropertyValue
End Function
・フィールドを選択すると4番目のリストにデータの重複を除外してセット
sTableName はリストボックスから抽出したテーブル名に"."が有るのは Oracle、MySQL、PostgerSQL等でフォルダ名が付いているので別途処理(AAA"."BBB へ変換)
If Instr(sTableName,".") <> 0 and oDataSource.IsPasswordRequired then
sTableName = left(sTableName,Instr(sTableName,".")-1) & sQuote & "." & sQuote &_
right(sTableName,Len(sTableName) - Instr(sTableName,"."))
End if
sSQL ="SELECT DISTINCT "& sQuote & sFieldName & sQuote & " FROM " & sQuote & sTableName & sQuote
〜上記のSQL文を実行してデータを取得、リストにセットアップ
2009年06月21日
Base から Calc へ (3)
・データベースを選択すると 2 番目のリストにテーブル名、クエリー名、フォーム名をセットアップ
Oracle、MySQL、PostgerSQL 等接続時にユーザー、パスワードが必要な場合の判断は以下でいけました。必要ないのは Base 付属の HSQLDB
oDatabaseContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDataSource = oDatabaseContext.getByName("登録データベース名")
if oDataSource.IsPasswordRequired then
パスワード入力用ダイアログ表示〜
テーブル、クエリー、フォームの取得は以下
oDBConnection = oDataSource.getConnection(sUserName,sPassword)
oTables = oDBConnection.getTables()
sTableNames = oTables.getElementNames()
oForms = oDataSource.DatabaseDocument.getFormDocuments()
sForms = oForms.getElementNames()
oQueries = oDBConnection.getQueries
sQueryNames = oQueries.getElementNames()
SQL 文内で使うデータベース毎のクオート文字の取得( MySQL が違ってた)
sQuote = oDBConnection.getMetaData().getIdentifierQuoteString()
"""" & "テーブル名" & """" としてたのは sQuote & "テーブル名" & sQuote
こんな感じでリストボックス1のイベントに設定する
--------------------------------------------------------
・テーブル、クエリーを選択するとフィールド名を取得し 3 番目のリストにセットアップ
テーブル選択だと問題ないのですが、クエリー選択だとクエリー実行時のSQLコマンド直接実行の設定、EscapeProcessing プロパティを見つけるのにひと苦労
oQuery = oQueries.getByname(クエリー名)
oRowSet. = CreateUnoService("com.sun.star.sdb.RowSet")
With oRowSet
.ActiveConnection = oDBConnection
.EscapeProcessing = oQuery.EscapeProcessing
.CommandType = com.sun.star.sdb.CommandType.QUERY
.Command = クエリー名
.execute()
oFieldNames = .getColumns().getElementNames()
.Close
End With
olistbox(3).model.StringItemList = oFieldNames
チェックボックスに反映 IIF 関数を初めて知った おほほほ
oCheckbox0.State = IIF(oQuery.EscapeProcessing,0,1)
こんな感じでリストボックス2のイベントに設定
2009年06月19日
Base から Calc へ (2)
前回で何をするかは決まりましたが、どのような仕組みで取り込むかが問題です。
任意のデータベースに簡単に接続して、クエリーなどをそのまま実行、又は SQL 文を少し修正実行して、その結果を選択セルから流し込んでいく流れが望ましいですね。
ダイアログウィンドウ内でリストから選択するのが簡単なのですが、表示したままCalc シートも扱えないとスムーズになりません。
そこでモードレスダイアログで作成…これは簡単に作れるレシピがあるのでコピペ編集で無問題。
登録データベースは直ぐにリストアップ出来るけれど、ファイル選択時の接続の記述がどうしてもエラーばかりで分かりませんでした。
ので、一時的に登録して最後に削除するという手順に とほほ
登録すれば簡単にアクセスできます。
・データベースを選択すると 2 番目のリストにテーブル名、クエリー名、フォーム名をセットアップ
・テーブル、クエリーを選択するとフィールド名を取得し 3 番目のリストにセットアップ
・フォームを選択すると直接フォームを開く
・フィールドを選択すると4番目のリストにデータの重複を除外してセット
・データを選択すると絞り込んだ SQL 文を作成しテキストボックスに書き込む
・ボタンでテキストボックスの SQL 文を実行し結果を Calc の選択セルから書式無しで流し込む
全体の流れはこれで完成
ダイアログの画像
2009年06月18日
Base から Calc へ (1)
いやぁ、お久しぶりです。
ホントにサボってましたね
サポート業も少しは同時進行してましたが、特に珍しい話は無くありがちなトラブルのみでしたので…
来週からある事務所のレンタルPC、ネットワークプリンタ一式を新規PC、プリンター購入から移行まで任せていただきましたので少しは記事アップできるかもしれません。 オホホホ
では、今まで何をやっていたのかというと
OpenOffice のプログラム作成に熱中してました。勿論書けるのはBasicマクロのみなのでしょぼいですが
OpenOffice には Base というデータベースアプリケーションがあります。実はコレ単体よりも他のデータベースへ接続して GUI 部分として利用できる処に便利さがあり、入力用フォームなどが簡単に作成できちゃうのです ホントに簡単
Oracle、MySQL、PostgreSQL などへの接続確認も取れました。
えぇ、VirtualPC、VirtualBoxPC などへ全てインストールしてあります
で、データベースを利用するのは何故かと言うと、他のアプリでデータを再利用する為にその存在があるんですね。
これがスムーズに出来なきゃ Base は使えないといわれます。
他のアプリで該当するのが Calc、そして差込印刷等で使う Writer がありますが、今回は Calc へスポットを当て開発してました。
Calc にはデータベース取り込み機能が付いてますが、これが取り込み時に元セルの書式が全て変更されてしまうので定型業務で使い辛い。全て取り込んだ後での2次利用になってしまいます…あ〜面倒、何故に値だけの取り込みが出来ないのだ プンプン
しかも SQL 文をほんの少し変えればいいだけの話なのに元の Base で再度クエリを作成してからでなければ Calc へインポートできません。
Calc インポート時にフィルター機能が付いてますが、少し複雑な SQL 文には対応できません。
ツイツイ、出来ませんばかりになってしまいましたね あぁぁ
その不満を解消する為に、インポート機能の強化に至りました。
次回へ続く…
2009年05月03日
歌は心
大変ご無沙汰してます。
本業もようやく落ち着きましたので、これから少しＰＣライフに没頭できます
おほほほ
世間では色々な出来事があったようですね。
アシュリーさん 永遠なれ
忌野清志郎さん 永遠なれ
で、感動したのがコレ 歌は心 by スーザン・ボイル
http://www.youtube.com/watch?v=1t8m7CkpIK0
もう一度観たいのはめったにありません
2009年02月25日
e-Tax
時節ネタです
時々呼んでもらえるお客様、e-Tax で申告をしたいのだそうです
私自身はまだ e-Tax ではやってません。システム組んでいるので印刷されたものを 申告書に転記するだけです。 おほほほ
で、市役所でＩＣカードは既に発行してもらって、税務署への申し込みもすんでいるとの事で通販購入ののカードリーダー持って訪問。
e-Taxサイトからソフト等はDLインストール、カードリーダーのドライバインストール後カードリーダーの動作チェック
…
カードに記憶されているパスワードの入力画面が出たのですが
…
カード発行から1年近く経っていて
お客様、パスワード忘失 えぇ！ TELにて問い合わせるも「お答えできません」
そうですよね
うろ覚えの文字を幾つか試した処
「カードがロックされています」のメッセージ あぁぁ やっちまったな
ヘルプを見ると3回ミスでカードロックが掛かるのだそうです ひえー
カードロックが掛かると本人が市役所に出向いて解除しないと使えないそうな
…
えぇ、直ぐに市役所に出向きパスワード再設定されました。
今度は忘れないようにパスワードを紙に書いてこられました ほほほ
で、小さい注意書きをみてたら 英字は大文字で入力して下さいと有りました
えぇ？、小文字でナインカイ 普通間違うでしょ コレ
セキュリティの為なんでしょうが注意書きはもっと大きく目立つように書いてないといけませんねぇ
という訳で、最初の入力ひょっとしたら合ってたのかも知れないけど
確実に小文字で入力してましたね あははは
で、肝心の書類も各人によってドレとドレが必要なのか直ぐには判別付かない仕様
まず、無理ですね 色々苦情が寄せられるのも納得できました。
取り合えず、色んな意味で全てに詳しくないと出来ません
きっぱりと断言できます
e-Tax の e って error の略でしたっけ？ end ？
お後が宜しいようで おほほほ
