《Delphi数据库开发实例ppt课件.ppt》由会员分享，可在线阅读，更多相关《Delphi数据库开发实例ppt课件.ppt（52页珍藏版）》请在三一办公上搜索。
1、Delphi 数据库开发实例,讲解者：李川,提纲,需求分析和设计后台数据库设计数据库连接配置前台应用开发窗体设计属性设置事件代码编写调试技巧,需求分析,开发学籍管理系统登录验证数据输入数据修改数据查询报表打印数据浏览系统选项帮助文件,数据结构和模块设计,9个表用户名密码表、学生基本信息表、学生注册信息表、班级信息表、课程表、教学计划表、学生成绩表、补考成绩表、专业代码表、课程编号表11个模块系统登录、学生信息输入、课程信息输入、成绩信息输入、数据修改、信息查询、报表打印、窗口浏览、系统设置、帮助说明、退出,学生基本信息表等数据表,学号 XH姓名 XM性别 XB见 Initialization.
2、sql 文件,数据库连接,创建ODBC数据源,ODBC 数据源,打开ODBC数据源窗口,新建ODBC用户数据源,设置ODBC数据源,各自SQL Server 服务器的名字,选择验证方式,选择密码验证,选择默认数据库,选择默认数据库名字,新数据源建立,选择默认消息语言集,测试连接,测试数据源的连接,自动建立别名,系统自动建立 BDE 别名,启动窗体制作,防置 Panel、Image、Label 等控件设置相关属性,保存文件,Xueji.dprDenglu.unit,修改主程序代码,添加若干行,设计登录窗口,设计登录窗口,Image 组件Picture属性Stretch 属性,设计登录窗口,Pan
3、el 组件Edit 组件Label 组件Button 组件,放置一个Table组件,OnClick事件的代码,OnClick 事件代码,OpenSetKeyFieldByNameGotoKeyTerminateMessageBoxSetFocus,主窗体设计,菜单设计MainMenuPopupMenu菜单编辑器使用TMenuItemCaptionEnabledShortCut,主窗体设计,MainMenu 组件Image 组件StatusBar 组件,Menu 组件的使用,StatusBar 的OnShow 事件,StatusBar 组件,OnShow 事件procedure TMainFor
4、m.FormShow(Sender:TObject);begin Statusbar1.SimpleText:=欢迎进入学生学籍管理系统;end;,班级信息窗体,Panel 组件Edit 组件Label 组件Button 组件,班级信息窗体,OnClick事件,Update Table,Table.openTable.appendFieldsfieldname:=xxx;Table.post,班级信息窗体,OnClick事件,Clearing Controls,Edit.Text:=combobox1.Text:=;,班级信息窗体,OnClick事件,Close Form,Close;,OnS
5、how 事件填充Combobox,填充Combobox列表,table.Open;table.First;for i:=1 to table.RecordCount do begin combobox.Items.Add(table.FieldValuesXXX);table.Next;end;,主窗体添加相应菜单项单击事件,procedure TMainForm.N17Click(Sender:TObject);begin BJForm.ShowModal;end;,学生信息,Panel 组件Edit 组件Label 组件Button 组件,学生信息,DateTimePicker组件,Dat
6、eTimePicker,Win32 组件板CalAlignmentCalColorsDateFormatDateModeKindDateTimeDateTime,学生信息,OnShow 事件填充Combobox,填充Combobox列表,table.Open;table.First;for i:=1 to table.RecordCount do begin combobox.Items.Add(table.FieldValuesXXX);table.Next;end;,学生信息,输入信息,追加信息,Table.openTable.appendFieldsfieldname:=xxx;Table.post,学生信息,清空控件信息,清空控件内容,Edit.Clear;Combobox.Clear;,学生信息,清空控件信息,关闭窗体,Close,学生注册表,Panel 组件Edit 组件Label 组件Button 组件,学生注册表,ListBox,学生注册表,ComboBox的选择事件填充ListBox1,
