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

 

procedure Tfsuranys.FormCreate(Sender: TObject);

begin

label9.Caption:=login.Label3.Caption;

edit5.Text:=datetostr(date);

label6.Caption:=datetostr(date);

label7.Caption:=timetostr(time);

end;

 

procedure Tfsuranys.Button1Click(Sender: TObject);

begin

adoQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('insert into suranys(Клиент,[Куалик номери],[Техника атауы],[Техника акауы],[Кабылдау куни]) values('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''') ');

ADOQuery1.ExecSQL;

dbgrid1.DataSource.DataSet.Active:=false;

dbgrid1.DataSource.DataSet.Active:=true;

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.Clear;

end;

 

procedure Tfsuranys.Button2Click(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Delete;

end;

end.

 

unit Unit4;

interface

uses

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

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

 Menus,comobj, jpeg;

 

type

  Tfsuranystekseru = class(TForm)

    DBGrid1: TDBGrid;

    Panel1: TPanel;

    RadioGroup1: TRadioGroup;

    Button1: TButton;

    Button2: TButton;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    ComboBox1: TComboBox;

    ADOQuery1: TADOQuery;

    ComboBox2: TComboBox;

    Panel2: TPanel;

    Panel3: TPanel;

    Image1: TImage;

    Panel4: TPanel;

    Panel5: TPanel;

    Panel6: TPanel;

    Panel7: TPanel;

    Label1: TLabel;

    Panel8: TPanel;

    Panel9: TPanel;

    operator: TLabel;

    procedure N1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

 private

    { Private declarations }

 public

    { Public declarations }

 end;

 

var

 fsuranystekseru: Tfsuranystekseru;

implementation

uses Unit12;

{$R *.dfm}

procedure Tfsuranystekseru.N1Click(Sender: TObject);

begin

fsuranystekseru.Close;

end;

 

procedure Tfsuranystekseru.Button1Click(Sender: TObject);

begin

if radiogroup1.ItemIndex=0 then

begin

datamodule2.ADOsuranys.SQL.Clear;

datamodule2.ADOsuranys.SQL.Add('select * from suranys');

datamodule2.ADOsuranys.SQL.Add('where [Сураныс коды]='+fsuranystekseru.combobox1.Text);

datamodule2.ADOsuranys.Open;

end

else if radiogroup1.ItemIndex=1 then

begin

datamodule2.ADOsuranys.SQL.Clear;

datamodule2.ADOsuranys.SQL.Add('select * from suranys');

datamodule2.ADOsuranys.SQL.Add('where [Куалик номери]='+fsuranystekseru.combobox2.Text);

datamodule2.ADOsuranys.Open;

end

else showmessage('Ондай малимет жок');

end;

 

procedure Tfsuranystekseru.RadioGroup1Click(Sender: TObject);

begin

if radiogroup1.ItemIndex=0 then

begin

combobox2.Enabled:=false;

combobox1.Enabled:=true;

end

else if  radiogroup1.ItemIndex=1 then

begin

combobox2.Enabled:=true;

combobox1.Enabled:=false;

end

end;

 

procedure Tfsuranystekseru.FormActivate(Sender: TObject);

begin

operator.Caption:=login.Label3.Caption;

 

 ADOQuery1.Close;

 ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add('SELECT DISTINCT [сураныс коды] FROM suranys');

 ADOQuery1.Open;

ComboBox1.Items.Clear;

While not ADOQuery1.Eof do

begin

     ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);

ADOQuery1.Next;

end;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add('SELECT DISTINCT [куалик номери] FROM suranys');

ADOQuery1.Open;

 

ComboBox2.Items.Clear;

While not ADOQuery1.Eof do begin    ComboBox2.Items.Add(ADOQuery1.Fields[0].AsString);

     ADOQuery1.Next;

 end;

label1.Caption:=datetostr(date);

end;

 

procedure Tfsuranystekseru.Button2Click(Sender: TObject);

begin

report.QuickRep1.Preview;

end;

end.

 

unit Unit5;

interface

uses

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

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

Menus;

 

type

  Tsuranysoryndau = class(TForm)

    ComboBox1: TComboBox;

    Panel1: TPanel;

    Panel2: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit3: TEdit;

    Label5: TLabel;

    Button1: TButton;

    ADOQuery1: TADOQuery;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    ComboBox2: TComboBox;

    Label4: TLabel;

    Button2: TButton;

    ComboBox3: TComboBox;

    n2: TMenuItem;

    Panel3: TPanel;

    Edit1: TEdit;

    Edit2: TEdit;

    Panel4: TPanel;

    Panel5: TPanel;

    Panel6: TPanel;

    procedure FormCreate(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure ComboBox3Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  suranysoryndau: Tsuranysoryndau;

implementation

 

uses Unit13;

 

{$R *.dfm}

 

procedure Tsuranysoryndau.FormCreate(Sender: TObject);

begin

edit3.Text:=datetostr(date);

 

 

ADOQuery1.Close;

ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT DISTINCT деталь FROM zap4asti');

ADOQuery1.Open;

 

ComboBox2.Items.Clear;

While not ADOQuery1.Eof do

begin

     ComboBox2.Items.Add(ADOQuery1.Fields[0].AsString);

ADOQuery1.Next;

end;

end;

 

procedure Tsuranysoryndau.N1Click(Sender: TObject);

begin

suranysoryndau.Close;

end;

 

procedure Tsuranysoryndau.ComboBox1Change(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT DISTINCT [болим аты] FROM bbolim');

  ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox1.Text+'''');

ADOQuery1.Open;

edit1.Text:=adoquery1.Fields[0].AsString;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT DISTINCT [инженер аты] FROM bbolim');

ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox1.Text+'''');

ADOQuery1.Open;

edit2.Text:=adoquery1.Fields[0].AsString;

end;

 

procedure Tsuranysoryndau.Button1Click(Sender: TObject);

var a:string;

begin

a:='+';

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add('update suranys set орындалуы='''+a+''' ');

ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox1.Text+''' ');

ADOQuery1.ExecSQL;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('update suranys set [орындалган куни]='''+edit3.Text+''' ');

ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox1.Text+''' ');

ADOQuery1.ExecSQL; ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('update suranys set болим='''+edit1.Text+''' ');

ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox1.Text+''' ');

ADOQuery1.ExecSQL;

message.show;

end;

 

procedure Tsuranysoryndau.Button2Click(Sender: TObject);

var a:string;

begin

a:='+';

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('update suranys set орындалуы='''+a+''' ');

ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox3.Text+''' ');

ADOQuery1.ExecSQL;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('update suranys set [орындалган куни]='''+edit3.Text+''' ');

ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox3.Text+''' ');

ADOQuery1.ExecSQL;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add('update suranys set болим='''+edit1.Text+''' ');

ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox3.Text+''' ');

ADOQuery1.ExecSQL;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add('update tbolim set детальдер='''+combobox2.Text+''' ');

ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox3.Text+''' ');

ADOQuery1.ExecSQL;

message.show;

end;

 

procedure Tsuranysoryndau.ComboBox3Change(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add('SELECT DISTINCT [болим аты] FROM tbolim'); ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox3.Text+'''');

ADOQuery1.Open;

edit1.Text:=adoquery1.Fields[0].AsString;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add('SELECT DISTINCT [инженер аты] FROM tbolim'); ADOQuery1.SQL.Add('where [сураныс коды]='''+combobox3.Text+'''');

ADOQuery1.Open;

edit2.Text:=adoquery1.Fields[0].AsString;

end;

end.

 

unit Unit6;

interface

uses

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

  Dialogs, dbcgrids,UNIT2, StdCtrls, ExtCtrls, Grids, DBGrids, Menus,

  DBCtrls, DB, ADODB, jpeg;

type

  Tsuranysjib = class(TForm)

    Label1: TLabel;

    DBGrid1: TDBGrid;

    Panel1: TPanel;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    Edit1: TEdit;

    Button1: TButton;

    Label3: TLabel;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    ADOQuery1: TADOQuery;

    ComboBox1: TComboBox;

    DBGrid2: TDBGrid;

    ADOQuery2: TADOQuery;

    DataSource1: TDataSource;

    Panel2: TPanel;

    Panel3: TPanel;

    Panel4: TPanel;

    Label2: TLabel;

    Label4: TLabel;

    Panel5: TPanel;

    Panel6: TPanel;

    Image1: TImage;

    DataSource2: TDataSource;

    ADOQuery3: TADOQuery;

    Panel7: TPanel;

    procedure N1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  suranysjib: Tsuranysjib; 

implementation

{$R *.dfm}

 

procedure Tsuranysjib.N1Click(Sender: TObject);

begin

suranysjib.Close;

end;

 

procedure Tsuranysjib.Button1Click(Sender: TObject);

begin

if combobox2.ItemIndex=0 then begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('insert into bbolim([Болим аты],[Инженер аты],[Тапсырыс алган кун],[Сураныс коды]) values('''+combobox2.Text+''','''+combobox3.Text+''','''+edit1.Text+''','''+combobox1.Text+''') ');

ADOQuery1.ExecSQL; end

else if combobox2.ItemIndex=1 then begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('insert into tbolim([Болим аты],[Инженер аты],[Тапсырыс алган кун],[Сураныс коды]) values('''+combobox2.Text+''','''+combobox3.Text+''','''+edit1.Text+''','''+combobox1.Text+''') ');

ADOQuery1.ExecSQL;

end;

dbgrid2.DataSource.DataSet.Active:=false;

dbgrid2.DataSource.DataSet.Active:=true;

end;

 

procedure Tsuranysjib.ComboBox1Change(Sender: TObject);

begin

 

adoquery2.SQL.Clear;

adoquery2.SQL.Add('select Клиент,[Куалик номери],[Техника атауы],[Техника акауы],[Кабылдау куни],[Сураныс коды] from suranys');

adoquery2.SQL.Add('where [Сураныс коды]='+combobox1.Text);

adoquery2.Open;

adoquery2.Active:=TRUE;

 

end;

 

procedure Tsuranysjib.FormActivate(Sender: TObject);

begin

edit1.Text:=datetostr(date);

datasource1.DataSet.Active:=false;

datasource1.DataSet.Active:=true;

dbgrid1.DataSource.DataSet.Active:=false;

dbgrid1.DataSource.DataSet.Active:=true;

 

ADOQuery1.Close;

ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT DISTINCT [сураныс коды] FROM suranys');

ADOQuery1.Open;

 

ComboBox1.Items.Clear;

ADOQuery1.First;

While not ADOQuery1.Eof do begin   ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);

ADOQuery1.Next;

end;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

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

ADOQuery1.Open;

 

ComboBox3.Items.Clear;

While not ADOQuery1.Eof do begin

ComboBox3.Items.Add(ADOQuery1.Fields[0].AsString);

ADOQuery1.Next;

end;end;

end.

 

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Menus, DB, ADODB, jpeg;

 

type

  Tmbolim = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    panel1: TPanel;

    ComboBox1: TComboBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Panel2: TPanel;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    ComboBox4: TComboBox;

    Edit4: TEdit;

    Edit6: TEdit;

    Button2: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    N3: TMenuItem;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    N4: TMenuItem;

    Label9: TLabel;

    Label10: TLabel;

    ADOQuery1: TADOQuery;

    Panel3: TPanel;

    Panel4: TPanel;

    Panel5: TPanel;

    Panel6: TPanel;

    Panel7: TPanel;

    Panel8: TPanel;

    Panel9: TPanel;

    Panel10: TPanel;

    ComboBox5: TComboBox;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    procedure N1Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure ComboBox5Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

mbolim: Tmbolim;

implementation

uses Unit13;

{$R *.dfm}

procedure Tmbolim.N1Click(Sender: TObject);

begin

panel1.Visible:=true;

panel2.Visible:=false;

end;

 

procedure Tmbolim.N4Click(Sender: TObject);

begin

mbolim.close;

end;

 

procedure Tmbolim.N2Click(Sender: TObject);

begin

panel2.Visible:=true;

panel1.Visible:=false;

end;

 

procedure Tmbolim.Button1Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('insert into zap4asti([жауапты адам],деталь,саны,куны) values('''+combobox1.Text+''','''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''') ');

ADOQuery1.ExecSQL;

message.show;

end;

 

procedure Tmbolim.Button2Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('insert into mbolim([жауапты адам],[болим аты],кимге,деталь,саны,куны) values('''+combobox2.Text+''','''+combobox3.Text+''','''+combobox4.Text+''','''+combobox5.Text+''','''+edit4.Text+''','''+edit6.Text+''')');

ADOQuery1.ExecSQL;

message.show;

end;

 

procedure Tmbolim.FormActivate(Sender: TObject);

var s:string;

begin

s:='МБ';

ADOQuery1.Close;

  ADOQuery1.SQL.Clear;

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

  ADOQuery1.SQL.Add('where [кызмет болими]='''+s+''' ');

  ADOQuery1.Open;

 

  ComboBox1.Items.Clear;

  While not ADOQuery1.Eof do

  begin

     ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);

     ADOQuery1.Next;

  end;

 

ADOQuery1.Close;

ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT DISTINCT [аты-жони] FROM kyzmetkerler'); ADOQuery1.SQL.Add('where [кызмет болими]='''+s+''' ');

  ADOQuery1.Open;

 

  ComboBox2.Items.Clear;

  While not ADOQuery1.Eof do

  begin   ComboBox2.Items.Add(ADOQuery1.Fields[0].AsString);

     ADOQuery1.Next;

  end;

 

 

ADOQuery1.Close;

  ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT DISTINCT [кызмет болими] FROM kyzmetkerler ');

  ADOQuery1.Open;

 

  ComboBox3.Items.Clear;

  While not ADOQuery1.Eof do

  begin  ComboBox3.Items.Add(ADOQuery1.Fields[0].AsString);

     ADOQuery1.Next;

  end;

 

  ADOQuery1.Close;

  ADOQuery1.SQL.Clear;

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

  ADOQuery1.Open;

 

  ComboBox4.Items.Clear;

  While not ADOQuery1.Eof do

  begin

     ComboBox4.Items.Add(ADOQuery1.Fields[0].AsString);

     ADOQuery1.Next;

  end;

 

 

 ADOQuery1.Close;

 ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT DISTINCT [деталь] FROM zap4asti ');

 ADOQuery1.Open;

 

  ComboBox5.Items.Clear;

  While not ADOQuery1.Eof do

  begin

     ComboBox5.Items.Add(ADOQuery1.Fields[0].AsString);

ADOQuery1.Next;

end;

end;

 

procedure Tmbolim.ComboBox5Change(Sender: TObject);

 

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT саны FROM zap4asti');  ADOQuery1.SQL.Add('where [деталь]='''+combobox5.text+''' ');

 ADOQuery1.Open;

label11.caption:=ADOQuery1.Fields[0].AsString ;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT куны FROM zap4asti');

ADOQuery1.SQL.Add('where [деталь]='''+combobox5.text+''' ');

ADOQuery1.Open;

  label13.caption:=ADOQuery1.Fields[0].AsString;

end;

end.

 

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, Menus, jpeg;

 

type

  Tkyzm = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    Panel1: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Panel2: TPanel;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    Image1: TImage;

    procedure N1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

kyzm: Tkyzm;

implementation

{$R *.dfm}

Procedure

Tkyzm.N1Click(Sender: TObject);

begin

kyzm.Close;

end;

end.

 

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Menus;

type

  TForm9 = class(TForm)

    Panel1: TPanel;

    Panel2: TPanel;

    Image1: TImage;

    Label1: TLabel;

    procedure Panel1Click(Sender: TObject);

 private

    { Private declarations }

 public

    { Public declarations }

end;

 

var

 Form9: TForm9;

implementation

{$R *.dfm}

 

Procedure

TForm9.Panel1Click(Sender:TObject);