sysset.~pas

进销存源码,这是一个可移植企业的进销存系统,大家可以参考一下做法

unit sysset;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ExtCtrls, Mask, DBCtrls;

type
  TSysSetFrm = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SysSetFrm: TSysSetFrm;

implementation

uses MSDM;

{$R *.DFM}

procedure TSysSetFrm.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TSysSetFrm.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.