bassmessage_depot.pas

pos商场、超市管理系统

unit BASSMESSAGE_DEPOT;

interface

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

type
  TFrm_bassmessage_depot = class(TFrm_bassmessage)
    Query_del: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure TB_addClick(Sender: TObject);
    procedure TB_EDITClick(Sender: TObject);
    procedure TB_DELClick(Sender: TObject);
  private
    B_create:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_bassmessage_depot: TFrm_bassmessage_depot;

implementation

uses EDIT_DEPOT;

{$R *.dfm}

procedure TFrm_bassmessage_depot.FormCreate(Sender: TObject);
begin
  inherited;
  B_create:=false;
  query_del.DatabaseName :=HWSHOPDATA;
   self.Caption :='商场及仓库信息设置';
   with query_data do
   begin
      close;
      sql.Clear ;
      sql.Text :='SELECT * from depot';
      try
         open;
         B_create:=true;
      except
         messagedlg(Errormsg0001+'0008',mtError,[mbok],0);
         close;
         B_create:=false;
      end;
   end;

end;

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

procedure TFrm_bassmessage_depot.TB_addClick(Sender: TObject);
begin
  inherited;
   if not Checkrights(USERRIGHTS,'增加') then
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      exit;
   end;
   Application.CreateForm(Tfrm_edit_depot,frm_edit_depot);
   frm_edit_depot.Caption :='商场及仓库信息（增加）';
   frm_edit_depot.P_state :=0;
   frm_edit_depot.showmodal;
   frm_edit_depot.free;
   tb_refresh.Click ;
   query_data.Last ;
end;

procedure TFrm_bassmessage_depot.TB_EDITClick(Sender: TObject);
begin
  inherited;
   if not Checkrights(USERRIGHTS,'编辑') then
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      exit;
   end;
   Application.CreateForm(Tfrm_edit_depot,frm_edit_depot);
   frm_edit_depot.Caption :='商场及仓库信息（编辑）';
   frm_edit_depot.P_state :=1;
   with query_data do
   begin
      frm_edit_depot.E_name.Text :=fieldbyname('name').asstring;
      frm_edit_depot.E_id.Text :=fieldbyname('id').asstring;
      frm_edit_depot.E_type.Text :=fieldbyname('type').asstring;
      frm_edit_depot.E_memo.Text :=fieldbyname('memo').asstring;
   end;
   frm_edit_depot.showmodal;
   frm_edit_depot.free;
   tb_refresh.Click ;

end;

procedure TFrm_bassmessage_depot.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 depot where id='''+query_data.fieldbyname('ID').asstring+'''';
         try
            execsql;
         except
            messagedlg(Errormsg0005+'0011',mtError,[mbok],0);
            close;
            exit;
         end;
         messagedlg(Infmsg0002,mtInformation,[mbok],0);
         close;
         tb_refresh.Click ;
      end;
   end;
end;

end.