用计算器解决的初中数学问题

来源：百度知道 编辑：UC知道 时间：2024/09/26 13:28:02
就是可以用计算器来做的数学题。。。初二的。。。急啊~~请帮忙下~~~谢拉！*^_^*

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Buttons, ComCtrls;

type
TForm1 = class(TForm)

ADOQuery1: TADOQuery;
GroupBox1: TGroupBox;
Edit1: TEdit;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{$R 1.res}

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
if edit1.Text='' then
begin
application.MessageBox('请输入正确信息','提示',64);
exit;
end;
with adoquery1 do
begin
try
close;
sql.Clear;