Delphi数据库开发实例

1、Delphi 数据库开发实例,讲解者：李川,提纲,需求分析和设计 后台数据库设计 数据库连接配置 前台应用开发 窗体设计 属性设置 事件代码编写 调试技巧,需求分析,开发学籍管理系统 登录验证 数据输入 数据修改 数据查询 报表打印 数据浏览 系统选项 帮助文件,数据结构和模块设计,9个表 用户名密码表、学生基本信息表、学生注册信息表、班级信息表、课程表、教学计划表、学生成绩表、补考成绩表、专业代码表、课程编号表 11个模块 系统登录、学生信息输入、课程信息输入、成绩信息输入、数据修改、信息查询、报表打印、窗口浏览、系统设置、帮助说明、退出,学生基本信息表等数据表,学号 XH 姓名 XM 性别

2、 XB 见 Initialization.sql 文件,数据库连接,创建ODBC数据源,ODBC 数据源,打开ODBC数据源窗口,新建ODBC用户数据源,设置ODBC数据源,各自SQL Server 服务器的名字,选择验证方式,选择密码验证,选择默认数据库,选择默认数据库名字,新数据源建立,选择默认消息语言集,测试连接,测试数据源的连接,自动建立别名,系统自动建立 BDE 别名,启动窗体制作,防置 Panel、Image、Label 等控件 设置相关属性,保存文件,Xueji.dpr Denglu.unit,修改主程序代码,添加若干行,设计登录窗口,设计登录窗口,Image 组件 Pictur

3、e属性 Stretch 属性,设计登录窗口,Panel 组件 Edit 组件 Label 组件 Button 组件,放置一个Table组件,OnClick事件的代码,OnClick 事件代码,Open SetKey FieldByName GotoKey Terminate MessageBox SetFocus,主窗体设计,菜单设计 MainMenu PopupMenu 菜单编辑器 使用 TMenuItem Caption Enabled ShortCut,主窗体设计,MainMenu 组件 Image 组件 StatusBar 组件,Menu 组件的使用,StatusBar 的OnShow

4、 事件,StatusBar 组件,OnShow 事件 procedure TMainForm.FormShow(Sender: TObject); begin Statusbar1.SimpleText:=欢迎进入学生学籍管理系统; end;,班级信息窗体,Panel 组件 Edit 组件 Label 组件 Button 组件 ,班级信息窗体,OnClick事件,Update Table,Table.open Table.append Fieldsfieldname:=xxx; Table.post ,班级信息窗体,OnClick事件,Clearing Controls,Edit.Text:=

5、 combobox1.Text :=; ,班级信息窗体,OnClick事件,Close Form,Close;,OnShow 事件 填充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;

6、end;,学生信息,Panel 组件 Edit 组件 Label 组件 Button 组件 ,学生信息,DateTimePicker 组件,DateTimePicker,Win32 组件板 CalAlignment CalColors DateFormat DateMode Kind Date Time DateTime,学生信息,OnShow 事件 填充Combobox,填充Combobox列表,table.Open; table.First; for i:=1 to table.RecordCount do begin combobox.Items. Add(table.FieldValuesXXX); table.Next; end;,学生信息,输入信息,追加信息,Table.open Table.append Fieldsfieldname:=xxx; Table.post ,学生信息,清空控件信息,清空控件内容,Edit.Clear; Combobox.Clear;,学生信息,清空控件信