我連續新增數筆資料時才會出現錯誤，不解? |
|
答題得分者是：hagar
|
|
leo2568
中階會員   發表：54 回覆：124 積分：70 註冊：2003-09-21 發送簡訊給我 |
|
|
leo2568
中階會員 發表：54 回覆：124 積分：70 註冊：2003-09-21 發送簡訊給我 |
|
|
huangeider
高階會員 發表：288 回覆：492 積分：231 註冊：2003-02-26 發送簡訊給我 |
以下是我的部份程式碼，顯示時為什麼變成'-1'，但是資料是有記錄的，請各位大大幫幫我，謝謝!!
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var xxx : string; begin xxx := IntTOstr(query1.RecNo); Label11.Caption :=xxx; end; |
|
leo2568
中階會員 發表：54 回覆：124 積分：70 註冊：2003-09-21 發送簡訊給我 |
hi, huangeider，我把程式碼po上，請教為什麼會這樣呢?
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, DBTables, StdCtrls, DBCtrls, Mask, Buttons, Grids; type
TForm1 = class(TForm)
Database1: TDatabase;
UpdateSQL1: TUpdateSQL;
BitBtnAppend: TBitBtn;
BitBtnModify: TBitBtn;
BitBtnDelete: TBitBtn;
BitBtnYes: TBitBtn;
BitBtnCancel: TBitBtn;
BitBtnQuit: TBitBtn;
BitBtnprior: TBitBtn;
bitbtnNext: TBitBtn;
Query1: TQuery;
Query1REC_NO: TIntegerField;
Query1ORDER_NO: TStringField;
Query1GRADE: TStringField;
Query1BATCH: TStringField;
Query1VOLUME: TStringField;
Query1DATE_1: TDateTimeField;
Query1DATE_2: TDateTimeField;
Query1DATE_3: TDateTimeField;
Query1DATE_4: TDateTimeField;
Query1ISCHANGE: TBooleanField;
Query1SCRIP: TMemoField;
Label1: TLabel;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
DBCheckBox1: TDBCheckBox;
Label10: TLabel;
DBMemo1: TDBMemo;
Label11: TLabel;
Label12: TLabel;
procedure FormActivate(Sender: TObject);
procedure BitBtnQuitClick(Sender: TObject);
procedure BitBtnYesClick(Sender: TObject);
procedure BitBtnAppendClick(Sender: TObject);
procedure BitBtnCancelClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtnpriorClick(Sender: TObject);
procedure BitBtnModifyClick(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
emp_no : string;
implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject);
begin
UpdateSql1.InsertSQL.Clear;
UpdateSql1.InsertSQL.Add('INSERT INTO G_DATA1 ');
UpdateSql1.InsertSQL.Add(' ( ORDER_NO, ');
UpdateSql1.InsertSQL.Add(' GRADE , ');
UpdateSql1.InsertSQL.Add(' BATCH , ');
UpdateSql1.InsertSQL.Add(' VOLUME, ');
UpdateSql1.InsertSQL.Add(' DATE_1, ');
UpdateSql1.InsertSQL.Add(' DATE_2, ');
UpdateSql1.InsertSQL.Add(' DATE_3, ');
UpdateSql1.InsertSQL.Add(' DATE_4, ');
UpdateSql1.InsertSQL.Add(' ISCHANGE, ');
UpdateSql1.InsertSQL.Add(' SCRIP )');
UpdateSql1.InsertSQL.Add(' VALUES ');
UpdateSql1.InsertSQL.Add(' (:ORDER_NO,:GRADE,:BATCH,:VOLUME, ');
UpdateSql1.InsertSQL.Add(' :DATE_1,:DATE_2,:DATE_3,:DATE_4, ');
UpdateSql1.InsertSQL.Add(' :ISCHANGE,:SCRIP ) '); UpdateSql1.ModifySQL.Clear;
UpdateSql1.ModifySQL.Add('UPDATE G_DATA1 ');
UpdateSql1.ModifySQL.Add('SET ');
UpdateSql1.ModifySQL.Add('ORDER_NO = :ORDER_NO,');
UpdateSql1.ModifySQL.Add('GRADE = :GRADE ,');
UpdateSql1.ModifySQL.Add('BATCH = :BATCH ,');
UpdateSql1.ModifySQL.Add('VOLUME = :VOLUME ,');
UpdateSql1.ModifySQL.Add('DATE_1 = :DATE_1 ,');
UpdateSql1.ModifySQL.Add('DATE_2 = :DATE_2 ,');
UpdateSql1.ModifySQL.Add('DATE_3 = :DATE_3 ,');
UpdateSql1.ModifySQL.Add('DATE_4 = :DATE_4 ,');
UpdateSql1.ModifySQL.Add('SCRIP = :SCRIP ');
UpdateSql1.ModifySQL.Add('WHERE ORDER_NO = :OLD_ORDER_NO'); UpdateSQL1.DeleteSQL.Clear;
UpdateSql1.DeleteSQL.Add('DELETE FROM G_DATA1 ');
UpdateSql1.DeleteSQL.Add('WHERE ORDER_NO = :OLD_ORDER_NO'); Query1.CachedUpdates := true;
Query1.UpdateObject := UpdateSql1; Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM G_DATA1');
Query1.Close;
Query1.Open;
end; procedure TForm1.BitBtnQuitClick(Sender: TObject);
begin
DataBase1.Close;
Query1.SQL.Clear;
close;
end; procedure TForm1.BitBtnYesClick(Sender: TObject);
begin
Try
DataBase1 .StartTransaction;
Query1 .ApplyUpdates;
Query1 .CommitUpdates;
DataBase1 .Commit;
Except
DataBase1.Rollback;
Query1.CancelUpdates;
ShowMessage('存檔失敗 ');
end;
end; procedure TForm1.BitBtnAppendClick(Sender: TObject); begin
Query1.Append;
Query1Date_1.Value := date;
Query1Date_2.Value := date;
Query1Date_3.Value := date;
Query1Date_4.Value := date;
Query1ischange.Value:= False;
Emp_No := Query1.FieldByName('ORDER_NO').AsString;
Dbedit2.SetFocus;
end; procedure TForm1.BitBtnCancelClick(Sender: TObject);
begin
Query1.Cancel;
end; procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Query1.Next;
end; procedure TForm1.BitBtnpriorClick(Sender: TObject);
begin
Query1.Prior;
end; procedure TForm1.BitBtnModifyClick(Sender: TObject);
begin
Query1.Edit;
DBedit2.SetFocus;
end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var xxx : string;
begin
xxx := IntTOstr(query1.RecNo);
Label11.Caption :=xxx; end; procedure TForm1.FormCreate(Sender: TObject);
begin end; end.
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
|
|
leo2568
中階會員 發表：54 回覆：124 積分：70 註冊：2003-09-21 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
delphi help:
Use RecordCount with care, because record counting can be a costly operation, especially for SQL queries that return large result sets. Generally, an application should only use RecordCount with Paradox and dBASE tables.
另一方式, 用 Select Count(*) From TableName 取得 ---
Everything I say is a lie.
|
|
leo2568
中階會員 發表：54 回覆：124 積分：70 註冊：2003-09-21 發送簡訊給我 |
|
|
Miles
尊榮會員 發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
|
|
leo2568
中階會員 發表：54 回覆：124 積分：70 註冊：2003-09-21 發送簡訊給我 |
|
|
Miles
尊榮會員 發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
|
|
leo2568
中階會員 發表：54 回覆：124 積分：70 註冊：2003-09-21 發送簡訊給我 |
|
|
Miles
尊榮會員 發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
發表時間：2003-11-20 18:11:57
IP:61.217.xxx.xxx 未訂閱
發表人 - leo2568 於 2003/11/20 21:47:13
系統時間：2024-11-25 19:45:52
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |