تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




صفحه 18 از 54 اولاول ... 814151617181920212228 ... آخرآخر
نمايش نتايج 171 به 180 از 536

نام تاپيک: همه چيز در مورد Database ها

  1. #171
    در آغاز فعالیت
    تاريخ عضويت
    Oct 2006
    پست ها
    11

    پيش فرض چطوری DBGrid1 را فیلتر کنم

    بعد از جستجو و مشخص کردن , چطوری DBGrid1 را فیتترکنم که فقط رکوردهای جستجو شده را نشان بدهد ؟

  2. #172
    در آغاز فعالیت
    تاريخ عضويت
    Oct 2006
    پست ها
    11

    پيش فرض سورس برنامه دفترچه تلفن من

    با سلام
    من یک دفترچه تلفن با 6 فیلد نوشته ام


    بعد از ساخت یک تیبل با 6 فیلد با پارادوکس و ذخیره کردن ان و ایجاد کمپونتاای زیر بر روی یک فرم


    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button1
    Label1 Label2 Label3 Label4 Label5 Label6
    DBEdit1 DBEdit2 DBEdit3 DBEdit4 DBEdit5 DBEdit6


    unit Unit1;


    interface

    uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, StdCtrls, Mask, Menus;

    type
    TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;

    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    var
    Form1: TForm1;
    s:string ;
    sos:tlocateoptions;
    implementation
    {$R *.DFM}
    procedure TForm1.Button1Click(Sender: TObject);

    begin
    s:= inputbox('what','Name,'');
    If s = '' then exit ;
    If Table1.IsEmpty then messagebox(0,pchar('bank is empty'),'alert',0);
    sos:=[loPartialKey]+[loCaseInsensitive] ;
    If not Table1.Locate(ss,s,sos) then messagebox(0,pchar('not found'),'alert',0);
    end;
    end.


    مشکلی دارام اینست موقعیکه با دستور بالا جستجو می کنم فقط یک رکورد را نشان می دهد و رکورد بعدی را نشان نمی دهد چکار کنم ؟
    بعد از جستجو و مشخص کردن , چطوری دبی گرید را فیلترکنم که فقط رکوردهای جستجو شده را نشان بدهد ؟

  3. #173
    داره خودمونی میشه
    تاريخ عضويت
    Sep 2006
    پست ها
    27

    پيش فرض

    بهترین راه برایbackup گرفتن از بانک SQL Server در داخل برنامه چیه؟

  4. #174
    حـــــرفـه ای مرد مباح's Avatar
    تاريخ عضويت
    Dec 2005
    محل سكونت
    روي ميخ
    پست ها
    2,143

    پيش فرض

    نقل قول نوشته شده توسط teeiq
    بعد از جستجو و مشخص کردن , چطوری DBGrid1 را فیتترکنم که فقط رکوردهای جستجو شده را نشان بدهد ؟
    دوست عزيز.
    در صفحات اول اين موضوع كامل توضيح داده شده.
    بايد از فرمان Filter استفاده كني.
    پستهاي صفحات اول رو مطالعه كن.

  5. #175
    حـــــرفـه ای مرد مباح's Avatar
    تاريخ عضويت
    Dec 2005
    محل سكونت
    روي ميخ
    پست ها
    2,143

    پيش فرض

    نقل قول نوشته شده توسط amirtak2007
    بهترین راه برایbackup گرفتن از بانک SQL Server در داخل برنامه چیه؟
    توي تاپيك ديگه اي اين صحبت انجام ميشود.
    به نظر من بهترين راه كپي فايل هست.
    ولي توي تاپيك ديگه كاملا تخصصي دربارش بحث شده.
    موفق باشي.

  6. #176
    اگه نباشه جاش خالی می مونه amin a.^2's Avatar
    تاريخ عضويت
    Aug 2006
    محل سكونت
    یه جایی همین دورو ورا
    پست ها
    358

    پيش فرض

    نقل قول نوشته شده توسط مرد مباح
    چشم رفيق.
    در قسمت چپ دلفي يك فرم قرار دارد كه تمام ويژگي هاي يك كامپوننت رو كه انتخاب شده نشون ميده.
    خود اين بخش دو تا تب داره.
    1. Property
    2. Events

    در بخش 1 براي كامپوننت تيبل يك عنوان به نام Tablename وجود داره كه توي اون بايد اسم ديتابيسي كه درست كردي رو معرفي كني. (با آدرس)
    اگه ديتابيست كنار فايل EXE باشه فقط اسم ديتابيست رو بزار.
    موفق باشي.
    با سلام به مرد مباح عزیز
    واقعاً متاسفم که به خاطر چیز به این سادگی این قدر موضوع را کش دادم دلیلش هم این بود که من property
    را با نامobject ispector می شناسم
    از این به بعد باید برم و نام های قسمت های مختلف را حفظ کنم تا این قدر بقیه را کلافه نکنم
    و مرد مباح واقعاً بزرگ منشی که با این همه خر بازی هیچ چیزی به من نگفتی اما و یک امای بزرگ
    آن هم اینه که با اینکه نام فایل دیتا بیس را تو خاصیت table nameوارد کردم و فابل بانک اطلاعاتی
    هم در کنار فایل exe
    هست اما بازم در tree viewجلوی alliasعلامت سوال هست وفیلد ها وارد table نشده فکر کنم
    اصلاً این کارا به من نیومده بازم می گم خیلی بزرگ منشید

  7. #177
    در آغاز فعالیت
    تاريخ عضويت
    Oct 2006
    پست ها
    11

    پيش فرض فیلتر کردن

    table1.filter := 'datefield = ''../../..'' and number = YourNo
    سلام
    از دستور بالا چطوری برای فیلتر کردن مثلا برای سه رقم اول تلفن هایی که 446 هستند استفاده کنم ؟
    با تشکر

  8. #178
    آخر فروم باز mahdi bg's Avatar
    تاريخ عضويت
    May 2006
    محل سكونت
    مشهد
    پست ها
    1,543

    پيش فرض

    سلام

    teeiq عزيز

    نقل قول نوشته شده توسط teeiq
    با سلام
    من یک دفترچه تلفن با 6 فیلد نوشته ام


    بعد از ساخت یک تیبل با 6 فیلد با پارادوکس و ذخیره کردن ان و ایجاد کمپونتاای زیر بر روی یک فرم


    procedure TForm1.Button1Click(Sender: TObject);

    begin
    s:= inputbox('what','Name,'');
    If s = '' then exit ;
    If Table1.IsEmpty then messagebox(0,pchar('bank is empty'),'alert',0);
    sos:=[loPartialKey]+[loCaseInsensitive] ;
    If not Table1.Locate(ss,s,sos) then messagebox(0,pchar('not found'),'alert',0);
    end;
    end.


    مشکلی دارام اینست موقعیکه با دستور بالا جستجو می کنم فقط یک رکورد را نشان می دهد و رکورد بعدی را نشان نمی دهد چکار کنم ؟
    بعد از جستجو و مشخص کردن , چطوری دبی گرید را فیلترکنم که فقط رکوردهای جستجو شده را نشان بدهد ؟
    بهتر به جای Locate از Filter استفاده کنی
    توی پست های قبلی مرد مباح خوب توضیح دادن

    به نظر من بهتر به جای Table1.IsEmpty از Table1.RecordCount استفاده کنی
    خیلی بهتره(تعداد رکورد ها رو بعد از فیاتر نشون می ده)

  9. #179
    حـــــرفـه ای مرد مباح's Avatar
    تاريخ عضويت
    Dec 2005
    محل سكونت
    روي ميخ
    پست ها
    2,143

    پيش فرض

    نقل قول نوشته شده توسط amin a.^2
    یک امای بزرگ آن هم اینه که با اینکه نام فایل دیتا بیس را تو خاصیت table nameوارد کردم و فابل بانک اطلاعاتی
    هم در کنار فایل exe
    هست اما بازم در tree viewجلوی alliasعلامت سوال هست وفیلد ها وارد table نشده فکر کنم
    اصلاً این کارا به من نیومده بازم می گم خیلی بزرگ منشید

    allias چيه ؟؟؟
    شما بعد از اين كار فقط كافيه كه يك ديتاسورس كنار تيبل بزاري و بعدش يك DBGrid و اين سه رو به هم لينك كني.
    براي امتحان هم بايد table/active رو ترو كني.
    امتحان كن و خبرشو بده.
    ممنون.

  10. #180
    حـــــرفـه ای مرد مباح's Avatar
    تاريخ عضويت
    Dec 2005
    محل سكونت
    روي ميخ
    پست ها
    2,143

    پيش فرض

    نقل قول نوشته شده توسط teeiq
    table1.filter := 'datefield = ''../../..'' and number = YourNo
    سلام
    از دستور بالا چطوری برای فیلتر کردن مثلا برای سه رقم اول تلفن هایی که 446 هستند استفاده کنم ؟
    با تشکر
    سلام.
    2تا شرط داره.
    1. بايد جنس فيلد YourNo از جنس كاراكتر باشه و نه عدد.
    2. بايد از علامت * انتهاي عدد استفاده كني مثل زير :
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    Last edited by مرد مباح; 03-10-2006 at 20:16.

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •