depot_unit.~pas

来自「一个很不错的仓库管理系统,能容进各种软件中去,」· ~PAS 代码 · 共 68 行

unit depot_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TEMPLETFORM, Menus, ComCtrls, ToolWin, StdCtrls, ExtCtrls, DB,
  ADODB, MoveImageButton, LabelButton, TradeImage, Grids, DBGrids,
  NewDBGrid;

type
  Tdepot = class(TTEMPLETF)
    Panel1: TPanel;
    NewDBGrid1: TNewDBGrid;
    TradeImg1: TTradeImg;
    LabelBtn1: TLabelBtn;
    MIBtnExit: TMoveImgBtn;
    lbBtnExit: TLabelBtn;
    qry: TADOQuery;
    DataSource1: TDataSource;
    qrydepot_id: TStringField;
    qrydepot_name: TStringField;
    qrybeizhu: TStringField;
    procedure FormShow(Sender: TObject);
    procedure MIBtnExitClick(Sender: TObject);
    procedure TradeImg1Click(Sender: TObject);
    procedure NewDBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  depot: Tdepot;

implementation
uses data_unit, depot_add_unit;

{$R *.dfm}

procedure Tdepot.FormShow(Sender: TObject);
begin
  inherited;
qry.Open;
end;

procedure Tdepot.MIBtnExitClick(Sender: TObject);
begin
  inherited;
application.MessageBox('该仓库尚在使用中，不能删除！','系统提示',mb_ok+mb_iconinformation); 
end;

procedure Tdepot.TradeImg1Click(Sender: TObject);
begin
  inherited;
depot_add.edit4.text:='a';
depot_add.show;
end;

procedure Tdepot.NewDBGrid1DblClick(Sender: TObject);
begin
  inherited;
depot_add.ShowModal;
end;

end.