发布时间 : 2024/7/1 18:49:15 星期一 文章基于Web的科研档案管理系统的设计与实现毕业论文 精品更新完毕开始阅读

据表。 录入模块设计

开 始 选择所需功能 添加记录 删除记录 浏览、移动纪录 输入编号、姓名、性别、年龄等 是否删除 N 记录存在？ Y N Y是否保存 添加记录至表中 删除记录 退出否 N结 束

Y

权限设置模块设计

开 始 选择所需功能 添加用户 删除用户 浏览用户权限 输入用户帐号、密码，选择权限 是否删除 N 记录存在？ Y N Y是否保存 添加记录至表中 删除用户 退出否 N结 束

Y

录入模块程序代码

rocedure TForm1.Button1Click(Sender: TObject); begin //。。。首记录。。。 datasource1.DataSet.First; end;

procedure TForm1.Button2Click(Sender: TObject); begin //。。。上一条。。。 datasource1.DataSet.prior; end;

procedure TForm1.Button3Click(Sender: TObject); begin //。。。末记录。。。 datasource1.DataSet.last; end;

procedure TForm1.Button9Click(Sender: TObject); begin //。。。下一条。。。 datasource1.DataSet.next; end;

procedure TForm1.Button6Click(Sender: TObject); begin //。。。添加新记录。。。

dbedit1.ReadOnly:=false; dbedit2.ReadOnly:=false; dbedit3.ReadOnly:=false; dbedit4.ReadOnly:=false; dbedit5.ReadOnly:=false;

datasource1.DataSet.insert;

showmessage('请在上边的文本框内输入新数据的详细内容'); end;

procedure TForm1.Button8Click(Sender: TObject); begin //。。。取消。。。 datasource1.DataSet.cancel; end;

procedure TForm1.Button10Click(Sender: TObject); begin //。。。关闭窗口。。。

if application.messagebox('Are you sure to close it','sure',MB_OKCANCEL)=IDOK then close ELSE abort; end;

procedure TForm1.Button4Click(Sender: TObject); begin //。。。修改。。。 datasource1.DataSet.Edit; end;

procedure TForm1.Button5Click(Sender: TObject); begin //。。。删除记录。。。

if application.MessageBox('Are you sure to delete it','sure',MB_OKCANCEL)=IDOK then datasource1.dataset.delete else abort; end;

procedure TForm1.FormCreate(Sender: TObject);