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

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label8: TLabel;

Label9: TLabel;

Panel2: TPanel;

Panel3: TPanel;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Table1: TTable;

Label10: TLabel;

DBText1: TDBText;

DataSource2: TDataSource;

Query1: TQuery;

Query1Material: TStringField;

procedure FormCreate(Sender: TObject); public

FCode: Integer; function EditTub( Table: TTable; IsNew: Boolean; Code: Integer):

Boolean; end;

var
EdTubForm: TEdTubForm;

function EditDataTub(Table: TTable; IsNew: Boolean; Code: Integer):

Boolean;

implementation

{$R *.DFM}

function EditDataTub(Table: TTable; IsNew: Boolean; Code: Integer):

Boolean; begin
Result := False; with TEdTubForm.Create(Application) do try

FCode := Code;

Result := EditTub(Table, IsNew, Code); finally

Free; end; end;

function TEdTubForm.EditTub(Table: TTable; IsNew: Boolean; Code:

Integer): Boolean; begin if Table nil then

DataSource1.DataSet := Table else begin

Table1.Open;

DataSource1.DataSet := Table1; end; if IsNew then begin

DataSource1.DataSet.Append;

DataSource1.DataSet.FieldByName('Stuff').AsInteger := Code; end else DataSource1.DataSet.Edit;
Result := ShowModal = mrOk; if Result then

DataSource1.DataSet.Post else

DataSource1.DataSet.Cancel; end;

procedure TEdTubForm.FormCreate(Sender: TObject); begin
Query1.Active := False;
Query1.ParamByName('St').AsInteger := FCode;
Query1.Active := True; end;

end.

unit EditUser;

interface

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

type

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





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