ghostdz
(مبرمج جديد)
**

تاريخ الإنتساب : 18-03-2008
تاريخ الميلاد : 03-03-1974 (45 العمر)
التوقيت المحلي : 30-05-2020 في 08:58 PM
الحالة : غير متصل

ghostdz معلومات المنتدى
إنضم إلينا : 18-03-2008
آخر زيارة 28-05-2020, 10:06 AM
إجمالي المشاركات : 39 (0.01 مشاركات في اليوم الواحد | 0.09 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 0 (0 مواضيع في اليوم | 0 في المئه من اجمالي المواضيع)
فترة البقاء متصل : 1 يوم, 14 ساعات
الأعضاء المحالين: 0
Total Thanks Received: 12 (0 0.18 per day | 6572 percent of total 0.18)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 11 (0 0.17 per day | 6592 percent of total 0.17)
(Find All Thanked ThreadsFind All Thanked Posts)
  
RE: كيف التحكم في عناصر جملة SQL؟ 2
كيف التحكم في عناصر جملة SQL؟ سؤال و جواب حول دلفي
وعليكم السلام ورحمة الله وبركاته
إليك الكود التالي قم بتجريبه 
ملاحظة : عليك إعطاء كل checkbox.tag قيمة حسب الجدول aFieldName

 
[code]
unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.Grids,
  Vcl.DBGrids, Vcl.ExtCtrls, Data.Win.ADODB, Vcl.Mask, Vcl.DBCtrls;

type
  TForm2 = class(TForm)
    Query: TADOQuery;
    NameCheckBox: TCheckBox;
    BirthDayCheckBox: TCheckBox;
    MarkCheckBox: TCheckBox;
    procedure NameCheckBoxClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    aOrder: array of string;

    function GenerateSQL: string;
    procedure AddFieldToOrder(FieldName: string);
    procedure RemoveFieldFromOrder(FieldName: string);
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}


procedure TForm2.NameCheckBoxClick(Sender: TObject);
const
   aFieldNam...