Форма “Регистрация пользователя
Метод Activate формы “Регистрация пользователя”
Set skip of menu _msysmenu .T.
if not USED("Parol1.dbf")
USE Parol1 in 0
endif
Метод Click кнопки Ok
select Parol1
locate for trim(ThisForm.Imya.Text)==trim(cName) or trim(ThisForm.Par.Text)==trim(cPsw)
if Found()
if trim(ThisForm.Imya.Text)==trim(cName) and trim(ThisForm.Par.Text)==trim(cPsw)
DO Form vedenietab
ELSE
MessageBox("Ошибка при вводе",4+2+256,"Ошибка")
ThisForm.iSch=ThisForm.iSch+1
if(ThisForm.iSch=4)
ThisForm.iSch=0
MessageBox("Исчерпано количество попыток?",4+2+256,"Предупреждение")
Delete
Set Skip Of bar 5 Of popup Ведение словарей .T.
ThisForm.Release()
endif
endif
else
MessageBox("Пароль неверный",4+2+256,"Ошибка")
endif
Форма “Ведение словарей”
Свойства формы
|
Свойство |
Значение |
|
BorderStyle |
1 - Fixed Single |
|
Caption |
Ведение словарей |
|
Name |
frmSlov |
Свойства объекта PageFrame
|
Свойство |
Значение |
|
Name |
pgfSlovari |
|
PageCount |
3 |
|
Страница 1 | |
|
Caption |
Поставщик |
|
Name |
pagPost |
|
Объект Grid | |
|
СolumnCount |
-1 |
|
Panel |
1 – Right (Default) |
|
RecordSource |
1-Alias |
|
Name |
grdPost |
|
RecordSource |
post |
|
Страница 2 | |
|
Caption |
Получатель |
|
Name |
pagPol |
|
Объект Grid | |
|
ColumnCount |
-1 |
|
Name |
GrPol |
|
Panel |
1 – Right (Default) |
|
ReadOnly |
.T. - True |
|
RecordSource |
pol |
|
Страница 3 | |
|
Caption |
Сырье |
|
Name |
pagSur |
|
Объект TextBox 1 | |
|
ControlSource |
Sur.idsur |
|
Name |
TxtKodSur |
|
ReadOnly |
.T. - True |
|
Объект TextBox 2 | |
|
ControlSource |
Sur.Namesur |
|
Name |
txtNamesur |
|
ReadOnly |
.T. - True |
|
Объект TextBox 3 | |
|
ControlSource |
Sur.srokxran |
|
Name |
txtSrokxran |
|
ReadOnly |
.T. - True |
|
Объект TextBox 4 | |
|
ControlSource |
Sur.tempxran |
|
Name |
txttempxran |
|
ReadOnly |
.T. - True |
|
Объект TextBox 5 | |
|
Name |
TxtKodSurR |
|
ReadOnly |
.F. - True |
|
Объект TextBox 6 | |
|
Name |
txtNamesurR |
|
ReadOnly |
.F. - True |
|
Объект TextBox 7 | |
|
Name |
txtSrokxranR |
|
ReadOnly |
.F. - True |
|
Объект TextBox 8 | |
|
Name |
txttempxranR |
|
ReadOnly |
.F. - True |
Свойства объекта Commangroup
|
Свойство |
Значение | ||
|
Autosize |
.T. - True | ||
|
Name |
cmgNav | ||
|
BackStyle |
0 - Transparent | ||
|
Buttoncount |
10 | ||
|
Кнопка Top | |||
|
Caption |
Top | ||
|
Name |
cmbTop | ||
|
Mетод Click |
Go Top ThisForm.Label1.Caption=" " ThisForm.Commangroup1.bPrev.Enabled = .F. ThisForm.Commangroup1.bNext.Enabled = .T. ThisForm.Commangroup1.bBottom.Enabled= .T. _screen.ActiveForm.Refresh() | ||
|
Кнопка Prev | |||
|
Caption |
Prev | ||
|
Name |
cmbPrev | ||
|
Mетод Click |
Skip -1 ThisForm.Label1.Caption=" " If Bof() ThisForm.Label1.Caption="Первая строка" * управление доступнностью кнопок: ThisForm.Commangroup1.bTop.Enabled = .F. ThisForm.Commangroup1.bPrev.Enabled = .F. Else ThisForm.Commangroup1.bTop.Enabled = .T. ThisForm.Commangroup1.bPrev.Enabled = .T. EndIf ThisForm.Commangroup1.bNext.Enabled = .T. ThisForm.Commangroup1.bBottom.Enabled = .T. _screen.ActiveForm.Refresh() | ||
|
Кнопка Next | |||
|
Caption |
Next | ||
|
Name |
cmbNext | ||
|
Метод Click |
Skip 1 ThisForm.Label1.Caption=" " If Eof() ThisForm.Label1.Caption="Последняя строка" * управление доступнностью кнопок: ThisForm.cmgNav.cmbNext.Enabled = .F. ThisForm.cmgNav.cmbBottom.Enabled = .F. Else ThisForm.cmgNav.cmbNext.Enabled = .T. ThisForm.cmgNav.cmbBottom.Enabled = .T. EndIf ThisForm.cmgNav.cmbTop.Enabled = .T. ThisForm.cmgNav.cmbPrev.Enabled = .T. _screen.ActiveForm.Refresh() | ||
|
Кнопка Buttom | |||
|
Caption |
Buttom | ||
|
Name |
cmbButtom | ||
|
Метод Click |
Go Bottom ThisForm.Label1.Caption=" " ThisForm.cmgNav.cmbNext.Enabled = .F. ThisForm.cmgNav.cmbPrev.Enabled = .T. ThisForm.cmgNav.cmbTop.Enabled=.T. _screen.ActiveForm.Refresh() | ||
|
Кнопка Edit | |||
|
Caption |
Edit | ||
|
Name |
cmbEdit | ||
|
Метод Click |
ThisForm.Commangroup1.bAdd.Enabled=.T. ThisForm.Commangroup1.bDelete.Enabled=.T.
SCATTER memvar
DO case CASE ThisForm.pgfSlovari.ActivePage=3 ThisForm.Commangroup1.bDelete.Enabled = .T.
endcase | ||
|
Кнопка Exit | |||
|
Caption |
Exit | ||
|
Name |
cmbExit | ||
|
Метод Click |
If MessageBox("Закрыть форму",4+32+256,"Выход")=6 ThisForm.Release() Else ThisForm.Refresh() EndIf | ||
|
Кнопка Add | |||
|
Caption |
Add | ||
|
Name |
cmbAdd | ||
|
Метод Click |
DO case CASE ThisForm.pgfSlovari.ActivePage=3 GO Bottom Scatter MEMVAR ThisForm.pgfSlovari.pagSur.txtKodSur.Value=m.idsur ThisForm.pgfSlovari.pagSur.txtKodSurR.Value=100 + ThisForm.pgfSlovari.pagSur.txtKodSur.Value SCATTER MEMVAR blank ThisForm.pgfSlovari.pagSur.txtKodSurR.Visible= .T. ThisForm.pgfSlovari.pagSur.txtNameSurR.Visible= .T. ThisForm.pgfSlovari.pagSur.txtTempXranR.Visible= .T. ThisForm.pgfSlovari.pagSur.txtSrokXranR.Visible= .T. ThisForm.pgfSlovari.pagSur.label5.Visible= .T. ThisForm.pgfSlovari.pagSur.label6.Visible= .T. ThisForm.pgfSlovari.pagSur.label7.Visible= .T. ThisForm.pgfSlovari.pagSur.label8.Visible= .T. ThisForm.pgfSlovari.pagSur.label9.Visible= .T. ThisForm.Commangroup1.bSave.Enabled=.T. ThisForm.Commangroup1.bCancel.Enabled=.T. ENDCASE ThisForm.Refresh() | ||
|
Кнопка Delete | |||
|
Caption |
Delete | ||
|
Name |
cmbDelete | ||
|
Метод Click |
Scatter memvar DELETE IF thisform.pgfSlovari.ActivePage=3 ThisForm.cmgNav.cmbCancel.Enabled=.T. ThisForm.cmgNav.cmbSave.Enabled=.T. endif ThisForm.Refresh() | ||
|
Кнопка Save | |||
|
Caption |
Save | ||
|
Name |
cmbSave | ||
|
Метод Click |
DO case CASE thisForm.pgfSlovari.ActivePage=3 APPEND BLANK m.idsur =ThisForm.pgfSlovari.pagSur.txtKodSurR.value m.Namesur=ThisForm.pgfSlovari.pagSur.txtNameSurR.value m.tempxran =ThisForm.pgfSlovari.pagSur.txtTempXranR.value m.srokxran=ThisForm.pgfSlovari.pagSur.txtSrokXranR.value GATHER MEMVAR ThisForm.pgfSlovari.pagSur.txtKodSurR.Visible= .F. ThisForm.pgfSlovari.pagSur.txtNameSurR.Visible= .F. ThisForm.pgfSlovari.pagSur.txtTempXranR.Visible= .F. ThisForm.pgfSlovari.pagSur.txtSrokXranR.Visible= .F. ThisForm.pgfSlovari.pagSur.label5.Visible= .F. ThisForm.pgfSlovari.pagSur.label6.Visible= .F. ThisForm.pgfSlovari.pagSur.label7.Visible= .F. ThisForm.pgfSlovari.pagSur.label8.Visible= .F. ThisForm.pgfSlovari.pagSur.label9.Visible= .F. Endcase | ||
|
Кнопка Cancel | |||
|
Caption |
Cancel | ||
|
Name |
cmbCancel | ||
|
Метод Click |
DO case CASE ThisForm.pgfSlovari.ActivePage=2 SCATTER memvar ThisForm.pgfSlovari.pagSpezspor.txtNazSpez.value=NazSpez ThisForm.pgfSlovari.pagSpezspor.txtIdSpez.Value=IdSpez endcase ThisForm.Commangroup1.bSave.Enabled=.F. ThisForm.Commangroup1.bAdd.Enabled=.F. ThisForm.Commangroup1.bDelete.Enabled=.F. ThisForm.Commangroup1.bCancel.Enabled=.F. ThisForm.Refresh() | ||
Таблица со сменной информацией
