武职参考 Delphi课程设计实训报告.docVIP

Delphi课程设计实训报告 姓名：王照 学号 班级：信管10301 指导老师：何定华 2012-10-8 实训目的 实训步骤 1、将SQLServer认证方式改为双模式认证，服务器设置1545，用户名设置为sa，密码设置为123456。 2、创建数据库cjgl,创建表cj1,cj2，向表中插入数据。 创建数据库和表 向表中插入数据 3、新建文件夹eg3用于管理Delphi文件和数据库文件 4、将BusinessSkinForm安装文件拷贝到C:\Program Files\Borland\Delphi7\Lib下，并双击BSFD7.dpk启动Delphi。依次单击Compile和Install。 5、安装sdac370d7(sqlfor70).exe控件 关闭Delphi，进行安装 6、关于Delphi的详细操作步骤如下 将Form1的Caption改为“登录” 为Form1添加三个bsSkinStdLabel，三个Edit,两个Button。一个MSConnection控件，一个bsBusinessSkinForm控件，一个bsSkinData1控件，一个bsStoredSkin控件。 将MSConnection1的Password属性设置为123456，将Server属性设置1545，将Username设置为sa。 创建Form2，将Form2的Caption属性设置为“学生成绩管理系统”。在Form2上添加Panel1，Panel2，Panel3，Panel4，DataSource1控件，MSTable11控件，bsBusinessSkinForm1控件。将Panel1的Align属性设置为alTop，将Panel2的Align属性设置为alLeft,将Panel3的Align属性设置为alClient，将Panel4的Align属性设置为alTop。 在Panel4上依次添加两个Label将其Caption属性设置为“学生成绩管理系统” 在Panel3上添加一个bsSkinStdLabel并将其Caption属性设置为“选择表”，一个bsSkinComboBox，一个Label并将其Caption属性设置为“按学号或姓名查询：”，一个Edit,三个Button且三个Button的Caption属性依次设置为“查询”、“总分”、“设置”。一个bsSkinExPanel，一个bsSkinDBGrid。 在Panel2上添加一个Label，六个bsSkinDBEdit，六个bsSkinDBText。 将DataSource1的Dataset属性设置为MSTable1，将bsBusinessSkinForm1的SkinData属性设置为Form1.bsSkinData1。 创建Form3，将Form2的Caption属性设置为“选择界面”。在Form3中添加一个bsBusinessSkinForm1控件，一个bsSkinComboBox1控件一个Table，如图： 在Unit1中添加一行代码，如图： 在Unit2中添加一行代码，如图： 在Unit3中添加一行代码，如图： 注意：添加了以上代码后MSTable1的connection属性就可以设置为Form1.MSConnection1了。 所有程序代码如下： Unit1中的代码 procedure TForm1.Button1Click(Sender: TObject); begin MSconnection1.Username:=edit1.Text; MSconnection1.Password:=edit2.Text; MSconnection1.Server:=edit3.Text; MSconnection1.Connect; if MSconnection1.Connected then begin MSconnection1.Database:=cj; MSconnection1.GetTableNames(form2.bsSkinComboBox1.Items); form2.show; form1.Hide; end //else //showmassages(无法连接到服务器); end; procedure TForm1.FormCreate(Send