zccxunit1.pas

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

unit ZCCXUnit1;

interface

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

type
  TZCCXForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Shape1: TShape;
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ImageList1: TImageList;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOTable1: TADOTable;
    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
  ZCCXForm: TZCCXForm;

implementation

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

{$R *.dfm}

procedure TZCCXForm.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 TZCCXForm.BitBtn2Click(Sender: TObject);//打印报表
begin
 if zccxform.ADOTable1.Active=true then
  begin
    if zccxform.ADOQuery1.RecordCount>0 then
      ZCBBForm.QuickRep1.PreviewModal;
  end
 else
  messagedlg('没有要打印的内容!',mtinformation,[mbok],0);
end;

procedure TZCCXForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  mainform.ToolButton6.Enabled:=true;
  mainform.n13.Enabled:=true;
  free;
end;

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

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

end.