Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Приложение В. Листинг
|
|
unit UnitMain;
procedure TFormMain.N4Click(Sender: TObject);
begin
application.CreateForm(TFormVidStan, FormVidStan);
end;
procedure TFormMain.N5Click(Sender: TObject);
begin
application.CreateForm(TFormVidRem, FormVidRem);
end;
procedure TFormMain.N6Click(Sender: TObject);
begin
application.CreateForm(TFormRem, FormRem);
end;
procedure TFormMain.N7Click(Sender: TObject);
begin
application.CreateForm(TFormCount, FormCount);
end;
unit UnitCount;
procedure TFormCount.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action: =cafree;
end;
unit UnitNewRem;
procedure TFormNewRem.FormCreate(Sender: TObject);
begin
db.ADORem.Append;
end;
procedure TFormNewRem.Button1Click(Sender: TObject);
begin
db.ADORem.Fields.Fields[2].AsDateTime: = datetimepicker1.Date;
db.ADORem.Post;
formRem.ADOQrem.Active: =false;
formRem.ADOQrem.Active: =true;
formNewRem.Close;
end;
procedure TFormNewRem.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action: =cafree;
end;
end.
unit UnitRem;
procedure TFormRem.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action: =cafree;
end;
procedure TFormRem.Button2Click(Sender: TObject);
begin
adoqrem.Active: = false;
adoqrem.SQL.Clear;
adoqrem.SQL.Add('SELECT fakt_remonta.id_rem, class_stan.marka, class_stan.strana, class_stan.god_vipuska, fakt_remonta.data_nachala, vid_remonta.prodoljitelnost, vid_remonta.stoimost, vid_remonta.nazvanie');
adoqrem.SQL.Add('FROM vid_remonta INNER JOIN (class_stan INNER JOIN fakt_remonta ON class_stan.[id_class] = fakt_remonta.[vid_stanka]) ON vid_remonta.[id_vida] = fakt_remonta.[vid_remonta]');
if radiobutton1.Checked then
adoqrem.SQL.Add('WHERE marka LIKE ''%' + edit1.Text + '%''');
if radiobutton2.Checked then
adoqrem.SQL.Add('WHERE strana LIKE ''%' + edit1.Text + '%''');
if radiobutton3.Checked then
adoqrem.SQL.Add('WHERE god_nachala LIKE ''%' + datetostr(datetimepicker1.Date) + '%''');
if radiobutton4.Checked then
adoqrem.SQL.Add('WHERE god_vipuska LIKE ''%' + datetostr(datetimepicker1.Date) + '%''');
if radiobutton5.Checked then
adoqrem.SQL.Add('WHERE prodoljitelnost LIKE ''%' + edit1.Text + '%''');
if radiobutton6.Checked then
adoqrem.SQL.Add('WHERE stoimost LIKE ''%' + edit1.Text + '%''');
if radiobutton7.Checked then
adoqrem.SQL.Add('WHERE nazvanie LIKE ''%' + edit1.Text + '%''');
adoqrem.Active: = true;
end;
procedure TFormRem.Button3Click(Sender: TObject);
begin
adoqrem.Active: = false;
adoqrem.SQL.Clear;
adoqrem.SQL.Add('SELECT fakt_remonta.id_rem, class_stan.marka, class_stan.strana, class_stan.god_vipuska, fakt_remonta.data_nachala, vid_remonta.prodoljitelnost, vid_remonta.stoimost, vid_remonta.nazvanie');
adoqrem.SQL.Add('FROM vid_remonta INNER JOIN (class_stan INNER JOIN fakt_remonta ON class_stan.[id_class] = fakt_remonta.[vid_stanka]) ON vid_remonta.[id_vida] = fakt_remonta.[vid_remonta]');
adoqrem.Active: = true;
end;
procedure TFormRem.Button1Click(Sender: TObject);
begin
application.CreateForm(TFormNewRem, FormNewRem);
end;
end.
unit UnitVidRem;
interface
uses
procedure TFormVidRem.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action: =cafree;
end;
procedure TFormVidRem.Button1Click(Sender: TObject);
begin
db.ADOVidRem.Append;
end;
procedure TFormVidRem.Button2Click(Sender: TObject);
begin
db.ADOVidRem.Post;
end;
procedure TFormVidRem.Button3Click(Sender: TObject);
begin
db.ADOVidRem.Delete;
end;
procedure TFormVidRem.Button4Click(Sender: TObject);
begin
db.ADOVidRem.Filtered: = false;
end;
procedure TFormVidRem.Button5Click(Sender: TObject);
begin
db.ADOVidRem.Filtered: = false;
if radiobutton1.Checked then
db.ADOVidRem.Filter: = 'nazvanie = ''' + edit1.Text + ''' ';
if radiobutton2.Checked then
db.ADOVidRem.Filter: = 'prodoljitelnost = ''' + edit1.Text + ''' ';
if radiobutton3.Checked then
db.ADOVidRem.Filter: = 'stoimost = ''' + edit1.Text + ''' ';
db.ADOVidRem.Filtered: = true;
end;
end.
unit UnitVidStan;
procedure TFormVidStan.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action: =cafree;
end;
procedure TFormVidStan.Button1Click(Sender: TObject);
begin
db.ADOVidStan.Append;
end;
procedure TFormVidStan.Button2Click(Sender: TObject);
begin
db.ADOVidStan.Delete;
end;
procedure TFormVidStan.Button3Click(Sender: TObject);
begin
db.ADOVidStan.Fields.Fields[2].AsDateTime: = datetimepicker1.Date;
db.ADOVidStan.Post;
end;
procedure TFormVidStan.Button5Click(Sender: TObject);
begin
db.ADOVidStan.Filtered: = false;
if radiobutton1.Checked then
begin
db.ADOVidStan.Filter: = 'strana = ''' + edit1.Text + ''' ';
end;
if radiobutton2.Checked then
begin
db.ADOVidStan.Filter: = 'marka = ''' + edit1.Text + ''' ';
end;
if radiobutton3.Checked then
begin
db.ADOVidStan.Filter: = 'god_vipuska = ''' + datetostr(datetimepicker2.Date) + ''' ';
end;
db.ADOVidStan.Filtered: = true;
end;
procedure TFormVidStan.Button4Click(Sender: TObject);
begin
db.ADOVidStan.Filtered: = false;
end;
end.