Editors: array of TDBComboBox; - >具體進(jìn)行編輯所用的數(shù)據(jù)控件數(shù)組，動(dòng)態(tài)生成 Labels: array of TLabel; - >各字段的標(biāo)題，動(dòng)態(tài)生成
---- 采用TDBComboBox優(yōu)點(diǎn)是它不僅能具有一般的編輯功能，還能為各字段添加相應(yīng)的提示信息。代碼如下： { 為第I字段增加提示信息的方法} PRocedure TDBPanel.AddHits (ItemIndex: Integer; Hits: array of string); var m,n,i: Integer; begin n := Length(Editors); m := Length(Hits); if ItemIndex< n then begin for i:=0 to m-1 do Editors[ItemIndex].Items.Add(Hits[i]); end; end;
procedure Register; begin RegisterComponents('Additional', [TDBPanel]); end;
{ 為第I字段增加提示信息的方法} procedure TDBPanel.AddHits(ItemIndex: Integer; Hits: array of string); var m,n,i: Integer; begin n := Length(Editors); m := Length(Hits); if ItemIndex< n then begin for i:=0 to m-1 do Editors[ItemIndex].Items.Add(Hits[i]); end; end;
procedure TDBPanel.AKeyDown (Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Sender is TDBComboBox) then begin case Key of VK_Next: (Sender as TDBComboBox) .DataSource.DataSet.Next; VK_PRIOR: (Sender as TDBComboBox) .DataSource.DataSet.Prior; end; end; end;
procedure TDBPanel.AKeyPress(Sender: TObject; var Key: Char); begin if (Sender is TDBComboBox) then begin if Key=#13 then (Owner as TForm).Perform(WM_NEXTDLGCTL, 0, 0); end; end;
procedure TDBPanel.ClearHits(ItemIndex: Integer); var n: Integer; begin n := Length(Editors); if ItemIndex< n then Editors[ItemIndex].Items.Clear; end;
{ 創(chuàng)建各字段的數(shù)據(jù)輸入控件的方法} procedure TDBPanel.CreateEditors;// (DS: TDataSource; ColCount: Integer); var i, n, RowCount: Integer; TextHeight: Integer; begin if DataSource.DataSet.Active then begin n := DataSource.DataSet.FieldCount; { 計(jì)算最大的標(biāo)題長(zhǎng)度及顯示長(zhǎng)度} DataSource.DataSet.First; { 計(jì)算高度} TextHeight := Canvas.TextHeight(DataSource .DataSet.Fields[0].DisplayLabel) + FLineHeight; //10; { 計(jì)算行列數(shù)} RowCount := n div Columns; if n mod Columns < > 0 then inc(RowCount); { 分配內(nèi)存} FreeEditors; SetLength(Editors, n); SetLength(Labels, n); { 創(chuàng)建滾動(dòng)盒} FScrollBox := TScrollBox.Create(Owner); FScrollBox.Parent := Self; FScrollBox.Align := alClient; { 創(chuàng)建編輯} for i:=0 to n-1 do begin { 創(chuàng)建標(biāo)題} Labels[i] := TLabel.Create(Owner); Labels[i].Parent := FScrollBox; //Self; Labels[i].Caption := DataSource.DataSet.Fields[i].DisplayLabel; Labels[i].Left := FLeft + (maxLabelLen + maxTextLen + 10) * (i div RowCount); Labels[i].Width := maxLabelLen; Labels[i].Top := FTop + (i mod RowCount) * TextHeight + 5; { 創(chuàng)建編輯對(duì)象} Editors[i] := TDBComboBox.Create(Owner); Editors[i].Parent := FScrollBox; //Self; Editors[i].Left := Labels[i].Left + Labels[i].Width; Editors[i].Width := maxTextLen; Editors[i].Top := FTop + (i mod RowCount) * TextHeight; Editors[i].DataSource := DataSource; Editors[i].DataField := DataSource.DataSet.Fields[i].FieldName; Editors[i].OnKeyPress := AKeyPress; Editors[i].OnKeyDown := AKeyDown; end; { 創(chuàng)建Ok按鈕} OkButton := TButton.Create(Owner); OkButton.Parent := FScrollBox; OkButton.Left := Editors[n-1].Left; OkButton.Top := Editors[n-1].Top + TextHeight; OkButton.Caption := '確定'; OKButton.OnClick := FClick; end; end;
destructor TDBPanel.Destroy; begin FreeEditors; Inherited Destroy; end;
function TDBPanel.Editor(Index: Integer): TDBComboBox; begin if Index< Length(Editors) then Result := Editors[Index] else Result := nil; end;
procedure TDBPanel.FreeEditors; var i,n: Integer; begin { 內(nèi)存的釋放是要有順序的！必須以創(chuàng)建的相反的順序進(jìn)行！ 尤其是當(dāng)組件之間有父子關(guān)系時(shí)} if OkButton< >nil then OkButton.Free; if Editors< >nil then begin n := Length(Editors); for i:=0 to n-1 do Editors[i].free; Editors := nil; n := Length(Labels); for i:=0 to n-1 do Labels[i].Free; Labels := nil; end; if FScrollBox< >nil then begin FScrollBox.Free; FScrollBox := nil; end; end;
