Альтернативщики есть?! Опции

[Кисюля]

Относите ли вы себя к какой-нибудь субкультуре? И что думаете об альтернативщиках?

[Mr-Dott]

это суб-урбанистический подход :/

[depoint]

Относите ли вы себя к какой-нибудь субкультуре? И что думаете об альтернативщиках?

Да...

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: Integer;
begin
(**** Бло выгрузки дочерних окон ****)
if MdiChildCount <> 0 then
for i := 0 to MdiChildCount - 1 do
MDIChildren[i].Free;
(*************************************)

Action := caFree;
end;

Альтернатив не вижу...

[moderator]

Вижу альтернативы

Код

GLvoid KillGLWindow(GLvoid)                                // Необходимо убить окно
{
        ChangeDisplaySettings(NULL,0);
        if (!wglDeleteContext(hRC))                
        {
MessageBox(NULL,"Release Rendering Context Failed.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
        }
        hRC=NULL;                                
    }

    if (hDC && !ReleaseDC(hWnd,hDC))                
    {
    MessageBox(NULL,"Release Device Context Failed.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
        hDC=NULL;
    }

    if (hWnd && !DestroyWindow(hWnd))
    {
        MessageBox(NULL,"Could Not Release hWnd.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
        hWnd=NULL;                
    }

    if (!UnregisterClass("OpenGL",hInstance))    
    {
        MessageBox(NULL,"Could Not Unregister Class.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
        hInstance=NULL;        
    }
}

или:

Код

.386P
.MODEL FLAT, stdcall
EXTERN ExitProcess@4:NEAR
includelib c:\masm32\lib\user32.lib
includelib c:\masm32\lib\kernel32.lib
includelib c:\masm32\lib\winmm.lib
....
....
END_LOOP:
PUSH [MSG.MSWPARAM]
CALL ExitProcess@4
_ERR:
JMP END_LOOP

[Кисюля]

Вижу альтернативы

Код

GLvoid KillGLWindow(GLvoid)                                // Необходимо убить окно
{
        ChangeDisplaySettings(NULL,0);
        if (!wglDeleteContext(hRC))                
        {
MessageBox(NULL,"Release Rendering Context Failed.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
        }
        hRC=NULL;                                
    }

    if (hDC && !ReleaseDC(hWnd,hDC))                
    {
    MessageBox(NULL,"Release Device Context Failed.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
        hDC=NULL;
    }

    if (hWnd && !DestroyWindow(hWnd))
    {
        MessageBox(NULL,"Could Not Release hWnd.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
        hWnd=NULL;                
    }

    if (!UnregisterClass("OpenGL",hInstance))    
    {
        MessageBox(NULL,"Could Not Unregister Class.","SHUTDOWN ERROR",MB_OK | MB_ICONINFORMATION);
        hInstance=NULL;        
    }
}

или:

Код

.386P
.MODEL FLAT, stdcall
EXTERN ExitProcess@4:NEAR
includelib c:\masm32\lib\user32.lib
includelib c:\masm32\lib\kernel32.lib
includelib c:\masm32\lib\winmm.lib
....
....
END_LOOP:
PUSH [MSG.MSWPARAM]
CALL ExitProcess@4
_ERR:
JMP END_LOOP

Теперь обьяснить можешь что это?

[moderator]

Теперь обьяснить можешь что это?

Альтернатива тому что написал depoint

[Mr-Dott]

Ген.сек жжот

[depoint]

Альтернатива тому что написал depoint

Мы другдруга поняли... Потому не будем вдоватся в подробности...

Код

--select * from fnTarifkaLastLS ('0003242',604)

CREATE function fnTarifkaLastLS
(@ls nvarchar(7),@Per_PRas int)

--if @auto=0 then read @Per_PRas else определяет сам
-- typ =0 все 1 до 2 после


returns @tab table(  ist   varchar  (10) ,
     kor   int    ,
     Per_Kor   int    ,
     Per_PRas   int    ,
     Per_Ras   int    ,
     kod   int    ,
     ls   nvarchar  (7),
     SaldoBeg_tek   float    ,
     SaldoEnd   float    ,
     R   int    ,
     SPO   float    ,
     Skidka   float    ,
     SR   float    ,
     Debet   float    ,
     Ostb250lg   float    ,
     Ostb250   float    ,
     Ostm250lg   float    ,
     Ostm250   float    ,
     Rb250lg   int    ,
     Rb250   int    ,
     RBesCh   int    ,
     Rm250lg   int    ,
     Rm250   int    ,
     tarif   float    ,
     tariflg   float    ,
     tarifsoc   float    ,
     tarifsoclg   float    ,
     norma   int    ,
     normasoc   int    ,
     Idtarif   int    ,
     tarifname   nvarchar  (100),
     i   int    ,
     Id_Bank1   int    ,
     Koef   int,
         RR int,
         SRR float,
         SaldoEndR float   )
as
begin

declare
--@ls nvarchar(7),
@dat datetime,
--@Per_PRas int,
@Per_Ras int,
@Prinadleg int

--set @ls='0003242'

declare cur cursor for
SELECT distinct ls, dbo.fnInttoDate(Per_Ras)  as DPO,   Per_Ras,Per_PRas,1 as  Prinadleg
FROM       (SELECT     ISNULL
                          ((SELECT     MAX(dbo.fnDateNowToInt(DatIzm)) AS P
                              FROM         tab_Ras t
                              WHERE     (t.LS = tab_Ras.ls) AND (dbo.fnDateNowToInt(t.DPO) = dbo.fnDateNowToInt(DPO))
AND (dbo.fnDateNowToInt(DatIzm)  < dbo.fnDateNowToInt(dbo.tab_Ras.DatIzm)
--and DatIzm<(select max(t.DatIzm) d from tab_ras t where ls=@ls
)),0) AS Per_Kor,

dbo.fnDateNowToInt(tab_Ras.DatIzm) AS Per_PRas,
                      dbo.fnDateNowToInt(tab_Ras.DPO) AS Per_Ras, tab_Ras.SaldoBegin, tab_Ras.SaldoEnd, tab_Ras.Kor, tab_Ras.KOP, tab_Ras.Child, tab_Ras.Parent,
                      tab_Ras.kod, tab_Ras.DatIzm, tab_Ras.LS

FROM         tab_Ras INNER JOIN
                      tab_Abon ON tab_Ras.LS = tab_Abon.LS
WHERE   tab_Ras.LS=@ls and  (dbo.fnDateNowToInt(tab_Ras.DatIzm) = @Per_PRas) )  t
--order by ls ,Per_Ras
WHERE     (LS =@ls) order by Per_Ras,Per_PRas

OPEN cur
FETCH NEXT FROM cur into @ls,@dat,@Per_Ras,@Per_PRas, @Prinadleg
WHILE @@FETCH_STATUS = 0
BEGIN

   insert into @tab
SELECT     ist, kor, Per_Kor, Per_PRas, Per_Ras, kod, ls, SaldoBeg_tek, SaldoEnd, R, SPO, Skidka, SR, Debet, Ostb250lg * Koef AS Ostb250lg,
                      Ostb250 * Koef AS Ostb250, Ostm250lg * Koef AS Ostm250lg, Ostm250 * Koef AS Ostm250, Rb250lg, Rb250, RBesCh, Rm250lg, Rm250, tarif, tariflg,
                      tarifsoc, tarifsoclg, norma, normasoc, Idtarif, tarifname, i, Id_Bank1, Koef, Rb250lg + Rb250 + Rm250lg + Rm250 AS RR,
                      (Ostb250lg + Ostb250 + Ostm250lg + Ostm250) * Koef AS SRR, SaldoBeg_tek + SR - SPO AS SaldoEndR
FROM         dbo.fnTarifkaLast(@ls,@dat,@Per_PRas,0,0) f

   FETCH NEXT FROM cur into @ls,@dat,@Per_Ras,@Per_PRas, @Prinadleg
END
CLOSE cur
DEALLOCATE cur

return
end

"А вы" альтернативы, танцы, музыка....

[Jo#n]

классика она и в африке классика:

Код

./configure
make
make install

а альтернатива была, есть и будет:

Код

urpmi somevere_program

Код

emerge somevere_program

Код

apt-get install somevere_program

Код

yum install somevere_program

Код

wget http://domain.sourceforge.net/somevere_program.tgz \ && upgradepkg --install-new somevere_program.tgz

[moderator]

Jo#n, сам то понял чо написал? ))

[Jo#n]

Jo#n, сам то понял чо написал? ))

де именно? тебе расшифровать?..

[depoint]

Jo#n, сам то понял чо написал? ))

Он имел введу:

Код

qmake -Project
qmake Test.pro
make

Наверное, я так думаю, возможно...



а возможно и нет....

[Квазимодо]

Что тут за ательнатива?

анал или орал

[йА_фЕя_Фсё_ПоХ]

Ребято....мадАм имеЕт в ВИду алЬтЕрнаТивЩикоф в МуЗыке.....а вы БлИн о аНАльных ОраЛах РазговарИваете.....как вам нестыДнО.....подоки ПоДонки я не Такой(ая) я ХороШий(ая)......я альТеРнаТиФная Эмофея!!!!!

[Mr-Dott]

альтернативщики гавно. играть толком не умеют, косят под музыкантов, поют всякое нытьё с соплями вперемешку ещё и альбомы умудряются записывать.
джаз - вот это музыка!

[moderator]

альтернативщики гавно. играть толком не умеют, косят под музыкантов, поют всякое нытьё с соплями вперемешку ещё и альбомы умудряются записывать.
джаз - вот это музыка!

а эмо (да ещё и феи) это ваще ахтунг

[Mr-Dott]

ещё и в (вау!) фиолетовых платьях

[Jo#n]

а эмо (да ещё и феи) это ваще ахтунг

а если они ещё и с полом не определились?

[йА_фЕя_Фсё_ПоХ]

а если они ещё и с полом не определились?

C полом у ми всё нормально.......ковёр лежит)) да что я вам сделало такое ??что ви ми везде опозорить хотите!!!!!

[Fuck!ng Pr!nceSS]

[color=#FF6666][size=7]Не ХрЕНа вы не поНимаЕт))))))))))))))))))))))))))СтрариКашИИИИИИИ)))))))))) Идите вы на йух)))))За ЁлкОЙ)))))))))))