BGrids, DB, DBTables, ComCtrls,, RpRave, RpDefine, RpCon, RpConDS, RpBase, RpSystem;=class (TForm): TPageControl;: TTabSheet;: TTabSheet;: TTable;: TQuery;: TDataSource;: TDataSource;: TDBGrid;: TTable;: TTable;: TTable;: TDataSource;: TDataSource;: TDataSource;: TDBGrid;: TDBGrid;: TDBGrid;: TRadioGroup; _searsh: TEdit; _N_cli: TEdit; _Fam: TEdit; _Name: TEdit; _Otch: TEdit; _Tel: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel; : TButton;: TLabel;: TDBGrid;: TDBNavigator;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit; _N_cli: TButton;: TTable;: TLabel;: TLabel;: TLabel;: TLabel; _N_meb: TEdit; _N_pro: TEdit; _Dat_zac: TEdit; _Dat_post: TEdit;: TTable;: TDataSource;: TTable;: TDataSource;: TButton;: TButton;: TButton;: TButton;: TButton;: TDataSource;: TPanel;: TPanel;: TRvProject ;: TRvSystem;: TRvDataSetConnection;: TButton;: TButton;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit; _Plus: TButton;: TDBNavigator; _Dop_info: TLabel; _Dop_info: TEdit; Edit_searshChange (Sender: TObject); RegistrationClick (Sender: TObject); Go_N_cliClick (Sender: TObject); TovarClick (Sender : TObject); ProizvodClick (Sender: TObject); OnSearshClick (Sender: TObject); OffSearshClick (Sender: TObject); ZacaziClick (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Tovar_PlusClick (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;
{$ R *. dfm}
/ / процедура пошуку клієнта по ФІОTForm1.Edit_searshChange (Sender: TObject);: string;
/ / вибираємо поля поіскаRadioGroup1.ItemIndex of
: strField:=«Fam»;
: strField:=«Imya»;
: strField:=«Otch»;;
/ / виконуємо поіска.Close;. SQL.Clear;// « LIKE" %" + Edit1.Text +" %» »- Шукаємо фрагмент текста.SQL.Add («Select * from meb_client where» + strField + «LIKE «»+Edit_searsh.Text+«%»»);.Open;.FieldByName(«Fam»).DisplayLabel:=«Фамилия»;.FieldByName(«Name»).DisplayLabel:=«Имя»;.FieldByName(«Otch»).DisplayLabel:=«Отчество»;
end;
/ / процедура введення даних про новий замовленні
procedure TForm1.RegistrationClick (Sender: TObject);. Append;// Додаємо дані в таблицю meb_client.FieldByName («N_cli»). AsString:=Edit_N_cli.Text;. FieldByName («Fam»). AsString:=Edit_Fam.Text;. FieldByName («Name»). AsString: =Edit_Name.Text;. FieldByName («Otch»). AsString:=Edit_Otch.Text;. FieldByName («Tel»). AsString:=Edit_Tel.Text;. Post;. Append;// Додаємо дані в таблицю meb_zacaz.FieldByName («N_cli»). AsString:=Edit_N_cli.Text;. FieldByName («N_pro»). AsString:=Edit_N_pro.Text;. FieldByName («N_meb»). AsString: =Edit_N_meb.Text;. FieldByName («Dat_zac»). AsString:=Edit_Dat_zac.Text;. FieldByName («Dat_post»). AsString:=Edit_Dat_post.Text;. FieldByName («Dop_info»). AsString:=Edit_Dop_info . Text;
Table5.Post;;
/ / процедура переходу до потрібного № клієнта
procedure TForm1.Go_N_cliClick (Sender: TObject);. SetKey;. FieldByName («N_cli»). AsStr...
