Учет вычислительной техники на предприятии StringGrid

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.Show;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
FName := edit1.text;
AssignFile (FV,Edit1.Text);
Rewrite(FV);
MessageDlg('База '+FName+' была успешно создана ',mtConfirmation,[mbOK],0);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
If FileExists(ComboBox1.Text)=false then
MessageDlg('Файла '+FName+' не существует!', mtWarning,[mbOK],0)
 else
begin
AssignFile(FV,ComboBox1.Text);
Reset(FV);
Form2.StringGrid1.Cells[0,0]:='Инвентарный №';
Form2.StringGrid1.Cells[1,0]:='ТИП';
Form2.StringGrid1.Cells[2,0]:='Модель';
Form2.StringGrid1.Cells[3,0]:='Отдел';
Form2.StringGrid1.Cells[4,0]:='ФИО';
Form2.StringGrid1.Cells[5,0]:='Кабинет';
 
Form2.StringGrid1.ColWidths[0]:=200;
Form2.StringGrid1.ColWidths[1]:=100;
Form2.StringGrid1.ColWidths[2]:=100;
Form2.StringGrid1.ColWidths[3]:=100;
Form2.StringGrid1.ColWidths[4]:=100;
Form2.StringGrid1.ColWidths[5]:=100;
with RV do begin
while not EOF(FV) do begin
Read(FV,RV);
I:=I+1;
Form2.StringGrid1.RowCount:=I+1;
Form2.StringGrid1.Cells[0,I]:=name;
Form2.StringGrid1.Cells[1,I]:=date;
Form2.StringGrid1.Cells[2,I]:=region;
Form2.StringGrid1.Cells[3,I]:=osnov;
Form2.StringGrid1.Cells[4,I]:=vid;
Form2.StringGrid1.Cells[5,I]:=kategoriya;
 Form2.Show;
end;
end;
end;
end;
 
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 
end;
 
end.

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, StdCtrls, jpeg, ExtCtrls, DBGrids, DB, ADODB;
 
type
  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    Button1: TButton;
    Edit2: TEdit;
    procedure N8Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
 
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 type
Pam=record
name:string[30];
date:string[30];
region:string[30];
osnov:string[30];
vid:string[15];
kategoriya:string[15];
end;
 
var FV:file of Pam;
RV:Pam;
s:string;
J:longint;
X:integer;
KL:integer;
I:integer;
FName:string[25];
var
  Form2: TForm2;
 
 
implementation
 
uses Unit3, Unit1, Unit4;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
 
var
  S : TStrings;
  St : String;
  i, Row : Integer;
begin
  St := edit2.text;
  S := StringGrid1.Cols[0];
  Row := -1;
  for i := StringGrid1.FixedCols to S.Count - 1 do begin
    if Pos(St, S.Strings[i]) > 0 then begin
      Row := i;
      Break;
    end;
  end;
 
  if Row > -1 then begin
    ShowMessage('Шаблон найден в строке с индексом: ' + IntToStr(Row));
  end else begin
    ShowMessage('Шаблон не найден.');
  end;
end;
 
 
 
 
 
 
procedure TForm2.N11Click(Sender: TObject);
begin
Form3.show;
Form3.Edit1.text:='';
Form3.Edit2.text:='';
Form3.Edit3.text:='';
Form3.Edit4.text:='';
Form3.Edit5.text:='';
Form3.Edit6.text:='';
end;
 
procedure TForm2.N3Click(Sender: TObject);
begin
Form4.show;
end;
 
 
 
 
procedure TForm2.N8Click(Sender: TObject);
begin
form2.Close;
Form1.Close;
end;
 
end.

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, DBClient;
 
type
  TForm3 = class(TForm)
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Button1: TButton;
    Button2: TButton;
 
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
Uses Unit1,Unit2;
{$R *.dfm}
 
 
 
procedure TForm3.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm3.Edit1Enter(Sender: TObject);
begin
TEdit(Sender).Color := clsilver;
end;
 
procedure TForm3.Edit1Exit(Sender: TObject);
begin
TEdit(Sender).Color := clWindow;
end;
 
end.