IdT:=Form1.ClientDataSetTema.FieldValues['TEMA_ID'];
Form1.ClientDataSetPredmet.Close;
Form1.ClientDataSetTema.Close;
Form1.ClientDataSetVopros.Close;
Form1.ClientDataSetVariant.Close;
Form1.ClientDataSetPredmet.Open;
Form1.ClientDataSetTema.Open;
Form1.ClientDataSetVopros.Open;
Form1.ClientDataSetVariant.Open;
Form1.ClientDataSetPredmet.Locate('PREDMET_ID',IdP,[]);
Form1.ClientDataSetTema.Locate('TEMA_ID',IdT,[]);
DBLookupComboBox1.KeyValue:=Form1.ClientDataSetPredmet.FieldValues['PREDMET_ID']
;
DBLookupComboBox2.KeyValue:=Form1.ClientDataSetTema.FieldValues['TEMA_ID'];
end;
procedure TVoprosOtvetListFrm.RzDBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if DataCol=1 then
begin
if (Sender as TDBGrid).Fields[DataCol].AsBoolean then
begin
(Sender as TDBGrid).Canvas.Brush.Color:=clLime;
(Sender as TDBGrid).Canvas.FillRect(Rect);
(Sender As TDBGrid).Canvas.TextOut(Rect.Left+5, Rect.Top,'Да');
end else
begin
(Sender as TDBGrid).Canvas.Brush.Color:=clWindow;
(Sender as TDBGrid).Canvas.FillRect(Rect);
(Sender As TDBGrid).Canvas.TextOut(Rect.Left+5, Rect.Top,'Нет');
end;
end;
end;
end.
unit NewVopros;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TNewVoprosFrm = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;