Тұтынушыларды қолдау бөлімі орталығының клиент-серверлік қосымшасын құру

begin

form9.Close;

end;

end.

 

unit Unit10;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls,unit2, Mask, Buttons, DB, ADODB;

 

type

  Tlogin = class(TForm)

    Edit1: TEdit;

    Panel1: TPanel;

    Label1: TLabel;

    Panel2: TPanel;

    Image1: TImage;

    Panel3: TPanel;

    Button2: TButton;

    ADOQuery1: TADOQuery;

    BitBtn1: TBitBtn;

    Edit2: TEdit;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    procedure Button2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure Edit2Change(Sender: TObject);

 private

    { Private declarations }

 public

    { Public declarations }

end;

 

var

login: Tlogin;    d:string;

implementation

uses Unit1, Unit11, Unit13,unit14;

{$R *.dfm}

 

Procedure

Tlogin.Button2Click(Sender: TObject);

begin

login.Close;

splash.Close;

end;

 

procedure Tlogin.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

   ADOQuery1.SQL.add('SELECT * FROM kyzmetkerler WHERE логин='''+edit1.Text+'''AND пароль='''+Edit2.Text+''' ');

ADOQuery1.Open;

if  not ADOQuery1.IsEmpty then

begin

if d='оператор' then

begin

titul.n1.visible:=true;

titul.n4.visible:=false;

titul.n5.visible:=false;

titul.n7.visible:=false;

titul.show;

end

else if ((d='ББ') or (d='ТБ')) then

begin

titul.n1.visible:=false;

titul.n4.visible:=true;

titul.n5.visible:=false;

titul.n7.visible:=false;

titul.n6.visible:=true;

titul.n10.visible:=true;

titul.show;

end

else if d='МБ' then

begin

titul.n1.visible:=false;

titul.n5.visible:=false;

titul.n4.visible:=true;

titul.n7.visible:=true;

titul.n6.visible:=false;

titul.n10.visible:=false;

titul.show;

end

else if d='админ' then

begin

titul.n1.visible:=false;

titul.n5.visible:=true;

titul.n4.visible:=false;

titul.n7.visible:=false;

titul.n6.visible:=false;

titul.n10.visible:=false;

titul.Show;

end

     end

     else

     begin

     error.show;

     end;

end;

 

procedure Tlogin.Edit2Change(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT DISTINCT [аты-жони] FROM kyzmetkerler

WHERE логин='''+edit1.Text+''' ');

ADOQuery1.Open;  label3.Caption:=ADOQuery1.Fields[0].AsString;

ADOQuery1.Close;  ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT DISTINCT [кызмет болими] FROM kyzmetkerler WHERE логин='''+edit1.Text+''' ');

ADOQuery1.Open;

  label4.Caption:=ADOQuery1.Fields[0].AsString;

d:=trim(ADOQuery1.Fields[0].AsString);

end;

end.

 

unit Unit11;

interface

uses

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

  Dialogs, ExtCtrls, jpeg;

type

  Tsplash = class(TForm)

    Image1: TImage;

    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

splash: Tsplash;

implementation

uses Unit10;

{$R *.dfm}

 

procedure Tsplash.Timer1Timer(Sender: TObject);

begin

splash.hide;

login.Show;

timer1.Enabled:=false;

end;

end.

 

unit Unit12;

interface

uses

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

  Dialogs, ExtCtrls, QuickRpt, QRCtrls, DB, ADODB;

type

  Treport = class(TForm)

    QuickRep1: TQuickRep;

    QRBand1: TQRBand;

    QRLabel1: TQRLabel;

    ChildBand1: TQRChildBand;

    QRLabel2: TQRLabel;

    ChildBand2: TQRChildBand;

    ChildBand3: TQRChildBand;

    ChildBand4: TQRChildBand;

    QRLabel3: TQRLabel;

    QRLabel4: TQRLabel;

    QRLabel5: TQRLabel;

    ChildBand5: TQRChildBand;

    ChildBand6: TQRChildBand;

    QRLabel6: TQRLabel;

    QRLabel7: TQRLabel;

    QRDBText1: TQRDBText;

    QRDBText2: TQRDBText;

    QRDBText3: TQRDBText;

    QRDBText4: TQRDBText;

    QRDBText5: TQRDBText;

    QRDBText6: TQRDBText;

    QRDBText7: TQRDBText;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  report: Treport;

 

implementation

{$R *.dfm}

end.

 

unit Unit13;

interface

uses

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

Dialogs, jpeg, ExtCtrls;

 

type

  TMessage = class(TForm)

    Panel1: TPanel;

    Panel2: TPanel;

    Image1: TImage;

    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Message: TMessage;

implementation

{$R *.dfm}

procedure TMessage.Timer1Timer(Sender: TObject);

begin

message.Close;

end;

 

procedure TMessage.FormActivate(Sender: TObject);

begin

timer1.Enabled:=true;

end;

end.

 

unit Unit14;

interface

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls;

 

type

  Terror = class(TForm)

    Panel1: TPanel;

    Image1: TImage;

    Panel2: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);

    procedure Image1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

error: Terror;

implementation

{$R *.dfm}

 

procedure Terror.Timer1Timer(Sender: TObject);

begin

error.Close;

end;

 

procedure Terror.Image1Click(Sender: TObject);

begin

error.Close;

end;

 

procedure Terror.FormActivate(Sender: TObject);

begin

timer1.Enabled:=true;

end;

end.