underdev.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit underdev;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus, Db, DBTables;

type
  Tmainfm = class(TForm)
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    pos1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure pos1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainfm: Tmainfm;

implementation

uses pay, reciev, checkflow, checkgoods, checkhanding, lists, repli;

{$R *.DFM}

procedure Tmainfm.N6Click(Sender: TObject);
begin
  application.CreateForm(tpayfm,payfm);
  payfm.show;
end;

procedure Tmainfm.N12Click(Sender: TObject);
begin
 application.CreateForm(trecievfm,recievfm);
 recievfm.showmodal;
end;

procedure Tmainfm.N13Click(Sender: TObject);
begin
 application.CreateForm(tcheckflowfm,checkflowfm);
 checkflowfm.show;
end;

procedure Tmainfm.N14Click(Sender: TObject);
begin
  application.CreateForm(tcheckgoodsfm,checkgoodsfm);
  checkgoodsfm.show;
end;

procedure Tmainfm.N7Click(Sender: TObject);
begin
  application.CreateForm(tcheckhandfm,checkhandfm);
  checkhandfm.show;
end;

procedure Tmainfm.pos1Click(Sender: TObject);
begin
  application.CreateForm(tlistfm,listfm);
  listfm.show;
end;

procedure Tmainfm.N15Click(Sender: TObject);
begin
application.Terminate ;
end;

procedure Tmainfm.N8Click(Sender: TObject);
begin
  application.CreateForm(treplr,replr);
  replr.show;
end;

end.