• Дисциплины
• Виды работ

База данных «приемная комиссия»

Реферат - Компьютеры, программирование

Другие рефераты по предмету Компьютеры, программирование

osition:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=NameFirm;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[1].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=Inn;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[2].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=Adress;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[3].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=Tel;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[4].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=Bank;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[5].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=RSChet;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[6].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=KSChet;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[7].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=Bik;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[8].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=License2;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[9].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=Doljnost;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[12].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=FIODir;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[10].Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=FIOZakazchik;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(FamDBEdit.Text+ +NameDBEdit.Text+ +SurNameDBEdit.Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=DateRojd;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(DateRDBEdit.Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=Pasport;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(SeriaDBEdit.Text+ № +NumDBEdit.Text+ выдан +VudanDBEdit.Text+ от +DateVudachDBEdit.Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=AdressZakazchik;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(PropiskaDBEdit.Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=TelZakazchik;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(TelDBEdit.Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=FIOZakazchikNiz;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

WA.Selection.TypeText(Copy(NameDBEdit.Text,0,1)+. +Copy(SurNameDBEdit.Text,0,1)+. +FamDBEdit.Text);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

try

NameBookmakers:=START;

WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

end;

//Сохранение документа во временной папки

S1:=Path+\Doc\Договор №+DogovorDBEdit.Text+.doc;

try

WA.ActiveDocument.SaveAs(S1, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

Application.MessageBox(Не удалось сохранить документ во временную папку! Все документы MS Word будут закрыты. Попытаться снова создать документ?,Критическая ошибка,mb_Ok+mb_IconError);

WA.Disconnect;

WA.Quit(EmptyParam,EmptyParam,EmptyParam);

end;

WA.Visible:=true;

WA.Activate;

WA.Disconnect;

MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+6;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

except

Application.MessageBox(Связь с MS Word завершилась неудачей! Закройте все документы MS Word и попробуйте снова.,Критическая ошибка,mb_ok+mb_IconError);

end;

end;

MainForm.ProgressBar1.Position:=100;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+% ;

MainForm.ProgressBar1.Visible:=false;

end;

Приложение Г

//Процедура поиска слушателей по заданным критериям для формирования списка группы

procedure TListGroupForm.RunButtonClick(Sender: TObject);

• Назад
• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• Далее