1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
**************************************************
*-- Form: form1 (d:\users\foxprimer\новая папка\projectkid\projectkid\editone.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 04/03/07 01:04:13 PM
*
DEFINE CLASS form1 AS form
DataSession = 2
Height = 217
Width = 370
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Редактирование"
WindowType = 0
WindowState = 0
Name = "Form1"
ADD OBJECT lbldocum_id AS label WITH ;
AutoSize = .T., ;
FontBold = .F., ;
FontItalic = .T., ;
BackStyle = 0 , ;
Caption = "Код студента:", ;
Left = 12 , ;
Top = 12 , ;
TabIndex = 1 , ;
Name = "lblDocum_id"
ADD OBJECT lblfio2 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
BackStyle = 0 , ;
Caption = "Фамилия ", ;
Left = 43 , ;
Top = 48 , ;
TabIndex = 2 , ;
Name = "lblFio2"
ADD OBJECT lblpredmet AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
BackStyle = 0 , ;
Caption = "Предмет", ;
Left = 50 , ;
Top = 84 , ;
TabIndex = 3 , ;
Name = "lblPredmet"
ADD OBJECT lblozenka AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
BackStyle = 0 , ;
Caption = "Оценка", ;
Left = 58 , ;
Top = 120 , ;
TabIndex = 4 , ;
Name = "lblOzenka"
ADD OBJECT txt_id AS textbox WITH ;
Comment = "Код строки - первичный ключ", ;
ControlSource = "exams.examid", ;
Height = 23 , ;
Left = 120 , ;
ReadOnly = .T., ;
TabIndex = 5 , ;
TabStop = .F., ;
Top = 12 , ;
Width = 40 , ;
Name = "txt_id"
ADD OBJECT txtozenka AS textbox WITH ;
Comment = "", ;
ControlSource = "exams.mark", ;
Height = 23 , ;
InputMask = "9", ;
Left = 120 , ;
MaxLength = 1 , ;
TabIndex = 8 , ;
Top = 120 , ;
Width = 23 , ;
Name = "txtOzenka"
ADD OBJECT cmdsave AS commandbutton WITH ;
Top = 168 , ;
Left = 36 , ;
Height = 24 , ;
Width = 84 , ;
Picture = "..\..\eduard\учебные комплексы\уд+\sh\wizbmps\wzsave.bmp", ;
Caption = "Сохранить", ;
TabIndex = 9 , ;
TabStop = .F., ;
ToolTipText = " Сохранить изменения в файле", ;
Name = "cmdSave"
ADD OBJECT cmdexit AS commandbutton WITH ;
Top = 168 , ;
Left = 204 , ;
Height = 25 , ;
Width = 84 , ;
Picture = "..\..\eduard\учебные комплексы\уд+\sh\wizbmps\wzundo.bmp", ;
Cancel = .T., ;
Caption = "Выход", ;
TabIndex = 10 , ;
TabStop = .F., ;
ToolTipText = " Отменить изменения ", ;
Name = "cmdExit"
ADD OBJECT txtfio AS combobox WITH ;
BoundColumn = 2 , ;
ColumnCount = 0 , ;
ColumnWidths = "", ;
RowSourceType = 6 , ;
RowSource = "students.fio,studentId", ;
ControlSource = "exams.studentid", ;
Height = 25 , ;
Left = 120 , ;
TabIndex = 6 , ;
Top = 48 , ;
Width = 181 , ;
BoundTo = .T., ;
Name = "txtFIO"
ADD OBJECT txtpredmet AS combobox WITH ;
BoundColumn = 2 , ;
ColumnCount = 0 , ;
ColumnWidths = "", ;
RowSourceType = 6 , ;
RowSource = "predmets.predmet,predmetId", ;
ControlSource = "exams.predmetid", ;
Height = 25 , ;
Left = 120 , ;
TabIndex = 7 , ;
Top = 84 , ;
Width = 181 , ;
BoundTo = .T., ;
Name = "txtPredmet"
PROCEDURE QueryUnload
NODEFAULT
ThisForm.CmdExit.Click()
ENDPROC
PROCEDURE Init
Parameters tiKodId
IF TYPE("m.tiKodId")<>"N"
m.tiKodId= 0
ENDIF
Select exams
IF m.tiKodId= 0
APPEND BLANK
ELSE
IF SEEK(m.tiKodId,"exams","examId") = .F.
MessageBox("Указан не существующий код записи")
RETURN .F.
ENDIF
ENDIF
ENDPROC
PROCEDURE cmdsave.Click
IF TableUpDate( 0 ,.T.,"exams")=.F.
LOCAL laError( 1 )
AERROR(laError)
* Разбор массива laError для уточнения причины ошибки
ELSE
ThisForm.Release()
ENDIF
ENDPROC
PROCEDURE cmdexit.Click
= TableRevert(.F.,"exams")
ThisForm.Release()
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************
