| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Использование процедур

Страницы:   < 1 2 >

altatr ©   (2008-07-31 19:22:00) 

Добрый день.
Можно ли такой код оформить в виде процедуры?
Как правильно это сделать?

var
s,v,p,vhod: real;
begin
  Label4.Caption:='0';
  s:=0;
  p:=0;
  vhod := 0;
   with form1.Query1 do begin
          Close;
          SQL.Clear;
          SQL.Add('SELECT NLCH, YMCODE, DBIN, PAY, RITOG, SITOG');
          SQL.Add('FROM ":Plat:h.dbf"');
          SQL.Add('WHERE');
          SQL.Add('(NLCH = "'+ Table2.FieldByName('NLCH').AsString +'") ');
          SQL.Add('ORDER BY YMCODE');
          Open;
    end;
       Query1.first;
       while (Query1.FieldByName ('YMCODE').asString Edit12.Text) do begin
       vhod:=Query1.FieldByName('pay').asFloat;
       s:=s + Query1.FieldByName('PAY').asFloat;
       Query1.Next;
       end ;
       v:=Query1.FieldByName('DBIN').AsFloat;
       Edit6.Text:=FloatToStr(v);
       Edit1.Text:= FloatToStr(Query1.FieldByName('DBIN').AsFloat + Query1.FieldByName('SITOG').AsFloat);
       with form1.Query2 do begin
          Close;
          SQL.Clear;
          SQL.Add('SELECT NLCH, ITOG, OPLAT');
          SQL.Add('FROM ":Plat:pay'+IntTostr(StrToInt(Edit12.Text)-1)+'.dbf"');
          SQL.Add('WHERE');
          SQL.Add('(NLCH = "'+ Table2.FieldByName('NLCH').AsString +'") ');
          Open;
    end;
     if Query2.RecordCount 0 then Edit9.Text:= FloatToStr(Query2.FieldByName('ITOG').AsFloat - Query2.FieldByName('OPLAT').AsFloat) else Edit9.Text:='0';
       Table3.First;
       while (Table2.FieldByName ('CODH').asString Table3.FieldByName ('CODH').asString) and  (table3.Eof true) do table3.Next;
       Table5.First;
       while (DBGrid1.Fields[0].AsString Table5.FieldByName ('NLCH').asString) and  (table5.Eof true) do table5.Next;
     if (vhod = 0) and (v > 0) then p:=round(v*30.5*0.03)/100;
     Edit2.Text:=FloatToStr(s);
     Edit7.Text:= Table5.FieldByName('D5').AsString;
     Edit8.Text:= FloatToStr(Table5.FieldByName('D6').AsFloat + Table5.FieldByName('D10').AsFloat);
     Edit5.Text:= Table5.FieldByName('D7').AsString;
     Label13.Caption:= 'Çàïèñü ' + IntToStr(Table2.RecNo) + ' èç ' + IntToStr(Table2.RecordCount);
     Edit4.Text:=FloatToStr(p);
end;

---

Medbe}I{onok XML   (2008-07-31 19:23:00) [21]

добавить слово procedure в самом верху

---

Medbe}I{onok XML   (2008-07-31 19:23:00) [22]

и еще ее имя и точку с запятой

---

Страницы:   < 1 2 >

Наверх