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

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; // edit-терді тазарту

end;

 

Өшіру батырмасының коды:

 

procedure Tfsuranys.Button2Click(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Delete; // мәліметтерді кестеден өшіру

end;

 

Сypет 3.13 - Сұраныс жіберу бөлімі

 

Жіберу батырмасының коды:

 

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

....

dbgrid2.DataSource.DataSet.Active:=false;

dbgrid2.DataSource.DataSet.Active:=true;

end;

 

Сypет 3.14 -  Сұранысты тексеру бөлімі

Іздеу батырмасының коды:

 

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 showmessage('Ондай  малимет жок');

end;

 

 

Инженер атымен жүйеге кіру

Инженер жүйеге өз атымен және индивидyалды кілт сөзімен жүйеге енеді. Инженер оператор жіберген сұраныстарды қабылдап,оның дайын екенін белгі арқылы хабарлайды. Сонымен қатар материалдық бөлімнен керекті детальдерді ала алады. Инженер атымен жүйеге енгенде, бағдарламалық және техникалық бөлімдерді таңдау арқылы қажетті сұранысқа қол жеткізе алады.

Сypет 3.15 - Бөлімдер мәзірінде керекті бөлімді таңдау

Сypет 3.16 - Бағдарламалық бөлімдегі сұраныстың орындалуы туралы хабарлау

Сұраныс орындалды батырмасының коды:

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;

....

end;

 

Сypет 3.17 - Техникалық бөлімдегі сұраныстың орындалуы туралы хабарлау

 

Сұраныс орындалды пернесін басқан кезде оператор оны сұранысты тексеру бөлімінен біле алады.

 

Материалдық бөлімге жауапты адам атынан жүйеге кіру

Жауапты адам материалдық бөлімдегі операцияларды орындайды. Ол қоймаға әкелінген жаңа детальдерді тіркеу және сол детальдерді инженерлерге беру жұмыстарымен айналысады. Қажетті жағдайда есеп беріп отырады.

Сypет 3.18 - Материалдық бөлімнің қабылдау бөлімі

 

Сypет 3.19 - Материалдық бөлімнің беру бөлімі

 

Беру батырмасының коды:

procedure Tmbolim.Button2Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

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

ADOQuery1.ExecSQL;

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;

end;

  

Администратор атынан жүйеге енгенде администраторға тән қызметкерлер тізімін тіркеу және шығару функцияларын орындайды.

 

Сypет 3.20 – Қызметкерлер тізімі

 

Сypет 3.21 – Бағдарламаның формалары

• Datamodule2 – бағдарламадағы  мәліметтер қорымен байланыс  жасалатын форма
• Fsuranys – сұранысты қабылдау және МҚ-на енгізу формасы
• Fsuranystekseru – сұранысты тексеру формасы
• Kyzm – қызметкерлер тізіміне тіркеу және тіркеуден шығару
• Login – Бағдарламаның авторизация формасы
• Mbolim – материалдық қамтамасыз ету бөлімінің формасы
• Message – хабарламалар формасы
• Splash бағдарламаның сплэш формасы
• Suranysjib – сұранысты бөлімдерге жіберу формасы
• Suranysoryndau – сұраныстың орындалғаны туралы хабарлау формасы
• Titul – басты бет

 

 

                       

Бағдарламаның логотипі

 

Қорытынды

 

Дипломдық жұмысты жазу барысындағы негізгі мақсат клиент-серверлік мәліметтер қоры қосымшасы құрылды.  Қойылған мақсатқа жету үшін қазіргі кездегі мәліметтер қоры қосымшаларының жұмыстары зерттеліп, құрылатын қосымшаның қажеттілігі анықталды.

Дерекқорды құру барысында барлық кемшіліктер ескерілді. Беріліп отырған бағдарламалық жабдық «Service» тұтынушыларды қолдау бөлімі орталығының ақпарат жүйесін түсінікті, оңай түрде басқаруға мүмкіндік береді және төмендегі қызметтерге ие:

• әр қызметкерлердің өз логин, паролы арқылы өзіне қатысты ғана ақпаратты басқара аладжеке сұраныстарымен айналысатын формалар түрінде құрылып, нәтижесінде барлық қызметкерлер жұмысын қамтитын қосымша ретінде шығару.
• қосымшада қызметкерлер ақпаратқа тез және оңай қолжеткізеді:, імді және өзгеріс болған жағдайда мәліметтер қорына өзгерістер енгізуге ыңғайлы болатындай етіп құру.
• мәліметтер қорында түтынушылардың сұраныстары, инженерлердің тапсырмаларды орындалуы туралы,қызметкерлер және қажетті детальдар орналасқан қойма жайында мағлұматтар сақтау.

Деректер қоры Microsoft SQL Server басқару жүйесінде, ал қосымшаның өзі Delphi ортасында құрылды. MS SQL Server басқару жүйесін таңдау себебім ол қазіргі кезде кез-келген мекемеде кең түрде қолданылатын мәліметтер қорын басқару жүйелерінің бірі болып табылады. Сонымен қатар SQL Server - дің негізгі қызметтері кеңейтілген қауіпсіздікті қамтамасыз ету функциясына ие. Ал Delphi жылдан жылға дамып сапалы қосымша құру ортасына айналды. Ол Windows жүйесінде праграммалаудың ыңғайлы құралы. Delphi көптеген операторларды пайдаланып программа дайындау, программа мәзірін құру, анимация, мультимедиа процестерін ұйымдастыру, OLE технологиясын пайдаланып, басқа офистік қосымшаларды шақыру, олармен жұмыс істеу және басқа іс-әрекеттерді орындауға мүмкіндік береді.

Тұтынушыларды қолдау бөлімі кәсіпорындағы барлық ДК-ді қолданушылардың өзара әрекетін жүзеге асырады, сұраныстарды қабылдап және қолданушылардың техникалық және программалық түрдегі қиындықтарын шешуге көмектеседі.

Тұтынушыларды қолдау процесі келесі кезеңдерде қамтылған:

1. Қолданушыларды сұранысын құру 
2. Cұранысты қарастыру
3. Сұранысты нақтылау
4. Сұранысты орындау және жабу
5. Сұранысты жою

 

Құрылған бaғдapлaмaлық жабдықты қoлдaнy келесі мүмкiндiктepді бepeдi:

• Кез-келген техника жөндейтін мекемеде қолдану;
• Сұраныстармен операцияларды орындау;
• Қызметкерлер тізімін өзгерту,оларға логин мен пароль тағайындау;
• Қойманы басқару.

 

Пайданылған әдебиеттер тізімі:

 

1. К.Дж. Дейт Введение в системы баз данных/ Дейт К.Дж. Диалектика,1998. - 784с.
2. Д. Петкович Microsoft SQL Server 2012. Руководство для начинающих. –БХВ-Петербург, 2013. – 816с.
3. Дарахвелидзе П.Г. Программирование в Delphi 7. / П.Г. Драхвелидзе, Е.П. Марков – СПб.: БХВ-Петербург, 2003. – 784 с.
4. Сатимова Е.Г. Проектирование баз данных. Методические указания к выполнению лабораторных работ для студентов специальностей 050704 – Вычислительная техника и программное обеспечение и 050703 – Информационные системы. – Алматы: АИЭС, 2009
5. Марк Шпеник, Оррин Следж. Microsoft SQL Server 2000 DBA Survival Guide. – М.: Вильямс, 2001. – 236 с.
6. Хомоненко А. Самоучитель Delphi / А. Хомоненко, В. Гофман. – СПб.: БХВ – Петербург, 2003г. – 556 с
7. Мамаев Е. SQL Server. Проектирование и реализация баз данных. Сертификационный экзамен. – СПб.: ВНV, 2004. – 416с. 

 

 

Қосымша:

 

program Project1;

uses

 Forms,

 Unit1 in 'Unit1.pas' {titul},

 Unit2 in 'Unit2.pas' {DataModule2: TDataModule},

 Unit3 in 'Unit3.pas' {fsuranys},

 Unit4 in 'Unit4.pas' {fsuranystekseru},

 Unit5 in 'Unit5.pas' {suranysoryndau},

 Unit6 in 'Unit6.pas' {suranysjib},

 Unit7 in 'Unit7.pas' {mbolim},

 Unit8 in 'Unit8.pas' {kyzm},

 Unit9 in 'Unit9.pas' {Form9},

 Unit10 in 'Unit10.pas' {login},

 Unit11 in 'сурет\Unit11.pas' {splash},

 Unit12 in '..\..\..\..\..\Program Files (x86)\Borland\Delphi7\Bin\Unit12.pas' {report},

 Unit13 in '..\..\..\..\..\Program Files (x86)\Borland\Delphi7\Bin\Unit13.pas' {Message},

 Unit14 in 'сурет\Unit14.pas' {error};

{$R *.res}

begin

Application.Initialize; Application.CreateForm(Tsplash, splash); Application.CreateForm(Tlogin, login);

Application.CreateForm(Ttitul, titul);

Application.CreateForm(TDataModule2, DataModule2); Application.CreateForm(Tfsuranys, fsuranys);

Application.CreateForm(Tfsuranystekseru, fsuranystekseru);

Application.CreateForm(Tsuranysoryndau, suranysoryndau);

Application.CreateForm(Tsuranysjib, suranysjib);

Application.CreateForm(Tmbolim, mbolim);

Application.CreateForm(Tkyzm, kyzm);

Application.CreateForm(TForm9, Form9);

Application.CreateForm(Treport, report);

Application.CreateForm(TMessage, Message);

Application.CreateForm(Terror, error);

Application.Run;

end.

 

unit Unit1;

interface

uses

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

Dialogs, Menus, jpeg, ExtCtrls, StdCtrls;

type

  Ttitul = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N31: TMenuItem;

    N10: TMenuItem;

    X1: TMenuItem;

    Image1: TImage;

    N5: TMenuItem;

    N9: TMenuItem;

    Panel1: TPanel;

    Label1: TLabel;

    procedure N2Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N31Click(Sender: TObject);

   procedure N10Click(Sender: TObject);

    procedure X1Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  titul: Ttitul;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10;

{$R *.dfm}

procedure Ttitul.N2Click(Sender: TObject);

begin

fsuranys.show;

fsuranys.adoquery2.Close;

fsuranys.adoquery2.SQL.Clear;

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

fsuranys.adoquery2.Open;

fsuranys.adoquery2.Active:=TRUE;

end;

 

procedure Ttitul.N9Click(Sender: TObject);

begin

kyzm.show;

end;

 

procedure Ttitul.N3Click(Sender: TObject);

begin

fsuranystekseru.show;

end;

 

procedure Ttitul.N31Click(Sender: TObject);

begin

suranysjib.show;

end;

 

procedure Ttitul.N10Click(Sender: TObject);

begin

suranysoryndau.Show;

suranysoryndau.Panel5.Visible:=false;

suranysoryndau.Button2.Visible:=false;

suranysoryndau.Button1.Visible:=true;

suranysoryndau.ComboBox3.Visible:=false;

suranysoryndau.ComboBox1.Visible:=true;

suranysoryndau.edit1.Clear;

suranysoryndau.edit2.Clear;

suranysoryndau.n2.Caption:='Багдарламалык болим';

 

suranysoryndau.ADOQuery1.Close;

suranysoryndau.ADOQuery1.SQL.Clear;

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

suranysoryndau.ADOQuery1.Open;

 

suranysoryndau.ComboBox1.Items.Clear;

  While not suranysoryndau.ADOQuery1.Eof do

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

end;

end;

 

procedure Ttitul.X1Click(Sender: TObject);

begin

titul.Close;

end;

 

procedure Ttitul.N7Click(Sender: TObject);

begin

mbolim.show;

end;

 

procedure Ttitul.N6Click(Sender: TObject);

begin

suranysoryndau.Show;

suranysoryndau.panel5.Visible:=true;

suranysoryndau.Button1.Visible:=false;

suranysoryndau.Button2.Visible:=true;

suranysoryndau.ComboBox3.Visible:=true;

suranysoryndau.ComboBox1.Visible:=false;

suranysoryndau.edit1.Clear;

suranysoryndau.edit2.Clear;

suranysoryndau.n2.Caption:='Техникалык болим';

 

suranysoryndau.ADOQuery1.Close;

suranysoryndau.ADOQuery1.SQL.Clear;

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

suranysoryndau.ADOQuery1.Open;

 

suranysoryndau.ComboBox3.Items.Clear;

 While not suranysoryndau.ADOQuery1.Eof do

 begin

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

end;

end;

 

procedure

Ttitul.N8Click(Sender: TObject);

begin

form9.show;

end;

 

procedure Ttitul.FormActivate(Sender: TObject);

begin

label1.Caption:=login.Label3.Caption;

end;

end.

 

 

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

  TDataModule2 = class(TDataModule)

    ADOConnection1: TADOConnection;

    ADOsuranys: TADOQuery;

    ADObbolim: TADOQuery;

    ADOtbolim: TADOQuery;

    ADOmbolim: TADOQuery;

    ADOkyzmetkerler: TADOQuery;

    ADOzap4asti: TADOQuery;

    Datasuranys: TDataSource;

    Databbolim: TDataSource;

    Datatbolim: TDataSource;

    Datambolim: TDataSource;

    Datakyzmetkerler: TDataSource;

    Datazap4asti: TDataSource;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

 

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, Buttons,

 Menus, DB, ADODB, jpeg;

type

  Tfsuranys = class(TForm)

    DBGrid1: TDBGrid;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    Button1: TButton;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    ADOQuery2: TADOQuery;

    DataSource2: TDataSource;

    Button2: TButton;

    Panel1: TPanel;

    Panel3: TPanel;

    Panel4: TPanel;

    Label6: TLabel;

    Label7: TLabel;

    Timer1: TTimer;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Panel6: TPanel;

    Panel7: TPanel;

    Panel8: TPanel;

    Panel9: TPanel;

    Panel5: TPanel;

    Image1: TImage;

    Panel2: TPanel;

    Label8: TLabel;

    Panel10: TPanel;

    Panel11: TPanel;

    Label9: TLabel;

    Label11: TLabel;

    Panel12: TPanel;

    Panel13: TPanel;

    Label10: TLabel;

    procedure N1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

   procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  fsuranys: Tfsuranys;

implementation

uses Unit10;

{$R *.dfm}

procedure Tfsuranys.N1Click(Sender: TObject);

begin

fsuranys.Close;

end;