第一筆不會顯示在dbedit中… |
|
bastard
一般會員 發表:13 回覆:19 積分:6 註冊:2002-03-18 發送簡訊給我 |
各位高手~
想請你們幫個忙,我寫的程式出現了一個小問題,
那就是我使用了三個query,我顯示資料的方式是用dbedit來顯示,
但當我執行到第二個query時,我的dbedit不會顯示出query2的
第一筆資料,第三個query也是發生同樣的問題,能否請各位高手幫我
看看我的程式那裡有問題?謝謝!
以下為我部份的程式碼:
procedure TForm1.Button1Click(Sender: TObject);
begin
if query1.Eof then
begin
query2.Open;
dbedit1.DataSource:=datasource2;
dbedit2.DataSource:=datasource2;
dbedit3.DataSource:=datasource2;
dbedit4.DataSource:=datasource2;
dbedit1.DataField:='員工編號';
dbedit2.DataField:='姓名';
dbedit3.DataField:='到職日期';
dbedit4.DataField:='職稱';
if query2.Eof then
begin
query3.Open;
dbedit1.DataSource:=datasource3;
dbedit2.DataSource:=datasource3;
dbedit3.DataSource:=datasource3;
dbedit4.DataSource:=datasource3;
dbedit1.DataField:='員工編號';
dbedit2.DataField:='姓名';
dbedit3.DataField:='到職日期';
dbedit4.DataField:='職稱';
if query3.Eof then
begin
button2.Show;
button1.Hide;
end
else
begin
j:='';
k:=0.0;
x[i,0]:=dbedit1.Text; //員工編號
x[i,1]:=dbedit2.Text; //姓名
x[i,2]:='1'; //年資權數
query3.Next;
end;
end
else
begin
j:='';
k:=0.0;
x[i,0]:=dbedit1.Text; //員工編號
x[i,1]:=dbedit2.Text; //姓名
x[i,2]:='1'; //年資權數
query2.Next;
end;
end
else
begin
j:='';
k:=0.0;
x[i,0]:=dbedit1.Text; //員工編號
x[i,1]:=dbedit2.Text; //姓名
x[i,2]:='1'; //年資權數
query1.Next;
end;
end; ps:這是我第一次寫delphi資料庫的程式,所以程式又臭又長的,讓各位高手
見笑了!希望各位高手能幫個忙!謝謝! [Delphi]=*VaKa*=is~me
------
[Delphi]=*VaKa*=is~me |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |