Курсовые работы / ПРИС П _14
.pdfprocedure |
interface |
dm.ll.CommandText:='Select |
TFLekRec.SpeedButton2Click( |
uses |
id_ll,nazv_lk from lekar,lgLk |
Sender: TObject); |
Windows, Messages, |
WHERE (id_lg_ll='+tmp+') and |
begin |
SysUtils, Variants, |
(id_lk=id_lk_ll)'; |
if |
Classes, Graphics, |
dm.ll.Active:=true; |
dm.lr.Fields[0].AsString='' |
Controls, Forms, |
end; |
then |
Dialogs, Buttons, |
procedure |
begin |
StdCtrls, ExtCtrls, Grids, |
TFLgLk.cb1Change(Sender: |
showmessage('Нет записей в |
DBGrids, jpeg; |
TObject); |
таблице'); |
type |
begin |
exit; |
TFLgLk = class(TForm) |
dm.temp.Active:=false; |
end; |
DBGrid1: TDBGrid; |
dm.temp.CommandText:='Select |
if |
Label1: TLabel; |
id_lk from lekar WHERE |
application.MessageBox('Уда |
cb1: TComboBox; |
(nazv_lk = "'+cb1.Text+'")'; |
литьзапись?','Удаление',mb_ |
SpeedButton1: |
dm.temp.Active:=true; |
yesno+mb_iconquestion)=idye |
TSpeedButton; |
id_lk:=dm.temp.fields[0].asstr |
s then |
SpeedButton2: |
ing; |
begin |
TSpeedButton; |
end; |
|
SpeedButton3: |
procedure |
dm.com.CommandText:='Delete |
TSpeedButton; |
TFLgLk.SpeedButton1Click(Sende |
* from LekRec where |
Image1: TImage; |
r: TObject); |
(id_lr='+dm.lr.Fields[0].As |
procedure |
begin |
String+')'; |
cb1KeyPress(Sender: |
if cb1.Text='' then |
dm.com.Execute; |
TObject; var Key: Char); |
begin |
dm.lr.Requery(); |
procedure |
|
showmessage('Удалено'); |
FormShow(Sender: TObject); |
showmessage('Препаратневыбран' |
cb1.Clear; |
procedure |
); |
dm.temp.Active:=false; |
cb1Change(Sender: TObject); |
exit; |
|
procedure |
end; |
dm.temp.CommandText:='Selec |
SpeedButton1Click(Sender: |
if |
t nazv_lk from lekar WHERE |
TObject); |
application.MessageBox('Добави |
(id_lk not in (select |
procedure |
тьзапись?','Добавление',mb_yes |
id_lk_lr from LekRec WHERE |
SpeedButton2Click(Sender: |
no+mb_iconquestion)=idyes then |
(id_rec_lr=0))) and (id_lk |
TObject); |
begin |
in (select id_lk_ll from |
procedure |
dm.com.CommandText:='Insert |
LgLk WHERE |
FormCloseQuery(Sender: |
into LgLk (id_lg_ll,id_lk_ll) |
(id_lg_ll='+tmp+')))'; |
TObject; var CanClose: |
values ('+tmp+','+id_lk+')'; |
dm.temp.Active:=true; |
Boolean); |
dm.com.Execute; |
While not dm.temp.Eof do |
procedure |
dm.ll.Requery(); |
begin |
SpeedButton3Click(Sender: |
showmessage('Добавлено'); |
cb1.Items.Add(dm.temp.Field |
TObject); |
cb1.Clear; |
s[0].AsString); |
private |
dm.temp.Active:=false; |
dm.temp.Next; |
{ Private declarations |
dm.temp.CommandText:='Select |
end; |
} |
nazv_lk from lekar WHERE |
end; |
public |
(id_lk not in (select id_lk_ll |
end; |
{ Public declarations } |
from lglk WHERE |
procedure |
end; |
(id_lg_ll='+tmp+'))) AND |
TFLekRec.SpeedButton3Click( |
var |
(dataU_lk is Null)'; |
Sender: TObject); |
FLgLk: TFLgLk; |
dm.temp.Active:=true; |
//обновить |
implementation |
While not dm.temp.Eof do |
begin |
uses datm, Main; |
begin |
cb1.Clear; |
{$R *.dfm} |
cb1.Items.Add(dm.temp.Fields[0 |
dm.temp.Active:=false; |
|
].AsString); |
dm.temp.CommandText:='Selec |
procedure |
dm.temp.Next; |
t nazv_lk from lekar WHERE |
TFLgLk.cb1KeyPress(Sender: |
end; |
(id_lk not in (select |
TObject; var Key: Char); |
end; |
id_lk_lr from LekRec WHERE |
begin |
end; |
(id_rec_lr=0))) and (id_lk |
key:=#0; |
procedure |
in (select id_lk_ll from |
end; |
TFLgLk.SpeedButton2Click(Sende |
LgLk WHERE |
procedure |
r: TObject); |
(id_lg_ll='+tmp+')))'; |
TFLgLk.FormShow(Sender: |
begin |
dm.temp.Active:=true; |
TObject); |
if dm.ll.Fields[0].AsString='' |
While not dm.temp.Eof do |
begin |
then |
begin |
cb1.Clear; |
begin |
|
dm.temp.Active:=false; |
showmessage('Нет записей в |
cb1.Items.Add(dm.temp.Field |
dm.temp.CommandText:='Selec |
таблице'); |
s[0].AsString); |
t nazv_lk from lekar WHERE |
exit; |
dm.temp.Next; |
(id_lk not in (select |
end; |
end; |
id_lk_ll from lglk WHERE |
if |
dm.lr.Active:=false; |
(id_lg_ll='+tmp+'))) AND |
application.MessageBox('Удалит |
dm.lr.CommandText:='Select |
(dataU_lk is Null)'; |
ьзапись?','Удаление',mb_yesno+ |
id_lr,nazv_lk from |
dm.temp.Active:=true; |
mb_iconquestion)=idyes then |
lekar,LekRec WHERE |
While not dm.temp.Eof do |
begin |
(id_rec_lr=0) and |
begin |
dm.com.CommandText:='Delete |
(id_lk=id_lk_lr)'; |
cb1.Items.Add(dm.temp.Field |
* from LgLk where |
dm.lr.Active:=true; |
s[0].AsString); |
(id_ll='+dm.ll.Fields[0].AsStr |
end; |
dm.temp.Next; |
ing+')'; |
end. |
end; |
dm.com.Execute; |
unit LgLk; |
dm.ll.Active:=false; |
dm.ll.Requery(); |
42
showmessage('Удалено'); |
N10: TMenuItem; |
IniFile.Free; |
||
cb1.Clear; |
N11: TMenuItem; |
end; |
|
|
dm.temp.Active:=false; |
N12: TMenuItem; |
dbp:=dm.od.FileName; |
||
|
N13: TMenuItem; |
dm.ADO.Connected:=false; |
||
dm.temp.CommandText:='Selec |
N14: TMenuItem; |
dm.ADO.ConnectionString:='Prov |
||
t nazv_lk from lekar WHERE |
N15: TMenuItem; |
ider=Microsoft.Jet.OLEDB.4.0;D |
||
(id_lk not in (select |
Image1: TImage; |
ata Source='+dbp+';Persist |
||
id_lk_ll from lglk WHERE |
procedure |
|
Security Info=False'; |
|
(id_lg_ll='+tmp+'))) AND |
N3Click(Sender: TObject); |
dm.ADO.Connected:=true; |
||
(dataU_lk is Null)'; |
procedure |
|
end; |
|
dm.temp.Active:=true; |
FormCloseQuery(Sender: |
|
|
|
While not dm.temp.Eof do |
TObject; var CanClose: |
end; |
|
|
begin |
Boolean); |
|
procedure |
|
cb1.Items.Add(dm.temp.Field |
procedure |
|
TFMain.FormCloseQuery(Sender: |
|
s[0].AsString); |
FormShow(Sender: TObject); |
TObject; var CanClose: |
||
dm.temp.Next; |
procedure |
|
Boolean); |
|
end; |
N4Click(Sender: TObject); |
begin |
|
|
end; |
procedure |
|
if |
|
end; |
N6Click(Sender: TObject); |
application.MessageBox('Выхоит |
||
procedure |
procedure |
|
евыйтиизпрограммы?','Выход',mb |
|
TFLgLk.FormCloseQuery(Sende |
N5Click(Sender: TObject); |
_yesno+mb_iconquestion)=idyes |
||
r: TObject; var CanClose: |
function |
|
then |
|
Boolean); |
data(data:tdatetime):string |
begin |
|
|
begin |
; |
|
application.Terminate; |
|
fmain.Zan('lg','Lgot'); |
function |
|
end |
|
dm.lg.RecNo:=rec; |
Update(rs,tab:string):boole |
else |
|
|
close; |
an; |
|
canclose:=false; |
|
end; |
function |
|
end; |
|
|
Delete(rs,tab,temp:string): |
procedure |
|
|
procedure |
boolean; |
|
TFMain.FormShow(Sender: |
|
TFLgLk.SpeedButton3Click(Se |
Procedure |
|
TObject); |
|
nder: TObject); |
Zan(rs,tab:string); |
begin |
|
|
begin |
procedure |
|
if fileexists('photo1.jpg') |
|
cb1.Clear; |
N8Click(Sender: TObject); |
then |
|
|
dm.temp.Active:=false; |
procedure |
|
begin |
|
dm.temp.CommandText:='Selec |
N9Click(Sender: TObject); |
|
|
|
t nazv_lk from lekar WHERE |
procedure |
|
image1.Picture.LoadFromFile('p |
|
(id_lk not in (select |
N11Click(Sender: TObject); |
hoto1.jpg'); |
|
|
id_lk_ll from lglk WHERE |
procedure |
|
end; |
|
(id_lg_ll='+tmp+'))) AND |
N13Click(Sender: TObject); |
end; |
|
|
(dataU_lk is Null)'; |
procedure |
|
procedure |
|
dm.temp.Active:=true; |
N14Click(Sender: TObject); |
TFMain.N4Click(Sender: |
||
While not dm.temp.Eof do |
procedure |
|
TObject); |
|
begin |
N15Click(Sender: TObject); |
begin |
|
|
|
private |
|
closequery; |
|
cb1.Items.Add(dm.temp.Field |
{ Private declarations |
end; |
|
|
s[0].AsString); |
} |
|
procedure |
|
dm.temp.Next; |
public |
|
TFMain.N6Click(Sender: |
|
end; |
{ Public declarations } |
TObject); |
|
|
dm.ll.Active:=false; |
end; |
|
var inifile:tinifile; |
|
dm.ll.CommandText:='Select |
var |
|
dbp:string; |
|
id_ll,nazv_lk from |
FMain: TFMain; |
|
begin |
|
lekar,lgLk WHERE |
implementation |
|
IniFile |
:= |
(id_lg_ll='+tmp+') and |
uses datm, ChPass, Lekar, |
TIniFile.Create(ExtractFilePat |
||
(id_lk=id_lk_ll)'; |
Lgot, Recept, ot1, ot2; |
h(Application.ExeName)+'option |
||
dm.ll.Active:=true; |
{$R *.dfm} |
|
s.ini'); |
// |
end; |
procedure |
|
загрузкаизфаланастроекпутикбаз |
|
end. |
TFMain.N3Click(Sender: |
е |
|
|
unit Main; |
TObject); |
|
DBP := |
|
interface |
var inifile:tinifile; |
IniFile.ReadString('options', |
||
uses |
dbp:string; |
|
'dbPath', ''); |
|
Windows, Messages, |
begin |
|
IniFile.Free; |
|
SysUtils, Variants, |
if dm.od.Execute then |
copyfile(pchar(DBP),pchar(Extr |
||
Classes, Graphics, |
begin |
|
actFilePath(Application.ExeNam |
|
Controls, Forms, |
if |
|
e)+'Архив\base_'+datetostr(dat |
|
Dialogs,inifiles, Menus, |
application.MessageBox('Вых |
e)+'_'+stringreplace(timetostr |
||
ExtCtrls,jpeg; |
отитесохранитьпутькданнойБД |
(time),':','.',[rfReplaceAll, |
||
type |
вфайленастроек?','ПутькБД', |
rfIgnoreCase])+'.mdb'),true); |
||
TFMain = class(TForm) |
mb_yesno+mb_iconquestion)=i |
if |
|
|
MainMenu1: TMainMenu; |
dyes then |
|
fileexists(ExtractFilePath(App |
|
N1: TMenuItem; |
begin |
|
lication.ExeName)+'Архив\base_ |
|
N2: TMenuItem; |
IniFile |
:= |
'+datetostr(date)+'_'+stringre |
|
N3: TMenuItem; |
TIniFile.Create(ExtractFile |
place(timetostr(time),':','.', |
||
N4: TMenuItem; |
Path(Application.ExeName)+' |
[rfReplaceAll, |
||
N5: TMenuItem; |
options.ini'); |
|
rfIgnoreCase])+'.mdb') =true |
|
N6: TMenuItem; |
|
|
then |
|
N7: TMenuItem; |
inifile.WriteString('option |
showmessage('Резервнаякопиясоз |
||
N8: TMenuItem; |
s','dbpath',dm.od.FileName) |
данауспешно') |
|
|
N9: TMenuItem; |
; |
|
|
|
43
elseshowmessage('Ошибка при |
if tm=1 then |
Classes, Graphics, Controls, |
|
создании |
резервной |
begin |
Forms, |
копии'); |
|
|
Dialogs, StdCtrls, WordXP, |
end; |
|
dm.com.CommandText:='Update |
OleServer, ComCtrls, |
procedure |
|
'+tab+' set |
ExtCtrls,registry; |
TFMain.N5Click(Sender: |
log_'+rs+'=FALSE WHERE |
type |
|
TObject); |
|
(id_'+rs+'='+tmp+')'; |
TFot1 = class(TForm) |
begin |
|
dm.com.Execute; |
WordDocument1: |
fchpass.ShowModal; |
end; |
TWordDocument; |
|
end; |
|
end; |
WordApplication1: |
function TFmain.data |
procedure |
TWordApplication; |
|
(data:tdatetime):string; |
TFMain.N8Click(Sender: |
Label1: TLabel; |
|
var g,m,d:word; |
TObject); |
dtp1: TDateTimePicker; |
|
begin |
|
begin |
Label2: TLabel; |
decodedate(data,g,m,d); |
dm.lk.Active:=false; |
dtp2: TDateTimePicker; |
|
result:=''+currtostr(m)+'/' |
dm.lk.CommandText:='select |
Button1: TButton; |
|
+currtostr(d)+'/'+currtostr |
id_lk, nazv_lk, st_lk from |
Button2: TButton; |
|
(g)+''; |
|
Lekar where (datau_lk is |
procedure |
end; |
|
null)'; |
FormCloseQuery(Sender: |
function |
|
dm.lk.Active:=true; |
TObject; var CanClose: |
TFmain.Update(rs,tab:string |
flekar.Caption:=n8.Caption; |
Boolean); |
|
):boolean; |
|
flekar.ShowModal; |
procedure |
begin |
|
end; |
Button2Click(Sender: TObject); |
dm.temp.Active:=false; |
procedure |
procedure FormShow(Sender: |
|
dm.temp.CommandText:='Selec |
TFMain.N9Click(Sender: |
TObject); |
|
t log_'+rs+' from '+tab+' |
TObject); |
procedure |
|
where (id_'+rs+'='+tmp+')'; |
begin |
Button1Click(Sender: TObject); |
|
dm.temp.Active:=true; |
dm.lg.Active:=false; |
private |
|
if |
|
dm.lg.CommandText:='Select |
{ Private declarations } |
dm.temp.Fields[0].AsBoolean |
id_lg,fio_lg,dr_lg,sp_lg,np |
public |
|
=true then |
|
_lg,kt_lg from lgot'; |
{ Public declarations } |
begin |
|
dm.lg.Active:=true; |
end; |
result:=false; |
flGot.Caption:=n9.Caption; |
var |
|
end |
|
flgot.ShowModal; |
Fot1: TFot1; |
else |
|
end; |
implementation |
begin |
|
procedure |
uses datm, Main; |
|
|
TFMain.N11Click(Sender: |
{$R *.dfm} |
dm.com.CommandText:='Update |
TObject); |
procedure |
|
'+tab+' set log_'+rs+'=TRUE |
begin |
TFot1.FormCloseQuery(Sender: |
|
where id_'+rs+'='+tmp+''; |
dm.rec.Active:=false; |
TObject; var CanClose: |
|
dm.com.Execute; |
dm.rec.CommandText:='Select |
Boolean); |
|
result:=true; |
id_rec,fio_lg,fio_rec,data_ |
begin |
|
end; |
|
rec,datav_rec from |
dtp1.Date:=date; |
end; |
|
recept,lgot WHERE |
dtp2.Date:=date; |
function |
|
(id_lg=id_lg_rec)'; |
close; |
TFmain.Delete(rs,tab,temp:s |
dm.rec.Active:=true; |
end; |
|
tring):boolean; |
fRecept.Caption:=n11.Captio |
procedure |
|
begin |
|
n; |
TFot1.Button2Click(Sender: |
dm.temp.Active:=false; |
fRecept.ShowModal; |
TObject); |
|
dm.temp.CommandText:='Selec |
end; |
begin |
|
t log_'+rs+' from '+tab+' |
procedure |
closequery; |
|
where (id_'+rs+'='+tmp+')'; |
TFMain.N13Click(Sender: |
end; |
|
dm.temp.Active:=true; |
TObject); |
procedure |
|
if |
|
begin |
TFot1.FormShow(Sender: |
dm.temp.Fields[0].AsBoolean |
tm:=0; |
TObject); |
|
=true then |
|
fot1.Caption:=n13.Caption; |
begin |
begin |
|
fot1.ShowModal; |
dtp1.Date:=date; |
result:=false; |
end; |
dtp2.Date:=date; |
|
end |
|
procedure |
end; |
else if |
|
TFMain.N14Click(Sender: |
procedure |
application.MessageBox('Вых |
TObject); |
TFot1.Button1Click(Sender: |
|
отитеудалитьзапись?','Удале |
begin |
TObject); |
|
ние',mb_yesno+mb_iconquesti |
tm:=1; |
var |
|
on)=idyes then |
fot1.Caption:=n14.Caption; |
|
|
begin |
|
fot1.ShowModal; |
Template,NewTemplate,FindText, |
|
|
end; |
NewStr, |
dm.com.CommandText:='Delete |
procedure |
Replace,ReplaceWith:OleVariant |
|
* from '+tab+' where |
TFMain.N15Click(Sender: |
; |
|
(id_'+rs+'='+tmp+')'; |
TObject); |
LinkToFile,SaveWithDocument,Ra |
|
dm.com.Execute; |
begin |
nge:OleVariant; |
|
result:=true; |
fot2.Caption:=n15.Caption; |
Table1: Table; |
|
showmessage('Удаление |
fot2.ShowModal; |
i: integer; |
|
прошло успешно'); |
end; |
flag:boolean; |
|
end; |
|
end. |
Reg: TRegistry; |
end; |
|
unit ot1; |
begin |
ProcedureTFmain.Zan(rs,tab: |
interface |
//Проверяем, инсталлированли |
|
string); |
//снятие признака |
uses |
Word |
редактирвоания |
Windows, Messages, |
Reg := TRegistry.Create; |
|
begin |
|
SysUtils, Variants, |
|
44
Reg.RootKey := |
|
While (not dm.temp.Eof)do |
HKEY_CLASSES_ROOT; |
Table1.Rows.Add(EmptyParam) |
begin |
flag:=reg.KeyExists('Word.A |
; |
|
pplication'); |
Table1.Cell(i, |
Table1.Rows.Add(EmptyParam); |
reg.Free; |
1).Range.Text := |
Table1.Cell(i, |
//flag:=true; |
dm.temp.Fields[0].AsString; |
1).Range.Text := |
if flag=false then |
Table1.Cell(i, |
dm.temp.Fields[0].AsString; |
begin |
2).Range.Text := |
Table1.Cell(i, |
|
dm.temp.Fields[1].AsString; |
2).Range.Text := |
application.MessageBox('Wor |
Table1.Cell(i, |
dm.temp.Fields[1].AsString; |
d |
3).Range.Text := |
inc(i);dm.temp.next; |
неустановлен','Отчет',mb_ok |
dm.temp.Fields[2].AsString+ |
end; |
+mb_iconstop); |
'- |
Table1.Rows.Item(i).Delete; |
exit; |
'+dm.temp.Fields[3].AsStrin |
|
end; |
g; |
WordApplication1.Visible:=true |
if dtp2.Date<dtp1.Date |
Table1.Cell(i, |
; //делаемприложение MS Word |
then |
4).Range.Text := |
видимым |
begin |
dm.temp.Fields[4].AsString; |
WordApplication1.Disconnect; |
showmessage('Ошибка в |
inc(i);dm.temp.next; |
// Разрываемсвязьссерверо |
последовательности дат'); |
end; |
end |
exit; |
|
end; |
end; |
Table1.Rows.Item(i).Delete; |
end. |
if tm=0 then |
|
unit ot2; |
begin |
WordApplication1.Visible:=t |
interface |
WordApplication1.Connect; |
rue; //делаемприложение MS |
uses |
// Устанавливаем связь с |
Word видимым |
Windows, Messages, SysUtils, |
сервером |
|
Variants, Classes, Graphics, |
//Открываем шаблон |
WordApplication1.Disconnect |
Controls, Forms, |
otchet.dot в Word |
; // Разрываемсвязьссерверо |
Dialogs, StdCtrls, WordXP, |
Template:=ExtractFilePath(A |
end |
OleServer, ComCtrls, |
pplication.EXEName)+'\Шабло |
else if tm=1 then |
ExtCtrls,registry; |
н\Льготники.dot'; //путь к |
begin |
type |
шаблону документа |
WordApplication1.Connect; |
TFot2 = class(TForm) |
WordApplication1.Documents. |
// |
WordApplication1: |
Add(Template,EmptyParam,Emp |
Устанавливаемсвязьссервером |
TWordApplication; |
tyParam,EmptyParam);// |
//Открываем шаблон |
WordDocument1: |
создаемдокументнаосновешабл |
otchet.dot в Word |
TWordDocument; |
она |
Template:=ExtractFilePath(A |
Label1: TLabel; |
|
pplication.EXEName)+'\Шабло |
dtp1: TDateTimePicker; |
WordDocument1.ConnectTo(Wor |
н\Лекарства.dot'; //путь к |
Button1: TButton; |
dApplication1.ActiveDocumen |
шаблону документа |
Button2: TButton; |
t); //Связываемкомпонент |
WordApplication1.Documents. |
procedure |
WordDocument1 c |
Add(Template,EmptyParam,Emp |
Button2Click(Sender: TObject); |
активнымдокументом (т.е. |
tyParam,EmptyParam);// |
procedure |
столькочтосозданнымдокумент |
создаемдокументнаосновешабл |
FormCloseQuery(Sender: |
ом) |
она |
TObject; var CanClose: |
//Заполняем таблицу списка |
WordDocument1.ConnectTo(Wor |
Boolean); |
объектов |
dApplication1.ActiveDocumen |
procedure FormShow(Sender: |
Table1:=WordDocument1.Table |
t); //Связываемкомпонент |
TObject); |
s.Item(1); //связываем имя |
WordDocument1 c |
procedure |
Table1 с первой таблицей |
активнымдокументом (т.е. |
Button1Click(Sender: TObject); |
документа |
столькочтосозданнымдокумент |
private |
//WordDocument1.Tables - |
ом) |
{ Private declarations } |
это массив таблиц документа |
//Заполняем таблицу списка |
public |
(тип Tables), а |
объектов |
{ Public declarations } |
WordDocument1.Tables.Item(i |
Table1:=WordDocument1.Table |
end; |
) - i-ая таблица |
s.Item(1); //связываем имя |
var |
|
Table1 с первой таблицей |
Fot2: TFot2; |
dm.temp.Active:=false; |
документа |
implementation |
|
//WordDocument1.Tables - |
uses datm, Main; |
dm.temp.CommandText:='Selec |
это массив таблиц документа |
{$R *.dfm} |
t |
(тип Tables), а |
procedure |
fio_lg,dr_lg,sp_lg,np_lg,kt |
WordDocument1.Tables.Item(i |
TFot2.Button2Click(Sender: |
_lg from lgot,recept WHERE |
) - i-ая таблица |
TObject); |
(id_lg=id_lg_rec) and |
dm.temp.Active:=false; |
begin |
(datav_rec is not Null) and |
|
closequery; |
(datav_rec between |
dm.temp.CommandText:='Selec |
end; |
#'+fmain.data(dtp1.Date)+'# |
t nazv_lk,st_lk from |
procedure |
and |
lekar,recept,lekRec WHERE |
TFot2.FormCloseQuery(Sender: |
#'+fmain.data(dtp2.Date)+'# |
(id_rec=id_rec_lr) and |
TObject; var CanClose: |
) Group by |
(id_lk=id_lk_lr) and |
Boolean); |
fio_lg,dr_lg,sp_lg,np_lg,kt |
(dataV_rec between |
begin |
_lg'; |
#'+fmain.data(dtp1.Date)+'# |
dtp1.Date:=date; |
dm.temp.Active:=true; |
and |
close; |
i:=2; |
#'+fmain.data(dtp2.Date)+'# |
end; |
While (not |
) Group by nazv_lk,st_lk'; |
procedure |
dm.temp.Eof)do |
dm.temp.Active:=true; |
TFot2.FormShow(Sender: |
begin |
i:=2; |
TObject); |
|
|
begin |
45
dtp1.Date:=date; |
dm.temp.Active:=true; |
end; |
i:=2; |
procedure |
While (not |
TFot2.Button1Click(Sender: |
dm.temp.Eof)do |
TObject); |
begin |
var |
|
|
Table1.Rows.Add(EmptyParam) |
Template,NewTemplate,FindTe |
; |
xt, NewStr, |
Table1.Cell(i, |
Replace,ReplaceWith:OleVari |
1).Range.Text := |
ant; |
dm.temp.Fields[0].AsString; |
LinkToFile,SaveWithDocument |
Table1.Cell(i, |
,Range:OleVariant; |
2).Range.Text := |
Table1: Table; |
dm.temp.Fields[1].AsString; |
i: integer; |
inc(i);dm.temp.next; |
flag:boolean; |
end; |
Reg: TRegistry; |
|
begin |
Table1.Rows.Item(i).Delete; |
//Проверяем, |
|
инсталлированлиWord |
WordApplication1.Visible:=t |
Reg := TRegistry.Create; |
rue; //делаемприложение MS |
Reg.RootKey := |
Word видимым |
HKEY_CLASSES_ROOT; |
|
flag:=reg.KeyExists('Word.A |
WordApplication1.Disconnect |
pplication'); |
; // |
reg.Free; |
Разрываемсвязьссервером |
//flag:=true; |
end; |
if flag=false then |
end. |
begin |
|
application.MessageBox('Wor |
|
d |
|
неустанволен','Отчет',mb_ok |
|
+mb_iconstop); |
|
exit; |
|
end; |
|
WordApplication1.Connect; |
|
// |
|
Устанавливаемсвязьссервером |
|
//Открываемшаблон |
|
otchet.dot в Word |
|
Teplate:=ExtractFilePath(Ap |
|
plication.EXEName)+'\Шаблон |
|
\Справка.dot'; |
|
//путькшаблонудокумента |
|
WordApplication1.Documents. |
|
Add(Template,EmptyParam,Emp |
|
tyParam,EmptyParam);// |
|
создаемдокументнаосновешабл |
|
она |
|
WordDocument1.ConnectTo(Wor |
|
dApplication1.ActiveDocumen |
|
t); //Связываемкомпонент |
|
WordDocument1 c |
|
активнымдокументом (т.е. |
|
столькочтосозданнымдокумент |
|
ом) |
|
//Заполняем таблицу списка |
|
объектов |
|
Table1:=WordDocument1.Table |
|
s.Item(1); //связываем имя |
|
Table1 с первой таблицей |
|
документа |
|
//WordDocument1.Tables - |
|
это массив таблиц документа |
|
(тип Tables), а |
|
WordDocument1.Tables.Item(i |
|
) - i-ая таблица |
|
dm.temp.Active:=false; |
|
dm.temp.CommandText:='Selec |
|
t nazv_lk,st_lk from Lekar |
|
WHERE |
|
((#'+fmain.data(dtp1.Date)+ |
|
'#>=dataD_lk) AND (dataU_lk |
|
is NULL)) OR |
|
(#'+fmain.data(dtp1.Date)+' |
|
# Between datad_lk and |
|
dataU_lk)'; |
|
|
46 |