Обновление от v:0.1.0110.23 (старт)

Программа складского учета. Нужно вести складской учет, регистрировать поступления и отгрузки, проводить инвентаризации, печатать документы и всегда знать реальные остатки.
Ответить
Аватара пользователя
glGizma
Site Admin
Сообщения: 218
Зарегистрирован: Ср сен 27, 2017 2:20 pm

Обновление от v:0.1.0110.23 (старт)

Сообщение glGizma » Сб окт 14, 2023 3:11 pm

Первые, пробные наброски будущей программы без серьёзного функционала. Первые забросы в БД, аналитика.

Кусок кода:

Код: Выделить всё

	begin
	 ListView1.Items.BeginUpdate;
	 try
	  ListView1.Items.Clear;
	  ADOQuery1.SQL.Text := 'select * from sklad order by ID';
	  ADOQuery1.Open;
	  while not ADOQuery1.Eof do begin
		with ListView1.Items.Add do begin
		  Data := Pointer(ADOQuery1.FieldByName('ID').AsInteger);
		  Caption := ADOQuery1.FieldByName('ART').AsString;
      SubItems.Add(ADOQuery1.FieldByName('CAT').AsString);
      SubItems.Add(ADOQuery1.FieldByName('NAME').AsString);
      SubItems.Add(ADOQuery1.FieldByName('DATAV').AsString);
      SubItems.Add(ADOQuery1.FieldByName('KOMY').AsString);
      SubItems.Add(ADOQuery1.FieldByName('AVTO').AsString);
      SubItems.Add(ADOQuery1.FieldByName('NOMER').AsString);
      SubItems.Add(ADOQuery1.FieldByName('KOLVO').AsString);
      SubItems.Add(ADOQuery1.FieldByName('DOP').AsString);
		end;
		ADOQuery1.Next;
	  end;
	 finally
	  ListView1.Items.EndUpdate;
	 end;
	  ListView1.Width:=1201;
	  ListView1.Height:=593;
	  ListView1.Left:=224;
	  ListView1.Top:=40;
	  ListView1.Visible:=TRUE;
    CloseListview.Enabled:=TRUE;
	end;
Вложения
f7s6d5f765sd.png
f7s6d5f765sd.png (27.9 КБ) 6172 просмотра

Ответить