請問各位高手: 我有一個 TTABLE 共有4 欄 如下 麵包名稱,製造日期,有效天數,是否過期 如何 取得 過期麵包數量

引言: 請問各位高手: 我有一個 TTABLE 共有4 欄 如下 麵包名稱,製造日期,有效天數,是否過期 如何 取得 過期麵包數量

未告知你的來源資料庫及欄位為何, 舉例(以TTable最基本用法) MANUFDATE=製造日期 (字串型態) edit1=指定日期的 TEdit totrec=記錄筆數 Table1.Filterd:= True; Table1.Filter:= 'MANUFDATE<=''' edit1.Text ''''; Table1.Open; totrec:= Table1.RecordCount;

select count(是否過期) from TTABLE where 是否過期='y' group by 是否過期 (有一些dbms在上面這個例子中，可以不加group by....) 有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

引言: select count(是否過期) from TTABLE where 是否過期='y' group by 是否過期 (有一些dbms在上面這個例子中，可以不加group by....) 有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

c905165大大你好: 那如果要立即將 '過期麵包數量' 顯示出來,要如何作

試看看下面的語法是不是你要的： SELECT [麵包名稱],count(*) as count FROM [Table Name] WHERE [是否過期]='過期' GROUP BY [麵包名稱],[是否過期] HAVING [是否過期]='過期'

我以 P.D.範例如下 procedure TForm1.Button1Click(Sender: TObject); begin ADOTable1.Open; ADOTable1.Filtered:= True; ADOTable1.Filter:= '製造日期<=''' edit1.Text ''''; ADOTable1.Open; Label1.Caption:= IntToStr(ADOTable1.RecordCount); end; 正常可過濾出來

[quote] 我以 P.D.範例如下 正常可過濾出來        感謝各位的回答:     但我還有幾點疑問    1.若以 P.D.範例 則我須多一個TABLE 來作過濾 有沒有辦法 只用一個 TABLE , 而不須多一個做過濾 procedure TForm1.Button1Click(Sender: TObject); begin ADOTable1.Open; ADOTable1.Filtered:= True; ADOTable1.Filter:= '製造日期<=''' edit1.Text ''''; ADOTable1.Open; Label1.Caption:= IntToStr(ADOTable1.RecordCount); end; 2.若以 c905165 範例 及 payne 範例 我要把下面的語法寫在那理呢? select count(是否過期) from TTABLE where 是否過期='y' group by 是否過期 SELECT [麵包名稱],count(*) as count FROM [Table Name] WHERE [是否過期]='過期' GROUP BY [麵包名稱],[是否過期] HAVING [是否過期]='過期'

procedure TForm1.Button1Click(Sender: TObject); var Find:Variant; Str:String; begin Find:=Table1.lookup('麵包名稱';'過期日期',VarArrayof([Edit1.Text,Edit2.Text]),'麵包名稱','過期日期';Salary); if not VarIsNull(Find) then  begin  Str:=Str+VarToStr(FindResult[0])+#13;  Str:=Str+VarToStr(FindResult[1])+#13;  ShowMessage(Str);  end; end;  

引言: 1.若以 P.D.範例 則我須多一個TABLE 來作過濾 有沒有辦法 只用一個 TABLE , 而不須多一個做過濾 procedure TForm1.Button1Click(Sender: TObject); begin ADOTable1.Open; ADOTable1.Filtered:= True; ADOTable1.Filter:= '製造日期<=''' edit1.Text ''''; ADOTable1.Open; Label1.Caption:= IntToStr(ADOTable1.RecordCount); end; 2.若以 c905165 範例 及 payne 範例 我要把下面的語法寫在那理呢? select count(是否過期) from TTABLE where 是否過期='y' group by 是否過期 SELECT [麵包名稱],count(*) as count FROM [Table Name] WHERE [是否過期]='過期' GROUP BY [麵包名稱],[是否過期] HAVING [是否過期]='過期'

資庫為 製造日期 有效天數 到期日期 須取得今日日期比較 到期日期作成自動更新而增加數量欄位從中可體會出應??作了 procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery1.Edit; ADOQuery1.FieldByName('到期日期').value:= ADOQuery1.FieldByName('製造日期').value ADOQuery1.FieldByName('有效天數').value; ADOQuery1.Post; end; procedure TForm1.Button2Click(Sender: TObject); Var D : integer; begin Adoquery1.Active:=false; Adoquery1.Close; Adoquery1.SQL.Clear; ADOQuery1.SQL.Append('SELECT * FROM 麵包 WHERE 到期日期 <= Now'); ADOQuery1.Active:=true; ADOQuery1.Filtered:= True; end; procedure TForm1.ADOQuery1BeforeRefresh(DataSet: TDataSet); begin ADOQuery1.Edit; ADOQuery1.FieldByName('到期日期').value:= ADOQuery1.FieldByName('製造日期').value ADOQuery1.FieldByName('有效天數').value; ADOQuery1.Post; end; procedure TForm1.FormCreate(Sender: TObject); begin Label4.Caption := 'Today is ' DateToStr(Date); end; procedure TForm1.DBGrid1CellClick(Column: TColumn); begin if ADOQuery1.FieldByName('到期日期').value <= date then begin DBEdit2.Font.Color:= ClRed; end else if ADOQuery1.FieldByName('到期日期').value > date then begin DBEdit2.Font.Color:= ClBlack; end; end;