有个朋友帮我修改的代码如下：    unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, abcpanel, abcbar;    type   Tmain = class(TForm)     abcButtonBar1: TabcButtonBar;     abcButtonPage1: TabcButtonPage;     abcButtonPage2: TabcButtonPage;     abcButtonPage3: TabcButtonPage;     procedure FormShow(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   main: Tmain;    implementation    uses Unit2;    {$R *.dfm}    procedure Tmain.FormShow(Sender: TObject); begin   login.ShowModal; end;    end.    unit Unit2;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;    type   Tlogin = class(TForm)     Button1: TButton;     Button2: TButton;     Label1: TLabel;     Label2: TLabel;     Edit1: TEdit;     Edit2: TEdit;     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure Button2Click(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   login: Tlogin;    implementation    uses Unit1, Unit3;    {$R *.dfm}    procedure Tlogin.FormClose(Sender: TObject; var Action: TCloseAction); begin Close; DM.SQLDataSet1.CommandText:='select * from user where no=''' Edit1.Text ''' and pass=''' Edit2.Text ''''; DM.SQLDataSet1.ExecSQL; if DM.SQLDataSet1.RecordCount<>1 then main.Close end; 在关闭登陆窗口的时候为什么要这样？有其他办法吗？ procedure Tlogin.Button2Click(Sender: TObject); begin close; main.Close; end; procedure Tlogin.Button1Click(Sender: TObject); begin DM.SQLDataSet1.CommandText:='select * from user where no=''' Edit1.Text ''' and pass=''' Edit2.Text ''''; DM.SQLDataSet1.ExecSQL; if DM.SQLDataSet1.RecordCount=1 then Close else ShowMessage('无法通过验证，请检查号码和密码...'); end; end. unit Unit3; interface uses SysUtils, Classes, DBXpress, FMTBcd, DBClient, Provider, DB, SqlExpr; type TDM = class(TDataModule) SQLConnection1: TSQLConnection; SQLDataSet1: TSQLDataSet; private { Private declarations } public { Public declarations } end; var DM: TDM; implementation {$R *.dfm} end. 發表人 - leqan 於 2003/07/19 14:43:54 發表人 - leqan 於 2003/07/19 14:45:22 發表人 - leqan 於 2003/07/19 14:46:28

在 login 的 form 在 close 檢查登入是否完成是為了避免使用者自行關閉 login 的 form 而避開了登入檢查. 所以他在 login 的 form 中的 onclose 再行檢查一次!    但要注意的地方是這個程式中使用了 select 的 sql command, 該 dataset 必須使用 dataset.open 而不是 dataset.execsql , 記得要改一下, 否則會有問題的!!    DM.SQLDataSet1.ExecSQL; DM.SQLDataSet1.Open;

引言: 在 login 的 form 在 close 檢查登入是否完成是為了避免使用者自行關閉 login 的 form 而避開了登入檢查. 所以他在 login 的 form 中的 onclose 再行檢查一次! 但要注意的地方是這個程式中使用了 select 的 sql command, 該 dataset 必須使用 dataset.open 而不是 dataset.execsql , 記得要改一下, 否則會有問題的!! DM.SQLDataSet1.ExecSQL; DM.SQLDataSet1.Open;

DM.SQLDataSet1.ExecSQL; DM.SQLDataSet1.Open;--------我用这个在程序运行中没有出现问题哦，可以解析清楚些给我听听吗？

在 dataset 中, 若是有傳回資料的指令, 如 "select xxx from table" 的話, 就要使用 open method, 但若是執行性的指令, 如 "insert", "delete", "update" 的話, 就不能用 open 而要使用 ExecSQL method 才可以的, 否則會有問題的!

谢谢................................... 顺便再问一下，那clientDateSet呢？是不是也象这样呢？

是的, 在 ClientDataSet中也是有類似的狀況, 只是操作的是該 clientdataset 所指向的 dataprovider , 在 commandtext 中若是使用了 "insert", "delete", "update" 等不會回傳 result cursor 的指令時, 可以直接使用 execute method, 若是有傳回 result cursor 的話, 如 "select", 則一樣是要使用 open method 的!

谢谢指点，我又学到了不少知识.