生产管理系统主窗口设计及实现代码[2]

() 单击主菜单中的各个菜单选项为各个子窗体添加处理代码

private

{ Private declarations }

public

{ Public declarations }

//各个MDI子窗体间通过主窗体定义的公共变量来传递数据

strstrstrstr:string;

//标识是哪个子窗体来使用上面个公共变量

//bomflag=表示BOM窗体使用上面的变量bomflag=表示主需求窗体使用

bomflag:integer;

end;

var

main: Tmain;

implementation

{$R *dfm}

uses MaterialsFormBomFormCalendarFormmainrequireFormmainproduceformMRPCalForm

mrphistoryForm;

//打开物料主文件维护子窗口

procedure TmainNClick(Sender: TObject);

var

newform:Tmaterials;

iflag:integer;

begin

//flag＝表示该窗体不存在

flag:=;

for i:= to mainMDIChildCount do

begin

// 通过对窗体标题判断窗体是否存在

if mainMDIChildren[i]Caption=物料主文件维护 then

begin

//如果窗体已存在则恢复窗体

SendMessage(mdichildren[i]Handle WM_SYSCOMMAND SC_restore );

mdichildren[i]Show;

flag:=;

//退出循环

break;

end;

end;

//若窗体不存在则创建窗体

[] [] [] []

上一篇：生产管理系统主窗口设计及实现代码[3]

下一篇：生产管理系统主窗口设计及实现代码[1]