📄 createapprc_1.pl
字号:
sub PreCreateForm (){ my @lAlleRcFiles; my @lDbRcFiles; my $cConfigDirName; $cConfigDirName = &GetAtt("BasePath") . "/lib"; opendir BASE_DIR, $cConfigDirName or die(sprintf(i18n("Can't open %s"), $cConfigDirName)); @lAlleRcFiles = grep /^.*\.rc$/, readdir BASE_DIR; closedir BASE_DIR; &MySetVal("Layout Field DbDriver", "Values", @lAlleRcFiles);}sub Check_DbRc_DbDriver(){ &AddError("DbDriver", "No Driver, please select!!") if(!&GetField("DbDriver"));}sub MyBtnNext (){ &CheckRecord(); if(!&GetField("DbDriver")) { &GenPage(); } else { &SessionIdSaveState("CreateAppRc_1,DbDriver", &GetField("DbDriver")); print &Redirect(&GetAttr("SessionId"), "WWWdb:Wiz:CreateAppRc_2"); }}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -