Есептегіш машинаның шыққан жылдары

Автор работы: Пользователь скрыл имя, 04 Февраля 2014 в 07:00, курсовая работа

Краткое описание

Информация өзінің хабары мен мазмұны арқылы сипатталатындығы және хабар жіберушіден қабылдаушыға материалды – энергетикалық (электр, жарық, дыбыс және т.с.с сигналдар) түрінде берілетіндігі белгілі. Хабарды қабылдау қабылдаушының жағдайын сипаттайтын қандай-да бір шаманың уақытқа байланысты өзгерісімен тікелей байланысты. Демек, информациялық хабарды информациялық процесс жүретін физикалық ортаның материалдық – энергетикалық параметрлерін уақытқы байланысты өзгертетін Х(t) функциясымен бейнелеуге болады.

Содержание

І. Кіріспе
Есептегіш машинаның шыққан жылдары
ІІ. Негізгі бөлім:
2.1 Delphi-дің 7 версиясымен танысу
2.2 Delphi ортасымен танысу
2.3 Құрал саймандар батырмалары
2.4 Программалар код терезесі
2.5 Есептің алгоритмі
2.6 Калькулятор программасы
ІІІ. Қорытынды
Есепті қорытындылау
Пайдаланылған әдебиеттер

Скачать полностью (156.24 Кб) Сколько стоит заказать работу?
Прикрепленные файлы: 1 файл

Калькулятор туралы курстық жұмыс.doc

— 284.00 Кб (Скачать документ)

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    ADOTable1DSDesigner: TAutoIncField;

    ADOTable1DSDesigner2: TWideStringField;

    ADOTable1DSDesigner3: TWideStringField;

    ADOTable1DSDesigner4: TWideStringField;

    ADOTable1DSDesigner5: TWideStringField;

    ADOTable1DSDesigner6: TWideStringField;

    ADOTable1DSDesigner7: TWideStringField;

    ADOTable1DSDesigner8: TWideStringField;

    ADOTable1DSDesigner9: TWideStringField;

    ADOTable1DSDesigner10: TWideStringField;

    ADOTable1DSDesigner11: TIntegerField;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    Label8: TLabel;

    Label9: TLabel;

    Shape1: TShape;

    Bevel1: TBevel;

    Bevel2: TBevel;

    Bevel3: TBevel;

    procedure BitBtn1Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

 

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

close;

end;

 

procedure TForm2.N6Click(Sender: TObject);

begin

Adotable1.Insert;

dbgrid1.SetFocus;

end;

procedure TForm2.N8Click(Sender: TObject);

begin

adotable1.Delete;

end;

 

procedure TForm2.N2Click(Sender: TObject);

begin

close;

end;

 

end.

 

3-ші форма

unit Unit3;

interface

uses

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

  Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg;

type

  TForm3 = class(TForm)

    BitBtn1: TBitBtn;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Image1: TImage;

    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

{$R *.dfm}

 

procedure TForm3.Timer1Timer(Sender: TObject);

begin

image1.Free;

end;

 

end.

 

 

4-ші форма

unit Unit4;

interface

uses

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

  Dialogs, StdCtrls, Buttons;

type

  TForm4 = class(TForm)

    Label1: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

uses Unit2, Unit3, Unit1;

{$R *.dfm}

 

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

form1.Close;

end;

 

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

close;

end;

 

end.

 

 

5-ші форма

unit Unit5;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm5 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

uses Unit2, Unit6;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

form2:=tform2.Create(form5);

form2.ShowModal

end;

 

procedure TForm5.Button2Click(Sender: TObject);

begin

form6:=tform6.create(form5);

form6.showmodal

end;

end.

6-ші форма

unit Unit6;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm6 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    Label18: TLabel;

    Label19: TLabel;

    Label20: TLabel;

    Label21: TLabel;

    Label22: TLabel;

    Label23: TLabel;

    Button1: TButton;

    Label24: TLabel;

    Label25: TLabel;

    Label26: TLabel;

    Label27: TLabel;

    Label28: TLabel;

    procedure Button1Click(Sender: TObject);

  private

   { Private declarations }

  public

    { Public declarations }

  end;

var

  Form6: TForm6;

implementation

{$R *.dfm}

 

procedure TForm6.Button1Click(Sender: TObject);

begin

close;

end;

 

end.

 

7-ші форма

unit Unit7;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm7 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form7: TForm7;

implementation

uses Unit8, Unit9;

{$R *.dfm}

 

procedure TForm7.Button2Click(Sender: TObject);

begin

form8:=tform8.create(form7);

form8.showmodal;

end;

 

procedure TForm7.Button1Click(Sender: TObject);

begin

form9:=tform9.create(form7);

form9.showmodal;

end;

 

end.

 

 

8-ші форма

unit Unit8;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm8 = class(TForm)

    Label22: TLabel;

    Label23: TLabel;

    Label24: TLabel;

    Label25: TLabel;

    Label26: TLabel;

    Label27: TLabel;

    Label28: TLabel;

    Button1: TButton;

    Label1: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    Label2: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form8: TForm8;

implementation

{$R *.dfm}

 

procedure TForm8.Button1Click(Sender: TObject);

begin

close;

end;

 

end.

 

 

9-ші форма

unit Unit9;

interface

uses

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

  Dialogs, Menus, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls;

type

  TForm9 = class(TForm)

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    DBGrid1: TDBGrid;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    ADOTable1DSDesigner: TAutoIncField;

    ADOTable1DSDesigner2: TWideStringField;

    ADOTable1DSDesigner3: TWideStringField;

    ADOTable1DSDesigner4: TWideStringField;

    ADOTable1DSDesigner5: TWideStringField;

    ADOTable1DSDesigner6: TWideStringField;

    ADOTable1DSDesigner7: TWideStringField;

    ADOTable1DSDesigner8: TWideStringField;

    ADOTable1DSDesigner9: TWideStringField;

    ADOTable1DSDesigner10: TWideStringField;

    ADOTable1DSDesigner11: TIntegerField;

    DataSource1: TDataSource;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    Bevel1: TBevel;

    Shape1: TShape;

    Bevel2: TBevel;

    Bevel3: TBevel;

    procedure N6Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form9: TForm9;

implementation

{$R *.dfm}

 

procedure TForm9.N6Click(Sender: TObject);

begin

Adotable1.Insert;

dbgrid1.SetFocus;

end;

 

procedure TForm9.N2Click(Sender: TObject);

begin

close;

end;

 

procedure TForm9.N8Click(Sender: TObject);

begin

adotable1.Delete;

end;

 

end.

 

 

 

 

 

 

 

 

 


Информация о работе Есептегіш машинаның шыққан жылдары