Сортировка в таблице

@Fobos1994 · Регистрация: 15.04.2011

Студворк — интернет-сервис помощи студентам

Доброго времени суток!
Не могу разобратся в сортировке!помогите пожалуйста!
На скриншотах показано по чем осущесствить поиск.
скажите как правильно реализовать?

@ADoGind · 02.12.2011, 00:26

Привет.
незабудка добавить

Delphi
1
2
3
4
5
6
uses
  ADODB,DB;
 
TForm2 = class(TForm)
...
procedure param(var ADOQuery:TADOQuery;i:integer;s:Variant;tu:TFieldType);

вот код программы.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
procedure TForm2.param(var ADOQuery:TADOQuery;i:integer;s:Variant;tu:TFieldType);
begin
ADOQuery.Parameters.Insert(i);
if i=0 then
  ADOQuery.Parameters.Items[i].Name:='par'
 else
  ADOQuery.Parameters.Items[i].Name:='par'+intToStr(i);
  ADOQuery.Parameters.Items[i].DataType:=tu;
  ADOQuery.Parameters.Items[i].Value:=s;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
var i:integer;
   mem :cardinal;
   myCharPtr :Pointer;
 
begin
 
  mem:=GlobalAlloc(GMEM_FIXED+GMEM_ZEROINIT,1600);
  myCharPtr:=GlobalLock(mem);
  MoveMemory(myCharPtr,Pchar('Select * from kvar '),20);
 
  Form1.ADOQuery1.SQL.Clear;
    i:=0;
  if (ComboBox2.Text<>'') or (Edit1.Text<>'') or (Edit2.Text<>'') or (ComboBox1.Text<>'')then
    MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('where '),6);
 
  if ComboBox2.Text<>'' then begin
    param(Form1.ADOQuery1,i,ComboBox2.Text,FTString);
     inc(i);
      MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('(material=:par) '),17);
  end;
 
 
    if Edit1.Text<>''then begin
        if i<>0 then
          MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('And '),4);
          if i=0 then
            MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('(plosha >= :par) '),16)
          else
            MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('(plosha >= :par'+intTostr(i)+') '),18);
 
      param(Form1.ADOQuery1,i,Edit1.Text,FTString);
      inc(i);
    end;
 
 
    if Edit2.Text<>''then begin
      param(Form1.ADOQuery1,i,Edit2.Text,FTString);
      if i<>0 then
        MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('And '),4);
      if i=0 then
            MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('(plosha <= :par) '),16)
          else
            MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('(plosha <= :par'+intTostr(i)+') '),18);
      inc(i);
    end;
    if ComboBox1.Text<>'' then begin
       if i<>0 then
        MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('And '),4);
       if i=0 then
            MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('(kolkomnat = :par) '),18)
          else
            MoveMemory(PAnsiChar(Cardinal(myCharPtr)+strlen(myCharPtr)),PAnsiChar('(kolkomnat = :par'+intTostr(i)+') '),20);
 
      param(Form1.ADOQuery1,i,ComboBox1.Text,FTString);
    end;
 
 
   Form1.ADOQuery1.SQL.Add(Pchar(myCharPtr));
   Form1.ADOQuery1.Open;
   GlobalUnlock(mem);
   GlobalFree(Cardinal(myCharPtr));
   form2.Close;
end;

@Fobos1994 · 02.12.2011, 00:55 **[ТС]**

у меня ошибка возникла вот такого рода:Unsatisfied forward or external declaration: 'TForm2.param'

@ADoGind · 02.12.2011, 01:04

Сообщение от Fobos1994

у меня ошибка возникла вот такого рода:Unsatisfied forward or external declaration: 'TForm2.param'

Привет. Понятно почему ошибка. Добавите вот это

Delphi
1
procedure param(var ADOQuery:TADOQuery;i:integer;s:Variant;tu:TFieldType);

где у вас в классе TForm2 где прописаны

Delphi
1
procedure Button2Click(Sender: TObject);

@Fobos1994 · 02.12.2011, 01:08 **[ТС]**

Все,работает,спасибо!!!=))

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Fobos1994 5 / 5 / 1 Регистрация: 15.04.2011 Сообщений: 274
	02.12.2011, 00:55 [ТС]
	у меня ошибка возникла вот такого рода:Unsatisfied forward or external declaration: 'TForm2.param' 0

@Fobos1994 5 / 5 / 1 Регистрация: 15.04.2011 Сообщений: 274
	02.12.2011, 01:08 [ТС]
	Все,работает,спасибо!!!=)) 0