unit1.pas

一个管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, QM_PQuickRep, QM_PRichText, QM_PControl, QM_DCtrl,
  QM_RGrid, QM_PDBGrid, QM_RConsole, Grids, DBGrids, DB, Shellapi,
  DBGridEh, QuickRpt, DBTables, CheckLst, QM_PDataSet, QRCtrls, 
  QM_PEhGrid, QRExport;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    Shape1: TShape;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Memo1: TMemo;
    Panel10: TPanel;
    Label24: TLabel;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Table1: TTable;
    Table2: TTable;
    DataSource2: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    CheckListBox1: TCheckListBox;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Label28: TLabel;
    ComboBox2: TComboBox;
    QMPrintEhGrid1: TQMPrintEhGrid;
    QMPrintDBGrid1: TQMPrintDBGrid;
    QMPrintControl1: TQMPrintControl;
    QMPrintRichText1: TQMPrintRichText;
    QMPrintQuickRep1: TQMPrintQuickRep;
    CheckBox1: TCheckBox;
    Panel8: TPanel;
    Button14: TButton;
    Button13: TButton;
    GroupBox2: TGroupBox;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    ScrollBox1: TScrollBox;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    RichEdit1: TRichEdit;
    Label29: TLabel;
    OpenDialog1: TOpenDialog;
    Panel2: TPanel;
    Label30: TLabel;
    Label31: TLabel;
    Shape7: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    pnlHead: TPanel;
    Label44: TLabel;
    Label45: TLabel;
    QRExcelFilter1: TQRExcelFilter;
    QRRTFFilter1: TQRRTFFilter;
    QRCSVFilter1: TQRCSVFilter;
    QRTextFilter1: TQRTextFilter;
    QRWMFFilter1: TQRWMFFilter;
    QRHTMLFilter1: TQRHTMLFilter;
    DBGridEh1: TDBGridEh;
    Label25: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Memo2: TMemo;
    btnReg1: TButton;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Button18: TButton;
    Button19: TButton;
    QuickRep1: TQuickRep;
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure QMPrintDBGrid1BeforeDraw(Sender: TObject);
    procedure Label44Click(Sender: TObject);
    procedure Label45Click(Sender: TObject);
    procedure QMPrintEhGrid1AfterPreview(Sender: TObject);
    procedure QMPrintEhGrid1BeforeDraw(Sender: TObject);
    procedure Memo2KeyPress(Sender: TObject; var Key: Char);
    procedure btnReg1Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure QMPrintEhGrid1BeforePreview(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //Caption := 'QreportMaker Demo -- ' + TWinControl(Sender).Hint;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if TComponent(Sender).Tag = 0 then
    QMPrintEhGrid1.Preview
  else QMPrintEhGrid1.Print;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  QMPrintEhGrid1.ColumnSetup;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  QMPrintEhGrid1.ExportData;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  with QMPrintDBGrid1, CheckListBox1 do
  begin
    Grid.Options := [];
    if Checked[0] then Grid.Options := Grid.Options + [rgLines];
    if Checked[1] then Grid.Options := Grid.Options + [rgColLines];
    if Checked[2] then Grid.Options := Grid.Options + [rgRowLines];
    if Checked[3] then Grid.Options := Grid.Options + [rgLRLines];
    if Checked[4] then Grid.Options := Grid.Options + [rgTitles];
    if Checked[5] then Grid.Options := Grid.Options + [rgKeepTitleHeight];
    if Checked[6] then Grid.Options := Grid.Options + [rgTitleBottomLines];
    if Checked[7] then Grid.Options := Grid.Options + [rgBoldFrame];
    if Checked[8] then Grid.Options := Grid.Options + [rgBoldHeaderLine];
  end;
  if TComponent(Sender).Tag = 0 then
    QMPrintDBGrid1.Preview
  else QMPrintDBGrid1.Print;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  QMPrintDBGrid1.ColumnSetup;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  QMPrintControl1.OverPrint := CheckBox1.Checked;
  case ComboBox2.ItemIndex of
    1 : QMPrintControl1.Control := Panel2;
    2 : QMPrintControl1.Control := TabSheet3;
    3 : QMPrintControl1.Control := Form1;
    else QMPrintControl1.Control := Panel1;
  end;
  if TComponent(Sender).Tag = 0 then
    QMPrintControl1.Preview
  else if TComponent(Sender).Tag = 1 then
    QMPrintControl1.Print
  else
  begin
    Button12.Enabled := false;
    QMPrintControl1.DrawTo(nil);
    Button12.Enabled := true;
  end;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
  with OpenDialog1 do
  begin
    if Execute then
    try
      RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
    except end;
  end;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
  Button15.Enabled := false;
  try
    QMPrintRichText1.Preview;
  finally
    Button15.Enabled := true;
  end;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
  QMPrintRichText1.Print;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
  QMPrintQuickRep1.Preview;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
  QMPrintQuickRep1.Print;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  Button10.Enabled := false;
  QMPrintEhGrid1.DrawTo(nil);
  Button10.Enabled := true;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
  Button11.Enabled := false;
  QMPrintDBGrid1.DrawTo(nil);
  Button11.Enabled := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  try table1.Open;
  except MessageDlg('找不到customer.db',mtInformation,[mbOk],0); end;
  try table2.Open;
  except MessageDlg('找不到employee.db',mtInformation,[mbOk],0); end;
  ComBobox2.ItemIndex := 0;
  with CheckListBox1 do
  begin
    Checked[1] := True;
    Checked[2] := True;
    Checked[3] := True;
    Checked[4] := True;
    Checked[5] := True;
    Checked[6] := True;
  end;
  QMPrintRichText1.LoadRichText(False);
  QMPrintEhGrid1.LoadColumnSetting;
  QMPrintDBGrid1.LoadColumnSetting;
end;

procedure TForm1.QMPrintDBGrid1BeforeDraw(Sender: TObject);
begin
{  with TQMColumn(QMPrintDBGrid1.Grid.Columns.Insert(0)) do
  begin
    Title.Caption := 'number';
    Title.Alignment := taLeftJustify;
    Alignment := taCenter;
    FieldName := '=sum(1)';
    Width := 50;
  end; }
  if QMPrintDBGrid1.Grid.ColumnByFieldName('Salary') = nil then exit;
  with QMPrintDBGrid1.Grid.ColumnByFieldName('Salary') do
  begin
    HideZero := True;
    DisplayFormat := '￥#,##0.00';
  end;
end;

procedure TForm1.Label44Click(Sender: TObject);
begin
  ShellExecute(handle,nil,pchar('http://www.zwmsoft.com'),nil,nil,sw_shownormal);
end;

procedure TForm1.Label45Click(Sender: TObject);
begin
  ShellExecute(handle,nil,pchar('mailto:[e-mail]?Subject=QReportMaker2'),nil,nil,sw_shownormal);
end;

procedure TForm1.QMPrintEhGrid1AfterPreview(Sender: TObject);
begin
  DBGridEh1.DataSource := DataSource1;
end;

procedure TForm1.QMPrintEhGrid1BeforeDraw(Sender: TObject);
begin

  {if QMPrintEhGrid1.Grid.ColumnByFieldName('TaxRate') = nil then exit;
  with QMPrintEhGrid1.Grid.ColumnByFieldName('TaxRate') do
  begin
    HideZero := True;
  end;}
end;

procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
{  if key='1' then
    btnReg1.Click
  else if key='2' then
    btnReg2.Click;  }
end;

procedure TForm1.btnReg1Click(Sender: TObject);
begin
  ShellExecute(handle,nil,pchar('http://www.zwmsoft.com/buynow.htm'),nil,nil,sw_shownormal);
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
  QMPrintRichText1.LoadRichText(False);
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
  QMPrintRichText1.ApplyParams;
end;

procedure TForm1.QMPrintEhGrid1BeforePreview(Sender: TObject);
begin
  DBGridEh1.DataSource := nil;
end;

end.