Delphi数据库开发实例.pptVIP

Delphi 数据库开发实例 讲解者：李川 收集整理 提纲 需求分析和设计 后台数据库设计 数据库连接配置 前台应用开发 窗体设计 属性设置 事件代码编写 调试技巧 需求分析 开发学籍管理系统 登录验证 数据输入 数据修改 数据查询 报表打印 数据浏览 系统选项 帮助文件 数据结构和模块设计 9个表 用户名密码表、学生基本信息表、学生注册信息表、班级信息表、课程表、教学计划表、学生成绩表、补考成绩表、专业代码表、课程编号表 11个模块 系统登录、学生信息输入、课程信息输入、成绩信息输入、数据修改、信息查询、报表打印、窗口浏览、系统设置、帮助说明、退出 学生基本信息表等数据表 学号 XH 姓名 XM 性别 XB … 见 Initialization.sql 文件 数据库连接 创建ODBC数据源 打开ODBC数据源窗口 新建ODBC用户数据源 设置ODBC数据源 选择验证方式 选择默认数据库 新数据源建立 测试连接 自动建立别名 启动窗体制作 防置 Panel、Image、Label 等控件 设置相关属性 保存文件 Xueji.dpr Denglu.unit 修改主程序代码 设计登录窗口 设计登录窗口 设计登录窗口 OnClick 事件代码 Open SetKey FieldByName GotoKey Terminate MessageBox SetFocus 主窗体设计 菜单设计 MainMenu PopupMenu 菜单编辑器 使用 TMenuItem Caption Enabled ShortCut 主窗体设计 MainMenu 组件 Image 组件 StatusBar 组件 StatusBar 组件 OnShow 事件 procedure TMainForm.FormShow(Sender: TObject); begin Statusbar1.SimpleText:=欢迎进入学生学籍管理系统; end; 班级信息窗体 班级信息窗体 Update Table Table.open Table.append Fields[‘fieldname’]:=xxx; … Table.post … 班级信息窗体 Clearing Controls Edit.Text:=‘’ … combobox1.Text :=; … 班级信息窗体 Close Form Close; 填充Combobox列表 table.Open; table.First; for i:=1 to table.RecordCount do begin combobox.Items. Add(table.FieldValues[‘XXX]); table.Next; end; 主窗体添加相应菜单项单击事件 procedure TMainForm.N17Click(Sender: TObject); begin BJForm.ShowModal; end; 学生信息 学生信息 DateTimePicker Win32 组件板 CalAlignment CalColors DateFormat DateMode Kind Date Time DateTime 学生信息 填充Combobox列表 table.Open; table.First; for i:=1 to table.RecordCount do begin combobox.Items. Add(table.FieldValues[‘XXX]); table.Next; end; 学生信息 追加信息 Table.open Table.append Fields[‘fieldname’]:=xxx; … Table.post … 学生信息 清空控件内容 Edit.Clear; Combobox.Clear; 学生信息 关闭窗体 Close 学生注册表 学生注册表 学生注册表 Query控件的使用 with Query do begin close; sql.Clear; sql.Add(select clause); parambyname(‘XX).AsString :=combobox1.Text; prepare;