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

ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР

1.      Архангельский А.Я. Программирование в Delphi 6. – М.:ЗАО «Издательство БИНОМ», 2003г.-1120 с.

2.      Бобровский С. Delphi 6 и Kylix: библиотека программиста. – сПб.:Питер, 2002. – 560 с.

3.      Бобровский С. Delphi 5. учебный курс  – сПб.:Питер, 2001г.

4.      Дантеманн Д., Мишел Д., Тейлор Д. Программирование в среде Delphi / Пер. с англ. – К.: НИПФ «Диа Софт Лтд.», 1995г. – 608 с.

5.      Әлдібекова Э  Web-түйін құру және Интернетке қосу мүмкіндіктері.      “Информатика негіздері” журналы №3,2004ж;

6.      Мозговой М.В. Занимательное программирование: Самоучитель. – СПб.: Питер, 2004 – 208 с.

7.      Понамарев В.Базы данных в Delphi 7. Самоучитель. – СПб.:Питер, 2003. – 224 с.

8.      Фаронов В. В. Delphi 6. Учебный курс.-М.: Издатель Молгачева С.В., 2001. – 672 с.

9.      Флёнов М.Е. Библия Delphi. – СПб.: БХВ-Петербург, 2004. – 880 с.

10. Информатика, Физика, Математика. “Дүниежүзілік өрмек”  журнал

11. №2006 ж;

12. Гофман В., Хомоненко А.Д.- Delphi 5- найболле полное руководство, Санк-Петербург, 2000 ж.

13. Те Т.Л. "Программное обеспечение ЭИС" учебно-практическое пособие, 2003.-87б.

14. Мещереков Е.В., Хомоненко А.Д., Публикация баз данных в интернете, Санк-Петербург, 2001 ж.

15. Трудовые отношения в Республике Казахстан/ под общей редакцией В.И.Скала. Алматы, Издательство «LEM», 2002-476 б.

16. Абузяров Н.А. Трудовое право: Учебник.-Алматы; ЮРИСТ, 2002-264 б.

Қосымша

unit Ptel;

interface

uses

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

  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls,

  dbcgrids, Mask;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    GroupBox3: TGroupBox;

    Edit1: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    SotrTable: TTable;

    SotrDS: TDataSource;

    DBCtrlGrid1: TDBCtrlGrid;

    DBText1: TDBText;

    DBText2: TDBText;

    DBText3: TDBText;

    Splitter1: TSplitter;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit9: TDBEdit;

    DBEdit10: TDBEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    DBText4: TDBText;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    DBNavigator1: TDBNavigator;

    DoljTable: TTable;

    DoljDS: TDataSource;

    UlicaTable: TTable;

    UlicaDS: TDataSource;

    Image1: TImage;

    Image2: TImage;

    DoljTableDoljnost: TAutoIncField;

    DoljTableNaimenobvanie: TStringField;

    DoljTablePodrazdelenie: TIntegerField;

    SotrTableKeyfield: TAutoIncField;

    SotrTableFam: TStringField;

    SotrTableName: TStringField;

    SotrTableOtch: TStringField;

    SotrTableDoljnost: TIntegerField;

    SotrTableTelefon1: TStringField;

    SotrTableTelefon2: TStringField;

    SotrTableUlica: TIntegerField;

    SotrTableDom: TStringField;

    SotrTableKv: TStringField;

    SotrTableDolj: TStringField;

    DBLookupComboBox1: TDBLookupComboBox;

    PodrTable: TTable;

    PodrDS: TDataSource;

    PodrTableNum: TAutoIncField;

    PodrTablePodrazdelenie: TStringField;

    DBLookupComboBox2: TDBLookupComboBox;

    SotrTablePodr: TIntegerField;   

    SotrTablePodrazd: TStringField;

    PodrTableTelefon1: TStringField;

    PodrTableTelefon2: TStringField;

    UlicaTableNum: TAutoIncField;

    UlicaTableUlica: TStringField;

    SotrTableUlic: TStringField;

    DBLookupComboBox3: TDBLookupComboBox;

    DBEdit6: TDBEdit;

    SotrTabletelefon3: TStringField;

    SotrTabletelefon4: TStringField;

    SotrTabledoptel: TStringField;

    Label11: TLabel;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    FontDialog1: TFontDialog;

    Image3: TImage;

    Image4: TImage;

    Image5: TImage;

    OrgTable: TTable;

    OrgDS: TDataSource;

    OrgTableNaimenovanie: TStringField;

    OrgTablePril: TMemoField;

    GroupBox4: TGroupBox;

    DBGrid1: TDBGrid;

    DBMemo1: TDBMemo;

    Timer1: TTimer;

    Image6: TImage;

    Image7: TImage;

    CityTable: TTable;

    CityDS: TDataSource;

    CityTableName: TStringField;

   CityTableCode: TStringField;

    CityTableInfo: TStringField;

   CityTableCountry_Id: TSmallintField;

    Image8: TImage;

    procedure FormCreate(Sender: TObject);

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

    procedure Edit1Change(Sender: TObject);

    procedure Edit5Change(Sender: TObject);

    procedure Image2DblClick(Sender: TObject);

    procedure SotrTableCalcFields(DataSet: TDataSet);

    procedure Edit6Change(Sender: TObject);

    procedure Edit7Change(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure UlicaTableAfterPost(DataSet: TDataSet);

    procedure ComboBox2Change(Sender: TObject);

    procedure DoljTableAfterPost(DataSet: TDataSet);

    procedure ComboBox3Change(Sender: TObject);

    procedure PodrTableAfterPost(DataSet: TDataSet);

    procedure GroupBox2Click(Sender: TObject);

    procedure Image1Click(Sender: TObject);

    procedure Image3Click(Sender: TObject);

    procedure DoljTableBeforeDelete(DataSet: TDataSet);

    procedure PodrTableBeforeDelete(DataSet: TDataSet);

    procedure UlicaTableBeforeDelete(DataSet: TDataSet);

    procedure Image5Click(Sender: TObject);

    procedure Image4Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Image6Click(Sender: TObject);

    procedure Image7Click(Sender: TObject);

    procedure CityTableAfterInsert(DataSet: TDataSet);

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

{ Public declarations }

  end;

    Procedure SotrFiltered();

type

  Tnastroiki=record

             fonts:tfont;

             f1:string[200];

             pass1:string[20];

             pass2:string[20];

             end;

var

  Form1: TForm1;

  SFIO,SPODR,SDOLJ,SULIC,SD,SKV,STEL:string;

  KPTK:boolean;

  Currdir:string;

  nastroiki:Tnastroiki;

  f1:file of Tnastroiki;

implementation

uses SPrav, Prekl, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}

Procedure SotrFiltered;

  begin

//  Мәліметтер қорына іздеу  фильтрін орнату

  Form1.SotrTable.Filter:='';

  if SFIO<>''

    then Form1.SotrTable.Filter:=SFIO;

  if SPODR<>''

    then if Form1.SotrTable.Filter<>''

           then Form1.SotrTable.Filter:=Form1.SotrTable.Filter+'and'+SPODR

           else Form1.SotrTable.Filter:=SPODR;

  if SDOLJ<>''

    then if Form1.SotrTable.Filter<>''

           then Form1.SotrTable.Filter:=Form1.SotrTable.Filter+'and'+SDOLJ

           else Form1.SotrTable.Filter:=SDOLJ;

  if SULIC<>''

    then if Form1.SotrTable.Filter<>''

           then Form1.SotrTable.Filter:=Form1.SotrTable.Filter+'and'+SULIC

           else Form1.SotrTable.Filter:=SULIC;

if SD<>''

    then if Form1.SotrTable.Filter<>''

           then Form1.SotrTable.Filter:=Form1.SotrTable.Filter+'and'+SD

           else Form1.SotrTable.Filter:=SD;

  if SKV<>''

    then if Form1.SotrTable.Filter<>''

           then Form1.SotrTable.Filter:=Form1.SotrTable.Filter+'and'+SKV

           else Form1.SotrTable.Filter:=SKV;

  if STEL<>''

    then if Form1.SotrTable.Filter<>''

           then Form1.SotrTable.Filter:=Form1.SotrTable.Filter+'and'+STEL

           else Form1.SotrTable.Filter:=STEL;

  end;

procedure TForm1.FormCreate(Sender: TObject);

begin

//   мәліметтер қорына тусті орнату

   getdir(0,currdir);

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

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

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

   form1.GroupBox4.Top:=112;

   form1.GroupBox4.Left:=8;

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

   OrgTable.Active:=False;

   OrgTable.DatabaseName:=currdir+'\bd';

   OrgTable.Active:=True;

   UlicaTable.Active:=False;

   UlicaTable.DatabaseName:=currdir+'\bd';

   UlicaTable.Active:=True;

   PodrTable.Active:=False;

   PodrTable.DatabaseName:=currdir+'\bd';

   PodrTable.Active:=True;

   DoljTable.Active:=False;

   DoljTable.DatabaseName:=currdir+'\bd';

   DoljTable.Active:=True;

   SotrTable.Active:=False;

   SotrTable.DatabaseName:=currdir+'\bd';

   SotrTable.Active:=True;

   CityTable.Active:=False;

   CityTable.DatabaseName:=currdir+'\bd';

   CityTable.Active:=True;

   SFIO:='';

   SPODR:='';

   SDOLJ:='';

   SULIC:='';

   SD:='';

   SKV:='';

   STEL:='';

   ComboBox1.Clear;

   UlicaTable.First;

   ComboBox1.Items.add('все улицы');

   While not UlicaTable.Eof do         //   көше, мамандық, бөлімшелерді мәліметтер қорында толтырамыз

  begin

     ComboBox1.Items.add(UlicaTableUlica.AsString);

     UlicaTable.Next;

     end;

   ComboBox2.Clear;

   DoljTable.First;

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

   While not DoljTable.Eof do

     begin

     ComboBox2.Items.add(DoljTableNaimenobvanie.AsString);

DoljTable.Next;      

end;

   ComboBox3.Clear;

   PodrTable.First;

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

   While not PodrTable.Eof do

   begin

     ComboBox3.Items.add(PodrTablePodrazdelenie.AsString);

     PodrTable.Next;

     end;

  GroupBox3.visible:=true;

  KPTK:=True;

// өңдеулерді енгіземіз

         assignfile(f1,'config.sys');

         reset(f1);

         read(f1,nastroiki);

         closefile(f1);

end;

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

begin

   OrgTable.Active:=false;                         // ашық мәліметтер қорын жабамыз

   UlicaTable.Active:=False;

   PodrTable.Active:=False;

   DoljTable.Active:=false;

   SotrTable.Active:=false;

//   Database1.Connected:=false;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

   if Edit1.Text<>''   //   Фамилияға фильтр орнату

     then SFIO:='((Fam='''+edit1.text+'*'''+') or (Name='''+edit1.text+'*'''+') or (Otch='''+edit1.text+'*'''+'))'

     else SFIO:='';

   SotrFiltered;

end;

procedure TForm1.Edit5Change(Sender: TObject);

// телефон номерлары арқылы фильтр орнату

begin

   if Edit5.Text<>''

     Then STEL:='((Telefon1='''+edit5.text+'*'''+') or (Telefon2='''+edit5.text+'*'''+'))'

     Else STEL:='';

  SotrFiltered;

end;

procedure TForm1.Image2DblClick(Sender: TObject);

begin

  form2.show;   //   Жұмысшылар, бөлімшелер, көшелер мәліметтер қорын шақыру

end;

procedure TForm1.SotrTableCalcFields(DataSet: TDataSet);

begin

//  Мамандықтар телефоны арқылы анықтау

  SotrTableDoptel.Value:=sotrTableTelefon3.Value+'  |  '+sotrTableTelefon4.Value;

end;

procedure TForm1.Edit6Change(Sender: TObject);

begin

   if Edit6.Text<>''  //   Үй номерімен фильтр

     Then SD:='((Dom='''+edit6.text+'*'''+'))'

     Else SD:='';

   SotrFiltered;

end;

procedure TForm1.Edit7Change(Sender: TObject);

begin

   if Edit7.Text<>''   // Пәтер номерімен фильтр

     Then SKV:='((Kv='''+edit7.text+'*'''+'))'

     Else SKV:='';

   SotrFiltered;