frmbassmessage.pas

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

unit FRMBASSMESSAGE;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, NEOFORM, DB, DBTables, ImgList, ComCtrls, Grids, DBGrids,
  ExtCtrls, MenuBar, ToolWin, StdCtrls,myself;

type
  TFrm_bassmessage = class(TzypNeoForm)
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    TB_add: TToolButton;
    TB_EDIT: TToolButton;
    TB_DEL: TToolButton;
    ToolButton5: TToolButton;
    TB_QUERY: TToolButton;
    TB_refresh: TToolButton;
    ToolButton1: TToolButton;
    TB_PRINT: TToolButton;
    TB_EXIT: TToolButton;
    DBG_BASSMESS: TDBGrid;
    StatusBar: TStatusBar;
    ImageList: TImageList;
    DataSource: TDataSource;
    Query_data: TQuery;
    procedure TB_EXITClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Query_dataAfterScroll(DataSet: TDataSet);
    procedure DBG_BASSMESSDblClick(Sender: TObject);
    procedure TB_refreshClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_bassmessage: TFrm_bassmessage;

implementation

uses FRMMAIN;

{$R *.dfm}

procedure TFrm_bassmessage.TB_EXITClick(Sender: TObject);
begin
  inherited;
   self.Close;
end;

procedure TFrm_bassmessage.FormCreate(Sender: TObject);
begin
  inherited;
   STATUSBAR.Panels.Items[2].Text:=formatdatetime('yyyy-mm-dd',date);
   Query_data.DatabaseName :=HWSHOPDATA;
end;

procedure TFrm_bassmessage.FormResize(Sender: TObject);
var
   I_col:integer;
begin
  inherited;
  toolbar1.Width :=self.Width ;
  if dbg_bassmess.Columns.Count>=1 then
  begin
     for I_col:=0 to dbg_bassmess.Columns.Count-1 do
     begin
        dbg_bassmess.Columns.Items[I_col].Width :=dbg_bassmess.Width div (dbg_bassmess.Columns.Count) - 8;
     end;
  end;
end;

procedure TFrm_bassmessage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Query_data.Close   ;
  query_data.Free ;
  DataSource.Destroy ;
end;

procedure TFrm_bassmessage.Query_dataAfterScroll(DataSet: TDataSet);
begin
  inherited;
   if (Query_data.eof) and (Query_data.bof) then
   begin
      tb_edit.Enabled :=false;
      tb_del.Enabled :=false;
   end
   else
   begin
      tb_edit.Enabled :=true;
      tb_del.Enabled :=true;
   end;
   TB_add.Enabled:=Checkrights(USERRIGHTS,'增加');
   TB_edit.Enabled :=checkrights(USERRIGHTS,'编辑');
   TB_del.Enabled :=checkrights(USERRIGHTS,'删除');
   TB_print.Enabled :=checkrights(USERRIGHTS,'打印预览');
   STATUSBAR.Panels.Items[0].Text:='共计 '+inttostr(Query_data.RecordCount)
            +' 条记录，当前是第 '+inttostr(Query_data.RecNo)+' 条记录';
end;

procedure TFrm_bassmessage.DBG_BASSMESSDblClick(Sender: TObject);
begin
  inherited;
   if TB_edit.Enabled then
      TB_edit.Click ;
end;

procedure TFrm_bassmessage.TB_refreshClick(Sender: TObject);
var
   I_index:integer;
begin
  inherited;
   I_index:=query_data.RecNo ;
   QUERY_data.Close ;
   QUERY_data.Open ;
   if I_index<query_data.RecordCount then
      query_data.RecNo :=I_index
   else
      query_data.Last ;
end;

end.