frmsysconfig.pas

来自「非常地全面完整的物流供应链管理系统 包含全部的需求文档」· PAS 代码 · 共 43 行

unit frmSysConfig;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls;

type
  TFormSysConfig = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    LEdtWareHouseId: TLabeledEdit;
    LEdtWareHouseDepartId: TLabeledEdit;
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSysConfig: TFormSysConfig;

implementation
uses untConfig;
{$R *.dfm}

procedure TFormSysConfig.FormCreate(Sender: TObject);
begin
  LEdtWareHouseId.Text := GetWareHouseId;
  LEdtWareHouseDepartId.Text := GetWareHouseDepartId;
end;

procedure TFormSysConfig.OKBtnClick(Sender: TObject);
begin
  SetWareHouseId(LEdtWareHouseId.Text);
  SetWareHouseDepartId(LEdtWareHouseDepartId.Text);
end;

end.