Статьи Королевства Дельфи


L1_pas


unit F_TbDlg;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Db, DBTables, DbItf, Buttons, DbItfT;

type

TTbDlgFr = class (TForm)

TbNameEdit: TEdit;

TbCaptionEdit: TEdit;

TbDescrEdit: TEdit;

OkBtn: TButton;

CancelBtn: TButton;

TbDbTypeComboBox: TComboBox;

Label1: TLabel;

procedure CancelBtnClick(Sender: TObject);

procedure OkBtnClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure TbNameEditKeyPress(Sender: TObject; var Key: Char);

procedure TbNameEditKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

FDbInterface : TDbInterface;

FpTInfoCategory : pTInfoCategory;

procedure Set_FDbInterface(const Value: TDbInterface);

Function Init : Bool;

procedure Set_FpTInfoCategory(const Value: pTInfoCategory);

public

function Execute : Bool;

Property ppTInfoCategory : pTInfoCategory read FpTInfoCategory

write Set_FpTInfoCategory;

published

Property DbInterface : TDbInterface read FDbInterface

write Set_FDbInterface;

end;

Var

TbDlgFr : TTbDlgFr;

implementation

uses F_TbDef;

{$R *.DFM}

{ TTbDlgFr }

function TTbDlgFr.Execute: Bool;

Var

k : Integer;

wpTInfoCategory : pTInfoCategory;

begin

k := TbDbTypeComboBox.ItemIndex;

// При приеме данных от пользователя - добавить префикс

wpTInfoCategory := pTInfoCategory(TbDbTypeComboBox.Items.Objects[k]);

FDbInterface.N_pTTableInfo.sTableAttr.Values['sTableName'] :=

wpTInfoCategory.sPrefix + TbNameEdit.Text;

FDbInterface.N_pTTableInfo.sTableAttr.Values['sTableAccess'] := '';

FDbInterface.N_pTTableInfo.sTableAttr.Values['sTableCaption'] := TbCaptionEdit.Text;

FDbInterface.N_pTTableInfo.sTableAttr.Values['sTableDescr'] := TbDescrEdit.Text;

Result := True;

end;

procedure TTbDlgFr.CancelBtnClick(Sender: TObject);

begin

Close;

end;

procedure TTbDlgFr.OkBtnClick(Sender: TObject);

Var

wTableName : String;

begin

// В имя таблицы нужно добавить префикс категории информации




Начало  Назад  Вперед



Книжный магазин