delphi+access水电管理系统(九)

end.

报表管理界面设计与代码设计

代码设计:
unit ufrmReport;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGridEh, ComCtrls, Buttons, ExtCtrls, PrnDbgeh, Db,
  ADODB, XPMenu;

type
  TfrmReport = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGDWorkshop: TDBGridEh;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    BitBtn5: TBitBtn;
    DBGridEh1: TDBGridEh;
    TabSheet3: TTabSheet;
    DBGridEh2: TDBGridEh;
    XPMenu1: TXPMenu;
    SaveDialog1: TSaveDialog;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery3: TADOQuery;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    TempQuery: TADOQuery;
  public
    { Public declarations }
    StartTime,
    EndTime: TDateTime;

    Procedure OpenDataSet(StrSQL: String; Temp: TADOQuery);   //打开数据集
    Procedure GetAllWorkshop;   //车间列表

    Function GetWorkshopID(WorkshopName: String): Integer;  //取车间ID

  end;

var
  frmReport: TfrmReport;
implementation

uses UCommon, uConst;

{$R *.DFM}

procedure TfrmReport.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmReport.FormDestroy(Sender: TObject);
begin
  TempQuery.Free;
&nbs

首页 上一页 6 7 8 9 10 11 12 下一页 尾页 9/12/12