المشاركات : 91
المواضيع 31
:
: 0
الإنتساب : Sep 2009
السلام عليكم
سؤالي هو كيفية انشاء قاعدة بيانات باستخدام interbase وجعلها تعمل في شبكة محلية
يجب ان يكون المثال بسيط أس يكفي جدول واحد مع شرح مفصل للخطوات
المراد من البرنامج هو جعل قاعدة البيانات في جهاز بحيث يستطيع باقي الأجهزة المتصل بشبكة محلية الاتصال بهذه الفاعدة
عدد الاجهزة 20 جهاز على الاكثر
المشاركات : 39
المواضيع 4
:
: 8
الإنتساب : Apr 2009
اخى العزيز هذا الملف انا أستخدمة فى برنامجى الموجود بالسوق
كود :
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
المشاركات : 91
المواضيع 31
:
: 0
الإنتساب : Sep 2009
لم يشتغل البرنامج
هل هناك شرح
