Продаю исходные коды комплекса

← →
yutonig (2007-06-14 15:15) [0]

Описание системы
Информационная система предназначена для автоматизации и учета операций:
а) Перевозка грузов;
б) Размещение и хранение грузов на складе (в т.ч., ответственное хранение);
в) Расчеты за перевозку и хранение товара.
а) Упаковка грузов;
б) Сортировка товара;
в) Комплектация товара;
г) Выбраковка товара.
Примечания:
1) Перечисленные выше операции могут происходить только внутри склада (зоны комплектации) и только по специальной заявке заказчика.

Общий вес исходников: более 300 Мб,
+ SQL скрипты на построение полной базы с описанием
+ исходный код с комментариями
+ справочная система

Цена: дорого, писать здесь

← →
Ega23 © (2007-06-14 15:17) [1]

Боюсь, братан, никто у тебя её не купит. Ну разве что рублей за 20.

← →
StriderMan © (2007-06-14 15:34) [2]

> Общий вес исходников: более 300 Мб,

0_о откуда столько?????

← →
Kedge © (2007-06-14 15:37) [3]

> [2] StriderMan © (14.06.07 15:34)
>
> > Общий вес исходников: более 300 Мб,
>
> 0_о откуда столько?????

А как же без .bmp картинок ? :)

← →
tesseract © (2007-06-14 15:39) [4]

> Общий вес исходников: более 300 Мб,

нифига себе, 1с+Комплекная конфигурация максимум на 50 тянут.......

← →
Карелин Артем © (2007-06-14 15:40) [5]

> tesseract © (14.06.07 15:39) [4]

Картинки, звуки, анимация...

← →
db2admin © (2007-06-14 15:40) [6]

>Общий вес исходников: более 300 Мб
Сколько человек работало над проектом?
Сколько по времени разрабатывался проект?

← →
yutonig (2007-06-14 15:41) [7]

> >Общий вес исходников: более 300 Мб
> Сколько человек работало над проектом?
> Сколько по времени разрабатывался проект?

> Сколько человек работало над проектом? 90 чел
> Сколько по времени разрабатывался проект? 3 года

← →
DVM © (2007-06-14 15:42) [8]

> > Сколько человек работало над проектом? 90 чел

а все они не против?

← →
TUser © (2007-06-14 15:44) [9]

> б) Сортировка товара;

Чё прям вот так и раскладывает в разные коробки мясо первого сорта, мясо второго сорта, ... ?

← →
db2admin © (2007-06-14 15:44) [10]

че та бред какой то

← →
Ega23 © (2007-06-14 15:46) [11]

Фигасе! 270 человеко-лет....

Точно никто исходники не купит. Т.к. либо ты их спёр, либо одно из двух.
Лучше уж в сеть выложи.

← →
Правильный Вася (2007-06-14 15:47) [12]

> а все они не против?

если продает работодатель, то он хозяин всего наработанного наемниками (если в договоре не указано иного)

← →
Ega23 © (2007-06-14 15:48) [13]

у нас за 5 человеко-лет 250 Мб в рабочей директории набралось...

← →
db2admin © (2007-06-14 15:49) [14]

Ega23 © (14.06.07 15:48) [13]
а это не ваши счас продают? ))

← →
db2admin © (2007-06-14 15:50) [15]

блин такое ощущение, что студент, где то спер чужие исходники и пытаеться получить с этого много денег.

← →
yutonig (2007-06-14 15:53) [16]

Удалено модератором

← →
Inco (2007-06-14 16:00) [17]

Все?

← →
Johnmen © (2007-06-14 16:00) [18]

Удалено модератором

← →
Ega23 © (2007-06-14 16:02) [19]

Удалено модератором

← →
db2admin © (2007-06-14 16:14) [20]

Удалено модератором

← →
Gero © (2007-06-14 16:23) [21]

Сколько денег хочешь?

← →
yutonig (2007-06-14 16:25) [22]

> Gero © (14.06.07 16:23) [21]
> Сколько денег хочешь?
> <Цитата>

100 тыс. бакинских рублика

← →
Ega23 © (2007-06-14 16:28) [23]

> 100 тыс. бакинских рублика

Скотч купи. Губу приклеивать.

← →
Rouse_ © (2007-06-14 16:29) [24]

А почему не 300?

← →
StriderMan © (2007-06-14 16:29) [25]

линку на фирму-разработчик в студию

← →
yutonig (2007-06-14 16:31) [26]

Привожу один из файлов кода:
unit uRfPerson;
interface
uses
...;
const
QuerySQL = "SELECT * FROM uv_RfPerson";
type
TfrmRfPerson = class(TForm)
pnlLHeader: TPanel;
...
...
private
public
desc : boolean;
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
end;
var
frmRfPerson: TfrmRfPerson;
implementation
uses ...;
{$R *.dfm}
procedure TfrmRfPerson.DBGridCellClick(Column: TColumn);
begin
sbInfo.Panels[0].Text := "Запись "+
IntToStr(ds.DataSet.RecNo) + " из "+
IntToStr(ds.DataSet.RecordCount);
end;
procedure TfrmRfPerson.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
i: SmallInt;
begin
{Mouse wheel behaves strangely with dgbgrids - this proc sorts this out}
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam);
if i > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;

Handled := False;
end;
end;

procedure TfrmRfPerson.DBGridDblClick(Sender: TObject);
begin
if tbnEdit.Enabled then
tbnEdit.OnClick(nil);
end;

procedure TfrmRfPerson.DBGridTitleClick(Column: TColumn);
var
s : string;
begin
s := Column.FieldName; //Присваиваем имя столбца для "s"
with adoMyDBQuery do
begin
Close;
SQL.Clear;
SQL.Add(QuerySQL);
if Desc then SQL.Add(" ORDER BY "+s+" DESC") else
SQL.Add("ORDER BY "+s);
Open;
Desc := not Desc;
end;

end;

procedure TfrmRfPerson.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
frmMain.mdiClssCarCtgr29 := true;
end;

procedure TfrmRfPerson.FormShow(Sender: TObject);
begin
tbnAdd.Enabled := frmMain.actfrmRfPersonAdd.Enabled;
miAdd.Enabled :=tbnAdd.Enabled;
frmMain.mdiClssCarCtgr29 := false;
tbnDel.enabled := frmMain.actfrmRfPersonDel.enabled;
miDel.Enabled := tbnDel.Enabled;
tbnEdit.Enabled := frmMain.actfrmRfPersonEdit.Enabled;
miEdit.Enabled := tbnEdit.Enabled;
desc := true;
end;

procedure TfrmRfPerson.tbnAddClick(Sender: TObject);
begin
frmRfPersonAdd.ShowModal;
tbnRefresh.OnClick(Nil);
end;
procedure TfrmRfPerson.tbnDelClick(Sender: TObject);
var
sSelectedCode : string;
querySQl : string;
nID : integer;
begin
if MessageDlg("Вы уверены, что хотите удалить выбранную запись?",
mtConfirmation,mbYesNo,0) = idNo then exit;
nID := ds.DataSet.FieldByName("ID").AsInteger;
QuerySQL := "DECLARE @nResult INT "+
"EXECUTE @nResult = up_DeleteRfPerson "+
IntToStr(nID)+
" SELECT @nResult RESULT";
with adoQuery do
begin
Close;
SQL.Clear;
SQL.Add(QuerySQL);
Open;
end;
FormShow(nil);
end;

procedure TfrmRfPerson.tbnEditClick(Sender: TObject);
var
sTMP : string;
slPhoto: TStringList;
begin
if tbnEdit.Enabled = false then exit;
with frmRfPersonEdit do
begin
editID.text := ds.DataSet.FieldByName("ID").AsString;
editNameF.text := ds.DataSet.FieldByName("NAME_F").AsString;
editNameN.text := ds.DataSet.FieldByName("NAME_N").AsString;
editNameP.text := ds.DataSet.FieldByName("NAME_P").AsString;
editPASS_Ser.text := ds.DataSet.FieldByName("PASS_SER").AsString;
editPASS_NMBR.text := ds.DataSet.FieldByName("PASS_NMBR").AsString;
editPASS_DATe.date := ds.DataSet.FieldByName("PASS_DATE").AsDateTime;
editPASS_GIVER.text := ds.DataSet.FieldByName("PASS_GIVER").AsString;
IS_SLR.Checked := ds.DataSet.FieldByName("IS_EMPL").AsBoolean;
if ds.DataSet.FieldByName("IS_MALE").AsBoolean = true then
cmbIsMale.itemindex := 1 else cmbIsMale.itemindex := 0;
editDate_BH.date := ds.DataSet.FieldByName("DATE_BH").AsDateTime;
editDateB.date := ds.DataSet.FieldByName("DATE_B").AsDateTime;
sTMP := "_EmployeePhoto_"+FormatDateTime("dd-mm-yyyy",Date)+FormatDateTime("HH_MM_SS",Time)+".JPG";
if not ds.DataSet.FieldByName("Photo").IsNull then begin
isPhoto.Checked := true;
slPhoto := TStringList.Create;
slPhoto.Add(ds.DataSet.FieldByName("Photo").AsString);
slPhoto.SaveToFile(sTMP);
Zimg.Picture.LoadFromFile(sTMP);
DeleteFile(sTMP);
end else begin zimg.picture := nil; isPhoto.Checked := false; end;
frmClssRfPhone.IRead(editID.text);
frmClssAdresses.IRead(editID.text);
frmClssDocuments.IRead(editID.text);
ShowModal;
end;
tbnRefresh.OnClick(nil);

end;

procedure TfrmRfPerson.tbnFindClick(Sender: TObject);
var
sFindParam: string;
squerySQL : string;
begin
if not inputquery("Поиск...","Введите значение для поиска",sFindParam) then exit;
squerySQL := QuerySQL + " WHERE " +
"ID LIKE "+QuotedStr("%"+sFindParam +"%")+" OR " +
"PASS LIKE "+QuotedStr("%"+sFindParam +"%")+" OR " +
"FACTOR LIKE "+QuotedStr("%"+sFindParam +"%")+" OR " +
"DATE_BH LIKE "+QuotedStr("%"+sFindParam +"%")+" OR " +
"NAME LIKE "+QuotedStr("%"+sFindParam +"%");
with adoMyDBQuery do
begin
Close;
SQL.Clear;
SQL.Add(sQuerySQL);
Open;
end;
end;

procedure TfrmRfPerson.tbnRefreshClick(Sender: TObject);
begin
with adoMyDBQuery do
begin
Close;
SQL.Clear;
SQl.Add(QuerySQL);
Open;
end;
end;

procedure TfrmRfPerson.tbnFirst5Click(Sender: TObject);
begin
ds.DataSet.First;
end;

procedure TfrmRfPerson.tbnFirstClick(Sender: TObject);
begin
ds.DataSet.First;
end;

procedure TfrmRfPerson.tbnLast8Click(Sender: TObject);
begin
ds.DataSet.Last;
end;

procedure TfrmRfPerson.tbnLastClick(Sender: TObject);
begin
ds.DataSet.Last;
end;

procedure TfrmRfPerson.tbnNext7Click(Sender: TObject);
begin
ds.DataSet.Next;
end;

procedure TfrmRfPerson.tbnNextClick(Sender: TObject);
begin
ds.DataSet.Next;
end;

procedure TfrmRfPerson.tbnOD0Click(Sender: TObject);
begin
frmMain.PostKeyEx32( VK_NEXT,[],false);
end;

procedure TfrmRfPerson.tbnOKClick(Sender: TObject);
begin
self.Close;
end;

procedure TfrmRfPerson.tbnPDClick(Sender: TObject);
begin
frmMain.PostKeyEx32( VK_NEXT,[],false);
end;

procedure TfrmRfPerson.tbnPrev6Click(Sender: TObject);
begin
ds.DataSet.Prior;
end;

procedure TfrmRfPerson.tbnPrevClick(Sender: TObject);
begin
ds.DataSet.Prior;
end;

procedure TfrmRfPerson.tbnPU9Click(Sender: TObject);
begin
frmMain.PostKeyEx32( VK_PRIOR,[],false);
end;

procedure TfrmRfPerson.tbnPUClick(Sender: TObject);
begin
frmMain.PostKeyEx32( VK_PRIOR,[],false);
end;

procedure TfrmRfPerson.tmrButtonEnabledFalseTimer(Sender: TObject);
begin
tbnEdit.Visible := tbnEdit.Enabled;
tbnDel.Visible := tbnDel.Enabled;
end;

end.

← →
iXT © (2007-06-14 16:32) [27]

> Скотч купи. Губу приклеивать

Лучше супер-момент

> 100 тыс. бакинских рублика

А я то думал, что подобные комплексы пишуться под конкретный заказ :)

Ты еще исходники линуха продай

← →
StriderMan © (2007-06-14 16:32) [28]

офигеть!! дайте две!!!

← →
yutonig (2007-06-14 16:33) [29]

program TSL_TSklad;
uses
uMutexOneCopy,
Windows,
Messages,
SysUtils,
Variants,
Classes,
Window,
Graphics,
Controls,
Forms,
Dialogs,
ExtCtrls,
StdCtrls,
uCrc32,
ComObj,
uMain in "uMain.pas" {frmMain},
uCssCarCtgr in "uCssCarCtgr.pas" {frmClssCarCtgr},
uError in "uError.pas" {frmError},
uAddClssCarCtgr in "uAddClssCarCtgr.pas" {frmAddClssCarCtgr},
uEditClssCarCtgr in "uEditClssCarCtgr.pas" {frmEditClssCarCtgr},
uClssCarStady in "uClssCarStady.pas" {frmClssCarStady},
uClssCarStadyAdd in "uClssCarStadyAdd.pas" {frmClssCarStadyAdd},
uClssCarStadyEdit in "uClssCarStadyEdit.pas" {frmClssCarStadyEdit},
uClssCargoType in "uClssCargoType.pas" {frmClssCargoType},
uClssCargoTypeAdd in "uClssCargoTypeAdd.pas" {frmClssCargoTypeAdd},
uClssClaimStudy in "uClssClaimStudy.pas" {frmClssClaimStudy},
uClssCourPos in "uClssCourPos.pas" {frmClssCourPos},
uClssCarStadyUnion in "uClssCarStadyUnion.pas" {frmClssCarStadyUnion},
uClassDBGRidFunction in "uClassDBGRidFunction.pas" {frmClassDBGRidFunction},
uDBGridFunction in "uDBGridFunction.pas" {frmDBGridFunction},
uClssClaimScr in "uClssClaimScr.pas" {frmClssClaimScr},
uClssDelivery in "uClssDelivery.pas" {frmClssDelivery},
uClssClaimSrvEdit in "uClssClaimSrvEdit.pas" {frmClssClaimSrvEdit},
uClssClaimSrvAdd in "uClssClaimSrvAdd.pas" {frmClssClaimSrvAdd},
uClssClaimSrv in "uClssClaimSrv.pas" {frmClssClaimSrv},
uAbout in "uAbout.pas" {frmAbout},
uBlocked in "uBlocked.pas" {frmbPP},
uClssEmplPos in "uClssEmplPos.pas" {frmClssEmplPos},
uClssFinTrans in "uClssFinTrans.pas" {frmClssFinTrans},
uClssNmbrType in "uClssNmbrType.pas" {frmClssNmbrType},
uClssCargoTypeEdit in "uClssCargoTypeEdit.pas" {frmClssCargoTypeEdit},
uClssNmbrTypeAdd in "uClssNmbrTypeAdd.pas" {frmClssNmbrTypeAdd},
uClssNmbrTypeEdit in "uClssNmbrTypeEdit.pas" {frmClssNmbrTypeEdit},
uClssPackageType in "uClssPackageType.pas" {frmClssPackageType},
uClssRegionType in "uClssRegionType.pas" {frmClssRegionType},
uClssWBillType in "uClssWBillType.pas" {frmClssWBillType},
uClssWayBillAdd in "uClssWayBillAdd.pas" {frmClssWayBillAdd},
uClssWayBillTypeEdit in "uClssWayBillTypeEdit.pas" {frmClssWayBillTypeEdit},
uRfCarModel in "uRfCarModel.pas" {frmRfCarModel},
uRfCarModelAdd in "uRfCarModelAdd.pas" {frmRfCarModelAdd},
uRfCarModelEdit in "uRfCarModelEdit.pas" {frmRfCarModelEdit},
uRfCountry in "uRfCountry.pas" {frmRfCountry},
uRfCountryAdd in "uRfCountryAdd.pas" {frmRfCountryAdd},
uRfCountryEdit in "uRfCountryEdit.pas" {frmRfCountryEdit},
uSplash in "uSplash.pas" {frmSplash},
uClssTTNSubject in "uClssTTNSubject.pas" {frmClssTTNSubject},
uClssWHCelZone in "uClssWHCelZone.pas" {frmClssWHCelZone},
uClssWHCelZoneAdd in "uClssWHCelZoneAdd.pas" {frmClssWHCelZoneAdd},
uClssWHCellZoneEdit in "uClssWHCellZoneEdit.pas" {frmClssWHCellZoneEdit},
uClssWHCellDimension in "uClssWHCellDimension.pas" {frmClssWHCellDimension},
uClssWHCellDimensionAdd in "uClssWHCellDimensionAdd.pas" {frmClssWHCellDimensionAdd},
uClssWHCellDimensionEdit in "uClssWHCellDimensionEdit.pas" {frmClssWHCellDimensionEdit},
uClssTTNSubjectVar in "uClssTTNSubjectVar.pas" {frmClssTTNSubjectVar},
uClssTTNSubjectVarAdd in "uClssTTNSubjectVarAdd.pas" {frmClssTTNSubjectVarAdd},
uClssTTNSubjectVarEdit in "uClssTTNSubjectVarEdit.pas" {frmClssTTNSubjectVarEdit},
uRfArticleGroup in "uRfArticleGroup.pas" {frmRfArticleGroup},
uRfArticleGroupAdd in "uRfArticleGroupAdd.pas" {frmRfArticleGroupAdd},
uRfArticleGroupEdit in "uRfArticleGroupEdit.pas" {frmRfArticleGroupEdit},
SysConst in "SysConst.pas",
uASplash in "uASplash.pas" {frmASPlash},
uRfDispatcher in "uRfDispatcher.pas" {frmRfDispatcher},
uRfDispatcherAdd in "uRfDispatcherAdd.pas" {frmRfDispatcherAdd},
uRfDispatcherEdit in "uRfDispatcherEdit.pas" {frmRfDispatcherEdit},
uINN_PF in "uINN_PF.pas",
uWaitPr in "uWaitPr.pas" {frmWaitPr},
AgentObjects_TLB in "c:\program files\borland\bds\4.0\Imports\AgentObjects_TLB.pas",
uRfEmployee in "uRfEmployee.pas" {frmRfEmployee},
uRfEmployeeAdd in "uRfEmployeeAdd.pas" {frmRfEmployeeAdd},
uRfEmployeeEdit in "uRfEmployeeEdit.pas" {frmRfEmployeeEdit},
uImage in "uImage.pas" {frmImage},
frmSysMessage in "frmSysMessage.pas" {frmSysMessageForm},
uPhoneWizard in "uPhoneWizard.pas" {PhoneWizard},
uRfRegion in "uRfRegion.pas" {frmRfRegion},
uRfRegionAdd in "uRfRegionAdd.pas" {frmRfRegionAdd},
uHelper in "uHelper.pas" {frmHelper},
uClssRegionTypeAdd in "uClssRegionTypeAdd.pas" {frmClssRegionTypeAdd},
uRfRegionEdit in "uRfRegionEdit.pas" {frmRfRegionEdit},
uHelpUs in "uHelpUs.pas" {frmHelpUs},
ufrmRfRegionPhone in "ufrmRfRegionPhone.pas" {frmRegionPhone},
uRfRegionPhoneAdd in "uRfRegionPhoneAdd.pas" {frmRfRegionPhoneAdd},
uRfRegionPhoneEdit in "uRfRegionPhoneEdit.pas" {frmRfRegionPhoneEdit},
uSaving in "uSaving.pas" {frmSaving},
uRfCity in "uRfCity.pas" {frmRfCity},
uClass_TADODBTreeView in "uClass_TADODBTreeView.pas",
uRfCityAdd in "uRfCityAdd.pas" {frmRfCityAdd},
uVIRS in "uVIRS.pas" {frmVIRUS},
uSWaitPlease in "uSWaitPlease.pas" {frmSWaitPlease},
uRfDriver in "uRfDriver.pas" {frmRfDriver},
uSystemOPS in "uSystemOPS.pas" {frmSystemOPS},
uDriverAdd in "uDriverAdd.pas" {frmRfDriverAdd},
uDriverAddType in "uDriverAddType.pas" {frmDriverAddType},
uDriverAddST in "uDriverAddST.pas" {frmDriverAddSt},
uInfo in "uInfo.pas" {frmInfo},
uDriverEdit_isEmpl in "uDriverEdit_isEmpl.pas" {frmRfDriverEdit_isEmpl},
uRfDriverEditFull in "uRfDriverEditFull.pas" {frmRfDriverEditFull},
uRfCourier in "uRfCourier.pas" {frmRfCourier},
uRfCourierAddTypeSelect in "uRfCourierAddTypeSelect.pas" {frmRfCourierAddTypeSelect},
uRfCourierAddNew in "uRfCourierAddNew.pas" {frmRfCourierAddNew},
uTAdditionalMaster in "uTAdditionalMaster.pas" {frmTAdditionalMaster},
uDS2XML in "uDS2XML.pas",
uINIControl in "uINIControl.pas",
uRfPerson in "uRfPerson.pas" {frmRfPerson},
uRfPersonAdd in "uRfPersonAdd.pas" {frmRfPersonAdd},
uClssRfPhone in "uClssRfPhone.pas" {frmClssRfPhone},
uClssRfPhoneAdd in "uClssRfPhoneAdd.pas" {frmClssRfPhoneAdd},
uStrinfFn in "uStrinfFn.pas",
uClssAdresses in "uClssAdresses.pas" {frmClssAdresses},
uClssAdressesAdd in "uClssAdressesAdd.pas" {frmClssAdressesAdd},
uCVTest in "uCVTest.pas" {frmCVTest},
uInputQueryDate in "uInputQueryDate.pas" {frmInputQueryDate},
uXMLParser in "uXMLParser.pas",
uClssDocuments in "uClssDocuments.pas" {frmClssDocuments},
uClssDocumentAdd in "uClssDocumentAdd.pas" {frmClssDocumentAdd},
uAutoUpdateSpec in "uAutoUpdateSpec.pas" {frmAutoUpdateSpec},
uRfPersonEdit in "uRfPersonEdit.pas" {frmRfPersonEdit},
uMenu in "uMenu.pas" {frmMenu},
uSubMenu in "uSubMenu.pas" {frmSubMenu},
uDemoShow in "uDemoShow.pas" {frmDemoShow},
uClssRegionTypeEdit in "uClssRegionTypeEdit.pas" {frmClssRegionTypeEdit},
umd5 in "umd5.pas",
uMessageSent in "uMessageSent.pas" {frmMessageSent},
uMail in "uMail.pas" {frmMail},
uGridToExcelExport in "uGridToExcelExport.pas",
uRfCar in "uRfCar.pas" {frmRfCar},
uRfCarAdd in "uRfCarAdd.pas" {frmRfCarAdd},
...
...
..

← →
iXT © (2007-06-14 16:34) [30]

> [26] yutonig (14.06.07 16:31)

Зачем? Кроме батонокидательства ничего тут и нету. Стартовая цена после этого упала раз в 10 :)

← →
yutonig (2007-06-14 16:35) [31]

> Зачем? Кроме батонокидательства ничего тут и нету. Стартовая
> цена после этого упала раз в 10 :)

* 20

← →
Ega23 © (2007-06-14 16:36) [32]

> yutonig (14.06.07 16:31) [26]

Писец. Тебе самому не стыдно-то ТАКОЙ код сюда выкладывать?
Где хотя-бы один try..except на открытие запроса? Ах да, у Вас ошибок при работе с базой никогда не бывает. И коннект никогда не рвётся...

procedure TfrmRfPerson.tbnEditClick(Sender: TObject); var sTMP : string; slPhoto: TStringList; begin if tbnEdit.Enabled = false then exit; with frmRfPersonEdit do
Это - вааще шедевр...

← →
iXT © (2007-06-14 16:36) [33]

> [31] yutonig (14.06.07 16:35)

Не предложение рождает спрос, а спрос предложение.

← →
StriderMan © (2007-06-14 16:37) [34]

> yutonig (14.06.07 16:33) [29]

бардак какой, все юниты проекта в одну папку свалены?

← →
iXT © (2007-06-14 16:37) [35]

> [32] Ega23 © (14.06.07 16:36)

База продается отдельно :)

← →
nadJIIu`Angel (2007-06-14 16:39) [36]

>
> > yutonig (14.06.07 16:31) [26]
>
>
> Писец. Тебе самому не стыдно-то ТАКОЙ код сюда выкладывать?
>
> Где хотя-бы один try..except на открытие запроса? Ах да,
> у Вас ошибок при работе с базой никогда не бывает. И коннект
> никогда не рвётся...
>
> procedure TfrmRfPerson.tbnEditClick(Sender: TObject);
> var
> sTMP : string;
> slPhoto: TStringList;
> begin
> if tbnEdit.Enabled = false then exit;
> with frmRfPersonEdit do
> Это - вааще шедевр...

procedure TfrmMain.MyExceptionHandler(Sender : TObject; E : Exception );
var
QuerySQL : string;
nrID : string;
FileName : string;
CS : string;
N : TNotifyEvent;
ErrorS : TStringList;
PropInfo : PPropInfo;
{nID_MAIN - ID запуска релиза
nID_PREL - ID резиза
nID_Class- ID класса
MSG-TEXT - сообще
jpgImg: TJPEGImage;
ние}
jpgImg: TJPEGImage;

begin

ErrorS := TSTringList.Create;
screen.cursor := crDefault;
cs := "QWErtgBNSKICJUAOWFHjfdvbl";
fileName := IntToStr(Random(99999))+cs[Random(16)]+".bmp";
with frmError do
begin
VMSG.Lines.Clear;
VMSG.Lines.Add(E.Message);
// VMSG.Lines.Add(GetClassHelp(e.ClassName));
UpdateType.caption := e.ClassName;
ErrorMsg.Lines.Clear;
ErrorMsg.Lines.Add(E.Message);
ErrorMsg.Lines.Add(E.ClassName);
GetBaseClassInfo(Sender,ErrorMsg.Lines);
ErrorMsg.Lines.Add("");
ErrorMsg.Lines.Add("");
ScreenShot(IMage1.Picture.Bitmap);
Image1.Picture.SaveToFile(fileName);

with ErrorMsg.Lines do
begin
add("Родитель класса: " + e.ClassParent.ClassName);
add("=== Базовые методы ===");
GetBaseMethodInfo(PTypeInfo(e.classtype), ErrorMsg.lines);
add("=== Дифференциальные методы ===");
GetMethodDefinition(PTypeInfo(e.classtype),
ErrorMsg.lines);
add("=== Родительские свойства ===");
add("Родитель: " + sender.Classname);
add("Имя: " +(sender as TComponent).Name);
end; //sender.
ShowModal;

with frmMain.ADOQuerySp do
begin
close;
sql.Clear;
QuerySQL := "DECLARE @nResult INT, @nId INT " +
"EXECUTE @nResult = DBO.up_InsertReleaseError @nId OUTPUT,"+
(runl)+","+
QuotedStr(ErrorMsg.Lines.text)+","+QuotedStr(E.ClassName)+
" SELECT @nResult RESULT, @nID ID";

sql.Add(QuerySQL);
open;
nrID := FieldByName("ID").AsString;
end;

screen.cursor := crHourGlass;
if nrID = "" then begin
screen.Cursor := crDefault;
end else begin
ADOQuerySp.sql.text:="UPDATE ut_LogReleaseError SET MSG_PICT=:b WHERE ID="+nrID;
ADOQuerySp.parameters.parseSQL(ADOQuerySp.sql.text, true);
ADOQuerySp.parameters.parambyname("b").LoadFromFile( fileName,ftBlob);
ADOQuerySp.execsql;
screen.Cursor := crDefault;
deletefile(fileName);
end;
end;
errors.free;
end;

___________

Application.OnException := MyExceptionHandler; // Пересылаем все ошибки

← →
Ega23 © (2007-06-14 16:39) [37]

> yutonig (14.06.07 16:31) [26]

А хранимые процедуры - "чиста для лохов". Нармальные пацаны прям из кода запросы хреначат.
Про параметризацию запросов и TDataModule "нармальным пацанам", похоже, тоже знать непристойно....

← →
Jeer © (2007-06-14 16:39) [38]

Точно спер, к тому же дилетантский код.

← →
nadJIIu`Angel (2007-06-14 16:40) [39]

Удалено модератором

← →
Fredericco © (2007-06-14 16:40) [40]

а) Перевозка грузов;Каким видом транспорта? Решается ли в рамках данного функционала транспортная задача? Задача па оптимальной загрузке?
б) Размещение и хранение грузов на складе (в т.ч., ответственное хранение);
Каким образом идет разделение груза по владельцу?
в) Расчеты за перевозку и хранение товара.В каком виде выдается результат? Счет? Экспорт в ERP?
а) Упаковка грузов;Какое количество вложенности упаковок поддерживается?
б) Сортировка товара;
Где?
в) Комплектация товара;
Сериннные номера поддерживаются? Отслеживание по ним?
г) Выбраковка товара.Зона карантина есть?

Еще вопросы:
Стратегии размещения есть?
Учет по коду паллеты есть?
Смешанные паллеты поддерживаются?
Что с мерным товаром?
Пересчет единиц хранения?
WiFi терминалы сбора данных подерживаются?
Как выдается задание работнику склада?
Что с интеграцией с ERP?
Какие виды отбора заказа(ов) поддерживаются?

← →
StriderMan © (2007-06-14 16:41) [41]

> with frmRfPersonEdit do
> Это - вааще шедевр...

хм. вы против with? не уловил в чем шедевр :[

PS: 90 человек - это 3 группы студентов на лабах?

← →
Rouse_ © (2007-06-14 16:41) [42]

Класс, китайский метод программирования рулит :)
Ибо только им можно посмотрить кусок
with adoMyDBQuery do begin Close; SQL.Clear; SQl.Add(QuerySQL); Open; end;
В трех подряд идущих процедурах, одна из которых еще и рефреш :)

← →
Rouse_ © (2007-06-14 16:42) [43]

посмотрить = повторить :)

← →
Ega23 © (2007-06-14 16:44) [44]

slPhoto := TStringList.Create; slPhoto.Add(ds.DataSet.FieldByName("Photo").AsString); slPhoto.SaveToFile(sTMP); Zimg.Picture.LoadFromFile(sTMP); DeleteFile(sTMP);

Гы-гы-гы!!!!!!!!!!!!!!!!!!!!
ДЕРЖИТЕ МЕНЯ!!!!!!!!!!!!!!!!!!!!!!!
Распечатал, на стенку повесил.
Ща народу перешлю.... :))))))))))))))))))))))

yutonig, не останавливайся, жги дальше!

← →
Ricko © (2007-06-14 16:45) [45]

procedure TfrmRfPerson.tbnEditClick(Sender: TObject);
var
sTMP : string;
slPhoto: TStringList;
begin
if tbnEdit.Enabled = false then exit;
with frmRfPersonEdit do
Это - вааще шедевр...

> StriderMan © (14.06.07 16:41) [41]
> хм. вы против with? не уловил в чем шедевр :[
>

Вроде как события tbnEditClick не возникнет если tbnEdit.Enabled == false

← →
iXT © (2007-06-14 16:46) [46]

>>Разрабатывается совместный проект для службы знакомств, предлагаю сотрудничество
Типа этот комплекс так же писался? :)

ЗЫ Веселая ветка

← →
Ega23 © (2007-06-14 16:47) [47]

> StriderMan © (14.06.07 16:41) [41]
>
>
> > with frmRfPersonEdit do
> > Это - вааще шедевр...
>
> хм. вы против with? не уловил в чем шедевр :[

Пардон. Я не разглядел frmRfPersonEdit
Но тогда я вообще не понимаю, какой индус это писал....

← →
nadJIIu`Angel (2007-06-14 16:48) [48]

> а) Перевозка грузов;Каким видом транспорта? Решается ли
> в рамках данного функционала транспортная задача? Задача
> па оптимальной загрузке?
Ответ: в программе предусмотрен классификатор видов доставки (от авто, авия, ж/д, до курьеров)

> б) Размещение и хранение грузов на складе (в т.ч., ответственное
> хранение);
> Каким образом идет разделение груза по владельцу?
Ответ: По фирмам-заказчикам
> в) Расчеты за перевозку и хранение товара.В каком виде выдается
> результат? Счет? Экспорт в ERP?
Ответ: в любом
> а) Упаковка грузов;Какое количество вложенности упаковок
> поддерживается?
Ответ: Да
> б) Сортировка товара;
> Где?
Ответ: некорректный ворпос
> в) Комплектация товара;
> Сериннные номера поддерживаются? Отслеживание по ним?
Ответ: поддерживаются, предусмотрена система штрихкод, на любые заявки
> г) Выбраковка товара.Зона карантина есть?
Ответ: да
> Еще вопросы:
> Стратегии размещения есть?
Ответ: есть
> Учет по коду паллеты есть?
Ответ: нет
> Смешанные паллеты поддерживаются?
Ответ: да
> Что с мерным товаром?
Ответ: поддерживаются USB, PS2, COM, LPT весы
> Пересчет единиц хранения?
> WiFi терминалы сбора данных подерживаются?
Ответ: нет
> Как выдается задание работнику склада?
Ответ: в виде заявки
> Что с интеграцией с ERP?
Ответ:

← →
Rouse_ © (2007-06-14 16:48) [49]

if ds.DataSet.FieldByName("IS_MALE").AsBoolean = true then cmbIsMale.itemindex := 1 else cmbIsMale.itemindex := 0;
ЖЖОШЬ!!! :)
Все скатывается к тому, что тут не продавать нужно, а платить кому нить, чтоб за вас все это дело поправили хотябы :)

← →
Alx2 © (2007-06-14 16:49) [50]

Интересно, а этот довольно наглый продукт где-то используется уже? :)

← →
Плохиш © (2007-06-14 16:49) [51]

> yutonig (14.06.07 15:15)

Возьму с доплатой в 1000 Евро.

> yutonig (14.06.07 16:31) [26]

Ооооо, после этого доплата увеличивается в 10 раз.

← →
Ega23 © (2007-06-14 16:50) [52]

if ds.DataSet.FieldByName("IS_MALE").AsBoolean = true then cmbIsMale.itemindex := 1 else cmbIsMale.itemindex := 0;

Н-да... Это тоже ща по приятелям разошлю.

← →
_Слоник (2007-06-14 16:51) [53]

ужос, код отвратен
впрочем, считаем:
проект в каждый момент времени пишут 6 программистов - студентов начальных курсов, команда "разработчиков" полностью обновляется в среднем за 2 с небольшим месяца (из-за профнепригодности) :)

← →
StriderMan © (2007-06-14 16:51) [54]

Ricko © (14.06.07 16:45) [45]
> Вроде как события tbnEditClick не возникнет если tbnEdit.
> Enabled == false

и правда :))))))
но этот код не зря написан, а вот почему:

procedure TfrmRfPerson.DBGridDblClick(Sender: TObject); begin if tbnEdit.Enabled then tbnEdit.OnClick(nil); end;

афтар таки все предусмотрел :)))))

← →
Ega23 © (2007-06-14 16:51) [55]

Самое паршивое во всём этом то, что такие программы ведь реально где-то работают. И ведь денег за это 90 человек "программистов" срубило немало...

Куда страна катится...?

← →
tesseract © (2007-06-14 16:52) [56]

> Самое паршивое во всём этом то, что такие программы ведь
> реально где-то работают. И ведь денег за это 90 человек
> "программистов" срубило немало...

Хочешь круче вещь пришлю, франчи в 1с накатали. за 15 минут скорость работы поднялась в 48 раз.

← →
Nic © (2007-06-14 16:53) [57]

Ужас. 90 человек разрабатывало? Жесть.
КОд не читал, но форматирование ужасно.
Вообще, просили исходники Десктоп-стиккеров у antonn, а не непонятную систему с 300 Мб исходников.

← →
Ega23 © (2007-06-14 16:54) [58]

> Хочешь круче вещь пришлю, франчи в 1с накатали. за 15 минут
> скорость работы поднялась в 48 раз.

Не, мне ещё за час хп накатать надо...
Весёлая ветка. Сохраните кто-нить.... :)

← →
Fredericco © (2007-06-14 16:54) [59]

2 nadJIIu`Angel (14.06.07 16:48) [48]
б) Сортировка товара;
> Где?
Ответ: некорректный ворпос
Что по твоему сортировка товара и в какой момент она происходит?

← →
Bless © (2007-06-14 16:54) [60]

> nadJIIu`Angel (14.06.07 16:48) [48]
> > а) Упаковка грузов;Какое количество вложенности упаковок
>
> > поддерживается?
> Ответ: Да

Сказал, как отрезал :)

← →
Ega23 © (2007-06-14 16:55) [61]

> Что по твоему сортировка товара и в какой момент она происходит?

Что по твоему сортировка товара; Order By!
и в какой момент она происходит: В момент открытия запроса!

← →
keymaster © (2007-06-14 16:55) [62]

> with frmRfPersonEdit doЭто - вааще шедевр...

Тоже посмеялся...

> StriderMan © (14.06.07 16:37) [34]
> > yutonig (14.06.07 16:33) [29] бардак какой, все юниты
> проекта в одну папку свалены?

Так часто бывает у неопытных...
Но если работает 90 человек и исходников на 300 мегов и все это в одной папке, остаётся сильно незавидовать тому, кто все это разгребать будет.

> Ricko © (14.06.07 16:45) [45]
> procedure TfrmRfPerson.tbnEditClick(Sender: TObject);varsTMP
> : string;slPhoto: TStringList;beginif tbnEdit.Enabled =
> false then exit;with frmRfPersonEdit doЭто - вааще шедевр.
> ..> StriderMan © (14.06.07 16:41) [41]> хм. вы против
> with? не уловил в чем шедевр :[> Вроде как события tbnEditClick
> не возникнет если tbnEdit.Enabled == false

А как же быть с with frmRfPersonEdit, если в самом начале сказано, что
procedure TfrmRfPerson.tbnEditClick?

В общем - отличный пример того, как НЕ надо писать код.

← →
Ega23 © (2007-06-14 16:59) [63]

> А как же быть с with frmRfPersonEdit, если в самом начале
> сказано, что
> procedure TfrmRfPerson.tbnEditClick?
>

Не, там всё хитрее. Объявлена переменная var frmRfPerson : TfrmRfPerson.
Но вот with уже идёт с переменной frmRfPersonEdit.
Для чего - понять можно: дабы запутать китайскую разведку.

В общем, за такой код зарплату надо платить очень маленькую.

← →
StriderMan © (2007-06-14 17:02) [64]

> А как же быть с with frmRfPersonEdit, если в самом начале
> сказано, что
> procedure TfrmRfPerson.tbnEditClick?

не, тут-то все более менее нормально. нажали кнопку в форме, проинициализировали модальный диалог, показали его опять же модально.

← →
Loginov Dmitry © (2007-06-14 17:06) [65]

> Гы-гы-гы!!!!!!!!!!!!!!!!!!!!
> ДЕРЖИТЕ МЕНЯ!!!!!!!!!!!!!!!!!!!!!!!
> Распечатал, на стенку повесил.

Для начинающего - нормальный код. Сам также писал в первый месяц изучения Дельфи. Работает - и фик с ним.
А мощность проекта определяется вовсе не качеством кода. Т.е. может проект и мощный, НО врядли сами исходники кому-то пригодятся, тем более за озвученную сумму кто захочет использовать код такого, мягко говоря, спорного качества?

← →
Ega23 © (2007-06-14 17:07) [66]

> Для начинающего - нормальный код.

Нет, это ненормальный код даже для начинающего. Тем более в компании 90 программистов.

← →
oldman © (2007-06-14 17:08) [67]

Ну че вы напали на человека?
Автор, я куплю!
За бутылку пива.
Причем, пиво с тебя.
Причем, самопривоз.

← →
tesseract © (2007-06-14 17:09) [68]

> Тем более в компании 90 программистов.

Нее они по очереди, одного шалопая выгонят - второй появиться :-)

← →
stone © (2007-06-14 17:11) [69]

> ShowModal;
> end;
> tbnRefresh.OnClick(nil);

т.е. даже если ShowModal не вернул mrOk или что-то подобное
идет полное переоткрытие запросов

зачем же вы так над базой издеваетесь

ЗЫ. дальше ниасилил

← →
Ega23 © (2007-06-14 17:11) [70]

По 12 дней, однако, каждый работал...

← →
Fredericco © (2007-06-14 17:11) [71]

> Сериннные номера поддерживаются? Отслеживание по ним? Ответ: поддерживаются, предусмотрена система штрихкод, на любые заявки
Штрихкод предназаначен для идентификации некой сущности. Корбки, к примеру. Учет сериный номеров, то механизм, при котором при создании комплекта из комплектующих, сохраняются серийные номера последних. И в итоге, когда ты отгружаешь комплект стол, ты всегда знаешь из какой партии и от какого поставщика пришла ножка этого стола.

Это поддерживается?

← →
Johnmen © (2007-06-14 17:15) [72]

Тупое прикалывание...
А вы ведётесь :)

← →
DrAndrey © (2007-06-14 17:32) [73]

Тупое прикалывание...
А вы ведётесь :)

+1
Причем долго ;-)

← →
StriderMan © (2007-06-14 17:33) [74]

> Johnmen © (14.06.07 17:15) [72]
> Тупое прикалывание...
> А вы ведётесь :)

да лана клево постеблись :))

← →
Amoeba © (2007-06-14 17:54) [75]

slPhoto := TStringList.Create;

а slPhoto.Free напрочь отсутствует! Класс! Что не удивительно при полном игнорировании конструкции try ... finally ... end

← →
iXT © (2007-06-14 18:00) [76]

> Amoeba © (14.06.07 17:54)

100 k$ так ведь не предел :) если
> конструкции try ... finally ... end
,
то уже 200 как минимум

← →
Rule © (2007-06-14 18:33) [77]

блин бедные нивные программисты :-)
афтар молодец, флудоносный топик на профессиональную тему ...

← →
Панкратов (2007-06-14 20:23) [78]

yutonig (14.06.07 15:15)

Если не прикол, где можно скачать демо-версию или выложи скриншоты?

← →
Yanis © (2007-06-14 20:30) [79]

> Тупое прикалывание...
> А вы ведётесь :)

Т.е. кто то придумал:
> yutonig (14.06.07 16:33) [29]
или
> if ds.DataSet.FieldByName("IS_MALE").AsBoolean = true then
>
> cmbIsMale.itemindex := 1 else cmbIsMale.itemindex := 0;

мне кажется это реальный проект =)

← →
aktuba (2007-06-14 20:50) [80]

Класс!!! У меня тоже много исходников - могу продать =))))))

← →
keymaster © (2007-06-14 21:36) [81]

> Класс!!! У меня тоже много исходников - могу продать =))))))

по 100k$?

← →
MsGuns © (2007-06-14 22:18) [82]

А смешного-то тут маловато будет.
Я своих за фокусы, подобные [26],[29],[36], конкретно наказываю.
Деньгой.

← →
Углук © (2007-06-14 23:37) [83]

Чего вы все накинулись на человека?Тот факт, что проект после 90-ста человек работает, говорит о том, что он имеет право на жизнь. Вы же сами 80% лучше не напишете (уверен на 70% :)

← →
Углук © (2007-06-14 23:40) [84]

Хотя с другой стороны, одиозность заглавного поста возвращает меня к мысли, что это банальный развод, с целью обнажить шельмующий лик рядового форумчанина

← →
IMHO © (2007-06-14 23:44) [85]

> slPhoto := TStringList.Create;
> slPhoto.Add(ds.DataSet.FieldByName("Photo").AsString);
> slPhoto.SaveToFile(sTMP);
> Zimg.Picture.LoadFromFile(sTMP);

Я не понимаю, как эта фигня вообще может работать...

← →
IMHO © (2007-06-14 23:46) [86]

А может, чел просто выставил свой код на порку и теперь собирает бесплатный фидбак и бесплатные советы.

> IMHO © (14.06.07 23:44) [85]

Я тоже не понимаю, как этот код работает. Однако ж никто из "мудрецов" не отметил этого до Вашего поста.

>Углук © (15.06.07 00:07) [87]
>Однако ж никто из "мудрецов" не отметил этого до Вашего поста.

А что ж там отмечать, если код писал человек, не понимающий того, ЧТО делает.

Аргументы ?

Несколько примеров из [26]

const QuerySQL = "SELECT * FROM uv_RfPerson";

Зачем тащится вся таблица ?

procedure TfrmRfPerson.DBGridCellClick(Column: TColumn); begin sbInfo.Panels[0].Text := "Запись "+ IntToStr(ds.DataSet.RecNo) + " из "+ IntToStr(ds.DataSet.RecordCount); end;

Зачем "дергать" датасет и статусбар при ЛЮБОМ щелчке на сетке ? Будет ли это работать при пустом датасете ? И вообще ощущение, что код просто спионерен и использован бездумно.

procedure TfrmRfPerson.AppMessage(var Msg: TMsg; var Handled: Boolean); var i: SmallInt; begin {Mouse wheel behaves strangely with dgbgrids - this proc sorts this out} if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam); if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; end;

Это вообще песня. Грид уговариваривается "слушаться" мышиного колеса куда менее витиевато и куда более надежно.

procedure TfrmRfPerson.DBGridDblClick(Sender: TObject); begin if tbnEdit.Enabled then tbnEdit.OnClick(nil); end;

Для контекстного переключения элементов управления (не только тулбатонов) значительно удобнее и ПРАВИЛЬНЕЕ пользоваться механизмом TAction, централизующим это самое переключение, а не переключение собственно кнопок и менюшек.

Это только делфи. О БД ибизнес-логике вообще речи нет. Судя, по шедевру

QuerySQL := "DECLARE @nResult INT "+ "EXECUTE @nResult = up_DeleteRfPerson "+ IntToStr(nID)+ " SELECT @nResult RESULT";

там тоже поработали "мастера"

Короче, ИМХО, обсуждать нечего. Это либо провокация, либо приступ самолюбования программиста-первогодка.

IMHO © (14.06.07 23:44) [85]

Я не понимаю, как эта фигня вообще может работать...

Легко и непренужденно. А почему он не должен работать?

← →
Панкратов (2007-06-15 01:17) [90]

if MessageDlg("Вы уверены, что хотите удалить выбранную запись?", mtConfirmation,mbYesNo,0) = idNo then exit;

А если нажать на крестик или ALT+F4 ?

> jack128 © (15.06.07 00:35) [89]
>
> IMHO © (14.06.07 23:44) [85]
>
> Я не понимаю, как эта фигня вообще может работать...
>
> Легко и непренужденно. А почему он не должен работать?

Легко и непринужденно?

>Углук © (15.06.07 00:07)

>Я тоже не понимаю, как этот код работает. Однако ж никто из "мудрецов"
>не отметил этого до Вашего поста.

Да-да-да... Так предосудительно, что многие проигнорировали свою святую обязанность в подобном дерьме покопаться. Совести у людей нет.

> slPhoto := TStringList.Create;
> slPhoto.Add(ds.DataSet.FieldByName("Photo").AsString);
> slPhoto.SaveToFile(sTMP);
> Zimg.Picture.LoadFromFile(sTMP);
======
Получили имя файла, загрузили его в Bitmap. Что не так? Естественно, что много ньюансов, но он работает :))

Обязанность одна - соблюдать этические нормы при общении.
Но известно, что резвиться за счет чужой неопытности (и возможно дурости) очень легко. Да, код отстойный. Наиболее наглядно доказал
это MsGuns © (15.06.07 00:27) [88]
А вообще, чего я тут распинаюсь???
Придет автор топика, вот пусть он пинки и получает!

> Бакук © (15.06.07 02:53) [93]
>
> > slPhoto := TStringList.Create;
> > slPhoto.Add(ds.DataSet.FieldByName("Photo").AsString);
>
> > slPhoto.SaveToFile(sTMP);
> > Zimg.Picture.LoadFromFile(sTMP);
> ======
> Получили имя файла, загрузили его в Bitmap. Что не так?
> Естественно, что много ньюансов, но он работает :))

Ну попробуй такой код в своем проекте. Маты от клиентов гарантирую.

← →
Petr V.Abramov (2007-06-15 03:22) [97]

озвученную сумму (и выше гораздо) стоят не исходники, а люди, которые их в закомпилированом виде втюхать умудряются (от слова мудр:)

← →
Ш-К (2007-06-15 05:12) [98]

Если такая программа существует, то только как диверсия со стороны исполнителя.

> Бакук © (15.06.07 02:53) [93]
> > slPhoto := TStringList.Create;> slPhoto.Add(ds.DataSet.
> FieldByName("Photo").AsString);> slPhoto.SaveToFile(sTMP);
> > Zimg.Picture.LoadFromFile(sTMP);======Получили имя файла,
> загрузили его в Bitmap. Что не так? Естественно, что много
> ньюансов, но он работает :))

Во-первых, получили не имя файла, а саму картинку из базы.
Затем она сохраняется в файл с именем sTmp и уже оттуда грузится
в image.

> Вы же сами 80% лучше не напишете (уверен на 70% :)

Я думаю, что большинство постоянно общающихся тут людей ТАК не напишут... Ибо не дети уже.

может таким не хитрым способом кто то пытается диплом причесать?
Мне особо нравиться что лог не ведеться, что случилось, когда, где один святой Коннектий знает.

procedure TfrmRfPerson.AppMessage(var Msg: TMsg; var Handled: Boolean); var i: SmallInt; begin {Mouse wheel behaves strangely with dgbgrids - this proc sorts this out} if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam); if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; end;
Чет бред какой-то... Handled- постоянно False. ?!?

> yutonig (14.06.07 16:25) [22]
>
> > Gero © (14.06.07 16:23) [21]
> > Сколько денег хочешь?
> > <Цитата>
>
>
> 100 тыс. бакинских рублика

Пиши на www.microsoft.com. В России за исходные коды стока не дадут.
Если б ты сказал, что microsoft предлогает исходные коды ОС Windows Server 2003, я б еще подумал...

← →
yutonig (2007-06-15 09:36) [102]

Если кому интересен скриншот, могу выслать на EMail

Даже с доплатой такой код не нужен.... даже рефакторинг ему не поможет. Только переписать все с нуля. Глупо такой код продавать.

← →
Арсен (2007-06-15 09:44) [104]

Покупаю

Мыши всё кололись и кололись, но продолжали есть кактус (с)

> Ну попробуй такой код в своем проекте. Маты от клиентов
> гарантирую.

Клиенты код в большинстве случаев не видят. И, как показывает практика, большая часть работающих программ именно так и написана, и клиентам по барабану, что там в коде - им важно, что бы это РАБОАЛО. И пока "профессионалы" ломают копья на предмет крутости кода, его оптимальности и т.п., некоторые предприимчивые чайники этот код ПИШУТ. Не оптимально, но пишут. И много. И это работает. И за готовый откомпиленный и внедренный продукт платят бабки. Которые "профессионалам" и не снились. А "профессионалы" исходят желчью по этому поводу :))) И критикуют, критикуют...

ИМХО есть два показателя "крутости" кода: сколько за него заплачено в вечнозеленых рублях и насколько готовый продукт полезен пользователям, какое у них к нему отношение.

продавать надо не исходники, а откомпиленный продукт, причем ес-но не открывать код. Тогда больше шансов на то, что если он действительно работает, то можно что-то из него выжать

> yutonig (15.06.07 09:36) [102]
> Если кому интересен скриншот, могу выслать на EMail
> ip:[85.21.39.7]

> Арсен (15.06.07 09:44) [104]
> Покупаю
> ip:[85.21.39.7]

Тихо сам с собой веду беседу? ;)

Их тут трое :)
еще nadJIIu`Angel ныкается где-то :)

← →
yutonig (2007-06-15 10:13) [112]

Админы: Закрыть тему

> yutonig (15.06.07 10:13) [112]
>
> Админы: Закрыть тему

Это приказ?

← →
yutonig (2007-06-15 10:18) [114]

вот бестолку обсуждаете качество кода, вопрос не в качестве в данный момент, а в работоспособности, есть потенциальная база клиентов, которая успешно пользуется программным продуктом, соглесен исходный код кривой, очень кривой, сейчас этот продукт нет желания поддерживать, большая часть программистов, которые разрабатывали этот код студенты, потому что нужно было создать все очень быстро, и чтобы работало. Проект действительно получился очень огромным, все его аспекты не перечислить. Делали под себя, пользуются 19 компаний.

Если на этом сайте могут вести критику люди, с интелектом подставки для монитора, то админы сразу удаляйте тему.

> есть потенциальная база клиентов, которая успешно пользуется программным продуктом

так потенциальная или уже пользуется?

Ты давай ка мил человек не будешь указывать что и как делать администраторам? А по поводу подставки для монитора - что хотел, то и получил...

> Если на этом сайте могут вести критику люди, с интелектом
> подставки для монитора

Пока что данный уровень интеллекта только Вы демонстрируете. Необоснованной критики в ветке не увидел.

> yutonig (15.06.07 10:18) [114]
> Делали под себя, пользуются 19 компаний.

Это ЗАЧОООТ :))) Так емко все объяснить одной фразой :)))

← →
yutonig (2007-06-15 10:28) [119]

> Ты давай ка мил человек не будешь указывать что и как делать
> администраторам? А по поводу подставки для монитора - что
> хотел, то и получил...

А если вы и имеете статус администратора или модератора, то предпочтительней было следить за соблюдением правил в данном разделе форума, в частности ,чтобы сообщения соответствовали тематике Форума, а не разводилась вода.

Это раздел "прочее", тут беседуют о всем, чем угодно :) А за правилами следят - не переживай :)

> yutonig (15.06.07 10:28) [119]
> чтобы сообщения соответствовали тематике Форума, а не разводилась вода.

Конференция "Прочее" конференция на отвлеченные темы

> [114] yutonig (15.06.07 10:18)

Перечислите все 19

← →
yutonig (2007-06-15 10:44) [123]

Удалено модератором

Продаю исходные коды комплекса Найти похожие ветки