98
open;
end;
Child.Edit1.Text:=AdoQuery1.FIeldByName('caption').AsString;
Child.Edit2.Text:=AdoQuery1.FIeldByName('phone').AsString;
Child.Edit3.Text:=AdoQuery1.FIeldByName('comment').AsString;
Child.DBGrid1.DataSource.DataSet.Filter:='clientid =
'+id;
Child.DBGrid1.DataSource.DataSet.Filtered:=true;
Child.DBGrid1.DataSource.DataSet.Open;
end;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
CreateClientForm('0');
end;
procedure TForm1.N10Click(Sender: TObject);
var
Child: TForm6;
i,k :integer;
f : boolean;
begin
f:=False; //флаг-ложь
k:=0;
for i:=0 to Form1.MDIChildCount-1 do //проверяем
создан ли экземнляр такого окна
if (Form1.MDIChildren[i] is TForm6) then
begin
f:=True;
k:=i;
end;
if (f) then //если создан, то
Form1.MDIChildren[k].Close; //закрываем
Child := TForm6.Create(Application);
//Обновляем отображаемые данные в списке
Child.ADOQuery1.Open;
//выравниваем ширину
Child.Setgridcolumnwidths;
end;
//создание формы для работы с заказом
procedure TForm1.CreateRemontForm(id : string; clientid:
integer);
var
Child: TForm7;
i,k, statusid :integer;
f : boolean;
99
begin
f:=False; //флаг-ложь
k:=0;
for i:=0 to Form1.MDIChildCount-1 do //проверяем
создан ли экземнляр такого окна
if (Form1.MDIChildren[i] is TForm7) then
begin
f:=True;
k:=i;
end;
if (f) then begin //если создан, то
Form1.MDIChildren[k].close; //закрываем
end;
//создаем форму
Child := TForm7.Create(Application);
Child.id.Caption:=id;
Child.DBLookupComboBox1.ListSource.DataSet.Open;
Child.DBLookupComboBox2.ListSource.DataSet.Open;
Child.Setgridcolumnwidths;
//если режим создания
if id='0' then
begin
Child.Caption:='Добавление заказа';
Child.DateTimePicker1.DateTime:=now;
Child.DateTimePicker2.Visible:=false;
Child.Label9.Caption:='0';
Child.Label10.Caption:='Создание';
Child.BitBtn3.Enabled:=false;
Child.BitBtn4.Enabled:=false;
Child.BitBtn5.Enabled:=false;
Child.BitBtn6.Enabled:=false;
if clientid<>0 then
Child.DBLookupComboBox1.KeyValue:=clientid else
Child.DBLookupComboBox1.KeyValue:=-1;
Child.DBLookupComboBox2.KeyValue:=StrToInt(userid.Caption);
end
else
begin
Child.Caption := 'Редактирование данных заказа';
//задаем название
With AdoQuery1 do
begin
close;
SQL.clear;
SQL.Add('SELECT * FROM remont WHERE id='+id);
open;
end;
Child.DBLookupComboBox1.KeyValue:=AdoQuery1.FIeldByName('clien
tid').AsVariant;
100
Child.DBLookupComboBox2.KeyValue:=AdoQuery1.FIeldByName('useri
d').AsVariant;
Child.DateTimePicker1.DateTime:=AdoQuery1.FIeldByName('created
at').AsVariant;
if AdoQuery1.FIeldByName('endedat').IsNull then
Child.DateTimePicker2.visible:=false
else
Child.DateTimePicker2.DateTime:=AdoQuery1.FIeldByName('endedat
').AsVariant;
Child.edit1.Text:=AdoQuery1.FIeldByName('amount').AsVariant;
statusid:=AdoQuery1.FIeldByName('statusid').AsInteger;
With AdoQuery2 do
begin
close;
SQL.clear;
SQL.Add('SELECT * FROM status WHERE
id='+IntToStr(statusid));
open;
end;
Child.Label10.Caption:=AdoQuery2.FIeldByName('caption').AsVari
ant;
Child.DBGrid1.DataSource.DataSet.Filter:='remontid =
'+id;
Child.DBGrid1.DataSource.DataSet.Filtered:=true;
Child.DBGrid1.DataSource.DataSet.Open;
if statusid=1 then Child.BitBtn7.Enabled:=true;
if statusid=2 then Child.BitBtn8.Enabled:=true;
if statusid=3 then Child.BitBtn2.Enabled:=true;
if statusid=4 then begin Child.BitBtn3.Enabled:=false;
Child.BitBtn6.Enabled:=false; Child.BitBtn1.Enabled:=false;
end;
end;
end;
end.