论文网
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文
本论文是一篇关于数据库方面本科毕业论文范文,关于修改文收费最新修改,最新修改相关专科毕业论文范文。免费优秀的关于数据库及管理系统及主治医生方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
ocedureTmain1.Image4Click(Sender:TObject),begin
ywrydj.register1:等于ywrydj.Tregister1.Create(application),
ywrydj.register1.Show,
end,
procedureTmain1.Image5Click(Sender:TObject),
begin
ksgl11.keshigldd:等于ksgl11.Tkeshigldd.Create(application),
ksgl11.keshigldd.Show,
end,
procedureTmain1.Label5Click(Sender:TObject),
begin
zwgl11.zhiwugl:等于zwgl11.Tzhiwugl.Create(application),
zwgl11.zhiwugl.Show,
end,
proceduretmain1.ywryzbglclick(sender:tobject),
begin
zbgl11.ywzbgl:等于zbgl11.Tywzbgl.Create(application),
zbgl11.ywzbgl.Show,
end,
procedureTmain1.ToolButton8Click(Sender:TObject),
begin
iftoolbutton8.Downthen
begin
tabsheet7.Visible:等于true,
tabsheet6.Visible:等于false,
tabsheet5.Visible:等于false,
tabsheet9.Visible:等于false,
tabsheet10.Visible:等于false,
tabsheet5.Caption:等于'×o1üàí',
pagecontrol2.Refresh,
end,
end,
procedureTmain1.Image6Click(Sender:TObject),
begin
zyxkgl11.zyyjgl:等于zyxkgl11.Tzyyjgl.Create(application),
zyxkgl11.zyyjgl.Show,
end,
procedureTmain1.Image7Click(Sender:TObject),
begin
zyglzong11.zyglzong:等于zyglzong11.Tzyglzong.Create(application),
zyglzong11.zyglzong.Show,
end,
procedureTmain1.Image8Click(Sender:TObject),
begin
cygl11.cygl:等于cygl11.Tcygl.Create(application),
cygl11.cygl.Show,
end,
proceduretmain1.tuichuclick(sender:tobject),
begin
application.Terminate,
end,
procedureTmain1.N20Click(Sender:TObject),
begin
yzgl11.yhzcgl:等于yzgl11.Tyhzcgl.Create(application),
yzgl11.yhzcgl.Show,
end,
procedureTmain1.N22Click(Sender:TObject),
begin
mimagai11.mimagai:等于mimagai11.Tmimagai.Create(application),
mimagai11.mimagai.Show,
end,
procedureTmain1.ToolButton11Click(Sender:TObject),
begin
yztjgl11.yztjgl:等于yztjgl11.Tyztjgl.Create(application),
yztjgl11.yztjgl.Show,
end,
procedureTmain1.N16Click(Sender:TObject),
begin
jinzhanggl11.jinzhanggl:等于jinzhanggl11.Tjinzhanggl.Create(application),
jinzhanggl11.jinzhanggl.Show,
end,
procedureTmain1.ToolButton3Click(Sender:TObject),
begin
application.Terminate,
end,
procedureTmain1.N23Click(Sender:TObject),
begin
dmshuju11.dmshuju.ADOQuery1.Close,
//dmshuju11.dmshuju.ADOQuery1.connectionstring:等于'provider等于sqloledb.1,persistsecurityinfo等于false,userid等于sa,initialcatalog等于data',
//Provider等于SQLOLEDB.1,PersistSecurityInfo等于False,UserID等于sa,InitialCatalog等于data,DataSource等于.,UseProcedureforPrepare等于1,AutoTranslate等于True,PacketSize等于4096,WorkstationID等于TOND_MO,UseEncryptionforData等于False,Tagwithcolumncollationwhenpossible等于False
try
withdmshuju11.dmshuju.ADOQuery1do
begin
close,
sql.Clear,
sql.Add('backupdatabasedatatodisk等于''e:\±òμéè\D￡òoê·1üàíμí3\êyY±·Y\data.bak'''),
execsql,
end,
showmessage('±·Y3é1|'),
except
one:exceptiondo
showmessage('±·Yê °ü'),
end,
end,
procedureTmain1.N26Click(Sender:TObject),
begin
ADOQuery1.Close,
ADOQuery1.ConnectionString:等于'Provider等于SQLOLEDB.1,PersistSecurity',
ADOQuery1.ConnectionString:等于ADOQuery1.ConnectionString+'Info等于False,UserID等于sa,InitialCatalog等于master,DataSource等于.,UseProcedure',
ADOQuery1.ConnectionString:等于ADOQuery1.ConnectionString+'forPrepare等于1,AutoTranslate等于True,PacketSize等于4096,WorkstationID等于TOND_MO,UseEncryptionforData等于False,Tagwithcolumncollationwhenpossible等于False',
try
withADOQuery1do
begin
close,
sql.Clear,
sql.Add('restoredatabasedatafromdisk等于''e:\±òμéè\D￡òoê·1üàíμí3\êyY±·Y\data.bak'''),
execsql,
end,
showmessage('1-3é1|'),
except
one:exceptiondo
showmessage('1-ê °ü'),
end,
end,
end.
登陆界面代码:
unitlogin,
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,Buttons,jpeg,ExtCtrls,ComCtrls,Mask,DBCtrls,
type
TForm1等于class(TForm)
RichEdit1:TRichEdit,
GroupBox2:TGroupBox,
Image1:TImage,
GroupBox1:TGroupBox,
Label1:TLabel,
Label2:TLabel,
e_password:TEdit,
b_register:TBitBtn,
b_cancel:TBitBtn,
c_username:TComboBox,
DBEdit1:TDBEdit,
DBEdit2:TDBEdit,
DBEdit3:TDBEdit,
procedureFormShow(Sender:TObject),
proceduree_passwordKeyPress(Sender:TObject,varKey:Char),
procedureb_cancelClick(Sender:TObject),
procedureb_registerClick(Sender:TObject),
procedurec_usernameChange(Sender:TObject),
private
{Privatedeclarations}
public
{Publicdeclarations}
end,
var
Form1:TForm1,
flag:integer,
implementation
{$R*.dfm}usesdmlogin,main,
procedureTForm1.FormShow(Sender:TObject),
vari:integer,
begin
dm_login.ADOQuery1.Close,
dm_login.ADOQuery1.SQL.Clear,
dm_login.ADOQuery1.SQL.Add('select*fromμ±í'),
dm_login.ADOQuery1.Open,
dm_login.ADOQuery1.Active:等于true,
dm_login.ADOQuery1.First,
c_username.Items.Clear,
fori:等于0todm_login.ADOQuery1.RecordCount-1do
begin
c_username.Items.Add(dm_login.ADOQuery1.Fields[1].asstring),
dm_login.A
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文参考文献资料：