دیسکت بانک [بایگانی]

niloofar_taieban

دوشنبه 28 آذر 1384, 16:37 عصر

سلام دوستان. من دنبال کامپوننت دیسکت بانک می گردم .
با استفاده از این کامپوننت می توانیم اطلاعات حسابهای بانک رو از دیسکت بخونیم و در جدول خاصی در databaseذخیره بشه.
اگه کسی این کامپوننت رو داره ممنون می شم اینو برام بفرسته. :گریه:

K_Zeiaei

یک شنبه 14 مرداد 1386, 13:30 عصر

هنوزم میخوای؟ اگه میخوای به k_zEIAEI@YAHOO.COM یه ایمیل بزن

جواد ملاولی

یک شنبه 14 مرداد 1386, 17:57 عصر

سلام، جناب k_zeiaei اگه این کامپوننت رو در اختیار دارید لطف کنید آپلودش کنید تا همه ی دوستان استفاده کنند.

farzad_az_shiraz

دوشنبه 15 مرداد 1386, 06:12 صبح

خوب راست می گه ما هم می خواییم
اینجا واسه همین ساخته شده نه این که واستون میل بزنن.
این جا جای میل زدن نیست.اشتباه گرفتید.

جواد ملاولی

سه شنبه 16 مرداد 1386, 11:30 صبح

چی شد کسی این کامپوننت رو نداره؟

ب- تات

چهارشنبه 24 مرداد 1386, 12:30 عصر

ببینید شاید بهتره بگم در واقع این کامپوننت نیست . با کد نویسی اطلاعات جدولی را که شامل نام پرسنل - شماره حساب - مبلغ واریزی در آن درج شده را رکورد به رکورد خوانده و طبق دستورالعملی که برای هر بانک تفاوت دارد آن اطلاعات به یک فایل TXT فرستاده میشود. سپس فایل به فلاپی منتقل شده و بانک آن اطلاعات را طبق استاندارد خود به سیستم خود بازخوانی میکند. عکس این موضوع هم به همین شکل هست و شما باید ببینید بانک ازچه آلگوریتمی برای ارسال حسابها به فایل استفاده کرده . سپس هر ردیف از فایل متنی برابر با یک رکورد میباشد که باید اطلاعات هر فیلد را از آن جدا کرد.

Valadi

چهارشنبه 24 مرداد 1386, 12:39 عصر

الگوریتم آرایش این فایل متنی به چه شکل است ؟
اگر امکان داره نمونش قرار بده

با تشکر

omid1240

چهارشنبه 24 مرداد 1386, 12:40 عصر

من بانک ملت را نیاز داشتم نوشتم اگه کسی لازم داره کدش را بهش می دم ولی خیلی ساده است . ارزش زیادی نداره .

Valadi

چهارشنبه 24 مرداد 1386, 12:43 عصر

جناب امید1240
رو سایت قرار بده تا دیگران هم استفاده کنند

ارزش زیادی نداره
چرا می گی ارزشی نداره
ارزش بالاتراز این مشکل دوستان در این سایت حل می شود

ضمنا بانک ملی و بانک تجارت الگوریتمش به چه صورتیه ؟

omid1240

چهارشنبه 24 مرداد 1386, 18:00 عصر

الان روی این کامپیوتر که کارمیکنم سورس برنامه هام پیشم نیست . میگردم حتما میذارم روی سایت .

Valadi

چهارشنبه 24 مرداد 1386, 18:21 عصر

با تشکر
اگر روی سایت قرار دادی حتما به من اطلاع بده

omid1240

پنج شنبه 25 مرداد 1386, 11:57 صبح

var STR:String;
begin
Memo1.Lines.Clear;
STR:='O '+'13'+[Year]+[Month]+
[Day]+' '+
FloatToStr([SUMATION OF SALARY])+' '+
IntToStr(ADOTable1.RecordCount)+' 0 248 0';
Memo1.Lines.Add(STR);
Table1.first;
while not (Table1.Eof) do
begin
STR:=IntToStr(ADOTable1Row.AsInteger)+' '+ADOTable1CardNo.AsString+' '+
FloatToStr(ADOTable1Salary.AsFloat)+' 0';
Memo1.Lines.Add(STR);
ADOTable1.Next;
end;
Memo1.Lines.SaveToFile('HAVALEH.txt');
end;

CardNo شماره کارت هر پرسنل است
Row شماره ردیف سطر هاست
اعداد و ارقامی که بکار رفته مثل 248 عجیب نیست این ساختار بانک ملته
یک فایل txt با نام HAVALEH باید ساخته شود چون من می خواستم اول درون یک Memo نشونش بدم از کد بالا استفاده کردم اگه کسی نیاز نداشت اول فایل متنی را ایجاد کنه بعد مستقیم اطلاعات را به آن اضافه کنه .
طریقه ساخت فایل متنی در این انجمن قبلا گفته شده است .
برای بقیه بانک ها باید اول فرمت و ساختار فلاپی آنها را بگیرید خیلی فرقی نمی کنه . بعضی از بانک ها هم دوتا فایل متنی لازم دارند گشتم دنبالشون پیدا نکردم /