修改文收费最新修改,最新修改

毕业设计(论文)

-----莫建坡

计算机系.02级电子与信息技术专业

(DELPHI)数据库管理系统

(目录)

第一部分引言

------------------------------------------任务或问题:

------------------------------------------实际背景:

------------------------------------------我的工作

------------------------------------------特色(创新)

第二部分毕业设计课题

------------------------------------------设计课题

------------------------------------------设计时间

------------------------------------------设计人员及任务

------------------------------------------指导老师

------------------------------------------设计内容

第三部分系统方案论证

3.1------------------------------------------软件定义

3.2---------------------------------------------------------体系结构规划

第四部分毕业设计内容

4.1-------------------------------------------功能模块分析

4.2-------------------------------------------模块1功能实现

4.3-------------------------------------------模块2功能实现

4.4-------------------------------------------模块3功能实现

4.5-------------------------------------------模块4功能实现

4.6-------------------------------------------模块5功能实现

4.7-------------------------------------------数据库分析

4.8-------------------------------------------系统界面实现

第五部分毕业设计心得体会

第六部分附录

6.1-------------------------------------------代码部分

7.0和MSServer2000等软件为开发工具,通过对计算机硬件和软件解决方案的论证,对应用领域进行调查分析,参考各种资料和进行数据库编程实践.在我指导老师的帮助下,已经基本上成功地实现了设计任务书的要求.使得设计的数据库系统能够实现一般数据库的管理.我们研究了数据库的查询优化问题.

第一部分引言

1.1任务或问题:

开发一个医院门诊收费管理系统,可以实现动态的连接应用程序服务器,只要对配置文件进行配置,就可以像网上邻居一样选择所要连接的应用程序服务器.并能实现门诊收费,划价,药品管理,住院管理,

医务人员管理及各种查询,报表等功能.

1.2实际背景:

随着社会发展,人类的生产,生活越来越离不开信息.谁拥有了更多更有效的信息,谁就将在竞争中处于有利地位.信息产业正在成为一个国家的支柱.数据作为信息的载体,其管理工具数据库对于信息技术的重要性,正日益得到人们的重视.只有拥有了先进的数据库技术,才能有效地管理好浩如烟海的数据,并从中提取出对自己有用的信息来加以利用

管理要求查询要求

管理结果查询结果

(顶层数据流图)

数据库设计过程

数据库的设计过程如下图所示.在数据库设计过程中,需求分析和概念设计可以独立于任何数据库管理系统进行.逻辑设计和物理设计与具体的数据库管理系统密切相关.由于需求分析比较重要.我们在设计的时候,花了比较多的时间.在获得这些资料之后,进行分析.从中提取有用的部分.分析各种用户的权限.

需求分析说明书

概念数据库模式

独立于数据(高级数据模型)

库管理系统

与数据库管

理系统相关

逻辑数据库模式

(特定数据模型)

物理数据库模式

(特定的物理存储结构和存取方式)

图:数据库设计过程

系统模块图:

第四部分毕业设计内容

4.1-------------------------------------------功能模块分析

门诊收费管理模块图:

药品管理模块图:

住院管理模块图:

医务人员管理模块图:

辅助资料管理模块图:

系统设置模块图:

帐目管理模块:

4.2-------------------------------------------模块1功能实现

门诊收费管理:

门诊收费管理主要完成:病人挂号,药品收费,划价,等功能管理,并且能够对药房药品进行动态的调整,

所使用的数据表:

挂号表:

3挂号编号int40

1病人姓名char200

1病人班级char301

1挂号日期datetime80

1挂号科室char200

1挂号类型char200

1挂号金额money80

门诊收费明细表:

2编号int40

0挂号编号int40

0收费名称char250

0计量单位char100

0数量int40

0收费单价money80

0收费金额money80

1药品种类char101

门诊收费结算表:

2编号int40

0挂号编号int40

0患者姓名char200

0结算日期datetime80

0西药费money81

0中药费money81

0中成药费money81

0手术费money81

0输液费money81

0检查费money81

0治疗费money81

0化验费money81

0拍片费money81

0其它费money81

0主治医生char201

1总费用额money81

挂号功能界面:

门诊收费,划价管理功能界面:

门诊流程图:

4.3-------------------------------------------模块2功能实现

药品管理主要完成:药品的入库,出库,库存统计,药品管理:

所使用的数据表:

药品入库总表:

2入库总表编号int40

0入库操作员char200

0入库日期datetime80

1入库备注text161

药品入库明细表:

2入库明细编号int40

0入库总表编号int40

0药品名称char300

0药品种类char100

0计量单位char100

0药品出厂日期datetime81

0药品过期日期datetime81

0进货日期datetime81

0进货公司int41

0药品单价money80

0药品数量int40

1药品总金额money80

药品出库表:

2编号int40

0出库操作员char200

0出库日期datetime80

0出库药品名char250

0出库药品种类char101

0出库money80

0出库数量int40

1备注text161

药商表:

2药商编号int40

1药商公司名char300

药品库存表:

2编号int40

0药品名称char251

0药品种类char101

0生产日期datetime81

0过期日期datetime81

0计量单位char101

0药品进价money81

0药品售价money81

0药品数量int41

1备注text161

药品入库功能界面:

药品填写单界面:

药品出库功能界面:

药品管理流程图:

4.4-------------------------------------------模块3功能实现

住院管理功能实现:住院预交款,住院收费,医药管理,住院结算管理,

所用的数据表:

预交款信息表:

2编号int40

0交款姓名char201

0预交金额money80

0交款次数int40

0交款日期datetime80

1病房号int40

住院收费明细表:

2编号int40

0病房号int40

0收费名称char300

0种类char100

0数量int40

0单价money80

1金额money81

住院收费结算表:

2编号int40

0病房号int40

0病人姓名char200

0收费日期datetime80

0主治医生char200

0药费money81

0手术费money81

0病房费money81

0其它费money81

1总金额money81

出院结算信息表:

2编号int40

0病房号int40

0出院日期datetime80

0住院总金额money80

1找还金额money81

预交款信息功能界面:

住院收费,划价,医药管理功能界面:

出院管理功能界面:

4.5-------------------------------------------模块4功能实现

医务人员管理功能实现:医务人员注册,修改,维护,值班维护及各科室部门维护等

所用到的数据表:

医务人员信息表:

2编号int40

0姓名char200

0部门科室char200

0职务char300

0联系char151

0星期1bit10

0星期2bit10

0星期3bit10

0星期4bit10

0星期5bit10

0星期6bit10

1星期7bit10

医生表:

2编号int40

0医生姓名char200

1医生职务char250

工作休息代码表:

2编号int40

1休息值char100

科室表:

2科室号int40

1科室名char300

职务表:

2编号int40

1职务名称char200

医务人员管理功能界面:

值班人员管理功能界面:

科室维护功能界面:

部门维护功能界面:

4.6-------------------------------------------模块5功能实现

院长查询管理:药品整体调价控制,单个药品调价控制,用户注册管理等功能,

药品调价控制管理界面:

用户注册界面:

4.7-------------------------------------------数据库

数据库所用到的数据表 :

CREATETABLE[住院收费明细表](

CREATETABLE[住院收费结算表](

CREATETABLE[出院结算信息表](

CREATETABLE[医务人员信息表](

CREATETABLE[医生表](

CREATETABLE[工作休息代码表](

CREATETABLE[当日进帐表](

CREATETABLE[挂号类型](

CREATETABLE[挂号表](

CREATETABLE[病房状态表](

CREATETABLE[登陆表](

CREATETABLE[科室表](

CREATETABLE[职务表](

CREATETABLE[药品入库总表](

CREATETABLE[药品入库明细表](

CREATETABLE[药品公司表](

CREATETABLE[药品出库表](

CREATETABLE[药品库存表](

CREATETABLE[门诊收费明细表](

CREATETABLE[门诊收费结算表](

CREATETABLE[预交款信息表](

能够对数据库进行备份,还原操作等功能,

4.8-------------------------------------------系统界面实现

系统界面主要是对各功能界面实现中转,间接管理,

系统功能界面:

根据用户需求:增加了一个计算器,和简单记话本,

用户登陆界面:

第五部分毕业设计心得体会及结论

在老师的指导下.本次毕业设计,就要画上一个句号了.可是,对我来说,这次设计的本身所产生的影响,还远远没有结束,我从本次毕业设计中学到了许多课本上没有的知识.从设计任务书的下达到今天基本实现任务书中的设计要求,时间已整整过去了1个月.在这1个月中.通过自己的学习和努力,通过各位老师的指导和教育,使我不仅仅在知识水平和解决实际问题的能力上有了很大的提高.还从思想的深处体会到,要把自己的所学变成现实时所将面对的种种难题.

由于我平时的课程理论知识学的还可以,我总是认为自己的知识水平已经能处理许多的现实问题了.而当自己真正的深入到设计实践当中,深入到问题当中时.我竟然发现自己无从下手,我开始怀疑我是否真正的学到了知识.也只有到了那个时候,我才真正体会到学会运用自己的能力与知识是何等的重要,知识是在课堂上,老师教授的,在书本中学到的,实践则是要自己动手,自己去做才能掌握.

在老师们的关心和帮助下,我渐渐的开始了设计.根据老师的建议,我找来了数据库设计与建设的相关书籍和资料,从最基本的问题入手开始一个个的解决我心中的疑惑.这是一个漫长的学习过程.随着时间的推移,我开始慢慢的掌握了设计时所需要的知识.我也终于明白了大学三年学习的意义和作用.扎实的基本功和良好的学习习惯,能使自己在学习新知识有更深刻的认识力和更快的领会力.

同时老师对毕业设计的重视也是我能完成设计的一个重要条件.为了保证我们毕业设计的正常进行,学院抽调了优秀的老师指导我们进行毕业设计,提供良好的设备给我们,在软硬件上支持我们进行毕业设计,并且不时地询问我们毕业设计的进展情况.为我们这次设计的正常开展提供了必要的物质基础.

关于本次设计的命题,我的设计只能提供其基本的功能.还有许多的设想由于时间和自身和因素无法得以实现,这不能不说是本次设计的遗憾之处.不过,至少它已经启发了自己的思维,提高了我的动手能力,这是我在课本中学不到的.它为我们在以后的工作岗位上发挥自己的才能奠定了坚实的基础.

第六部分附录

6.1-------------------------------------------代码部分

系统界面代码:

unitmain,

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,ExtCtrls,ImgList,Menus,ComCtrls,ToolWin,jpeg,StdCtrls,DB,

ADODB,

type

Tmain1等于class(TForm)

Panel1:TPanel,

PageControl2:TPageControl,

TabSheet5:TTabSheet,

StaticText5:TStaticText,

GroupBox1:TGroupBox,

label_gh:TLabel,

Label_mzbagl:TLabel,

Label_cxhbb:TLabel,

GroupBox2:TGroupBox,

Label1:TLabel,

Label2:TLabel,

Label3:TLabel,

b_go2:TButton,

GroupBox3:TGroupBox,

RichEdit1:TRichEdit,

TabSheet6:TTabSheet,

TabSheet7:TTabSheet,

TabSheet9:TTabSheet,

TabSheet10:TTabSheet,

Panel2:TPanel,

PageControl1:TPageControl,

TabSheet1:TTabSheet,

Image1:TImage,

TabSheet2:TTabSheet,

TabSheet3:TTabSheet,

StatusBar1:TStatusBar,

ToolBar1:TToolBar,

ToolButton1:TToolButton,

ToolButton2:TToolButton,

ToolButton7:TToolButton,

ToolButton8:TToolButton,

ToolButton6:TToolButton,

ToolButton9:TToolButton,

ToolButton5:TToolButton,

ToolButton10:TToolButton,

ToolButton4:TToolButton,

ToolButton3:TToolButton,

MainMenu1:TMainMenu,

N11:TMenuItem,

N1:TMenuItem,

N2:TMenuItem,

N3:TMenuItem,

N4:TMenuItem,

N21:TMenuItem,

N5:TMenuItem,

N6:TMenuItem,

N7:TMenuItem,

N27:TMenuItem,

objectN17TMenuItem1:TMenuItem,

N28:TMenuItem,

N29:TMenuItem,

N31:TMenuItem,

N8:TMenuItem,

N9:TMenuItem,

N10:TMenuItem,

N12:TMenuItem,

N41:TMenuItem,

N51:TMenuItem,

N13:TMenuItem,

N14:TMenuItem,

N15:TMenuItem,

N52:TMenuItem,

N16:TMenuItem,

N61:TMenuItem,

N71:TMenuItem,

N20:TMenuItem,

N22:TMenuItem,

N23:TMenuItem,

N24:TMenuItem,

N26:TMenuItem,

N30:TMenuItem,

N72 :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}usezgh,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.SeToFile('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 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 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 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: 等于'',

edit11.Text:等于'',

edit12.text:等于'0',

dmmzshg.dm_mzshg.ADOyisheng.Close,

dmmzshg.dm_mzshg.ADOyisheng.SQL.Clear,

dmmzshg.dm_mzshg.ADOyisheng.SQL.Add('select*fromòéú±í'),

dmmzshg.dm_mzshg.ADOyisheng.Open,

bobox2.Items.Clear,

fori:等于0todmmzshg.dm_mzshg.ADOyisheng.RecordCount-1do

begin

bobox2.Items.Add(dmmzshg.dm_mzshg.ADOyisheng.Fields[1].asstring),

dmmzshg.dm_mzshg.ADOyisheng.Next,

end,

bobox2.Text:等于'òéúD',

bobox2.ItemIndex:等于-1,

dmmzshg.dm_mzshg.ADOkucun.Close,

dmmzshg.dm_mzshg.ADOkucun.SQL.Clear,

dmmzshg.dm_mzshg.ADOkucun.SQL.Add('select*fromò·a′±í'),

dmmzshg.dm_mzshg.ADOkucun.Open,

dmmzshg.dm_mzshg.adojiesuan.Close,

dmmzshg.dm_mzshg.adojiesuan.SQL.Clear,

dmmzshg.dm_mzshg.adojiesuan.SQL.Add('select*fromê·á±í'),

dmmzshg.dm_mzshg.adojiesuan.Open,

dmmzshg.dm_mzshg.adojiesuan.Last,

dmmzshg.dm_mzshg.adomingxi.Close,

dmmzshg.dm_mzshg.adomingxi.SQL.Clear,

dmmzshg.dm_mzshg.adomingxi.SQL.Add('select*fromê·÷±í'),

dmmzshg.dm_mzshg.adomingxi.Open,

dmmzshg.dm_mzshg.adomingxi.Last,

dmmzshg.dm_mzshg.ADOchaxun.Close,

dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear,

dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('selectdistinctò·ààfromò·a′±í'),

dmmzshg.dm_mzshg.ADOchaxun.Open,

bobox1.Items.Clear,

fori:等于0todmmzshg.dm_mzshg.ADOchaxun.RecordCount-1do

begin

bobox1.Items.Add(dmmzshg.dm_mzshg.ADOchaxun.Fields[0].asstring),

dmmzshg.dm_mzshg.ADOchaxun.Next,

end,

bobox1.Text:等于'ê·',

bobox1.ItemIndex:等于-1,

end,

procedureTmzshgf.Edit1KeyPress(Sender:TObject,varKey:Char),

begin

ifkey等于#13then

begin

dmmzshg.dm_mzshg.ADOchaxun.Close,

dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear,

dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('select*from1òo±íwhere1òo±ào等于'),

dmmzshg.dm_mzshg.ADOchaxun.SQL.Add(''''+edit1.Text+''''),

dmmzshg.dm_mzshg.ADOchaxun.Open,

ifdmmzshg.dm_mzshg.ADOchaxun.RecordCount<,>,0then

begin

edit2.Text:等于dmmzshg.dm_mzshg.ADOchaxun.Fields[1].AsString,

edit3.Text:等于datetostr(dmmzshg.dm_mzshg.ADOchaxun.Fields[3].AsDateTime),

end,

edit12.Text:等于'0',

end,

end,

procedureTmzshgf.ComboBox1Click(Sender:TObject),

vari:integer,

ss:string,

begin

ss:等于bobox1.Items[bobox1.itemindex],

dmmzshg.dm_mzshg.ADOchaxun.Close,

dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear,

dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('selectò·3fromò·a′±íwhereò·àà等于'),

dmmzshg.dm_mzshg.ADOchaxun.SQL.Add(''''+ss+''''),

dmmzshg.dm_mzshg.ADOchaxun.Open,

ifdmmzshg.dm_mzshg.ADOchaxun.RecordCount<,>,0then

begin

listbox1.Items.Clear,

fori:等于0todmmzshg.dm_mzshg.ADOchaxun.RecordCount-1do

begin

listbox1.Items.Add(dmmzshg.dm_mzshg.ADOchaxun.Fields[0].asstring),

dmmzshg.dm_mzshg.ADOchaxun.Next,

end,

end,

edit5.Text:等于'',

edit6.Text:等于'',

edit7.Text:等于'',

edit8.Text:等于'',

end,

procedureTmzshgf.ListBox1DblClick(Sender:TObject),

begin

edit8.Text:等于listbox1.Items[listbox1.itemindex],

edit5.SetFocus,

dmmzshg.dm_mzshg.ADOchaxun.Close,

dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear,

dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('select*fromò·a′±íwhereò·3等于'),

dmmzshg.dm_mzshg.ADOchaxun.SQL.Add(''''+edit8.Text+''''),

dmmzshg.dm_mzshg.ADOchaxun.Open,

ifdmmzshg.dm_mzshg.ADOchaxun.RecordCount<,>,0then

begin

edit9.Text:等于dmmzshg.dm_mzshg.ADOchaxun.Fields[5].AsString,

edit6.Text:等于floattostr(dmmzshg.dm_mzshg.ADOchaxun.Fields[7].AsFloat),

end,

end,

procedureTmzshgf.Edit5KeyPress(Sender:TObject,varKey:Char),

varf1:real,

f2:real,

begin

ifkey等于#13then

begin

f1:等于strtofloat(edit5.Text),

f2:等于strtofloat(edit6.Text),

f2:等于f1*f2,

edit7.Text:等于format('%3.2f',[f2]),

ifnotdmmzshg.dm_mzshg.adomingxi.Activethen

dmmzshg.dm_mzshg.adomingxi.Open,

dmmzshg.dm_mzshg.adomingxi.Append,

edit12.Text:等于floattostr(strtofloat(edit7.Text)+strtofloat(edit12.Text)),

dmmzshg.dm_mzshg.adomingxi.Fields[1].AsInteger:等于strtoint(edit1.Text),

dmmzshg.dm_mzshg.adomingxi.Fields[2].AsString:等于edit8.Text,

dmmzshg.dm_mzshg.adomingxi.Fields[3].AsString:等于edit9.Text,

dmmzshg.dm_mzshg.adomingxi.Fields[4].AsInteger:等于strtoint(edit5.Text),

dmmzshg.dm_mzshg.adomingxi.Fields[5].AsFloat:等于strtofloat(edit6.Text),

dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat:等于strtofloat(edit7.Text),

dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString:等于bobox1.Items[bobox1.itemindex],

dmmzshg.dm_mzshg.adomingxi.Post,

dmmzshg.dm_mzshg.adomingxi.Last,

button2.Enabled:等于true,

dmmzshg.dm_mzshg.ADOTable1.Close,

dmmzshg.dm_mzshg.ADOTable1.TableName:等于'ò·3a±í',

dmmzshg.dm_mzshg.ADOTable1.Open,

dmmzshg. dm_mzshg.ADOTable1.Append,

dmmzshg.dm_mzshg.ADOTable1.Fields[1].AsString:等于login.Form1.DBEdit1.Text,

dmmzshg.dm_mzshg.ADOTable1.Fields[2].AsDateTime:等于strtodate(edit3.Text),

dmmzshg.dm_mzshg.ADOTable1.Fields[3].AsString:等于edit8.Text,

dmmzshg.dm_mzshg.ADOTable1.Fields[4].AsString:等于bobox1.Items[bobox1.itemindex],

dmmzshg.dm_mzshg.ADOTable1.Fields[5].AsFloat:等于strtofloat(edit6.Text),

dmmzshg.dm_mzshg.ADOTable1.Fields[6].AsInteger:等于strtoint(edit5.Text),

dmmzshg.dm_mzshg.ADOTable1.Post,

end,

end,

procedureTmzshgf.Button1Click(Sender:TObject),

begin

edit12.Text:等于'0',

edit1.Text:等于'',

edit2.Text:等于'',

edit3.Text:等于'',

edit4.Text:等于'',

edit5.Text:等于'',

edit6.Text:等于'',

edit7.Text:等于'',

edit8.Text:等于'',

edit9.Text:等于'',

edit10.Text:等于'',

edit11.Text:等于'',

button2.Enabled:等于false,

edit1.SetFocus,

end,

procedureTmzshgf.Button2Click(Sender:TObject),

vari,j:integer,

f10,f1,f2,f3,f4,f5,f6,f7,f8,f9:real,

begin

j:等于0,

f10:等于0,

f1:等于0,

f2:等于0,

f3:等于0,

f4:等于0,

f5:等于0,

f6:等于0,

f7:等于0,

f8:等于0,

f9:等于0,

ifnotdmmzshg.dm_mzshg.adojiesuan.Activethen

dmmzshg.dm_mzshg.adojiesuan.Open,

dmmzshg.dm_mzshg.adojiesuan.Append,

dmmzshg.dm_mzshg.adojiesuan.Fields[1].AsInteger:等于strtoint(edit1.Text),

dmmzshg.dm_mzshg.adojiesuan.Fields[2].AsString:等于edit2.Text,

dmmzshg.dm_mzshg.adojiesuan.Fields[3].AsDateTime:等于strtodate(edit3.Text),

dmmzshg.dm_mzshg.adojiesuan.Fields[14].AsString:等于bobox2.Items[bobox2.itemindex],

dmmzshg.dm_mzshg.adojiesuan.Fields[15].AsFloat:等于strtofloat(edit12.Text),

dmmzshg.dm_mzshg.adomingxi.Close,

dmmzshg.dm_mzshg.adomingxi.SQL.Clear,

dmmzshg.dm_mzshg.adomingxi.SQL.Add('select*fromê·÷±íwhere1òo±ào等于'),

dmmzshg.dm_mzshg.adomingxi.SQL.Add(''''+edit1.Text+''''),

dmmzshg.dm_mzshg.adomingxi.Open,

fori:等于0todmmzshg.dm_mzshg.adomingxi.RecordCount-1do

begin

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'Dò'then

j:等于0,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'÷ò'then

j:等于1,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'D3éò'then

j:等于2,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'êê'then

j:等于3,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'êòo'then

j:等于4,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'ì2é'then

j:等于5,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'á'then

j:等于6,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'ˉé'then

j:等于7,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于''then

j:等于8,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'ü'then

j:等于9,

casejof

0:f1:等于f1+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

1:f2:等于f2+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

2:f3:等于f3+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

3:f4:等于f4+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

4:f5:等于f5+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

5:f6:等于f6+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

6:f7:等于f7+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

7:f8:等于f8+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

8:f9:等于f9+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

9:f10:等于f10+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

end,

dmmzshg.dm_mzshg.ADOkucun.Close,

dmmzshg.dm_mzshg.ADOkucun.SQL.Clear,

dmmzshg.dm_mzshg.ADOkucun.SQL.Add('select*fromò·a′±íwhereò·3等于'),

dmmzshg.dm_mzshg.ADOkucun.SQL.Add(''''+trim(dmmzshg.dm_mzshg.adomingxi.Fields[2].asstring)+''''),

dmmzshg.dm_mzshg.ADOkucun.Open,

ifdmmzshg.dm_mzshg.ADOkucun.RecordCount<,>,0then

begin

dmmzshg.dm_mzshg.ADOkucun.Edit,

dmmzshg.dm_mzshg.ADOkucun.Fields[8].AsInteger:等于dmmzshg.dm_mzshg.ADOkucun.Fields[8].AsInteger-dmmzshg.dm_mzshg.adomingxi.Fields[4].AsInteger,

dmmzshg.dm_mzshg.ADOkucun.Post,

end,

dmmzshg.dm_mzshg.adomingxi.Next,

end,

dmmzshg.dm_mzshg.adojiesuan.Fields[4].AsFloat:等于f1,

dmmzshg.dm_mzshg.adojiesuan.Fields[5].AsFloat:等于f2,


dmmzshg.dm_mzshg.adojiesuan.Fields[6].AsFloat:等于f3,

dmmzshg.dm_mzshg.adojiesuan.Fields[7].AsFloat:等于f4,

dmmzshg.dm_mzshg.adojiesuan.Fields[8].AsFloat:等于f5,

dmmzshg.dm_mzshg.adojiesuan.Fields[9& #93;.AsFloat:等于f6,

dmmzshg.dm_mzshg.adojiesuan.Fields[10].AsFloat:等于f7,

dmmzshg.dm_mzshg.adojiesuan.Fields[11].AsFloat:等于f8,

dmmzshg.dm_mzshg.adojiesuan.Fields[12].AsFloat:等于f9,

dmmzshg.dm_mzshg.adojiesuan.Fields[13].AsFloat:等于f10,

dmmzshg.dm_mzshg.adojiesuan.Post,

edit12.Text:等于'0',

edit1.Text:等于'',

edit2.Text:等于'',

edit3.Text:等于'',

edit4.Text:等于'',

edit5.Text:等于'',

edit6.Text:等于'',

edit7.Text:等于'',

edit8.Text:等于'',

edit9.Text:等于'',

edit10.Text:等于'',

edit11.Text:等于'',

button2.Enabled:等于false,

edit1.SetFocus,

dmmzshg.dm_mzshg.ADOkucun.Close,

dmmzshg.dm_mzshg.ADOkucun.SQL.Clear,

dmmzshg.dm_mzshg.ADOkucun.SQL.Add('select*fromò·a′±í'),

dmmzshg.dm_mzshg.ADOkucun.Open,

end,

procedureTmzshgf.Button5Click(Sender:TObject),

begin

edit11.Text:等于edit12.Text,

end,

procedureTmzshgf.Edit10KeyPress(Sender:TObject,varKey:Char),

begin

ifkey等于#13then

begin

edit4.Text:等于floattostr(strtofloat(edit10.Text)-strtofloat(edit11.Text)),

end,

end,

procedureTmzshgf.Button3Click(Sender:TObject),

begin

showmessage('′1|ü1′aí¨'),

end,

procedureTmzshgf.Button4Click(Sender:TObject),

begin

close,

end,

procedureTmzshgf.Edit8KeyPress(Sender:TObject,varKey:Char),

begin

ifkey等于#13then

begin

dmmzshg.dm_mzshg.ADOchaxun.Close,

dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear,

dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('select*fromò·a′±íwhereò·3等于'),

dmmzshg.dm_mzshg.ADOchaxun.SQL.Add(''''+edit8.Text+''''),

dmmzshg.dm_mzshg.ADOchaxun.Open,

ifdmmzshg.dm_mzshg.ADOchaxun.RecordCount<,>,0then

begin

edit9.Text:等于dmmzshg.dm_mzshg.ADOchaxun.Fields[5].AsString,

edit6.Text:等于floattostr(dmmzshg.dm_mzshg.ADOchaxun.Fields[7].AsFloat),

end,

end,

end,

procedureTmzshgf.DBGrid1DrawColumnCell(Sender:TObject,constRect:TRect,

DataCol:Integer,Column:TColumn,State:TGridDrawState),

begin

ifdmmzshg.dm_mzshg.ADOkucun.RecNomod2等于0then

begin

dbgrid1.Canvas.Font.Color:等于clblue,

dbgrid1.Canvas.Brush.Color:等于cllime,

dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state),

end

else

begin

dbgrid1.Canvas.Font.Color:等于clblue,

dbgrid1.Canvas.Brush.Color:等于clwhite,

dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state),

end,

end,

procedureTmzshgf.DBGrid2DrawColumnCell(Sender:TObject,constRect:TRect,

DataCol:Integer,Column:TColumn,State:TGridDrawState),

begin

ifdmmzshg.dm_mzshg.adojiesuan.RecNomod2等于0then

begin

dbgrid2.Canvas.Font.Color:等于clblue,

dbgrid2.Canvas.Brush.Color:等于cllime,

dbgrid2.DefaultDrawColumnCell(rect,datacol,column,state),

end

else

begin

dbgrid2.Canvas.Font.Color:等于clblue,

dbgrid2.Canvas.Brush.Color:等于clwhite,

dbgrid2.DefaultDrawColumnCell(rect,datacol,column,state),

end,

end,

procedureTmzshgf.DBGrid3DrawColumnCell(Sender:TObject,constRect:TRect,

DataCol:Integer,Column:TColumn,State:TGridDrawState),

begin

ifdmmzshg.dm_mzshg.adomingxi.RecNomod2等于0then

begin

dbgrid3.Canvas.Font.Color:等于clblue,

dbgrid3.Canvas.Brush.Color:等于cllime,

dbgrid3.DefaultDrawColumnCell(rect,datacol,column,state),

end

else

begin

dbgrid3.Canvas.Font.Color:等于clblue,

dbgrid3.Canvas.Brush.Color:等于clwhite,

dbgrid3.DefaultDrawColumnCell(rect,datacol,column,state),

end,

end,

end.

药品入库管理代码:

unityaotianxiedan,

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls,ComCtrls,

type

Tyaodan等于class(TForm)

GroupBox1:TGroupBox,

Label1:TLabel,

Label2:TLabel,

Label3:TLabel,

Label4:TLabel,

Label5:TLabel,

Label6:TLabel,

Label7:TLabel,

Label8:TLabel,

Label9:TLabel,

Label10:TLabel,

Edit1:TEdit,

Edit3:TEdit,

ComboBox1:TComboBox,

Edit2:TEdit,

Edit4:TEdit,

Edit5:TEdit,

DateTimePicker1:TDateTimePicker,

DateTimePicker2:TDateTimePicker,

DateTimePicker3:TDateTimePicker,

ComboBox2:TComboBox,

GroupBox2:TGroupBox,

Button1:TButton,

Button2:TButton,

procedureFormShow(Sender:TObject),

procedureButton2Click(Sender:TObject),

procedureEdit1KeyPress(Sender:TObject,varKey:Char),

procedureComboBox1Click(Sender:TObject),

procedureEdit3KeyPress(Sender:TObject,varKey:Char),

procedureEdit2KeyPress(Sender:TObject,varKey:Char),

procedureEdit4KeyPress(Sender:TObject,varKey:Char),

procedureComboBox2KeyPress(Sender:TObject,varKey:Char),

private

{Privatedeclarations}

public

{Publicdeclarations}

end,

var

yaodan:Tyaodan,

implementation

{$R*.dfm}

procedureTyaodan.FormShow(Sender:TObject),

begin

edit1.Text:等于'',

bobox1.Text:等于'ò·ààDí',

edit3.Text:等于'',

edit2.Text:等于'',

edit4.Text:等于'',

edit5.Text:等于'',

bobox2.Text:等于'′úàíéìμ',

bobox1.ItemIndex:等于-1,

bobox2.ItemIndex:等于-1,

edit1.SetFocus,

end,

procedureTyaodan.Butt on2Click(Sender:TObject),

begin

edit1.Text:等于'',

bobox1.Text:等于'ò·ààDí',

edit3.Text:等于'',

edit2.Text:等于'',

edit4.Text:等于'',

edit5.Text:等于'',

bobox2.Text:等于'′úàíéìμ',

bobox1.ItemIndex:等于-1,

bobox2.ItemIndex:等于-1,

edit1.SetFocus,

end,

procedureTyaodan.Edit1KeyPress(Sender:TObject,varKey:Char),

begin

ifkey等于#13then

bobox1.SetFocus,

end,

procedureTyaodan.ComboBox1Click(Sender:TObject),

begin

edit3.SetFocus,

end,

procedureTyaodan.Edit3KeyPress(Sender:TObject,varKey:Char),

begin

ifkey等于#13then

edit2.SetFocus,

end,

procedureTyaodan.Edit2KeyPress(Sender:TObject,varKey:Char),

begin

ifkey等于#13then

edit4.SetFocus,

end,

procedureTyaodan.Edit4KeyPress(Sender:TObject,varKey:Char),

begin

ifkey等于#13then

datetimepicker1.SetFocus,

end,

procedureTyaodan.ComboBox2KeyPress(Sender:TObject,varKey:Char),

begin

ifkey等于#13then

button1.SetFocus,

end,

end.

药品出库管理代码:

unityaochukugldan,

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls,Buttons,DBCtrls,Grids,DBGrids,ExtCtrls,

type

Tyaochukugl等于class(TForm)

Panel1:TPanel,

GroupBox1:TGroupBox,

DBGrid1:TDBGrid,

DBNigator1:TDBNigator,

BitBtn1:TBitBtn,

BitBtn2:TBitBtn,

BitBtn3:TBitBtn,

BitBtn4:TBitBtn,

procedureBitBtn4Click(Sender:TObject),

procedureBitBtn3Click(Sender:TObject),

procedureBitBtn2Click(Sender:TObject),

procedureBitBtn1Click(Sender:TObject),

private

{Privatedeclarations}

public

{Publicdeclarations}

end,

var

yaochukugl:Tyaochukugl,

implementation

{$R*.dfm}usesdmgl,login,yaochukudd,

procedureTyaochukugl.BitBtn4Click(Sender:TObject),

begin

close,

end,

procedureTyaochukugl.BitBtn3Click(Sender:TObject),

begin

dmgl.dm_yaopingl.chuku.Cancel,

end,

procedureTyaochukugl.BitBtn2Click(Sender:TObject),

begin

dmgl.dm_yaopingl.ADOQuery1.Close,

dmgl.dm_yaopingl.ADOQuery1.SQL.Clear,

dmgl.dm_yaopingl.ADOQuery1.SQL.Add('select*fromò·a′±íwhereò·3等于'),

dmgl.dm_yaopingl.ADOQuery1.SQL.Add(''''+dmgl.dm_yaopingl.chuku.Fields[3].AsString+''''),

dmgl.dm_yaopingl.ADOQuery1.Open,

ifdmgl.dm_yaopingl.ADOQuery1.FieldCount<,>,0then

begin

dmgl.dm_yaopingl.ADOQuery1.Edit,

dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger:等于dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger-dmgl.dm_yaopingl.chuku.Fields[6].AsInteger,

dmgl.dm_yaopingl.ADOQuery1.Post,

end,

dmgl.dm_yaopingl.chuku.Delete,

end,

procedureTyaochukugl.BitBtn1Click(Sender:TObject),

begin

yaochukudd.yaochukud:等于yaochukudd.Tyaochukud.Create(application),

yaochukudd.yaochukud.showmodal,

ifyaochukudd.yaochukud.ShowModal等于mrokthen

begin

ifyaochukudd.yaochukud.Edit1.Text等于''then

begin

yaochukudd.yaochukud.Free,

exit,

end,

dmgl.dm_yaopingl.chuku.Active:等于true,

dmgl.dm_yaopingl.chuku.Append,

dmgl.dm_yaopingl.chuku.Fields[1].AsString:等于login.Form1.DBEdit1.Text,

dmgl.dm_yaopingl.chuku.Fields[2].AsDateTime:等于strtodate(formatdatetime('yyyy-mm-dd',now)),

dmgl.dm_yaopingl.chuku.Fields[3].AsString:等于yaochukudd.yaochukud.Edit1.Text,

dmgl.dm_yaopingl.chuku.Fields[4].AsString:等于yaochukudd.yaochukud.ComboBox1.Items[yaochukudd.yaochukud.ComboBox1.itemindex],

dmgl.dm_yaopingl.chuku.Fields[5].AsFloat:等于strtofloat(yaochukudd.yaochukud.Edit3.Text),

dmgl.dm_yaopingl.chuku.Fields[7].AsString:等于yaochukudd.yaochukud.Edit4.Text,

dmgl.dm_yaopingl.chuku.Fields[6].AsInteger:等于strtoint(yaochukudd.yaochukud.Edit2.Text),

dmgl.dm_yaopingl.ADOQuery1.Close,

dmgl.dm_yaopingl.ADOQuery1.SQL.Clear,

dmgl.dm_yaopingl.ADOQuery1.SQL.Add('select*fromò·a′±íwhereò·3等于'),

dmgl.dm_yaopingl.ADOQuery1.SQL.Add(''''+yaochukudd.yaochukud.Edit1.Text+''''),

dmgl

类似论文

修改文收费成人

专业技术人员继续教育工作服务指南(最新修改)一,包头市专业技术人员继续教育从1996年开始 1999年,《包头市专业技术人员继续教育条例&。
更新日期:2024-4-1 浏览量:8439 点赞量:2634

中学物理文题目2023年,中学物理文题目最新

关于举办2016年新疆中学学科专业委员会学术年会暨教的通知请各参会单位和老师于2016年5月2日前将回执(附件3)发往370175230@ 所。
更新日期:2024-9-26 浏览量:121819 点赞量:27019

工程类职文范文最新

网上受理编号:申报类型:面上项目指南分类:一(1)湖北省自然科学基金计划申报书(重点项目□面上项目)项目名称:××××××。
更新日期:2024-4-18 浏览量:55589 点赞量:12448

机械设计文模板最新,机械设计文模板列表

2016年度"国家精品课程"申报表(本科)推荐单位辽宁省教育厅所属学校大连理工大学(教育部所属)课程名称化工原理课程类型理论课(含实。
更新日期:2024-2-5 浏览量:10732 点赞量:4365

文收费云南,云南大学本科生毕业文

云南大学本科生毕业论文(设计)守则云大[2003]224号毕业论文(设计)是综合运用所学知识和技能,理论联系实际,独立分析,解决实际问题,&。
更新日期:2024-3-1 浏览量:10382 点赞量:3970

高中物理文题目2023年,高中物理文题目最新

全国中学生高中物理竞赛预赛试题分类汇编热学第16届预赛题如图预16-3所示,两个截面相同的圆柱形容器,右边容器高为,上端封闭,左边。
更新日期:2024-6-17 浏览量:83789 点赞量:19283