برنامه نویس

به وبلاگ خودتان خوش آمدید.

برنامه نویس

به وبلاگ خودتان خوش آمدید.

عناوین یادداشت‌ها

  • انتخاب چندین رکورد از dbgrid در دلفی دوشنبه 28 اردیبهشت‌ماه سال 1394 15:57
    procedure TForm1.Button3Click(Sender: TObject); begin if dbgrid1.SelectedRows.Curre ntRowSelec ted then //check begin ShowMessage('This Record was selected'); dbgrid1.SelectedRows.Curre ntRowSelec ted := False; //Unselect end else begin ShowMessage('This Record was not selected'); dbgrid1.SelectedRows.Curre ntRowSelec...
  • مشاهده ip های درون شبکه یکشنبه 20 اردیبهشت‌ماه سال 1394 12:20
    کافی است این دستور را در run و یا cmd تایپ کنید : arp -a برای مشاهده منابع Share شده (فولدرها، پرینترها، و...) در شبکه این دستور را تایپ کنید : Net View در برخی موارد قبل از استفاده از فرمان Net View باید از فرمان های دیگر مثل Net Use استفاده کنید.
  • استفاده از combobox با دو ستون در دلفی (بخش ابجکت combobox) یکشنبه 6 اردیبهشت‌ماه سال 1394 12:47
    به عنوان مثال برای نگهداری یک رشته و یک ایدی از کد زیر استفاده میکنیم : ComboBox1.Items.AddObject(sItem, TObject(i)); برای نمایش بر اساس ایدی مورد نظر هم از کد زیر استفاده میکنیم : Value :=Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex])
  • دستور update در زمان شرطی بودن عملکرد (if-else) پنج‌شنبه 27 فروردین‌ماه سال 1394 13:11
    update <sometable> set field = case when <condition> then <newvalue> else field end where <condition>
  • کد دلفی حذف گروهی متون در edit ها دوشنبه 6 بهمن‌ماه سال 1393 12:45
    procedure ClearEditBoxes; var i : integer; begin for i := 0 to Form1.ComponentCount - 1 do begin if (Form1.Components[i].InheritsFrom(TEdit)) then begin (Form1.Components[i] as TEdit).Clear; end; end; // for i end;
  • دستور Update با join در Sql Server چهارشنبه 26 آذر‌ماه سال 1393 11:17
    update item_master set mf_item_number = ( some value ) from group_master as gm join Manufacturar_Master as mm ON ........ where .... ( your conditions here ) ----------------------------------- UPDATE A SET foo = B . bar FROM TableA A JOIN TableB B ON A . col1 = B . colx WHERE ...
  • استفاده ازstored procedure با پارامتر خروجی در sql server سه‌شنبه 18 آذر‌ماه سال 1393 09:36
    ALTER PROCEDURE testme @ input VARCHAR ( 10 ), @ output VARCHAR ( 20 ) output AS BEGIN IF @ input >= '1' BEGIN SET @ output = 'i am back' ; RETURN ; END END DECLARE @ get VARCHAR ( 20 ); EXEC testme '1' , @ get output SELECT @ get
  • جدا کردن بخشی از متن از اخرین "\" در sql server دوشنبه 17 آذر‌ماه سال 1393 10:35
    DECLARE @FilePath VARCHAR(50) DECLARE @FindChar VARCHAR(1) set @FilePath= 'My\Super\Long\String\With\Long\Words' set @FindChar= '\' -- Shows text before last slash SELECT LEFT(@FilePath, LEN(@FilePath) - CHARINDEX(@FindChar,REVERSE(@FilePath))) AS Before -- Shows text after last slash SELECT RIGHT(@FilePath,...
  • تغییر نام دیتابیس در sql server 2000 دوشنبه 17 آذر‌ماه سال 1393 10:08
    EXEC sp_renamedb 'oldName', 'newName' Go ALTER DATABASE oldName MODIFY FILE (NAME=N'oldName_Data', NEWNAME=N'newName_Data') GO ALTER DATABASE oldName MODIFY FILE (NAME=N'oldName_Log', NEWNAME=N'newName_Log') GO
  • تشخیص مسیر دیتابیس در sql server یکشنبه 16 آذر‌ماه سال 1393 13:00
    DECLARE @DBAddress nvarchar(4000),@Address nvarchar(4000), @Index int SELECT @DBAddress=[filename] FROM master.dbo.sysdatabases where name = (select db_name()) SET @Index=CHARINDEX('\DB\',@DBAddress) SET @Address=SUBSTRING(@DBAddress,1,@Index)
  • دستور CURSOR در Sql Server یکشنبه 16 آذر‌ماه سال 1393 12:37
    DECLARE cursor1 CURSOR FOR select field1,field2,... from table1 OPEN cursor1 FETCH NEXT from cursor1 into @field1,@field2,... WHILE @@FETCH_STATUS = 0 BEGIN دستورات مورد نظر FETCH NEXT FROM cursor1 INTO @field1,@field2,... end CLOSE cursor1 DEALLOCATE cursor1
  • تبدیل تاریخ به فرمت کاراکتر در sql server شنبه 15 آذر‌ماه سال 1393 13:36
    دستور ان به صورت زیر نوشته میشود : CONVERT( data_type(length) , expression , style ) اسکریپت زیر حالت ها مختلف تبدیل تاریخ به رشته را نمایش میدهد CONVERT(VARCHAR(19),GETDATE()) CONVERT(VARCHAR(10),GETDATE(),10) CONVERT(VARCHAR(10),GETDATE(),110) CONVERT(VARCHAR(11),GETDATE(),6) CONVERT(VARCHAR(11),GETDATE(),106)...
  • پروسیژر ایجاد فایل پشتیبان و بازیابی اطلاعات بر روی دیتابیس جدید در sql یکشنبه 9 آذر‌ماه سال 1393 09:39
    CREATE Procedure NewDoreh @Path_DB varchar(500) As Declare @CountDattabase int Declare @Name_DB nvarchar(50) Declare @Path_Data_File nvarchar(500) Declare @Path_Log_File nvarchar(500) Declare @SysName varchar(10) Declare @DFName varchar(14) Declare @LFName varchar(14) SET @SysName='databasename' select...
  • skin در دلفی xe2 پنج‌شنبه 17 مهر‌ماه سال 1393 12:54
    از قابلیتهای Delphi XE2 پوسته میباشد یعنی شما بدون نصب کامپوننتهای skin مثل vcl skin , alpha control , busines skin و ... به راحتی میتونین به برنامتون skin بدین برای این امر به ادرس در منو بروید Project/oprion و در پنجره جدید Application/Appearance را انتخاب کنید. حالا لیستی از skin پیش فرض که به همراه دلفی نصب میشود...
  • استفاده از trayicon در دلفی چهارشنبه 16 مهر‌ماه سال 1393 13:55
    میخواهم برنامه ای بنویسم که با هر رویداد جدید قرار است ما را با خبر کند یکی از روش ها استفاده از trayicon است. 1- برای این کار یک tray icon بر روی فرم میگذاریم و تایمر ان را تنظیم میکنیم 2- در رویداد onanimate دستوراتی را مینویسیم که قرار است چک کند رویداد جدید وجود دارد یا خیر و در انتها کد زیر برای باز شدن بالون...
  • فارسی شدن کیبرد برای تایپ فارسی در برنامه پنج‌شنبه 3 مهر‌ماه سال 1393 10:31
    کد زیر را در فرم اصلی قرار دهید procedure TMain.FormCreate(Sender: TObject); begin LoadKeyboardLayout('00000429', KLF_ACTIVATE); end;
  • کد استفاده Enter به جای Tab در دلفی پنج‌شنبه 3 مهر‌ماه سال 1393 10:19
    خاصیت KeyPreview از فرم رو به True تغییر بدین و فقط کد زیر رو تو رویداد KeyPress از فرم بذارین procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key= #13 then begin keybd_event(VK_TAB,1,0,0); keybd_event(VK_TAB,1,KEYEVENTF_KEYUP,0); Key:= #0; end ; end ; یا از این کد هم میتونید استفاده کنید. در...
  • رنگبندی رکوردهای dbgrid در دلفی سه‌شنبه 1 مهر‌ماه سال 1393 10:25
    کد زیر از دو رنگ در نمایش رکوردهای زوج و فرد استفاده میکند . procedure TGridForm.DBGridDrawColumnCell( Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState) ; var grid : TDBGrid; row : integer; begin grid := sender as TDBGrid; row := grid.DataSource.DataSet.RecNo; if Odd(row)...
  • رفع مشکل سیاه شدن صفحه در هنگام پخش فیلم با نرم افزار kmplayer شنبه 14 تیر‌ماه سال 1393 14:23
    مدتی بود فایل های تصویری که با KM Player اجرا میکردم مشکل داشتن یعنی صدا رو داشتم اما تصویر سیاه بود حنی زیرنویس هم نشون میداد فقط تصویر نبود . کافی رو صفحه kmplayer راست کلیک کنید و گزینه های زیر رو انتخاب کنید: Video advanced -> Video renderer and select VMR9 Renderless, EVR or EVR C/A Preferences (F2) ->Video...
  • تغییر فایل xml در installshield دوشنبه 20 آبان‌ماه سال 1392 10:01
    با فرض اینکه فایل xml به صورت زیر باشد <? xml version = "1.0" encoding = "utf-8" ?> <platformIDxmlns:xsi = "http://www.w3.org/2001/XMLSchema-instance" > <type> 35 </type> <manufacturer> 14 </manufacturer> <SerialNumber> <version> 2...
  • نصب sql 2008 r2 به صورت سایلنت دوشنبه 6 آبان‌ماه سال 1392 14:37
    مراحل نصب را تا قسمت دریافت فایل ini پیش میرویم . ConfigurationFile.ini را در کنار setup sql قرار میدهیم. یک فایل bath برای اجرا سایلنت می سازیم و کد زیر را در ان مینویسیم و در کنارفایل ini میگذاریم . در صورتی که فایل bat در مسیر کنار دو فایل دیگر نباشد باید مسیر را نیز به کد زیر اضافه نماییم . "setup.exe"...
  • استفاده از radiobutton در installshield دوشنبه 6 آبان‌ماه سال 1392 14:22
    BOOL bvCheck1,bvCheck2; begin Dlg_SdAskOptions: bvCheck1= TRUE; bvCheck2= FALSE; nResult=AskOptions (EXCLUSIVE," Select your Type Below.","install ", bvCheck1,"not install", bvCheck2); if (bvCheck1 = 1 )then goto DLG_Install; endif;
  • استفاده از فایل ini در installshield دوشنبه 6 آبان‌ماه سال 1392 14:05
    به عنوان نمونه اگر فایل ini با نام ConfigurationFile در مسیر جاری فایل نصب باشد : [general] title="1234" کد زیر را برای تغییر دادن مقادیر فایل می نویسیم : WriteProfString(SRCDIR^"my folder\\ConfigurationFile.ini", " general ", " title ",...
  • استفاده از فایل ini در دلفی دوشنبه 6 آبان‌ماه سال 1392 13:57
    به عنوان نمونه اگر فایل ini با نام ConfigurationFile به صورت زیر باشد : [general] title="1234" کد زیر را برای تغییر دادن مقادیر فایل می نویسیم : var path,value :string; IniFile : TIniFile; begin value:='1111'; path:=ExtractFilePath(Application.ExeName); try...
  • استفاده از opendialog برای انتخاب folder شنبه 27 مهر‌ماه سال 1392 10:25
    کد زیر به جای انتخاب فایل در OpenDialog، انتخاب مسیر را نشان میدهد var OpenDialog: TFileOpenDialog; SelectedFolder: string; begin OpenDialog := TFileOpenDialog.Create(nil); try OpenDialog.Options := OpenDialog.Options + [fdoPickFolders]; if not OpenDialog.Execute then Abort; SelectedFolder := OpenDialog.FileName;...
  • SetFocus بر روی RadioGroup1 در دلفی چهارشنبه 10 مهر‌ماه سال 1392 13:54
    اگر روی RadioGroup بخواهیم فاکوس کنیم میتوانیم از کد زیر استفاده نماییم : (RadioGroup1.Controls[0] as TRadioButton).SetFocus;
  • on click در dbgrid دلفی چهارشنبه 3 مهر‌ماه سال 1392 12:00
    شاید برای شما هم اتفاق افتاده باشه که نیاز به کلیک در dbgrid داشته باشید به عنوان مثال در داخل dbgrid چک باکس دارید و میخواهید با کلیک روی ان انتخاب شود . در این صورت از کد زیر میتونید استفاده کنید : procedure DbGridCellClick(Column: TColumnEh); begin if DbGrid.SelectedField.DataType=ftBoolean then // statement end;
  • پیدا کردن بزرگترین مقدار در یک رکورد از جدول sql یکشنبه 27 مرداد‌ماه سال 1392 12:49
    در مثال زیر بزرگترین تاریخ در یک ردیف را پیدا میکند . با توجه به نیاز خود کوئری را تغییر دهید . که در ان data_table نام جدول مورد نظر ، date1 ، date2 ، date3 نام فیلدها میباشد . SELECT MAX ( date_columns ) AS max_date FROM ( ( SELECT date1 AS date_columns FROM data_table ) UNION ( SELECT date2 AS date_columns FROM...
  • کد برداشتن space از وسط رشته در دلفی پنج‌شنبه 17 مرداد‌ماه سال 1392 10:31
    Edit1.Text:=StringReplace(Edit1.Text,' ','',[rfReplaceAll]);
  • سورس صحت سنجی کد ملی پنج‌شنبه 17 مرداد‌ماه سال 1392 10:26
    کد ملی شماره ای است 10 رقمی که از سمت چپ سه رقم کد شهرستان ، شش رقم بعدی کد منحصر به فرد برای فرد دارنده و رقم آخر آن هم یک رقم کنترل است که از روی 9 رقم سمت چپ بدست می آید. برای بررسی کنترل کد کافی است مجدد از روی 9 رقم سمت چپ رقم کنترل را محاسبه کنیم از آنجایی که درسیستم کد ملی معمولا قبل از کد تعدادی صفر وجود...