Hi Dmitry.
Code You Post It OK Work !!!!
Thank You Very Much
And Now I Fix Error For Learn Script Report Easy...... Happy Happy Happy
I And My Student Thank you Dmitry Again...
And Next Version Report Dialog 2.0
-Calendar Between
-Text Exact,Like
Screen Short
001
002
003
Code Script In Report
var
ds: TfrxDataSet;
procedure CheckListBox1OnClick(Sender: TfrxComponent);
var i : integer;
begin
Memo13.lines.clear ;
for i := 0 to CheckListBox1.items.Count - 1 do
begin
if CheckListBox1.Checked[i] = true then
begin
Memo13.lines.add(checklistbox1.Items.Strings[i]);
end;
end;
end;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if
Pos(<city."CountryCode">,Memo13.Lines.Text) >= 1
Then MasterData1.Visible := True Else MasterData1.Visible :=False ;
end;
procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
if
Pos(<city."CountryCode">,Memo13.Lines.Text) >= 1
Then GroupHeader1.Visible := True Else GroupHeader1.Visible :=False ;
end;
procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
begin
if
GroupHeader1.Visible = true
Then GroupFooter1.Visible := True Else GroupFooter1.Visible :=False ;
end;
procedure BitBtn2OnClick(Sender: TfrxComponent);
Var
i : Integer ;
begin
Memo13.lines.clear ;
begin
for i := 0 to CheckListBox1.items.Count - 1 do
CheckListBox1.Checked[i] := true ;
end;
begin
for i := 0 to CheckListBox1.items.Count - 1 do
begin if CheckListBox1.Checked[i] = true then
begin
Memo13.lines.add(checklistbox1.Items.Strings[i]);
end;
end;
end;
end;
procedure BitBtn3OnClick(Sender: TfrxComponent);
Var
i : Integer ;
begin
Memo13.lines.clear ;
begin
for i := 0 to CheckListBox1.items.Count - 1 do
CheckListBox1.Checked[i] := False ;
end
end;
begin
ds := Report.GetDataset('country');
while not ds.eof do
begin
CheckListBox1.Items.Add( ds.Value('ccode') );
ds.Next;
end;
end.
My Visual Database : I Love You
Easy For Beginner Student For Me