- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
#define ItemType char
#define SecondItemType unsigned
class Doubler
{
ItemType _i1_;
SecondItemType _i2_;
//...
//Дальше идёт много функций класса, использующие ItemType и SecondItemType.
//...
};
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+167
#define ItemType char
#define SecondItemType unsigned
class Doubler
{
ItemType _i1_;
SecondItemType _i2_;
//...
//Дальше идёт много функций класса, использующие ItemType и SecondItemType.
//...
};
+159
class ControlerSingleton
{
private:
static int ControlCode;
static bool disaPear;
static int ArraySize;
//...
void Constructor()
{
//...
ArraySize=sizeof(masi)/sizeof(masi[0]);
disaPear=Pear();
threadRAII.Wait();
ControlCode=threadRAII.result();
//...
};
static int construct=Constructor();
public:
const bool Pear()
{
//...
};
Своеобразный "конструктор" в классе синглтона.
+163
smart_ptr<const AbstractElanos> pointy;struct Intializer{Intializer(void){pointy=new Elanos;};}initer;
Согласно проектного решения
smart_ptr<const AbstractElanos> pointy=new Elanos;
−140
OWNER=`ls -l $i | awk '{ print $3 }'`
initscripts-8.45.30-2.el5, не хрен собачий...
−857
procedure xxx_procedure
is
-- lngIDVidPP Number;
sSQL varchar2(4000);
begin
sSQL := '';
sSQL := sSQL || ' Declare ';
sSQL := sSQL || ' lngIDVidPP Number; ';
sSQL := sSQL || ' lngColRec Number; ';
sSQL := sSQL || ' strTypeProc Varchar2(255); ';
sSQL := sSQL || ' BEGIN ';
sSQL := sSQL || ' for rec in (select f.param2 , A.idpp, pp.crastr, pp.cvector, a.param1, a.et, a.tet ';
sSQL := sSQL || ' from table1 e, T_IDPP@' || 'app' || '_' ||'xxx' || ' a, table2 f, ';
sSQL := sSQL || ' t_pp_card@' || 'app' || '_' || 'xxx' || ' pp, refitem r';
sSQL := sSQL || ' where ';
sSQL := sSQL || ' e.param1 = a.param1 ';
sSQL := sSQL || ' and e.id_building = F.ID_BUILDING ';
sSQL := sSQL || ' and F.FLOOR_NUMBER = a.et ';
sSQL := sSQL || ' and R.REFERENCEID = 2019 and R.ITEMID = F.ID_FLOOR_TYPE';
sSQL := sSQL || ' and R.CODE = a.tet';
sSQL := sSQL || ' and a.idpp = pp.cidpp)';
sSQL := sSQL || ' loop ';
sSQL := sSQL || ' lngColRec := 0; ';
sSQL := sSQL || ' lngIDVidPP := 0; ';
sSQL := sSQL || ' SELECT COUNT(*) INTO lngColRec FROM T_PROCESS_PP@' || 'app' || '_' || 'xxx || ' Z ';
sSQL := sSQL || ' WHERE Z.PPP_UNOM = rec.param1 AND Z.PPP_ET = rec.et AND Z.PPP_TET = rec.tet; ';
sSQL := sSQL || ' if lngColRec = 0 then ';
sSQL := sSQL || ' if BITAND(rec.crastr, 8) <> 0 and BITAND(rec.cvector, 8) <> 0 then ';
sSQL := sSQL || ' lngIDVidPP := 50868; ';
sSQL := sSQL || ' else ';
sSQL := sSQL || ' if BITAND(rec.crastr, 8) <> 0 then ';
sSQL := sSQL || ' lngIDVidPP := 50866; ';
sSQL := sSQL || ' else ';
sSQL := sSQL || ' lngIDVidPP := 50867; ';
sSQL := sSQL || ' end if; ';
sSQL := sSQL || ' end if; ';
sSQL := sSQL || ' update table2 f ';
sSQL := sSQL || ' set f.xx = rec.idpp, ';
sSQL := sSQL || ' f.xxx = lngIDVidPP, ';
sSQL := sSQL || ' f.xxxx = 54554 ';
sSQL := sSQL || ' where f.xxxxx = rec.id_floor; ';
sSQL := sSQL || ' else '; --if lngColRec > 0 then
sSQL := sSQL || ' strTypeProc := Null; ';
sSQL := sSQL || ' SELECT Y.PH_ACTION_KEY INTO strTypeProc ';
sSQL := sSQL || ' FROM T_PROCESS_HEAD@' || 'app' || '_' || 'SGP' || ' Y ';
sSQL := sSQL || ' WHERE ';
sSQL := sSQL || ' Y.PHID IN (SELECT X.PPP_PHID ';
...... 10 строк вырезано из-за ограничения 4000символов
sSQL := sSQL || ' if BITAND(rec.crastr, 8) <> 0 and BITAND(rec.cvector, 8) <> 0 then ';
sSQL := sSQL || ' lngIDVidPP := 50868; ';
sSQL := sSQL || ' else ';
sSQL := sSQL || ' if BITAND(rec.crastr, 8) <> 0 then ';
sSQL := sSQL || ' lngIDVidPP := 50866; ';
sSQL := sSQL || ' else ';
sSQL := sSQL || ' lngIDVidPP := 50867; ';
sSQL := sSQL || ' end if; ';
sSQL := sSQL || ' end if; ';
sSQL := sSQL || ' update table3 f ';
sSQL := sSQL || ' set f.ID_PLANE_G = rec.idpp, ';
sSQL := sSQL || ' f.id_plane_scan = lngIDVidPP, ';
sSQL := sSQL || ' f.id_status_plane = 54552 ';
sSQL := sSQL || ' where f.param1 = rec.param1; ';
sSQL := sSQL || ' ELSE ';
sSQL := sSQL || ' update table3 f ';
sSQL := sSQL || ' set f.id_status_plane = 54552 ';
sSQL := sSQL || ' where f.param1 = rec.param1; ';
sSQL := sSQL || ' END IF; ';
sSQL := sSQL || ' end if; '; --if lngColRec > 0 then
sSQL := sSQL || ' end loop;';
sSQL := sSQL || ' null;';
sSQL := sSQL || ' end;';
EXECUTE IMMEDIATE sSQL;
dbms_output.put_line ('Процедура xxx_procedure успешно создана');
EXCEPTION
WHEN OTHERS THEN dbms_output.put_line('Ошибка создания xxx_procedure. ' || SQLERRM);
end;
В связи с NDA названия изменены.
+120
protected void GridView1_PreRender(object sender, EventArgs e)
{
System.Drawing.Color OddGridColor = new System.Drawing.Color();
OddGridColor = System.Drawing.Color.FromArgb(0xD3, 0xDE, 0xEF);
System.Drawing.Color EvenGridColor = new System.Drawing.Color();
EvenGridColor = System.Drawing.Color.FromArgb(0xEC, 0xE9, 0xD8);
for (int i = 0; i < GridView1.Rows.Count; i++)
{
if (i % 2 == 1)
{
GridView1.Rows[i].BackColor = OddGridColor;
}
else
{
GridView1.Rows[i].BackColor = EvenGridColor;
}
}
}
the way of change GridView color through one ...
Why do not use <AlternatingRowStyle> ?!!
+102
case dlg.sort.ItemIndex of
0: Qry.SQL.Add('ORDER BY b.nn_rez;');
1: if dlg.view.ItemIndex=1 then Qry.SQL.Add('ORDER BY c.prod_code;')
else Qry.SQL.Add('ORDER BY c.kod_okp;');
2: if dlg.view.ItemIndex=1 then Qry.SQL.Add('ORDER BY c.res_name;')
else Qry.SQL.Add('ORDER BY c.naimres;');
end;
Твой кролик писал!
кто-то явно мастер на выдумки
+159
$pass = 12345;
if (!isset($_POST['pass'])) {
$pass = $_GET['pass'];
}
else
{
$pass = $_POST['pass'];
}
if ($pass !== $pass) {
echo '<form method = "post" action = "pass.php?">
Пароль:<br/>
<input name = "pass" type = "password"/><br/>
<input type = "submit" value = "OK"/></form>';
}
echo 'Тебе сюда можна';
....блаблабла
} else {
echo 'Низя :)';
break;
}
}
>>Надо чтобы проверял если там дата[2] не пуста то показал форму инпут.
жесть)))
+160
//
Fraction Fraction::operator +(Fraction &ob)
{
int f;int d; int c; int k; int l; int z;
char*p; char*x;
p=new char; x=new char;
Fraction tempOb;
if(strcmp(znam, ob.znam)==0)
{
f=atoi(tempOb.chisl);
d=atoi(ob.chisl);
c=atoi(chisl);
f=d+c;
k=atoi(tempOb.znam);
l=atoi(znam);
k=l;
p=itoa(f,p,10);
x=itoa(k,x,10);
strcpy(tempOb.chisl,p);
strcpy(tempOb.znam,x);
}
else
{
f=atoi(tempOb.chisl);
d=atoi(ob.chisl);
c=atoi(chisl);
k=atoi(ob.znam);
l=atoi(znam);
f=c*k+d*l;
z=atoi(tempOb.znam);
z=l*k;
p=itoa(f,p,10);
x=itoa(z,x,10);
strcpy(tempOb.chisl,p);
strcpy(tempOb.znam,x);
}
tempOb.operator ~();
return tempOb;
}
//
Нашел баг с переполнением, если вводишь слишком большие числа. Пытаюсь сделать через char. Работает. Но такие фрагменты кода убивают. Реально сделать легче, а еще лучше если сразу через int?
−862
SELECT wine_name,wine_year,cost FROM Wines
INNER JOIN storage ON wines.wine_ID=storage.wine_ID
INNER JOIN pricelist ON storage.wine_ID=pricelist.wine_ID
WHERE fabric_ID=(SELECT fabric_ID FROM fabrics WHERE Name="Toscana Italy")
AND count>0 ORDER BY wine_year ASC LIMIT 1,1000;
SELECT wine_name,cost,count FROM wines
INNER JOIN storage ON wines.wine_ID=storage.wine_ID
INNER JOIN vendorprices ON storage.wine_ID=vendorprices.wine_ID
WHERE count > 0 ORDER BY wine_name DESC LIMIT 1,1000;
SELECT wine_name,cost,count FROM wines
INNER JOIN storage ON wines.wine_ID=storage.wine_ID
INNER JOIN vendorprices ON storage.wine_ID=vendorprices.wine_ID
WHERE count = 0 ORDER BY wine_name DESC LIMIT 1,1000;
Извращаюсь как могу лишь бы запросы напоминали двух-критериальные. Впрочем таковыми они от этого не становятся. Думаю еще добавить по три-четыре подзапроса и побольше джойнов, жаль условных конструкций не знаю(собственно сутки-двое изучаю SQL)
Институт сказал "Надо", студент ответил... ну впрочем неважно что ответил, но сделал...