①建立Access数据库
先新建一个数据库(access):建立Microsoft Access->命名为Text->否->打开->设计(添加学生所需信息)->表保存命名为lm(information)->否
②进行ADO配置
“开始” -> “程序” -> “Borland Delphi 7” ->“File” ->“Open Project” ->“Project1” -> Ctrl+F12选择“Main” ,按F12后出现MainForm窗体:
1)在程序主窗体MainForm上放置一个 “ADOConnection1”在Properties里LoginPrompt的属性设为false;ConnectionString ->Use ConnectionString 点Build” ->“Microsoft Jet 40 OLE DB Provider”后点“下一步”,选择创建的Access 2003 数据库的路径->“测试连接”出现成功后点“确定”->ok;Connected属性设为True;
2)在主窗体上放一个“ADOTable1”属性Connection->ADOConnection1,属性TableName->lm,属性Active->T(简称阀门);
3) 在主窗体上放DataSource1->DataSet->ADOTable1;4)在主窗体上放一个-DBGrid1-->DataSource->DataSource1;
①splashForm在工程文件(dpr)中核心代码
SplashForm := TSplashFormCreate(Application); //启动屏创建
ApplicationCreateForm(TMainForm, MainForm); //创建主窗体
ApplicationCreateForm(TLoginForm, LoginForm); //创建用户验证窗体
SplashFormClose; //关闭启动屏窗体
SplashFormFree; //释放启动屏窗体所占的内存
②loginForm核心代码
LoginFormModalResult := mrOK; //确定按钮,可以进入主界面
LoginFormModalResult := mrCancel; //取消按钮
③mainForm 核心代码
1) 在Onshow中的核心代码:
LoginFormShowModal;
if LoginFormModalResult = mrCancel then
ApplicationTerminate //(登陆界面进入主界面的过程中只要用户名密码都对时,登陆界面自动消失)
2) 在录入按钮的核心代码:
ADOQuery1SQLClear;
ADOQuery1SQLAdd('Insert Into lm(num, name, sex,
shijian,class,zhuzhi,link,gs,yy,jsj)');
ADOQuery1SQLAdd('Values (:snum,:sname,:ssex,:sshijian,
:sclass,:szhuzhi,:slink,:sgs,:syy,:sjsj)');
ADOQuery1ParametersParamByName('sNum')Value := Edit1Text;
(输入学生的基本信息跟各科成绩后,点“录入”,便可在DBGrid1中添加所输入的信息)。
3) 在修改按钮的核心代码:
ADOQuery1SQLClear;
ADOQuery1SQLAdd(‘Update lm');
ADOQuery1SQLAdd(‘set num=:snum, name=:sname sex=:ssex,shijian=:sshijian,class=:sclass,zhuzhi=:szhuzhi,link=:slink,gs=:sgs; yy=:syy,jsj=:sjsj');
ADOQuery1SQLAdd(‘ Where Num = :sNum2');
ADOQuery1ParametersParamByName(‘snum')Value := Edit11Text;
(在“输入要修改的学号”处输入某学号,再重新输入该基本信息与各科成绩,点击即可)。
4) 在删除按钮的核心代码:
ADOQuery1SQLClear;
ADOQuery1SQLAdd(‘Delete From lm Where num = :snum');
ADOQuery1ParametersParamByName(‘snum')Value := Edit1Text;
ADOQuery1ExecSQL;
showmessage(‘ok'); //d出对话框,提示 *** 作成功
(输入学号,即可删除该学号的全部信息)。
5) 在查询按钮的核心代码:
ADOQuery2Close;
ADOQuery2SQLClear;
ADOQuery2SQLAdd(‘Select From lm Where num = :snum');
ADOQuery2ParametersParamByName(‘snum')Value :=Edit1Text;
ADOQuery2Open
(通过输入学号,点击“查询”按钮后即可查询该学号对应的信息)。
6) 刷新核心代码:
ADOTable1Close ;
ADOTable1Open; //对录入,修改,删除,查询的 *** 作数据进行刷新。
以上就是关于求一个。net(C#)+sql网上学生成绩查询系统(毕业设计)全部的内容,包括:求一个。net(C#)+sql网上学生成绩查询系统(毕业设计)、在sql server 中,怎么对车牌号进行完整约束的、数据库课程设计 图书馆管理系统等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)