Разработка АИС

Автор работы: Пользователь скрыл имя, 10 Ноября 2015 в 12:20, курсовая работа

Описание работы

Актуальность темы. Одним из важнейших условий обеспечения эффективного функционирования любой организации является наличие развитой автоматизированной информационной системы (АИС). Под АИС понимают все системы, реализующие автоматизированный сбор, обработку и манипулирование данными и включающие технические средства обработки данных, программное обеспечение и обслуживающий персонал. Современной формой АИС являются автоматизированные банки данных (АБД), которые включают в свой состав вычислительную систему, одну или несколько БД, систему управления базами данных (СУБД) и набор прикладных программ (ПП)

Скачать архив (2.49 Мб) Сколько стоит заказать работу?
Файлы: 1 файл

Шатохина.doc

— 2.90 Мб (Скачать файл)

form10.ADODataSet1.Delete;

end;

end.

unit Unit11;

interface

uses

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

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

type

  TForm11 = class(TForm)

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    ADODataSet1: TADODataSet;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form11: TForm11;

implementation

uses Unit8, Unit2;

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin

form11.ADODataSet1.Delete;

end;

end.

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, ComCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    DateTimePicker1: TDateTimePicker;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit10, Unit8, Unit9;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form8.ADODataSet1.Append;

Form8.ADODataSet1 ['FIO']:=Form9.Edit1.Text;

Form8.ADODataSet1 ['Pasport']:=Form9.Edit2.Text;

Form8.ADODataSet1 ['Grajdanstvo']:=Form9.Edit3.Text;

Form8.ADODataSet1 ['Index']:=Form9.Edit4.Text;

Form8.ADODataSet1 ['Strana']:=Form9.Edit5.Text;

Form8.ADODataSet1 ['Gorod']:=Form9.Edit6.Text;

Form8.ADODataSet1 ['Adress']:=Form9.Edit7.Text;

Form10.ADODataSet1.Append;

Form10.ADODataSet1 ['vid  kredita']:=edit1.Text;

Form10.ADODataSet1 ['summa kredita']:=edit2.Text;

datetimepicker1.Time:=0;

form10.ADODataSet1 ['data  vozvrata']:=datetimepicker1.Date;

datetimepicker1.Time:=0;

form8.ADODataSet1.Post;

form8.ADODataSet1.Last;

Form10.ADODataSet1 ['kod klienta']:=form8.ADODataSet1 ['kod klienta'];

Form10.ADODataSet1 ['kod klienta']:=form8.ADODataSet1 ['kod klienta'];

form10.ADODataSet1.Post;

form1.Close;

form9.Close;

end;

end.

unit Unit2;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm2 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

uses Unit11, Unit8, Unit9;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form8.ADODataSet1.Append;

Form8.ADODataSet1 ['FIO']:=Form9.Edit1.Text;

Form8.ADODataSet1 ['Pasport']:=Form9.Edit2.Text;

Form8.ADODataSet1 ['Grajdanstvo']:=Form9.Edit3.Text;

Form8.ADODataSet1 ['Index']:=Form9.Edit4.Text;

Form8.ADODataSet1 ['Strana']:=Form9.Edit5.Text;

Form8.ADODataSet1 ['Gorod']:=Form9.Edit6.Text;

Form8.ADODataSet1 ['Adress']:=Form9.Edit7.Text;

Form11.ADODataSet1.Append;

Form11.ADODataSet1 ['№ scheta']:=edit1.Text;

Form11.ADODataSet1 ['tip scheta']:=edit2.Text;

form11.ADODataSet1 ['summa vklada']:=edit3.Text;

form8.ADODataSet1.Post;

form8.ADODataSet1.Last;

Form11.ADODataSet1 ['kod klienta']:=form8.ADODataSet1 ['kod klienta'];

form11.ADODataSet1.Post;

form2.Close;

form9.Close;

end;

end.

unit Unit3;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm3 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

uses Unit7;

{$R *.dfm}

end.

 

 

 

 

 

 

 

 

 


Информация о работе Разработка АИС