【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,DBSP_Find_u.pas,希望对大家有所帮助!
{
unit name : DBSP_Find_u
Author : 李涛
Create date: 2004-07-13 10:15:23
description: 调拨商品查询单元
}
unit DBSP_Find_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, Public_unit_u;
type
TDBSP_Find = class(TBase_Form)
DBGL_ADO: TADOQuery;
DBGL_DataSource: TDataSource;
DBGrid1: TDBGrid;
DBGL_ADOC_db_code: TStringField;
DBGL_ADOc_spbm: TStringField;
DBGL_ADOC_name: TStringField;
DBGL_ADOC_Sort: TStringField;
DBGL_ADOC_model: TStringField;
DBGL_ADOC_unit: TStringField;
DBGL_ADOdec_sum: TBCDField;
DBGL_ADOdec_jg: TBCDField;
DBGL_ADOdec_xj: TBCDField;
Label2: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
QRShape2: TQRShape;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel11: TQRLabel;
QRShape3: TQRShape;
QRExpr1: TQRExpr;
QRExpr2: TQRExpr;
procedure FormShow(Sender: TObject);
procedure DateTimePicker1Enter(Sender: TObject);
procedure DateTimePicker1Exit(Sender: TObject);
procedure Query_BitClick(Sender: TObject);
procedure Del_BitClick(Sender: TObject);
procedure Print_BitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DBSP_Find: TDBSP_Find;
implementation
uses MainForm_u, PublicQuery_u;
{$R *.dfm}
procedure TDBSP_Find.FormShow(Sender: TObject);
begin
inherited;
DateTimePicker1.Date:=Date-1;
DateTimePicker3.Date:=Date;
end;
procedure TDBSP_Find.DateTimePicker1Enter(Sender: TObject);
begin
inherited;
EnterColor(Sender);
end;
procedure TDBSP_Find.DateTimePicker1Exit(Sender: TObject);
begin
inherited;
ExitColor(Sender);
end;
procedure TDBSP_Find.Query_BitClick(Sender: TObject);
begin
inherited;
PublicQuery.ADO_name:='DBGL_ADO';
PublicQuery.ShowModal;
end;
procedure TDBSP_Find.Del_BitClick(Sender: TObject);
var
KS,JZ: TDateTime;
begin
inherited;
KS:=DateTimePicker1.Date+StrToTime('00:00:00');
JZ:=DateTimePicker3.Date+StrToTime('23:59:59');
with Dbgl_ADO do
begin
Close;
parameters.ParamByName('ks').Value:=KS;
parameters.ParamByName('jz').Value:=jz;
Open;
end;
end;
procedure TDBSP_Find.Print_BitClick(Sender: TObject);
begin
if (dbgl_ADO.Active) and (dbgl_ADO.RecordCount>0) then
inherited;
end;
end.
上一篇:
frmdzhsgl.frm
下一篇:
阴道松弛练紧三法