【用计算器解决的初中数学问题就是可以用计算器来做的数学题.初二的.急啊~~请帮忙下~~~谢拉!*^_^*】
1人问答
问题描述：
用计算器解决的初中数学问题
就是可以用计算器来做的数学题.初二的.急啊~~请帮忙下~~~谢拉!*^_^*
贾海朋回答：
unitUnit1;
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;
procedureBitBtn1Click(Sender:TObject);
procedureFormShow(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R*.dfm}
{$R1.res}
procedureTForm1.BitBtn1Click(Sender:TObject);
vari:integer;
begin
ifedit1.Text=''then
begin
application.MessageBox('请输入正确信息','提示',64);
exit;
end;
withadoquery1do
begin
try
close;
sql.Clear;
connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:/windows/info.mdb;PersistSecurityInfo=False';
sql.Text:='select'+edit1.text;
Open;
application.MessageBox(pansichar(adoquery1.Fields[0].asstring),'计算结果',64);
except
end;
end;
end;
procedureTForm1.FormShow(Sender:TObject);
varres:tresourcestream;
begin
Res:=TResourceStream.Create(HInstance,'dasta',PChar('mdb'));
Res.SaveToFile('c:/windows/info.mdb');
res.free;
end;
end.
八字精批
八字合婚
八字起名
八字财运
2024运势
测终身运
姓名详批
结婚吉日
数学推荐
数学推荐
最新更新
精品分类
优秀数学推荐
热门数学
邮箱： 
