PDA

View Full Version : مشكل در فرايند ويزيت بيماران؟


imani1983
سه شنبه 24 فروردین 1389, 03:23 صبح
:اشتباه::متفکر::متفکر:با سلام خدمت همه دوستان :
چند تا سئوال داشتم كه مي خواستم كمكم كنيد

تو برنامه كلينيك دو جدول دارم كه يكي جدول ايجاد شماره دهي (كه بيماران دراون به نوبت مي مانند:paziresh_temp) دومي اينكه موقع حظور بيماران ويزيت صورت مي گيرد و هزينه ويزيت آنها با خدمات و... ثبت مي شه(paziresh) ,مي خواستم بدونم كه آيا كار من در اين مورد درست است يا دوستان راهكار ديگه اي را پيشنهاد مي دهند؟
براي جدول paziresh_temp فيلد ها شامل:
1 numpaziresh varchar 20 0
0 name varchar 20 1
0 family varchar 20 1
0 databirth varchar 18 1
0 time_mor varchar 15 1
0 var_pazires varchar 25 1
0 day_mor char 10 1
0 timepaziresh varchar 20 1
0 day_data varchar 12 1
0 row decimal 9 1
وبرا جدولpaziresh فيلد ها شامل:
1 row decimal 9 1
2 numpaziresh varchar 20 0
0 codepar vande int 4 1
0 datapaziresh varchar 15 1
0 name varchar 20 1
0 family varchar 20 1
0 namepedar varchar 18 1
0 sex varchar 15 1
0 databirth varchar 18 1
0 payment_bimar varchar 18 1
0 taxfif varchar 15 1
0 tozihat nvarchar 62 1
0 numbime varchar 15 1
0 bime varchar 20 1
0 Avg varchar 10 1
0 qabelpardakht varchar 15 1
0 fin_pay_bim money 8 1
0 tel varchar 10 1
0 time_mor varchar 15 1
0 var_xadamat varchar 15 1
0 var_paziresh varchar 25 1
0 value_xadamat varchar 12 1
0 sahm_bime varchar 12 1
0 sahm_bimar varchar 12 1
0 day_mor char 10 1
0 timepaziresh varchar 20 1
0 day_data varchar 12 1
0 politic_pay_vizit varchar 115 1
0 daryafti_bimar varchar 30 1
0 vajh_frist varchar 20 1
كد مربوط به ثبت ويزيت:

procedure Tvizit.BitBtn1Click(Sender: TObject);
var
i: byte;
beepindex: word;
a,b,c,d,e,f,g,j:integer;
str: array[0..255] of char;
begin
e:=strtoint(dbedit2.Text);//ÏÑíÇÝÊ ÔÏå ÇÒ ÈíãÇÑ
f:=strtoint(edit3.text); //Óåã ÈíãÇÑ
g:=strtoint(edit5.text); //åÒíäå åÇ
c:=strtoint(edit6.Text); //ÊÎÝíÝ
a:=edit_daryafti.FieldValues['mojodi_sandog'];
d:=(f+g-c-e);
if (edit7.text = '') = true then
begin
Beepindex := Switch();
MessageBeep(Beepindex);
application.MessageBox('.áØÝÇð ÔãÇÑå ÐíÑÔ ÑÇ æÇÑÏ äãÇÆíÏ', '', Beepindex);
edit7.SetFocus
end
else
if (dbedit4.text = '') = true then
begin
Beepindex := Switch();
MessageBeep(Beepindex);
application.messagebox('.áØÝÇð ÔãÇÑå ÑæäÏå ÑÇ æÇÑÏ äãÇÆíÏ', '', Beepindex);
dbedit4.SetFocus
end
else
if (combobox2.text = 'ÇäÊÍÇÈ äãÇÆíÏ') = true then
begin
Beepindex := Switch();
MessageBeep(Beepindex);
application.messagebox('!áØÝÇð äæÚ ÎÏãÇÊ ÑÇ æÇÑÏ äãÇÆíÏ', '', Beepindex);
combobox2.SetFocus
end
else
if (edit2.text = '') = true then
begin
Beepindex := Switch();
MessageBeep(Beepindex);
application.messagebox('!áØÝÇð ãÈáÛ ÞÇÈá ÑÏÇÎÊ ÑÇ æÇÑÏäãÇÆíÏ', '', Beepindex);
edit2.SetFocus
end
else
if (combobox3.text = 'ÇäÊÍÇÈ äãÇÆíÏ') = true then
begin
Beepindex := Switch();
MessageBeep(Beepindex);
application.messagebox('!áØÝÇð æÖÚíÊ ÐíÑÔ ÑÇ æÇÑÏ äãÇÆíÏ', '', Beepindex);
combobox3.SetFocus
end
else
if (maskedit1.text = '') = true then
begin
Beepindex := Switch();
MessageBeep(Beepindex);
application.messagebox('!áØÝÇð ÓÇÚÊ ãÑÇÌÚå ÑÇ æÇÑÏ äãÇÆíÏ', '', Beepindex);
maskedit1.SetFocus
end
else
if (SolarDatePicker1.text = 'ÇäÊÍÇÈ äãÇÆíÏ') = true then
begin
Beepindex := Switch();
MessageBeep(Beepindex);
application.messagebox('!áØÝÇð ÑæÒ ãÑÇÌÚå ÑÇ æÇÑÏ äãÇÆíÏ', '', Beepindex);
SolarDatePicker1.SetFocus
end
else
if d<0 then //ÔÑØ Çíäßå ÈíãÇÑ ÏÑíÇÝÊí ÏÇÔÊå ÈÇÔÏ
begin
if messagedlg('ÂíÇ ãí ÎæÇåíÏ ãÇÈå ÇáÊÝÇæÊ ÑÏÇÎÊí ÈíãÇÑ ÑÇ ÑÏÇÎÊ äãÇÆíÏ¿',mtconfirmation,[mbyes,mbno],1)=mryes then
begin
if a>d then
begin
edit_daryafti.Edit;
edit_daryafti.FieldValues['mojodi_sandog']:=(d+a);
edit_daryafti.Post;
showmessage('!ÇÒ ãæÌæÏí ÕäÏæÞ ßã ÔÏ');
end
else
if a<d then
begin
showmessage('!äÞÏíäí ÏÑ ÕäÏæÞ ßãÊÑ ÇÒ ÏÑíÇÝÊí ÇÓÊ');
end;
end
else
if combobox1.Text<>'ÂÒÇÏ' then
begin
DataModule1.Hesab_bimegaran.insert;
DataModule1.Hesab_bimegaran.FieldValues['namebima']:=combobox1.text;
DataModule1.Hesab_bimegaran.FieldValues['mablagh']:=strtoint(edit4.text);
DataModule1.Hesab_bimegaran.FieldValues['family']:=dbtext2.Caption;
DataModule1.Hesab_bimegaran.fieldvalues['data']:=dbtext9.Caption;
DataModule1.Hesab_bimegaran.FieldValues['codeparvande']:=dbtext5.Caption;
DataModule1.Hesab_bimegaran.FieldValues['namebimar']:=dbtext1.caption;
DataModule1.Hesab_bimegaran.FieldValues['numbime']:=dbedit1.Text;
DataModule1.Hesab_bimegaran.Post;
end;
begin
pardaxti_be_bimar.Insert;
pardaxti_be_bimar.FieldValues['name']:=dbtext1.Caption;
pardaxti_be_bimar.FieldValues['family']:=dbtext2.Caption;
pardaxti_be_bimar.FieldValues['codeparvande']:=dbedit4.text;
pardaxti_be_bimar.FieldValues['data']:=SolarDatePicker1.Text;
pardaxti_be_bimar.FieldValues['daryafti_bimar']:=edit10.text;
pardaxti_be_bimar.FieldValues['babat']:='æíÒíÊ ÔãÇÑå-'+edit7.Text;
pardaxti_be_bimar.post;
end;
if messagedlg('ÂíÇ ãí ÎæÇåíÏ ÇØáÇÚÇÊ ËÈÊ ÔæÏ¿', mtconfirmation, [mbyes, mbno], 0) = mryes then
begin
DataModule1.Paziresh.edit;
DataModule1.Paziresh.FieldValues['name']:=dbtext1.Caption;
DataModule1.Paziresh.FieldValues['family']:=dbtext2.Caption;
DataModule1.Paziresh.FieldValues['namepedar']:=dbtext3.Caption;
DataModule1.Paziresh.fieldvalues['databirth']:=dbtext4.Caption;
DataModule1.Paziresh.FieldValues['codeparvande']:=dbtext5.Caption;
DataModule1.Paziresh.fieldvalues['sex']:=dbtext7.Caption;
DataModule1.Paziresh.FieldValues['Avg']:=dbtext8.Caption; //Óä ÈíãÇÑ
DataModule1.Paziresh.FieldValues['datapaziresh']:=dbtext9.Caption; //ÊÇÑíÎ ÐíÑÔ
DataModule1.Paziresh.FieldValues['tel']:=dbtext10.caption;
DataModule1.Paziresh.FieldValues['tozihat']:=edit8.Text;
DataModule1.Paziresh.FieldValues['value_xadamat']:=edit1.text;
DataModule1.Paziresh.FieldValues['fin_pay_bim']:=edit2.text;
DataModule1.Paziresh.FieldValues['sahm_bimar']:=edit3.text;
DataModule1.Paziresh.FieldValues['sahm_bime']:=edit4.text;
DataModule1.Paziresh.FieldValues['payment_bimar']:=edit5.Text;
DataModule1.Paziresh.FieldValues['taxfif']:=edit6.text;
DataModule1.Paziresh.FieldValues['qabelpardakht']:=edit9.text;
DataModule1.Paziresh.FieldValues['numbime']:=dbedit1.Text;
DataModule1.Paziresh.FieldValues['day_data']:=dbtext9.caption;
DataModule1.Paziresh.FieldValues['bime']:=combobox1.Text;
DataModule1.Paziresh.FieldValues['var_xadamat']:=combobox2.Text;
DataModule1.Paziresh.FieldValues['var_paziresh']:=combobox3.Text;
DataModule1.Paziresh.FieldValues['day_mor']:=SolarDatePicker1.text; //ÑæÒ ãÑÇÌÚå
DataModule1.Paziresh.FieldValues['time_mor']:=maskedit1.Text; //ÓÇÚÊ æíÒíÊ
DataModule1.Paziresh.FieldValues['timepaziresh']:=statusbarpro1.Panels[3].text; //ÒãÇä ÐíÑÔ íÇ ÔãÇÑå Ïåí
DataModule1.Paziresh.FieldValues['daryafti_bimar']:=edit10.Text; //ÏÑíÇÝÊí ÈíãÇÑ
DataModule1.Paziresh.FieldValues['vajh_frist']:=dbedit2.Text;
DataModule1.Paziresh.Post;
showmessage('!Úãá ËÈÊ ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ');
dbedit1.enabled:=true;
edit4.Enabled:=true;
edit3.Enabled:=true;
edit8.Clear;
edit1.text:='0';
edit2.text:='0';
edit3.text:='0';
edit4.text:='0';
edit5.Text:='0';
edit6.text:='0';
edit9.text:='0';
edit7.clear;
dbedit1.Clear;
combobox1.Text:='ÇäÊÎÇÈ ßäíÏ';
combobox2.Text:='ÇäÊÎÇÈ ßäíÏ';
combobox3.Text:='ÇäÊÎÇÈ ßäíÏ';
SolarDatePicker1.text:='ÇäÊÎÇÈ ßäíÏ';
maskedit1.Clear;
end;
end
else
if d>0 then // ÈíãÇÑ ÈÇíÏ ÑÏÇÎÊí ÏÇÔÊå ÈÇÔÏ
begin
if messagedlg('!ÑÏÇÎÊí Çæáíå ÈíãÇÑ ÈÇ ÑÏÇÎÊí ÝÚáí ÌãÚ ÔÏå æÏÑ ÕäÏæÞ ' +
'ÐÎíÑå ãí ÔæÏ',mtconfirmation,[mbyes,mbno],1)=mryes then
if messagedlg('ÂíÇ ãí ÎæÇåíÏ ÇØáÇÚÇÊ ËÈÊ ÔæÏ¿', mtconfirmation, [mbyes, mbno], 0) = mryes then
begin
begin
j:=strtoint(edit2.Text);
edit_daryafti.Edit;
edit_daryafti.FieldValues['mojodi_sandog']:=(j+a);
edit_daryafti.Post;
Beepindex := Switch();
MessageBeep(Beepindex);
application.messagebox('!ÏÑíÇÝÊí ÏÑ ÕäÏæÞ ÐÎíÑå ÔÏ', '',Beepindex);
end;
if combobox1.Text<>'ÂÒÇÏ' then
begin
DataModule1.Hesab_bimegaran.insert;
DataModule1.Hesab_bimegaran.FieldValues['namebima']:=combobox1.text;
DataModule1.Hesab_bimegaran.FieldValues['mablagh']:=strtoint(edit4.text);
DataModule1.Hesab_bimegaran.FieldValues['family']:=dbtext2.Caption;
DataModule1.Hesab_bimegaran.fieldvalues['data']:=dbtext9.Caption;
DataModule1.Hesab_bimegaran.FieldValues['codeparvande']:=dbtext5.Caption;
DataModule1.Hesab_bimegaran.FieldValues['namebimar']:=dbtext1.caption;
DataModule1.Hesab_bimegaran.Post;
end;
daryaftii_az_bimar.Insert;
daryaftii_az_bimar.FieldValues['name']:=dbtext1.Caption;
daryaftii_az_bimar.FieldValues['family']:=dbtext2.Caption;
daryaftii_az_bimar.FieldValues['codeparvande']:=dbedit4.text;
daryaftii_az_bimar.FieldValues['data']:=SolarDatePicker1.Text;
daryaftii_az_bimar.FieldValues['pardaxti_bimar']:=edit2.text;
daryaftii_az_bimar.FieldValues['babat']:='æíÒíÊ ÔãÇÑå-'+edit7.Text;
daryaftii_az_bimar.post;
DataModule1.Paziresh.edit;
DataModule1.Paziresh.FieldValues['name']:=dbtext1.Caption;
DataModule1.Paziresh.FieldValues['family']:=dbtext2.Caption;
DataModule1.Paziresh.FieldValues['namepedar']:=dbtext3.Caption;
DataModule1.Paziresh.fieldvalues['databirth']:=dbtext4.Caption;
DataModule1.Paziresh.FieldValues['codeparvande']:=dbtext5.Caption;
DataModule1.Paziresh.fieldvalues['sex']:=dbtext7.Caption;
DataModule1.Paziresh.FieldValues['Avg']:=dbtext8.Caption; //Óä ÈíãÇÑ
DataModule1.Paziresh.FieldValues['datapaziresh']:=dbtext9.Caption; //ÊÇÑíÎ ÐíÑÔ
DataModule1.Paziresh.FieldValues['tel']:=dbtext10.caption;
DataModule1.Paziresh.FieldValues['tozihat']:=edit8.Text;
DataModule1.Paziresh.FieldValues['value_xadamat']:=edit1.text;
DataModule1.Paziresh.FieldValues['fin_pay_bim']:=edit2.text;
DataModule1.Paziresh.FieldValues['sahm_bimar']:=edit3.text;
DataModule1.Paziresh.FieldValues['sahm_bime']:=edit4.text;
DataModule1.Paziresh.FieldValues['payment_bimar']:=edit5.Text;
DataModule1.Paziresh.FieldValues['taxfif']:=edit6.text;
DataModule1.Paziresh.FieldValues['qabelpardakht']:=edit9.text;
DataModule1.Paziresh.FieldValues['numbime']:=dbedit1.Text;
DataModule1.Paziresh.FieldValues['day_data']:=dbtext9.caption;
DataModule1.Paziresh.FieldValues['bime']:=combobox1.Text;
DataModule1.Paziresh.FieldValues['var_xadamat']:=combobox2.Text;
DataModule1.Paziresh.FieldValues['var_paziresh']:=combobox3.Text;
DataModule1.Paziresh.FieldValues['day_mor']:=SolarDatePicker1.text; //ÑæÒ ãÑÇÌÚå
DataModule1.Paziresh.FieldValues['time_mor']:=maskedit1.Text; //ÓÇÚÊ æíÒíÊ
DataModule1.Paziresh.FieldValues['timepaziresh']:=statusbarpro1.Panels[3].text; //ÒãÇä ÐíÑÔ íÇ ÔãÇÑå Ïåí
DataModule1.Paziresh.FieldValues['daryafti_bimar']:=edit10.Text; //ÏÑíÇÝÊí ÈíãÇÑ
DataModule1.Paziresh.FieldValues['vajh_frist']:=dbedit2.Text;
DataModule1.Paziresh.Post;
showmessage('!Úãá ËÈÊ ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ');
dbedit1.enabled:=true;
edit4.Enabled:=true;
edit3.Enabled:=true;
end;
end;
end;
من فايل مربوط به فرم ويزيت را مي زارم شما چك كنيد ببينيد كجا مشكل دارم؟