Розробка інформаційно-пошукової системи "Клієнт-банк" на мові програмування Delphi

DBLookupComboBox2: TDBLookupComboBox;

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;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

pasp,stan,live,work,wish:boolean;

id:integer; //номер нового клієнта!!!!

end;

var

Form3: TForm3;

implementation

uses unit2,unit4,unit5,unit6,unit7,unit8;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

DM.ADOinform.Last;

id:=DM.ADOinform.Fields[0].Value;

DM.ADOinform.Append;

form3.GroupBox1.Visible:=true;

form3.BitBtn3.Visible:=true;

pasp:=true;

stan:=false;

live:=false;

work:=false;

wish:=false;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

DM.ADOinform.FieldByName('Дата_народження').AsDateTime:=StrToDate(DateToStr(form3.DateTimePicker1.Date));

DM.ADOinform.Post;

form3.GroupBox1.Visible:=false;

form3.BitBtn3.Visible:=false;

//form3.Close;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

form3.GroupBox1.Visible:=false;

pasp:=false;

stan:=false;

live:=false;

work:=false;

wish:=false;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm3.BitBtn5Click(Sender: TObject);

begin

form6.Show;

end;

procedure TForm3.BitBtn6Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm3.BitBtn7Click(Sender: TObject);

begin

form8.Show;

end;

procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if pasp=false then

form3.BitBtn3.Enabled:=false

else

form3.BitBtn3.Enabled:=true;

if stan=false then

form3.BitBtn4.Enabled:=false

else

form3.BitBtn4.Enabled:=true;

if live=false then

form3.BitBtn5.Enabled:=false

else

form3.BitBtn5.Enabled:=true;

if work=false then

form3.BitBtn6.Enabled:=false

else

form3.BitBtn6.Enabled:=true;

if wish=false then

form3.BitBtn7.Enabled:=false

else

form3.BitBtn7.Enabled:=true;

end;

end.

Програмний модуль форми «Паспорт»

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, Mask, DBCtrls, Buttons;

type

TForm4 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

GroupBox1: TGroupBox;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DateTimePicker1: TDateTimePicker;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

id:integer;

implementation

uses unit2,unit3;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

DM.ADOpasport.Append;

form4.GroupBox1.Visible:=true;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

DM.ADOpasport.FieldByName('Код_клієнта').AsInteger:=id+1;

DM.ADOpasport.FieldByName('Дата_видачі').AsDateTime:=StrToDate(DateToStr(form4.DateTimePicker1.Date));

DM.ADOpasport.Post;

form4.GroupBox1.Visible:=false;

end;

procedure TForm4.FormShow(Sender: TObject);

begin

id:=form3.id;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

form4.GroupBox1.Visible:=false;

end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form3.stan:=true;

end;

end.

Програмний модуль форми «Сімейний стан»

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, Mask, DBCtrls, Buttons;

type

TForm5 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

GroupBox1: TGroupBox;

DBCheckBox1: TDBCheckBox;

DBCheckBox2: TDBCheckBox;

DBCheckBox3: TDBCheckBox;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DateTimePicker1: TDateTimePicker;

DBEdit3: TDBEdit;

DBCheckBox4: TDBCheckBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure DBCheckBox1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses unit2,unit3;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

dm.ADOfamily.Append;

form5.GroupBox1.Visible:=true;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

dm.ADOfamily.FieldByName('Код_клієнта').AsInteger:=form3.id+1;

dm.ADOfamily.FieldByName('Дата_народження').AsDateTime:=StrToDate(DateToStr(form5.DateTimePicker1.Date));

dm.ADOfamily.Post;

form5.GroupBox1.Visible:=false;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

form5.GroupBox1.Visible:=false;

dbcheckbox2.Enabled := false;

dbcheckbox3.Enabled := false;

end;

procedure TForm5.DBCheckBox1Click(Sender: TObject);

begin

if (dbcheckbox1.Checked = false) then

begin

dbcheckbox2.Enabled := false;

dbcheckbox3.Enabled := false;

end

else

begin

dbcheckbox2.Enabled := true;

dbcheckbox3.Enabled := true;

end;

end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form3.live:=true;

end;

end.

Програмний модуль форми «Проживання»

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, Buttons;

type

TForm6 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

GroupBox1: TGroupBox;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

procedure FormCreate(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses unit2,unit3;

{$R *.dfm}

procedure TForm6.FormCreate(Sender: TObject);

begin

form6.GroupBox1.Visible:=false;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

dm.ADOlive.FieldByName('Код_клієнта').AsInteger:=form3.id+1;

dm.ADOlive.Post;

form6.GroupBox1.Visible:=false;

end;

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

dm.ADOlive.Append;

form6.GroupBox1.Visible:=true;

end;

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form3.work:=true;

end;

end.

Програмний модуль форми «Працевлаштування»

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, DBCtrls, ComCtrls, Mask, Buttons;

type

TForm7 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

GroupBox1: TGroupBox;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

DBLookupComboBox4: TDBLookupComboBox;

DateTimePicker1: TDateTimePicker;

DBEdit3: TDBEdit;

DBLookupComboBox5: TDBLookupComboBox;

DBCheckBox1: TDBCheckBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses unit2,unit3;

{$R *.dfm}

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

dm.ADOwork.FieldByName('Код_клієнта').AsInteger:=form3.id+1;

dm.ADOwork.FieldByName('Дата_початку_роботи').AsDateTime:=StrToDate(DateToStr(form7.DateTimePicker1.Date));

dm.ADOwork.Post;

form7.GroupBox1.Visible:=false;

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

dm.ADOwork.Append;

form7.GroupBox1.Visible:=true;

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

form7.GroupBox1.Visible:=false;

end;

procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form3.wish:=true;

end;

end.

Програмний модуль форми «Бажання»

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, DBCtrls, ComCtrls, Mask, Buttons;

type

TForm8 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

GroupBox1: TGroupBox;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit1: TDBEdit;

DateTimePicker1: TDateTimePicker;

DBCheckBox1: TDBCheckBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses unit2,unit3;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

dm.ADOwish.Append;

form8.GroupBox1.Visible:=true;

end;

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

dm.ADOwish.FieldByName('Код_клієнта').AsInteger := form3.id+1;

dm.ADOwish.FieldByName('Дата_заповнення').AsDateTime := StrToDate(DateToStr(form8.DateTimePicker1.Date));

dm.ADOwish.Post;

form8.GroupBox1.Visible:=false;

end;

procedure TForm8.FormCreate(Sender: TObject);

begin

form8.GroupBox1.Visible:=false;

end;

end.

Програмний модуль форми «Довідники»

unit Unit9;

interface

uses

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

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

type

TForm9 = class(TForm)

Label1: TLabel;

ComboBox1: TComboBox;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure ComboBox1Select(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses unit2;

{$R *.dfm}

procedure TForm9.ComboBox1Select(Sender: TObject);

begin

if (form9.ComboBox1.Text = 'Освіта') then

begin

form9.DBNavigator1.Visible:= true;

form9.DBGrid1.Visible:=true;

dbgrid1.DataSource:=dm.DSstudy;

dbnavigator1.DataSource:=dm.DSstudy;

dm.ADOstudy.Fields[0].Visible:=false;

end;

if (form9.ComboBox1.Text = 'Майно') then

begin

form9.DBNavigator1.Visible:= true;

form9.DBGrid1.Visible:=true;

dbgrid1.DataSource:=dm.DSmayno ;

dbnavigator1.DataSource:=dm.DSmayno;

dm.ADOmayno.Fields[0].Visible:=false;

end;

if (form9.ComboBox1.Text = 'Соціальний статус') then

begin

form9.DBNavigator1.Visible:= true;

form9.DBGrid1.Visible:=true;

dbgrid1.DataSource:=dm.DSsocial ;

dbnavigator1.DataSource:=dm.DSsocial;

dm.ADOsocial.Fields[0].Visible:=false;

end;

if (form9.ComboBox1.Text = 'Форма власності') then

begin

form9.DBNavigator1.Visible:= true;

form9.DBGrid1.Visible:=true;

dbgrid1.DataSource:=dm.DSforma ;

dbnavigator1.DataSource:=dm.DSforma;

dm.ADOforma.Fields[0].Visible:=false;

end;

if (form9.ComboBox1.Text = 'Індустрія праці') then

begin

form9.DBNavigator1.Visible:= true;

form9.DBGrid1.Visible:=true;

dbgrid1.DataSource:=dm.DSindustr ;

dbnavigator1.DataSource:=dm.DSindustr ;

dm.ADOindustr.Fields[0].Visible:=false;

end;

if (form9.ComboBox1.Text = 'Службовий стан') then

begin

form9.DBNavigator1.Visible:= true;

form9.DBGrid1.Visible:=true;

dbgrid1.DataSource:=dm.DSsluzbStan ;

dbnavigator1.DataSource:=dm.DSsluzbStan;

dm.ADOsluzbStan.Fields[0].Visible:=false;

end;

if (form9.ComboBox1.Text = 'Додатковий дохід') then

begin

form9.DBNavigator1.Visible:= true;

form9.DBGrid1.Visible:=true;

dbgrid1.DataSource:=dm.DSdodDoxid ;

dbnavigator1.DataSource:=dm.DSdodDoxid;

dm.ADOdodDoxid.Fields[0].Visible:=false;

end;

if (form9.ComboBox1.Text = 'Тип карти') then

begin

form9.DBNavigator1.Visible:= true;

form9.DBGrid1.Visible:=true;

dbgrid1.DataSource:=dm.DScard ;

dbnavigator1.DataSource:=dm.DScard ;

dm.ADOcard.Fields[0].Visible:=false;

end;

end;

procedure TForm9.FormCreate(Sender: TObject);

begin

form9.DBNavigator1.Visible:= false;

form9.DBGrid1.Visible:=false;

end;

end.

Програмний модуль форми «Інформація по клієнтам»

unit Unit10;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons, ComOBJ;

type

TForm10 = class(TForm)

RadioGroup1: TRadioGroup;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

CheckBox1: TCheckBox;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

SaveDialog1: TSaveDialog;

procedure RadioGroup1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

procedure Edit1Change(Sender: TObject);

procedure ComboBox1Select(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

str:string;

implementation

uses unit2;

{$R *.dfm}

procedure TForm10.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.Buttons[0].Checked=true then

begin

dbgrid2.DataSource := dm.DSpasport;

dm.ADOpasport.Fields[0].Visible:=false;

dbgrid2.Visible:=true;

end;

if RadioGroup1.Buttons[1].Checked=true then

begin

dbgrid2.DataSource := dm.DSlive;

dm.ADOlive.Fields[0].Visible:=false;

dbgrid2.Visible:=true;

end;

if RadioGroup1.Buttons[2].Checked=true then

begin

dbgrid2.DataSource := dm.DSfamily;

dm.ADOfamily.Fields[0].Visible:=false;

dbgrid2.Visible:=true;

end;

if RadioGroup1.Buttons[3].Checked=true then

begin

dbgrid2.DataSource := dm.DSsql_work;

dm.sql_work.Fields[0].Visible:=false;

dbgrid2.Visible:=true;

end;

if RadioGroup1.Buttons[4].Checked=true then

begin

dbgrid2.DataSource := dm.DSsql_wish;

dm.sql_wish.Fields[0].Visible:=false;

dbgrid2.Visible:=true;

end;

end;

procedure TForm10.FormCreate(Sender: TObject);

begin

dbgrid2.Visible:=false;

radiogroup1.Visible:=false;

edit1.Text:='';

edit2.Text:='';

end;

procedure TForm10.CheckBox1Click(Sender: TObject);

begin

if (checkbox1.Checked = true) then

begin

radiogroup1.Visible := true;

end

else

begin

radiogroup1.Visible := false;

dbgrid2.Visible:=false;

end

end;

procedure TForm10.DBGrid1TitleClick(Column: TColumn);

var

f:string;

begin

if dm.sql_all_info.FieldByName(Column.FieldName).Tag=0 then

begin

f := ' ASC';

dm.sql_all_info.FieldByName(Column.FieldName).Tag := 1;

end

else

begin

f := ' DESC';

dm.sql_all_info.FieldByName(Column.FieldName).Tag := 0;

end;

dm.sql_all_info.Sort:=Column.FieldName + f;

end;

procedure TForm10.Edit1Change(Sender: TObject);

var

s:string;

begin

s:='прізвище';

dm.sql_all_info.Locate(s,edit1.Text,[]);

end;

procedure TForm10.ComboBox1Select(Sender: TObject);

begin

if combobox1.Text = 'Імя' then

begin

str:='імя';

end;

if combobox1.Text = 'По батькові' then

begin

str:='по_батькові';

end;

if combobox1.Text = 'Область' then

begin

str:='область';

end;

if combobox1.Text = 'Місто' then

begin

str:='місто';

end;

if combobox1.Text = 'Вулиця' then

begin

str:='вулиця';

end;

if combobox1.Text = 'Прізвище' then

begin

str:='прізвище';

end;

end;

procedure TForm10.Edit2Change(Sender: TObject);

var

ddd:string;

begin

if (Length(Edit2.Text) > 0) and ((ComboBox1.Text='Прізвище') OR (ComboBox1.Text='Імя') OR (ComboBox1.Text='По батькові') OR (ComboBox1.Text='Місто') OR (ComboBox1.Text='Область') OR (ComboBox1.Text='Вулиця')) then

begin

dm.sql_all_info.Filtered:=false;

dm.sql_all_info.Filter := str + ' LIKE ' + #39 + '%' + Edit2.Text + '%' + #39;

dm.sql_all_info.Filtered:=true;

end

else dm.sql_all_info.Filtered:=false;

end;

procedure TForm10.BitBtn1Click(Sender: TObject);

const

wdAlignParagraphCenter = 1;

wdAlignParagraphLeft = 0;

wdAlignParagraphRight = 2;

wdLineStyleSingle = 1;

var

wdApp, wdDoc, wdRng, wdTable : Variant;

i, j, Res : Integer;

D : TDateTime;

Sd : TSaveDialog;

begin

{ Sd := SaveDialog1;

if Sd.InitialDir = '' then Sd.InitialDir := ExtractFilePath( ParamStr(0) );

if not Sd.Execute then Exit;

if FileExists(Sd.FileName) then begin

Res := MessageBox(0, 'Файл с заданным именем уже существует. Перезаписать?'

,'Внимание!', MB_YESNO + MB_ICONQUESTION + MB_APPLMODAL);

if Res <> IDYES then Exit;

end;

try

wdApp := CreateOleObject('Word.Application');

except

MessageBox(0, 'Не удалось запустить MS Word. Действие отменено.'

,'Внимание!', MB_OK + MB_ICONERROR + MB_APPLMODAL);

Exit;

end;

wdApp.Visible := True;

wdDoc := wdApp.Documents.Add;

wdApp.ScreenUpdating := False;

try

wdRng := wdDoc.Content;

wdRng.InsertAfter('Отчет '#13#10);

wdRng.ParagraphFormat.Alignment := wdAlignParagraphCenter;

wdRng.Font.Name := 'Times New Roman';

wdRng.Font.Bold := True;

wdRng.Font.Size := 14;

wdRng.Start := wdRng.End;

wdRng.InsertAfter(#13#10);

D := Now;

wdRng.InsertAfter('Дата: ' + FormatDateTime('dd.mm.yyyy', D) + #13#10);

wdRng.InsertAfter('Время: ' + FormatDateTime('hh:nn:ss:zzz', D) + #13#10);

wdRng.ParagraphFormat.Reset;

wdRng.ParagraphFormat.Alignment := wdAlignParagraphLeft;

wdRng.Font.Reset;

wdRng.Font.Size := 12;

wdRng.Font.Bold := True;

wdRng.Start := wdRng.End;

wdRng.InsertAfter(#13#10);

wdRng.InsertAfter('Информация по клиентам банка.'#13#10);

wdRng.ParagraphFormat.Reset;

wdRng.Font.Reset;

wdRng.Font.Size := 12;

wdRng.Font.Bold := False;

if not DM.sql_all_info.Active then DM.sql_all_info.Open;

wdRng.Start := wdRng.End;

wdTable := wdDoc.Tables.Add(wdRng.Characters.Last, 2, DM.sql_all_info.Fields.Count-1);

wdTable.Borders.InsideLineStyle := wdLineStyleSingle;

wdTable.Borders.OutsideLineStyle := wdLineStyleSingle;

wdRng.ParagraphFormat.Reset;

wdRng.ParagraphFormat.Alignment := wdAlignParagraphLeft;

wdRng := wdTable.Rows.Item(1).Range;

wdRng.ParagraphFormat.Alignment := wdAlignParagraphCenter;

wdRng.Font.Size := 7;

wdRng.Font.Bold := True;

wdRng := wdTable.Rows.Item(2).Range;

wdRng.ParagraphFormat.Alignment := wdAlignParagraphLeft;

wdRng.Font.Size := 7;

wdRng.Font.Bold := False;

for i := 0 to DM.sql_all_info.Fields.Count - 2 do

wdTable.Cell(1, i + 1).Range.Text := DM.sql_all_info.Fields[i].DisplayName;

DM.sql_all_info.DisableControls;

DM.sql_all_info.First;

i := 1;

while not DM.sql_all_info.Eof do begin

Inc(i);

if i > 2 then wdTable.Rows.Add;

for j := 0 to DM.sql_all_info.Fields.Count - 2 do

wdTable.Cell(i, j + 1).Range.Text := DM.sql_all_info.Fields[j].AsString;

DM.sql_all_info.Next;

end;

DM.sql_all_info.EnableControls;

finally

wdApp.ScreenUpdating := True;

end;

wdApp.DisplayAlerts := False;

try

wdDoc.SaveAs(FileName:=Sd.FileName);

finally

wdApp.DisplayAlerts := True;

end; }

end;

procedure TForm10.DBGrid1CellClick(Column: TColumn);

var

id:integer;

begin

id:=dm.sql_all_info.Fields[0].Value;

dm.ADOpasport.Locate('Код_клієнта',id,[]);

dm.ADOlive.Locate('Код_клієнта',id,[]);

dm.ADOfamily.Locate('Код_клієнта',id,[]);

dm.sql_work.Locate('Код_клієнта',id,[]);

dm.sql_wish.Locate('Код_клієнта',id,[]);

end;

end.

Програмний модуль форми «Редагування бази клієнтів»

unit Unit11;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons, jpeg;

type

TForm11 = class(TForm)

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

BitBtn1: TBitBtn;

DBGrid1: TDBGrid;

RadioGroup1: TRadioGroup;

BitBtn2: TBitBtn;

procedure DBGrid1CellClick(Column: TColumn);

procedure RadioGroup1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses unit2;

{$R *.dfm}

procedure TForm11.DBGrid1CellClick(Column: TColumn);

var

id:integer;

begin

id:=DBlookupComboBox1.keyvalue;

end;

procedure TForm11.RadioGroup1Click(Sender: TObject);

var

id:integer;

begin

id:=form11.DBLookupComboBox1.KeyValue;

if RadioGroup1.Buttons[0].Checked=true then

begin

dbgrid1.DataSource := dm.DSinform;

dbgrid1.Visible:=true;

dm.ADOinform.Fields[0].Visible:=false;

dm.ADOinform.Fields[18].Visible:=false;

dm.ADOinform.Fields[19].Visible:=false;

dbgrid1.Visible:=true;

end;

if RadioGroup1.Buttons[1].Checked=true then

begin

dbgrid1.DataSource := dm.DSpasport;

dbgrid1.Visible:=true;

dm.ADOpasport.Locate('Код_клієнта',id,[]);

dm.ADOpasport.Fields[0].Visible:=false;

dbgrid1.Visible:=true;

end;

if RadioGroup1.Buttons[2].Checked=true then

begin

dbgrid1.DataSource := dm.DSlive;

dbgrid1.Visible:=true;

dm.ADOlive.Fields[0].Visible:=false;

dm.ADOlive.Locate('Код_клієнта',id,[]);

dbgrid1.Visible:=true;

end;

if RadioGroup1.Buttons[3].Checked=true then

begin

dbgrid1.DataSource := dm.DSfamily;

dbgrid1.Visible:=true;

dm.ADOfamily.Fields[0].Visible:=false;

dm.ADOfamily.Locate('Код_клієнта',id,[]);

dbgrid1.Visible:=true;

end;

if RadioGroup1.Buttons[4].Checked=true then

begin

dbgrid1.DataSource := dm.DSwork;

dbgrid1.Visible:=true;

dm.ADOwork.Fields[0].Visible:=false;

dm.ADOwork.Fields[1].Visible:=false;

dm.ADOwork.Fields[5].Visible:=false;

dm.ADOwork.Fields[7].Visible:=false;

dm.ADOwork.Fields[9].Visible:=false;

dm.ADOwork.Fields[13].Visible:=false;

dm.ADOwork.Locate('Код_клієнта',id,[]);

dbgrid1.Visible:=true;

end;

if RadioGroup1.Buttons[5].Checked=true then

begin

dbgrid1.DataSource := dm.DSwish;

dbgrid1.Visible:=true;

dm.ADOwish.Fields[0].Visible:=false;

dm.ADOwish.Fields[1].Visible:=false;

dm.ADOwish.Locate('Код_клієнта',id,[]);

dbgrid1.Visible:=true;

end;

end;

procedure TForm11.FormCreate(Sender: TObject);

begin

dbgrid1.Visible:=false;

RadioGroup1.Visible:=false;

end;

procedure TForm11.BitBtn1Click(Sender: TObject);

begin

RadioGroup1.Visible:=true;

end;

procedure TForm11.BitBtn2Click(Sender: TObject);

var

temp:Word;

begin

temp:=MessageBox(handle, PChar('Ви видалите всю інформацію про данного клієнта!'), PChar('Ви впевнені???'), MB_YESNO+MB_ICONQUESTION);

case temp of

idyes: begin

dm.sql_delete.SQL.Clear;

dm.sql_delete.SQL.Add('delete from особиста_інформація where код_клієнта=:id');

dm.sql_delete.Parameters.ParamByName('id').Value:=form11.DBLookupComboBox1.KeyValue;

dm.sql_delete.ExecSQL;

dm.sql_delete.SQL.Clear;

dm.sql_delete.SQL.Add('delete from паспорт where код_клієнта=:id');

dm.sql_delete.Parameters.ParamByName('id').Value:=form11.DBLookupComboBox1.KeyValue;

dm.sql_delete.ExecSQL;

dm.sql_delete.SQL.Clear;

dm.sql_delete.SQL.Add('delete from сімейний_стан where код_клієнта=:id');

dm.sql_delete.Parameters.ParamByName('id').Value:=form11.DBLookupComboBox1.KeyValue;

dm.sql_delete.ExecSQL;

dm.sql_delete.SQL.Clear;

dm.sql_delete.SQL.Add('delete from проживання where код_клієнта=:id');

dm.sql_delete.Parameters.ParamByName('id').Value:=form11.DBLookupComboBox1.KeyValue;

dm.sql_delete.ExecSQL;

dm.sql_delete.SQL.Clear;

dm.sql_delete.SQL.Add('delete from працевлаштування where код_клієнта=:id');

dm.sql_delete.Parameters.ParamByName('id').Value:=form11.DBLookupComboBox1.KeyValue;

dm.sql_delete.ExecSQL;

dm.sql_delete.SQL.Clear;

dm.sql_delete.SQL.Add('delete from бажання where код_клієнта=:id');

dm.sql_delete.Parameters.ParamByName('id').Value:=form11.DBLookupComboBox1.KeyValue;

dm.sql_delete.ExecSQL;

dm.ADOinform.Active:=false;

dm.ADOinform.Active:=true;

dm.ADOpasport.Active:=false;

dm.ADOpasport.Active:=true;

dm.ADOfamily.Active:=false;

dm.ADOfamily.Active:=true;

dm.ADOlive.Active:=false;

dm.ADOlive.Active:=true;

dm.ADOwork.Active:=false;

dm.ADOwork.Active:=true;

dm.ADOwish.Active:=false;

dm.ADOwish.Active:=true; end.

Додаток Б

Екранні форми

Рисунок Б.1 Вікно програми для вибору режиму користування

Рисунок Б.2 Вікно функцій режиму «Адміністратор»

Рисунок Б.3 Вікно форми «Додання нового клієнта»



Рисунок Б.4 Вікно функцій режиму «Користувач»

Рисунок Б.5 Вікно заповнення даних «Паспорт»

Рисунок Б.6 Вікно форми «Сімейний стан»

Рисунок Б.7 Вікно форми «Проживання»

Рисунок Б.8 Вікно форми «Працевлаштування»



Рисунок Б.9 Вікно форми «Бажання»

Рисунок Б.10 Вікно форми «Редагування бази клієнтів»

Рисунок Б.11 Вікно форми «Інформація по клієнтам»

Рисунок Б.12 Вікно форми «Довідники»



Рисунок Б.13 Статистика освіти

Рисунок Б.14 Статистика адреси

Додаток В

ВІДГУК

на дипломний проект бакалавра на тему:

«Розробка інформаційно-пошукової системи «Клієнт-банк» на мові програмування Delphi»

студентки групи КНітС-14-1 Бобришевої Катерини Олегівни

1. Мета дипломного проекту - розробка інформаційно-пошукової системи «Клієнт-банк» на мові програмування Delphi.

2. Вибрана тема актуальна в зв'язку з необхідністю автоматизації роботи операціоніста з метою зниження часових затрат на виконання стандартних рутинних операцій.

3. Тема дипломного проекту беспосередньо пов'язана з об'єктом діяльності бакалавра напрямку 6.0804 «Комп'ютерні науки».

4. Завдання дипломного проекту, що стосуються розробки фрагментів ІС, віднесені до освітньо-кваліфікаційної характеристики бакалавра до класу стереотипних, рішення яких засновано на знаково-понятійних уміннях.

5. Оригінальність технічних рішень заключаєтся в розробці ІС Клієнт-банк з використанням СУБД «MS Access».

6. Практичне значення результатів роботи заключаєтся в веденні клієнтських даних.

7. Оформлення матеріалів дипломного проекту виконано на сучасному рівні і відповідає вимогам, що пред'являються до робіт даної кваліфікації з деякими зауваженнями.

8. Ступінь самостійності виконання дипломного проекту достатньо високий.

9. Даний дипломний проект в цілому заслуговує оцінки « «, а студент Бобришева К.О. - присвоення квалификації «спеціаліст по інформаційним технологіям».

Додаток Г

Рецензія

на дипломний проект бакалавра на тему:

«Розробка інформаційно-пошукової системи «Клієнт-банк» на мові програмування Delphi»

студента групи КНітС-14-1 Бобришевої Катерини Олегівни

В дипломному проекті було розроблено програмний продукт, який може накопичувати, та обробляти дані про клієнтів банку, який забезпечує такі функціі, як введення, редагування та видалення даних про клієнтів; фільтрація даних; пошук та друк інформції; формування статистики: визначення освіти клієнтів; визначення адреси проживання клієнтів.

Використовувані технології розробки систем обробки інформації на пряму пов'язані з об'єктом діяльності бакалавра напрямку 6.0501 "Комп'ютерні науки".

Студент Бобришева К.О. достатньо добре розібралася в специфіці застосування різних інформаційних технологій, зокрема, СУБД «MS Access».

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

Ступінь опрацювання компонентівданого проекту дозволяє оцінити роботу на « « і рекомендувати присвоїти студенту К.О Бобришевій квалификацію «спеціаліст по інформаційним технологіям».

Размещено на Allbest.ru

...