Manarsoft معلومات المنتدى |
إنضم إلينا : |
03-01-2013 |
آخر زيارة |
23-02-2017, 11:01 AM |
إجمالي المشاركات : |
61 (0.01 مشاركات في اليوم الواحد | 0.12 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
|
اجمالي المواضيع : |
7 (0 مواضيع في اليوم | 0.07 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
|
فترة البقاء متصل : |
16 ساعات, 31 دقائق, 52 ثواني |
الأعضاء المحالين: |
0 |
|
30 (0.01 0.25 per day | 12024 percent of total 0.25)
( — )
|
|
0 (0 0 per day | 12053 percent of total 0)
|
|
|
توقيع Manarsoft |
الصقر يحلق وحيدا .. الغربان تحلق جماعات
|
|
|
|
|
بعض الأفكار البسيطة بدلفي |
20-03-2016, 01:01 PM |
5 |
|
|
بعض الأفكار البسيطة بدلفي |
منتديات دلفي للعرب التعليمية
مصادر دلفي مفتوحة تعليمية
|
|
السلام عليكم
التعامل مع التعليمات التي تقبل 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...
الكود التالي يقوم بتحويل قيمة موجودة...
|
|