السلام عليكم
سؤالي هو كيفية انشاء قاعدة بيانات باستخدام interbase وجعلها تعمل في شبكة محلية
يجب ان يكون المثال بسيط أس يكفي جدول واحد مع شرح مفصل للخطوات
المراد من البرنامج هو جعل قاعدة البيانات في جهاز بحيث يستطيع باقي الأجهزة المتصل بشبكة محلية الاتصال بهذه الفاعدة
عدد الاجهزة 20 جهاز على الاكثر
اخى العزيز هذا الملف انا أستخدمة فى برنامجى الموجود بالسوق
كود :
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
لم يشتغل البرنامج
هل هناك شرح