Материалы, похожие на работу «База данных страховой компании»

Object Pascal — Реферат
Object Pascal 1. Основы языка Object Pascal 1.1. Алфавит языка Основными символами языка Object Pascal являются: символы _ 26 больших и 26 малых ...
if L1 then if L2 then St1 else St2 else St3;
if DirectoryExists('C:APPSSALESLOCAL') then ; Function FileExists(FileName: string): boolean;...
Министерство Образования и Науки Республики Беларусь Минский Государственный Высший Радиотехнический Колледж Защита данных от несанкционированного ...
int 20h wr_sour: ;Записать source_file в конец mov cx, si ;EXE-файла mov dx, di add dx, len_imit jnc m1 inc cx m1: add dx, 15 jnc m2 inc cx m2: and dx, 0FFF0h mov si, cx mov di, dx ...
конец COM-файла jmp st_2com new_beg label byte mov ax, cs c_1: add ax, 0 push ax c_2: mov ax, 0 push ax db 0CBh len_new_beg equ $-new_beg com label byte mov di, 100h push cs pop ds ... ...
Содержание. Введение 1. Постановка задачи 1. 1. Организационно-экономическая сущность задачи 1. 2. Входные данные 1. 3. Постоянная информация 1. 4 ...
if AOptions and ($0100 shl I) 0 then
St: string;...
Разработка файловой оболочки Постановка задачи. Задача заключается в разработке файловой оболочки для операционной системы Windows"95/98. В программе ...
If FindForm.CBAdvSearch.Checked and (F.AttrfaDirectory) then
Function CreateDestinPathForFile(S,D,f:string):string;...
НАХОЖДЕНИЕ ВСЕХ ДЕЙСТВИТЕЛЬНЫХ КОРНЕЙ АЛГЕБРАИЧЕСКОГО МНОГОЧЛЕНА МЕТОДОМ ДЕЛЕНИЯ ОТРЕЗКА ПОПОЛАМ (БИСЕКЦИИ) И МЕТОДОМ ХОРД И КАСАТЕЛЬНЫХ С УКАЗАННОЙ ...
If Sgn(F(Range("curleft").Value)) = Sgn(F(Range("curright").Value)) Then
If Abs(F(Range("Curcenter").Value)) > Range("toc").Value Then If Sgn(F(Range("curleft").Value)) <> Sgn(F(Range("curcenter").Value)) Then Range("curright").Value = Range("curcenter ... ...
Содержание Введение 3 Глава 1. Динамические типы данных 6 1.1 Списки. Очередь. Стек. Дек. 6 1.2 Динамические информационные структуры 22 Глава 2 ...
PointerBegin := PointerBegin ^.Next; Ссылка на следующий. if q nil then Dispose(q); Уничтожение. end; end;
Destroy for every lists if ListBegin nil then DestroyList(ListBegin); if ListTwoBegin nil then DestroyListTwo(ListTwoBegin); if QueueBegin nil then DestroyList(QueueBegin); if ... ...
Аннотация Дипломный проект посвящен разработке автоматизированной информационной системы учета выбывших из стационара. Система базируется на форме ...
IF _END1=2 && переведен context(@string,"Причина:",extra1(_END2,"RIZ2")+".",length,.F.) context(@string,"Куда:",extra1(_END3,"HOSP")+".",length,.F.)
4,7 CLEAR TO 15,72 saycent(5,5,75," *** "+_OTCH_N+" *** ") saycent(6,5,75,"по "+IF(dep=0,"всему стационару ","отделению "+dep_name)) saycent(7,5,75,"за период с "+DTOC(_DATE_FROM ... ...
Обделка вертикальных стволов — Дипломная работа
ВЫБОР МАТЕРИАЛА И РАСЧЕТ ПАРАМЕТРОВ ОБДЕЛОК ВЕРТИКАЛЬHЫХ СТВОЛОВ МЕТРОПОЛИТЕHОВ Общий раздел ИСТОРИЯ РАЗВИТИЯ МОСКОВСКОГО МЕТРОПОЛИТЕНА. МЕТРОПОЛИТЕН ...
где q1=0.1 f, где f=4 - крепость вмещающих пород по профессору Протодьяконову;
if RadioButton1.Checked then begin...
Технология строительства метрополитена Оглавление. 1. Аннотация (Annotation) стр. 2 2. Общий раздел 3 2.1. История развития метрополитена ...
где q1=0.1 f, где f=4 - крепость вмещающих пород по профессору Протодьяконову;
if RadioButton1.Checked then begin...
Содержание ВВЕДЕНИЕ 7 Глава 1. Анализ предметной области 8 1. 1. Существующие программные комплексы 8 1. 2. Постановка задач на проектирование 12 ...
TObject); begin if Protnil then Prot.Clear; if ActListnil then ActList.Clear; if Protnil then Prot.Clear;
Report.ReportForm.ProtList.Items.Append(Prot.Strings[i]); s:=TimeToStr(Now); if FileExists('Info\Report.txt') then...
VBA Платежка — Реферат
Министерство образования Республики Беларусь МОГИЛЕВСКИЙ МАШИНОСТРОИТЕЛЬНЫЙ ИНСТИТУТ Институт повышения квалификации и переподготовки кадров Кафедра ...
If ComboBox1.ListIndex = -1 Then
ComboBox1.Clear...
Федеральная Авиационная Служба России МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ ГРАЖДАНСКОЙ АВИАЦИИ Кафедра прикладной математики Курсовая ...
If Sgn(F(Range("curleft").Value)) = Sgn(F(Range("curright").Value)) Then
If Abs(F(Range("Curcenter").Value)) > Range("toc").Value Then If...
НАХОЖДЕНИЕ ВСЕХ ДЕЙСТВИТЕЛЬНЫХ КОРНЕЙ АЛГЕБРАИЧЕСКОГО МНОГОЧЛЕНА МЕТОДОМ ДЕЛЕНИЯ ОТРЕЗКА ПОПОЛАМ (БИСЕКЦИИ) И МЕТОДОМ ХОРД И КАСАТЕЛЬНЫХ С УКАЗАННОЙ ...
If Sgn(F(Range("curleft").Value)) = Sgn(F(Range("curright").Value)) Then
If Abs(F(Range("Curcenter").Value)) > Range("toc").Value Then If Sgn(F(Range("curleft").Value)) Sgn(F(Range("curcenter").Value)) Then Range("curright").Value = Range("curcenter ... ...
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ ТАВРИЧЕСКИЙ НАЦИОНАЛЬНЫЙ УНИВЕРСИТЕТ им. В.И.Вернандского МАТЕМАТИЧЕСКИЙ ФАКУЛЬТЕТ КАФЕДРА ИНФОРМАТИКИ ...
Memo1.Lines.Clear;
if Key = VK_Return then...
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ ТАВРИЧЕСКИЙ НАЦИОНАЛЬНЫЙ УНИВЕРСИТЕТ им. В.И.Вернандского МАТЕМАТИЧЕСКИЙ ФАКУЛЬТЕТ КАФЕДРА ИНФОРМАТИКИ ...
if HistoryList.Count > 0 then
Memo2.Lines.Clear;...
Разработка интерактивной среды обучения работе в Borland Delphi Введение На Земле каждый час увеличивается количество компьютеров. Они работают с ...
if copy(d,2,1)='1' then s1:='`st' else
if eof(f) then speedbutton2.Enabled:=false...
Оглавление. |стр.| |1. Аннотация (Annotation) |2 | |2. Общий раздел |3 | | 2.1. История развития метрополитена. Метрополитен|4 | |сегодня. | 2.2 ...
S: String; begin rxDBFilter1.Deactivate; rxDBFilter1.Filter.Clear; s:='Stuff = '+TableSTUFF.FieldByName('Code').AsString; rxDBFilter1.Filter.Add(S); rxDBFilter1.Activate; end;
List.Add(MDIChildren[I].ClassName); if List.Count > 0 then...
Содержание. Введение. Глава 1. Функционирование рынка РКО. Участники рынка. Процедура торгов. Первичное размещение (аукцион). Вторичные торги ...
With MenuBars(xlModule).Menus.Add("&Справочник")
If Worksheets("Клиенты").Cells(i + 1; 2) = Empty Then...
Язык с — Реферат
Аннотация. Язык "C"(произносится "си") - это универсальный язык программирования, для которого характерны экономичность выражения, современный поток ...
IF (I > 0) THEN
ELSE IF (UTYPE == STRING)...
©2007—2016 Пуск!by | По вопросам сотрудничества обращайтесь в contextus@mail.ru