先前只用二個成品代號、包裝代號來新增時，沒有問題。可是後來要新增所以的欄位時，發現卻不行
而我用F7除錯時則發現下列這些地方錯誤http://photo.pchome.com.tw/monkeyhung/116797434238/
unit prod;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
RadioGroup1: TRadioGroup;
ComboBox1: TComboBox;
RadioGroup2: TRadioGroup;
Edit24: TEdit;
Label24: TLabel;
RadioGroup3: TRadioGroup;
procedure FormDblClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormDblClick(Sender: TObject);
begin
close();
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * From Prod');
Query1.Open;
Query1.Insert;
Query1.Fields.FieldByName('成品代號').Value := edit1.text;
Query1.Fields.FieldByName('包裝代號').Value := edit2.text;
Query1.Fields.FieldByName('品名').Value := edit3.text;
Query1.Fields.FieldByName('斷寬').Value := edit4.text;
Query1.Fields.FieldByName('內徑').Value := edit5.text;
Query1.Fields.FieldByName('外徑').Value := edit6.text;
Query1.Fields.FieldByName('扁平比').Value := edit7.text;
Query1.Fields.FieldByName('PR數').Value := edit8.text;
Query1.Fields.FieldByName('速度級').Value := edit9.text;
Query1.Fields.FieldByName('花紋').Value := edit10.text;
Query1.Fields.FieldByName('嘴式').Value := edit11.text;
Query1.Fields.FieldByName('廠牌').Value := edit12.text;
Query1.Fields.FieldByName('製造成本').Value := edit13.text;
Query1.Fields.FieldByName('經銷價').Value := edit14.text;
Query1.Fields.FieldByName('大盤價').Value := edit15.text;
Query1.Fields.FieldByName('牌價').Value := edit16.text;
Query1.Fields.FieldByName('印字').Value := edit17.text;
Query1.Fields.FieldByName('貼標編號1').Value := edit18.text;
Query1.Fields.FieldByName('貼標編號2').Value := edit19.text;
Query1.Fields.FieldByName('貼標編號3').Value := edit20.text;
Query1.Fields.FieldByName('貼標編號4').Value := edit21.text;
Query1.Fields.FieldByName('幣別').Value := edit22.text;
Query1.Fields.FieldByName('建檔日期').Value := edit23.text;
Query1.Fields.FieldByName('建檔人員').Value := edit24.text;
Query1.Fields.FieldByName('類別').Value :=combobox1.text;
Query1.Fields.FieldByName('結構').Value :=radiogroup1.Items.strings;
Query1.Fields.FieldByName('銷售狀態').Value :=radiogroup1.Items.strings;
Query1.Fields.FieldByName('狀態').Value :=radiogroup1.Items.strings;
query1.Close;
query1.SQL.clear;
query1.Add('select * From Prod');
query1.Open;
Query1.Post;
end;
end.

雖說Access可以使用中文欄位名,可畢竟Delphi是老外的東東,最好欄名用英文比較好,有可能某些中文字有特別字元,對delphi解譯會有狀況發生
您在Insert...並未緊跟著Post,反而又另一個Open,然後再Post,這流程有問題,試試調在前面
Query1.Post;
query1.Close;
query1.SQL.clear;
query1.Add('select * From Prod');
query1.Open;