文件名称:宿舍管理系统论文
文件大小:2.84MB
文件格式:DOCX
更新时间:2015-08-03 04:01:18
宿舍管理系统
宿舍管理系统 示例:学生信息维护窗口 图4.1学生信息维护窗口图 procedure TForm3.Button1Click(Sender: TObject); begin adotable1.Append//添加“添加”按钮,添加数据信息 end; procedure TForm3.Button2Click(Sender: TObject); begin adotable1.UpdateStatus//添加“修改”按钮,修改信息 end; procedure TForm3.Button3Click(Sender: TObject); begin adotable1.Delete//添加“删除”按钮,删除信息 end; procedure TForm3.Button4Click(Sender: TObject); begin adotable1.Post//添加“确认”按钮,确定信息修改或添加或删除 end;[12] 4.3创建数据库查询窗口 示例:宿舍管理系统综合查询窗口 个人信息综合查询 procedure TForm27.Button1Click(Sender: TObject); begin adoquery1.SQL.Clear; adoquery1.SQL.Add('select Student.Sno,Sname,Ssex,Sage,Sdept,Ssp,SD.Dfloor,SD.Droom,SD.bed from Student,SD where Student.Sno=SD.Sno and '+ComboBox1.Text+' = '''+edit1.Text+''''); adoquery1.Open;//根据输入的学生信息,查询学生的个人信息 end;