基于Web的科研档案管理系统的设计与实现毕业论文

录入模块程序代码

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);

begin

adoquery1.Close; adoquery1.SQL.Clear;

adoquery1.SQL.Text:='select*from jsqk'; adoquery1.open; end; end; end. 1、登录界面

2、系统主界面

3、管理员管理

4

科研人员管理

5、增加科研人员