Визуальный построитель запросов на извлечение
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ount-1 do begini > 0 then beginListBox_Logics.Items[i-1] = 'И' then begin:= ' AND';else begin:= ' OR';;;:= 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 -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);;;
.