سلام عید شما مبارک
دوستان من یک مبتدی هستم می خواستم یک فرم ایجاد کنم و از طریق ان اطلاعات شخصی مثل نام و نام خوانوادگی و ادرس و....... وارد یک جدول اکسس بکنم و سپس بتونم با وارد کردن نام در یک فرم دیگر این اطلاعات را از جدول استخراج کنم ممنون میشم اگر مرا راهنمایی کنید
سلام
اگر منظورت اینه که مثلا وقتی نام خانوادگی را وارد می کنی بتونی بقیه اطلاعات را داشته باشی میتونی از code زیر استفاده کنی.
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Active:=false;
Table1.Active:=true;
DataSource1.DataSet:=Query1;
query1.close;
query1.SQL.Clear;
query1.SQL.Add('select * from moshtari where lname=:a ');
Query1.ParamByName('a').AsString:=Edit1.Text;
query1.Open;
if query1.RecordCount=1 then
Edit2.Text:=Query1.FieldValues['name'];
. ž{
. هر دستوری دوست داری بنویس
. }
if query1.RecordCount=0 then
. {
. هر دستوری دوست داری بنویس
.
. }
if query1.RecordCount>1 then
end;
سلام
فکر کنم منظور دوستمون ساخت یه برنامه نمونه هست که این کار رو بکنه ...
--------------
شما اول بانک اطلاعاتی رو توی اکسس درست کنید ...
بعد توی دلفی یک کامپوننت ADOConnection و یک کامپوننت ADOTable روی فرم بزارید ، بعد روی ADOConnection دو بار کلیک کنید و بعد توی پنجره باز شده روی دکمه Build کلیک کنید ، بعد توی این پنجره گزینه Microsoft Jet 4.0 OLE DB Provider رو انتخاب کنید و روی Next کلیک کنید ...
توی پنجره بعدی در قسمت Select or Enter Data Base Name ، بانک اطلاعاتی خودتون رو وارد کنید ، بهتره که بعد از وارد کردن بانک اطلاعاتی روی گزینه Test Connection کلیک کنید تا از صحت مسیر بانک اطلاعاتی مطمئن بشید ...
حالا OK کنید و به فرمتون برگردید ...
حال خاصیت Login Prompt مربوط به ADOConnection رو روی False قرار بدید و خاصیت Connected رو روی True تنظیم کنید ...
حال برید سراغ ADOTable و به وشیله خاصیت Connection ، اون رو با ADOConnection ارتباط بدید ، بعد در خاصیت Table Name مربوط به ADOTable ، جدول رو انتخاب کنید و بعد خاصیت Active مربوط به اون رو True کنید ...
حالا بانکتون آماده است ...
روی ADOTable دو بار کلیک کنید و توی پنجره باز شده راست کلیک کنید و گزینه Add all Fields رو بزنید ...
بعد یک کامپوننت DBGride و یک کامپوننت Data Source روی فرم قرار بدید ...
خاصیت DataSet مربوط به DataSource رو روی ADOTable تنظیم کنید و خاصیت DataSource مربوط به DBGride رو روی همون DataSource که گذاشتید قرار بدید ...
بعد باید چند تا کامپوننت Edit و یک دکمه روی فرم بزارید و توی رویداد OnClick مربوط به دکمه کد زیر رو بنویسید :
در اینجا فرض می کنیم که بانک ما فقط یک فیلد به نام Name داره ...
ADOTable1.Insert;
ADOTable1Name.Text:= Edit1.Text;
ADOTable1.Post;
در کد بالا ، با فراخوانی دستور Insert بانک اطلاعاتی در حالت آماده برای دریافت اطلاعات قرار می گیره و در خط دوم فیلد Name با متن داخل Edit1 پر می شه ...
در خط سوم هم ADOTable اطلاعات رو ثبت می کنه ...
برای ویرایش یک رکورد هم به جای دستور Insert از Edit استفاده می شه ( ADOTable1.Edit ) ...
امیدوارم به دردتون خورده باشه ...
موفق باشید ...
شما اول بانک اطلاعاتی رو توی اکسس درست کنید ...
بعد توی دلفی یک کامپوننت ADOConnection و یک کامپوننت ADOTable روی فرم بزارید ، بعد روی ADOConnection دو بار کلیک کنید و بعد توی پنجره باز شده روی دکمه Build کلیک کنید ، بعد توی این پنجره گزینه Microsoft Jet 4.0 OLE DB Provider رو انتخاب کنید و روی Next کلیک کنید ...
توی پنجره بعدی در قسمت Select or Enter Data Base Name ، بانک اطلاعاتی خودتون رو وارد کنید ، بهتره که بعد از وارد کردن بانک اطلاعاتی روی گزینه Test Connection کلیک کنید تا از صحت مسیر بانک اطلاعاتی مطمئن بشید ...
حالا OK کنید و به فرمتون برگردید ...
حال خاصیت Login Prompt مربوط به ADOConnection رو روی False قرار بدید و خاصیت Connected رو روی True تنظیم کنید ...
حال برید سراغ ADOTable و به وشیله خاصیت Connection ، اون رو با ADOConnection ارتباط بدید ، بعد در خاصیت Table Name مربوط به ADOTable ، جدول رو انتخاب کنید و بعد خاصیت Active مربوط به اون رو True کنید ...
حالا بانکتون آماده است ...
روی ADOTable دو بار کلیک کنید و توی پنجره باز شده راست کلیک کنید و گزینه Add all Fields رو بزنید ...
بعد یک کامپوننت DBGride و یک کامپوننت Data Source روی فرم قرار بدید ...
خاصیت DataSet مربوط به DataSource رو روی ADOTable تنظیم کنید و خاصیت DataSource مربوط به DBGride رو روی همون DataSource که گذاشتید قرار بدید ...
بعد باید چند تا کامپوننت Edit و یک دکمه روی فرم بزارید و توی رویداد OnClick مربوط به دکمه کد زیر رو بنویسید :
در اینجا فرض می کنیم که بانک ما فقط یک فیلد به نام Name داره ...
ADOTable1.Insert;
ADOTable1Name.Text:= Edit1.Text;
ADOTable1.Post;
در کد بالا ، با فراخوانی دستور Insert بانک اطلاعاتی در حالت آماده برای دریافت اطلاعات قرار می گیره و در خط دوم فیلد Name با متن داخل Edit1 پر می شه ...
در خط سوم هم ADOTable اطلاعات رو ثبت می کنه ...
برای ویرایش یک رکورد هم به جای دستور Insert از Edit استفاده می شه ( ADOTable1.Edit ) ...
امیدوارم به دردتون خورده باشه ...
موفق باشید ...[/QUOTE]
---------------------------------------------------------------------------------------------------------------------
با عرض سلام و تشكر بابت راهنماييتون
من كارهاي فوق رو انجام دادم و تونستم از طريق فرم دلفي، اطلاعات مورد نظرمو تو يه پايگاه داده اكسس ذخيره كنم.
حالا فرض كنيد مثلا 10 تا كامپيوتر تو 10 جاي مختلف شركت هستند كه با كابل و يه سوييچ شبكه LAN شدن.
ميخوام فايل اجرايي برنامه رو به همكارا بدم، اونا هر كدوم جداگانه فرم رو تكميل كنند و ثبت بزنن بعد اطلاعاتي كه وارد كردن بياد رو پايگاه داده اي كه رو سيستم من ذخيره شده.
بايد نوع آدرس دهي رو عوض كنم؟
ممنون ميشم راهنمايي كنين.
چرا هيچ كس جواب نميده؟
خيلي حياتيه
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول