unit8.pas

用于开发税务票据管理的软件

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ExtCtrls, Menus, StdCtrls, Buttons, ToolWin, ComCtrls,
  Grids, DBGrids,unit2, DB, ADODB,unit9,DateUtils, XPMenu;

type
(*aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*)

      {用于销售查询}

(*bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb*)

  TForm8 = class(TForm)
    ToolBar1: TToolBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    DBGrid1: TDBGrid;
      db3: TADOQuery;
    DataSource1: TDataSource;
    StatusBar2: TStatusBar;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    ToolButton3: TToolButton;
    Button1: TButton;
    Button2: TButton;
    XPMenu1: TXPMenu;
    procedure ToolButton2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N4Click(Sender: TObject);

    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   
    { Public declarations }
  end;

var
  Form8: TForm8;
  form9: tForm9;


implementation

{$R *.dfm}

uses unit12;

procedure TForm8.ToolButton2Click(Sender: TObject);
var today:string;
begin        //查询今天的销售情况。
today:=datetostr(now);
db3.SQL.Clear;
db3.Close;
db3.SQL.Add('select * from 销售情况');
db3.SQL.Add('where (销售时间=#'+today+'#)');
try
db3.Open;
except
db3.ExecSQL;
end;
end;

procedure TForm8.N5Click(Sender: TObject);
var somedate:string;
begin
somedate:=inputbox('某日查询','请输入要查询的日期',datetostr(now));
db3.Close;
db3.SQL.Clear;
db3.SQL.Add('select * from 销售情况 ');
db3.SQL.add('where 销售时间=#'+somedate+'#');
try
db3.Open;
except
showmessage('请检查日期输入是不是有什么问题');
db3.SQL.Clear;
db3.SQL.Add('select * from 销售情况');
db3.Open;
end;
end;

procedure TForm8.N8Click(Sender: TObject);
begin
form9.CheckBox1.Show;
form9.CheckBox2.Show;
form9.CheckBox3.Show;
form9.CheckBox4.Show;
form9.Show;
end;

procedure TForm8.N6Click(Sender: TObject);
begin
form9.CheckBox1.Checked:=true;   //按日期段查询
form9.Panel1.Show;

form9.Show;
end;

procedure TForm8.N3Click(Sender: TObject);
begin
form9.CheckBox4.Checked:=true;   //按姓名
form9.Panel4.Show;
form9.Show;
end;

procedure TForm8.N7Click(Sender: TObject);
begin
form9.CheckBox2.Checked:=true;   //按型号
form9.Panel2.show;
form9.Show;
end;

procedure TForm8.N4Click(Sender: TObject);
begin
form9.CheckBox3.Checked:=true;   //按串号
form9.Panel3.Show;
form9.Show;
end;

procedure TForm8.ToolButton6Click(Sender: TObject);
var user:string;
begin                     //按用户名来查询
user:=inputbox('查询','要查询的用户','');
 db3.Close;
db3.SQL.Clear;
db3.SQL.Add('select * from 销售情况 where 买主='''+user+'''');
db3.Open;
end;

procedure TForm8.ToolButton8Click(Sender: TObject);
var st:string;
begin             //按串号查询
st:=inputbox('查询','要查询的串号','');
db3.Close;
db3.SQL.Clear;
db3.SQL.Add('select * from 销售情况 where 串号='''+st+'''');
db3.Open;
end;

procedure TForm8.ToolButton3Click(Sender: TObject);
var st:string;
begin             //按型号查询
st:=inputbox('查询','要查询的型号 ','');
db3.Close;
db3.SQL.Clear;
db3.SQL.Add('select * from 销售情况 where 型号='''+st+'''');
db3.Open;
end;

procedure TForm8.Button1Click(Sender: TObject);
var count:integer;
    value,profit:double;
begin
  value:=0;
  profit:=0;
  count:=db3.RecordCount;
  //统计销售总额与总利润;
  db3.First;
  while not db3.Eof do
  begin
  value:=value+db3.FieldValues['销售价'];
  profit:=profit+db3.FieldValues['利润'];
  db3.Next;
  end;
  showmessage('销售情况如下:'+#13
            +'表中的记录总数为:'+inttostr(count)+#13
            +'表中的销售总价为:'+floattostr(value)+#13
            +'表中总利润合计为:'+floattostr(profit)+#13);
  form12.rep3.DataSet:=db3;
  form12.QRDBText1.DataSet:=db3;
  form12.QRDBText2.DataSet:=db3;
  form12.QRDBText3.DataSet:=db3;
  form12.QRDBText4.DataSet:=db3;
  form12.QRDBText5.DataSet:=db3;
  form12.QRDBText7.DataSet:=db3;
  form12.QRDBText8.DataSet:=db3;
  form12.QRDBText9.DataSet:=db3;
  form12.QRDBText10.DataSet:=db3;
  form12.QRDBText11.DataSet:=db3;
  
 form12.rep3.Preview;
end;

procedure TForm8.Button2Click(Sender: TObject);
begin
form12.rep3.Print;
end;

procedure TForm8.ToolButton4Click(Sender: TObject);
var month:integer;
    year:integer;
begin
year:=yearof(now);
month:=monthof(now);
db3.Close;
db3.SQL.Clear;
db3.sql.Add('select * from 销售情况');
db3.SQL.Add('where 销售时间>=#'+inttostr(year)+'-'+inttostr(month)+'-1#');
db3.sql.add(' and 销售时间<#'+inttostr(year)+'-'+inttostr(month+1)+'-1#') ;
db3.Open;

end;

procedure TForm8.FormCreate(Sender: TObject);
begin
db3.Open;
end;

end.