bassmessage_goods.pas

pos商场、超市管理系统

unit BASSMESSAGE_GOODS;

interface

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

type
  TFrm_bassmessage_goods = class(TFrm_bassmessage)
    DBG_name: TDBGrid;
    DataSource_name: TDataSource;
    Query_name: TQuery;
    Query_DEL: TQuery;
    Splitter1: TSplitter;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure TB_addClick(Sender: TObject);
    procedure TB_EDITClick(Sender: TObject);
    procedure TB_DELClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    B_create:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_bassmessage_goods: TFrm_bassmessage_goods;

implementation

uses EDIT_GOODS;

{$R *.dfm}

procedure TFrm_bassmessage_goods.FormCreate(Sender: TObject);
begin
  inherited;
   B_create:=false;
   self.Caption :=Application.Title + ' - 商品资料信息设置';
   query_name.DatabaseName :=HWSHOPDATA;
   query_del.DatabaseName :=HWSHOPDATA;
   with query_name do
   begin
      close;
      sql.Clear ;
      sql.Text :='SELECT NAME FROM Goodsmessage'
            +' GROUP BY NAME ORDER BY NAME';
      try
         open;
         B_create:=true;
      except
         messagedlg(Errormsg0001+'0012',mtError,[mbok],0);
         close;
         B_create:=false;
      end;
   end;
   with query_data do
   begin
      close;
      sql.Clear ;
      sql.Text :='Select * From GOODSMESSAGE Where "GOODSMESSAGE"."NAME" =:"NAME"';
      try
         open;
         B_create:=true;
      except
         messagedlg(Errormsg0001+'0012',mtError,[mbok],0);
         close;
         B_create:=false;
      end;
   end;
   Query_name.First ;

end;

procedure TFrm_bassmessage_goods.FormPaint(Sender: TObject);
begin
  inherited;
   if not B_create then
      self.Close ;
end;

procedure TFrm_bassmessage_goods.TB_addClick(Sender: TObject);
begin
  inherited;
   if not Checkrights(USERRIGHTS,'增加') then
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      exit;
   end;
   Application.CreateForm(Tfrm_edit_goods,frm_edit_goods);
   frm_edit_goods.e_name.Text :=Query_data.fieldbyname('name').asstring;
   frm_edit_goods.Caption :='商品信息（增加）';
   frm_edit_goods.P_state :=0;
   frm_edit_goods.showmodal;
   frm_edit_goods.free;
   tb_refresh.Click ;
   query_data.Last ;
end;

procedure TFrm_bassmessage_goods.TB_EDITClick(Sender: TObject);
begin
  inherited;
   if not Checkrights(USERRIGHTS,'编辑') then
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      exit;
   end;
   Application.CreateForm(Tfrm_edit_goods,frm_edit_goods);
   frm_edit_goods.Caption :='商品信息（编辑）';
   frm_edit_goods.P_state :=1;
   with query_data do
   begin
      frm_edit_goods.E_name.Text :=fieldbyname('name').asstring;
      frm_edit_goods.E_type.Text :=fieldbyname('type').asstring;
      frm_edit_goods.E_id.Text :=fieldbyname('id').asstring;
      frm_edit_goods.E_unit.Text :=fieldbyname('unit').asstring;
      frm_edit_goods.E_price.Text :=fieldbyname('price').asstring;
      frm_edit_goods.E_sellprice.Text :=fieldbyname('sellprice').asstring;
      frm_edit_goods.E_memo.Text :=fieldbyname('memo').asstring;
   end;
   frm_edit_goods.showmodal;
   frm_edit_goods.free;
   tb_refresh.Click ;

end;

procedure TFrm_bassmessage_goods.TB_DELClick(Sender: TObject);
begin
  inherited;
   if not Checkrights(USERRIGHTS,'删除') then
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      exit;
   end;
   if messagedlg('警告：删除商品信息数据可能产生严重数据丢失现象，请不要在此删除商品信息数据'+chr(13)+chr(13)
               +'删除数据操作将不可恢复，确定要删除本记录吗？',mtWarning,[mbyes,mbno],0)=mryes then
   if messagedlg('再次警告：为了保证数据库内数据信息的完整性，请不要在此商品信息数据'+chr(13)+chr(13)
               +'删除数据操作将不可恢复，确定要删除本记录吗？',mtWarning,[mbyes,mbno],0)=mryes then
   begin
      with query_del do
      begin
         close;
         sql.Clear ;
         sql.Text :='delete from goodsmessage where id='''+query_data.fieldbyname('ID').asstring+'''';
         try
            execsql;
         except
            messagedlg(Errormsg0005+'0009',mtError,[mbok],0);
            close;
            exit;
         end;
         messagedlg(Infmsg0002,mtInformation,[mbok],0);
         close;
         tb_refresh.Click ;
      end;
   end;

end;

procedure TFrm_bassmessage_goods.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
   Datasource_name.Free ;
   query_name.Free ;
   query_del.Free ;
end;

end.