Q1：

我現在寫了一個程式

當我輸入所有資料後

要讓某個欄位不可是空值 並跑出提示視窗 一直到使用者輸入資料後才真的存檔 未輸入資料前都無法存檔

但當我執行之後 讓某個欄位空白

雖然有跑出提示視窗 但它還是將檔案存檔了

請問該怎麼解決這個問題呢?或是我的程式寫法哪裡出了問題呢?

procedure TForm4.ToolButton8Click(Sender: TObject);
begin
if (dbedit3.Text='') then
begin
dbedit3.SetFocus;
application.MessageBox('帳號欄位不可空白','警告',64);
toolbutton8.Enabled:=false;
end
else
if dbgrid1.DataSource =module.datasource4
then module.ptable1.Post;
end;


Q2：

我們想要讓使用者按下DBgrid上的字的時候

可以跑出另外一個視窗

請問這樣的程式該怎麼寫呢?

謝謝

Answer 1 :
之前寫的，您參考
[code delphi]
procedure TForm1.SB_saveClick(Sender: TObject);
begin
// 編輯模式
if A_DS_dt.State = dsEdit then begin
A_DS_dt.Post;
SB_modify.enabled := true;
Panel_work.Enabled := false;
PL_Page_work.Enabled := true;
end;
// 新增模式
if A_DS_dt.State = dsInsert then begin
if TntDBE_name.EditText = '' then begin
TntDBE_name.SetFocus;
showmessage('姓名不得為空白!');
end
else begin
A_DS_dt.Post;
SB_add.Enabled := true;
Panel_work.Enabled := false;
PL_Page_work.Enabled := true;
end;
end;
SB_add.Enabled := true;
SB_Delete.Enabled := true;
SB_modify.Enabled := true;
end;
[/code]

------
努力會更接近成功

編輯記錄

Answer 2 :

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
showmessage(Column.Field.Text);
end;

------
努力會更接近成功