论文网
关于数据库类论文范文数据库,与数据库检索资料查询相关论文格式范文
本论文是一篇关于数据库类论文格式范文,关于数据库检索资料查询相关在职毕业论文范文。免费优秀的关于数据库及管理系统及计算机方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
等于'''+Edit_Sno.Text+'''and密码等于'''+Edit_password.Text+'''',exec_SQL(ADOQuery_temp,sqlstring,4),
ifADOQuery_temp.RecordCount<,>,0then
begin
ifadoquery_temp.FieldByName('职务').AsString等于'管理人员'then
begin
Form_login.Hide,
Form_main.ShowModal,
end
else
begin
form_login.Hide,
usefrm.showmodal,
end,
//登录成功后将登录按钮的modalResult值置为mrOK,将返回一个值给主窗体
end,
借出统计的程序:
procedureTForm_Tongji_Jc.FormCreate(Sender:TObject),
var
i,j:integer,
begin
series1.Clear,
t_jiechu1.Open,
i:等于t_jiechu1.RecordCount,
t_jiechu1.Close,
t_jiechu2.Open,
j:等于t_jiechu2.RecordCount-i,
t_jiechu2.Close,
t_jiechu1.Free,
t_jiechu2.Free,
Series1.Add(i,'已借出',clTeeColor),
Series1.Add(j,'未借出',clTeeColor),
end,
主菜单程序:
procedureTForm_main.basickickClick(Sender:TObject),
begin
Form_jilu.ShowModal,
end,
procedureTForm_main.N7Click(Sender:TObject),
begin
self.close,
end,
procedureTForm_main.borrowkickClick(Sender:TObject),
begin
Form_Jieyong.ShowModal,
end,
procedureTForm_main.kickClick(Sender:TObject),
begin
Form_Tongxun.ShowModal,
end,
procedureTForm_main.codekickClick(Sender:TObject),
begin
//Form_Code.ShowModal,
end,
procedureTForm_main.statekickClick(Sender:TObject),
begin
Form_Tongji_State.Show,
end,
procedureTForm_main.isoutkickClick(Sender:TObject),
begin
Form_Tongji_Jc.Show,
end,
procedureTForm_main.sortkickClick(Sender:TObject),
begin
Form_Assort.Show,
end,
procedureTForm_main.ToolButton1Click(Sender:TObject),
begin
basickick.Click,
end,
procedureTForm_main.ToolButton3Click(Sender:TObject),
begin
borrowkick.Click,
end,
procedureTForm_main.ToolButton5Click(Sender:TObject),
begin
//codekick.Click,
end,
procedureTForm_main.ToolButton7Click(Sender:TObject),
begin
kick.Click,
end,
procedureTForm_main.ToolButton8Click(Sender:TObject),
begin
statekick.Click,
end,
procedureTForm_main.ToolButton10Click(Sender:TObject),
begin
isoutkick.Click,
end,
procedureTForm_main.ToolButton12Click(Sender:TObject),
begin
sortkick.Click,
end,
procedureTForm_main.ToolButton4Click(Sender:TObject),
begin
borrowfrm.show,
end,
procedureTForm_main.ToolButton15Click(Sender:TObject),
begin
returnfrm.show,
end,
procedureTForm_main.ToolButton19Click(Sender:TObject),
begin
close,
form_login.show,
form_login.Edit_Sno.Text:等于'',
form_login.Edit_password.Text:等于'',
end,
end.
2
I
28
3
3
1
福州大学本科生毕业设计(论文)
设备仪器管理信息系统的设计和实现
25
34
33
关于数据库类论文范文数据库,与数据库检索资料查询相关论文格式范文参考文献资料：