Дипломная работа: Автоматизация регистрации и обработки заявок на комплектующие для ПК на ООО "Samsung Electronics"

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmSellers: TfmSellers;

implementation

uses uDM, uIncome;

{$R *.dfm}

procedure TfmSellers.FormShow(Sender: TObject);

begin

DM.dstSellers.Open;

end;

procedure TfmSellers.FormClose(Sender: TObject; var Action: TCloseAction);

begin

//Набор данных остается открытым, если открыты формы, где он

используется:

if not fmIncome.Showing then

DM.dstSellers.Close;

end;

end.

unit uRequests;

interface

uses

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

Dialogs, ImgList, ActnList, StdActns, ActnMan, StdCtrls, Buttons, Grids,

DBGrids, ToolWin, ActnCtrls, ActnMenus, ExtCtrls, DBCtrls, Mask, ComCtrls;

type

TfmRequests = class(TForm)

Panel1: TPanel;

DBNavigator1: TDBNavigator;

bbtExit: TBitBtn;

Panel2: TPanel;

Panel3: TPanel;

Splitter2: TSplitter;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label5: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label6: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

Label7: TLabel;

DBLookupComboBox4: TDBLookupComboBox;

DBMemo1: TDBMemo;

Label9: TLabel;

DBEdit2: TDBEdit;

GroupBox1: TGroupBox;

chbDate1: TCheckBox;

dtpDate1: TDateTimePicker;

chbDate2: TCheckBox;

dtpDate2: TDateTimePicker;

chbState: TCheckBox;

dblcbState: TDBLookupComboBox;

chbPlace: TCheckBox;

dblcbPlace: TDBLookupComboBox;

chbEmp: TCheckBox;

dblcbEmp: TDBLookupComboBox;

DBGrid1: TDBGrid;

Label8: TLabel;

DBEdit4: TDBEdit;

Label10: TLabel;

DBEdit5: TDBEdit;

procedure FormShow(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

procedure chbDate1Click(Sender: TObject);

procedure DBGrid1Enter(Sender: TObject);

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

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

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmRequests: TfmRequests;

implementation

uses uDepartments, uEmployees, uParameters, uTypes, uDM, uInventory,

ADODB, DB, uRep, uInventList, uProducers, uPlacesList,

uStatus;

{$R *.dfm}

procedure TfmRequests.FormShow(Sender: TObject);

begin

DM.dstRequest.Open;

end;

//Сортировка списка заказов по полю, по загаловку которого сделан клик

мышью:

procedure TfmRequests.DBGrid1TitleClick(Column: TColumn);

begin

if Column.Field.FieldName = 'Состояние' then

DM.dstRequest.Sort := 'СостояниеID'

else if Column.Field.FieldName = 'Инцидент' then

DM.dstRequest.Sort := 'ИнцидентID'

else if Column.Field.FieldName = 'РабМесто' then

100

DM.dstRequest.Sort := 'РабМестоID'

else if Column.Field.FieldName = 'Исполнитель' then

DM.dstRequest.Sort := 'ИсполнительID'

else

DM.dstRequest.Sort := Column.Field.FieldName;

end;

//Отбор заказов по выбранным критериям:

procedure TfmRequests.chbDate1Click(Sender: TObject);

var

Filter: string;

begin

Filter := '';

if chbDate1.Checked then

begin

if Filter <> '' then

Filter := Filter + ' and ';

Filter := Filter + 'ДатаВремяПриема >= ' +

QuotedStr(DateToStr(dtpDate1.Date));

end;

if chbDate2.Checked then

begin

if Filter <> '' then

Filter := Filter + ' and ';

Filter := Filter + 'ДатаВремяПриема <= ' +

QuotedStr(DateToStr(dtpDate2.Date));

end;

Источник: https://baza.diplomsite.ru/previewfile/2210

Смотрите также:







Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии