kctj.pas

库房管理系统

unit kctj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, Buttons;
    
type
  Tkctjfrm = class(TForm)
    grp1: TGroupBox;
    grp2: TGroupBox;
    dbgrd1: TDBGrid;
    grp3: TGroupBox;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kctjfrm: Tkctjfrm;

implementation

uses dm, mainfm;

{$R *.dfm}

end.