Реферат Розробка програмного комплексу ведення бази даних товарів ПРОДОВОЛЬЧИХ магазину

Тема: Новые рефераты

ollbackTrans;;;. AdoConnection1. CommitTrans;. ADOQuery1. Close;. ADOQuery1. Open;. Clear;. Clear;. Clear;. Clear;. Clear;. Clear;. Clear;;

TForm2. BitBtn2Click (Sender: TObject);;;

TForm2. Edit3KeyPress (Sender: TObject; var Key: Char); Key of

«,», «.», «0» .. «9», # 8, # 13: Key:=chr (0);;; TForm2. Edit5KeyPress (Sender: TObject; var Key: Char); Key of

«,», «.», «0» .. «9», # 8, # 13: Key:=chr (0);;;

TForm2. Edit7KeyPress (Sender: TObject; var Key: Char); Key of

«,», «.», «0» .. «9», # 8, # 13: Key:=chr (0);;;

TForm2. FormCreate (Sender: TObject);

;

Лістінг А.3 - код Form3

Unit3;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, ExtCtrls, jpeg;

=class (TForm): TEdit;: TBitBtn;: TImage; Edit1Change (Sender: TObject); BitBtn1Click (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: Char); FormCreate ( Sender: TObject);

{Private declarations}

{Public declarations};

: TForm3;

Unit1;

{$ R *. dfm}

TForm3. Edit1Change (Sender: TObject);. ADOQuery1. Filtered:=false; (Edit1. Text <>" ") then.ADOQuery1. Filter:=« (Cod LIKE" %" + Edit1. Text +" %«) »;. ADOQuery1. Filtered:=true;;; TForm3. BitBtn1Click (Sender: TObject);;;

TForm3. Edit1KeyPress (Sender: TObject; var Key: Char); Key of

«,», «.», «0» .. «9», # 8, # 13: Key:=chr (0);;;

TForm3. FormCreate (Sender: TObject);

;

Лістінг А.4 - код Form4

Unit4;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, Mask, DBCtrls, jpeg, ExtCtrls;

=class (TForm): TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TBitBtn;: TBitBtn;: TImage;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject); DBEdit3KeyPress (Sender: TObject; var Key: Char); DBEdit5KeyPress (Sender: TObject; var Key: Char ); DBEdit7KeyPress (Sender: TObject; var Key: Char); FormCreate (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm4;

Unit1;

{$ R *. dfm}

TForm4. BitBtn1Click (Sender: TObject); MessageDlg («Ві Дійсно Хочете Изменить дані?», MtCustom,, 0) of: Form1.ADOQuery1. ExecSQL;

: Abort;

: Abort;;; TForm4. BitBtn2Click (Sender: TObject);;;

TForm4.DBEdit3KeyPress (Sender: TObject; var Key: Char); Key of

«,», «.», «0» .. «9», # 8, # 13: Key:=chr (0);;;

TForm4.DBEdit5KeyPress (Sender: TObject; var Key: Char); Key of

«,», «.», «0» .. «9...