frmbaseformp.~pas

来自「进销存管理系统包含开题报告、无错程序源代码、无个性标记的可执行程序、院优毕业论文」· ~PAS 代码 · 共 51 行

unit FrmBaseFormP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus,ActnList,DB,ADODB, Grids, DBGrids;

type
  TFrmBaseForm = class(TForm)
    PopM1: TPopupMenu;
    popnew: TMenuItem;
    popedit: TMenuItem;
    popdel: TMenuItem;
    popinsert: TMenuItem;
    N4: TMenuItem;
    popprint: TMenuItem;
    popfind: TMenuItem;
    N7: TMenuItem;
    poptop: TMenuItem;
    popback: TMenuItem;
    popnext: TMenuItem;
    poplast: TMenuItem;
    N12: TMenuItem;
    popcheck: TMenuItem;
    popquit: TMenuItem;
    popsubdel: TMenuItem;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure popnewClick(Sender: TObject);
    procedure popeditClick(Sender: TObject);
    procedure popquitClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure popdelClick(Sender: TObject);
    procedure poptopClick(Sender: TObject);
    procedure popbackClick(Sender: TObject);
    procedure popnextClick(Sender: TObject);
    procedure poplastClick(Sender: TObject);
    procedure popprintClick(Sender: TObject);
    procedure popfindClick(Sender: TObject);
    procedure popinsertClick(Sender: TObject);
    procedure popsubdelClick(Sender: TObject);
    procedure popcheckClick(Sender: TObject);
  private
     { Private declarations }
  public
    Procedure SPopItemStat(PopFlag:Boolean);//砞竚垫虫