АТС – тің жұмысын автоматтандыру

 

 

4.Листинг

 

 

unit Unit1;

 

interface

 

uses

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

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

  Buttons, ComCtrls, RpRave, RpDefine, RpCon, RpConDS;

 

type

  TForm1 = class(TForm)

    DataSource1: TDataSource;

    Table1: TTable;

    DBGrid1: TDBGrid;

    Table1Tel: TFloatField;

    Table1Fam: TStringField;

    Table1Name: TStringField;

    Table1Adres: TStringField;

    Table1Gorod: TStringField;

    DBNavigator1: TDBNavigator;

    Table1Num: TAutoIncField;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    RadioGroup1: TRadioGroup;

    BitBtn1: TBitBtn;

    RadioGroup2: TRadioGroup;

    BitBtn2: TBitBtn;

    GroupBox1: TGroupBox;

    Edit1: TEdit;

    RadioGroup3: TRadioGroup;

    Edit2: TEdit;

    Table2: TTable;

    RvDataSetConnection1: TRvDataSetConnection;

    RvProject1: TRvProject;

    GroupBox2: TGroupBox;

    BitBtn3: TBitBtn;

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure Edit2Change(Sender: TObject);

    procedure RadioGroup2Click(Sender: TObject);

    procedure RadioGroup3Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қорытынды

Аталмыш курстық жұмыс өз деңгейінде жазылды. Қойылған алғышарттардың барлығы орындалып, ең бастысы АТС тақырыбына құрылған мәліметтер базасының бүтінділігі сақталды, программа пайдаланушының кез-келген дерлік сұранысын орындауға қабілетті, барлық жүктелген операциялар(келтірілген мәліметтерді өңдеу, толықтыру,өшіру, қосу, іздеу, сұрыптау,  реттеу,  кескіндеу,  өзгерту,  т.б.) толыққанды орындалады.

Сонымен дайындалған  жұмыс  көздеген мақсатқа жетті — құрылған бағдарлама бойынша кез келген қолданушы АТС жүйесі туралы мәліметтерді қолдануға мүмкіндік алады. Бағдарлама   келешекте   одан   ары   күрделендірілуге,   байытылуға, қолданысқа  ыңғайлы.

 

 

 

 

 

 

 

 

 

 

 

             

 

 

 

 

 

 

 

                  

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

1. А.Я. Архангельский. Программирование в Delphi7. Москва, 2004ж.
2. А. Хомоненко, В. Гофман, Е. Мещеряков, В. Никифоров. Delphi 7. Санкт – Петербург, 2004ж.
3. С. В. Федотова. Создание Windows – приложениий в среде Delphi. Москва, 2004ж.
4. А. Я. Архангельский. Приемы программирования в Delphi. Москва, 2003ж.
5. Халықова, Бостанов, Тұрғанбаев. “Объектілі бағдарланған программалау жүйелерінің негіздері”. Алматы, 2004ж.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қосымша

procedure TForm1.FormCreate(Sender: TObject);

begin

Table1.Active:=true;

height:=590;

width:=790;

Table1.Filtered:=true;

end;

 

procedure TForm1.FormDestroy(Sender: TObject);

begin

Table1.Active:=false;

Table1.Filtered:=false;

Form1:=nil;

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

  0:Table1.IndexName:='Famname';

  1:Table1.IndexName:='Imia';

  2:Table1.IndexName:='Mesto';

  3:Table1.IndexName:='';

end;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

case RadioGroup2.ItemIndex of

0: Table1.Filter:='(Fam='''+Edit1.Text+'*'+''')';

1:Table1.Filter:='(Name='''+Edit1.Text+'*'+''')';

2:Table1.Filter:='(Tel='''+Edit1.Text+'*'+''')';

3:Table1.Filter:='';

 

end;

end;

 

procedure TForm1.Edit2Change(Sender: TObject);

begin

case RadioGroup3.itemIndex of

  0:Table1.IndexFieldNames:='Fam';

  1:Table1.IndexFieldNames:='Gorod';

  2:Table1.IndexFieldNames:='Adres';

  end;

  Table1.FindNearest([Edit2.Text]);

end;

 

procedure TForm1.RadioGroup2Click(Sender: TObject);

begin

case RadioGroup2.ItemIndex of

0,1,2:begin

       GroupBox1.Visible:=true;

       Edit1.Visible:=true;

       end;

3:begin

   GroupBox1.Visible:=false;

   Edit1.Visible:=false;

   end;

end;

if RadioGroup2.ItemIndex=0 then Edit1.SetFocus;

if RadioGroup2.ItemIndex=1 then Edit1.SetFocus;

if RadioGroup2.ItemIndex=2 then Edit1.SetFocus;

end;

 

procedure TForm1.RadioGroup3Click(Sender: TObject);

begin

if RadioGroup3.ItemIndex=0 then Edit2.SetFocus;

if RadioGroup3.ItemIndex=1 then Edit2.SetFocus;

if RadioGroup3.ItemIndex=2 then Edit2.SetFocus;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

RvProject1.Execute;

end;

 

end.