+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية برمجة قاعدة بيانات interbase في شبكة محلية (/showthread.php?tid=6623)
كيفية برمجة قاعدة بيانات interbase في شبكة محلية - nebchadelphi - 10-12-2014
السلام عليكم
سؤالي هو كيفية انشاء قاعدة بيانات باستخدام interbase وجعلها تعمل في شبكة محلية
يجب ان يكون المثال بسيط أس يكفي جدول واحد مع شرح مفصل للخطوات
المراد من البرنامج هو جعل قاعدة البيانات في جهاز بحيث يستطيع باقي الأجهزة المتصل بشبكة محلية الاتصال بهذه الفاعدة
عدد الاجهزة 20 جهاز على الاكثر
كيفية برمجة قاعدة بيانات interbase في شبكة محلية - khalmoh1971 - 10-12-2014
اخى العزيز هذا الملف انا أستخدمة فى برنامجى الموجود بالسوق
كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
s2, s3 :string;
temp: array[0..MAX_COMPUTERNAME_LENGTH + 1] of char;
a: cardinal;
DB_Name: string;
begin
DB_Main1.Connected := false;
TR_Main1.Active := false;
madical := TIniFile.Create(ExtractFilePath(Application.ExeName) +
'mast.ini');
a := MAX_COMPUTERNAME_LENGTH + 1;
GetComputerName(temp, a);
madical.WriteString('Form', 'computer', strpas(temp));
edit2.Text := madical.ReadString('Form', 'time', s3);
Edit1.Text := madical.ReadString('DATA', 'DATA FILE', s2);
Edit3.Text := madical.ReadString('DATA', 'serves', '');
DB_Name := edit3.text + ':' + edit1.Text;
DB_Main1.DatabaseName := DB_Name;
if DB_Main1.Connected = true then
DB_Main1.Connected := FALSE;
DB_Main1.Connected := true;
TR_Main1.Active := true;
StatusBar1.Panels[0].Text:= Edit1.Text;
StatusBar1.Panels[1].Text:= Edit3.Text;
IF DB_Main1.Connected =TRUE THEN StatusBar1.Panels[7].Text:= 'متصل '
ELSE
StatusBar1.Panels[7].Text:= 'غير متصل';
StatusBar1.Panels[8].Text:= strpas(temp);
end;كود :
https://www.mediafire.com/?96spc4rz0vadilcكيفية برمجة قاعدة بيانات interbase في شبكة محلية - nebchadelphi - 10-12-2014
لم يشتغل البرنامج
هل هناك شرح