Delphi программалау ортасы

    StatusBar1: TStatusBar;

    PopupMenu1: TPopupMenu;

    EditPop_Menu: TMenuItem;

    AddPop_Item: TMenuItem;

    EditPop_Item: TMenuItem;

    DelPop_Item: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N13: TMenuItem;

    N14: TMenuItem;

    N15: TMenuItem;

    Panel1: TPanel;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    DBGrid: TDBGrid;

    AddSpBtn: TSpeedButton;

    DelSpBtn: TSpeedButton;

    FindSpBtn: TSpeedButton;

    HelpSpBtn: TSpeedButton;

    DBEdit19: TDBEdit;

    Image2: TImage;

    N4: TMenuItem;

    LoadFotopop_Item: TMenuItem;

    DelFotoPop_Item: TMenuItem;

    DBEdit18: TDBEdit;

    DBImage1: TDBImage;

    loadfotobtn: TBitBtn;

    DelFotoBtn: TBitBtn;

    OpenPictureDialog1: TOpenPictureDialog;

    procedure AllInfoBoxKeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure Tovar_ItemClick(Sender: TObject);

    procedure Client_ItemClick(Sender: TObject);

    procedure Exit_ItemClick(Sender: TObject);

    procedure Add_ItemClick(Sender: TObject);

    procedure Edit_ItemClick(Sender: TObject);

    procedure Save_ItemClick(Sender: TObject);

    procedure CancelEdit_ItemClick(Sender: TObject);

    procedure Del_ItemClick(Sender: TObject);

    procedure SortByNumUp_ItemClick(Sender: TObject);

    procedure SortByNumDownClick(Sender: TObject);

    procedure SortByClientF_ItemClick(Sender: TObject);

    procedure SortByTovar_ItemClick(Sender: TObject);

    procedure Search_ItemClick(Sender: TObject);

    procedure About_ItemClick(Sender: TObject);

    procedure Help_ItemClick(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure DBNavigator1BeforeAction(Sender: TObject;

      Button: TNavigateBtn);

    procedure DBNavigator2BeforeAction(Sender: TObject;

      Button: TNavigateBtn);

    procedure AddPop_ItemClick(Sender: TObject);

    procedure EditPop_ItemClick(Sender: TObject);

    procedure DelPop_ItemClick(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;

      DataCol: Integer; Column: TColumn; State: TGridDrawState);

    procedure AddSpBtnClick(Sender: TObject);

    procedure DelSpBtnClick(Sender: TObject);

    procedure FindSpBtnClick(Sender: TObject);

    procedure HelpSpBtnClick(Sender: TObject);

    procedure LoadFotoBtnClick(Sender: TObject);

    procedure DelFotoBtnClick(Sender: TObject);

    procedure DBEdit18Change(Sender: TObject);

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

    procedure LoadFotopop_ItemClick(Sender: TObject);

    procedure DelFotoPop_ItemClick(Sender: TObject);

  private

    { Private declarations }

    procedure ShowHint(Sender: TObject);

  public

    { Public declarations }

  end;

var

  MainForm: TMainForm;

implementation

uses SearchUnit;

{$R *.dfm}

procedure TMainForm.AllInfoBoxKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

begin

//приостанавливаем  автоматическое обновление источника  данных при

DataM.TovarTable.DisableControls;

//переходе  на следующую запись

DataM.TovarTable.Next;

  //проверяем,  если конец таблицы, то

if DataM.TovarTable.EOF then

//блокируем  действие клавиши

Key := 0

else

//в противном  случае переходим на предыдущую  запись

DataM.TovarTable.Prior;

//разрешаем  обновление источника данных

DataM.TovarTable.EnableControls;

end;

end;

 

procedure TMainForm.Tovar_ItemClick(Sender: TObject);

begin

DBGrid.DataSource:=DataM.TovarSource;

DBGrid.Columns.Clear;

end;

 

procedure TMainForm.Client_ItemClick(Sender: TObject);

begin

DBGrid.DataSource:=DataM.KlientSource;

DBGrid.Columns.Clear;

end;

 

procedure TMainForm.Exit_ItemClick(Sender: TObject);

begin

Application.Terminate;

end;

 

procedure TMainForm.Add_ItemClick(Sender: TObject);

begin

//провреряем, какая таблица отображается в  данный момент

if DBGrid.DataSource = DataM.KlientSource then

begin

DataM.KlientTable.Insert; //добавляем новую строку

DBEdit10.ReadOnly := false;

DBEdit10.SetFocus; //устанавливаем  фокус ввода

end;

if DBGrid.DataSource = DataM.TovarSource then

begin

DataM.TovarTable.Insert;

DBEdit1.ReadOnly := false; //снимаем режим только для  чтения

DBEdit1.SetFocus;

end;

end;

 

procedure TMainForm.Edit_ItemClick(Sender: TObject);

begin

if DBGrid.DataSource = DataM.TovarSource then

begin

DBEdit1.ReadOnly := false;

DBEdit1.SetFocus;

end;

if DBGrid.DataSource = DataM.KlientSource then

begin

DBEdit10.ReadOnly := false;

DBEdit10.SetFocus;

end;

end;

 

procedure TMainForm.Save_ItemClick(Sender: TObject);

begin

if DBGrid.DataSource = DataM.TovarSource then

if DataM.TovarTable.Modified then //проверяем наличие изменений

if Application.MessageBox(PChar('Вы  желаете сохранить изменения  в таблице?'), 'Внимание!', MB_YESNOCANCEL + MB_ICONQUESTION) = id_YES then

DataM.TovarTable.Post; //если изменения есть, сохраняем

if DBGrid.DataSource = DataM.KlientSource then

if DataM.KlientTable.Modified then

if Application.MessageBox(PChar('Вы  желаете сохранить изменения  в таблице?'), 'Внимание!', MB_YESNOCANCEL + MB_ICONQUESTION) = id_YES then

DataM.KlientTable.Post;

end;

 

procedure TMainForm.CancelEdit_ItemClick(Sender: TObject);

begin

if DBGrid.DataSource = DataM.TovarSource then

if DataM.TovarTable.Modified then

DataM.TovarTable.Cancel; //отменяем изменения, если они  есть

if DBGrid.DataSource = DataM.KlientSource then

if DataM.KlientTable.Modified then

DataM.KlientTable.Cancel;

end;

 

procedure TMainForm.Del_ItemClick(Sender: TObject);

begin

if DBGrid.DataSource = DataM.TovarSource then

begin

//создаем  сообщение

if Application.MessageBox(PChar('Вы  действительно хотите удалить  запись "'+ DataM.TovarTableProducts_name.AsString + ' '+ DataM.TovarTablenumber_of_sertificate.AsString + ' ' +DataM.TovarTableproizvodstvo_tovara.AsString + '"?'),'Внимание!', MB_YESNOCANCEL + MB_ICONQUESTION) = id_YES then

begin

DataM.TovarTable.Delete; //удаляем запись

end;

end;

if DBGrid.DataSource = DataM.KlientSource then

begin

if Application.MessageBox(PChar('Вы  действительно хотите удалить  запись "'+ DataM.klienttableSurname2.AsString + '"?'), 'Внимание!', MB_YESNOCANCEL + MB_ICONQUESTION) = id_YES then

begin

DataM.klientTable.Delete; //удаляем запись

end;

end;

end;

procedure TMainForm.SortByNumUp_ItemClick(Sender: TObject);

begin

  DataM.KlientTable.Sort:='card_number ASC';

end;

 

procedure TMainForm.SortByNumDownClick(Sender: TObject);

begin

   DataM.klientTable.Sort:='card_number DESC';

end;

 

procedure TMainForm.SortByClientF_ItemClick(Sender: TObject);

begin

    DataM.klientTable.Sort:='Surname ASC';

 

end;

 

procedure TMainForm.SortByTovar_ItemClick(Sender: TObject);

begin

    DataM.tovarTable.Sort:='products_name ASC';

end;

 

procedure TMainForm.Search_ItemClick(Sender: TObject);

begin

   SearchForm.Show;

end;

 

procedure TMainForm.About_ItemClick(Sender: TObject);

begin

  AboutForm := TAboutForm.Create(Owner);

  AboutForm.ShowModal;

end;

 

procedure TMainForm.Help_ItemClick(Sender: TObject);

begin

  WinHelp(MainForm.Handle,'D:\курсая  интерфейс\HELP.hlp',HELP_CONTEXT,1);

end;

 

procedure TMainForm.ShowHint(Sender: TObject);

begin

StatusBar1.Panels[1].Text := Application.Hint;

end;

 

procedure TMainForm.FormShow(Sender: TObject);

begin

Application.OnHint := ShowHint;

end;

 

procedure TMainForm.DBNavigator1BeforeAction(Sender: TObject;

  Button: TNavigateBtn);

begin

if Button = nbDelete then

begin

Del_ItemClick(Sender); //вызываем процедуру удаления

Abort;

end;

end;

 

procedure TMainForm.DBNavigator2BeforeAction(Sender: TObject;

  Button: TNavigateBtn);

begin

if Button = nbDelete then

begin

Del_ItemClick(Sender); //вызываем процедуру удаления

Abort;

end;

end;

 

procedure TMainForm.AddPop_ItemClick(Sender: TObject);

begin

Add_ItemClick(Sender);

end;

 

procedure TMainForm.EditPop_ItemClick(Sender: TObject);

begin

Edit_ItemClick(Sender);

end;

 

procedure TMainForm.DelPop_ItemClick(Sender: TObject);

begin

Del_ItemClick(Sender);

end;

 

procedure TMainForm.N15Click(Sender: TObject);

begin

if DBGrid.DataSource = DataM.TovarSource then

begin

DataM.TovarTable.Edit;

DataM.TovarTableColor.Clear;

DataM.TovarTable.Post;

end;

if DBGrid.DataSource = DataM.klientSource then

begin

DataM.klientTable.Edit;

DataM.klientTableColor.Clear;

DataM.klientTable.Post;

end;

end;

 

procedure TMainForm.N9Click(Sender: TObject);

const

//объявляем  массив-константу для обозначения  цветов

MenuColors: array[0..5] of TColor =(clRed ,clBlack, clGreen, clYellow, clBlue, clPurple);

begin

if DBGrid.DataSource = DataM.TovarSource then

begin

//переводим  таблицу в режим редактирования

DataM.TovarTable.Edit;

//присваиваем  значение выбранного цвета полю Color в таблице

DataM.TovarTableColor.AsString:=ColorToString(MenuColors

[TMenuItem(Sender).Tag]);

//сохраняем  внесенные изменения

DataM.TovarTable.Post;

end;

if DBGrid.DataSource = DataM.klientSource then

begin

DataM.klientTable.Edit;

DataM.klientTableColor.AsString:=ColorToString(MenuColors

[TMenuItem(Sender).Tag]);

DataM.klientTable.Post;

end;

end;

 

procedure TMainForm.DBGridDrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin    if DBGrid.DataSource = DataM.TovarSource then

begin

try

DBGrid.Canvas.Font.Style:=[];

if (gdSelected in State) or (gdFocused in State) then

begin

DBGrid.Canvas.Brush.Color:=clHighLight;

DBGrid.Canvas.Font.Color:=clBlack;

end

else

begin

DBGrid.Canvas.Brush.Color:=clWhite;

DBGrid.Canvas.Font.Color:=clBlack;

if DataM.TovarTableColor.AsString <> '' then

begin

DBGrid.Canvas.Brush.Color := StringToColor(DataM.TovarTableColor.AsString);

if (DBGrid.Canvas.Brush.Color=clYellow) then DBGrid.Canvas.Font.Color := clBlack

else

DBGrid.Canvas.Font.Color := clWhite;

end;

end;

DBGrid.Canvas.FillRect(Rect);

DBGrid.Canvas.TextOut(Rect.Left, Rect.Top, Column.Field.Text);

except

DBGrid.Canvas.TextOut(Rect.Left, Rect.Top, Column.Field.Text);

end;

end;

begin

if DBGrid.DataSource = DataM.klientSource then

begin

try

DBGrid.Canvas.Font.Style:=[];

if (gdSelected in State) or (gdFocused in State) then

begin

DBGrid.Canvas.Brush.Color:=clHighLight;

DBGrid.Canvas.Font.Color:=clBlack;

end

else

begin

DBGrid.Canvas.Brush.Color:=clWhite;

DBGrid.Canvas.Font.Color:=clBlack;

if DataM.klientTableColor.AsString <> '' then

begin

DBGrid.Canvas.Brush.Color := StringToColor(DataM.klientTableColor.AsString);

if (DBGrid.Canvas.Brush.Color=clYellow) then DBGrid.Canvas.Font.Color := clBlack

else

DBGrid.Canvas.Font.Color := clWhite;

end;

end;

DBGrid.Canvas.FillRect(Rect);

DBGrid.Canvas.TextOut(Rect.Left, Rect.Top, Column.Field.Text);

except

DBGrid.Canvas.TextOut(Rect.Left, Rect.Top, Column.Field.Text);

end;

end;    end;    end;