【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Find_PFSP_info_u.pas”一文,供大家参考学习!
{
unit name : Find_PFSP_info_u
Author : 李涛
Create date: 2005-07-29 21:35:23
description: 批发商品
查询单元.
}
unit Find_PFSP_info_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Base_Form_U, QRCtrls, QuickRpt, StdCtrls, Buttons, ExtCtrls, DB,
ADODB, Grids, DBGrids, ComCtrls;
type
TFind_pfsp_info = class(TBase_Form)
DBGrid1: TDBGrid;
PFSP_ADO: TADOQuery;
DataSource1: TDataSource;
PFSP_ADOid: TBCDField;
PFSP_ADOC_code: TStringField;
PFSP_ADOc_code_sp: TStringField;
PFSP_ADOC_name: TStringField;
PFSP_ADOC_Sort: TStringField;
PFSP_ADOC_model: TStringField;
PFSP_ADOC_unit: TStringField;
PFSP_ADOC_code_gys: TStringField;
PFSP_ADOdec_sum: TBCDField;
PFSP_ADOdec_jg: TBCDField;
PFSP_ADOdec_cb: TBCDField;
PFSP_ADOdec_zk: TBCDField;
PFSP_ADOdec_hj: TBCDField;
PFSP_ADOdec_cb_hj: TBCDField;
PFSP_ADOml_hj: TBCDField;
PFSP_ADOc_name_1: TStringField;
Label2: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRExpr1: TQRExpr;
QRExpr2: TQRExpr;
QRExpr3: TQRExpr;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRExpr4: TQRExpr;
procedure FormShow(Sender: TObject);
procedure ADD_BitClick(Sender: TObject);
procedure Print_BitClick(Sender: TObject);
procedure Query_BitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Find_pfsp_info: TFind_pfsp_info;
implementation
uses MainForm_u, PublicQuery_u;
{$R *.dfm}
procedure TFind_pfsp_info.FormShow(Sender: TObject);
begin
inherited;
DateTimePicker1.Date:=Date-1;
DateTimePicker3.Date:=Date;
end;
procedure TFind_pfsp_info.ADD_BitClick(Sender: TObject);
var
KS,JZ: TDateTime;
begin
inherited;
KS:=DateTimePicker1.Date+StrToTime('00:00:00');
JZ:=DateTimePicker3.Date+StrToTime('23:59:59');
with PFsp_ADO do
begin
Close;
parameters.ParamByName('ks').Value:=KS;
parameters.ParamByName('jz').Value:=jz;
Open;
end;
end;
procedure TFind_pfsp_info.Print_BitClick(Sender: TObject);
begin
if (PFsp_ADO.Active) and (PFsp_ADO.RecordCount>0) then
inherited;
end;
procedure TFind_pfsp_info.Query_BitClick(Sender: TObject);
begin
inherited;
PublicQuery.ADO_name:='PFSP_ADO';
PublicQuery.ShowModal;
end;
end.