cw_zlzd.~pas

来自「结于初学者来说这对数据库是一个很好的例子」· ~PAS 代码 · 共 91 行

unit cw_zlzd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm46 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    SpeedButton1: TSpeedButton;
    Button3: TButton;
    Button4: TButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form46: TForm46;

implementation

uses cw_zlzd_sndin, cw_main, cw_zlzd_kfdin, cw_zlzd_snacc, cw_zlzd_kfacc;

{$R *.dfm}

procedure TForm46.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure TForm46.Button3Click(Sender: TObject);
begin
  form47.rq.Caption:=datetostr(date-1);
  form47.Q_spxf.Active:=False;
  form47.Q_spxf.SQL.Clear;
  form47.Q_spxf.SQL.Add('select sum(Quantity) as sl,sum(SalePrice*Quantity) as je,menutype,menuname from sn_Dinlist group by menutype,MenuName order by menutype');
  form47.Q_spxf.Active:=true;
  form47.bbr.Caption:=form1.operator.Caption;
  form47.QuickRep1.Preview;

end;

procedure TForm46.Button1Click(Sender: TObject);
begin
  form48.rq.Caption:=datetostr(date-1);
  form48.Q_spxf.Active:=False;
  form48.Q_spxf.SQL.Clear;
  form48.Q_spxf.SQL.Add('select sum(Quantity) as sl,sum(SalePrice*Quantity) as je,menutype,menuname from Dinlist group by menutype,MenuName order by menutype');
  form48.Q_spxf.Active:=True;
  form48.bbr.Caption:=form1.operator.Caption;
  form48.QuickRep1.Preview;

end;

procedure TForm46.Button4Click(Sender: TObject);
begin
  form49.QR_date.Caption:=datetostr(date-1);
  form49.Q_accountprn.Active:=False;
  form49.Q_accountprn.SQL.Clear;
  form49.Q_accountprn.SQL.Add('select * from Sn_Account order by accountno');
  form49.Q_accountprn.Active:=True;
  form49.QuickRep1.Preview;

end;

procedure TForm46.Button2Click(Sender: TObject);
begin
  form50.qr15.Caption:=datetostr(date-1);
  form50.Q_jiezhang.active:=false;
  form50.Q_jiezhang.SQL.Clear;
  form50.Q_jiezhang.SQL.Add('select * from Account  order by accountno');
  form50.Q_jiezhang.active:=true;
  form50.bbr.Caption:=form1.operator.Caption;
  form50.QuickRep1.Preview;

end;

end.