querybassunit.pas

一个用delphi 开发的商场销售系统 涵盖很多功能

unit QueryBassUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, Grids, DBGrids, ExtCtrls, DB,
  DBTables;

type
  TQueryBassForm = class(TForm)
    P_back: TPanel;
    P_main: TPanel;
    Panel_down: TPanel;
    Bevel_bass: TBevel;
    L_count: TLabel;
    Panel_button: TPanel;
    DBG_data: TDBGrid;
    PageScroller1: TPageScroller;
    Panel_top: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DTP_begin: TDateTimePicker;
    DTP_end: TDateTimePicker;
    Panel_print: TPanel;
    L_title: TLabel;
    SB_print: TSpeedButton;
    SB_chart: TSpeedButton;
    Panel1: TPanel;
    OKBtn: TButton;
    CancelBtn: TButton;
    Query_data: TQuery;
    SB_query: TSpeedButton;
    Query_Temp: TQuery;
    DataSource: TDataSource;
    CB_YWY: TComboBox;
    CB_Depot: TComboBox;
    CB_Goods: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure DBG_dataDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Query_dataAfterOpen(DataSet: TDataSet);
    procedure SB_printClick(Sender: TObject);
    procedure DTP_beginChange(Sender: TObject);
    procedure SB_queryClick(Sender: TObject);
    procedure Query_dataAfterClose(DataSet: TDataSet);
    procedure DTP_endChange(Sender: TObject);
    procedure CB_GoodsChange(Sender: TObject);
    procedure CB_DepotChange(Sender: TObject);
    procedure CB_YWYChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QueryBassForm: TQueryBassForm;

implementation

uses MainUnit, FunctionUnit;

{$R *.dfm}

procedure TQueryBassForm.FormCreate(Sender: TObject);
var
  I_windows: integer;
  Year, Month, Day: Word;
begin
  with MainForm do
  begin
    for I_windows := 0 to Panel_main.DockClientCount - 1 do
    begin
      Panel_main.DockClients[I_windows].Hide;
    end;
  end;

  query_data.DatabaseName := 'CPXSGL';
  query_temp.DatabaseName := 'CPXSGL';
  //设定默认的查询时间段为一个月
  DecodeDate(now, Year, Month, Day);
  if (I_countdate > 0) and (I_countdate < 28) then
    dtp_begin.Date := EncodeDate(Year, Month - 1, I_countdate + 1)
  else
    dtp_begin.Date := EncodeDate(Year, Month, 1);
  Dtp_end.Date := now;

end;

procedure TQueryBassForm.FormShow(Sender: TObject);
begin
  self.Resize;
  SB_print.Enabled := Checkrights(USERRIGHTS, '打印预览');
end;

procedure TQueryBassForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  try
    self.Release;
  except
    messagedlg('系统在关闭〖' + self.Caption + '〗窗口时发生非致命的保护性错误'
      + #13 + #13 + '系统将停止运行，请立即与程序供应商联系。', mtError, [mbok], 0);
    application.Terminate;
  end;
end;

procedure TQueryBassForm.FormResize(Sender: TObject);
var
  I_col: integer;
begin
  L_title.Caption := application.Title + ' - ' + self.Caption;
  L_title.left := 0;
  L_title.top := 1;
  L_title.Width := self.Width;

  if DBG_data.Columns.Count >= 1 then
  begin
    for I_col := 0 to DBG_data.Columns.Count - 2 do
    begin
      DBG_data.Columns.Items[I_col].Width := DBG_data.Width div (DBG_data.Columns.Count);
    end;
    DBG_data.Columns.Items[DBG_data.Columns.Count - 1].Width := DBG_data.Width div (DBG_data.Columns.Count) - 38;
  end;
end;

procedure TQueryBassForm.CancelBtnClick(Sender: TObject);
begin
  self.Close;
end;

procedure TQueryBassForm.DBG_dataDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if query_data.FieldByName('number').AsInteger < 0 then
    DBG_data.Canvas.Font.Color := clred;
  DBG_data.DefaultDrawColumnCell(rect, datacol, column, state);
end;

procedure TQueryBassForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  DataSource.Destroy;
  Query_temp.Close;
  query_temp.Free;
  Query_data.Close;
  query_data.Free;
end;

procedure TQueryBassForm.Query_dataAfterOpen(DataSet: TDataSet);
var
  F_tempmoney: real;
begin
  try
    F_tempmoney := 0;
     //统计金额
    with query_data do
    begin
      DisableControls;
      first;
      while not eof do
      begin
        F_tempmoney := F_tempmoney + fieldbyname('price').AsFloat;
        next;
      end;
      first;
      enablecontrols;
    end;
    L_count.caption := '合计金额： ￥' + formatfloat(',.00', f_tempmoney);
  except
    l_count.Caption := '合计金额： ￥0.00';
  end;

end;

procedure TQueryBassForm.SB_printClick(Sender: TObject);
var
  NumSec: SmallInt;
  StartTime: TDateTime;
begin
  self.Enabled := false;
  if sb_query.Enabled then
    sb_query.Click;
   //延时
  numsec := 1; //延时1秒
  StartTime := now;
  repeat
    application.ProcessMessages;
  until Now > StartTime + NumSec * (1 / 24 / 60 / 60);
  self.Enabled := true;
end;

procedure TQueryBassForm.DTP_beginChange(Sender: TObject);
begin
  DTP_end.Date := DTP_begin.Date + DaysInMonth(DTP_begin.Date) - 1;
  sb_query.Enabled := true;
  query_data.Close;
end;

procedure TQueryBassForm.SB_queryClick(Sender: TObject);
begin
  sb_query.Enabled := false;
end;

procedure TQueryBassForm.Query_dataAfterClose(DataSet: TDataSet);
begin
  l_count.Caption := '合计金额： ￥0.00';
end;

procedure TQueryBassForm.DTP_endChange(Sender: TObject);
begin
  sb_query.Enabled := true;
  query_data.Close;
end;

procedure TQueryBassForm.CB_GoodsChange(Sender: TObject);
begin
  sb_query.Click;
end;

procedure TQueryBassForm.CB_DepotChange(Sender: TObject);
begin
  sb_query.Click;
end;

procedure TQueryBassForm.CB_YWYChange(Sender: TObject);
begin
  sb_query.Click;
end;

end.