20-03-2016, 01:01 PM
السلام عليكم
التعامل مع التعليمات التي تقبل True أو False
التعامل مع التعليمات التي تقبل True أو False
كود :
//Traditional code
if CheckBox1.Checked then
Panel1.Visible := True else
Panel1.Visible := False;
// Best code
Panel1.Visible := CheckBox1.Checked;
حذف كافة السجلات من قاعدة بيانات
// Normal Code
Table1.Close();
Table1.EmptyTable();
// Best Code using SQL
DELETE FROM Table1
...
إرجاع قيمة متغير SQL
الكثير يبحث عن كيفية إرجاع قيمة لكود SQL
الطريقة:
function TmyABSDB._sqlSelectSum(queryName: TABSQuery; tableName: string; fieldName: string): Real;
begin
queryName.Close();
queryName.SQL.Clear();
queryName.SQL.Text := 'SELECT SUM(' + fieldName + ') FROM ' + tableName;
queryName.Active := True;
Result := queryName.Fields[0].AsFloat;
_sqlOpen(queryName, 'SELECT * FROM ' + tableName); // Refresh table
end;
الاستعمال:
Edit1.Text := FloatToStr(_sqlSelectSum()ABSQuery1, 'AchatTable', 'Montant');
يمكنك إستبدال SELECT SUM بما يليق بك: AVG, COUNNT...
الكود التالي يقوم بتحويل قيمة موجودة داخل Edit إلى أسم شخص حسب المتعارف عليه عالميا
function TmyABSDB._StrToName(varName: string): string_;
var fname, lname: string;
begin
varName := _ExtractStr(varName);
lname := AnsiLeftStr (varName, pos(' ', varName)-1); {Extract FirstName}
lname := Trim(UpperCase(lname));
fname := AnsiRightStr(varName, length(varName) - pos(' ', varName)); {Extract LastName}
fname := Trim(_UpperFirstChar(fname));
Result := lname + ' ' + fname;
end;
الاستعمال:
Edit1.Text := _StrToName(Edit1.Text);
مثلا: john smith يصبح JOHN Smith مع مراعاة أن يكون اللقب قبل الاسم
ملاحظة: لقد قمت بحذف دالة تقوم باستبعاد الارقام والفواصل والنقاط
للأسف لم أستطع التعامل جيدا مع محرر النصوص الخاص بالمنتدى فيما يخص الاكواد والتنسيق