Бағдарламалау ортасының негізгі элементтері

 

 

Қалағаныңызша өзгерту Өзгерту батырмасын басыңыз.

Мәлметтерді өшіру үшін өшіргіңіз  келген тағамды таңдап, құрал-саймандар қатарындағы батырмасына не болмаса Мәліметтер à Белгілегенді өшіру не болмаса <Ctrl+Del> пернесін басыңыз. Сол кезде сізде өшіруге рұқсат сұрайды. Сіз қалауыңызша жауап бересіз.

 

4.4.  Тапсырыс беру

Тапсырыс беру үшін немесе Сервис à Тапсырыс беру немесе <Ctrl+T> ыстық пернелер комбинациясын басамыз. Содан соң тапсырыс беру сұқбат терезесі ашылады:

Барлық өрісті толтырып, OK батырмасын басыңыз.

4.5.  Тапсырыстар кестесі

Тапсырыс кестесі терезесінде осы уақытқа дейінгі барлық тапсырыстардың тізімі шығады. Мұнда Есеп батырмасы арқылы есепті excel форматында есеп береді.

 

ҚОРЫТЫНДЫ

Курстық  жұмыстың мақсаты өндірістік мәліметтер қорын, соның ішінде "Мейрамхана мәліметтер қоры" бағдарламасы арқылы мәліметтер қорын құрып, тағамдар бойынша ақпараттар жинастыру, тапсырыс беру. Берілген талаптарды орындап мейрамхананың тағамдары туралы ақпарат алатындай бағдарлама құрылды. Қолданушы өзіне қажетті мәліметтерді қосу/алу жұмыстарын жүргізе алады. Курстық жұмысты жазу барысында алға қойған мақсатқа жету үшін мынадай жағдайларды:

1. Жалпы мәліметтер қорының ұйымдастырылуын;
2. Delphi программалау ортасының компоненттерін, осы ортадағы мәліметтер қорын ұйымдастыруды және өңдеуді;
3. Тағамдар туралы мәлметтер жинастырдым;
4. Экспорт процедурасын бір күйге келтіруді

қамтыдым. Бағдарламаның  тиімділігі қарапайым қолданушының жұмыс істей алатындығы.

Программаны бірнеше  қолданушылар пайдалану мүмкіндігі де қарастырылған, яғни бір мәлметтер  қорын пайдаланып бірдей нәтиже алу мүмкіндігін қалыс қалдырмадым. Ол үшін бағдарламаның бірнеше көшірмесін жасап, оны бірнеше компьютерге көшіру керек. Сосын SQL Explorer бағдарламасы арқылы әр бір программа орналасқан компьютерге баптау жүргізу керек. Содан кейін, мәлметтер қорын бәріне ортақ бір компьютерге пайдалану керек. SQL Explorer бағдарламасында жаңағы ортақ компьютерді көрсету керек.

Қазіргі интернет технолгияларды пайдалану арқылы, қажет деген  барлық ақпарат алмасу мүмкіндігімізге  қол жеткізе аламыз.

 

ҚОЛДАНЫЛҒАН  ӘДЕБИЕТТЕР

1. “Информационно-поисковая система в системе управления предприятием”, Сборник научных трудов, Ленинград, 1989г.
2. В.В.Шураков. “ Информационно-поисковая система для статической обработки данных”, 1990г.
3. И.Л.Кантарь. “Информационно-поисковая система  управленческого аппарата”, 1990г.
4. Баженова И.Ю. Delphi 6. Самоучитель программиста – М.: Кудиц – Образ, 2002. –432с.
5. Архангельский А.Я. Разработка прикладных программ для Windows в Delphi5 –М: Бином 1999-256с. ил-(Все о Delphi)
6. Архангельский А.Я. Язык SQL в Delphi 5. –М: Бином, 2000 –208с. ил-(Все о Delphi)
7. Бобровский С. Delphi 7 Учебный курс. – СПб.: Питер,и 2002-640с.
8. Кандзюба С.П. Delphi 6. Базы данных приложения: Лекции и упражнения /Кандзюба С.П., Громов В.Н. -М: Диа-Софт. 2001-576с.
9. Кенту Марко. Delphi 5 для профессианалов. СПб.: Питер, 2001-944с:ил-/в пер.
10. А. Я. Архангельский.  Программирования в Delphi 6 – М.: ЗАО “Издательство БИНОМ”, 2003 г. – 1120 с., ил.
11. Томас Коннолли, Каролин Бег, Анна Страган. Базы данных: проектирование, реализация и сопровождение. Теория и практика, 2-е изд.: Пер. с англ.: Уч. Пос: -М.: издательский дом “Вильямс”, 2000г.
12. Гофман И.Э., Хомененко А.Д. Delphi 5.-СПб.: БХВ-Санк-Петербург. 2000г.
13. Фаронов В.В., Шумаков П.В. Delphi 5. Рукаводство разработчика базы данных –М.: “Нолидж”, 2000г.
14. К. Грибачев.  “Delphi и Model Driven Architecture”   Разработка приложений баз данных – СПб.: Питер, 2004. – 348 с.: ил.

 

Қосымша

unit frmMain;

 

interface

 

uses

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

  Dialogs, Menus, DB, DBTables, DBCtrls, Grids, DBGrids, ToolWin, ComCtrls,

  StdCtrls, Buttons, ExtCtrls, jpeg, ImgList,shellapi,QPrinters;

 

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    HTML1: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N13: TMenuItem;

    N14: TMenuItem;

    N15: TMenuItem;

    N16: TMenuItem;

    StatusBar1: TStatusBar;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBImage1: TDBImage;

    Query1: TQuery;

    DBMemo1: TDBMemo;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    Label1: TLabel;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    ToolBar1: TToolBar;

    ToolButton1: TToolButton;

    ToolButton2: TToolButton;

    ToolButton3: TToolButton;

    ToolButton4: TToolButton;

    ToolButton5: TToolButton;

    ToolButton6: TToolButton;

    ToolButton7: TToolButton;

    ToolButton8: TToolButton;

    ToolButton10: TToolButton;

    ToolButton13: TToolButton;

    ToolButton15: TToolButton;

    ImageList1: TImageList;

    N17: TMenuItem;

    N18: TMenuItem;

    N19: TMenuItem;

    SaveDialog1: TSaveDialog;

    PrintDialog1: TPrintDialog;

    ToolButton11: TToolButton;

    ToolButton12: TToolButton;

    ToolButton16: TToolButton;

    procedure FormResize(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure ToolButton1Click(Sender: TObject);

    procedure ToolButton3Click(Sender: TObject);

    procedure ToolButton4Click(Sender: TObject);

    procedure ToolButton5Click(Sender: TObject);

    procedure ToolButton7Click(Sender: TObject);

    procedure ToolButton9Click(Sender: TObject);

    procedure ToolButton10Click(Sender: TObject);

    procedure ToolButton11Click(Sender: TObject);

    procedure ToolButton12Click(Sender: TObject);

    procedure ToolButton14Click(Sender: TObject);

    procedure ToolButton15Click(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);

    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

    procedure N8Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure DBGrid1TitleClick(Column: TColumn);

    procedure N17Click(Sender: TObject);

    procedure N18Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  a:array[0..3] of boolean;

implementation

uses frmAdd,frmTaps,frmKeste,frmRep,frmComp,frmAbout;

{$R *.dfm}

 

procedure TForm1.FormResize(Sender: TObject);

begin

DBGrid1.Width:=Form1.Width-35;

DBGrid1.Columns[0].Width:=StrToInt(formatfloat('0',(DBGrid1.Width-200)/2));

DBGrid1.Columns[1].Width:=StrToInt(formatfloat('0',(DBGrid1.Width-200)/2));

DBGrid1.Columns[2].Width:=57;

DBGrid1.Columns[3].Width:=101;

DBGrid1.Height:=Form1.Height-325;

DBImage1.Top:=form1.Height-200;

DBMemo1.Top:=form1.Height-200;

 

StatusBar1.Panels[0].Width:=StrToInt(formatfloat('0',(Form1.Width-10)/3));

StatusBar1.Panels[1].Width:=StrToInt(formatfloat('0',(Form1.Width-10)/3));

StatusBar1.Panels[2].Width:=StrToInt(formatfloat('0',(Form1.Width-10)/3));

end;

 

procedure TForm1.FormShow(Sender: TObject);

var pp:string;

begin

pp:=copy(Application.ExeName,1,length(Application.ExeName)-13);

Query1.DatabaseName:=pp+'\base';

with Query1.SQL do

  begin

    Clear;

    add('select *');

    add('from goods');

    add('where');

    add('(vozr>0)');

    add('order by nm asc');

  end;

  Query1.Open;

  StatusBar1.Panels[0].Text:='Барлығы: '+IntToStr(Query1.RecordCount);

Query1.Open;

end;

 

procedure TForm1.ToolButton1Click(Sender: TObject);

begin

  form4.showmodal;

end;

 

procedure TForm1.ToolButton3Click(Sender: TObject);

begin

form2.act:=nbInsert;

Form2.ShowModal;

end;

 

procedure TForm1.ToolButton4Click(Sender: TObject);

begin

form2.act:=nbEdit;

Form2.ShowModal;

end;

 

procedure TForm1.ToolButton5Click(Sender: TObject);

var nm:string;

begin

nm:=DBGrid1.Fields[0].AsString;

if nm='' then exit;

if MessageDlg('Таңдағаныңызды  өшіресіз бе?',

    mtConfirmation, [mbYes, mbNo], 0) = mrNo then exit;

 

 

with Query1.SQL do

  begin

    Clear;

    add('delete from goods where (nm='''+nm+''')');

  end;

  Query1.ExecSQL;

  formshow(self);

end;

 

procedure TForm1.ToolButton7Click(Sender: TObject);

begin

Form3.ShowModal;

end;

 

procedure TForm1.ToolButton9Click(Sender: TObject);

begin

//Form5.QuickRep1.Preview;

//Form5.ShowModal;

end;

 

procedure TForm1.ToolButton10Click(Sender: TObject);

var f:textfile;

    i,j:integer;

    path:string;

begin

path:=copy(Application.ExeName,1,length(Application.ExeName)-13);

assignfile(f,'current.doc');

rewrite(f);

writeln(f,'<html><body>');

  writeln(f,'<h3>Меню</h3>');

  writeln(f,'<table border=1><tr><td><b>№</b></td>');

  writeln(f,'<td><b>Суреті</b></td>');

  for i:=0 to DBGrid1.Columns.Count-1 do

     begin

       writeln(f,'<td><b>'+DBGrid1.Columns[i].Title.Caption+'</b></td>');

     end;

  writeln(f,'</tr>');

 

  Query1.First;

  for i:=1 to Query1.RecordCount do

    begin

      writeln(f,'<tr><td>'+inttostr(i)+'</td>');

      DBImage1.Picture.SaveToFile(path+'\img\'+IntToStr(i)+'.bmp');

      writeln(f,'<td><img src="'+path+'\img\'+IntToStr(i)+'.bmp'+'"\></td>');

      for j:=0 to DBGrid1.Columns.Count-1 do

      writeln(f,'<td>'+DBGrid1.Fields[j].AsString+'</td>');

      writeln(f,'</tr>');

      Query1.Next;

    end;

writeln(f,'</table></body></html>');

closefile(f);

ShellExecute(0, 'open',PChar(path+'\current.doc'), nil, PChar(path), sw_show);

end;

 

procedure TForm1.ToolButton11Click(Sender: TObject);

begin

ShowMessage('Құжат  түрінде');

end;

 

procedure TForm1.ToolButton12Click(Sender: TObject);

begin

ShowMessage('Кесте  түрінде');

end;

 

procedure TForm1.ToolButton14Click(Sender: TObject);

begin

Form6.ShowModal;

end;

 

procedure TForm1.ToolButton15Click(Sender: TObject);

begin

Form7.ShowModal;

end;

 

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

StatusBar1.Panels[2].Text:='Таңдау  өрісі: аты бойынша';

end;

 

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

StatusBar1.Panels[2].Text:='Таңдау  өрісі: бағасы бойынша';

end;

 

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

StatusBar1.Panels[2].Text:='Таңдау  өрісі: жасы бойынша';

end;

 

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

CanClose:=false;

if Application.MessageBox('Программадан  шығасыз ба?','Мейрамхана мәліметтер  қоры',MB_YESNO)=idyes then CanClose:=true;

end;

 

procedure TForm1.N8Click(Sender: TObject);

begin

  Close();

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

var s:string;

begin

s:=edit1.Text;

if RadioButton1.Checked then

  begin

    Query1.SQL[3]:='(upper(nm) like "%'+Ansiuppercase(edit1.Text)+'%")';

  end;

 

if RadioButton2.Checked then

  begin

    if Edit1.Text='' then begin

    MessageDlg('Алдымен  сөзді енгізіңіз.', mtInformation,[mbOk], 0);

      exit;

      end;

      if (s[1]='>') or (s[1]='<') or (s[1]='=') then 

    Query1.SQL[3]:='(ps'+edit1.Text+')'

    else Query1.SQL[3]:='(ps='+edit1.Text+')';

  end;

 

if RadioButton3.Checked then

  begin

      if (s[1]='>') or (s[1]='<') or (s[1]='=') then 

    Query1.SQL[3]:='(vozr'+edit1.Text+')'

    else Query1.SQL[3]:='(vozr='+edit1.Text+')';

        if Edit1.Text='' then begin

    MessageDlg('Алдымен  сөзді енгізіңіз.', mtInformation,[mbOk], 0);

      exit;

      end;

  end;

  Query1.Open;

  MessageDlg('Сіздің  сұрауыңыз бойынша '+inttostr(Query1.RecordCount)+' нәтиже табылды !!!', mtInformation, [mbOk], 0);

  StatusBar1.Panels[1].Text:='Табылған  нәтиже: '+inttostr(Query1.RecordCount);

end;

 

procedure TForm1.DBGrid1TitleClick(Column: TColumn);

var i:0..3;

begin

for i:=0 to 3 do a[i]:=not a[i];

  case Column.Index of

    0: if a[0] then query1.SQL[4]:='order by nm desc' else query1.SQL[4]:='order by nm asc';

    1: if a[1] then query1.SQL[4]:='order by tys desc' else query1.SQL[4]:='order by tys asc';

    2: if a[2] then query1.SQL[4]:='order by ps desc' else query1.SQL[4]:='order by ps asc';

    3: if a[2] then query1.SQL[4]:='order by vozr desc' else query1.SQL[4]:='order by vozr asc';

  end;

query1.Open;

end;

 

procedure TForm1.N17Click(Sender: TObject);

var f:textfile;

    i,j:integer;

    path:string;

begin

if SaveDialog1.Execute then

  begin

 

path:=copy(Application.ExeName,1,length(Application.ExeName)-13);

assignfile(f,SaveDialog1.FileName+'.html');

rewrite(f);

writeln(f,'<html><body>');

  writeln(f,'<h3>Сұрау  бойынша табылған нәтижелер</h3>');

  writeln(f,'<table border=1><tr><td><b>№</b></td>');

  writeln(f,'<td><b>Суреті</b></td>');

  for i:=0 to DBGrid1.Columns.Count-1 do

     begin

       writeln(f,'<td><b>'+DBGrid1.Columns[i].Title.Caption+'</b></td>');

     end;

  writeln(f,'</tr>');

 

  Query1.First;

  for i:=1 to Query1.RecordCount do

    begin

      writeln(f,'<tr><td>'+inttostr(i)+'</td>');

      DBImage1.Picture.SaveToFile(path+'\img\'+IntToStr(i)+'.bmp');

      writeln(f,'<td><img src="'+path+'\img\'+IntToStr(i)+'.bmp'+'"\></td>');

      for j:=0 to DBGrid1.Columns.Count-1 do

      writeln(f,'<td>'+DBGrid1.Fields[j].AsString+'</td>');

      writeln(f,'</tr>');

      Query1.Next;

    end;

writeln(f,'</table></body></html>');

closefile(f);

  end;

end;

 

procedure TForm1.N18Click(Sender: TObject);

var f:textfile;

    i,j:integer;

    path:string;

begin

if PrintDialog1.Execute then

  begin

path:=copy(Application.ExeName,1,length(Application.ExeName)-13);

assignprn(f);

rewrite(f);

  writeln(f,'Сұрау  бойынша табылған нәтижелер');

  write(f,'№');

  for i:=0 to DBGrid1.Columns.Count-1 do

     begin

       write(f,#9+DBGrid1.Columns[i].Title.Caption+#9);

     end;

  writeln(f,'');

  Query1.First;

  for i:=1 to Query1.RecordCount do

    begin

      write(f,inttostr(i));

      for j:=0 to DBGrid1.Columns.Count-1 do

      write(f,#9+DBGrid1.Fields[j].AsString+#9);

      writeln(f,'');

      Query1.Next;

    end;

closefile(f);

end;

end;

 

end.