| 尾形さんこんにちは >>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( 得意C INT UNSIGNED auto_increment NOT NULL, primary key(得意C) ,登録日 DATETIME ,ふりがな varchar(40) ,得意先名 varchar(40) ,敬称 varchar(40) ,電話 varchar(20) ,市 varchar(40) ,住所1 varchar(40) ,住所2 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) ,メール1 varchar(40) ,メール2 varchar(40) ,メールファイル varchar(40) ,個人Web varchar(200) ,連名1 varchar(40) ,敬称1 varchar(10) ,連名2 varchar(40) ,敬称2 varchar(10) ,連名3 varchar(40) ,敬称3 varchar(10) ,お勤め先 varchar(40) ,勤務先電話 varchar(20) ,勤務先FAX varchar(20) ,所在地 varchar(40) ,年賀宛名 varchar(40) ,印刷住所1 varchar(40) ,印刷住所2 varchar(40) ,春展示会 varchar(40) ,秋展示会 DECIMAL(12,2) ,誕生日 DATETIME ,死亡日 DATETIME ,住まい varchar(40) ,印字差出 varchar(40) ,列 DECIMAL(12,2) ,行 DECIMAL(12,2) ,印刷0 DECIMAL(12,2) ,印刷1 DECIMAL(12,2) ,印刷2 DECIMAL(12,2) ,印刷3 DECIMAL(12,2) ,差出9 DECIMAL(12,2) ,差出住所 varchar(40) ,作業文字1 varchar(40) ,作業文字2 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が最大値で最後の2を0から4迄変更可能 * open "tokuiban.xvw" 検索 [ゆーざー] { &Stokuim } , 文字比較方法 = 自動 , 部分一致検索 = しない , 終了状態 = &LNo if (&LNo = 1) &Ltokuic = [番号] close "tokuiban.xvw" 編集表 &Ijibun 項目値代入 [得意C] = &Ltokuic /* 秒を5で割ると12が最大値で最後の2を0から4迄変更可能 * else if (&LNo = -1) 確認 "データが登録されていません" close "tokuiban.xvw" 編集表 &Ijibun else 確認 "想定外の結果です" close "tokuiban.xvw" 編集表 &Ijibun end end /* 10秒に1回の更新なら割り算を5でなく10にして11を5に変更すれば0から9迄変更可能 */ call 宛名訂正() /* 桐のテーブルを直接共有なら1/10や1/100や1/999ミリ秒迄可能です */ end
|