main_query_spfb.pas

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

unit MAIN_QUERY_SPFB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MAIN_QUERY, ExtCtrls, DB, DBTables, ComCtrls, StdCtrls,
  TFlatComboBoxUnit, TFlatSpeedButtonUnit, Grids, DBGrids, DsFancyButton,myself;

type
  TFrm_main_query_spfb = class(TFrm_main_query)
    Splitter1: TSplitter;
    DBG_temp: TDBGrid;
    Splitter2: TSplitter;
    DBG_GOODS: TDBGrid;
    DataSource_TEMP: TDataSource;
    DataSource_GOODS: TDataSource;
    Query_GOODS: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure SB_printClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_main_query_spfb: TFrm_main_query_spfb;

implementation

uses FRMMAIN, PRINT_SPFB, PRINT_TEMP;

{$R *.dfm}

procedure TFrm_main_query_spfb.FormCreate(Sender: TObject);
begin
  inherited;
   self.Caption :='商品分布';
   Query_GOODS.DatabaseName :=HWSHOPDATA;
   with query_temp do
   begin
      close;
      sql.Clear ;
      sql.Text :='SELECT NAME from Goodsmessage GROUP BY NAME ORDER BY NAME';
   end;
   with query_goods do
   begin
      close;
      sql.Clear ;
      sql.Text :='SELECT * from Goodsmessage Where  NAME=:"NAME"';
   end;
   with query_data do
   begin
      close;
      sql.Clear ;
      sql.Text :='SELECT Goodsmessage.NAME goodsname, Goodsmessage.TYPE, Depot.NAME depotname, Kccount.NUMBER,'
               +' Goodsmessage.UNIT, Kccount.PRICE DJ,sum(Kccount.NUMBER*Kccount.PRICE) PRICE FROM Kccount'
               +' INNER JOIN Depot ON  (Kccount.DEPOTID = Depot.ID)'
               +' INNER JOIN Goodsmessage ON  (Kccount.GOODSID = Goodsmessage.ID)'
               +' WHERE  Goodsmessage.ID =:"ID"'
               +' GROUP BY Depot.NAME, Goodsmessage.NAME, Goodsmessage.TYPE, Kccount.NUMBER, Goodsmessage.UNIT, Kccount.PRICE';
   end;
   try
         query_temp.open;
         query_goods.open;
         query_data.open;
   except
         messagedlg(Errormsg0001+'0012+0019',mtError,[mbok],0);
         query_data.close;
         query_goods.close;
         query_temp.close;
   end;
end;

procedure TFrm_main_query_spfb.FormResize(Sender: TObject);
var
   I_col:integer;
begin
  inherited;
  if DBG_temp.Columns.Count>=1 then
  begin
     for I_col:=0 to DBG_temp.Columns.Count-2 do
     begin
        DBG_temp.Columns.Items[I_col].Width :=DBG_temp.Width div (DBG_temp.Columns.Count);
     end;
     DBG_temp.Columns.Items[DBG_temp.Columns.Count-1].Width:=DBG_temp.Width div (DBG_temp.Columns.Count)-30;
  end;
  if DBG_goods.Columns.Count>=1 then
  begin
     for I_col:=0 to DBG_goods.Columns.Count-2 do
     begin
        DBG_goods.Columns.Items[I_col].Width :=DBG_goods.Width div (DBG_goods.Columns.Count);
     end;
     DBG_goods.Columns.Items[DBG_goods.Columns.Count-1].Width:=DBG_goods.Width div (DBG_goods.Columns.Count)-32;
  end;

end;

procedure TFrm_main_query_spfb.SB_printClick(Sender: TObject);
begin
  inherited;
   try       
      Application.CreateForm(TFrm_print_spfb, Frm_print_spfb);
      Application.CreateForm(TFrm_print_temp, Frm_print_temp);
   except
      messagedlg(Errormsg0011,mtError,[mbok],0);
      exit;
   end;
   Frm_print_spfb.QuickRep_spfb.preview;
   Frm_print_spfb.Free ;
   Frm_print_temp.Free ;
end;

end.