روشهای زیادی برای تغییر اندازه تصویر موقع ارسال (upload) کردن وجود که این هم یک روش ساده و سریع می باشد.
همچنین در این روش می توان چندین تصویر را به صورت همزمان تغییر اندازه داد.
توضیحات در داخل کدها نوشته شده است
روشهای زیادی برای تغییر اندازه تصویر موقع ارسال (upload) کردن وجود که این هم یک روش ساده و سریع می باشد.
همچنین در این روش می توان چندین تصویر را به صورت همزمان تغییر اندازه داد.
توضیحات در داخل کدها نوشته شده است
روشهای زیادی برای ارسال ایمیل و ضمیمه کردن فایل به آن وجود دارد که در برخی روشها نیاز داریم ابتدا فایل را به سرور منتقل کنیم بعد به ایمل ارسالی ضمیمه کنیم.
در این مثال بدون انتقال فایل به سرور فایل را از کنترل FileUpload به صورت مستقیم به ایمیل ارسالی ضمیمه میکنیم.
ابتدا صفحه را با کدهای زیر طراحی میکنیم :
گاهی نیاز داریم که اطلاعات خود را از دو یا چند پایگاه داده بخوانیم که این پایگاه داده ها می توانند در سرور جاری یا سرورهای متفاوت باشند.
روش کلی بدین صورت است :
.... FROM ServerName.DatabaseName.OwnerName.ObjectName ...
مثال :
SELECT * FROM Server1.Accounting.dbo.Customers WHERE CustomerID = 12345 SELECT * FROM Accounting.dbo.Customers WHERE CustomerID = 12345
تابع باز کردن تمامی Dataset ها
{ Open datasets: OpenDataSet(MyForm); } procedure OpenDataSet(FormName: TForm); var I: Integer; begin for I := FormName.ComponentCount - 1 downto 0 do if (FormName.Components[I] is TADOTable) then begin (FormName.Components[I] as TADOTable).Open; end; end;
تابع بستن تمامی Dataset ها
{Close datasets: CloseDataSet(MyForm); } procedure CloseDataSet(FormName: TForm); var I: Integer; begin for I := FormName.ComponentCount - 1 downto 0 do if (FormName.Components[I] is TADOTable) then begin (FormName.Components[I] as TADOTable).Close; end; end; {amir}
گاهی نیاز داریم که سطرهای مشخص از یک جدول را نمایش دهیم مثلا در یک لیست سطر ۲و ۵
را نمایش دهیم. برای این کار روشهای متفاوتی وجود دارد که من در اینجا یک روش ساده
و کاربردی را ارائه میکنم. ابتدا یک جدول ایجاد می کنیم تا چند مثال را روی آن
انجام دهیم . این جدول کد کارمند، نام و حقوق کارمندان را شامل میشود.
راه حل
این مسیر را طی کنید:
Tools Menu -->Options...-->Designers -->Remove Tick from Check Box for "Prevent Saving Changes..."
بعضی مواقع نیاز داریم که یک ستون منحصر به فرد چند مقدار NULL داشته باشد اما اگر یک کلید Unique روی ستونی ایجاد کنیم آنگاه تنها یک نمونه از مقدار NULL می توانیم داشته باشیم.
به عنوان مثال جدولی به نام Person داریم که مشخصات افراد را نگهداری می کند و ستونی به نام “شماره ملی” وجود دارد که Null able است؛ این ستون چندان اهمیتی در کار ما ندارد و می تواند NULL باشد ولی برای بحث جامعیت داده ها ما مجبوریم که مقدار این ستون منحصر بفرد باشد. چون مقدار شماره ملی خاص فرد است.
Filtered Index در نسخه ۲۰۰۸ معرفی شده است. که کاربرد اصلی آن بهینه کردن nonclustered index هست و مزیت های فراوانی در مقابل full-index دارد. با کمک این نوع Index ما می توانیم روی یک زیر مجموعه ی محدودی از رکورد ها شاخص را تعریف کنیم. با این کار حجم اطلاعاتی که در شاخص نگهداری می شود کمتر از نوع Full آن خواهد بود.
Filtered Index در نسخه ۲۰۰۸ معرفی شده است. که کاربرد اصلی آن بهینه کردن nonclustered index هست و مزیت های فراوانی در مقابل full-index دارد. با کمک این نوع Index ما می توانیم روی یک زیر مجموعه ی محدودی از رکورد ها شاخص را تعریف کنیم. با این کار حجم اطلاعاتی که در شاخص نگهداری می شود کمتر از نوع Full آن خواهد بود.
کافیه از ماده WHERE در انتهای تعریف یک INDEX استفاده کنیم. و شاخص را تنها روی مقادیری که not null هستند تعریف کنیم :
USE tempdb CREATE TABLE Person (National_id CHAR(10) NULL CREATE UNIQUE NONCLUSTERED INDEX multi_null ON Person (National_id) WHERE National_id IS NOT NULL; --Done INSERT INTO Person VALUES(NULL) --Done INSERT INTO Person VALUES(NULL) --Done INSERT INTO Person VALUES(1234567890) --Cannot insert duplicate key row in object 'dbo.Person' with unique index 'multi_null'. INSERT INTO Person VALUES(1234567890)
FUNCTION IsValidEmail(CONST Value: String): boolean; FUNCTION CheckAllowed(CONST s: String): boolean; VAR i: Integer; BEGIN Result:= False; FOR i:= 1 TO Length(s) DO // illegal char in s -> no valid address IF NOT (s[i] IN ['a'..'z','A'..'Z','0'..'9','_','-','.']) THEN Exit; Result:= true; END; VAR i,len: Integer; namePart, serverPart: String; BEGIN // of IsValidEmail Result:= False; i:= Pos('@', Value); IF (i=0) OR (Pos('..',Value) > 0) THEN Exit; namePart:= Copy(Value, 1, i - 1); serverPart:= Copy(Value,i+1,Length(Value)); len:=Length(serverPart); // must have dot and at least 3 places from end, 2 places from begin IF (len<4) OR (Pos('.',serverPart)=0) OR (serverPart[1]='.') OR (serverPart[len]='.') OR (serverPart[len-1]='.') THEN Exit; Result:= CheckAllowed(namePart) AND CheckAllowed(serverPart); END; //Sample call (put a button1 and a edit1) procedure TForm1.Button1Click(Sender: TObject); begin if IsValidEmail(edit1.Text) = true then Showmessage('The email is valid') else Showmessage('The email is not valid!!'); end;
procedure CreateMSAccessDB(filename : String); var DBEngine, Workspace: Variant; const dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0'; dbVersion30 = 32; begin DBEngine := CreateOleObject('DAO.DBEngine'); { DBEngine := CreateOleObject('DAO.DBEngine.35'); For DAO 3.5 } Workspace := DBEngine.Workspaces[0]; try Workspace.CreateDatabase(filename, dbLangGeneral, dbVersion30); except on EOleException do ShowMessage('Database already exists'); end; end;