frmconfig.pas

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

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
  SetSaleDepartId(Trim(LEdtDepartId.Text));
end;

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

end.