Материалдар, сатып алынатын өнімдер жартылай фабрикат өнімдеріне шығатын шығын мөлшерін есептеу

procedure TForm1.ComboBox1Change(Sender: TObject);

Var s:string;

begin

// Көшеге фильтр орнату

  s:=ComboBox1.Text;

  if s='все улицы'

    then SULIC:=''

    else begin

         UlicaTable.Locate('Ulica',s,[]);

         SULIC:='((Ulica='''+ UlicaTableNum.AsString + ''''+'))'; 

    end;

  SotrFiltered;

end;

procedure TForm1.UlicaTableAfterPost(DataSet: TDataSet);

begin

//  Жаңа көше орнату

   ComboBox1.Clear;

   UlicaTable.First;

   ComboBox1.Items.add('барлық көшелер');

   While not UlicaTable.Eof do

     begin

     ComboBox1.Items.add(UlicaTableUlica.AsString);

     UlicaTable.Next;

     end;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

Var s:string;

begin

//   Мамандықтарға  фильтр орнату

  s:=ComboBox2.Text;

  if s='все должности'

    then SDOLJ:=''

    else begin

         DoljTable.Locate('Naimenobvanie',s,[]);

         SDOLJ:='((Doljnost='''+ DoljTableDoljnost.AsString + ''''+'))';

         end;

SotrFiltered;

end;

procedure TForm1.DoljTableAfterPost(DataSet: TDataSet);

begin

//   Жаңа мамандықты енгізу

   ComboBox2.Clear;

   DoljTable.First;

   ComboBox2.Items.add('барлық мамандықтар');

   While not DoljTable.Eof do

     begin

     ComboBox2.Items.add(DoljTableNaimenobvanie.AsString);

     DoljTable.Next;

     end;

end;

procedure TForm1.ComboBox3Change(Sender: TObject);

Var s:string;

begin

// бөлімшелерге фильтр

  s:=ComboBox3.Text;

  if s='Барлық бөлімшелер'

    then SPODR:=''

    else begin

         PodrTable.Locate('Podrazdelenie',s,[]);

         SPODR:='((Podr='''+ PodrTableNum.AsString + ''''+'))';

         end;

  SotrFiltered;

end;

procedure TForm1.PodrTableAfterPost(DataSet: TDataSet);

begin

// бөлімшелерді қосу

   ComboBox3.Clear;

   PodrTable.First;

   ComboBox3.Items.add('барлық бөлімшелер');

   While not PodrTable.Eof do

    begin

     ComboBox3.Items.add(PodrTablePodrazdelenie.AsString);

     PodrTable.Next;

     end;

end;

procedure TForm1.GroupBox2Click(Sender: TObject);

begin

  Form3.show;  // жарнама

end;

procedure TForm1.Image1Click(Sender: TObject);

begin

  form7.show;  // өңдеулер формасын шығару

// шрифттарды  формы 1 өзгертеміз

  Edit1.Font:=form7.FontDialog1.Font;

  ComboBox3.Font:=form7.FontDialog1.Font;

  ComboBox2.Font:=form7.FontDialog1.Font;

  ComboBox1.Font:=form7.FontDialog1.Font;

  Edit6.Font:=form7.FontDialog1.Font;

  Edit7.Font:=form7.FontDialog1.Font;

  Edit5.Font:=form7.FontDialog1.Font;

  DBEdit1.Font:=form7.FontDialog1.Font;

  DBEdit2.Font:=form7.FontDialog1.Font;

  DBEdit3.Font:=form7.FontDialog1.Font;

  DBEdit4.Font:=form7.FontDialog1.Font;

  DBEdit5.Font:=form7.FontDialog1.Font;

  DBEdit6.Font:=form7.FontDialog1.Font;

  DBEdit9.Font:=form7.FontDialog1.Font;

  DBEdit10.Font:=form7.FontDialog1.Font;   

  DBCtrlGrid1.Font:=form7.FontDialog1.Font;

  DBLookupComboBox1.Font:=form7.FontDialog1.Font;

  DBLookupComboBox2.Font:=form7.FontDialog1.Font;

  DBLookupComboBox3.Font:=form7.FontDialog1.Font;

// шрифттарды  формы 2 өзгертеміз

form2.DBGrid1.Font:=form7.FontDialog1.Font;

form2.DBGrid2.Font:=form7.FontDialog1.Font;

  form2.DBGrid3.Font:=form7.FontDialog1.Font;

  form2.DBMemo1.Font:=form7.FontDialog1.Font;

  form2.DBGrid4.Font:=form7.FontDialog1.Font;

// шрифттарды  формы 5 өзгертеміз

  form5.DBGrid1.Font:=form7.FontDialog1.Font;

end;

procedure TForm1.Image3Click(Sender: TObject);

begin

  Form3.show; // жаранама формасы

end;

procedure TForm1.DoljTableBeforeDelete(DataSet: TDataSet);

begin

// мәліметтер қорындағы жоюды алдын ала тексеру

   if SotrTable.Locate('Doljnost',DoljTableDoljnost.AsString,[])

     then begin

          showmessage('Данную запись нельзя удалить,\\n т.к. бұндай мамандықта жұмысшылар бар');

          DoljTable.Cancel;

          abort;

          end;

end;

procedure TForm1.PodrTableBeforeDelete(DataSet: TDataSet);

begin

// мәліметтер қорындағы жоюды алдын ала тексеру

if SotrTable.Locate('Podr',PodrTableNum.AsString,[])

     then begin

          showmessage('берілген жазбаны жоюға болмайды, себебе бұл мамандықта жұмыскер бар');

          PodrTable.Cancel;

          abort;

          end;

end;

procedure TForm1.UlicaTableBeforeDelete(DataSet: TDataSet);

begin

// мәліметтер қорындағы жоюды алдын ала тексеру

   if SotrTable.Locate('Ulica',UlicaTableNum.AsString,[])

    then begin

          showmessage('Бұл жазбаны жоюға болмайды, себебі бұндай көшеде тұрғын бар');

          PodrTable.Cancel;

          abort;

          end;

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

// Сыртқы мекемелер және жұмысшылар тізімінен бір-біріне ауысу

  GroupBox3.Visible:=true;

GroupBox4.Visible:=False;

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

// Сыртқы мекемелер және жұмысшылар тізімінен бір-біріне ауысу

GroupBox4.Visible:=true;

  GroupBox3.Visible:=false;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

// Жарнаманың 5 секунд сайын ауысуы

  if KPTK

    then begin image3.Visible:=false; image8.Visible:=true;KPTK:=false; end

    else begin image3.Visible:=true; image8.Visible:=false;KPTK:=false; KPTK:=true; end;

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

//  НТМЛ парағын енгізу, түсініктеме үшін

  form4.webbrowser1.Navigate(currdir+'\help\index.html');

  form4.show;

end;

procedure TForm1.Image7Click(Sender: TObject);

begin

  form5.show;  // Қала кодтары

end;

procedure TForm1.CityTableAfterInsert(DataSet: TDataSet);

begin

  form1.CityTableCountry_Id.AsString:='53';

end;

procedure TForm1.FormShow(Sender: TObject);

begin

   form6.Showmodal;  //пороль заставкасы

   if form6.ModalResult=MrCancel

     then begin

          image1.Enabled:=false; //егер отмена болса онда өңдеу және қосымшалар бетін ашпау

          dbnavigator1.VisibleButtons:=

            [nbFirst,nbPrior,nbNext,nbLast,nbRefresh];

          Form2.DBNavigator1.VisibleButtons:=

            [nbFirst,nbPrior,nbNext,nbLast,nbRefresh];

          Form2.DBNavigator2.VisibleButtons:=

            [nbFirst,nbPrior,nbNext,nbLast,nbRefresh];

          Form2.DBNavigator3.VisibleButtons:=

            [nbFirst,nbPrior,nbNext,nbLast,nbRefresh];

          Form2.DBNavigator4.VisibleButtons:=

            [nbFirst,nbPrior,nbNext,nbLast,nbRefresh];

          end;

    if Form6.ModalResult=MrOk  // егер ок басылса порольді тексеру

      then begin

           if form6.Edit1.Text=Nastroiki.pass1

             then begin

                  dbnavigator1.VisibleButtons:= //барлық беттерді белсенді ету

                    [nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh]

                  Form2.DBNavigator1.VisibleButtons:=                    [nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh]         

        Form2.DBNavigator2.VisibleButtons:=                    [nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh]

                  Form2.DBNavigator3.VisibleButtons:=                    [nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh]

                  Form2.DBNavigator4.VisibleButtons:=                    [nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh]

                  end

      else begin  // Пароль қате болса өңдеу және қосымшалар бетінде өзгертулерді енгізуге мүмкіндікті шектеу записей

          image1.Enabled:=false;

          dbnavigator1.VisibleButtons:=

            [nbFirst,nbPrior,nbNext,nbLast,nbRefresh];

          Form2.DBNavigator1.VisibleButtons:=

            [nbFirst,nbPrior,nbNext,nbLast,nbRefresh];

          Form2.DBNavigator2.VisibleButtons:=

        [nbFirst,nbPrior,nbNext,nbLast,nbRefresh];

          Form2.DBNavigator3.VisibleButtons:=

            [nbFirst,nbPrior,nbNext,nbLast,nbRefresh];

          Form2.DBNavigator4.VisibleButtons:=

            [nbFirst,nbPrior,nbNext,nbLast,nbRefresh];

                  end;

           end;

end;

end.

unit SPrav;

interface

uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

  TForm2 = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBGrid2: TDBGrid;

    DBNavigator2: TDBNavigator;

    DBGrid3: TDBGrid;

    DBNavigator3: TDBNavigator;

    DBMemo1: TDBMemo;

    DBNavigator4: TDBNavigator;

    DBGrid4: TDBGrid;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

end.

unit Prekl;

interface

uses

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

   Dialogs, MPlayer, ExtDlgs, ExtCtrls;

type

  TForm3 = class(TForm)

    Panel1: TPanel;

    MediaPlayer1: TMediaPlayer;

    procedure FormShow(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

uses Ptel;

{$R *.dfm}

procedure TForm3.FormShow(Sender: TObject);

begin

    Mediaplayer1.FileName:=nastroiki.f1; //Opendialog1.FileName;

  mediaplayer1.Open;

  mediaplayer1.Play;

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  mediaplayer1.Stop;

end;

end.

unit Unit4;

interface

uses

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

  Dialogs, OleCtrls, SHDocVw;

type

  TForm4 = class(TForm)

    WebBrowser1: TWebBrowser;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  Public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

uses Ptel;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject); // көмектесу файлын енгіземіз

var currdir:string;

begin

  getdir(0,currdir);

  webbrowser1.Navigate(currdir+'\help\index.html');

end;

end.

unit Unit5;

interface

uses

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

  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls;

type

  TForm5 = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    procedure FormCreate(Sender: TObject);

  private  

{ Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);

begin

   form5.Color:=RGB(0,174,239);

   form5.DBGrid1.Color:=RGB(0,174,239);

end;

end.

unit Unit6;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm6 = class(TForm)