论文网
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文
本论文是一篇关于数据库方面本科毕业论文范文,关于修改文收费最新修改,最新修改相关专科毕业论文范文。免费优秀的关于数据库及管理系统及主治医生方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
DOQuery1.Next,end,
dm_login.ADOQuery1.First,
c_username.Text:等于'2ù×÷±',
c_username.ItemIndex:等于-1,
flag:等于0,
end,
procedureTForm1.e_passwordKeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
b_register.Click,
end,
procedureTForm1.b_cancelClick(Sender:TObject),
begin
c_username.ItemIndex:等于-1,
c_username.Text:等于'2ù×÷±',
e_password.Text:等于'',
end,
procedureTForm1.b_registerClick(Sender:TObject),
begin
flag:等于flag+1,
dm_login.ADOQuery1.Close,
dm_login.ADOQuery1.SQL.Clear,
dm_login.ADOQuery1.SQL.Add('select*fromμ±íwhere2ù×÷±D等于'),
dm_login.ADOQuery1.SQL.Add(''''+c_username.Items[c_username.itemindex]+''''),
dm_login.ADOQuery1.Open,
dbedit1.DataField:等于dm_login.ADOQuery1.FieldList[1].DisplayName,
dbedit2.DataField:等于dm_login.ADOQuery1.FieldList[2].DisplayName,
dbedit3.DataField:等于dm_login.ADOQuery1.FieldList[3].DisplayName,
ifdm_login.ADOQuery1.RecordCount等于0then
begin
showmessage('D2ù×÷±'),
b_cancel.Click,
end
elsebegin
if(trim(dbedit2.Text))<,>,(trim(e_password.Text))then
begin
showmessage('ü′íó,2ù×÷ê °ü！'),
b_cancel.Click,
end
elsebegin
form1.Hide,
main1.Show,
iftrim(login.Form1.DBEdit3.Text)<,>,'1'then
begin
main1.ToolButton11.Enabled:等于false,
main1.N20.Enabled:等于false,
main1.N30.Enabled:等于false,
end,
exit,
end,
end,
ifflag等于3then
begin
showmessage('μ3ê±,2ù×÷ê °ü'),
application.Terminate,
end,
end,
procedureTForm1.c_usernameChange(Sender:TObject),
begin
form1.e_password.SetFocus,
end,
end.
门诊部挂号管理代码:
unitmzgh,
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,jpeg,ExtCtrls,
type
Tmzghd等于class(TForm)
Panel1:TPanel,
Edit1:TEdit,
GroupBox1:TGroupBox,
Label1:TLabel,
Label2:TLabel,
Label3:TLabel,
Label4:TLabel,
Label5:TLabel,
Label6:TLabel,
Label7:TLabel,
Image1:TImage,
e_bianhao:TEdit,
e_name:TEdit,
e_grade:TEdit,
e_date:TEdit,
e_jine:TEdit,
c_keshi:TComboBox,
c_leixing:TComboBox,
GroupBox2:TGroupBox,
Image2:TImage,
Panel2:TPanel,
b_mit:TButton,
b_resume:TButton,
b_print:TButton,
b_exit:TButton,
procedureFormShow(Sender:TObject),
procedureb_exitClick(Sender:TObject),
proceduree_nameChange(Sender:TObject),
proceduree_gradeChange(Sender:TObject),
procedurec_leixingClick(Sender:TObject),
procedurec_keshiChange(Sender:TObject),
procedureb_mitClick(Sender:TObject),
proceduree_nameKeyPress(Sender:TObject,varKey:Char),
proceduree_gradeKeyPress(Sender:TObject,varKey:Char),
procedureb_resumeClick(Sender:TObject),
private
{Privatedeclarations}
public
{Publicdeclarations}
end,
var
mzghd:Tmzghd,
implementation
{$R*.dfm}usesdmshoufei,
procedureTmzghd.FormShow(Sender:TObject),
vari:integer,
begin
image2.Visible:等于false,
b_mit.Enabled:等于false,
dmshoufei.dm_mz.ADOkeshi.Close,
dmshoufei.dm_mz.ADOkeshi.SQL.Clear,
dmshoufei.dm_mz.ADOkeshi.SQL.Add('select*fromêò±í'),
dmshoufei.dm_mz.ADOkeshi.Open,
dmshoufei.dm_mz.ADOkeshi.Active:等于true,
c_keshi.Items.Clear,
fori:等于0todmshoufei.dm_mz.ADOkeshi.RecordCount-1do
begin
c_keshi.Items.Add(dmshoufei.dm_mz.ADOkeshi.Fields[1].asstring),
dmshoufei.dm_mz.ADOkeshi.Next,
end,
dmshoufei.dm_mz.ADOkeshi.First,
c_keshi.Text:等于'êò3',
c_keshi.ItemIndex:等于-1,
dmshoufei.dm_mz.ADOleixing.Close,
dmshoufei.dm_mz.ADOleixing.SQL.Clear,
dmshoufei.dm_mz.ADOleixing.SQL.Add('select*from1òoààDí'),
dmshoufei.dm_mz.ADOleixing.Open,
dmshoufei.dm_mz.ADOleixing.Active:等于true,
c_leixing.Items.Clear,
fori:等于0todmshoufei.dm_mz.ADOleixing.RecordCount-1do
begin
c_leixing.Items.Add(dmshoufei.dm_mz.ADOleixing.Fields[1].asstring),
dmshoufei.dm_mz.ADOleixing.Next,
end,
c_leixing.ItemIndex:等于-1,
c_leixing.Text:等于'1òoààDí',
e_name.Text:等于'',
e_grade.Text:等于'',
e_jine.Text:等于'',
dmshoufei.dm_mz.ADOshoufei.Close,
dmshoufei.dm_mz.ADOshoufei.SQL.Clear,
dmshoufei.dm_mz.ADOshoufei.SQL.Add('select*from1òo±í'),
dmshoufei.dm_mz.ADOkeshi.Open,
dmshoufei.dm_mz.ADOshoufei.Active:等于true,
dmshoufei.dm_mz.ADOshoufei.Last,
e_bianhao.Text:等于inttostr(dmshoufei.dm_mz.ADOshoufei.Fields[0].AsInteger+1),
e_date.Text:等于formatdatetime('yyyy-mm-dd',now),
e_name.SetFocus,
end,
procedureTmzghd.b_exitClick(Sender:TObject),
begin
close,
end,
procedureTmzghd.e_nameChange(Sender:TObject),
begin
b_mit.Enabled:等于(e_name.Text<,>,'')and(e_grade.Text<,>,''),
end,
procedureT
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文参考文献资料：