srcxunit1.pas

这是一个Delphi很好很全面知识的实例

unit SRCXUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ADODB, DB, Menus, TeEngine, Series, TeeProcs, Chart,
  DbChart, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids;

type
  TSRCXForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Shape1: TShape;
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    ImageList1: TImageList;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SRCXForm: TSRCXForm;

implementation

uses mainUnit1, MDUnit1, SPUnit1, SRLLUnit1, TJSRUnit1, TJZCUnit1, untDL,
  ZCCXUnit1, ZCLLUnit1, SRBBUnit1;

{$R *.dfm}

procedure TSRCXForm.BitBtn1Click(Sender: TObject); //查询
begin
 if (edit1.Text='') then
    messagedlg('首日期不可为空!',mtinformation,[mbok],0)
else if (edit2.text='') then
    messagedlg('尾日期不可为空!',mtinformation,[mbok],0)
else
 begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('SELECT * FROM 个人收入管理表');
   ADOQuery1.SQL.Add('WHERE 个人收入日期 BETWEEN #'+edit1.Text+'# AND #'+edit2.Text+'# order by 个人收入日期 asc');
   ADOQuery1.Prepared;
   ADOQuery1.Open;
   ADOTable1.Active:=true;
end;

end;

procedure TSRCXForm.BitBtn2Click(Sender: TObject); //打印报表
begin
 if ADOTable1.Active=true then
  begin
    if ADOQuery1.RecordCount>0 then
      begin
        SRBBForm.QuickRep1.PreviewModal;//显示报表
      end;
  end
  else
    messagedlg('没有要打印的内容!',mtinformation,[mbok],0);
end;

procedure TSRCXForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  mainform.ToolButton5.Enabled:=true;
  mainform.N12.Enabled:=true;
  FREE;
end;

procedure TSRCXForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  edit2.SetFocus;
end;

procedure TSRCXForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    bitbtn1.SetFocus;
    bitbtn1click(sender);
  end;
end;

end.