p_yhsz.~pas

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

unit p_yhsz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,p_mc, ComCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls,
  Buttons;

type
  Tf_yhsz = class(TF_mc)
    DBNavigator1: TDBNavigator;
    Page: TPageControl;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_yhsz: Tf_yhsz;

implementation

{$R *.dfm}

procedure Tf_yhsz.FormCreate(Sender: TObject);
begin
  f_yhsz.ShowModal;
end;

end.