برنامه نویس

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

برنامه نویس

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

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

  • ایجاد tile در devexpress کامپوننت دلفی چهارشنبه 10 مرداد‌ماه سال 1403 13:31
    و ایجاد کاشی در زمان اجرا devexpress کامپوننت دلفی و ایجاد کد رنگ رندوم procedure TDesktopDemoMainForm.Button1Click(Sender: TObject); var AItem: TdxTileControlItem; sizeItem:integer; begin AItem:= dxTileControl1.items.add; with AItem do begin IsLarge := True; AItem.Name:='a'+inttostr(random(4000));...
  • Delphi/Lazarus: Round Decimal Numbers up, down and normally دوشنبه 25 اردیبهشت‌ماه سال 1402 13:11
    Round: normal, convergent rounding (Banker's Rule) Trunc: crops decimal places (=rounding down) Ceil: rounding up (contained in Math) Floor: rounding down (contained in Math) Int: makes an integer value from a decimal number (=rounding down) Fra c: crops all before the decimal places/replaces the integer part of the...
  • Delphi custom TTreeNode یکشنبه 4 دی‌ماه سال 1401 16:14
    برای داشتن ایتم های اضافی در درخت دلفی میتوان با نوشتن کد زیر ان را شخصی سازی کرد type TCustomTreeNode = class (TTreeNode) protected procedure Assign (Source: TPersistent) ; override ; public Comment: string ; end ; procedure TCustomTreeNode . Assign (Source: TPersistent) ; begin if Source is TCustomTreeNode then...
  • نمایش دیتل در کنار هدر در کنارهم در sql server دوشنبه 31 مرداد‌ماه سال 1401 10:00
    برای اینکه جزییات یا ردیف های جدول دیتیل به صورت ستون در جدول هدر نمایش داده شوند از کد زیر به عنوان نمونه میتوانید استفاده کنید CREATE PROCEDURE OrderExample AS CREATE TABLE #OrdersTable( OrderNo int, OrderDate date, CustomerID int, TotalItems int, TotalAmount decimal(10,2) ) INSERT INTO #OrdersTable VALUES(101,...
  • غیرفعال کردن چک کلید خارجی در mysql دوشنبه 16 اسفند‌ماه سال 1400 10:12
    اگر در زمان truncate جدول با خطای زیر مواجه شدید .....Error Code: 1833. Cannot change column '....' : used in a foreign key constraint برای رفع این خطا میتوانید چک کردن کلید غیرفعال کنید و بعد از اتمام کار فعال کنید SET FOREIGN_KEY_CHECKS = 0 ; SET GLOBAL FOREIGN_KEY_CHECKS = 0 ; /* DO WHAT YOU NEED HERE */ SET...
  • پیدا کردن ایندکس های بدون استفاده یا Unused Index چهارشنبه 28 مهر‌ماه سال 1400 12:28
    ایندکسی که مورد استفاده قرار نمی گیرد دارای هزینه نگهداری اند. با اجرای دستور زیر ایندکس های اضافه در دیتابیس خودتون میتونید پیدا کنید و دستور حذف هم در اخر هر کدام برای راحتی کار شما قرار داده شده است . توجه : اگر برای آزمایش کوئری پایین ، یک ایندکس را در همین لحظه تعریف کردید و سپس کوئری را روی پایگاه داده بلافاصله...
  • نمایش تعداد رکوردهای کل جداول در دیتابیس sql یکشنبه 4 مهر‌ماه سال 1400 11:13
    برای نمایش تعداد رکوردهای کل جداول در دیتابیس sql میتوانید از دستور زیر استفاده نمایید SELECT SCHEMA_NAME(t.[schema_id]) AS [table_schema] ,OBJECT_NAME(p.[object_id]) AS [table_name] , SUM (p.[ rows ]) AS [row_count] FROM [sys].[partitions] p INNER JOIN [sys].[tables] t ON p.[object_id] = t.[object_id] WHERE...
  • کم کردن حجم خروجی فایل exe دلفی پنج‌شنبه 23 مرداد‌ماه سال 1399 18:36
    کم کردن حجم خروجی فایل exe دلفی در ورژن های دلفی بالا xe 5 : Project-->Option-->Delphi Compiler-->Linking-->Debug Information این تیک اگر true هست false کنید بعد کامپایل بگیرید حجم برنامه تقریبا نصف میشه این تیک چیز مهمی نیست فقط راهنماهای دلفی درون برنامه میگذاره که تاثیری در برنامه نداره
  • پارس کردن ارایه جیسون در دلفی دوشنبه 20 مرداد‌ماه سال 1399 13:50
    برای پارس کردن ارایه در دلفی که نام ندارد از روش زیر میشود استفاده کرد program Project1 ; { $APPTYPE CONSOLE } { $R *. res } uses System . SysUtils , dbxjson ; const JSON_DATA = '{"ArrayData":[' + '{"DAT_INCL":"07/03/2012 17:33:03", "NUM_ORDE":1,"NUM_ATND":1,...
  • تاریخ شروع و پایان هفته در sql server شنبه 27 اردیبهشت‌ماه سال 1399 16:02
    برای به دست اوردن هفته میلادی از توابع زیر میتونید استفاده کنید و برای پیدا کردن هفته شمسی یک روز از این تاریخ کم کنید SELECT DATEADD(wk, -1, DATEADD(DAY, 1-DATEPART(WEEKDAY, GETDATE()), DATEDIFF(dd, 0, GETDATE()))) --first day previous week SELECT DATEADD(wk, 0, DATEADD(DAY, 1-DATEPART(WEEKDAY, GETDATE()),...
  • نمایش اعداد جامانده در یک ستون از جدول دیتابیس sql دوشنبه 8 مهر‌ماه سال 1398 10:40
    برای نمایش اعدادی که در یک بازه خاص وجود ندارند یا به عبارتی فضای خالی بین اعداد را نشان دهد از کد زیر استفاده نمایید ;With CTERange As ( select (select isnull(max(ArchiveID)+1,1) from tblArchives where ArchiveID < md.ArchiveID) as [from], md.ArchiveID - 1 as [to] from tblArchives md where md.ArchiveID != 1 and not...
  • استفاده از messageBox به جای messageDlg در دلفی یکشنبه 31 شهریور‌ماه سال 1398 10:08
    استفاده از messageBox به جای messageDlg در دلفی این امکان را میدهد که تعیین نمایید کدام دکمه فعال باشد . به عنوان مثال برای فعال بودن دکمه no از کد زیر استفاده میکنیم if MessageBox(0, 'Message...', 'MessageBox caption', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_TASKMODAL) = IDYES then
  • ایجاد عدد رندم در sql پنج‌شنبه 28 شهریور‌ماه سال 1398 13:21
    ایجاد عدد رندم 12 رقم ی در sql از کد زیر استفاده نمایید convert ( numeric ( 12 , 0 ), rand () * 999999999999 )
  • عدم تغییر رنگ یک کنترل خاص بعد از دادن استایل دلفی چهارشنبه 27 شهریور‌ماه سال 1398 13:57
    بعد از دادن استایل در دلفی ، تمام کنترل ها به رنگ و تم انتخابی تغییر میکنند . برای اینکه یکسری از کنترل ها رو رنگ دلخواه بگذارید از تابع زیر استفاده کنید procedure DisableVclStyles(Control : TControl;const ClassToIgnore:string); var i : Integer; begin if Control=nil then Exit; Control.StyleElements:=[]; if not...
  • تغییر scroll پنل در زمان runtime شنبه 22 تیر‌ماه سال 1398 15:05
    در صورت ایجاد ابجکت ها در زمان اجرا در داخل اسکرول باکس پرش به وجود می اید میتوان با گذاشتن یک پنل و یک اسکرول بار روی فرم و نوشتن کد زیر برای اسکرول این کار را شبیه سازی نمایید . همچنین یک متغیر ایکس سراسری تعریف و در زمان ایجاد فرم برابر با صفر گذاشته شود . procedure TForm1.ScrollBar1Scroll(Sender: TObject;...
  • upload file multipart in delphi شنبه 22 تیر‌ماه سال 1398 09:46
    روی فرم دو تا کامپوننت زیر را گذاشته و کد زیر را برای ان بنویسید RESTClient1 و RESTRequest1 try RESTClient1.BaseURL:='http://test.ir:3000/customer/sendFileToCustomer'; RESTRequest1.AddFile('file','d:/test.png',ctMULTIPART_FORM_DATA); RESTRequest1.AddBody('', ctMULTIPART_FORM_DATA);...
  • جستجو یک نام در پراسیجرها و توابع دیتابیس sql پنج‌شنبه 9 اسفند‌ماه سال 1397 11:01
    جستجو یک نام در پراسیجرها و توابع دیتابیس sql SELECT [Scehma]=schema_name(o.schema_id), o.Name, o.type FROM sys.sql_modules m INNER JOIN sys.objects o ON o.object_id = m.object_id WHERE m.definition like '%name%' GO جستجو در mysql SELECT * FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_DEFINITION LIKE...
  • پرش فیلد identity به 1000 بعد از هر restart دیتابیس شنبه 5 آبان‌ماه سال 1397 12:02
    SQL Server identity values jump by 1000 when it is restarted برای این که این اتفاق نیافتد کافی است مراحل زیر را طی کنید : Open "SQL Server Configuration Manager" Click "SQL Server Services" on the left pane Right-click on your SQL Server instance name on the right pane ->Default: SQL...
  • رفع خطا زمان دیباگ در دلفی 7 چهارشنبه 2 آبان‌ماه سال 1397 08:53
    اگر در زمان کامپایل با این خطا مواجه شدید project raised exception class eoleexception with message مراحل زیر را دنبال کنید : Tools > Debugger Options > Language Exceptions و بعد گزینه add را بزنید " EOleException " را اضافه نمایید
  • فیلترگذاری بر روی dbgrideh دلفی یکشنبه 8 مهر‌ماه سال 1397 12:26
    برای فیلتر گذاری روی dbgrideh کافی تنظیمات زیر انجام بدید uses EhLibMTE; MemTableEh1.Filtered:=true; DBGridEh1.STFilter.Local:=true; DBGridEh1.STFilter.InstantApply:=true; DBGridEh1.STFilter.Visible:=true;
  • مرتب سازی dbgrideh در دلفی یکشنبه 8 مهر‌ماه سال 1397 09:47
    نحوه مرتب سازی dbgrideh در دلفی procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh); var i,j:Integer; sort_str: String ; begin for j:= 0 to Column.Grid.Columns.Count- 1 do if (Column.Grid.Columns[j].Title.SortMarker <> smNoneEh) and (Column.Grid.Columns[j]<>Column)...
  • نمایش ای پی سیستم در دلفی چهارشنبه 7 شهریور‌ماه سال 1397 13:35
    نمایش ای پی سیستم در دلفی uses winsock; {$R *.dfm} function LocalIP: string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: array [0..63] of Ansichar; i: Integer; GInitData: TWSADATA; begin WSAStartup($101, GInitData); Result := ''; GetHostName(Buffer,...
  • Select top 10 records for each category یکشنبه 4 شهریور‌ماه سال 1397 09:57
    انتخاب ده رکورد اول از هر ایتم خاص در sql SELECT rs . Field1 , rs . Field2 FROM ( SELECT Field1 , Field2 , ROW_NUMBER () OVER ( Partition BY Section ORDER BY RankCriteria DESC ) AS Rank FROM table ) rs WHERE Rank <= 10
  • ایجاد لینک مستقیم از دراپ باکس یکشنبه 27 خرداد‌ماه سال 1397 11:12
    بایدعبارت https://dl.dropboxusercontent.com را جایگزین https://www.dropbox.com کنیم . در مابقی ادرس تغییری ایجاد نمیشود
  • نصب کامپوننت socket در دلفی یکشنبه 23 اردیبهشت‌ماه سال 1397 11:16
    The socket components are not installed by default. To use the socket components, you must install the dclsockets<.bpl> package. To install the socket components: Select Component > Install Packages . In the Install Packages dialog box, click Add . In the Add Design Package dialog, browse to C:\Program Files...
  • نمایش عکس از روی url در دلفی پنج‌شنبه 24 اسفند‌ماه سال 1396 14:51
    برای نمایش عکس از روی url کد زیر استفاده می نماییم procedure TForm1.Button1Click(Sender: TObject); var MS : TMemoryStream; begin MS := TMemoryStream.Create; try IdHTTP1.get('http://image1.jpg',MS); ms.Position:=0; Image1.Picture.LoadFromStream(MS); finally FreeAndNil(MS); end; end;
  • نمایش ارایه جیسون در دلفی سه‌شنبه 3 بهمن‌ماه سال 1396 15:38
    نمایش ارایه جیسون در دلفی uses DBXJSON , System . SysUtils ; Const StrJson = '[' + '{"EventType":49,"Code":"234","EventDate":"20050202", "Result":1},' + '{"EventType":48,"Code":"0120","EventDate":"20130201",...
  • تولید یک کد ترکیبی در sql پنج‌شنبه 28 دی‌ماه سال 1396 10:17
    تولید یک کد ترکیبی از کاراکترهای کوچک و بزرگ و اعداد در اس کیو ال سرور که می تواند به عنوان مثال برای کد هدیه استفاده شود DECLARE @ new_id VARCHAR ( 200 ) SELECT @ new_id = NEWID () SELECT CAST (( ABS ( CHECKSUM (@ new_id ))% 10 ) AS VARCHAR ( 1 )) + CHAR ( ASCII ( 'a' )+( ABS ( CHECKSUM (@ new_id ))% 25 )) + CHAR (...
  • post url در دلفی از طریق http و دریافت به صورت json سه‌شنبه 26 دی‌ماه سال 1396 10:01
    post url در دلفی از طریق http function PostExample : string ; var lHTTP : TIdHTTP ; lParamList : TStringList ; begin lParamList := TStringList . Create ; lParamList . Add ( 'id=1' ); lHTTP := TIdHTTP . Create ; try Result := lHTTP . Post ( 'http://blahblahblah...' , lParamList ); finally lHTTP . Free ; lParamList ....
  • نمایش ایکون برنامه در taskbar زمان hide شدن فرم اصلی دلفی چهارشنبه 20 دی‌ماه سال 1396 09:03
    نمایش ایکون برنامه در taskbar زمان hide شدن فرم اصلی دلفی در dpr پروژه این مقدار رو به این شکل تغییر بدید. Application.MainFormOnTaskbar := false;