delphi7有關(guān)table運(yùn)行程序出現(xiàn)錯(cuò)誤,怎么修改啊,table怎么定義啊,在哪部分定義呢?
delphi7有關(guān)table運(yùn)行程序出現(xiàn)錯(cuò)誤,怎么修改啊,table怎么定義啊,在哪部分定義呢?
procedure TOperatorForm.FormActivate(Sender:TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit4.ReadOnly:=True;
Edit4.TabStop:=False;
CheckBox1.Checked:=False;
CheckBox2.Checked:=False;
CheckBox3.Checked:=False;
Edit4.Text:=Datetostr(Date());
Table1:=TTable1.Create(self); [Error] Undeclared identifier:'Table1'
Table1.DatabaseName:='rsgl'; [Error] Missing operator or semicolon
Table1.TableName:='operator.db'; [Error] Missing operator or semicolon
Table1.Open; [Error] Missing operator or semicolon
if not EOF then
LoadFormTable; [Error] Undeclared identifier:'LoadFormTable'
Table1.Close;
RadioButton2.Checked:=True;
end;
procedure TOperatorForm.FormActivate(Sender:TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit4.ReadOnly:=True;
Edit4.TabStop:=False;
CheckBox1.Checked:=False;
CheckBox2.Checked:=False;
CheckBox3.Checked:=False;
Edit4.Text:=Datetostr(Date());
Table1:=TTable1.Create(self); [Error] Undeclared identifier:'Table1'
Table1.DatabaseName:='rsgl'; [Error] Missing operator or semicolon
Table1.TableName:='operator.db'; [Error] Missing operator or semicolon
Table1.Open; [Error] Missing operator or semicolon
if not EOF then
LoadFormTable; [Error] Undeclared identifier:'LoadFormTable'
Table1.Close;
RadioButton2.Checked:=True;
end;
其他人氣:932 ℃時(shí)間:2020-06-17 01:20:10
優(yōu)質(zhì)解答
LoadFormTable這是個(gè)過(guò)程吧,你怎么定義的?上次給你留了聯(lián)系方式,結(jié)果知道給屏蔽了,我給你發(fā)私信了,你幫我看看程序??!謝謝了!我是參照一本書(shū)里的例子,學(xué)習(xí)下數(shù)據(jù)庫(kù)應(yīng)用的,按照例子編完程序后運(yùn)行就出錯(cuò)了,對(duì)于table,里面沒(méi)有給出定義,而且只是之前做了一個(gè).db的表,編程就直接用table了,窗體中也沒(méi)有用table組件,對(duì)于它的定義,我不會(huì)啊第一行和第二行之間加個(gè)var Table1:TTable;首先在引用里面添加 DBTables;其次,不應(yīng)該用FormActivate事件吧,這個(gè)事件是每次激活窗體都會(huì)執(zhí)行的;我覺(jué)得你應(yīng)該用FormCreate事件;最后,這樣初始化procedure TForm1.FormCreate(Sender: TObject);vartable1:TTable;begintable1:=TTable.Create(Self);end;我想問(wèn)下一個(gè)工程文件,多個(gè)form窗體組成的程序用不用相互引用啊,因?yàn)樵趧e的unit里也用到了table,又出現(xiàn)同樣的錯(cuò)誤。如果其他窗體引用,則table變量放在窗體類里面定義public,其他窗體需要引用這個(gè)單元按照上面的方法還是不行,真是郁悶?。∧鉻able在哪定義的,又在哪里使用的?描述清楚public{ Public declarations }end;varOperatorForm: TOperatorForm;Table1:TTable;這樣似乎不行,我試了很多地方定義都不行,我想問(wèn)下這個(gè)程序要讀取DBtable,這個(gè)需要建立連接嗎,還有這個(gè)DBtable是存放在workdir中的。LoadFormTable這個(gè)是什么東西?應(yīng)該是一個(gè)過(guò)程吧?你定義了嗎?沒(méi)有定義,怎么定義啊,LoadFormTable你寫(xiě)這個(gè)想干什么?我也是自學(xué)沒(méi)多久,有些代碼也不懂,只是大概的能看懂。謝謝你能解答這么多,沒(méi)有程序,再追問(wèn)也沒(méi)意義,還是謝謝你!
我來(lái)回答
類似推薦
- table tennis意思
- table
- table
- 如圖,在平行四邊形ABCD中,E,F分別是BC,DC的中點(diǎn),G為交點(diǎn).若AB=a,AD=b,試以a,b為基底表示DE,BF,CG.(a,b,AB,AD,DE,BF,CG均為向量)
- 描寫(xiě)雨聲的句子
- 三角函數(shù)的變換公式有哪些?
- 難解的幾何題
- 《海濱仲夏夜》的特點(diǎn)
- 一個(gè)三角形和一個(gè)平行四邊形的面積和底都相等.三角形的高是5cm,平行四邊形的高是()cm
- 已知關(guān)于x的方程a(3x-2)+b(2x-3)=8x-7 問(wèn)題看下!
- 問(wèn)一個(gè)英語(yǔ)句型問(wèn)題The letter we looked forward to come last sunday~為什么to的后面是come而不是coming~
- 若直線y=kx+3與直線y=1/kx-5的交點(diǎn)在直線y=x上,則k=
猜你喜歡
- 11/2+3/4+7/8+15/16簡(jiǎn)算
- 2英語(yǔ)翻譯
- 3104.79用英文怎么表達(dá)
- 4已知,p:2x^2-9x+a
- 5英文達(dá)人來(lái)幫忙解釋下.
- 6求函數(shù)y=(lnx)^1/X微分dx
- 7已知拋物線y=x²-x+a與x軸的兩個(gè)交點(diǎn)之間的距離為√5.第一象限內(nèi)的點(diǎn)A在拋物線上,且點(diǎn)A的縱坐標(biāo)為1
- 8AB距31km,甲從A到B,一小時(shí)后乙也從A地去B地.已知甲每時(shí)行12千米,乙每時(shí)行28km.乙0.75h追上甲
- 9雙重否定句怎么改
- 10有一吊車,纏繞其上的鋼絲繩的最大承受力為10^3牛,次吊車能否勻速提升重為2.8×10^3牛的小轎車要公式
- 11已知直線L與直線y=-2x+8的交點(diǎn)橫坐標(biāo)為2,與直線y=-2x-8的交點(diǎn)縱坐標(biāo)為7,求直線L解析式.
- 12六(1)班男生人數(shù)的五分之二等于女生的七分之四,男生比女生多9人,這個(gè)班有多少人?