depotberthsedfm.~pas

来自「群星医药系统源码」· ~PAS 代码 · 共 89 行

unit DepotBerthsEdFm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, RzDBEdit, RzButton, RzBorder, ExtCtrls,
  ComCtrls, RzDTP, RzDBDTP, RzEdit, RzRadChk, RzDBChk,
  ceGlobal;

type
  TFmDepotBerthsEd = class(TForm)
    Panel2: TPanel;
    RzBorder1: TRzBorder;
    BtnNew: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label10: TLabel;
    Label21: TLabel;
    edBerthNo: TRzDBEdit;
    RzEdit7: TRzDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    RzDBEdit5: TRzDBEdit;
    RzDBEdit10: TRzDBEdit;
    RzDBEdit12: TRzDBEdit;
    RzEdit6: TRzDBNumericEdit;
    RzDBEdit2: TRzDBNumericEdit;
    RzDBEdit4: TRzDBNumericEdit;
    RzDBEdit6: TRzDBNumericEdit;
    RzDBEdit7: TRzDBEdit;
    edDepotNo: TRzEdit;
    RzDBEdit1: TRzDBDateTimePicker;
    RzDBCheckBox1: TRzDBCheckBox;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure BtnNewClick(Sender: TObject);
    procedure RzDBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmDepotBerthsEd: TFmDepotBerthsEd;

implementation

uses DepotBerthsFm;

{$R *.dfm}

procedure TFmDepotBerthsEd.FormCreate(Sender: TObject);
begin
  Color := FormBackColor;
end;

procedure TFmDepotBerthsEd.RzBitBtn1Click(Sender: TObject);
begin
//(edDepotNo.Text='')or
  if trim(edBerthNo.Text)='' then begin
  	Application.MessageBox('货位编号不能为空!', '提示', MB_OK+MB_ICONWARNING);
    Exit;
  end;
  ModalResult:=MrOK;
end;

procedure TFmDepotBerthsEd.BtnNewClick(Sender: TObject);
begin
  Close;
end;

procedure TFmDepotBerthsEd.RzDBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then SendMessage(Handle,WM_NEXTDLGCTL,0,0);
end;

end.