Системное и прикладное программное обеспечение, используемое в организации

        procedure Button3Click(Sender: TObject);

        procedure Button4Click(Sender: TObject);

        procedure Button5Click(Sender: TObject);

        procedure Button2Click(Sender: TObject);

        procedure Button6Click(Sender: TObject);

        procedure Button7Click(Sender: TObject);

        procedure FormClose(Sender: TObject; var Action: TCloseAction);

      private

        { Private declarations }

      public

        { Public declarations }

      end; 

    var

      Form3: TForm3;

      parol:string;

        MyFile: TextFile;

      implementation 

    uses Unit1, Unit2, FMPRINTU; 

    {$R *.dfm} 

    procedure TForm3.Button1Click(Sender: TObject);

    begin

    form3.visible:=false;

    form1.Show;

    form2.table1.Filtered:=false;

    end; 

    procedure TForm3.FormShow(Sender: TObject);

    begin

    form2.TABLE1.EDIT;

    form2.table1.post;

    button2.Visible:=false;

    button4.Visible:=false;

    edit1.Visible:=false;

    label1.Visible:=false;

    form2.table1.active:=true; 

    end; 

    procedure TForm3.Button3Click(Sender: TObject);

    begin

    edit1.Visible:=true;

    button4.Visible:=true;

    label1.Visible:=true;

    //button2.Visible:=true; 

    end; 

    procedure TForm3.Button4Click(Sender: TObject);

    begin

    parol:='Волоколамск';

    if edit1.Text=parol then

    button2.Visible:=true

    else

    begin

    showmessage('Неверный  пароль');

    button2.Visible:=false;

    button4.Visible:=false;

    edit1.Visible:=false;

    label1.Visible:=false

    end;

    end; 

    procedure TForm3.Button5Click(Sender: TObject);

    begin

    dbgrid1.DataSource:=datasource1;

    form2.table1.filtered:=true;

    end; 

    procedure TForm3.Button2Click(Sender: TObject);

    begin

    form2.Table1.delete;

    end; 

    procedure TForm3.Button6Click(Sender: TObject);

    begin

    form2.table1.Filtered:=false;

    end; 

    procedure TForm3.Button7Click(Sender: TObject);

    var z:string;

    begin

    dbgrid1.DataSource:=datasource2;

    z:='select * from BAZA where ';

    z:=z + 'Kluch_slov like ' + '"'+edit2.Text+'%"';

    Query1.SQL.clear;

    Query1.SQL.Add(z);

    Query1.Active:=true;

    end; 

    procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

    begin

    form3.visible:=false;

    form1.Show;

    form2.table1.Filtered:=false;

    end; 

    end. 

    unit Unit4; 

    interface 

    uses

      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

      Dialogs, StdCtrls, ExtCtrls, QuickRpt, DB, Grids, DBGrids, QRCtrls, Menus,

      registry, jpeg; 

    type

      TForm4 = class(TForm)

        Timer1: TTimer;

        Image1: TImage;

        UserName: TLabel;

        Organization: TLabel;

        Label1: TLabel;

        Label2: TLabel;

        Label3: TLabel;

        procedure Button1Click(Sender: TObject);

        procedure Button2Click(Sender: TObject);

        procedure N2Click(Sender: TObject);

        procedure FormKeyDown(Sender: TObject; var Key: Word;

          Shift: TShiftState);

        procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

          Shift: TShiftState; X, Y: Integer);

        procedure Timer1Timer(Sender: TObject);

        procedure FormClose(Sender: TObject; var Action: TCloseAction);

        procedure FormCreate(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end; 

    var

      Form4: TForm4; 

    implementation 

    uses Unit1, Unit2, Unit3; 

    {$R *.dfm} 

    procedure TForm4.Button1Click(Sender: TObject);

    begin

    form4.visible:=false;

    form1.Show;

    end; 

    procedure TForm4.Button2Click(Sender: TObject);

    begin

    form4.visible:=false;

    form1.Show;

    form2.table1.Filtered:=false;

    end; 

    procedure TForm4.N2Click(Sender: TObject);

    begin

    form4.Print;

    end; 

    procedure TForm4.FormKeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    begin

    close;

    end; 

    procedure TForm4.FormMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    begin

    close;

    end; 

    procedure TForm4.Timer1Timer(Sender: TObject);

    begin

    close;

    end; 

    procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

    begin

    action:=cafree;

    end; 

    procedure TForm4.FormCreate(Sender: TObject);

   var r:Tregistry;

    product:tregistry;

    begin

    product:=tregistry.Create;

    r:=TRegistry.Create;

    product.RootKey:=HKEY_LOCAL_MACHINE;

    r.RootKey:=HKEY_LOCAL_MACHINE;

    product.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion',false);

    if product.ReadString('ProductName')='Microsoft Windows XP' then

    begin

    r.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion',false);

    UserName.Caption:=r.ReadString('RegisteredOwner');

    Organization.Caption:=r.ReadString('RegisteredOrganization');

    r.Free;

    product.free;

    end

    else

    begin

    r.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',false);

    UserName.Caption:=r.ReadString('RegisteredOwner');

    Organization.Caption:=r.ReadString('RegisteredOrganization');

    r.Free;

    product.free;

    end;

    form4.showmodal; 

    end; 

    end.

-----------------------

Руководитель  практики

от предприятия 

(должность, Ф.И.О.)

___________________________

(подпись и  печать)

Дата_______________________ 

Руководитель  практики

от техникума 

(должность, Ф.И.О.)

___________________________

(подпись и  печать)

Дата_______________________