1. Pascal / Говнокод #2604

    +107.2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    procedure TFormMoneyToBag.AMEditVirtualKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Field : string;
  Value : integer;
begin
  if (Key = 16) or (Key = 13) then begin
    with ADOHardCash.FieldByName('Dengi') do begin
      if AsString = '500 грн' then Field := '[500hrn]'
      else if AsString = '200 грн' then Field := '[200hrn]'
           else if AsString = '100 грн' then Field := '[100hrn]'
                else if AsString = '50 грн' then Field := '[50hrn]'
                     else if AsString = '20 грн' then Field := '[20hrn]'
                          else if AsString = '10 грн' then Field := '[10hrn]'
                               else if AsString = '5 грн' then Field := '[5hrn]'
                                    else if AsString = '2 грн' then Field := '[2hrn]'
                                         else if AsString = '1 грн' then Field := '[1hrn]'
                                              else if AsString = '1 грн монета' then Field := '[1hrnCoin]'
                                                   else if AsString = '50 коп' then Field := '[50kopCoin]'
                                                        else if AsString = '25 коп' then Field := '[25kopCoin]'
                                                             else if AsString = '10 коп' then Field := '[10kopCoin]'
                                                                  else if AsString = '5 коп' then Field := '[5kopCoin]'
                                                                       else if AsString = '2 коп' then Field := '[2kopCoin]'
                                                                            else if AsString = '1 коп' then Field := '[1kopCoin]'
    end;

    UpdateIncassationCurrentValue.Parameters.ParamByName('@IncassationId').Value := IncassationId;
    UpdateIncassationCurrentValue.Parameters.ParamByName('@Field').Value := Field;
    if AMEditVirtual.Text = '' then Value := 0 else Value := StrToInt(AMEditVirtual.Text);
    UpdateIncassationCurrentValue.Parameters.ParamByName('@Value').Value := Value;
    ExecStoredProc(UpdateIncassationCurrentValue);

    RequeryADO(ADOHardCash);
    RequeryADO(ADOCashDeskInfo);
    ButtonStatus;
    AMEditVirtual.Visible := false;
  end;
end;

    Сие Чудо техники заполняет параметры для выполнения хранимой процедуры на сервере.
    Написал Большой Мудила, хотя в целом он хороший человек.

    Запостил: cruelwizard, 12 Февраля 2010

    Комментарии (3) RSS

    Добавить комментарий