引言:有40個Button分別各自代表星期一到五 第一節到第八節 點選Button一下出現上課 再點選一下便取消且將值傳回到Table3的 Week和 Class欄位有人是建議用Tag可是不怎麼了解怎麼用耶 還有沒有比較簡單的方法呢??

╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆
║聖│║誕│║快│║樂│ ╰☆╮ 
╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . 
﹒☆‧☆∴．：☆﹒‧∴ ☆..．.. 

引言: 有40個Button分別各自代表星期一到五 第一節到第八節 點選Button一下出現上課 再點選一下便取消 且將值傳回到Table3的 Week和 Class欄位 有人是建議用Tag 可是不怎麼了解怎麼用耶

procedure TForm1.Button1Click(Sender: TObject);
var w,c :integer;
begin
  w := TButton(Sender).Tag  div 10;//求商數可得目前week
  c := TButton(Sender).Tag mod 10;//求10的餘數可得目前class
  if TButton(Sender).Caption = '' then
  begin
    TButton(Sender).Caption := '上課';
    ...
  end else begin
    ....
  end;    end; 

引言: 這是你的time.DB 資料結構 其中week是不是周一，周二....當button點選為真時相同課程加１至class裡嗎? 請說明清楚一點，這樣子本區會員們才能幫你的忙? 發表人 - leo2568 於 2003/12/02 00:41:05

引言: 麻煩大家幫我看一下 現在要按一下出現上課 再按一下便取消 老師說可以用幾行程式寫在一起就好了 學校的功課要自己想喔 ，不然回會學不到東西 ，更嚴種的是k-top人氣超強，搞不好妳學校的老師或助教正在看這個版 可是我想不出來哩 麻煩大家幫我看看 procedure TY.Button1Click(Sender: TObject); var w,c :integer; begin w:= TButton(Sender).Tag div 10; //求商數可得目前week c:= TButton(Sender).Tag mod 10; //求10的餘數可得目前class if TButton(Sender).Caption = '' then begin TButton(Sender).Caption := '上課'; Table3a.Insert; Table3a.fieldbyName('week').AsInteger:=w; Table3a.fieldbyName('class').AsInteger:=c; //add this Table3a.post; end else TButton(Sender).Caption:=''; //??以下假設妳的table3a 為 Detail table或下了filter設定 if Table3a.locate('week;class',VarArrayof([w,c]),[]) then Table3a.Delete; end;

引言:

引言: 麻煩大家幫我看一下 現在要按一下出現上課 再按一下便取消 老師說可以用幾行程式寫在一起就好了 學校的功課要自己想喔 ，不然回會學不到東西 ，更嚴種的是k-top人氣超強，搞不好妳學校的老師或助教正在看這個版 可是我想不出來哩 麻煩大家幫我看看 procedure TY.Button1Click(Sender: TObject); var w,c :integer; begin w:= TButton(Sender).Tag div 10; //求商數可得目前week c:= TButton(Sender).Tag mod 10; //求10的餘數可得目前class if TButton(Sender).Caption = '' then begin TButton(Sender).Caption := '上課'; Table3a.Insert; Table3a.fieldbyName('week').AsInteger:=w; Table3a.fieldbyName('class').AsInteger:=c; //add this Table3a.post; end else TButton(Sender).Caption:=''; //??以下假設妳的table3a 為 Detail table或下了filter設定 if Table3a.locate('week;class',VarArrayof([w,c]),[]) then Table3a.Delete; end;

混心雜欲 棄修身~唉

多謝你的關心 卡在這個問題已經許久了 今天還在學校做到十一點才回家 我馬上來試看看

引言:因為hahalin你之前做的東西對我的幫助很大 雖然是leo2568大大PO的 可是又沒有辦法給多人得分... 令我真的很難抉擇 不過 在此特地謝謝各位大大幫我解題唷 YA~~~ 你們是最棒的 我也會繼續努力學習Delphi的 大家一起加油囉