Delphi数据库开发实例

Delphi数据库开发实例讲解者：李川提纲•需求分析和设计•后台数据库设计•数据库连接配置•前台应用开发–窗体设计–属性设置–事件代码编写–调试技巧需求分析•开发学籍管理系统–登录验证–数据输入–数据修改–数据查询–报表打印–数据浏览–系统选项–帮助文件数据结构和模块设计•9个表–用户名密码表、学生基本信息表、学生注册信息表、班级信息表、课程表、教学计划表、学生成绩表、补考成绩表、专业代码表、课程编号表•11个模块–系统登录、学生信息输入、课程信息输入、成绩信息输入、数据修改、信息查询、报表打印、窗口浏览、系统设置、帮助说明、退出学生基本信息表等数据表•学号XH•姓名XM•性别XB•…•见Initialization.sql文件数据库连接•创建ODBC数据源ODBC数据源打开ODBC数据源窗口新建ODBC用户数据源设置ODBC数据源各自SQLServer服务器的名字选择验证方式选择密码验证选择默认数据库选择默认数据库名字新数据源建立选择默认消息语言集测试连接测试数据源的连接自动建立别名系统自动建立BDE别名启动窗体制作•防置Panel、Image、Label等控件•设置相关属性保存文件•Xueji.dpr•Denglu.unit修改主程序代码添加若干行设计登录窗口设计登录窗口Image组件Picture属性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事件StatusBar组件•OnShow事件•procedureTMainForm.FormShow(Sender:TObject);•begin•Statusbar1.SimpleText:='欢迎进入学生学籍管理系统';•end;班级信息窗体Panel组件Edit组件Label组件Button组件……班级信息窗体OnClick事件UpdateTable•Table.open•Table.append•Fields[‘fieldname’]:=xxx;•…•Table.post•…班级信息窗体OnClick事件ClearingControls•Edit.Text:=‘’•…•combobox1.Text:='';•…班级信息窗体OnClick事件CloseForm•Close;OnShow事件填充Combobox填充Combobox列表•table.Open;•table.First;•fori:=1totable.RecordCountdo•begin•combobox.Items.•Add(table.FieldValues[‘XXX']);•table.Next;•end;主窗体添加相应菜单项单击事件•procedureTMainForm.N17Click(Sender:TObject);•begin•BJForm.ShowModal;•end;学生信息Panel组件Edit组件Label组件Button组件……学生信息DateTimePicker组件DateTimePicker•Win32组件板•CalAlignment•CalColors•DateFormat•DateMode•Kind•Date•Time•DateTime学生信息OnShow事件填充Combobox填充Combobox列表•table.Open;•table.First;•fori:=1totable.RecordCountdo•begin•combobox.Items.•Add(table.FieldValues[‘XXX']);•table.Next;•end;学生信息输入信息追加信息•Table.open•Table.append•Fields[‘fieldname’]:=xxx;•…•Table.post•…学生信息清空控件信息清空控件内容•Edit.Clear;•Combobox.Clear;学生信息清空控件信息关闭窗体•Close学生注册表Panel组件Edit组件Label组件Button组件……学生注册表ListBox学生注册表ComboBox的选择事件填充ListBox1