Российский рынок экономических информационных систем. "ХАКЕРС ДИЗАЙН": сетевая система &qu...
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
=R div 1000;
N:=L mod 10;
s:=mii ;
if N = 1 then s:=mie ;
StrNumS:=StrNumS(L,female) + s +
StrNumS(R mod 1000,f);
end
else if R <= 999999 then begin
L:=R div 1000;
N:=L mod 10;
s:=de mii ;
StrNumS:=StrNumS(L,female) + s +
StrNumS(R mod 1000,f);
end
else if R <= 1999999
then begin
StrNumS:= un milion +
StrNumS(R mod 1000000,f);
end
else if R <= 2999999
then begin
StrNumS:= doua milioane +
StrNumS(R mod 1000000,f);
end
else if R <= 999999999
then begin
L:=R div 1000000;
N:=L mod 10;
s:=milioane ;
StrNumS:=StrNumS(L,male) + s +
StrNumS(R mod 1000000,f);
end
else if R <= 1999999999
then StrNumS:=un miliard +
StrNumS(R mod 1000000000,f)
else StrNumS:=****** N > 1,999,999,999 ******;
end;
procedure P(s :pChar); export;
var i,n :longint; c :integer;
q,t :string;
begin
q:=StrPas(s);
t:=;
for i:=1 to length(q)
do if q[i] <> ,
then t:=t+q[i];
Val(t,n,c);
if c <> 0
then q:=ERROR
else q:=StrNumS(n, male);
q[1]:=upcase(q[1]);
StrPcopy(s, q);
end;
const M :array [1..12] of string[20] =
(ianuarie ,februarie ,martie ,aprelie ,mai ,iunie ,iulie ,
august ,septembrie ,oktombrie ,noembrie ,decembrie );
procedure Q(s :pChar); export;
var q :string; n,c :integer;
begin
q:=StrPas(s);
Val(q,n,c);
if c <> 0
then q:=ERROR 1
else if (n 12)
then q:=ERROR 2
else q:=M[n];
StrPcopy(s,q);
end;
exports P index 1;
exports Q index 2;
begin
end.
После компоновки библиотеки moldova.dll и размещения его в директории файлов данных бухгалтерии, можно вызывать содержащиеся в нем процедуры из файлов-форм. Приводимые процедуры можно использовать при подготовке первичных документов на молдавском языке вместо встроенных в "Финансы без проблем" "русскоязычных" функций [wn ] и [dt ]. Мы, однако, делать этого не будем и проверим работоспособность функции [DLLcall ], вызвав ее прямо из калькулятора:
Так по молдавски пишется 2458051. А вот так пишется слово сентябрь:
"Финансы без проблем" для Windows
Начиная с февраля 1995 года пользователям поставляется версия программы "Финансы без проблем" для Windows. Она полностью совместима с версией 4000 для DOS. Здесь нет никаких отличий ни в концепции, ни в структуре файлов, ни в базовом наборе функций языка форм. Все рассмотренные до сих пор в книге примеры одинаково пригодны как для DOS, так и для Windows версий. Именно поэтому акцент делался на использовании DOS версии программы, как существенно более распространенной.
В то же время, в версии для Windows поддерживаются основные дополнительные возможности, предоставляемые этой операционной системой. Основные отличия состоят в наличии многооконного интерфейса, а также возможности организовать фоновые вычисления и взаимодействие с другими Windows-приложениями на основе динамического обмена данными (DDE).
Прежде, чем перейти к рассмотрению этих новых возможностей, разберем процесс инсталляции Windows-версии программы.
Windows-версия "Финансов без проблем" предъявляет более жесткие требования к аппаратному обеспечению, чем версия 4000 для DOS. В качестве минимальных требований к аппаратуре разработчиками указывается наличие процессора 286 с обязательным сопроцессором 287, 2Мб памяти и видеоадаптера VGA. При написании книги использовался компьютер 386DX без сопроцессора с 4Мб памяти и монитором 14". В данной конфигурации DOS версия работает превосходно, а версия для Windows приемлемо. И если расчеты производятся достаточно быстро, то про скорость обновления экрана этого сказать нельзя. Впрочем, любые Windows-приложения при такой конфигурации работают неторопливо. Существенно приятнее работать с программой при наличии процессора 486DX. При использовании программы в многооконном режиме особенно важно наличие "большого" монитора. Здесь хорошим вариантом является монитор 17" при разрешении 1024х768. В этом случае окна действительно являются окнами с хорошей обозреваемостью и возможности программы можно ощутить в полной мере.
Установка программы очень проста. После запуска Windows необходимо стартовать с дискеты файл FINSETUP.EXE. На экране появляется "полосатый" фон и окно "Тест системного шрифта" установщика программы. Для работы необходимо иметь, как минимум, два кириллических шрифта: системный шрифт (System font) и системный шрифт с одинаковой шириной всех букв (System fixed font). Для проверки наличия этих шрифтов в окне выводится тест по которому можно визуально определить их подключение к Windows.
Если какой-либо шрифт отсутствует, то необходимо нажать кнопку "Нет, нужна кириллица". В результате этого в каталог Windows будут добавлены шрифты FINWSYS.FON и FINWFIX.FON, а в файл SYSTEM.INI внесены необходимые изменения. При этом, предыдущая копия SYSTEM.INI будет сохранена в файле SYSTEM.OLD. После этого будет произведен рестарт Windows и повторная загрузка теста. После подключения шрифтов с кириллицей для продолжения процесса инсталляции нажмите клавишу "Да, строки в рамках видны нормально".
На экране появится основное окно установщика программы. Проведя мышью по пунктам диалога этого окна, ознакомьтесь с соответствующими им "баллонами" помощи и у?/p>