Создание отчетов, генерация анкет

[xxbesoxx]

Сообщение от Dux

А анкеты сотрудников на нем сложно делать?

На пример что вы собирайтесь делать ? если я правильно понял ваши мысли
-- Оператор набивает в базе из приложений Delphi какой то пассажир да ?
--Вы хотите при нажатие кнопку "сохранить" что одновременно данный попадал таблицу и выходил готовые анкета-на предварительный просмотр да ?
Давайте что то придумаем чтобы "это тема" было интересно и практиковали тоже ....

[Dux]

Необходимо следующее. Есть база данных MySQL. В ней следующие данные сотрудника: ФИО, Адрес, контакты и т.п., потом есть таблица в которой находится перечень документов (название, дата выдачи, дата окончания) и есть таблица - послужной список (стаж работы - компания, должность, период).

Необходимо по нажатию кнопки "Сформировать анкету" вывести все эти данные на сотрудника в анкетной форме, желательно .pdf.

Вопрос, есть ли такая возможность в Fast Reports?

[Аватар]

450$ стандартная версия... он того стоит?

Как тебе сказать, не покупал его я. На моей периферии за 450 баксов программы не покупают. Или демку возьми, поупражняйся, или бесплатный, другой. Но он хорош

[xxbesoxx]

Сообщение от Dux

Необходимо следующее. Есть база данных MySQL. В ней следующие данные сотрудника: ФИО, Адрес, контакты и т.п.

На пример так
1)

use test;
#------------

create table Customers
(
 P_Id int NOT NULL AUTO_INCREMENT,
 LastName varchar(40) NOT NULL,
 FirstName varchar(40),
 Address varchar(40),
 City varchar(40),
 Telefon varchar(20),
 PRIMARY KEY (P_Id)
)

#----- XP - INSERT
 
DELIMITER $$
CREATE PROCEDURE  CustINSERT   ( IN   pLastName varchar(40),
                                 IN   pFirstName varchar(40),
                                 IN   pAddress varchar(40),
                                 IN   pCity varchar(40),
                                 IN   pTelefon varchar(20)
                               )
BEGIN
 INSERT INTO Customers (LastName, FirstName, Address, City, Telefon )
 VALUES (pLastName, pFirstName, pAddress, pCity, pTelefon  );  
 COMMIT;
END$$
DELIMITER ;

2) ini файл Connect.ini

[UserName]
str1=root
[Paswword]
str2=0000
[Server]
str3=localhost
[Database]
str4=test
[Port]
str5=3307

3)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBAccess, MyAccess, MemDS, Grids, DBGrids,
  //------------------- -----------------------
       IniFiles, frxClass,  StdCtrls ;
  //------------------------------------------

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    MyConnection1: TMyConnection;
    MyQuery1: TMyQuery;
    MyDataSource1: TMyDataSource;
    btnAdd: TButton;
    MyStoredProc1: TMyStoredProc;
    procedure FormCreate(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
  private
    { Private declarations }
  public
     procedure INSERTCUST;
  end;

var
  Form1: TForm1;
  // *********************************************
     Ini: TIniFile;
  //**********************************************

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.btnAddClick(Sender: TObject);
begin
  with Form2 do
  begin
    Caption := 'Добавить';
    edtLastName.Text := '';
    edtFirstName.Text := '';
    edtAddress.Text := '';
    edtCity.Text := '';
    edtTelefon.Text := '';
    ShowModal;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //   Все параметри для подклучение к MySQL  Я буду хранить в ini Файле
    Ini := TiniFile.Create(ExtractFilePath(Application.ExeName)+'\Connect.ini'); // Здесь потом можно поменять путь на  Connect.ini что оператор на заметил его и не почитал это параметри
     with MyConnection1 do
     begin
       Connected := false;
       Options.Charset := 'utf8';
       Options.UseUnicode := true;
       Username := Ini.ReadString('UserName','str1', '' );
       Password := Ini.ReadString('Paswword','str2', '');
       Server := Ini.ReadString('Server','str3', '');
       Database := Ini.ReadString('Database','str4', '');
       Port := Ini.ReadInteger('Port','str5', 3306);
       Connected := true;
     end;
    try
      with MyQuery1 do
      begin
        SQL.Clear;
        SQL.Add('SELECT * FROM Customers ORDER BY 1 ASC') ;
        Open;
      end;
    except
      ShowMessage('Невозможно подключиться к серверу MySql');
      Application.Terminate;
    end;

end;

procedure TForm1.INSERTCUST;
begin
  with MyStoredProc1 do begin
      try
        Params.Clear;
        StoredProcName:='CustINSERT';
        Prepare;
        ParamByName('pLastName').Value := Trim(Form2.edtLastName.Text);
        ParamByName('pFirstName').Value := Trim(Form2.edtFirstName.Text);
        ParamByName('pAddress').Value := Trim(Form2.edtAddress.Text);
        ParamByName('pCity').Value := Trim(Form2.edtCity.Text);
        ParamByName('pTelefon').Value := Trim(Form2.edtTelefon.Text);
        Execute;
      finally
        MyStoredProc1.Close;
        Form1.MyQuery1.Refresh;
      end;
    end;
end;

end.

[xxbesoxx]

4)

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, frxClass;

type
  TForm2 = class(TForm)
    edtLastName: TEdit;
    edtFirstName: TEdit;
    edtAddress: TEdit;
    edtCity: TEdit;
    edtTelefon: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    btnSave: TButton;
    btnClose: TButton;
    frxReport1: TfrxReport;
    procedure btnSaveClick(Sender: TObject);
  private
     procedure PrintAnketa; //--------------------
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

{ TForm2 }

procedure TForm2.btnSaveClick(Sender: TObject);
begin
  if Form2.Caption = 'Добавить' then
    begin
        Form1.INSERTCUST;
        PrintAnketa;
        Close;
    end;
end;

procedure TForm2.PrintAnketa;  // из компоненту Edit заполняю  frxReport1
 var
   PmemLastName, PmemFirstName, PmemAddress,
   PmempCity, PmempTelefon: TfrxMemoView;
begin
  //----------------------------------------------------------------
   PmemLastName := frxReport1.FindObject('memLastName') as TfrxMemoView;
   PmemFirstName:= frxReport1.FindObject('memFirstName') as TfrxMemoView;
   PmemAddress:= frxReport1.FindObject('memAddress') as TfrxMemoView;
   PmempCity := frxReport1.FindObject('mempCity') as TfrxMemoView;
   PmempTelefon := frxReport1.FindObject('mempTelefon') as TfrxMemoView;
   //---------------------------------------------------------------
   PmemLastName.Text := Trim(edtLastName.Text);
   PmemFirstName.Text := Trim(edtFirstName.Text);
   PmemAddress.Text := Trim(edtAddress.Text);
   PmempCity.Text := Trim(edtCity.Text);
   PmempTelefon.Text := Trim(edtTelefon.Text);
  //----------------------------------------------------------------
  frxReport1.ShowReport();
end;

end.

[Dux]

xxbesoxx, огромное спасибо за помощь!!! Буду разбираться!!

[xxbesoxx]

Dux Пожалуйста