4、添加函数 参考3(前面判断数据集为空那句就不要了),先清空FunctionInfo,然后 if ShowFuncInfoForm(FunctionInfo) = mrOk then begin ADODataSet.Append; ADODataSet.FieldByName('函数名').AsString := FunctionInfo.Name; .... ADODataSet.Post; end;
5、函数信息窗体 unit FuncInfoFrm; interface type TFunctionInfo = record Name: string; Explain: string; Example: string; SurpportWin16: boolean; SurpportWin9x: boolean; SurpportWinNT: boolean; end; var FunctionInfo: TFunctionInfo; {FuncInfoForm: TFuncInfoForm;}
function ShowFuncInfoForm(AFunctionInfo: TFunctionInfo): word;
implementation
{$R *.dfm}
{ 创建并显示窗体 } function ShowFuncInfoForm(AFunctionInfo: TFunctionInfo): word; var FuncInfoForm: TFuncInfoForm; begin FuncInfoForm := TFuncInfoForm.Create(Application); try with FuncInfoForm do begin EdFuncName.Text := AFunctionInfo.Name; MemoExplain.Text := AFunctionInfo.Explain; CBSurppotWin16.Checked := AFunctionInfo.SurpportWin16; CBSurppotWin9x.Checked := AFunctionInfo.SurpportWin9x; CBSurppotWinNT.Checked := AFunctionInfo.SurpportWinNT; MemoExample.Text := AFunctionInfo.Example; Result := ShowModal; end; finally FuncInfoForm.Free; end; end;
{ 按下确定按钮 } procedure TFuncInfoForm.BtnConfirmClick(Sender: TObject); begin if EdFuncName.Text = ' then begin Application.MessageBox('函数名不能为空,请重新输入。', '错误', MB_ICONERROR); Exit; end;