Создание базы данных "Wc3 Cybersport Data Base"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
, ,mtwarning,[mbok],0);
StatusBar1.SimpleText:=Error adding new Query...;
exit;
end;
end;
NewEditDelete(1);
StatusBar1.SimpleText:=Query +Edit1.Text+ has been succesfully created...
end;
If Button2.Caption=Edit then begin
NewEditDelete(2);
statusbar1.SimpleText:=Query +edit1.Text+ has been succesfully modifyed...
end;
for x:=form1.Width+120 downto 125 do begin
DBGrid1.Left:=DbGrid1.Left-1;
Application.ProcessMessages;
end;
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
x,i:integer;
issecond : boolean;
begin
// ----- Organizing Query from selected in Listbox ----
MyQuery1.Active:=false;
MyQuery2.Active:=false;
MyQuery1.SQL.Clear;
MyQuery2.SQL.Clear;
issecond:=false;
For x:=0 to listbox1.Items.Count-1 do begin
If listbox1.Selected[x] then begin
Name:=Listbox1.Items.Strings[x];
For i:=0 to strtoint(ini.ReadString(Listbox1.Items.Strings[x],0,))-1 do
begin
if ini.ReadString(Listbox1.items.strings[x],inttostr(i+1),) = Query2 then issecond:=true;
if not ((ini.ReadString(Listbox1.items.strings[x],inttostr(i+1),) = Query2) or (issecond)) then MyQuery1.SQL.Add(ini.ReadString(Listbox1.Items.Strings[x],inttostr(i+1),));
if not ((ini.ReadString(Listbox1.items.strings[x],inttostr(i+1),) = Query2) or (issecond=false)) then MyQuery2.SQL.Add(ini.ReadString(Listbox1.Items.Strings[x],inttostr(i+1),));
end;
end;
end;
MyQuery1.Active:=true;
If not (MyQuery2.SQL.text=) then begin
MyQuery2.Active:=true;
DBGrid1.DataSource:=Datasource5;
Normalize(DbGrid1,datasource5);
end
else Normalize(DbGrid1,datasource4);
StatusBar1.SimpleText:=Completed...;
Button4.Enabled:=true;
report1.enabled:=true;
end;
procedure TForm1.RichEdit1Change(Sender: TObject);
var
s,d:string;
x:integer;
Kur:TPoint;
begin
richedit1.SelAttributes.Color:=clblack;
//------------ Making Graphic Design -------------
kur:=Richedit1.CaretPos;
d:=Richedit1.Text;
d:=Lowercase(d);
For x:=1 to length(d) do begin
If (d[x]= ) or (d[x]=()or (d[x]=#10) or (ord(d[x])=13) then begin
If (s=from) or (s=where) or (s=group)
or (s=by) or (s=having) or (s=order)
or (s=select) or (s=as) or (s=like)
or (s=update) or (s=set) or (s=sum)
or (s=avg) or (s=max) or (s=min)
or (s=count) then
begin
richedit1.SelStart:=x-length(s)-1;
richedit1.SelLength:=length(s);
richedit1.SelAttributes.Color:=clNavy;
end;
s:=;
end else s:=s+d[x];
end;
Richedit1.CaretPos:=kur;
richedit1.SelAttributes.Color:=clblack
//------------------------------------------------
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
If checkbox1.Checked then begin
Adotable1.Active:=false;
Adotable1.IndexFieldNames:=clan;
Adotable1.MasterFields:=Name;
Adotable1.Active:=true;
end
else begin
Adotable1.Active:=false;
Adotable1.IndexFieldNames:=;
Adotable1.MasterFields:=;
Adotable1.Active:=true;
end;
end;
procedure TForm1.Report1Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
s:string;
begin
if inputquery(Введите пароль,пароль,s) then
if s=asd then begin
deletequery1.Enabled:=true;
editquery1.Enabled:=true;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
form2.show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, ExtCtrls, QRCtrls, StdCtrls;
type
TForm2 = class(TForm)
QuickRep1: TQuickRep;
ColumnHeaderBand1: TQRBand;
PageFooterBand1: TQRBand;
PageHeaderBand1: TQRBand;
DetailBand1: TQRBand;
TitleBand1: TQRBand;
Button1: TButton;
SummaryBand2: TQRBand;
Title: TQRLabel;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
LabelMassive : array[0..100] of TQRLabel;
TextMassive : array[0..100] of TQRDBText;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
quickrep1.preview;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
x,y,i:integer;
begin
Title.Caption:=Form1.Name;
// Buildind Report
Form1.MyQuery1.First;
for x:=0 to Form1.DBGrid1.Columns.Count-1 do begin
LabelMassive[x]:=TQRLabel.Create(form2);
LabelMassive[x].Parent:=Columnheaderband1;
LabelMassive[x].Font.Style:=[fsbold];
LabelMassive[x].Caption:=Form1.DBGrid1.Columns[x].FieldName;
LabelMassive[x].Top:=trunc(columnheaderband1.Height/2);
labelmassive[x].AutoSize:=false;
labelmassive[x].Width:=Form1.DBGrid1.Columns[x].Width;
// labelmassive[x].Frame.DrawRight:=true;
0thenLabelMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))+LabelMassive[x-1].Left+labelmassive[x-1].width-LabelMassive[x].Width">if x>0 then LabelMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))+LabelMassive[x-1].Left+labelmassive[x-1].width-LabelMassive[x].Width
else LabelMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))-LabelMassive[x].Width;
LabelMassive[x].Show;
end;
for x:=0 to Form1.DBGrid1.Columns.Count-1 do begin
TextMassive[x]:=TQRDBtext.Create(form2);
TextMassive[x].Parent:=Detailband1;
TextMassive[x].DataSet:=Form1.MyQuery1;
TextMassive[x].DataField:=Form1.DBGrid1.Columns[x].FieldName;
TextMassive[x].Top:=trunc(detailband1.Height/2);
Textmassive[x].AutoSize:=false;
Textmassive[x].Width:=Form1.DBGrid1.Columns[x].Width;
// textmassive[x].Frame.DrawRight:=true;
0thentextMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))+textMassive[x-1].Left+textmassive[x-1].width-textMassive[x].Width">if x>0 then textMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))+textMassive[x-1].Left+textmassive[x-1].width-textMassive[x].Width
else textMassive[x].Left:=trunc(quickrep1.Width/(Form1.DBGrid1.Columns.Count+1))-textMassive[x].Width;
textMassive[x].Show;
end;
end;
procedure TForm2.Button3Click(Sender: TObject);
var
x:integer;
begin
for x:=0 to Form1.DBGrid1.Columns.Count-1 do begin
labelmassive[x].Free;
textmassive[x].Free;
end;
form2.hide;
end;