Topic: Проект по учёту материальных ценностей и их закреплению за работниками
Доброго всем дня!
Прошу помощи в моей проблеме. Не работают строки 167 и 188 кода:
156 procedure frmMain_tgUnit_OnCellClick (Sender: string; ACol, ARow: Integer);
157 begin
158 frmMain.Button6.Enabled := True;
159 ///// ОТОБРАЖЕНИЕ ДАННЫХ ПРИ КЛИКЕ /////////////////////////////////////////////
160 frmMain.Edit1.Text := SQLExecute ('SELECT mfr FROM Unit WHERE id='+frmMain.tgUnit.sqlValue);
161 frmMain.Edit4.Text := SQLExecute ('SELECT mfrYear FROM Unit WHERE id='+frmMain.tgUnit.sqlValue);
162 frmMain.ComboBox1.dbItemID := SQLExecute ('SELECT id_UnitGroup FROM Unit WHERE id='+frmMain.tgUnit.sqlValue);
163 frmMain.ComboBox2.dbItemID := SQLExecute ('SELECT id_UnitName FROM Unit WHERE id='+frmMain.tgUnit.sqlValue);
164 frmMain.ComboBox5.dbItemID := SQLExecute ('SELECT IFNULL(id_Unit, -1) FROM Fixed WHERE
Fixed.id_Unit='+frmMain.tgUnit.sqlValue);
165 if frmMain.ComboBox5.dbItemID<>-1 then
166 begin
167 frmMain.cbPerson.dbItemID := SQLExecute ('SELECT IFNULL(id_Person, -1) FROM Fixed WHERE Fixed.id_Unit='+frmMain.tgUnit.sqlValue);
168 frmMain.edRoom.Text := SQLExecute ('SELECT fixedRoom FROM Fixed WHERE Fixed.id_Unit='+frmMain.tgUnit.sqlValue);
169 end;
170 if frmMain.ComboBox5.dbItemID=-1 then
171 begin
172 frmMain.edRoom.Text := '';
173 frmMain.cbPerson.dbItemID := -1;
174 end;
175 end;
176
177 procedure frmMain_tgUnit_OnKeyUp (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
178 begin
179 frmMain.Button6.Enabled := True;
180 ///// ОТОБРАЖЕНИЕ ДАННЫХ ПРИ КЛИКЕ /////////////////////////////////////////////
181 frmMain.Edit1.Text := SQLExecute ('SELECT mfr FROM Unit WHERE id='+frmMain.tgUnit.sqlValue);
182 frmMain.Edit4.Text := SQLExecute ('SELECT mfrYear FROM Unit WHERE id='+frmMain.tgUnit.sqlValue);
183 frmMain.ComboBox1.dbItemID := SQLExecute ('SELECT id_UnitGroup FROM Unit WHERE id='+frmMain.tgUnit.sqlValue);
184 frmMain.ComboBox2.dbItemID := SQLExecute ('SELECT id_UnitName FROM Unit WHERE id='+frmMain.tgUnit.sqlValue);
185 frmMain.ComboBox5.dbItemID := SQLExecute ('SELECT IFNULL(id_Unit, -1) FROM Fixed WHERE Fixed.id_Unit='+frmMain.tgUnit.sqlValue);
186 if frmMain.ComboBox5.dbItemID<>-1 then
187 begin
188 frmMain.cbPerson.dbItemID := SQLExecute ('SELECT IFNULL(id_Person, -1) FROM Fixed WHERE Fixed.id_Unit='+frmMain.tgUnit.sqlValue);
189 frmMain.edRoom.Text := SQLExecute ('SELECT fixedRoom FROM Fixed WHERE Fixed.id_Unit='+frmMain.tgUnit.sqlValue);
190 end;
191 if frmMain.ComboBox5.dbItemID=-1 then
192 begin
193 frmMain.edRoom.Text := '';
194 frmMain.cbPerson.dbItemID := -1;
195 end;
196 end;
Т.е., если конкретная железка выдана конкретному человеку и в гриде tgUnit для этой железки сформировалась отметка "ВЫДАНО", то при навигации по гриду в cbPerson формы frmMain хочу видеть фамилию этого конкретного человека.
Проект во вложении.