Проектные решения по базе данных

 

Разрабатываемая информационная система имеет одну таблицу БД, она же и входит в один из основных модулей статистика. В данной таблице все поступающие заявки регистрируются без возможности удаления. Структура таблицы представлена в таблице 4.

 

Таблица 4 – Структура таблицы базы данных.

	Наименование поля	Тип	Назначение
	Номер	Счетчик	Идентификатор заявки
	Дата	Дата/время	Дата поступления заявки
	Агент	Текстовый	Юридическое лицо клиента
	Подразделение	Текстовый	Подразделение юр.лица от которого поступила заявка
	Оборудование	Текстовый	Тип оборудования
	Серийный №	Текстовый	Серийный номер оборудования
	Неисправность	Текстовый	Вид неисправности
	Исполнитель	Текстовый	Исполнитель заявки
	Дата выполнения	Дата/время	Дата выполнения заявки
	Результат	Логический	Статус заявки

 

Фрагмент листинга программного кода представлен ниже. Полностью листинг программного кода приведен в приложении А.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ADODB, DB, StdCtrls, Grids, DBGrids, Buttons, ComCtrls, ExtCtrls, Menus;

type

 TForm6 = class(TForm)

 ADOConnection1: TADOConnection;

 DataSource1: TDataSource;

 DBGrid1: TDBGrid;

 ADOQuery1: TADOQuery;

 Panel1: TPanel;

 DateTimePicker1: TDateTimePicker;

 DateTimePicker2: TDateTimePicker;

 Label1: TLabel;

 Label2: TLabel;

 SpeedButton1: TSpeedButton;

 SpeedButton2: TSpeedButton;

 SpeedButton3: TSpeedButton;

 SpeedButton4: TSpeedButton;

 SpeedButton5: TSpeedButton;

 MainMenu1: TMainMenu;

 N1: TMenuItem;

 N2: TMenuItem;

 N3: TMenuItem;

 Excell1: TMenuItem;

 N4: TMenuItem;

 N5: TMenuItem;

 N6: TMenuItem;

 N7: TMenuItem;

 N8: TMenuItem;

 N9: TMenuItem;

 SpeedButton6: TSpeedButton;

 ADOQuery2: TADOQuery;

 GroupBox1: TGroupBox;

 ComboBox1: TComboBox;

 GroupBox2: TGroupBox;

 ComboBox2: TComboBox;

 procedure Button1Click(Sender: TObject);

 procedure Button2Click(Sender: TObject);

 procedure SpeedButton1Click(Sender: TObject);

 procedure SpeedButton2Click(Sender: TObject);

 procedure SpeedButton3Click(Sender: TObject);

 procedure SpeedButton4Click(Sender: TObject);

 procedure N7Click(Sender: TObject);

 procedure SpeedButton6Click(Sender: TObject);

 procedure N9Click(Sender: TObject);

 procedure ComboBox1Change(Sender: TObject);

 procedure ComboBox2Change(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

var

 Form6: TForm6;

implementation

uses Unit1, Unit12, Unit3, Unit13, Unit14, Unit15;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

 AdoQuery1.Filtered:=False;

 ADOQuery1.Filter:='Дата>='+DateToStr(DateTimePicker1.Date)+ ' and Дата<='+DateToStr(DateTimePicker2.Date);

 ADOQuery1.Filtered:=True;

end;

procedure TForm6.SpeedButton1Click(Sender: TObject);

begin

close;

Form1.adostatus.Active:=false;

Form1.adostatus.SQL.Text:='Select * from Data where Результат=false';

Form1.adostatus.Active:=true;

end;

procedure TForm6.SpeedButton2Click(Sender: TObject);

begin

 AdoQuery1.Filtered:=False;

 ADOQuery1.Filter:='Дата>='+DateToStr(DateTimePicker1.Date)+ ' and Дата<='+DateToStr(DateTimePicker2.Date);

 ADOQuery1.Filtered:=True;

end;

procedure TForm6.SpeedButton3Click(Sender: TObject);

begin

Form12.ShowModal;

end;

procedure TForm6.SpeedButton4Click(Sender: TObject);

begin

Form6.ADOQuery1.Edit;

Form13.Showmodal;

Form6.ADOQuery1.Active:=false;

Form6.ADOQuery1.Active:=true;

end;

procedure TForm6.N7Click(Sender: TObject);

begin

Form14.Showmodal;

end;

procedure TForm6.SpeedButton6Click(Sender: TObject);

begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:='Select * from data';

form6.ADOQuery1.active:=true;

end;

procedure TForm6.N9Click(Sender: TObject);

begin

Form15.Showmodal;

end;

procedure TForm6.ComboBox1Change(Sender: TObject);

begin

if combobox1.ItemIndex <> 0 then begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:='Select * from data where Агент='+''''+combobox1.Text+'''';

form6.ADOQuery1.active:=true;

end else begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:='Select * from data';

form6.ADOQuery1.active:=true;

end;

end;

procedure TForm6.ComboBox2Change(Sender: TObject);

begin

if combobox2.ItemIndex <> 0 then begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:='Select * from data where Исполнитель='+''''+combobox1.Text+'''';

form6.ADOQuery1.active:=true;

end else begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:='Select * from data';

form6.ADOQuery1.active:=true;

end;

end;

end.