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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@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

Опции темы