-
به بزرگی 6/1 ریشتر...
شنبه 24 فروردینماه سال 1392 21:59
سلام روز سه شنبه حول و حوش 4 بعد از ظهر بودیم یک لحظه احساس کردیم زیر پام می لرزه حس بلند شدن نداشتم محل نذاشتم هنوز 15 دقیقه ای نگذشته بود تلفن زنگ خورد یک از دوستان پشت خط با یک لحن عجیب سعید کجایی؟ گفتم خونه.گفت پاشو بریم زلزله زنده اطراف شهرستان دشتی .... . خلاصه راه افتادیم با چند تا دوستان شدیم 5 نفر. نمیدونم چه...
-
24 ساعت فیلم آموزشی دلفی به زبان فارسی
یکشنبه 4 فروردینماه سال 1392 00:08
با سلام 24 ساعت فیلم آموزشی دلفی در قالب 47 درس از آقای شاهین عشایری بجنبید دانلود کنید تا از دستتون نرفته. دانلود
-
reset mysql password
یکشنبه 27 اسفندماه سال 1391 20:36
با سلام امروز قصد دارم در مورد بازیابی پسورد mysql بگم.اگه پسورد فراموش کردید چی کار کنید. ابتدا یک فایل متن ایجاد کنید با محتوای زیر UPDATE mysql.user SET Password=PASSWORD('MyNewPass') WHERE User='root'; FLUSH PRIVILEGES; برای اینکه با هم جلو بریم فایل متنی را در ریشه درایو D با نام 1 ذخیره کنید وارد محید cmd ویندوز...
-
Transparent Memo
سهشنبه 24 بهمنماه سال 1391 20:30
unit TrMemo; {$R-} interface uses Messages, Controls, StdCtrls, classes; const TMWM_SpecialInvalidate = WM_USER + 1111; type TTransparentMemo = class(TMemo) private procedure SpecialInvalidate(var Message: TMessage); message TMWM_SpecialInvalidate; procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;...
-
ساده تر کردن INsert و Update
سهشنبه 19 دیماه سال 1391 15:38
سلام !با عرض پوزش! وقتی از کاربر اطلاعاتی میگیریم مثلا یک برنامه انبار داری اول چک می کنیم اگر وجو داره که باید Update کنیم و در غیر اینصورت Insert باید بشه.در کد زیر ما هر دو حالت با هم ممزوج کردیم در صورتی که وجود نداشته باشه اینسرت میشه در غیر اینصورت Update. INSERT INTO TABLE (ID, NAMEkala,Number) VALUES (1,'CPU',...
-
Lingoes 2.9.1
دوشنبه 18 دیماه سال 1391 20:27
نسخه 2.9.1 از دیکشنری قدرمند lingoes با قابلیت ترجمه متن البته بصورت انلاین جایگزینی تقریبا خوبی برای بابیلون. دانلود
-
balloon tooltip
جمعه 8 دیماه سال 1391 13:37
یک balloon tooltib زیبا و کاربردی در دلفی یک تابع برای نمایش است که شما را از استفاده کامپوننت بی نیاز می کند! USES commctrl; procedure BalloonTip(Control: TWinControl; Icon: integer; Title: pchar; Text: PWideChar; BackCL, TextCL: TColor); const TOOLTIPS_CLASS = 'tooltips_class32'; TTS_ALWAYSTIP = $01; TTS_NOPREFIX =...
-
آموزش خصوصی!
جمعه 24 آذرماه سال 1391 19:54
با سلام یکی از دوستان در مورد آموزش خصوصی پرسیده بود خدمت دوستمون عرض کنم شما شروع کنید هر جا مشکل داشتید من همه جوره در خدمتیم.برای شروع همه میتوانید یک ایبوک آموزشی از اینترنت بدون هیچ هزینه ای تهیه کنند و مفاهیم اولیه حتما یاد بگیرید تاکیید می کنند کتاب های سطح مبتدی را انتخاب کنندو این اشتباه را تکرار نکنند که از...
-
مجموعه DXHTML
سهشنبه 30 آبانماه سال 1391 18:44
مجموعه DHTMLX که فکر کنم Chart و Grid با قابلیت بومی سازی! و نسخه استاندارد ان از اینجا بصورت رایگان قابل دریافت است. من از گرید اون برای نمایش اطلاعات ازش استفاده می کنم تقریبا شکل مناسبی داره همچنین چند استایل مختلف هم در خودش داره فقط مشکلش با راست چپ داره اونهم اینه هدرش بهم میریزه که باید اطلاعاتت برعکس بخونی!
-
رفع مشکل خطای دلفی 2010 در ویندوز 7 هنگام اجرا
جمعه 7 مهرماه سال 1391 22:25
uses Windows, Registry; procedure RemoveEmbarcaderoRadStudios2010AutoUpdate; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey( '\Software\CodeGear\BDS\7.0\AutoRun\UpdateCheck', True ) then Reg.WriteString('ProgramToRun', '') else ShowMessage('Registry entry not...
-
ریسمان در دلفی!
سهشنبه 4 مهرماه سال 1391 23:17
مقاله از آقای محمود مهری در باره Threading در دلفی دانلود
-
تغییر فونت Hint
شنبه 1 مهرماه سال 1391 21:38
type TSaHint = class(THintWindow) public constructor Create(AOwner: TComponent); override; end; var Form1: TForm1; implementation {$R *.dfm} constructor TSaHint.Create(AOwner: TComponent); begin inherited Create(AOwner); with Canvas.Font do begin Name := 'Verdana'; Size := Size + 15; Style := [fsBold, fsItalic]; end;...
-
لیست دستگاههای صدا و Capture
شنبه 1 مهرماه سال 1391 20:30
uses System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Layouts, FMX.Memo, FMX.Media; type TForm3 = class(TForm) Button1: TButton; Memo1: TMemo; Label1: TLabel; Button2: TButton; Label2: TLabel; Memo2: TMemo; procedure...
-
آیا فایل در حال استفاده است؟
شنبه 25 شهریورماه سال 1391 16:03
function IsFileInUse ( FileName : TFileName ) : Boolean ; var HFileRes : HFILE ; begin Result : = False ; if not FileExists ( FileName ) then Exit ; HFileRes : = CreateFile ( PChar ( FileName ) , GENERIC_READ or GENERIC_WRITE , 0 , nil , OPEN_EXISTING , FILE_ATTRIBUTE_NORMAL , 0 ) ; Result : = ( HFileRes =...
-
highlight آیتم های Listbox هنگام حرکت ماوس
شنبه 25 شهریورماه سال 1391 15:58
procedure TForm1 . ListBox1MouseMove ( Sender : TObject ; Shift : TShiftState ; X , Y : Integer ) ; var p : TPoint ; begin p . x : = x ; p . y : = y ; ListBox1 . ItemIndex : = ListBox1 . ItemAtPos ( P , True ) ; end ;
-
UNdo در Memo وmemoField
شنبه 25 شهریورماه سال 1391 15:53
Memo1 . Perform ( EM_UNDO , 0 , 0 ) ; تشخیص UNdo (یعنی متن تغییر کرده) ButtonUndo . Enabled : = Memo1 . Perform ( EM_CANUNDO , 0 , 0 ) ; ButtonUndo . Enabled : = Memo1 . CanUndo ; پاک کردن حافظه Undo Memo1 . Perform ( EM_EMPTYUNDOBUFFER , 0 , 0 ) ; Memo1 . ClearUndo ; // in Delphi 4 or higher
-
انتخاب همه رکوردها DBgrid
شنبه 25 شهریورماه سال 1391 15:51
برای انتخاب همه رکوردها در dbgrid از کد زیر استفاده کنید function GridSelectAll ( Grid : TDBGrid ) : Longint ; begin Result : = 0 ; Grid . SelectedRows . Clear ; with Grid . DataSource . DataSet do begin First ; DisableControls ; try while not EOF do begin Grid . SelectedRows . CurrentRowSelected : = True ; Inc (...
-
خبر کردن کاربر در حالتی کمینه بودن برنامه
شنبه 25 شهریورماه سال 1391 15:49
وقتی می خواهید موضوعی را به کاربر اطلاع بدهید و برنامه در حالت مینیمایز است(مثل پنجره های چت یاهو مسنجر) از کد زیر میتونید استفاده کنید FlashWindow(Handle, True ); // فرم فعلی FlashWindow(Application . Handle, True ); //
-
سریال برای نصب دلفی XE3
شنبه 25 شهریورماه سال 1391 12:05
سریال: MAFA-A3D7PD-FJBBAE-FACN
-
جستجو در فایل های راهنما(Help)
شنبه 25 شهریورماه سال 1391 01:00
procedure HelpSearch(sHelpFName, sSearchKey: string); var pc: PChar; begin Application.HelpFile := sHelpFName; pc := StrAlloc(Length(sSearchKey) + 1); StrPCopy(pc, sSearchKey); Application.HelpCommand(HELP_PARTIALKEY, LongInt(pc)); StrDispose(pc); end; مثال HelpSearch('DELPHI.HLP', 'colors'); HelpSearch('DELPHI.HLP',...
-
معرفی کامپوننت های سازگار با دلفی XE3
شنبه 25 شهریورماه سال 1391 00:36
با سلام در این پست قصد معرفی کامپوننت های سازگار با دلفی XE3 را دارم تا مهاجرت برای شما آسان شود. TMS Component Pack v6.5.0.0 Castalia 2012.3 Berg Soft Components QuickReport v5.05 GExperts 1.37 LMD 2012.7 تمامی محصولات شرکت Devart (MYdac,sdac,odac,pdac,..) ادامه دارد... توجه داشته باشید تما کامپوننت های معرفی شده را...
-
Update syntax
چهارشنبه 22 شهریورماه سال 1391 23:51
سلام همه می دانیم که برای ویرایش اطلاعات از دستور Update استفاده می کنم. ولی جالب اینه که این هنوز syntax اون همه نمی دانند بارها در صحبت با کاربر های مختلف فکر می کردند که فقط همزمان روی یک فیلد انجام می شود. به همین دلیل تصمیم گرفتم با یک مثال موضوع را روشن کنم. UPDATE table_name SET column_name1 = value1,...
-
اضافه ها در دلفی XE3
دوشنبه 23 مردادماه سال 1391 22:22
چه مواردی به دلفی XE3 اضافه شده است؟ اگه دوست دارید بدونید در دلفی XE3 چه چیزهایی اضافه شده است این PDF بخوانید.
-
Export اطلاعات از mysql بخ sql server
دوشنبه 23 مردادماه سال 1391 22:03
با سلام در این لینک هم قصد معرفی یک سایت خوب برای sql server دوستان! داریم و هم اموزش Export اطلاعات از mysql بخ sql server . اموزش تصویری است و نیاز به دانستن زبان بیگانه نیز نمی باشد.
-
مبانی مدل سازی برای طراحی پایگاه داده
چهارشنبه 18 مردادماه سال 1391 18:23
Normal 0 false false false EN-US X-NONE FA طراحی پایگاه داده و ایجاد نمودار ارتباط موجودیت ها ( ERD ) یکی از مهمترین بخش های چرخه حیات توسعه یک نرم افزار است که در برخی موارد از آن به عنوان مهمترین بخش نیز نام برده می شود . مدل صحیح و به هنگام ( Up To Date ) اطلاعات می تواند به عنوان مهمترین ابزار مرجع برای مدیران...
-
Full text serach in Innodb
یکشنبه 8 مردادماه سال 1391 21:47
با سلام خدمت همراهان عزیز و با آرزوی قبولی طاعات و عبادات شما همانطور که می دانید Innodb یکی از بهترین موتورهای mysql است چون Acid به خوبی پشتیبانی می کنه و بزرگترین مشکل اون تا حالا پشتیبانی نکردن Full text search است. رقیب دیگه اش Myisam است که نه Acid پشتیبانی می کنه نه transaction .البته از لحاظ سرعت عملکرد بهتری...
-
آموزش Mysql
جمعه 6 مردادماه سال 1391 00:51
با سلام و با آرزوی قبولی طاعات شما در این آموزش قصد داریم در مورد چند تابع بگیم امیدواریم بدردتون بخوریم. بدست آوردن رشته متنی(Charset) SELECT CHARSET('صابری') or SELECT COLLATION('saeed'); 3 تا تابع واسه بدست اوردن لیست کاربران SELECT USER(); SELECT SYSTEM_USER() SELECT CURRENT_USER(); use mysql; SELECT * FROM...
-
آموزش Mysql
شنبه 31 تیرماه سال 1391 14:47
با سلام بیشترین توابعی که در mysql کارایی دارد توابع کار با رشته است. قصد دارم توابع کار با رشته ها در mysql با توضیح و مثال براتون بزارم فعلا یک چندتایی.. اگه استقبال شد بقیه اش هم میزارم Normal 0 false false false EN-US X-NONE FA ASCII() معادل کد اسکی یک کاراکتر را بر می گرداند SELECT ASCII('A') BIN() معادل باینری...
-
آموزش Mysql
شنبه 31 تیرماه سال 1391 14:20
با سلام و تبریک به مناسبت فرارسیدن ماه مبارک رمضان این آموزش = Replace از اسمش معلومه برای تغییر یک حرف و یا کلمه در یک متن یا کلمه به کار می رود UPDATE TABLE SET FIELD = REPLACE(FIELD,"c","C"); البته علاوه بر فید می شود بر روی یک رشته یا ... هم اعمال کرد
-
آموزش Mysql
چهارشنبه 28 تیرماه سال 1391 22:58
با سلام آموزش امروز در مورد Create table هست به چند مثال زیر توجه کنید: CREATE TABLE test0( id INT, b VARCHAR(15)); ///////////// ایجاد فیلد جهت شماره ردیف اتوماتیک و تعیین چارست جدول و تعریف کلید اصلی CREATE TABLE test1( id INT NOT NULL AUTO_INCREMENT, b VARCHAR(15), PRIMARY KEY (`id`))ENGINE=INNODB DEFAULT...