各位大大可以幫我看看這個「新增」的問題嗎?? |
|
monkeyhung
一般會員 發表:51 回覆:55 積分:21 註冊:2006-12-16 發送簡訊給我 |
先前只用二個成品代號、包裝代號來新增時,沒有問題。可是後來要新增所以的欄位時,發現卻不行
而我用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. |
pedro
尊榮會員 發表:152 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |