كيفيه عمل تنسيق للتاريخ

السلام عليكم

من الطبيعي أن تحصل على خطأ لأن الصيغة التي تكتبها ليست صيغة تأريخ dd/mm/yyyy الصيغة هي yyyy/mm/dd إذا كنت مصر فقلبه بهذه الطريقة

var
 s, d, m, y: String;
begin
 s:= Edit1.Text;
 d:= Copy(s, 1, 2);
 m:= Copy(s, 4, 2);
 y:= Copy(s, 7, 4);
 s:= y+'/'+m+'/'+d;
 Edit2.Text:= s;
end;

بالنسبة DateSeparator فهو مجرد تصريح لمتغير

DateSeparator: Char;

عند كتابة صيغة التاريخ سيتم إستبدال '/' بما أنت أسنتدته إليه جرب هذا و سوف تتضح الأمور

var
 Date: TDate;
begin
 Date:= Now;
 DateSeparator := '-';
 edit1.Text := DateToStr(Date);
end;

هذا على قدر معرفتي أتمنى التصحيح

شكرا جزيلا لك اخى الفاضل الاستاذ حسين

فعلا الكود نجح وفعلا عدل التاريخ هكذا اذا كتبت فى التكست 01/05/2009 قلبه فعلا الى 2009/05/01

توجد نقطه اخيره وهى انا عاوز اكتب التاريخ هكذا 1/5/2009 وعند الخروج من التكست يغيره هكذا 2009/05/01

ارجو توضيح ذلك واكون شاكر فضلك

==============

اما من ناحيه موضوع الشجره لماذا لم ترد على فى هذا الطلب

عموما الموضوع انا عندى جدول بقاعده بيانات اكسيس وعاوز املئ الشجره منه وهو جدول دليل الحسابات

وهذا هو اخر كود توصلت له فعلا يملئ الشجره ولكن بمستويين فقط فما الخطأ فى هذا الكود

var

N: TTreeNode;

i: integer;

begin

ADOTable1.Active := true ;

ADOTable1.Active := true ;

ADOTable1.First;

While not ADOTable1.Eof do

begin

for i := 1 to ADOTable1.RecordCount do

begin

If (ADOTable1.FieldByName('AccFather').Value = 0) Then

N:= TV1.Items.AddChild(Nil,ADOTable1.Fields[1].AsString);

TV1.Items.AddChild(N,ADOTable1.Fields[1].AsString);

ADOTable1.Next;

end;

end;

//Tv1.FullExpand;

end;

وعموما سوف ارسل لك المثال مره اخرى

وشكرا اخى حسين على اهتمامك بلاعضاء الجدد فى الرد عليهم ويجعل الله هذه المساعدات فى ميزان حسناتك

New_Folder.rar

أخي سلامة مرحبا

أولا أنا برجاء لا تكرر كلمة أستاذ لأني فعلا لست كذلك معظمكم هنا اكادمين إما في مجال علوم الحاسب أو مجال أخر يمت له بصلة أما أنا فعلا هاوي ومتطفل على هذا المجال :blush:

بالنسبة للسؤال الأول

var
 MyDate: TDate;
begin
 ShortDateFormat:= 'yyyy/m/d';
 MyDate:= StrToDate(Edit1.Text);
 ShortDateFormat:= 'yyyy/mm/dd';
 Edit2.Text:= DateToStr(MyDate);
end;

بالنسبة للشجرة حسب ما فهمت تريد عمل شجرة حسابات ولكن ما تفعله أنت ليس سوى محاولة ملىء الشجرة ولكن هنالك أمور أخرى يجب مراعاتها يجب أن تتصرف

مثل أي مكون قاعدة بيانات أخر يملء الحقول ويعدلها ويستجيب لتحركات الجداول في محاولتك أنت قمت بترتيب العناصر داخل الشجرة فقط في مستويين لما تكون قيمة

AccFather = 0 فهذا هو المستوى الأول وغيره يكون من المستوى الثاني التعديل بسيط قم بجعلهم أكثر من مستوى يعني لما AccFather =1 وهكذا

لكن حسب معرفتي البسيطة بالمحاسبة فإن سجرة الحسابات ترتب الحسابات بناء على أن كل حساب ينحدر من حساب أخر وأنت أعلم بذلك إذا كان حساب الزبائن بالرقم

228 يكون حساب الزبون الأول 2281 طيب ماذا لو تم إضافة زبون أخر بعد فترة حسب الكود الذي وضعته سوف يكون تابعا لحساب أخر أليس كذلك يعني إسلوبك خطأ حسب فهمي لشجرة الحسابات من الأفضل بناء مكون لذلك بحيث تشتق جداوله من الصنفTFieldDataLink أو TDataLink أو أن تبحث عن مكون جاهز

لا أعرف واحد لأاني غير مهتم كثير بمجال قواعد البيانات لكن هذا مكون شجرة لقواعد البيانات لأ أدري إن كان ينفع لشجرة الحسابات

dbtreeview

أتمنى التوفيق

شكرا لك اخى الفاضل على اهتمامك بالرد

ولكن فعلا انا منفذ هذه الشجره فى الفيجول بيسك وتمام وممتازه ويتم تعبئه الشجره بكل الحساب على جميع المستويات حتى لو وصل الى اى حد فى المستويات

لانه يعتمد على كود الاب وكود الابناء

ولكنى عندما حاولت فى الدلفى فانا اهوى لغات البرمجه فحاولت انفذ هذا بالدلفى لكن اكواد الدفى مختلفه

وانا مبتدئ فى الدلفى عموما مشكور على الاهتمام

السلام عليكم...

تمت الإجابة على موضوع تعبئة الشجرة في نفس الموضوع.

نرجو الاستفادة و السلام.