我現在有一DBGrid,上面有一字段AppQnty int(整型),我現在要修改AppQnty 的值.
我希望可以做到控管.原本AppQnty 假如是100,我現在修改為102,系統要彈出個對話框不可以修改,如果修改的值小與100,可以進行修改.請問怎麼實現這個功能.謝謝. weizi2000(秋风啊)幫我寫了段代碼
if DBGrid1.Fields[DBGrid1.SelectedIndex].FieldName = 'AppQnty' then
    if DBGrid1.Fields[DBGrid1.SelectedIndex].AsInteger > 100 then
    begin
      ShowMessage('The Value below 100 is Allowed');
      DBGrid1.SelectedField := DBGrid1.Fields[DBGrid1.SelectedIndex];
      Abort;
    end
的確可以實現我的功能,但是我要如何去抓我表原來的數據就是'100'修改前的數據.
if DBGrid1.Fields[DBGrid1.SelectedIndex].AsInteger > 100 我不知道如何去獲得原來表這條紀錄上'AppQnty'值.
請大家指教.修改後的代碼
我用tt:=table.fieldbyname('AppQnty').asinteger;
if DBGrid1.Fields[DBGrid1.SelectedIndex].FieldName = 'AppQnty' then
    if DBGrid1.Fields[DBGrid1.SelectedIndex].AsInteger >tt then
    begin
      ShowMessage('The Value below 100 is Allowed');
      DBGrid1.SelectedField := DBGrid1.Fields[DBGrid1.SelectedIndex];
      Abort;
    end可是獲取不到'AppQnty'修改前的值,無法和修改後的值比較.