u_form_report.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_Form_Report;

interface

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

type
  TF_Form_Report = class(TForm)
    label1: TLabel;
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    Bit_Preview: TBitBtn;
    Bit_new: TBitBtn;
    Bit_edit: TBitBtn;
    Bit_Del: TBitBtn;
    Bit_Pint: TBitBtn;
    Bit_copy: TBitBtn;
    procedure Bit_copyClick(Sender: TObject);
    procedure Bit_PintClick(Sender: TObject);
    procedure Bit_editClick(Sender: TObject);
    procedure Bit_DelClick(Sender: TObject);
    procedure Bit_PreviewClick(Sender: TObject);
    procedure Bit_newClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
  newname:string;
  procedure Refreshlist;
    { Public declarations }
  end;

var
  F_Form_Report: TF_Form_Report;

implementation

uses Report_Module, U_data, U_Report_Data;



{$R *.dfm}

procedure TF_Form_Report.Refreshlist;
var ts: TstringList;
begin
  ts := ReportModule.GetReportList(Report_Form);
  ComboBox1.Items.Clear;
  ComboBox1.Items.AddStrings(ts);
  ts.free;
  if ComboBox1.ItemIndex < 0 then
    ComboBox1.ItemIndex := 0;
End;    

procedure TF_Form_Report.Bit_copyClick(Sender: TObject);
begin
if ComboBox1.Text = '' then
    exit; //无可操作项

  newname := InputBox('复制为', '请输入新的报表名称', ComboBox1.Text);
  if newname <> '' then
    ReportModule.CopyReport(Report_Form, ComboBox1.Text, newname);
  ReFreshList;
  //复制报表
end;

procedure TF_Form_Report.Bit_PintClick(Sender: TObject);
begin
if ComboBox1.Text = '' then
    exit; //无可操作项
ReportModule.PrintReport(Report_Form, ComboBox1.Text);
end;

procedure TF_Form_Report.Bit_editClick(Sender: TObject);
begin
if ComboBox1.Text = '' then
    exit; //无可操作项
ReportModule.EditReport(Report_Form, ComboBox1.Text,Login_code);
end;

procedure TF_Form_Report.Bit_DelClick(Sender: TObject);
begin
if ComboBox1.Text = '' then
    exit; //无可操作项
ReportModule.DeleteReport(Report_Form, ComboBox1.Text);
Refreshlist;
end;

procedure TF_Form_Report.Bit_PreviewClick(Sender: TObject);
begin
if ComboBox1.Text = '' then
    exit; //无可操作项
Dm.ADOReport.Close;
ReportModule.PreviewReport(Report_Form, ComboBox1.Text);
end;

procedure TF_Form_Report.Bit_newClick(Sender: TObject);
var F_Report_Data:TF_Report_Data;
begin
 F_Report_Data:=TF_Report_Data.Create(Self);
 F_Report_Data.ShowModal; 

{
Dm.ADOReport.Active:=False;
Dm.ADOReport.CommandText:='select Ucode, Username, Password, Isadmin, Regtime from TB_Acount';
Dm.ADOReport.Active:=True;
ReportModule.NewReport(Report_Form, Login_code);
ReFreshlist; }
end;

procedure TF_Form_Report.FormActivate(Sender: TObject);
begin
Refreshlist;
end;

initialization
  RegisterClass(TF_Form_Report);

end.