| 尾形さんこんにちは
>>mysql4.1です。
> なぜに4.1を選択されたのですか？
>
> 5.1 も安定版のはずですよ
ダウンロード時にメールアドレスを登録してください
と言われるのです。
基本的にメールアドレスや住所に嘘は嫌いですので
ダウンロードできませんでした。
イベントを使って、番号.xvwを最初の入力項目で追加し
最新の番号を持って来て、項目値代入すれば、訂正も可能
でした。
mysql -u root -p -b
show databases; /* 一覧を表示 */
CREATE DATABASE rei01; /* データベースの作成 */
show tables; /* 使用テーブル数を見る */
desc tokui; /* tokuiのテーブル定義を見る */
mysql -u root -p -b
USE rei01; /* 使用開始 */
Drop table tokui; /* テーブルの削除 */
CREATE table tokui(
得意Ｃ INT UNSIGNED auto_increment NOT NULL,
primary key(得意Ｃ)
,登録日 DATETIME
,ふりがな varchar(40)
,得意先名 varchar(40)
,敬称 varchar(40)
,電話 varchar(20)
,市 varchar(40)
,住所１ varchar(40)
,住所２ varchar(40)
,〒 DECIMAL(12,2)
,差出人 varchar(40)
,訪問順序 DECIMAL(12,2)
,ランク DECIMAL(12,2)
,カレンダー DECIMAL(12,2)
,賀状 varchar(40)
,電話検索 varchar(20)
,住所 varchar(40)
,FAX varchar(20)
,備考 varchar(250)
,紹介者 varchar(40)
,訪問日 DATETIME
,招待状 varchar(40)
,携帯電話 varchar(20)
,メール１ varchar(40)
,メール２ varchar(40)
,メールファイル varchar(40)
,個人Web varchar(200)
,連名１ varchar(40)
,敬称１ varchar(10)
,連名２ varchar(40)
,敬称２ varchar(10)
,連名３ varchar(40)
,敬称３ varchar(10)
,お勤め先 varchar(40)
,勤務先電話 varchar(20)
,勤務先FAX varchar(20)
,所在地 varchar(40)
,年賀宛名 varchar(40)
,印刷住所１ varchar(40)
,印刷住所２ varchar(40)
,春展示会 varchar(40)
,秋展示会 DECIMAL(12,2)
,誕生日 DATETIME
,死亡日 DATETIME
,住まい varchar(40)
,印字差出 varchar(40)
,列 DECIMAL(12,2)
,行 DECIMAL(12,2)
,印刷０ DECIMAL(12,2)
,印刷１ DECIMAL(12,2)
,印刷２ DECIMAL(12,2)
,印刷３ DECIMAL(12,2)
,差出9 DECIMAL(12,2)
,差出住所 varchar(40)
,作業文字１ varchar(40)
,作業文字２ varchar(40)
,1数値 DECIMAL(12,2)
,2数値 DECIMAL(12,2)
,姓 varchar(40)
,名 varchar(40)
,画像ファイル名 varchar(200)
,Aテキスト varchar(40)
,A位置 varchar(40)
,A印字テキスト varchar(40)
,Bテキスト varchar(40)
,B位置 varchar(40)
,B印字テキスト varchar(40)
,Cテキスト varchar(40)
,C位置 varchar(40)
,C印字テキスト varchar(40)
,Dテキスト varchar(40)
,D位置 varchar(40)
,D印字テキスト varchar(40)
,Eテキスト varchar(40)
,E位置 varchar(40)
,E印字テキスト varchar(40)
,Fテキスト varchar(40)
,F位置 varchar(40)
,F印字テキスト varchar(40)
,印字カレンダー varchar(40)
,日 DECIMAL(12,2)
,月 DECIMAL(12,2)
,火 DECIMAL(12,2)
,水 DECIMAL(12,2)
,木 DECIMAL(12,2)
,金 DECIMAL(12,2)
,土 DECIMAL(12,2));
CREATE table tokuiban (
番号 INT UNSIGNED auto_increment NOT NULL,
primary key(番号)
,ゆーざー varchar(60));
2個のテーブルとフォームとイベントを使います。
フォームは私のページのと殆ど同じです。
proc t得意先名::ｿｰｽ値更新()
var 日時{&現在日時=[登録日]},Long{&Ltokuic,&LNo},Str { &Stokuim }
if (&現在日時="")
* 確認 #str(#秒(#日時値))
&現在日時=#日時値(#STR(#年(#日時値))+"/"+#STR(#月(#日時値))\
+"/"+#STR(#日(#日時値))+" "+#STR(#時(#日時値))\
+":"+#STR(#分(#日時値))+":"+#STR(#num(#小(#int(#秒(#日時値)/5),11))*5+2))
&Stokuim = #TISTR( &現在日時,6,4,2)+"N"+#ユーザ名
open "tokuiban.xvw"
行追加 終了状態 = &LNo , [ゆーざー] = &Stokuim
close "tokuiban.xvw"
編集表 &Ijibun
項目値代入 [登録日]=&現在日時 /* 秒を5で割ると12が最大値で最後の２を0から4迄変更可能 *
open "tokuiban.xvw"
検索 [ゆーざー] { &Stokuim } , 文字比較方法 = 自動 , 部分一致検索 = しない , 終了状態 = &LNo
if (&LNo = 1)
&Ltokuic = [番号]
close "tokuiban.xvw"
編集表 &Ijibun
項目値代入 [得意Ｃ] = &Ltokuic /* 秒を5で割ると12が最大値で最後の２を0から4迄変更可能 *
else if (&LNo = -1)
確認 "データが登録されていません"
close "tokuiban.xvw"
編集表 &Ijibun
else
確認 "想定外の結果です"
close "tokuiban.xvw"
編集表 &Ijibun
end
end
/* 10秒に1回の更新なら割り算を5でなく10にして11を５に変更すれば0から9迄変更可能 */
call 宛名訂正()
/* 桐のテーブルを直接共有なら1/10や1/100や1/999ミリ秒迄可能です */
end
|
