论文网
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文
本论文是一篇关于数据库方面本科毕业论文范文,关于修改文收费最新修改,最新修改相关专科毕业论文范文。免费优秀的关于数据库及管理系统及主治医生方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
:TMenuItem,N25:TMenuItem,
ImageList1:TImageList,
Timer1:TTimer,
b_go1:TButton,
GroupBox4:TGroupBox,
GroupBox5:TGroupBox,
GroupBox6:TGroupBox,
Image2:TImage,
Image3:TImage,
Memo1:TMemo,
GroupBox7:TGroupBox,
GroupBox8:TGroupBox,
GroupBox9:TGroupBox,
Label4:TLabel,
Label5:TLabel,
Image4:TImage,
Image5:TImage,
GroupBox10:TGroupBox,
GroupBox11:TGroupBox,
GroupBox12:TGroupBox,
Image6:TImage,
Image7:TImage,
Image8:TImage,
ToolButton11:TToolButton,
ADOQuery1:TADOQuery,
procedureFormClose(Sender:TObject,varAction:TCloseAction),
procedureb_go1Click(Sender:TObject),
procedureb_go2Click(Sender:TObject),
procedureFormShow(Sender:TObject),
procedureTimer1Timer(Sender:TObject),
procedurejishibenclick(sender:tobject),
procedurecalculateclick(sender:tobject),
procedureyaopinglclick(sender:tobject),
procedureImage2Click(Sender:TObject),
proceduremenzhenglclick(sender:tobject),
procedureImage3Click(Sender:TObject),
procedureToolButton9Click(Sender:TObject),
procedureImage4Click(Sender:TObject),
procedureImage5Click(Sender:TObject),
procedureLabel5Click(Sender:TObject),
procedureywryzbglclick(sender:tobject),
procedureToolButton8Click(Sender:TObject),
procedureImage6Click(Sender:TObject),
procedureImage7Click(Sender:TObject),
procedureImage8Click(Sender:TObject),
proceduretuichuclick(sender:tobject),
procedureN20Click(Sender:TObject),
procedureN22Click(Sender:TObject),
procedureToolButton11Click(Sender:TObject),
procedureN16Click(Sender:TObject),
procedureToolButton3Click(Sender:TObject),
procedureN23Click(Sender:TObject),
procedureN26Click(Sender:TObject),
private
{Privatedeclarations}
public
{Publicdeclarations}
end,
var
main1:Tmain1,
implementation
{$R*.dfm}usesmzgh,mzshg,login,book,calculate1,yaorukugl,yaochukugldan,
ywrydj,ksgl11,zwgl11,zbgl11,zyxkgl11,zyglzong11,cygl11,yzgl11,mimagai11,yztjgl11,
jinzhanggl11,dmshuju11,connect,
procedureTmain1.FormClose(Sender:TObject,varAction:TCloseAction),
begin
application.Terminate,
end,
procedureTmain1.b_go1Click(Sender:TObject),
begin
mzghd:等于tmzghd.Create(application),
mzghd.Show,
end,
procedureTmain1.b_go2Click(Sender:TObject),
begin
mzshgf:等于tmzshgf.Create(application),
mzshgf.Show,
end,
procedureTmain1.FormShow(Sender:TObject),
begin
statusbar1.Panels[0].Text:等于'μ±°2ù×÷±:',
statusbar1.Panels[2].Text:等于FormatDateTime('"μí3ê±￡o"yyyy-mm-dd""hh:nn:ss""mmmm""dddd',now),
statusbar1.Panels[1].Text:等于''+login.Form1.DBEdit1.Text,
statusbar1.Panels[3].Text:等于'èíta·￠￡oa¨',
timer1.Enabled:等于true,
tabsheet5.Visible:等于true,
tabsheet6.Visible:等于false,
tabsheet7.Visible:等于false,
tabsheet9.Visible:等于false,
tabsheet10.Visible:等于false,
tabsheet5.Caption:等于'1üàí',
pagecontrol2.Refresh,
end,
procedureTmain1.Timer1Timer(Sender:TObject),
begin
statusbar1.Panels[2].Text:等于FormatDateTime('"μí3ê±￡o"yyyy-mm-dd""hh:nn:ss""mmmm""dddd',now),
end,
proceduretmain1.jishibenclick(sender:tobject),
begin
book.jishiben:等于book.Tjishiben.Create(application),
ifbook.jishiben.ShowModal等于mrokthen
begin
book.jishiben.Memo1.Lines.SaveToFile('love.txt'),
book.jishiben.Free,
toolbutton5.Down:等于false,
end,
end,
proceduretmain1.calculateclick(sender:tobject),
begin
calculate1.calculate:等于calculate1.Tcalculate.Create(application),
calculate1.calculate.Show,
end,
proceduretmain1.yaopinglclick(sender:tobject),
begin
iftoolbutton7.Downthen
begin
tabsheet6.Visible:等于true,
tabsheet5.Visible:等于false,
tabsheet7.Visible:等于false,
tabsheet9.Visible:等于false,
tabsheet10.Visible:等于false,
tabsheet5.Caption:等于'ò·1üàí',
pagecontrol2.Refresh,
end,
end,
procedureTmain1.Image2Click(Sender:TObject),
begin
yaorukugl.rukuf:等于yaorukugl.Trukuf.Create(application),
yaorukugl.rukuf.Show,
yaorukugl.flag:等于true,
end,
proceduretmain1.menzhenglclick(sender:tobject),
begin
iftoolbutton2.Downthen
begin
tabsheet5.Visible:等于true,
tabsheet6.Visible:等于false,
tabsheet7.Visible:等于false,
tabsheet9.Visible:等于false,
tabsheet10.Visible:等于false,
tabsheet5.Caption:等于'1üàí',
pagecontrol2.Refresh,
end,
end,
procedureTmain1.Image3Click(Sender:TObject),
begin
yaochukugldan.yaochukugl:等于yaochukugldan.Tyaochukugl.Create(application),
yaochukugldan.yaochukugl.Show,
end,
procedureTmain1.ToolButton9Click(Sender:TObject),
begin
iftoolbutton9.Downthen
begin
tabsheet9.Visible:等于true,
tabsheet6.Visible:等于false,
tabsheet7.Visible:等于false,
tabsheet5.Visible:等于false,
tabsheet10.Visible:等于false,
tabsheet5.Caption:等于'òè±1üàí',
pagecontrol2.Refresh,
end,
end,
pr
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文参考文献资料：