Программа учета заказов МБОУ «Новоархангельская ООШ»

      'Автор,' +

      'Год' +

      ') VALUES('+

                     QuotedStr(combobox1.Text) + ', ' +

                     QuotedStr(Edit1.Text) + ', ' +

                    QuotedStr(Edit2.Text) + ', ' +

                     QuotedStr(formatdatetime('dd-mm-yyyy',datetimepicker1.date)) + ')';

 form6.ADOQuery1.ExecSQL;

 form6.DBGrid1.DataSource.DataSet.Open;

 for i:=0 to form6.dbgrid1.Columns.count-1 do

 form6.dbgrid1.Columns.Items[i].Width:=100;

 end else messageDlg('Ошибка! Заполнены не все поля',mtError,[mbOK],0);

 end;

 procedure TForm7.BitBtn2Click(Sender: TObject);

 begin

 edit1.Text:='';

      label5.visible:=false;

      label6.visible:=false;

      edit2.Text:='';

      label5.visible:=false;

      label6.visible:=false;

      combobox1.Text:='';

      label5.visible:=false;

      label6.visible:=false;

end;

procedure TForm7.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['0'..'9',#8]) then key:=#0;

end;

procedure TForm7.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if  (key in ['0'..'9',#8]) then key:=#0;

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

procedure TForm7.BitBtn4Click(Sender: TObject);

begin

form3.show;

end;

end.

 

unit Poiskknig;

interface

uses

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

Dialogs, StdCtrls, Buttons, ComCtrls, DB, ADODB, ExtCtrls;

type

TForm8 = class(TForm)

    StatusBar1: TStatusBar;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    BitBtn2: TBitBtn;

    Button1: TButton;

    Button2: TButton;

    ADOTable1: TADOTable;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

Form8: TForm8;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

if not Form6.ADOTable1.Locate('Название', Edit1.Text, [loCaseInsensitive,loPartialKey]) then

ShowMessage('Запись не найдена');

MessageDlg('Поиск выполнен!!!',mtInformation,[mbOK],0);

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

if not Form6.ADOTable1.Locate('Автор', Edit1.Text, [loCaseInsensitive,loPartialKey]) then

ShowMessage('Запись не найдена');

MessageDlg('Поиск выполнен!!!',mtInformation,[mbOK],0);

end;

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

edit1.Text:='';

label2.visible:=false;

label3.visible:=false;

end;

procedure TForm8.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

end.

 

unit Sortknig;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, Buttons, jpeg, ExtCtrls;

type

    TForm9 = class(TForm)

    StatusBar1: TStatusBar;

    Label2: TLabel;

    Label3: TLabel;

    Image1: TImage;

    Label1: TLabel;

    BitBtn1: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

Form9: TForm9;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

form6.adotable1.sort:='Название';

MessageDlg('Сортировка выполнена',mtInformation,[mbOK],0);

end;

procedure TForm9.BitBtn4Click(Sender: TObject);

begin

form6.adotable1.sort:='Автор';

MessageDlg('Сортировка выполнена',mtInformation,[mbOK],0);

end;

procedure TForm9.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

end.

 

unit Filter_knig;

interface

uses

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

Dialogs, Buttons, StdCtrls, ComCtrls, DB, ADODB, jpeg, ExtCtrls;

type

    TForm10 = class(TForm)

    StatusBar1: TStatusBar;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    ComboBox1: TComboBox;

    Edit1: TEdit;

    Button1: TButton;

    BitBtn1: TBitBtn;

    ADOTable1: TADOTable;

    procedure Edit1Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

Form10: TForm10;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm10.Edit1Change(Sender: TObject);

begin 

if Length(Edit1.Text) > 0 then

begin

form6.ADOTable1.Filtered:=false;

form6.ADOTable1.Filter:=Combobox1.Text + ' LIKE ' + #39 + Edit1.Text + '%' + #39;

form6.ADOTable1.Filtered:=true;

end

else form6.ADOTable1.Filtered:=false;

if not Form6.ADOTable1.Locate('', Edit1.Text, [loCaseInsensitive,loPartialKey]) then

ShowMessage('Запись  произведена успешно!!');

end;

procedure TForm10.Button1Click(Sender: TObject);

begin

edit1.Text:='';

label2.visible:=false;

label3.visible:=false;

end;

procedure TForm10.Button2Click(Sender: TObject);

begin

if not Form6.ADOTable1.Locate('', Edit1.Text, [loCaseInsensitive,loPartialKey]) then

ShowMessage('Запись  произведена успешно!!');

end;

procedure TForm10.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

end.

 

unit Unit11;

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls,

ComCtrls, jpeg;

type

TForm11 = class(TForm)

 Image1: TImage;

    DBGrid1: TDBGrid;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Button1: TButton;

    Button2: TButton;

    BitBtn3: TBitBtn;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    Label1: TLabel;

    StatusBar1: TStatusBar;

    DBNavigator1: TDBNavigator;

    BitBtn4: TBitBtn;

    procedure FormCreate(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

Form11: TForm11;

implementation

uses Unit12, Unit13, Unit14, Unit15, Unit4;

{$R *.dfm}

procedure TForm11.FormCreate(Sender: TObject);

var

i:integer;

begin

for i := 0 to DBGrid1.Columns.Count - 1 do

DBGrid1.Columns.Items[i].Width := 100;

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

procedure TForm11.BitBtn1Click(Sender: TObject);

begin

form12.show;

end;

procedure TForm11.BitBtn2Click(Sender: TObject);

begin

form13.show;

end;

procedure TForm11.Button1Click(Sender: TObject);

begin

form14.show;

end;

procedure TForm11.Button2Click(Sender: TObject);

begin

form15.show;

end;

procedure TForm11.BitBtn4Click(Sender: TObject);

begin

adotable1.Delete;

end;

procedure TForm11.BitBtn5Click(Sender: TObject);

begin

form4.show;

end;

end.

 

unit Dobavit_sport;

interface

uses

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

Dialogs, ComCtrls, Buttons, StdCtrls, jpeg, ExtCtrls;

type

    TForm12 = class(TForm)

    StatusBar1: TStatusBar;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    ComboBox1: TComboBox;

    DateTimePicker1: TDateTimePicker;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    ComboBox2: TComboBox;

    BitBtn3: TBitBtn;

    procedure Button1Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

    procedure FormCreate(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form12: TForm12;

implementation

uses Unit11, Unit4;

{$R *.dfm}

procedure TForm12.Button1Click(Sender: TObject);

  var

i:integer;

begin

if (Edit2.Text<>'') and (Edit1.Text<>'') and (ComboBox1.Text<>'') and        (ComboBox1.Text<>'') then begin

for i:=0 to form11.dbgrid1.Columns.count-1 do

form11.dbgrid1.Columns.Items[i].Width:=100;

form11.DBGrid1.DataSource.DataSet.Close;

form11.ADOQuery1.SQL.Text :=

      'INSERT INTO dannie(' +

      'Название, '+

      'Количество, ' +

      'Цвет, ' +

      'Производитель,' +

      'Дата' +

      ') VALUES('+

           QuotedStr(Edit1.Text) + ', ' +

           QuotedStr(Edit2.Text) + ', ' +

           QuotedStr(combobox2.Text) + ', ' +

           QuotedStr(combobox1.Text) + ', ' +               

       QuotedStr(formatdatetime('dd-mm-yyyy',datetimepicker1.date)) + ')';

form11.ADOQuery1.ExecSQL;

form11.DBGrid1.DataSource.DataSet.Open;

for i:=0 to form11.dbgrid1.Columns.count-1 do

form11.dbgrid1.Columns.Items[i].Width:=100;

end else messageDlg('Ошибка! Заполнены не все поля',mtError,[mbOK],0);

end;

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

edit1.Text:='';

      label7.visible:=false;

      label8.visible:=false;

      edit2.Text:='';

      label7.visible:=false;

      label8.visible:=false;

      combobox1.Text:='';

      label7.visible:=false;

      label8.visible:=false;

      combobox1.Text:='';

      label7.visible:=false;

      label8.visible:=false;

end;

procedure TForm12.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if  (key in ['0'..'9',#8]) then key:=#0;

end;

procedure TForm12.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if  not (key in ['0'..'9',#8]) then key:=#0;

end;

procedure TForm12.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

procedure TForm12.BitBtn3Click(Sender: TObject);

begin

form4.show;

end;

end.

 

unit Poisk_sport;

interface

uses

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

Dialogs, ComCtrls, StdCtrls, Buttons, DB, ADODB, jpeg, ExtCtrls;

type

TForm13 = class(TForm)

 StatusBar1: TStatusBar;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    ADOTable1: TADOTable;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

   Form13: TForm13;

implementation

uses Unit11;

{$R *.dfm}

procedure TForm13.BitBtn1Click(Sender: TObject);

begin

if not Form11.ADOTable1.Locate('название', Edit1.Text, [loCaseInsensitive,loPartialKey]) then

ShowMessage('Запись не найдена');

MessageDlg('Поиск выполнен!!!',mtInformation,[mbOK],0);

end;

procedure TForm13.BitBtn2Click(Sender: TObject);

begin

if not Form11.ADOTable1.Locate('производитель', Edit1.Text, [loCaseInsensitive,loPartialKey]) then

ShowMessage('Запись не найдена');

MessageDlg('Поиск выполнен!!!',mtInformation,[mbOK],0);

end;

procedure TForm13.BitBtn3Click(Sender: TObject);

begin

edit1.Text:='';

label2.visible:=false;

 label3.visible:=false;

end;

procedure TForm13.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

end.

 

unit Sort_sport;

interface

uses

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

Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls;

type

    TForm14 = class(TForm)

    StatusBar1: TStatusBar;

    Label3: TLabel;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn4: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

uses Unit11;

{$R *.dfm}

procedure TForm14.BitBtn1Click(Sender: TObject);

begin

form11.adotable1.sort:='название';

MessageDlg('Сортировка выполнена',mtInformation,[mbOK],0);

end;

procedure TForm14.BitBtn2Click(Sender: TObject);

begin

form11.adotable1.sort:='производитель';

MessageDlg('Сортировка выполнена',mtInformation,[mbOK],0);

end;

procedure TForm14.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

end.

 

unit Filter;

interface

uses

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

Dialogs, Buttons, ComCtrls, StdCtrls, ExtCtrls;

type

TForm15 = class(TForm)

    StatusBar1: TStatusBar;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    ComboBox1: TComboBox;

    Edit1: TEdit;

    Button1: TButton;

    BitBtn1: TBitBtn;

    procedure Button1Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure FormCreate(Sender: TObject);

private

    { Private declarations }

public

    { Public declarations }

end;

var

Form15: TForm15;

implementation

uses Unit11;

{$R *.dfm}

procedure TForm15.Button1Click(Sender: TObject);

begin

edit1.Text:='';

      label2.visible:=false;

      label3.visible:=false;

end;

procedure TForm15.Edit1Change(Sender: TObject);

begin

if Length(Edit1.Text) > 0 then

begin

form11.ADOTable1.Filtered:=false;

form11.ADOTable1.Filter:=Combobox1.Text + ' LIKE ' + #39 + Edit1.Text + '%' + #39;

form11.ADOTable1.Filtered:=true;

end

else form11.ADOTable1.Filtered:=false;

end;

procedure TForm15.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

end.

 

unit Office;

interface

uses

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

Dialogs, ComCtrls, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TForm16 = class(TForm)

    StatusBar1: TStatusBar;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

Form16: TForm16;

implementation

{$R *.dfm}

procedure TForm16.BitBtn4Click(Sender: TObject);

begin

WinExec('calc.exe', SW_ShowMaximized);

end;

procedure TForm16.BitBtn1Click(Sender: TObject);

begin

WinExec('C:\Program Files\Microsoft Office\Office12\winword.exe', SW_ShowMaximized);

end;

procedure TForm16.BitBtn2Click(Sender: TObject);

begin

WinExec('C:\Program Files\Microsoft Office\office12\msaccess.exe',SW_ShowMaximized);

end;

procedure TForm16.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

end.

 

unit Director;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;

type

TForm17 = class(TForm)

    Label1: TLabel;

    Image3: TImage;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    BitBtn1: TBitBtn;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

Form17: TForm17;

implementation

{$R *.dfm}

end.

 

unit Spisok_rab;

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB, ComCtrls,

ExtCtrls, DBCtrls;

type

TForm18 = class(TForm)

    StatusBar1: TStatusBar;

    Label1: TLabel;

    DBGrid1: TDBGrid;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    Edit1: TEdit;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    DBNavigator1: TDBNavigator;

    BitBtn4: TBitBtn;

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

Form18: TForm18

implementation

uses Unit19;

{$R *.dfm}

procedure TForm18.BitBtn2Click(Sender: TObject);

begin

adotable1.Delete;

end;

procedure TForm18.BitBtn1Click(Sender: TObject);

begin

form19.show;