まだまだまだまだ勉強不足・・・・。

以前からDelphi 2006 で作成していた業務プログラムを考え直しです。

・TSVファイルを読み込んでGridに表示させる。

・データベースに落とす。

・色々な条件で検索できるようにする。

データベースにはデータを唯一のものと決めるキーを設定するのですが、これをいくつかの項目を切り貼りして作成します。この時、キーの長さも同じ長さにします。最初に考えていたものでは、いくつかの項目をそのままキーにするというものでした。これではユニークキーがいくつもできてしまいます。そこで、さっきの方法でやることにしました。

この方法なら後々の検索もうまくいきそうです。

今回のプログラムでは関数を自分で作成し、その関数を呼び出して使うということもしました。しかし、データの受け渡し、関数の呼び出しがよく分からずでたらめなコードを書いていました。幸いすぐ近くにプログラムの師匠がいるのでヒントをもらい、やってみました。が、結局最後は師匠にやってもらいました・・・・・・・・・。情けない。

でも、自作の関数の呼び出し、データの受け渡し理解できればまったくの初心者から少し芽が出た初心者になれると思います。頑張るぞー！

最近、とってもいいプログラムの教科書をゲットしました！何年か前に閉じてしまったサイトをMr.XRAYさんが保存し、公開しているものです。

少し見ると結構な量でしたが、少しずつでも必ず読破することをここに誓います。

Halbow資料館

最近、プログラムの師匠からも大切なプログラムをソースごと頂いたのでこちらの読み解きも楽しみです。

「プログラムをするということは分析をすることである。」

師匠がよくいう言葉です。頭の片隅の外に記憶中。

最近自分はとても幸せな環境にいるんだと感じます。色々な人に出会い、いろいろなことを教えてもらい提供してもらい、仕事をしながら勉強できる。学ぶことの大切さとおもしろさは幾つになっても感じて生きて生きたいです。

自分の人生のテーマは謙虚さと遊び心です。

なにに関しても、人はいくらか時間が経つと謙虚さを忘れてしまうように感じます。自分ももちろんですが。何かしら学ぶ時には謙虚さは最重要項目だと自分は感じています。何歳になっても、誰からでも学ぶことはできます。

絶対忘れません。イエス！

Data Base構築

今書いているデータベースプログラムのデータベースをどう構築していくか思案中です。

とりあえずFire Birdを使用して、ネットワークから同僚みんなそれぞれのクライアントから見れるようにしようというのは決定。

SQL ServerやAbsolute DBは今後使用するとして、とりあえずはFire Birdを使います。

データベースの構築はやはりかなり気を回す必要があるのではないか。

今回使用しているデータは他の仕事と今のところかぶる様子はないので、今書いているプログラムのみで使用することになると思います。

しかし、他の業務でも使用する可能性も否定できないので柔軟性のあるデータベースが構築できればいいなぁ。

Gridに実際に表示するDataとは別に、データを引き出しやすいようにキーフィールドを作りデータを格納。

こうすることでメモリも有効に使え、別のプログラムでも使えるような柔軟性も兼ね備える。と、うまくいけばいいけど、今はDataとにらめっこ！

いいData Baseができますように！

今日、パソコンのメモリを５１２MBから２GBに変えました！

さくさく動くのですこぶる快調！

がんばんべー！

やっとプログラムが進みました！

最近、通常業務の忙しさとなんとなく煩わしくてプログラムから離れていました。

少し落ち着いてきたところで

「これではいかん！どげんかせんといかん！」と思い再始動です。

Turbo Delphi 2006 で書き始めたプログラム。

今はFire Bird（Data Base）を扱うプログラムと、業務計画印刷用のプログラムを同時進行で製作中です。

データベースを扱うプログラムをなんとか年内、早ければ来週あたりに完成させたいと目標を決めました！

.tsvファイルで取り出したデータをグリッドに表示させ、データベースに落とし、必要な分だけのデータを印刷するというプログラムなのですが、なかなか難しいのです。

前回はとりあえずデータをGridに表示させ、データベースに落とすところまでは行きましたが、余分な情報もGridに表示、データベースにも余計なデータが落ちていました。

今回は、必要なデータを明確にし、後に取り扱いやすいように細分化、そして必要に応じて統合するということをします。

まず、日付と時刻のデータが一まとめに表示されていたのでこの文字列を半角スペースでPosし、二つのグリッドに分けて表示。

前回はここでうまく分割できずつまづいて、そのままになっていましたが、久しぶりに考え直してやってみたところうまくできました！

最近やっとHelpの使い方をしったのも大きいかもしれません。

知りたい文字のところにカーソルをF1を押すとヘルプが立ち上がってきて、検索までしてくれます。

Posの考え方が少し間違っていたようです。

さらにあるデータの項目はデータが余分に表示されていたので必要な分だけ表示するようにしました。

次の項目は少し問題があって、最初「”」でPosしていたのですがうまく表示できず、半角スペースでPosしてもうまくいきませんでした。

そこで、その文字列の中に「”」がある場合と無い場合の処理を分けて行ってみたところ、うまくいきました。

これでひとまず必要な情報をきれいにGridに表示することができました。

あとはこれをデータベースに落として、さらに項目を繋げてデータとは別にキー項目を作ります。

さぁ、もう一息がんばるぞー！！

同時作業です。

Turbo Delphi 2006 でデータベースを扱ったプログラムを製作中。

以前から進めていた業務プログラム（プロジェクト１）と同時進行で、もうひとつプログラム（プロジェクト２）を書くことになりました。

プロジェクト１は少し改良する事にしました。
・Gridに表示するデータ分割の項目を増やす。
・データベースで扱いやすいように、分割したデータを統合し、データベースに新しい項目を増やす。

Gridに表示するデータの分割がうまく出来ません。

今のデータは単純に“TabKey”を区切りにしてGridに表示しています。

今度は見やすく扱いやすいように余分なデータは切り捨てるつもりです。

なのでもちろんデータベースに新しい項目を追加することも出来ていません。

データベースに新しい項目を追加し、データを読み込むのはまだすんなり出来そうな気がしていますが、今までと違う方法でのデータの分割・統合が難しい。

がむばらねば！

プロジェクト２は印刷のルーチンが主ですが、Gridに日付と曜日を表示させるのがまだできていません。

最初カレンダーから引っ張ってきて表示させたかったのですが、直接コードを書いて表示させる事にしました。

簡単にできるようなのですが初心者らしくまだほとんど分かっていません。組み込み関数を使えばできるようなので調べます。

印刷のルーチンが主なのでとりあえずデータベースは使いませんが、使う人の要望があればデータベースを使用するつもります。

今、片方が行き詰まってもう一方も小さな壁に当たっている状態。

意外と単純なことで解決するかもしれないので、地道にトゥルバって（ボーッとして）考えていきます。

Delphiでプログラム！

業務プログラムが後退しました。

一行分のデータを読み込み、Gridに表示。

そのデータをデータベースに読み込む。

そこまではできました。

がしかし、何行かを一度に読み込むにはまだコードが足りず、書き直し。

DynamicSQLでデータベースのUnique KEYに設定した項目を「Where 検索」。

すでにデータがあるものはEditモードで書き込み。

データが無いものはAppendで書き込み。

これをGridに表示させてある行の分繰り返す。

というコードを書きましたが、止まってしまいました。

「Where 検索」の部分が間違っているのかもしれません。

データの検討も足りなかったみたいです。

もしかしたら「FireBird」のデータベースも書き換えなければいけなくなりそうです。

読み込んだデータをそのままデータベースに読み込むのではなく、使用するデータ以外にプログラムで使用しやすいようにデータを切ったり貼ったりして作るということもやらなきゃいけないみたいです。

データベースを将来違うプログラムでも使用できるように考えないと。

引き続き頑張ります。

＜今日の用語＞

ヒステリシスカーブ

直流的消去法

交流的消去法

ショウジコイル

ヴァンアレン帯

静特性

2ASUN

プログラムでデータベースにアクセス！

Delphi でデータベースにアクセスするプログラムを作りました！

データベースエンジンには SQL Server を使用しています。

まだまだ業務に使えるようなレベルのプログラムではありませんが、やっとデータベースにアクセスすることができました。

ようやく目標に一歩近づいた感じです。

目標は『今年中に業務に携わるデータベースプログラムを書く事！！！！！！！！！！』

今、業務ではいくつかのデータベースエンジンを使用しているのでデータベースも要勉強♪

う〜ん、まだまだ勉強が足りないようですなぁ・・・・。

よし！　楽しみながら目標に近づきたいと思います。

もつかれさまです！

最近、仕事が忙しくて久々のアップです。

仕事で無線機の周波数変更をしました。

まだ勉強中の身なので、全部が初めての体験でした！



まず、送信側のフィルター、クリスタルを交換した。

波形がキレイに出るようにクリスタルのFREQを調整し、ローカルのFREQを調整し、送信周波数を合わせる。

OUTPUTのパワーを測定し、充分なパワーが出ていたらひとまずはOK！


次に、受信側の無線機のフィルター、クリスタルを交換する。

受信側は送信側からの信号を基に設定するので、必ず送信側から交換する。

送信側と同じようにクリスタルとローカルのFREQをきれいな波形が出るように調整する。

また、同じようにOUTPUTのパワーを測定し、充分なパワーだったらOK。

送信側、受信側それぞれA,Bあるので、それぞれ設定する。

また、A,Bの信号の差が1ns以下が理想的とのこと。

一日目はひとまずすべての調整を行った。

二日目は周波数、波形を見てクリスタルのFREQを調整する。

すべてが終わったら24時間の試験を行い、問題がなければ終了。

測定した実測値、測定した波形の図をデータとして提出し完了！


めったにやる事ではないので、しっかりチェックや！