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

Автор работы: Пользователь скрыл имя, 18 Марта 2014 в 14:12, курсовая работа

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

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

Скачать архив (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;

 

 

 

 

 


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