unit6.pas

玉龙飞雪进销存管理系统,可以帮您管理进销存的软件

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, TeEngine, Series, ExtCtrls,
  TeeProcs, Chart, DbChart, Grids, DBGrids, DB, DBTables, Menus, XPMenu;

type
  TFormrih = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid2: TDBGrid;
    Query2: TQuery;
    DataSource2: TDataSource;
    DBChart1: TDBChart;
    DBChart2: TDBChart;
    Series1: TBarSeries;
    Series2: TBarSeries;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBChart3: TDBChart;
    Series3: TBarSeries;
    SpeedButton3: TSpeedButton;
    Query3: TQuery;
    DataSource3: TDataSource;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    DataSource4: TDataSource;
    Query4: TQuery;
    Query5: TQuery;
    DataSource5: TDataSource;
    DBChart4: TDBChart;
    Series4: TBarSeries;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    SpeedButton4: TSpeedButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Query6: TQuery;
    DataSource6: TDataSource;
    Label3: TLabel;
    Label4: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    XPMenu1: TXPMenu;
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formrih: TFormrih;
  mouse:Tmouse;

implementation

uses Unit12, Unit11, Unit13;

{$R *.dfm}

procedure TFormrih.Button1Click(Sender: TObject);
begin
close;
end;

procedure TFormrih.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TFormrih.FormCreate(Sender: TObject);
var
fieldstr1:string;
fieldstr2:string;
fieldstr3:string;
fieldstr4:string;
begin
query1.Close;
query1.SQL.Clear;
query1.SQl.Add('Select *' );
query1.SQl.Add('FROM jin.db');
query1.SQL.Add('where 进货时间=:riqi');
Query1.ParambyName('riqi').asdate:=DateTimePicker1.Date;
query1.Prepare;
query1.Open;
query5.Close;
query5.SQL.Clear;
query5.SQl.Add('Select *' );
query5.SQl.Add('FROM xiao.db');
query5.SQL.Add('where 销售时间=:riqi');
Query5.ParambyName('riqi').asdate:=DateTimePicker1.Date;
query5.Prepare;
query5.Open;
query3.Close;
query3.SQL.Clear;
query3.SQl.Add('select sum(欠款数目),sum(货品单价*进货数量)');
fieldstr1:='sum(货品单价*进货数量)';
fieldstr2:='sum(欠款数目)';
query3.SQl.Add('FROM jin.db');
query3.SQL.Add('where 进货时间=:riqi1');
Query3.ParambyName('riqi1').asdate:=DateTimePicker1.Date;
query3.Prepare;
query3.Open;
edit2.text:=query3.Fields[0].asstring;
edit1.text:=query3.Fields[1].asstring;
query2.Close;
query2.SQL.Clear;
query2.SQl.Add('select sum(欠款数目),sum(销售单价*销售数量)');
fieldstr3:='sum(销售单价*销售数量)';
fieldstr4:='sum(欠款数目)';
query2.SQl.Add('FROM xiao.db');
query2.SQL.Add('where 销售时间=:riqi1');
Query2.ParambyName('riqi1').asdate:=DateTimePicker1.Date;
query2.Prepare;
query2.Open;
edit3.text:=query2.Fields[0].asstring;
edit4.text:=query2.Fields[1].asstring;
query4.Close;
query4.SQL.Clear;
query4.SQl.Add('select 进货编号,进货时间,货品单价,进货数量,单位,sum(欠款数目)as 欠款数目,sum(货品单价*进货数量)as 应付款数');
query4.SQl.Add('FROM jin.db');
query4.SQL.Add('where 进货时间=:riqi1');
query4.SQl.Add('group by 进货编号,进货时间,货品单价,进货数量,单位,欠款数目');
Query4.ParambyName('riqi1').asdate:=DateTimePicker1.Date;
query4.Prepare;
query4.Open;
query6.Close;
query6.SQL.Clear;
query6.SQl.Add('select 销售编号,销售时间,销售单价,销售数量,单位,sum(欠款数目)as 欠款数目,sum(销售单价*销售数量)as 应付款数');
query6.SQl.Add('FROM xiao.db');
query6.SQL.Add('where 销售时间=:riqi1');
query6.SQl.Add('group by 销售编号,销售时间,销售单价,销售数量,单位,欠款数目');
Query6.ParambyName('riqi1').asdate:=DateTimePicker1.Date;
query6.Prepare;
query6.Open;
end;

procedure TFormrih.RadioButton1Click(Sender: TObject);
begin
dbchart1.Visible:=true;
dbchart3.Visible:=false;
end;
procedure TFormrih.RadioButton2Click(Sender: TObject);
begin
dbchart1.Visible:=false;
dbchart3.Visible:=true;
end;
procedure TFormrih.RadioButton3Click(Sender: TObject);
begin
dbchart2.Visible:=true;
dbchart4.Visible:=false;
end;
procedure TFormrih.RadioButton4Click(Sender: TObject);
begin
dbchart2.Visible:=false;
dbchart4.Visible:=true;
end;
procedure TFormrih.SpeedButton1Click(Sender: TObject);
begin
popupmenu1.popup(mouse.CursorPos.x,mouse.CursorPos.Y);

end;

procedure TFormrih.N1Click(Sender: TObject);
begin
formrih_p:=Tformrih_p.create(self);
formrih_p.QuickRep1.Preview;
formrih_p.Close;
end;

procedure TFormrih.N2Click(Sender: TObject);
begin
formrih_p2:=Tformrih_p2.create(self);
formrih_p2.QuickRep1.Preview;
formrih_p2.Close;
end;

end.