【delphi开源代码栏目提醒】:本文主要为网学会员提供MC_YGXXDY.pas,希望对需要MC_YGXXDY.pas网友有所帮助,学习一下!
unit MC_YGXXDY;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, QuickRpt, Qrctrls,
ExtCtrls;
type
TYGXXDY = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Edit1: TEdit;
BitBtn4: TBitBtn;
DBGrid1: TDBGrid;
Query1: TQuery;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRShape1: TQRShape;
DetailBand1: TQRBand;
Query1BDEDesigner: TStringField;
Query1BDEDesigner2: TStringField;
Query1BDEDesigner3: TStringField;
Query1BDEDesigner4: TDateTimeField;
Query1BDEDesigner5: TStringField;
Query1BDEDesigner6: TStringField;
Query1BDEDesigner7: TStringField;
Query1BDEDesigner8: TStringField;
Query1BDEDesigner9: TMemoField;
Query1BDEDesigner10: TBlobField;
QRShape2: TQRShape;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBImage1: TQRDBImage;
QRDBRichText1: TQRDBRichText;
QRShape3: TQRShape;
SummaryBand1: TQRBand;
QRLabel10: TQRLabel;
QRExpr1: TQRExpr;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure QuickRep1Preview(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
YGXXDY: TYGXXDY;
implementation
uses MC_DYYLBrose;
{$R *.DFM}
procedure TYGXXDY.FormClose(Sender: TObject; var Action: TCloseAction);
begin
YGXXDY.Release;
YGXXDY:=Nil;
end;
procedure TYGXXDY.FormShow(Sender: TObject);
begin
ComboBox1.ItemIndex:=0;
ComboBox2.ItemIndex:=0;
end;
procedure TYGXXDY.BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TYGXXDY.BitBtn4Click(Sender: TObject);
begin
if ComboBox2.Text='Like' then
if Edit1.Text='*' then
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 员工信息');
Query1.Open;
end
else
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 员工信息');
Query1.SQL.Add('Where '+Combobox1.Items[ComboBox1.ItemIndex]+' Like '''+Edit1.Text+'%''');
Query1.Open;
end;
if comboBox2.Text='=' then
with Query1 do begin
close;
SQL.Clear;
SQL.Add('Select * From 员工信息');
SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+' = '''
+Edit1.Text+'''');
Open; end;
if ComboBox2.Text='>' then
With Query1 do begin
Close;
SQL.Clear;
SQL.Add('Select * From 员工信息');
SQL.Add('Where '+comboBox1.Items[ComboBox1.ItemIndex]+' > '''
+Edit1.Text+'''');
Open; end;
if ComboBox2.Text='<' then
with Query1 do Begin
Close;
SQL.Clear;
SQL.Add('Select * From 员工信息');
SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+' < '''
+Edit1.Text+'''');
Open; end;
end;
procedure TYGXXDY.QuickRep1Preview(Sender: TObject);
begin
DYYLBrose.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;
procedure TYGXXDY.BitBtn1Click(Sender: TObject);
begin
if Query1.Active then
if Query1.RecordCount<>0 then
begin
DYYLBrose.Show;
QUickRep1.Preview;
end;
end;
end.