unit21.pas

毕业设计

unit Unit21;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, Db, DBTables;

type
  TForm21 = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    PrintDialog1: TPrintDialog;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Edit3: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form21: TForm21;

implementation

{$R *.DFM}

procedure TForm21.FormShow(Sender: TObject);
begin
edit1.text:='';
edit2.Text:='';
edit3.Text:='';
end;

procedure TForm21.BitBtn1Click(Sender: TObject);
begin
 if edit3.text='' then
 begin
 if (edit1.text='') and (edit2.text='') then
  begin
   showmessage('请输入日期！');
   edit1.SetFocus;
  end;
   if (edit1.text<>'') and (edit2.text='') then
    begin
     query1.close;
     query1.SQL.clear;
     query1.SQL.Add('select * from shoufeihz');
     query1.sql.add('where 汇总日期>:rq1 and 汇总日期<:rq2');
     query1.sql.add('Order by 汇总日期');
     query1.parambyname('rq1').asDateTime:=StrToDate(edit1.text);
     query1.parambyname('rq2').asDateTime:=now();
     query1.prepare;
     query1.open;
   if query1.recordcount=0 then
     showmessage('没有记录');
    end;
  if (edit1.text='')and(edit2.text<>'') then
    begin
     query1.close;
     query1.SQL.clear;
     query1.SQL.Add('select * from shoufeihz');
     query1.sql.add('where 汇总日期<=:rq');
     query1.sql.add('Order by 汇总日期');
     query1.parambyname('rq').asDateTime:=StrToDate(Edit2.text);
     query1.prepare;
     query1.open;
     if query1.recordcount=0 then
      showmessage('没有记录');
    end;
   if (Edit1.text<>'')and(Edit2.text<>'') then
    begin
     query1.close;
     query1.SQL.clear;
     query1.SQL.Add('select * from shoufeihz');
     query1.sql.add('where 汇总日期>=:rq1 and 汇总日期<=:rq2');
     query1.sql.add('Order by 汇总日期');
     query1.parambyname('rq1').asDateTime:=StrToDate(Edit1.text);
     query1.parambyname('rq2').asDateTime:=strtodate(edit2.text);
     query1.prepare;
     query1.open;
    if query1.recordcount=0 then
     showmessage('没有记录');
    end;
   end
   else
   begin
    if (edit1.text='') and (edit2.text='') then
     begin
       query1.close;
       query1.SQL.clear;
       query1.SQL.Add('select * from shoufeihz');
       query1.sql.add('where  经办人=:xm');
       query1.ParamByName('xm').asstring:=edit3.text;
       query1.prepare;
       query1.open;
     if query1.recordcount=0 then
       showmessage('没有记录');
      end;
    if (edit1.text<>'') and (edit2.text='') then
     begin
      query1.close;
      query1.SQL.clear;
      query1.SQL.Add('select * from shoufeihz');
      query1.sql.add('where 经办人=:xm and  汇总日期>:rq1 and 汇总日期<:rq2');
      query1.sql.add('Order by 汇总日期');
      query1.ParamByName('xm').asstring:=edit3.Text;
      query1.parambyname('rq1').asDateTime:=StrToDate(edit1.text);
      query1.parambyname('rq2').asDateTime:=now();
      query1.prepare;
      query1.open;
   if query1.recordcount=0 then
     showmessage('没有记录');
    end;
  if (edit1.text='')and(edit2.text<>'') then
    begin
     query1.close;
     query1.SQL.clear;
     query1.SQL.Add('select * from shoufeihz');
     query1.sql.add('where 经办人=:xm and汇总日期<=:rq');
     query1.ParamByName('xm').asstring:=edit3.text;
     query1.sql.add('Order by 汇总日期');
     query1.parambyname('rq').asDateTime:=StrToDate(Edit2.text);
     query1.prepare;
     query1.open;
     if query1.recordcount=0 then
      showmessage('没有记录');
    end;
   if (Edit1.text<>'')and(Edit2.text<>'') then
    begin
     query1.close;
     query1.SQL.clear;
     query1.SQL.Add('select * from shoufeihz');
     query1.sql.add('where 经办人=:xm and 汇总日期>=:rq1 and 汇总日期<=:rq2');
     query1.sql.add('Order by 汇总日期');
     query1.ParamByName('xm').asstring:=edit3.text;
     query1.parambyname('rq1').asDateTime:=StrToDate(Edit1.text);
     query1.parambyname('rq2').asDateTime:=strtodate(edit2.text);
     query1.prepare;
     query1.open;
    if query1.recordcount=0 then
     showmessage('没有记录');
    end;
  end;
 end;
procedure TForm21.BitBtn3Click(Sender: TObject);
begin
 close;
end;

procedure TForm21.BitBtn2Click(Sender: TObject);
begin
 if printdialog1.Execute=false then
  showmessage('请安装打印机')
 else
 with printdialog1 do
  begin
   panel1.Hide;
   edit1.Hide;
   edit2.hide;
   bitbtn1.Hide;
   bitbtn2.Hide;
   bitbtn3.Hide;
   label1.Hide;
   label2.Hide;
   form21.Color:=clBtnHighlight;
   Execute;
   end;
    form21.Color:=clBtnFace;
    panel1.Show;
    edit1.show;
    edit2.Show;
    bitbtn1.show;
    bitbtn2.show;
    bitbtn3.show;
    label1.sHow;
    label2.sHow;
  end;
end.