cw_zlzd.pas

Upload User: xgks2007
Upload Date: 2015-04-22
Package Size: 6496k
Code Size: 2k
Category: MiddleWare
Development Platform: C++ Builder
  1. unit cw_zlzd;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls, Buttons;
  6. type
  7.   TForm46 = class(TForm)
  8.     Label1: TLabel;
  9.     GroupBox1: TGroupBox;
  10.     Button1: TButton;
  11.     Button2: TButton;
  12.     SpeedButton1: TSpeedButton;
  13.     Button3: TButton;
  14.     Button4: TButton;
  15.     procedure SpeedButton1Click(Sender: TObject);
  16.     procedure Button3Click(Sender: TObject);
  17.     procedure Button1Click(Sender: TObject);
  18.     procedure Button4Click(Sender: TObject);
  19.     procedure Button2Click(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25. var
  26.   Form46: TForm46;
  27. implementation
  28. uses cw_zlzd_sndin, cw_main, cw_zlzd_kfdin, cw_zlzd_snacc, cw_zlzd_kfacc;
  29. {$R *.dfm}
  30. procedure TForm46.SpeedButton1Click(Sender: TObject);
  31. begin
  32. close;
  33. end;
  34. procedure TForm46.Button3Click(Sender: TObject);
  35. begin
  36.   form47.rq.Caption:=datetostr(date-1);
  37.   form47.Q_spxf.Active:=False;
  38.   form47.Q_spxf.SQL.Clear;
  39.   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');
  40.   form47.Q_spxf.Active:=true;
  41.   form47.bbr.Caption:=form1.operator.Caption;
  42.   form47.QuickRep1.Preview;
  43. end;
  44. procedure TForm46.Button1Click(Sender: TObject);
  45. begin
  46.   form48.rq.Caption:=datetostr(date-1);
  47.   form48.Q_spxf.Active:=False;
  48.   form48.Q_spxf.SQL.Clear;
  49.   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');
  50.   form48.Q_spxf.Active:=True;
  51.   form48.bbr.Caption:=form1.operator.Caption;
  52.   form48.QuickRep1.Preview;
  53. end;
  54. procedure TForm46.Button4Click(Sender: TObject);
  55. begin
  56.   form49.QR_date.Caption:=datetostr(date-1);
  57.   form49.Q_accountprn.Active:=False;
  58.   form49.Q_accountprn.SQL.Clear;
  59.   form49.Q_accountprn.SQL.Add('select * from Sn_Account order by accountno');
  60.   form49.Q_accountprn.Active:=True;
  61.   form49.QuickRep1.Preview;
  62. end;
  63. procedure TForm46.Button2Click(Sender: TObject);
  64. begin
  65.   form50.qr15.Caption:=datetostr(date-1);
  66.   form50.Q_jiezhang.active:=false;
  67.   form50.Q_jiezhang.SQL.Clear;
  68.   form50.Q_jiezhang.SQL.Add('select * from Account  order by accountno');
  69.   form50.Q_jiezhang.active:=true;
  70.   form50.bbr.Caption:=form1.operator.Caption;
  71.   form50.QuickRep1.Preview;
  72. end;
  73. end.