Delphi的编程问题
建立一个数据库表（student.db）利用Table控件的各种方法，编写程序可以对表内容进行追加、插入、删除、保存等编辑操作。能在Delphi7下运行，有完整源代码.
全部回答
form1。Tag := 0;
combobox1。Tag := 0;
combobox1。Clear ;
label1。Caption := format(#13+'重新开始!'+#13+#13+#13+'正确率为:'+#13+#13+'%f%%',[0。
00]); edit2。SetFocus; end; procedure TForm1。FormActivate(Sender: TObject); var a, b, p, t : integer; begin Randomize; a := Trunc(10 + Random(90)); b := Trunc(10 + Random(90)); p := Trunc(Random(2)); if p = 0 then begin Edit1。
text := format('%3d +%3d =', [a,b]); edit1。Tag := a + b; // 将本题答案放入edit1。
Tag中 end else begin If a < b Then begin t := a; a := b; b := t; end; begin Edit1。
text := format('%3d -%3d =', [a,b]); edit1。Tag := a - b; // 将本题答案放入edit1。
Tag中 end; end; edit2。SelStart := 0; edit2。 Text := ''; edit2。SetFocus; end; procedure TForm1。
Edit2KeyPress(Sender: TObject; var Key: Char); var x : single; s : string; begin if key = #13 then begin Form1。
Tag := Form1。Tag + 1; if strtoint(edit2。Text) = edit1。Tag then begin combobox1。
Items。Insert(0,format(edit1。 text + '%3s √',[edit2。text])); combobox1。Tag := combobox1。
Tag + 1; end else combobox1。Items。Insert(0,format(edit1。 text + '%3s ×',[edit2。
text])); combobox1。ItemIndex :=0; Form1。FormActivate(sender); x := combobox1。
Tag * 100 / (form1。 Tag); s := #13 + '共做%d题' + #13 + #13 + #13 + '正确率为:' + #13 + #13 + '%f%%'; label1。
Caption := format(s,[form1。tag,x]) end;。 。
00]); edit2。SetFocus; end; procedure TForm1。FormActivate(Sender: TObject); var a, b, p, t : integer; begin Randomize; a := Trunc(10 + Random(90)); b := Trunc(10 + Random(90)); p := Trunc(Random(2)); if p = 0 then begin Edit1。
text := format('%3d +%3d =', [a,b]); edit1。Tag := a + b; // 将本题答案放入edit1。
Tag中 end else begin If a < b Then begin t := a; a := b; b := t; end; begin Edit1。
text := format('%3d -%3d =', [a,b]); edit1。Tag := a - b; // 将本题答案放入edit1。
Tag中 end; end; edit2。SelStart := 0; edit2。 Text := ''; edit2。SetFocus; end; procedure TForm1。
Edit2KeyPress(Sender: TObject; var Key: Char); var x : single; s : string; begin if key = #13 then begin Form1。
Tag := Form1。Tag + 1; if strtoint(edit2。Text) = edit1。Tag then begin combobox1。
Items。Insert(0,format(edit1。 text + '%3s √',[edit2。text])); combobox1。Tag := combobox1。
Tag + 1; end else combobox1。Items。Insert(0,format(edit1。 text + '%3s ×',[edit2。
text])); combobox1。ItemIndex :=0; Form1。FormActivate(sender); x := combobox1。
Tag * 100 / (form1。 Tag); s := #13 + '共做%d题' + #13 + #13 + #13 + '正确率为:' + #13 + #13 + '%f%%'; label1。
Caption := format(s,[form1。tag,x]) end;。 。
热点推荐
热度TOP
-
这是怎么回事做爱过后第二天发现白带有点血丝？
2301人阅读
-
-
身上痒痒预示10种大病是哪些啊
38人阅读
-
能瞒得住吗？。。。
39人阅读
-
嘉兴联勤男科医院好不好呢？
0人阅读
-
什么方法增高会对身体有伤害？
100人阅读
相关推荐
加载中...