Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
11
Добавлен:
06.02.2016
Размер:
2.18 Кб
Скачать
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, Mask;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
GroupBox1: TGroupBox;
Label1: TLabel;
MaskEdit1: TMaskEdit;
Button1: TButton;
Button2: TButton;
Label2: TLabel;
Edit1: TEdit;
DBGrid2: TDBGrid;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure RadioGroup1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses UnitDM, Otbor, Redactor;

{$R *.dfm}

procedure TForm1.RadioGroup1Click(Sender: TObject);
var ns: string;
begin
case RadioGroup2.ItemIndex of
0: ns:=' ASC';
1: ns:=' DESC';
end;
with RadioGroup1 do
DM.ADOTable1.Sort:=Items[ItemIndex];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with DM.ADOTable1 do
begin
Filter:='[Стоимость]<='+MaskEdit1.Text;
Filtered:=True;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with DM.QueryMagazin do
begin
Active:=False;
Parameters.ParamByName('cena').Value:=Edit1.Text;
Active:=True;
Form2.Label1.Caption:='Отобрано записей: '+IntToStr(RecordCount);
end;
Form2.ShowModal;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
FormRedactor.ShowModal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
DM.ADOTable1.Insert;
FormRedactor.ShowModal;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if MessageBox(0, PChar('Удалить запись '+ DM.ADOTable1DSDesigner2.AsString
+' '+ DM.ADOTable1DSDesigner3.AsString +'?'),
'Подумайте', MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2)=id_yes
then DM.ADOTable1.Delete;
end;

end.
Соседние файлы в папке Курсовой проект по РПП
  • #
    06.02.20163.91 Кб11Redactor.~dfm
  • #
    06.02.20161.12 Кб11Redactor.~pas
  • #
    06.02.20167.2 Кб11Unit1.dcu
  • #
    06.02.201666 б11Unit1.ddp
  • #
    06.02.20165.64 Кб11Unit1.dfm
  • #
    06.02.20162.18 Кб11Unit1.pas
  • #
    06.02.201666 б11Unit1.~ddp
  • #
    06.02.20165.6 Кб12Unit1.~dfm
  • #
    06.02.20162.18 Кб12Unit1.~pas
  • #
    06.02.20162.58 Кб12UnitDM.dcu
  • #
    06.02.201666 б12UnitDM.ddp