frmconfig.pas

物流供应链管理系统

unit frmConfig;

interface

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

type
  TFormConfig = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    LEdtDepartId: TLabeledEdit;
    procedure OKBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormConfig: TFormConfig;

implementation
uses untConfig;
{$R *.dfm}

procedure TFormConfig.OKBtnClick(Sender: TObject);
begin
  SetOrderDepartId(Trim(LEdtDepartId.Text));
end;

procedure TFormConfig.FormCreate(Sender: TObject);
begin
  LEdtDepartId.Text := GetOrderDepartId;
end;

end.