求：delphi7代码

急急急！！！用delphi语言做的学生管理系统，只要查询部分的就可以，谢谢！！（数据库是sql server 2000，有数据库连接方法最好了，我新手，学习，求指教）

//全写了注释了, 不懂追问unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;//新建一工程, 放进15个TSpeedButton和一个TEdit然后按照下边的说明设置一下.type TForm1 = class(TForm) //把窗体的KeyPreview属性设置为TRUE  SpeedButton1: TSpeedButton; //表示数字键1, Caption属性设置为1  SpeedButton2: TSpeedButton; //表示数字键2, Caption属性设置为2  SpeedButton3: TSpeedButton; //表示数字键3, Caption属性设置为3  SpeedButton4: TSpeedButton; //表示数字键4, Caption属性设置为4  SpeedButton5: TSpeedButton; //表示数字键5, Caption属性设置为5  SpeedButton6: TSpeedButton; //表示数字键6, Caption属性设置为6  SpeedButton7: TSpeedButton; //表示数字键7, Caption属性设置为7  SpeedButton8: TSpeedButton; //表示数字键8, Caption属性设置为8  SpeedButton9: TSpeedButton; //表示数字键9, Caption属性设置为9  SpeedButton10: TSpeedButton; //表示数字键0, Caption属性设置为0  SpeedButton11: TSpeedButton; //表示小数点., , Caption属性设置为 . 小数点  SpeedButton12: TSpeedButton; //计算结果, 等于(=)号, Caption属性设置为 =  SpeedButton13: TSpeedButton; //加号, Caption属性设置为 + , Tag属性设置为 1  SpeedButton14: TSpeedButton; //减号, Caption属性设置为 - , Tag属性设置为 2  Edit1: TEdit;  //显示计算结果  SpeedButton15: TSpeedButton; //归零(复位)处理  procedure SpeedButton1Click(Sender: TObject);  procedure SpeedButton12Click(Sender: TObject);  procedure SpeedButton13Click(Sender: TObject);  procedure SpeedButton15Click(Sender: TObject);  procedure FormKeyPress(Sender: TObject; var Key: Char); private   public   end; var Form1: TForm1; implementationvar Flag: Boolean = True; //。标记位 Flag1: Integer = 1; //计算方法标志位 num1, num2, result: Real; flagresult: Boolean = False; procedure TForm1.SpeedButton1Click(Sender: TObject); //按住SHIFT键, 再用鼠标点SpeedButton1 至

这个简单。。如果是大系统的话。。可以建一个Date Module窗体，然后将数据库连接文件将在该窗口。其他窗口进行调用。。。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息