depotedfrm.~pas

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

unit DepotEdFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, RzEdit, RzCmboBx, RzBtnEdt, RzButton, RzDBChk, RzLabel,
  RzBorder, ExtCtrls, RzDBCmbo, RzDBBnEd, RzDBEdit, DBCtrls, RzRadChk, DB,
  ceGlobal;

type
  TFmDepotEd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Panel2: TPanel;
    RzBorder1: TRzBorder;
    BtnNew: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    edLinkMan: TRzDBEdit;
    edFax: TRzDBEdit;
    edAddr: TRzDBEdit;
    edRemark: TRzDBEdit;
    edName: TRzDBEdit;
    edTel: TRzDBEdit;
    edSize: TRzDBNumericEdit;
    edArea: TRzDBEdit;
    EdRoot: TRzEdit;
    RzLabel1: TRzLabel;
    edDepotNo: TRzNumericEdit;
    ckRankDepot: TRzDBCheckBox;
    edDefBerthNo: TRzDBButtonEdit;
    Label10: TLabel;
    RzDBCheckBox1: TRzDBCheckBox;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure BtnNewClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edDefBerthNoButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    OldModuleID, RefModuleID, NewModuleID,  MenuIndex: Integer;
    ParentID:String;
  end;

var
  FmDepotEd: TFmDepotEd;

implementation

uses DepotBerthsFm, SelectBerthFrm;

{$R *.DFM}

procedure TFmDepotEd.RzBitBtn1Click(Sender: TObject);
begin
  if (edDepotNo.Text='')or(edName.Text='') then begin
  	Application.MessageBox('请输入仓库编号及名称!', '提示', MB_OK+MB_ICONWARNING);
    Exit;
  end;
  ModalResult:=MrOK;  
end;

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

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

procedure TFmDepotEd.edDefBerthNoButtonClick(Sender: TObject);
var
  iDepotID: integer;
  sBerthNo: string;
begin
  if (edDefBerthNo.DataSource.DataSet.State=dsInsert)or ckRankDepot.Checked then
    Exit;
  iDepotID :=  edDefBerthNo.DataSource.DataSet.FieldByName('DepotID').AsInteger;
  if SelectBerth(iDepotID,sBerthNo) then
  begin
    edDefBerthNo.DataSource.DataSet.Edit;
    edDefBerthNo.Field.AsString := sBerthNo;
  end;
end;

end.