SQLをDelphiで勉強します

殆ど使わないでD3->D4(Pro)までバージョンアップしたDelphiを使って
SQLをこれから勉強します。　ちなみに制御系の一人請負です。
間違った方向に進んでましたらご指導下さい。

まず準備
　BDE Administrator　でエリアスを定義しました。
　　データベースドライバ名は STANDARD
　　エリアス名は MYDB
　　デフォルトdriverはPARADOXとし、PATHを定義しました。

　BDE Administrator　でエリアスを定義しました。

次にDatabase Explorerを使ってテーブルを作ります。
まず、MYDBの所をクリックすると、SQL文の入力が出ました　ここに

　　DROP TABLE kokyaku
　　CREATE TABLE kokyaku
　　(
　　 　KCODE CHAR(6)＠｀
　　　会社名 CHAR(20)＠｀
　　　JIP3 CHAR(3)＠｀ JIP4 CHAR(4)＠｀
　　　住所1 CHAR(30)＠｀ 住所2 CHAR(30)＠｀
　　　電話1 CHAR(12)＠｀ 電話2 CHAR(12)＠｀
　　　締日 SMALLINT＠｀
　　　支払日 SMALLINT＠｀
　　　支払条件 CHAR(4)＠｀
　　　担当 SMALLINT＠｀
　　　PRIMARY KEY (KCODE)
　　)
　これでkokyaku.dbが出来ました。
　さらに電話番号にindexを付けてみます
　CREATE INDEX 電話1 ON kokyaku (電話1)
　なんかしらんけどファイルが増えました。

作ったテーブルに、読みがあった方が良いとだろうと
　　ALTER TABLE kokyaku ADD 読み CHAR(10)
　としたら、「テーブルは使用中」と怒られましたが、なんかしたら成功しました。

　これでDDLは終わり・・・・でいけるかな？

フィールド名に2バイト文字を使わない方がよさそうです。
あと、設計時はTTableはDataと接続しないほうがいいです。
indexは、専用のファイルができます。
BDEのエリアスを定義しないで、TDataBaseから直接指定する
こともできます。
DataModuleを使うほうが、あとあと便利かもしれません。

ここまでで、わからなかったのは、いくつかの命令を連続して発行する場合です。
たとえば
　CREATE INDEX 電話1 ON kokyaku (電話1)
　CREATE INDEX 電話2 ON kokyaku (電話2)
　と２つのindexを一度につけたい場合、この２行は別けて発行しないといけない
　のでしょうか？
　なにかセパレータがあるのでしょうか？
localsql.hlpを読んでも出来るのかどうかも判りませんでした。

sevenさんお世話になります。
＞フィールド名に2バイト文字を使わない方がよさそうです。
　でも、Paradoxなんかでフィールド名に２バイト文字が使われているし
　今の所問題なさそうだし、チョコッと試したDBGridではそのフィールド名
　がタイトルになるのでこのまま使いたいなと

DataModuleはこれから勉強しますです。

>６ TQuery.SQL を読むと、完全な SQL 文を一度に 1 文しか代入できません
　　とあるので別けて発行しないと駄目みたいですね。

今度はDelphiを起動し、
DataModule に TQuery と TDataSourceを貼り付け
フォームに TDBGridを貼り付け、あちこちプロパティを設定して

TQuery.SQLに
　　SELECT * from kokyaku

として Active:=True とすると、　Gridが表示されました。

でも編集は出来ません。枠と項目名が出ているだけの状態です。

これから編集させる方法を調べてみます。

>7 7取られた(笑)
まぁ、仕様上はOKなんだけど、使わない人が多いから、
なにか不具合出たときに、悩みの一つになるかもしれません。
あと、DBの種類によって、SQLが通らなくなるかもしれません。
表とか玉とか六とか使って大丈夫なら、まぁいいのかな。
>9
編集したいのならTTable使うほうが楽です。
Paradoxなら、データ量もたいしたことないのですよね?

場合によっては使えない場合があるかもしれないから、事前に危険回避
する訳ですね。了解しました。

まあ、直接仕事に使うんじゃなくて、あくまでも 埋込SQLでアプリを書く勉強
なんで、とりあえず枝葉的な部分は後で考える事にします。

＞編集したいのならTTable使うほうが楽です
　ふむ。まだ良く分かってはないのですが、今回は勉強ですのであえて
　そちらを使う方針にします。

＞Paradoxなら、データ量もたいしたことないのですよね
　客先に見せられるような販売管理的なものをイメージしています。
　客先は中小なので、量は、たぶんたいした事ありません(^^;
　マニュアルにある フラットファイルデータベースTClientDataSet
　が理想だったんですが、これは C/S版Enterprise版のみで残念

今、キャッシュアップデート・トランザクション・セッションの用語
イメージが掴めず　少し停滞中です。

試しに TTableをTQueryの代わり使うと確かに編集出来ました。

TQueryならRequestLiveってプロパティをTrueにすればOK。
詳細はHelpをどうぞ。
ORDER BYかけたりするとそれでも編集できなくなるので、
TUpdateSQLをはりつけて、関連づけしてSQL文生成しなければ駄目。

キャッシュアップデートはDBのデータをキャッシュに読み込んで置いて、
修正時はそのキャッシュの内容を変更してApplyUpdatesでDBに書き込む。
だからApplyUpdatesかけるまではキー違反なデータでも書き込めちゃう。

おお、色々探して判らなかったのに・・・・ありがとう。

用語概念が未だに掴めていませんが、どんどんやっていった方がいいですね。

次は納品書に挑戦します。　納品書の画面イメージを作って、
顧客コードから　kokyaku.dbの内容を表示させてみます。

この画面のまま kokyaku.dbが編集出来る方がいいのか、それ
とも別の画面が出て編集出来る方がいいのか・・・・・

トランザクションはDB関係の書籍ならだいたい説明してあるから
読んでみてね

kokyaku.dbのフィールド数が多いなら、顧客マスタをつくっておいて
納品書からは「新規顧客作成」とか「顧客データ変更」とかをつくって
登録画面を起動するようにしないと、納品書なのかなんなのか
わかんなくなるよ。

顧客データに住所・Tel・担当者名くらい欲しいでしょ？

ありがとうございます。勉強になります。

とりあえず、こんな設計にしてみました。

CREATE TABLE kokyakuCREATE TABLE kokyaku
(
　KCODE　　CHAR(6)＠｀
　社名　　 CHAR(20)＠｀　読み　　 CHAR(10)＠｀
　ZIP3　　 CHAR(3)＠｀　 ZIP4　　 CHAR(4)＠｀
　住所1　　CHAR(30)＠｀　住所2　　CHAR(30)＠｀
　電話1　　CHAR(12)＠｀　電話2　　CHAR(12)＠｀
　締日　　 CHAR(2)＠｀　 支払日　 CHAR(2)＠｀
　支払条件 CHAR(4)＠｀
　担当　 SMALLINT＠｀
　PRIMARY KEY (KCODE)
);
CREATE TABLE nohint /*納品書１枚１レコード*/
(
　納品番号 INTEGER＠｀
　KCODE　　CHAR(6)＠｀/*納品先コード*/
　担当　　 SMALLINT＠｀
　納品日　 DATE＠｀
　PRIMARY KEY (納品番号)
) ;
CREATE TABLE nohin /*納品書１行 １レコード*/
(
　納品番号　 INTEGER＠｀
　行番号　　 SMALLINT＠｀
　商品コード CHAR(8)＠｀
　納品数　　 SMALLINT＠｀
　単価　　　 MONEY＠｀
　金額　　　 MONEY＠｀
　PRIMARY KEY (納品番号＠｀行番号)
) ;

PASCAL信者ってDOS/VをねたんでいるMACユーザと同じで、
CやC++をねたんでいる僻みっぽいバカばかり。

だからDelphiは消えてくれ

Database ExplorerをDelphiから起動すると、ドラッグ＆ドロップで
　GridやEditを張り付けられる事が判りました。
するとTQueryじゃなくてTTableになるのですが、
　TTable.MasterSource MasterFields を設定するだけで、
　やりたい事（納品番号＠｀KCODEに応じた表示)が出来てしまいました。

私の思い付くレベルでは、TQueryで　埋込SQLでとかする必要も無いですね。

なんか、とってもお手軽、というかコードはまだ全然書いていません。

>18
はい、実装だけなら30分くらいでプロトタイプができてしまいます。
こんな簡単だと、不安を感じませんか?(笑)。

>11
>今、キャッシュアップデート・トランザクション・セッションの用語

このあたりは、ParadoxよりはInterbase使ったほうがいいかも
このペースだと、7日くらいで私のレベルを超えそうですね(笑)>@

あ、印刷まわりは、けっこう苦労するかもしれません。

設計したデータベースを新規作成する時便利なよう、こんなの作りました。
１６のような;で区切った複数のSQL文が実行出来ます。
// ひとつのSQL文は';'で終わる事
procedure SQLSends(s:TStrings;dbName:string;AOwner:TForm);
var Q:TQuery;
var n＠｀i:integer;
var w:string;
begin
　i:=0;
　Q:=TQuery.Create(AOwner);
　Try
　　Q.DatabaseName:=dbName;
　　while(s.Count>i) do begin
　　 Q.SQL.Clear;
　　 while(s.Count>i) do begin
　　 w:=s.Strings[i]; inc(i);
　　 n:=Pos(';'＠｀w);
　　 if(n=0)then Q.SQL.Add(w)
　　　 else begin
　　　　 Q.SQL.Add(Copy(w＠｀1＠｀n-1) );
　　　　 w:=Copy(w＠｀n+1＠｀1);

　　　　 break;
　　　end;
　　　w:='';
　　end;
　 if(Q.SQL.Count<>0) then begin
　　 Q.Close;
　　 try
　 if(w[1]='O') then　Q.Open
　　　　　　　　 else　Q.ExecSQL;
　　 except
　　　 on E:Exception do
　　　　ErrMemo(AOwner＠｀Q.SQL＠｀E);
　　 end;
　　end;
　 end;
　except
　 Q.free;
　end;
end;

procedure ErrMemo(w:TForm;s:TStrings;E:Exception);
var m:tMemo;
begin
　 m:=tmemo.Create(w);
　Try
　　 m.Parent:=w;
　　 m.Align:=alClient;
　　 m.Lines.AddStrings(s);
　　 MessageDlg(E.Message＠｀mtWarning ＠｀[mbAbort]＠｀0);
　 except
　 m.free;
　 end;
end;

あ、色々ありがとうございます。
　＞こんな簡単だと、不安を感じませんか?(笑)。
　　いや、計測関係で少しDelphiを使った事があるので、思った通りと（＾＾）

　＞このあたりは、ParadoxよりはInterbase使ったほうがいいかも
　　なるほど。でもInterbaseは配布出来ないのだろうとParadoxにしました。

　＞このペースだと、7日くらいで私のレベルを超えそうですね(笑)
　　そうなりたいものですが・・・って無理でしょう。　プログラムが
　　組めても、そういう業務知識がありませんから。

　＞あ、印刷まわりは、けっこう苦労するかもしれません
　　Printer.Canvasにゴリゴリとというか普通に書けば良いのだと
　　思っていました。　なんとかレポートの類は、使い方を調べるのが面倒
　　だからと無視していましたが・・・そっち使った方がよさそう？

納品書（と内訳）の一覧、顧客一覧しかないならQuickReportで
勉強する時間入れても１日かからずにできます。
修正とか楽だからQRのほうがいいかも。

顧客ごと月別の集計と年別の集計の両方を出すとかになると
QRそのものの機能だけではむずかしいのでワークテーブルつくってやるか
Printer.Canvasをつかうか。

なんにしてもはじめにキチンと設計してどちらかに統一することが一番・・・・＜うちの事

遅くてもいいなら、MS-Excelにデータ渡して印刷するという
方法もあります。

　ありがとうございます。QuickReportも調べてみます。
　でも Printer.Canvas が自分には一番楽かもしれない。
　なんかコード書いた気になれるし。

２２のコードは、finally を使うべき所で Exceptを間違って使ってました。

free の直前のExceptはfinallyですね

MessageDlgでも複数の行が表示出来るんですね。２２のコードで
出来ないと思ってたからわざわざtmemo使ったんだけど、

function ErrMemo(s:TStrings;E:Exception):Word;
var t:string;
var i:integer;
begin
　for i:=0 to s.Count-1 do t:=t+s.Strings[i]+#13+#10;
　t:=t + E.Message;
　Result:=MessageDlg(t＠｀mtWarning ＠｀[mbAbort]＠｀0);
end;

Delphi使うやつは氏ね
(うざいスレッドなので終了。書き込むを押しても書き込めません)

あ、そだ、Paradoxなら一次キーの連番の発行は、連番テーブル使うほうがいいかも。

わはは29は放置プレイか

使わない方がいいかも。
なんかMLでそんなことをみた覚えがあるので
自前で連番するようにした＜うち

Paradoxのへぼいネットワーク機能を使ったときに、
連番だとキー違反がでるとかいろいろ。
でもこれくらいなら更新する直前に番号拾い直してくればOKだなあ。
他DBへの移植が視野にないならいいかもね。

Paradoxはサーバー立ち上げなくてもNetworkできるのはいいと思う。

あ、
> でもこれくらいなら更新する直前に番号拾い直してくればOKだなあ。

この処理を書くなら連番フィールドじゃなくても一緒だから
ふつうのFieldを使ったんだった。

>33
うん、自動連番フィールドは、ダメだよね。でお手軽に専用のテーブルを連番発行用に
作るの。

指定した納品番号だけ表示するのをTTableの範囲を使いかけましたが、
初心に戻って、TQueryのSQLを使う事にしました。
　　SELECT * FROM nohin WHERE
　　納品番号 = 100
とすると、目的通り、納品書の項目別テーブルから納品番号100のだけが
取り出せました。 陰陽 さんに押して頂いた RequestLive:=Trueで編集も出来ます。

　このSQL文で納品番号=100の100を変更するには２つの方法があるようです。
　ひとつは、SQL.ADD(format('納品番号=%d'＠｀[no]));のように毎回SQLを書換える方法
　もう一つは、引数マーカを使う方法みたい。
　　どちらが良いか判りませんが、とりあえず、私に理解出来る先の方法を使ってみます。

さて、RequestLive:=True では、変更してしまうと元に戻せない事が判りました。
　ここでどうやらキャッシュアップデートの登場のように思います。

ＪａＺ　ＦＴＰ！

＞sevenさん 陰陽さんお世話になります

連番テーブルってのがあるんですね。でもヘルプで探せなかった。
PARADOX専用なんですか？
　ならいいや、そんなに大変じゃないし、勉強が目的だから。

うざいですか？
　俺も勉強が捗るし、これを覗いた奴も勉強になるかなと思って始めたんだけど。

TQueryでキャッシュアップデートするには
　TUpdateSQL の DeleteSQLとかの３つのプロパテイに
　　DELETE FROM nohin I
　　WHERE (I.納品番号=:OLD_納品番号) AND (I.行番号=:OLD_行番号)
　　とか全部用意した上で、
　TQuery.UpdateObject:=TUpdateSQL
　TQuery.ChashedUpdate:=True;
　 とすれば良いようですが、DeleteSQLはまだしも、InsertSQLなど
　いちいち書いてたら大変、データベースを少しでも変更するとまた
　大変という事で、やるならそれを自動化けするコンポでも作らない
　とこりゃダメだという気がしてきました。
　そこで、納品書１行ファイルの中間ファイルを作って、編集する時は
　一旦中間ファイルにコピーし、更新は中間ファイルからBatchMoveを
　使ったらと考え直しました。（考えただけでこれから試してみます）

　どうからここでトランザクションの用語が関係するような気がします。

>37
いや、テーブルを一つ作って、そこにカウンタ値を格納しとく
だけです。Editしてる間はロックが掛かって、他の端末から変更
できなくなるわけですね。

ParadoxでのSQLでの更新の流行は、
一度closeして、再びopenするんじゃ無かったっけ?

キャッシュアップデートは
TQueryのCachedUpdateプロパティをTrueにするだけです。
更新するときはApplyUpdatesを呼出
キャンセルするならCancelUpdatesを呼ぶだけ。

トランザクションかけておけばキャッシュアップデートしなくても
ロールバックでいけるよ

　sevenさんありがとうございます。
　データベースファイルに保存してしまえという事ですね？
　こういう事でしょうか？

CREATE TABLE "RenBan.DB" ( Number INTEGER ) というテーブルがあるとして

function RenBan(tbname:string;AOwner:TForm):integer;
var　Table1 : TTable;
begin
Result:=-1; //失敗したら負数を返す
　 Table1 := TTable.Create(AOwner);　{テーブルを用意して}
　try
　　with Table1 do begin
　　　DatabaseName:= 'MYDB' ;
　　　TableName :=tbname;
　　　ReadOnly　:=false;
　　end;
　 try
　　with Table1 do　begin
　　 Open; //開いて
　　 first;//頭にカーソルを持っていって
　　 edit; //編集モードに
　　 if state=dsEdit then //編集モードになれば番号+1
　　　 Result　:= Fields.Fields[0].AsInteger+1
　　 else begin　Append; Result:=1000;end; //でなければ初期値を与える

　　 Fields.Fields[0].AsInteger:=Result;
　　 Post;
　　 Close;
　　end;
　 except
　　Result:=-1; //失敗したら負数を返す
　 end;
　finally
　　Table1.free;
　end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
　caption:=format('%d'＠｀[RenBan('RenBan.DB'＠｀form1) ]);
end;

しかし、この読み出しと書込みの間に他のプロセスが書込みした場合に
問題が出るように思います。トランザクションを使えば排他処理が出来
るのかと思っていましたが、
　＞他のトランザクションによるデータベースへのコミットされていない変更
　＞内容を読み出せる。コミットされていない変更内容は永続的なものではな
　＞く，いつでもロールバック（取り消し）できる。

　というのは、同じ値が読み出し出来るという事でしょうか？

まあ、今の所、ネットワークで使用するつもりは無いのですが。

＞陰陽さん重ね重ねお世話になります。
　＞更新するときはApplyUpdatesを呼出
　　おお、出来ました。

＞トランザクションかけておけばキャッシュアップデートしなくても
＞ロールバックでいけるよ
　　おお、　Query1.Database.TransIsolation:= tiDirtyRead;
　　　　　　Query1.Database.StartTransaction;
　　して、その間の変更が
　　Query1.Database.Rollback;で元に戻るのを確認しました。

この２つの方法の違いは、
　キャッシュアップは変更中の値は他のアプリから読めない
　トランザクションでは変更中の状態が他のアプリから見える
という違いがあるようです。

　いや、独習では、たぶんどツボにはまって、今ごろシコシコ自作
　の無意味なコードを書き連ねようとし始めてたに違いないです。
　感謝、感謝です。

テーブルの排他処理は、Exclusive で出来るようです。

＞４２の open前に Exclusive:=True;を入れれば排他的に処理出来そうです。

今日のまとめです。
　出来た事：１行１レコードのデータベースから、納品番号で
　　　　　　指定したデータだけを編集、書換える
QueryとDataSourceとDbGridを張り付けて適当にプロパテイを設定し
----------------------------------------------------------
TQueryでキャッシュアップデートを使う
　ncodeに納品番号を入れて、以下のようにして開く。
　Query1.Close; //してもエラーにはならない
　Query1.CachedUpdates:=True;
　Query1.RequestLive:=True;
　Query1.SQL.Clear;
　Query1.SQL.Add('SELECT * FROM nohin WHERE 納品番号 = '+ncode );
　Query1.Open;
　　これで、Grid等で編集した後、操作により
　　　それまでの処理を有効にする：Query1.ApplyUpdates;
　　　それまでの処理を無効にする：Query1.CancelUpdates;
---------------------------------------------------
トランザクションの場合：
　　Query1.Close; //してもエラーにはならない
　　Query1.Database.TransIsolation:= tiDirtyRead;
　　Query1.Database.StartTransaction;
　　Query1.RequestLive:=True;
　　Query1.SQL.Clear;
　　Query1.SQL.Add('SELECT * FROM nohin WHERE 納品番号 = '+ncode );
　　Query1.Open;
　　　それまでの処理を有効にする：　　Query1.Database.Commit;
　　　それまでの処理を無効にする：　　Query1.Database.Rollback;

っていうか、ここまで展開するならMLで聞いてよってカンジ・・。

Delphiには興味ないけど、
こーゆースレッドもあっていいと思うよ。

>47
たしかに、このレベルは、かなりの財産になるね。

MLでいちいち業務経過報告されたらたまらんわ
次の初心者の為に@さんがまとめてWebにあげるのが
最良形かと

ふむふむ
このあたりのやり取り、結構参考になります。
便乗質問なんですが、TTableを使って
連番 ← 内部的に持たせる値なので見せたくない
データ１ ← 編集項目
データ２ ← 編集項目
データ３ ← 編集項目
計算結果1 ← データによって自動設定される値なので見せたくない

といった場合、見せたくないけどテーブルに持たせるような場合は
どんな感じで処理させるといいですか？

Gridの場合は、グリッドの上でマウス右=>カラムの設定で見せないように出来ます

内部で計算する項目は TDBEditとかの Fieldじゃなくて
TTableのFieldValuesで操作すれば良いように思います。

今日は、カレンダコンポから選んだ日付に発行した納品書一覧
をコンボボックスとかで選択出来るようにしてみました。
　ハマリそうだったのは、SQL文で日付を渡す点です。
　画面表示が YY/MM/DDだったのでそのまま渡したらエラーになりました
　　FormatDateTime('d/m/yyyy'＠｀MonthCalendar1.Date);
　とやって解決しました。
　あとは、DBLookUpのプロパテイをListSorce ListFiled KeyFiled
　と設定すれば表示されました。

>画面表示が YY/MM/DDだったのでそのまま渡したらエラーになりました
SQL1.ParamByname('Date1').AsDate := MonthCalender1.Date
でいけると思います。

納品書のKCODEから会社名を持ったテーブルが欲しくて色々試した結果
SELECT * FROM nohint M ＠｀kokyaku K WHERE　M.KCODE=k.KCODE
で出来ましたが、これで良いのでしょうか？
　これを利用して、指定した日付の納品書番号と納品先が
　表示されるようにしたのが以下の通りです。

var ncode:string;
var s:string;
var d:tstrings;
begin
d:=ComboBox1.items;
d.Clear;
ncode:=FormatDateTime('m/d/yyyy'＠｀MonthCalendar1.Date);
　with Query1 do begin
　Close;　//してもエラーにはならない
　with SQL do begin
　　 Clear;
　　 Add('SELECT M.納品番号 ＠｀ K.社名　FROM nohint M ＠｀kokyaku K ');
　　 Add('WHERE　M.KCODE=k.KCODE ');
　　 Add(　 'AND M.納品日="'+ncode+'"' );
　END;
　Open ;
　first;//頭にカーソルを持っていって
　 while not eof do begin
　　 s:=　FieldValues['納品番号'];
　　 s:=s+':'+FieldValues['社名'];
　　 d.Add( s);
　　 next;
　 end;
　end;
end;

あっています。

WHERE テーブル1.カラム名=テーブル2.カラム名
のようなのを「相関」といい。基本的な手法です。

55の KとかMを相関名(エリアス）っていうのは知ってるけど、それホントに相関ていうの？

こっちじゃ　結合(JOIN)って呼んでるぞ
ほれ
　http://www.netlaputa.ne.jp/~mkoba/sql/sql07.htm
　http://www.reitaku-u.ac.jp/infosci/rdb/rdb05.html

相関というかはしらんけど、
FROMに２個テーブルを書くようなのは結合って言ってる。うちでは。

ちなみにそれだと会社名マスタを修正すると
データを引いてこなくなるので外部結合したほうがいい。
Paradoxの外部結合めんどくさいから気をつけてね
ORACLEなら
SELECT M.納品番号 ＠｀ K.社名
FROM nohint M ＠｀kokyaku K
WHERE　M.KCODE=k.KCODE(+)
これをParadoxでかくと
SELECT M.納品番号 ＠｀ K.社名
FROM nohint M
　　 LEFT OUTER JOIN kokyaku K　ON (M.KCODE=k.KCODE)
です。移植とか大変なので
TQueryを画面に２つはりつけて項目コンポーネントで
参照項目を新規作成したほうがいい。

Paradoxの文法についてのヘルプは
スタートメニューのBDEのヘルプのなかに入ってる
Local SQL Helpをどうぞ

参照項目はTQuery２個はっつけて、
それぞれSQLをSELECT * FROM kokyakut＠｀SELECT * FROM nouhint
にして納品の方のTQueryをDblClick。
そうすると項目コンポーネントエディタっていうのが開くから
右クリックしてまず「すべての項目を追加」。
もう一回右クリックして「新規項目作成」。
名前決めて参照にして、キーはKCODE、参照テーブルは
kokyakutのTQuery＠｀参照キーはKCODE＠｀データは社名ね。
こっちは普通にHelp引けるから。

みなさんありがとうございます。

　名前についてはLocalSQL.hlpで検索すると
　55のようなのは"等結合"とありました。他に、
　＞INNER JOIN　これはまだ良く判らない
　＞OUTER JOIN　>58陰陽 さんが教えて下さっている方法（まだ理解していない）
　＞直積結合　　全部の組合わせが出る（最初これ知らずやって驚いたけど意味あるの？）
　＞UNION結合　後ろにデータを追加する

というのがあるようです。これから勉強します。

SQLの参考書が古いようで、等結合以外は LocalSQL.hlpだけが頼りです。
　で 色々試した結果、
１，等結合とINNTER JOIN は殆ど同じ

２、OUTER JOIN は、一致しない項目があっても残る点が INNTER JOINと違う

３、55のコードのような等結合では、顧客マスタとの不一致が起きると選択不能になる
　　（これが　５８の陰陽さんの教えと理解しました）

ただ、OUTER JOIN の表記方法はSQL1に無いので、方言が存在する場合あり

　OUTER JOIN を使わずに等結合の問題を防ぐには、顧客マスターに必ず
　納品書に含まれる顧客コードが存在するようにすれば良い。

という事で、納品書に無い顧客コードを抽出する　SQL文を考えてみます。

＞納品書に無い顧客コードを抽出する　SQL文

これは簡単に出来ました。　SUB SELECT というらしいです。

SELECT KCODE FROM nohint
WHERE NOT KCODE IN( SELECT KCODE FROM kokyaku )

　そろそろ SQL 初心者レベルには達したと慢心しかけています。

で、結局、何か操作する前に、以下のような関数を使うと顧客番号だけの項目追加
が出来るようにしました。
BatchAppend('kokyaku'＠｀
　　'SELECT KCODE FROM nohint '+
　　'WHERE NOT KCODE IN( SELECT KCODE FROM kokyaku )'　＠｀form1);

関数の定義は、以下の通りです。

//テーブル名を与えて Tableを一時的に作り BatchMoveを実行する
function BDEBatchMove(tbname:string; src:TBDEDataSet):longint;
var　Table1 : TTable;
begin
　Result:=0;
　Table1 := TTable.Create(src);　{テーブルを用意して}
　try
　　with Table1 do begin
　　　DatabaseName:= 'MYDB' ;
　　　TableName :=tbname;
　　Result:=BatchMove(src＠｀batAppendUpdate);
　　end;
　finally
　　Table1.free;
　end;
end;
//指定したテーブルに指定したSQL抽出結果を追加する
function BatchAppend(tbname:string; s:string;Owner:TComponent):longint;
var　Query1 : TQuery;
begin
　Result:=0;
　Query1 :=TQuery.Create(Owner);
　try
　　with Query1 do begin
　　　DatabaseName:= 'MYDB' ;
　　　SQL.Clear;
　　　SQL.Add(s);
　　　Open;
　　end;
　　Result:=BDEBatchMove(tbname＠｀Query1);
　finally
　　Query1.free;
　end;
end;

項目コンポーネントは勉強しといた方がいいよ
63でやってることならあっという間に
できるから

DisplayFormatとかの便利なプロパティもあるし

＞陰陽さんたびたびお世話になります。
　題目が”ＳＱＬを　勉強”なので、SQLに拘っておりした。
　もちろん、５９の参照項目もTQuery・TTableの両方で試してみました。
　とてもお手軽なのを体験する事が出来ました。
　たぶん、実際にプログラムを作る時は、そちらのやり方になると思います。

　ただ、項目コンポを使う方法は設計時にはお手軽ですが、関数化する場合
　は逆に手間が増えそうです。
　（というか参照項目をコードで追加する方法が判らなかった）

　まあ、なんでも関数化しようとするのは悪いクセなのかもしれませんが

DelphiではデータモジュールにQueryをいくつもはりつけておいて、
使いそうなLookupは全部つくっちゃって各フォームからusesして使う、
というのが便利そうなのでそうやってます。
これなら各アプリケーションで設計時に１回やるだけだから。

確かに関数化はできないかもね。

SQLってどの辺までが初心者なのかな。
かくいう私もSELECTを憶えてから１年もたってないもので

今朝一番の電話で、本業がいきなり全開状態になりました。
　もちろん勉強は続けますが、今までのペースは当然無理です。
みなさまのおかげで、効率良く勉強が出来ました。
ありがとうございました。

まあまあ下げずにBorland製品+DBの勉強スレッドということで

@さんの64のように、コンポーネントを一時的に利用する場合、
Ownerを渡さずないで清まそうとすると何をCreateの引数に渡せば
いいでしょうか？
Application かなあ？

　関数内だけ限定で存在するオブジェクトがあればそれを親にしとけば
　Try finally 使わなくてすむので楽なんですが

Delphiではオブジェクトは暗黙にポインタなので
自分でCreateしたものは自分でFreeがいいかも。

引数にはnilを渡して必ずFreeすると。
ちなみに俺流では例外を呼出元に通知しない
（メッセージを自分で出して、親へは戻り値Booelanにて通知）
なのでtry-exceptですべての例外を処理して、最後にFreeです。

ちょっと古い（というより例外の機能を使い切れてない）けど、
例外の補足し忘れとかは無くなるので。あ、コンポーネントは別ね。

あ、@さんの63の間違いでした。他の誤字もごめんなさい

nilですか。試した事なかったので試してみます。

ヘルプには
＞Create を呼び出してオーナーのコンポーネントを AOwner パラメータ
＞に渡します。オーナーを破棄するとコンポーネントは破棄されます。
＞コンポーネントが所有されていないときは，Free を呼び出してそのコ
＞ンポーネントを破棄できます。

ってあったので、何かコンポーネントを渡さないといけないと思ってました。

私の場合は、63の例だといちいち変数を定義せずに withを使って

function BDEBatchMove(tbname:string; src:TBDEDataSet):longint;
begin
　Result:=0;
with TTable.Create(nil) do { と臨時にテーブルを作成して }
　try　　　　　　　　　　　　 { Tryブロックでうけて }
　　DatabaseName:= 'MYDB' ;
　　TableName :=tbname;
　　Result:=BatchMove(src＠｀batAppendUpdate);
　　end;
　finally free; end; { この１セットで受けて開放する}
end;

こうやります。 奇麗だし、タイプも楽でしょ？

　今みたら、finallyの前の endは不要でした

例外処理よりも変数生成せずにwithできることに驚き
いやあ勉強になります

本業の合間に、
連番を複数使えるよう名前を付けて取り出せるように工夫してみました
さっそく、72さんの方法も使ってみました。　ただ、完全に変数を使わな
いとデバック中に値を見たりするのが出来なくて、結局デバックの為だけ
にtblという変数名を使いました。


function RenBan(TblName＠｀uName:string):integer;
var i:integer;
function xRenBan:integer;
var tbl:TTable;
begin
　　　 tbl:=TTable.Create(nil); {テーブルを用意して}
　with tbl do
　 try
　　　DatabaseName:= 'MYDB';　//エリアス名を設定
　　　TableName :=TblName;　　//テーブル名を設定
　　　ReadOnly　:=false;　　　//書換える事を指示
　　try
　　　Exclusive :=True;　　　　//排他ファイルとして
　　　Open;　　　　　　　　　　//開いて
　　　if findKey([uName]) then //検索した名前があれば
　　　begin
　　　 edit;　　　　　　　　　 //編集モードに
　　　 Result　:= Fields.Fields[1].AsInteger+1;
　　　end else begin
　　　　Append;　　　　　　　　//名前が無ければ挿入モードに
　　　　 Result:=1000;　　　　 //初期値を1000とする
　　　　Fields.Fields[0].AsString :=uName;
　　　end;
　　 Fields.Fields[1].AsInteger:=Result;
　　 Post;
　　 Close;
　 except
　　Result:=-1; //失敗したら負数を返す
　 end;
　finally
　 free;
　end;
end;
　begin
　result:=xRenBan;
　i:=0;
　while(Result<0) do
　begin
　　if(i>100)then exit;
　　inc(i);
　　Sleep(100);
　　result:=xRenBan;
　end;
end;
////////////////////////////////////////////
//連番用テーブルをコードから作成する場合です
procedure RenBanInit(TblName:string);
var s:TStringList;
begin
s:=TStringList.create;
　with TTable.Create(nil) do
　try
　　Session.GetTableNames('MYDB'＠｀TblName＠｀false＠｀false＠｀s);
　　if s.Count=0 then
　　　DatabaseName:= 'MYDB';
　　　TableName :=TblName;
　　　 with　FieldDefs do begin
　　　　Clear;
　　　　Add('NAME'＠｀ftString＠｀16＠｀false);
　　　　Add('Number'＠｀ftSmallint＠｀0＠｀false);
　　　 end;
　　　 CreateTable;
　　　 AddIndex('NAME'＠｀'NAME'＠｀[ixPrimary]);
　 finally
　　s.free;
　 end;
end;

(割り込んですみません。「DDL」というスレッドにも
書いたのですが、分かる方がいたら教えて下さい。)
DDLは(1)Data Description Languageの略だと
思っていたのですが、Oracleの本を見ると
(2)Data Definition Languageと書いてあります。
(1)＠｀(2)は同じものなのか、同じものだとすると
(2)はOracle独自の用語なのか何なのか、
違うものだとすると何が違うのか、教えて頂ける
とありがたいです。

Data Description Language = データ記述言語。
Data Definition Language データ定義言語。
SQLのDDLの意味的には Definition がそれらしいけど

レポート課題かなんかですか？

>77
お返事ありがとうございます。
> SQLのDDLの意味的には Definition がそれらしいけど
実際、日本語訳は「データ定義言語」と書いてある文書が
多いんですよね。それでよけいに混乱しています。
会社の後輩に聞かれて調べたのですが私も分からなくて、
泥沼にはまってしまいました。
どなたか御存じでしたら御教授下さい。

確かにOracleだけが Definition だね。直接聞いてみたら？

後輩に良い顔見せたいなら、その場でOracleに電話して見せれば良かったのに

73のコードだけど、RenBanの方で
例外を全部exceptで処理されるので、
一個目のtry〜finallyはいらないよ
except〜endのあとで普通にfreeすればいいだけ

RenBanInitの方では例外を処理せずに呼出元へ
返してしまうので、「例外を生成する可能性のある関数だよ」
というのが（関数名などから）わかる方がいいと思うんだけど
どうかな？VCLとかはヘルプに記載してあるだけだし、
ドキュメントをきちんと整える癖のある人ならいいけど。

つーかドキュメントはきちんと整えなさい＞おれ

75は、最後に free (TTableの)を忘れていると思う

age

プリンタの話が途中あったので　ついでと言ってはなんですが
http://www.inprise.co.jp/tips/delphi/dh010/index.html

を参考に印刷（ドットインパクト）しようと思います
このTextOutとかは紙の場合、左上から順に出力しなくても
常に自動的に並べ直して貰えるものなのでしょうか？

まあ試せばすぐ判るのでしょうが、レーザとファックスしか手元にないので

Printer.EndDoc
してから書き込みにいくので大丈夫でしょう

ありがとうございます。　昔みたいに紙が逆送りされるなんて事はないですよね。

ついでに、このスレッドで気付いた事。

53の
FormatDateTime('d/m/yyyy'＠｀MonthCalendar1.Date); は
FormatDateTime('m/d/yyyy'＠｀MonthCalendar1.Date); が正しいと思います

それから TTableのFilterを使う場合は
Filter:='納品日 <= '''+formatDateTime('yyyy/m/d'＠｀Date)+'''';
のような順になります。また"ではなく'で囲む必要があるようです

プリンター制御にはNkPrinterのお世話になっています
入手方法はGooで NkPrinterで 検索すると判ると思います

TPrinterの代わりに使え、紙サイズ等もプログラムで設定出来ます