TheGodMode
C#, .Net, Java.
Шарп - обожаю.

TheGodMode
C#, .Net, Java.
Шарп - обожаю. На дотнете (он же шарп) уже писал сайт, на яве делаю лабы и показываю на мобиле как работают (Android), что бы ноут не таскать с собой.

Все понятно, заработало абсолютно все

TheGodMode
Ой ладно вам всем, научусь и разберусь и будет все нормально) Не будет у них ущерба никакого) Все что до этого делал - точно уже смогу повторить) А со временем придет опыт и буду лучше всех

Цитата:

Редактирование и удаление работает, и частично работает добавление данных. Добавляются в БД только ФИО и Профессия. Дата рождения, цех, оклад и пол не добавляются. Почему так происходит? Я не правильно добавляю данные?
PROCEDURE MenuItem

Цитата:

parameters RecNum

DEFINE WINDOW OutWindow FROM 02,02 TO 15,77 TITLE '' ;
CLOSE SHADOW

STORE SPACE(25) to nFamil
STORE SPACE(25) to nName
STORE SPACE(25) to nOtchestvo
STORE SPACE(10) to nRozhdenie
STORE SPACE(1) to nPol
STORE SPACE(25) to nDolg
STORE SPACE(1) to nCeh
STORE SPACE(10) to nOklad

Цитата:

ACTIVATE WINDOW OutWindow

DO WHILE .T.

CLEAR
@ 0,0 TO 2,79 DOUBLE
@ 1,2 SAY "Выберите функцию"
@ 3,0 TO 21,79 DOUBLE
@ 4,2 PROMPT "Изменить"
@ 5,2 PROMPT "Удалить"
@ 6,2 PROMPT "Добавить новую запись"

MENU TO N
DO CASE

CASE N=0
EXIT

CASE N=1
go RecNum
CLEAR
@1,2 say "Фамилия: " get Famil
@2,2 say "Имя: " get Name
@3,2 say "Отчество: " get Otchestvo
@4,2 say "Дата рождения: " get Rozhdenie picture '99/99/9999'
@5,2 say "Пол: " get Pol
@6,2 say "Должность: " get Dolg
@7,2 say "Цех: " get Ceh
@8,2 say "Оклад: " get Oklad
Read

CASE N=2
Go val(right(mArray(zr), 7)) && Установить на нужную запись

Цитата:

delete && Установить признак записи как удаленная

CASE N=3
CLEAR
@1,2 say "Фамилия: " get nFamil
@2,2 say "Имя: " get nName
@3,2 say "Отчество: " get nOtchestvo
@4,2 say "Дата рождения: " get nRozhdenie picture '99.99.9999'
@5,2 say "Пол: " get nPol
@6,2 say "Должность: " get nDolg
@7,2 say "Цех: " get nCeh
@8,2 say "Оклад: " get nOklad
Read

Божья_коровка

TheGodMode
C#, .Net, Java.
Шарп - обожаю.

Почему бы не найти подработку именно в этом направлении? Зачем упираться в "доисторические вехи"?
Вы понимаете, что у FPD 1 нет будущего? А вы молоды...

ssa
С какого перепугу всем переменным присваиваются только и исключительно строки?
С какого перепугу тут val(right(mArray(zr), 7)), если несколькими строками выше вроде использован RecNum?
Повторение кода - мать учения?

TheGodMode
Ну а с повторением, вы предлагаете убрать вынести этот код в отдельную процедуру и ее вызывать?

TheGodMode
последний вопрос остался, как выводить файлы или списки на печать? В хэлпе написано просто "set device to screen / printer". То есть если я просто выведу список и укажу "set device to printer" то оно пойдет на печать?

ssa
А что таки оказалось с ошибкой блокирования записи?

ssa

TheGodMode
Опять пишет "Attempting to lock ... Press ESC to Cancel".

Во-во, с этим надо разобраться. У меня ни в Dosbox, ни в ХР никаких проблем.

TheGodMode
Тогда подскажите как список выводить на принтер пожалуйста.

Цитата:

Если set device to printer не достаточно для этого.

Цитата:

И еще подскажите как выводить файл на печать. Тут я уже проверить никак не смогу работает оно или нет. у меня нет принтера)

copy file 1.txt to prn:

ssa
Так же, как он выводится на экран. Просто указать надо фоксу переключиться с экрана на принтер.[/code]

CASE N=1    && Вывести всю БД в файл
    Go Top
    && set device to file 1_1_All.txt
    set device to printer

    @ROW,1     SAY replicate('-',115)
    @ROW+1,1 SAY '|                                            Полный список сотрудников'
    DO ShapkaFail
    k=4
    SCAN
        k=k+1
        DO VivodFail
        k=k+1
        @ROW+k,1 SAY replicate('-',115)
    ENDSCAN
    set device to screen

ssa
Пока да.

ssa
2. А сразу при входе в процедуру 1(один) раз установить нужное устройство религия не позволяет? Зачем переключать в каждом пункте?