【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:MC_KCSLFX.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit MC_KCSLFX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables, ComCtrls, StdCtrls, Buttons, QuickRpt,
Qrctrls, ExtCtrls;
type
TKCSLFX = class(TForm)
Query1: TQuery;
Query1BDEDesigner: TDateTimeField;
Query1BDEDesigner2: TIntegerField;
Query1BDEDesigner3: TStringField;
Query1BDEDesigner4: TIntegerField;
Query1BDEDesigner5: TIntegerField;
Query1BDEDesigner6: TIntegerField;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Label1: TLabel;
BitBtn1: TBitBtn;
ComboBox1: TComboBox;
Label2: TLabel;
Edit1: TEdit;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Label4: TLabel;
BitBtn4: TBitBtn;
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRShape1: TQRShape;
TitleBand1: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRShape2: TQRShape;
SummaryBand1: TQRBand;
DetailBand1: TQRBand;
QRShape3: TQRShape;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRShape4: TQRShape;
QRLabel8: TQRLabel;
QRSysData1: TQRSysData;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRExpr1: TQRExpr;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRShape5: TQRShape;
QRShape6: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
QRShape14: TQRShape;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure QuickRep1Preview(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
KCSLFX: TKCSLFX;
implementation
uses MC_DYYLBrose, Unit1;
{$R *.DFM}
procedure TKCSLFX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
KCSLFX.Release;
KCSLFX:=NIl;
end;
procedure TKCSLFX.BitBtn3Click(Sender: TObject);
begin
Close;
end;
procedure TKCSLFX.BitBtn1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 统计表');
Query1.SQL.Add('Where 日期>=:A and 日期<=:B');
Query1.ParamByName('A').AsDateTime:=DateTimePicker1.DateTime;
Query1.ParamByName('B').AsDateTime:=DateTimePicker2.DateTime;
Query1.Open;
end;
procedure TKCSLFX.FormShow(Sender: TObject);
begin
ComboBox1.ItemIndex:=1;
DateTimePicker2.Date:=Date;
DateTimePicker1.Date:=Date-30;
end;
procedure TKCSLFX.BitBtn2Click(Sender: TObject);
begin
if Length(Edit1.Text)=0 then
begin
ShowMessage('请输入
查询条件');
Edit1.SetFocus;
end
else
begin
{
Query1.Filter:=Format('日期'+'>='+'''%S''',[DateToStr(DateTimePicker1.Date)])
+' '+'and'+' '
+Format('日期'+'<='+'''%S''',[DateToStr(DateTimePicker2.Date)]);
}
Query1.Filter:=Format(ComboBox1.Items[ComboBox1.ItemIndex]+'='+'''%S''',[Edit1.Text]);
Query1.Filtered:=True;
end;
end;
procedure TKCSLFX.QuickRep1Preview(Sender: TObject);
begin
DYYLBrose.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;
procedure TKCSLFX.BitBtn4Click(Sender: TObject);
begin
if Query1.Active then
if Query1.RecordCount<>0 then
begin
QRLabel13.Caption:=MainForm.User1;
DYYLBrose.Show;
QuickRep1.Preview;
end;
end;
end.