Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26 | Следующая страница реферата

Panel1: TPanel; rxDBLookupCombo1: TrxDBLookupCombo;

TableSTUFF: TTable;

DataSourceSTUFF: TDataSource;

DBGrid1: TDBGrid;

DataSourceDATA: TDataSource;

TableDATA: TTable;

TableDATAMass: TFloatField;

TableDATAR_press: TFloatField;

TableDATAR_stretch: TFloatField;

TableDATAPuasson: TFloatField;

TableDATAR1: TFloatField;

TableDATARb: TFloatField;

TableDATAR: TFloatField;

TableDATAA: TFloatField;

TableDATAB: TFloatField; rxDBFilter1: TrxDBFilter;

TableDATAStuff: TSmallintField;

DBNavigator1: TDBNavigator;

procedure rxDBLookupCombo1Change(Sender: TObject); procedure DBNavigator1Click(Sender: TObject; Button:

TNavigateBtn); procedure DBGrid1DblClick(Sender: TObject);

private

{ Private declarations } public

{ Public declarations } end;

var
EditDataForm: TEditDataForm;

implementation

{$R *.DFM}

uses

EditForm;

procedure TEditDataForm.rxDBLookupCombo1Change(Sender: TObject); var
S: String; begin rxDBFilter1.Deactivate; rxDBFilter1.Filter.Clear; s:='Stuff = '+TableSTUFF.FieldByName('Code').AsString; rxDBFilter1.Filter.Add(S); rxDBFilter1.Activate; end;

procedure TEditDataForm.DBNavigator1Click(Sender: TObject; Button:

TNavigateBtn); begin case Button of nbInsert: begin

EditDataTub(TableDATA, True,

TableSTUFF.FieldByName('Code').AsInteger); end; nbEdit: begin

EditDataTub(TableDATA, False,

TableSTUFF.FieldByName('Code').AsInteger); end; end; end;

procedure TEditDataForm.DBGrid1DblClick(Sender: TObject); begin
EditDataTub(TableDATA, False,

TableSTUFF.FieldByName('Code').AsInteger); end;

end.

unit Editform;

interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, DB,
DBTables, Buttons;

type

TEdTubForm = class(TForm)

DataSource1: TDataSource;

Panel1: TPanel;

DBEdit1: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Рекомендуем скачать другие рефераты по теме: реферат экологические проблемы, изложение по русскому языку 7, взаимодействие реферат.





Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26 | Следующая страница реферата