一个很菜很菜的问题 (50分)

新

新手入门

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #1

procedure TForm1.Button1Click(Sender: TObject);

begin
table1.active:=true;
table1.edit;
table1.append;
table1.FieldByName('bm').Asstring:=edit1.text;
table1.fieldbyname('xm').asstring:=edit2.text;
table1.fieldbyname('rq').asdatetime:=data.date;
Table1.post;

end;
我想通过messagedlg('是否继续添加数据吗？',mtconfirmation,mbyesnocancel,0)元件
来重复曾加记录，但不知循环语句怎么写，还望各位大哥帮帮忙。谢谢

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #2

while true do
begin
...
if MessageDlg('Welcome to my Object Pascal application. Exit now?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then exit;

end;

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #3

var
xw:boolean; //询问
begin
table1.active:=true;
xw:=true; //默认出现询问提示
while xw=true do
begin
if messagedlg('是否继续添加数据吗？',mtconfirmation,mbyesnocancel,0)=mryes then
begin
table1.append;
table1.FieldByName('bm').Asstring:=edit1.text;
table1.fieldbyname('xm').asstring:=edit2.text;
table1.fieldbyname('rq').asdatetime:=data.date;
Table1.post;
xw:=true;
end //以上部分为选择“是”时增加数据，默认继续出现询问提示
else
xw:=false; // 其他情况退出，不再出现提示，不再增加数据
end;
end;


建议：
每次增加数据都询问用户并不好，会让用户感觉很麻烦，影响操作的流畅性，
尤其是集中录入数据时更会让用户觉得不方便;

 

新

新手入门

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #4

[Error] Unit1.pas(33): Declaration expected but 'WHILE' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

出现这样的错误该怎么办？

 

M

mylover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #5

请使用INSERT INTO 语句

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #6

xw:=true后是否少了分号？

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #7

检查语法，应该有部分语法出现错误
可能在WHILE 的前一条语句最后少了个";"

 

新

新手入门

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #8

谢谢各位啦

 

F

form1.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #9

来重复曾加记录，但不知循环语句怎么写
这句话是什么意思

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #10

定义一个全局变量 sltMyList: TStringList来保存数据，一个bRepeatInput: boolean;
来表示是不是要重复输入（也就是你的messagedlg的返回值）;
procedure yourDataSetBeforeInsert(DataSet: TDataSet);
var
i: integer;
begin
inherited;
sltMyList.Clear;
if bRepeatInput then
for i := 0 to DataSet.FieldCount - 1 do
begin
if not DataSet.Fields.ReadOnly then
sltMyList.Add(DataSet.Fields.AsString);
end;
end;

procedure yourDataSetAfterInsert(DataSet: TDataSet);
var
i, j: integer;
begin
if bRepeatInput then
begin
j := 0;
for i := 0 to DataSet.FieldCount - 1 do
if not DataSet.Fields.ReadOnly then
begin
DataSet.Fields.AsString := sltMyList.Strings[j];
inc(j);
end;
end;

 

新

新手入门

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #11

lanbing1400大哥，我照你的输进去运后还是报错，也不知道什么原因。
另，当选择YES后又该如何写一个类似if key = 13 then edit1.SetFocus这样的ONKEYDOWN
事件，把光标跳到EDIT1那里去呢？谢谢

还有就是WUMENG大哥写的太深奥了，都看不明白。

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #12

>>当选择YES后又该如何写一个类似if key = 13 then edit1.SetFocus这样的ONKEYDOWN
事件，把光标跳到EDIT1那里去呢？谢谢

if messagedlg('是否继续添加数据吗？',mtconfirmation,mbyesnocancel,0)=mryes then
begin
table1.append;
edit1.SetFocus;// 这里就行了。
table1.FieldByName('bm').Asstring:=edit1.text;