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

end;

procedure TForm18.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 TForm18.BitBtn3Click(Sender: TObject);

begin

if not ADOTable1.Locate('Фамилия', Edit1.Text, [loCaseInsensitive,loPartialKey]) then

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

end;

end.

 

unit Dobavit_r;

interface

uses

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

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

type

TForm19 = class(TForm)

    StatusBar1: TStatusBar;

    Image1: TImage;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    BitBtn1: TBitBtn;

    Button1: TButton;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit1: TEdit;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    MaskEdit1: TMaskEdit;

    BitBtn3: TBitBtn;

    procedure Button1Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

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

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

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

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form19: TForm19;

implementation

uses Unit18;

{$R *.dfm}

procedure TForm19.Button1Click(Sender: TObject);

begin

edit1.Text:='';

      label7.visible:=false;

      label8.visible:=false;

      edit2.Text:='';

      label7.visible:=false;

      label8.visible:=false;

      edit3.Text:='';

      label7.visible:=false;

      label8.visible:=false;

      edit4.Text:='';

      label7.visible:=false;

      label8.visible:=false;

      combobox1.Text:='';

      label7.visible:=false;

      label8.visible:=false;

      combobox2.Text:='';

      label7.visible:=false;

      label8.visible:=false;

      maskedit1.Text:='';

      label7.visible:=false;

      label8.visible:=false;

end;

procedure TForm19.BitBtn1Click(Sender: TObject);

var

i:integer;

begin

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

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

form18.DBGrid1.DataSource.DataSet.Close;

{Form6.DBGrid1.DataSource.DataSet.Close; }

form18.ADOQuery1.SQL.Text :=

      'INSERT INTO www(' +

      'Фамилия, '+

      'Имя, ' +

      'Отчество, ' +

      'Стаж,' +

      'Работник,' +

      'Категория,' +

      'Телефон' +

      ') VALUES('+

            QuotedStr(Edit1.Text) + ', ' +

             QuotedStr(Edit2.Text) + ', ' +

             QuotedStr(Edit3.Text) + ', ' +

             QuotedStr(Edit4.Text) + ', ' +

             QuotedStr(combobox1.Text) + ', ' +

             QuotedStr(combobox2.Text) + ', ' +

             QuotedStr(maskedit1.Text)   + ')';

form18.ADOQuery1.ExecSQL;

form18.DBGrid1.DataSource.DataSet.Open;

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

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

end;

procedure TForm19.BitBtn3Click(Sender: TObject);

begin

form18.Show;

close;

end;

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

begin

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

end;

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

begin

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

end;

procedure TForm19.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

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

end;

procedure TForm19.FormCreate(Sender: TObject);

begin

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

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

end;

end.

 

unit Adres;

interface

uses

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

Dialogs, ComCtrls, StdCtrls;

type

TForm20 = class(TForm)

 Memo1: TMemo;

 StatusBar1: TStatusBar;

 procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  var

  Form20: TForm20;

implementation

{$R *.dfm}

procedure TForm20.FormCreate(Sender: TObject);

begin

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

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

end;

end.

 

unit O_programme;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type

    TForm21 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    BitBtn1: TBitBtn;

  private

    { Private declarations }

  public

    { Public declarations }

end;

var

Form21: TForm21;

implementation

{$R *.dfm}

end.

 

unit O_razrabotcike;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type

TForm22 = class(TForm)

    Image1: TImage;

    Image2: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    BitBtn1: TBitBtn;

    private

    { Private declarations }

    public

    { Public declarations }

    end;

var

  Form22: TForm22;

implementation

{$R *.dfm}

end.