论文网
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文
本论文是一篇关于数据库方面本科毕业论文范文,关于修改文收费最新修改,最新修改相关专科毕业论文范文。免费优秀的关于数据库及管理系统及主治医生方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
mzghd.e_gradeChange(Sender:TObject),begin
b_mit.Enabled:等于(e_name.Text<,>,'')and(e_grade.Text<,>,''),
end,
procedureTmzghd.c_leixingClick(Sender:TObject),
begin
dmshoufei.dm_mz.ADOleixing.Close,
dmshoufei.dm_mz.ADOleixing.SQL.Clear,
dmshoufei.dm_mz.ADOleixing.SQL.Add('select*from1òoààDíwhereààDí3等于'),
dmshoufei.dm_mz.ADOleixing.SQL.Add(''''+c_leixing.Items[c_leixing.itemindex]+''''),
dmshoufei.dm_mz.ADOleixing.Open,
e_jine.Text:等于floattostr(dmshoufei.dm_mz.ADOleixing.Fields[2].AsFloat),
b_mit.SetFocus,
end,
procedureTmzghd.c_keshiChange(Sender:TObject),
begin
c_leixing.SetFocus,
end,
procedureTmzghd.b_mitClick(Sender:TObject),
begin
dmshoufei.dm_mz.ADOshoufei.Append,
dmshoufei.dm_mz.ADOshoufei.Fields[1].AsString:等于e_name.Text,
dmshoufei.dm_mz.ADOshoufei.Fields[2].AsString:等于e_grade.Text,
dmshoufei.dm_mz.ADOshoufei.Fields[3].AsDateTime:等于strtodate(e_date.Text),
dmshoufei.dm_mz.ADOshoufei.Fields[4].AsString:等于c_keshi.Items[c_keshi.itemindex],
dmshoufei.dm_mz.ADOshoufei.Fields[5].AsString:等于c_leixing.Items[c_leixing.itemindex],
dmshoufei.dm_mz.ADOshoufei.Fields[6].AsFloat:等于strtofloat(e_jine.Text),
dmshoufei.dm_mz.ADOshoufei.Post,
dmshoufei.dm_mz.ADOshoufei.Last,
image2.Visible:等于true,
b_mit.Enabled:等于false,
end,
procedureTmzghd.e_nameKeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
e_grade.SetFocus,
end,
procedureTmzghd.e_gradeKeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
c_keshi.SetFocus,
end,
procedureTmzghd.b_resumeClick(Sender:TObject),
begin
dmshoufei.dm_mz.ADOshoufei.Last,
e_bianhao.Text:等于inttostr(dmshoufei.dm_mz.ADOshoufei.Fields[0].AsInteger+1),
e_name.Text:等于'',
e_grade.Text:等于'',
c_keshi.ItemIndex:等于-1,
c_leixing.ItemIndex:等于-1,
c_keshi.Text:等于'êò3',
c_leixing.Text:等于'1òoààDí',
e_jine.Text:等于'',
e_date.Text:等于formatdatetime('yyyy-mm-dd',now),
e_name.SetFocus,
b_mit.Enabled:等于false,
image2.Visible:等于false,
end,
end.
门诊部收费,划价管理代码:
unitmzshg,
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,ExtCtrls,Grids,DBGrids,ToolWin,ComCtrls,
type
Tmzshgf等于class(TForm)
Panel1:TPanel,
ToolBar1:TToolBar,
GroupBox1:TGroupBox,
Panel2:TPanel,
Panel3:TPanel,
Panel4:TPanel,
Label1:TLabel,
Edit1:TEdit,
Edit2:TEdit,
Label2:TLabel,
Label3:TLabel,
Edit3:TEdit,
Label4:TLabel,
ComboBox2:TComboBox,
GroupBox2:TGroupBox,
Label5:TLabel,
DBGrid1:TDBGrid,
Panel5:TPanel,
Bevel2:TBevel,
Panel6:TPanel,
Label6:TLabel,
DBGrid2:TDBGrid,
DBGrid3:TDBGrid,
Label7:TLabel,
Label8:TLabel,
ComboBox1:TComboBox,
Label9:TLabel,
Edit5:TEdit,
Label10:TLabel,
Edit6:TEdit,
Label11:TLabel,
Edit7:TEdit,
Label12:TLabel,
Edit8:TEdit,
Label13:TLabel,
Edit9:TEdit,
Button5:TButton,
Label14:TLabel,
ListBox1:TListBox,
Edit4:TEdit,
Edit10:TEdit,
Label15:TLabel,
Label16:TLabel,
Edit11:TEdit,
Edit12:TEdit,
Panel7:TPanel,
Button1:TButton,
Button2:TButton,
Button3:TButton,
Button4:TButton,
Label17:TLabel,
procedureFormShow(Sender:TObject),
procedureEdit1KeyPress(Sender:TObject,varKey:Char),
procedureComboBox1Click(Sender:TObject),
procedureListBox1DblClick(Sender:TObject),
procedureEdit5KeyPress(Sender:TObject,varKey:Char),
procedureButton1Click(Sender:TObject),
procedureButton2Click(Sender:TObject),
procedureButton5Click(Sender:TObject),
procedureEdit10KeyPress(Sender:TObject,varKey:Char),
procedureButton3Click(Sender:TObject),
procedureButton4Click(Sender:TObject),
procedureEdit8KeyPress(Sender:TObject,varKey:Char),
procedureDBGrid1DrawColumnCell(Sender:TObject,constRect:TRect,
DataCol:Integer,Column:TColumn,State:TGridDrawState),
procedureDBGrid2DrawColumnCell(Sender:TObject,constRect:TRect,
DataCol:Integer,Column:TColumn,State:TGridDrawState),
procedureDBGrid3DrawColumnCell(Sender:TObject,constRect:TRect,
DataCol:Integer,Column:TColumn,State:TGridDrawState),
private
{Privatedeclarations}
public
{Publicdeclarations}
end,
var
mzshgf:Tmzshgf,
implementation
{$R*.dfm}usesdmmzshg,login,
procedureTmzshgf.FormShow(Sender:TObject),
vari:integer,
begin
edit1.Text:等于'',
edit2.Text:等于'',
edit3.Text:等于'',
edit4.Text:等于'',
edit5.Text:等于'',
edit6.Text:等于'',
edit7.Text:等于'',
edit8.Text:等于'',
edit9.Text:等于'',
edit10.Text:
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文参考文献资料：