Проектирование автоматизированной информационной системы «Адресная книга

Курсовая работа, 18 Марта 2014, автор: пользователь скрыл имя

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

В настоящее время автоматизированные информационные системы очень сильно проявляют себя в разных областях деятельности человека, значительно упрощая труд человека в его деятельности, что является их основным назначением.
Информационные системы являются не заменимыми в современной жизни человека. В первую очередь пользователь предусматривает в информационных системах возможность хранения разного рода данных, работу с данными, такую как расчеты, сортировки, печать, отправка и т.п.

Скачать архив (790.65 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

Отчет.docx

— 897.21 Кб (Скачать файл)

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

RvSystem1.Execute;

end;

procedure TForm1.DBLookupListBox2Click(Sender: TObject);

var

zap:string;

begin

zap:=DBLookupListBox2.KeyValue;

ADOQuery4.SQL.Clear;

ADOQuery4.SQL.Add('SELECT kon.*');

ADOQuery4.SQL.Add('FROM kon');

ADOQuery4.SQL.Add('WHERE kon.n_kon='+zap+';');

ADOQuery4.Active:=True;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

zap:string;

begin

  if DBLookupListBox2.KeyValue=null then MessageDlg('Выберите Юр. контакт!',mtInformation,[mbok],0)

  else

  begin

    zap:=DBLookupListBox2.KeyValue;

 

    Form6.ADOQuery1.SQL.Clear;

    Form6.ADOQuery1.SQL.Add('SELECT *');

    Form6.ADOQuery1.SQL.Add('FROM ur_l');

    Form6.ADOQuery1.SQL.Add('WHERE ur_l.n_kon='+zap+';');

    Form6.ADOQuery1.Active:=True;

    Form6.ShowModal;

    end;

end;

procedure TForm1.Button5Click(Sender: TObject);

var

zap:string;

begin

  if DBLookupListBox2.KeyValue=null then MessageDlg('Выберите Юр. контакт!',mtInformation,[mbok],0)

  else

  begin

    zap:=DBLookupListBox2.KeyValue;

    Form7.ADOQuery1.SQL.Clear;

    Form7.ADOQuery1.SQL.Add('SELECT *');

    Form7.ADOQuery1.SQL.Add('FROM kon');

    Form7.ADOQuery1.SQL.Add('WHERE kon.n_kon='+zap+';');

    Form7.ADOQuery1.Active:=True;

    Form7.ShowModal;

    end;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

var

zapr:string;

begin

zapr:=Edit2.Text;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('SELECT ur_l.*');

ADOQuery2.SQL.Add('FROM ur_l');

ADOQuery2.SQL.Add('WHERE ur_l.ob_naz Like "%'+zapr+'%"');

ADOQuery2.Active:=True;

end;

procedure TForm1.RvSystem2Print(Sender: TObject);

begin

      begin

     with Sender as TBaseReport do

      begin

        NewLine;

          SetFont('Arial',18);

          FontColor := clBlue;

          Print(' Визитка Юридического лица');

          NewLine;

          Print(' Контакт: '+ADOQuery2Kod_p.Text+'');

          NewLine;

          Print(' Общее название: '+ADOQuery2ob_naz.Text+'');

          NewLine;

          Print(' Полное название: '+ADOQuery2pol_naz.Text+'');

          NewLine;

          Print(' Дата создания: : '+ADOQuery2Data_s.Text+'');

          NewLine;

          Print(' Количество сотрудников: '+ADOQuery2kol_s.Text+'');

          NewLine;

          Print(' e - mail: '+ADOQuery4e_mail.Text+'');

          NewLine;

          Print('  WEB - сайт: '+ADOQuery4site.Text+'');

          NewLine;

          Print('  Контактный телефон: '+ADOQuery4Tel.Text+'');

          NewLine;

          Print(' Адрес: '+ADOQuery4adres.Text+'');

          NewLine;

        end;

end;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

RvSystem2.Execute;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', 'help.chm',nil, nil, SW_SHOW);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

 

Приложение B

 

Задача данной формы добавлять физические лица в базу данных программы.

 

unit Unit2;

interface

uses

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

  Dialogs, DB, ADODB, StdCtrls, DBCtrls, Mask;

type

  TForm2 = class(TForm)

    DataSource1: TDataSource;

    ADOTable1: TADOTable;

    ADOTable1n_p: TIntegerField;

    ADOTable1imia: TWideStringField;

    ADOTable1otch: TWideStringField;

    ADOTable1fam: TWideStringField;

    ADOTable1Dolgnost: TWideStringField;

    ADOTable1mesto_rab: TIntegerField;

    ADOTable1god_r: TDateTimeField;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    Edit3: TEdit;

    Label4: TLabel;

    Edit4: TEdit;

    Edit5: TEdit;

    Label5: TLabel;

    DBLookupComboBox1: TDBLookupComboBox;

    Label6: TLabel;

    Label7: TLabel;

    Button1: TButton;

    DataSource2: TDataSource;

    ADOTable2: TADOTable;

    ADOTable2Kod_p: TIntegerField;

    ADOTable2pol_naz: TWideStringField;

    ADOTable2ob_naz: TWideStringField;

    ADOTable2kol_s: TIntegerField;

    ADOTable2Data_s: TDateTimeField;

    MaskEdit1: TMaskEdit;

    ADOQuery1: TADOQuery;

    ADOQuery1n_p: TIntegerField;

    ADOQuery1imia: TWideStringField;

    ADOQuery1otch: TWideStringField;

    ADOQuery1fam: TWideStringField;

    ADOQuery1Dolgnost: TWideStringField;

    ADOQuery1mesto_rab: TIntegerField;

    ADOQuery1god_r: TDateTimeField;

    ADOTable3: TADOTable;

    procedure Button3Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure Edit6KeyPress(Sender: TObject; var Key: Char);

    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);

    procedure Edit8KeyPress(Sender: TObject; var Key: Char);

    procedure Button1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure DataSource2DataChange(Sender: TObject; Field: TField);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

  z:integer;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.Button3Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

   if (Key in ['0'..'9']) = False then

   Key:=Chr(0);

end;

procedure TForm2.Edit6KeyPress(Sender: TObject; var Key: Char);

begin

   if (Key in ['0'..'9']) = False then

   Key:=Chr(0);

end;

procedure TForm2.MaskEdit1KeyPress(Sender: TObject; var Key: Char);

begin

   if (Key in ['0'..'9']) = False then

   Key:=Chr(0);

end;

procedure TForm2.Edit8KeyPress(Sender: TObject; var Key: Char);

begin

   if (Key in ['0'..'9']) = False then

   Key:=Chr(0);

end;

procedure TForm2.Button1Click(Sender: TObject);

{var

zap:string;}

begin

if DBLookupComboBox1.KeyValue=null then MessageDlg('Не выбрано поле работа',mtInformation,[mbok],0)

  else

    begin

    if MaskEdit1.Text='  .  .    ' then MessageDlg('Заполните дату рождения',mtInformation,[mbok],0)

      else

      begin

      {ADOTable3.Insert;

      ADOTable3.FieldByName('n_p').Asinteger:=z;

      ADOTable3.Post;}

      {zap:=inttostr(z);}

{ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT fiz.*');

ADOQuery1.SQL.Add('FROM fiz');

ADOQuery1.SQL.Add('WHERE fiz.n_p='+zap+';');

ADOQuery1.Active:=True;

ADOQuery1.Edit;

ADOQuery1.FieldByName('imia').AsString:=Edit2.Text;

ADOQuery1.FieldByName('otch').AsString:=Edit3.Text;

ADOQuery1.FieldByName('fam').AsString:=Edit4.Text;

ADOQuery1.FieldByName('Dolgnost').AsString:=Edit5.Text;

ADOQuery1.FieldByName('mesto_rab').AsString:=DBLookupComboBox1.KeyValue;

ADOQuery1.FieldByName('god_r').AsString:=MaskEdit1.Text;

ADOQuery1.Post;}

      ADOTable1.Insert;

      ADOTable1.FieldByName('n_p').Asinteger:=z;

      ADOTable1.FieldByName('imia').AsString:=Edit2.Text;

      ADOTable1.FieldByName('otch').AsString:=Edit3.Text;

      ADOTable1.FieldByName('fam').AsString:=Edit4.Text;

      ADOTable1.FieldByName('Dolgnost').AsString:=Edit5.Text;

      ADOTable1.FieldByName('mesto_rab').AsString:=DBLookupComboBox1.KeyValue;

      ADOTable1.FieldByName('god_r').AsString:=MaskEdit1.Text;

      ADOTable1.Post;

      ADOTable3.Insert;

      ADOTable3.FieldByName('n_p').Asinteger:=z;

      ADOTable3.Post;

      Edit2.Text:='';

      Edit3.Text:='';

      Edit4.Text:='';

      Edit5.Text:='';

      MessageDlg('Физическое лицо добавлено!',mtInformation,[mbok],0);

      end;

    end;

end;

procedure TForm2.FormActivate(Sender: TObject);

var

i:integer;

begin

i:=0;

while not ADOQuery1.Eof do

Begin

if ADOQuery1n_p.AsInteger>i  then i:=ADOQuery1n_p.AsInteger;

ADOQuery1.Next;

end;

z:=(i+1);

end;

 

Приложение С

 

Задача данной формы заключается в добавлении юридических лиц в базу данных программы.

 

unit Unit3;

interface

uses

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

  Dialogs, DB, ADODB, StdCtrls, Mask;

type

  TForm3 = class(TForm)

    DataSource1: TDataSource;

    ADOTable1: TADOTable;

    ADOTable1Kod_p: TIntegerField;

    ADOTable1pol_naz: TWideStringField;

    ADOTable1ob_naz: TWideStringField;

    ADOTable1kol_s: TIntegerField;

    ADOTable1Data_s: TDateTimeField;

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    Edit3: TEdit;

    Label4: TLabel;

    Edit4: TEdit;

    Label5: TLabel;

    Button1: TButton;

    MaskEdit1: TMaskEdit;

    ADOQuery1: TADOQuery;

    ADOQuery1Kod_p: TIntegerField;

    ADOQuery1pol_naz: TWideStringField;

    ADOQuery1ob_naz: TWideStringField;

    ADOQuery1kol_s: TIntegerField;

    ADOQuery1Data_s: TDateTimeField;

    ADOQuery1n_kon: TIntegerField;

    ADOTable2: TADOTable;

    ADOTable2n_kon: TIntegerField;

    ADOTable2e_mail: TWideStringField;

    ADOTable2Tel: TIntegerField;

    ADOTable2site: TWideStringField;

    ADOTable2adres: TWideStringField;

    ADOTable1n_kon: TIntegerField;

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure Edit7KeyPress(Sender: TObject; var Key: Char);

    procedure Edit4KeyPress(Sender: TObject; var Key: Char);

    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);

    procedure Button1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

  z:integer;

 

implementation

{$R *.dfm}

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

   if (Key in ['0'..'9']) = False then

   Key:=Chr(0);

end;

procedure TForm3.Edit7KeyPress(Sender: TObject; var Key: Char);

begin

   if (Key in ['0'..'9']) = False then

   Key:=Chr(0);

end;

procedure TForm3.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

   if (Key in ['0'..'9']) = False then

   Key:=Chr(0);

end;

procedure TForm3.MaskEdit1KeyPress(Sender: TObject; var Key: Char);

begin

   if (Key in ['0'..'9']) = False then

   Key:=Chr(0);

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

if Edit1.Text='' then MessageDlg('Заполните код предприятия',mtInformation,[mbok],0)

  else

      begin

      ADOTable1.Insert;

      ADOTable1.FieldByName('Kod_p').AsString:=Edit1.Text;

      ADOTable1.FieldByName('pol_naz').AsString:=Edit3.Text;

      ADOTable1.FieldByName('ob_naz').AsString:=Edit2.Text;

      ADOTable1.FieldByName('kol_s').AsString:=Edit4.Text;

      ADOTable1.FieldByName('Data_s').AsString:=MaskEdit1.Text;

      ADOTable1.FieldByName('n_kon').AsInteger:=z;

      ADOTable1.Post;

      ADOTable2.Insert;

      ADOTable2.FieldByName('n_kon').AsInteger:=z;

      ADOTable2.Post;

      Edit1.Text:='';

      Edit3.Text:='';

      Edit2.Text:='';

      Edit4.Text:='';

      MessageDlg('Юридическое лицо добавлено!',mtInformation,[mbok],0);

      end;

end;

procedure TForm3.FormActivate(Sender: TObject);

var

i:integer;

begin

i:=0;

while not ADOQuery1.Eof do

Begin

if ADOQuery1n_kon.AsInteger>i  then i:=ADOQuery1n_kon.AsInteger;

ADOQuery1.Next;

end;

z:=(i+1);

end;

 

 

 

 

 


Информация о работе Проектирование автоматизированной информационной системы «Адресная книга

Связанные документы

Проектирование информационной системы

Проектирование информационной системы

Автоматизированные информационные системы

Проектирование информационной системы

Проектирование информационной системы на языке UML

Проектирование информационной системы для гостинницы

Автоматизированная информационная система

Автоматизированные информационные системы

Автоматизированные информационно-поисковые системы

Проектирование информационной системы для музея

Похожие темы

Проектирование информационной системы

Информационные автоматизированные системы

Автоматизированные информационные системы