Визуальный построитель запросов на извлечение

TForm1.UpdateSelectedFields;i, count: Byte;:= ;:= 0;CheckBox_AllFields.Checked then begin:= *;i := 0 to 4 do begin_Fields.Checked[i] := TRUE;CheckListBox_GroupBy.Items.IndexOf(CheckListBox_Fields.Items[i]) = -1 then begin_GroupBy.Items.Add(CheckListBox_Fields.Items[i]);;CheckListBox_OrderBy.Items.IndexOf(CheckListBox_Fields.Items[i])

Визуальный построитель запросов на извлечение

Дипломная работа

Компьютеры, программирование

Другие дипломы по предмету

Компьютеры, программирование

Сдать работу со 100% гаранией
= Where + Logics + ' ' + ListBox_Where.Items[i];;else begin:= '';;;

TForm1.UpdateQuerry;;;;;;;;

CheckBox_Distinct.Checked then Distinct := 'DISTINCT 'Distinct := '';

_Querry.Text := 'SELECT ' + Distinct + SelectedFields + SelectedTables + Where + SelectedGroups + OrderBy + Into;;

TForm1.ComboBox_Where2Change(Sender: TObject);ComboBox_Where2.ItemIndex = 9 then begin_Where3.Text := '';_Where3.Enabled := FALSE;else begin_Where3.Enabled := TRUE;;;

 

procedure TForm1.SpeedButton_NewConditionClick(Sender: TObject);S, S1, S2: String;: Integer;(Length(ComboBox_Where1.Text) > 0) AND

(Length(ComboBox_Where3.Text) > 0) then begin(TryStrToInt(ComboBox_Where1.Text, n)) OR

(ComboBox_Where1.ItemIndex >= 0) then begin:= ComboBox_Where1.Text;else begin:= '''' + ComboBox_Where1.Text + '''';;(TryStrToInt(ComboBox_Where3.Text, n)) OR

(ComboBox_Where3.ItemIndex >= 0) then begin:= ComboBox_Where3.Text;else begin:= '''' + ComboBox_Where3.Text + '''';;:= S1 + ComboBox_Where2.Text + S2;ListBox_Where.Items.IndexOf(S) = -1 then begin_Where.AddItem(S, nil);ListBox_Where.Items.Count > 1 then begin_Logics.Items.Add('И');;;;;;

 

 

procedure TForm1.SpeedButton_DeleteConditionClick(Sender: TObject);ListBox_Where.ItemIndex <> -1 then beginListBox_Where.ItemIndex = ListBox_Where.Items.Count-1 then begin_Logics.Items.Delete(ListBox_Where.ItemIndex-1);else begin_Logics.Items.Delete(ListBox_Where.ItemIndex);;_Where.Items.Delete(ListBox_Where.ItemIndex);;;;

TForm1.SpeedButton_ANDClick(Sender: TObject);(ListBox_Where.ItemIndex <> -1) AND

(ListBox_Where.ItemIndex <> ListBox_Where.Items.Count-1) then begin_Logics.Items[ListBox_Where.ItemIndex] := 'И';;;;

TForm1.SpeedButton_ORClick(Sender: TObject);(ListBox_Where.ItemIndex <> -1) AND

(ListBox_Where.ItemIndex <> ListBox_Where.Items.Count-1) then begin_Logics.Items[ListBox_Where.ItemIndex] := 'ИЛИ';;;;TForm1.SpeedButton_AggClick(Sender: TObject);ComboBox_Agg.ItemIndex <> -1 then begin_Having.Text := Memo_Having.Text + ComboBox_Agg.Text;;;

TForm1.CheckListBox_TablesClickCheck(Sender: TObject);;;

TForm1.CheckBox_DistinctClick(Sender: TObject);;;

TForm1.CheckListBox_FieldsClickCheck(Sender: TObject);;;

TForm1.CheckBox_AllFieldsClick(Sender: TObject);;;

TForm1.CheckListBox_GroupByClick(Sender: TObject);;;

TForm1.Memo_HavingChange(Sender: TObject);;;

TForm1.CheckListBox_OrderByClickCheck(Sender: TObject);;;

TForm1.RadioGroup_OrderByClick(Sender: TObject);;;

TForm1.RadioGroup_IntoClick(Sender: TObject);;;

TForm1.Memo_WhereChange(Sender: TObject);;;

.

Похожие работы

<< < 1 2 3