Разработка АИС
Курсовая работа, 10 Ноября 2015, автор: пользователь скрыл имя
Описание работы
Актуальность темы. Одним из важнейших условий обеспечения эффективного функционирования любой организации является наличие развитой автоматизированной информационной системы (АИС). Под АИС понимают все системы, реализующие автоматизированный сбор, обработку и манипулирование данными и включающие технические средства обработки данных, программное обеспечение и обслуживающий персонал. Современной формой АИС являются автоматизированные банки данных (АБД), которые включают в свой состав вычислительную систему, одну или несколько БД, систему управления базами данных (СУБД) и набор прикладных программ (ПП)
Файлы: 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.
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.
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.
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.