Курсовая работа: Информационная система для автоматизации операций в отношениях между поставщиком и заказчиком

begin

log0:=edit1.Text;

pas0:=edit2.Text;

if (log=log0) and (pas=pas0) then begin Form2.show; form1.Hide; end else

if (log<>log0) or (pas<>pas0) then showmessage('введены не верно login\password ');

end;

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Mask, Grids, DBGrids,

XPMan, ComCtrls, jpeg;

type

TForm2 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

GroupBox1: TGroupBox;

Button1: TButton;

XPManifest1: TXPManifest;

DBGrid1: TDBGrid;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;