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

← →
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},
...
...
..

> [26] yutonig (14.06.07 16:31)

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

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

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

* 20

> 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
Это - вааще шедевр...

> [31] yutonig (14.06.07 16:35)

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

> yutonig (14.06.07 16:33) [29]

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

← →
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; // Пересылаем все ошибки

> yutonig (14.06.07 16:31) [26]

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

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

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

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

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

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

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