Вывести из запоя в казани. Центр:
запой вывод сколько стоит. Как прекратить запой.
|
Автор: Administrator
|
|
Процедуры заполняющие combobox’ы с региональными операторами на вкладках Добавление Абонента и Поиск Абонента
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i,k:word;
SotCom,ROName:ShortString;
begin
i:=1;
combobox2.Clear;
combobox3.Clear;
SotCom:=combobox1.text;
with adotable3 do
begin
first;
while not EOF do
begin
if SotCom=FieldByName('SotCom').AsString then
begin
combobox2.items.Add(FieldByName('ROName').AsString);
next;
break;
end;
next;
end;
while not EOF do
begin
if SotCom<>FieldByName('SotCom').AsString then
begin
next;
continue;
end;
ROName:=FieldByName('ROName').AsString;
for k:=0 to i-1 do
if ROName=combobox2.Items[k] then
begin
ROName:='';
break;
end;
if ROName<>'' then
begin
combobox2.items.Add(FieldByName('ROName').AsString);
inc(i);
end;
next;
end;
end;
end;
procedure TForm1.ComboBox4Change(Sender: TObject);
var
i,k:word;
SotCom,ROName:ShortString;
begin
i:=1;
combobox5.Clear;
SotCom:=combobox4.text;
with adotable3 do
begin
first;
while not EOF do
begin
if SotCom=FieldByName('SotCom').AsString then
begin
combobox5.items.Add(FieldByName('ROName').AsString);
next;
break;
end;
next;
end;
while not EOF do
begin
if SotCom<>FieldByName('SotCom').AsString then
begin
next;
continue;
end;
ROName:=FieldByName('ROName').AsString;
for k:=0 to i-1 do
if ROName=combobox5.Items[k] then
begin
ROName:='';
break;
end;
if ROName<>'' then
begin
combobox5.items.Add(FieldByName('ROName').AsString);
inc(i);
end;
next;
end;
end;
end;
procedure TForm1.ComboBox6Change(Sender: TObject);
var
i,k:word;
SotCom,ROName:ShortString;
begin
i:=1;
combobox7.Clear;
SotCom:=combobox6.text;
with adotable3 do
begin
first;
while not EOF do
begin
if SotCom=FieldByName('SotCom').AsString then
begin
combobox7.items.Add(FieldByName('ROName').AsString);
next;
break;
end;
next;
end;
while not EOF do
begin
if SotCom<>FieldByName('SotCom').AsString then
begin
next;
continue;
end;
ROName:=FieldByName('ROName').AsString;
for k:=0 to i-1 do
if ROName=combobox7.Items[k] then
begin
ROName:='';
break;
end;
if ROName<>'' then
begin
combobox7.items.Add(FieldByName('ROName').AsString);
inc(i);
end;
next;
end;
end;
end;
|
Обувь свадебная опт москва. Итальянская
босоножки оптом. Обувь оптом.