[i];:=p1 + st2 [i]; i=a then p1:=p1 + st1 [i +1];;:=Trim (p1); MaskEdit1. Text=p then; z=0 then:=1;. Show. Enabled:=True;. Show;; («Невірний пароль» + # 13 +
Продовження додатка Б
« Повторіть спробу »);. Text:=«»;. SetFocus;; («Програма зробила» + # 13 +
« Неприпустиму операцію і »+ # 13 +
« буде закрита »+ # 13 +
« Зверніться в IT-відділ »);;; (f);; TForm1. FormCreate (Sender: TObject);:=0;;. Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, XPMan, ComCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, DB,, Buttons, Mask, OleServer, Excel2000;=class (TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TXPManifest;: TMenuItem;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TDBGrid;: TDataSource;: TTable; : TComboBox;
Продовження додатка Б: TLabel;: TLabel;: TEdit;: TLabel;: TEdit;: TBitBtn;: TDBGrid;: TComboBox;: TEdit;: TLabel;: TComboBox;: TLabel;: TLabel; : TBitBtn;: TQuery;: TDataSource;: TBitBtn;: TMaskEdit;: TMaskEdit;: TCheckBox;: TComboBox;: TComboBox;: TEdit;: TLabel;: TCheckBox;: TMaskEdit;: TMaskEdit;: TLabel;: TLabel;: TDBGrid ;: TQuery;: TDataSource;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TExcelApplication;: TBitBtn;: TBitBtn;: TStringGrid; FormClose (Sender: TObject; var Action: TCloseAction); N3Click (Sender: TObject);
Продовження додатка БN4Click (Sender: TObject); ComboBox1Change (Sender: TObject); Edit1KeyUp (Sender: TObject; var Key: Word;: TShiftState); BitBtn1Click (Sender: TObject); Edit2KeyUp (Sender: TObject; var Key: Word;: TShiftState); TabSheet2Show (Sender: TObject); TabSheet1Show (Sender: TObject); TabSheet3Show (Sender: TObject); ComboBox2Change (Sender: TObject); FormCreate (Sender: TObject); ComboBox3Change (Sender: TObject); BitBtn2Click (Sender: TObject); BitBtn3Click (Sender: TObject); ComboBox4Change (Sender: TObject); ComboBox5Change (Sender: TObject); BitBtn5Click (Sender: TObject); BitBtn4Click (Sender: TObject); BitBtn6Click (Sender: TObject ); BitBtn7Click (Sender: TObject); BitBtn8Click (Sender: TObject); BitBtn9Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm2; Unit1, Unit3, Unit5, Unit6;
{$ R *. dfm} TForm2. FormClose (Sender: TObject; var Action: TCloseAction);. Close;; TForm2. N3Click (Sender: TObject);:=false;. Show;;
Продовження додатка БTForm2. N4Click (Sender: TObject);:=false;. MaskEdit1. Text:=«»;. Show;; TForm2boBox1Change (Sender: TObject); ComboBox1. ItemIndex of
: begin. Text:=«»;. Text:=«»;. Caption:=«Пошук по Тавара»;. Caption:=«Пошук по Картки»;. Filtered:=false;. Filter:=«»;. Active:=false;. TableName:=«sale. db »;. Filtered:=false;. Active:=true;;
: begin. Text:=«»;. Text:=«»;. Caption:=«Пошук по Тавара»;. Caption:=«Пошук за Назвою»;. Filtered:=false;. Filter:=«»;. Active:=false;. TableName:=«goods. db »;. Filtered:=false;. Active:=true;;
: begin. Text:=«»;. Text:=«»;. Caption:=«Пошук за прізвищем»;. Caption:=«Пошук по Картки»;. Filtered:=false;. Filter:=«»;. Active:=false;. TableName:=«cards. db »;
Продовження додатка Б. Filtered:=false;. Active:=true;;;; TForm2. Edit1KeyU...
