begin
ADOQuery4.Close;
ADOQuery4.Parameters.ParamByName('ResideWorkShop').Value := DBLookupComboboxEh2.KeyValue;
ADOQuery4.Open;
end;
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
delphi+access水电管理系统(九)由毕业论文网（www.huoyuandh.com）会员上传。
