commandlist.pas

Delphi利用MVC开发的典型例子

unit Commandlist;

interface

const

  CMD_FILE_EXIT = 'E&xit';
  CMD_SHOW_ABOUT = '&About...';
  CMD_SHOW_HELP = '&Contents';
  CMD_SHOW_PARTS = '&Parts/Inventory...';
  CMD_SHOW_ORDERS = '&Orders...';
  CMD_RPT_CUSTOMER = '&Customer List';
  CMD_RPT_ORDER = '&Order History...';
  CMD_RPT_INVOICE = '&Invoice';
  CMD_USE_LOCALDB = '&Local Data (Paradox Data)';
  CMD_USE_REMOTEDB = '&Remote Data (Local Interbase)';

  //define for the buttons
  CMD_BTN_CLOSE = 'Cl&ose';
  CMD_BTN_HELP = '&Help';
  CMD_BTN_REPORT = '&Reports';
  CMD_BTN_PARTS = 'P&arts';
  CMD_BTN_NEWORDER = '&New Order';
  CMD_BTN_BROWSE = '&Browse';

  CMD_EDIT_CUSTOMER = 'edit a customer';
  CMD_EDIT_ORDER = 'edit an order';

  CMD_BACKORDERS = 'Backorders';
  CMD_EDIT_PARTS = '&Edit';

implementation

end.