97 lines
2.7 KiB
ObjectPascal
97 lines
2.7 KiB
ObjectPascal
unit BusinessProcessorServerMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
|
|
uDAPoweredByDataAbstractButton, Spin;
|
|
|
|
type
|
|
TBusinessProcessorServerMainForm = class(TForm)
|
|
Label1: TLabel;
|
|
GroupBox1: TGroupBox;
|
|
cbCheckCustomerID: TCheckBox;
|
|
cbDeclineDeleteCustomers: TCheckBox;
|
|
cbCompany: TCheckBox;
|
|
eCompany: TEdit;
|
|
GroupBox2: TGroupBox;
|
|
cbFreight: TCheckBox;
|
|
cbDeclineDeleteOrders: TCheckBox;
|
|
eFreight: TSpinEdit;
|
|
procedure cbCompanyClick(Sender: TObject);
|
|
procedure eCompanyChange(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure cbFreightClick(Sender: TObject);
|
|
procedure eFreightChange(Sender: TObject);
|
|
procedure cbDeclineDeleteCustomersClick(Sender: TObject);
|
|
procedure cbDeclineDeleteOrdersClick(Sender: TObject);
|
|
procedure cbCheckCustomerIDClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
BusinessProcessorServerMainForm : TBusinessProcessorServerMainForm;
|
|
|
|
implementation
|
|
uses
|
|
ServerGlobal;
|
|
{$R *.dfm}
|
|
|
|
procedure TBusinessProcessorServerMainForm.cbCompanyClick(Sender: TObject);
|
|
begin
|
|
eCompany.Enabled := cbCompany.Checked;
|
|
gCompanyCheck := cbCompany.Checked;
|
|
eCompanyChange(eCompany);
|
|
end;
|
|
|
|
procedure TBusinessProcessorServerMainForm.eCompanyChange(Sender: TObject);
|
|
begin
|
|
gCompany := eCompany.Text;
|
|
end;
|
|
|
|
procedure TBusinessProcessorServerMainForm.FormShow(Sender: TObject);
|
|
begin
|
|
eCompany.Text := gCompany;
|
|
eFreight.Value := gFreight;
|
|
cbCompany.Checked := gCompanyCheck;
|
|
cbFreight.Checked := gFreightCheck;
|
|
cbCompanyClick(cbCompany);
|
|
cbFreightClick(cbFreight);
|
|
cbDeclineDeleteCustomers.Checked := gDeclineDeleteCustomers;
|
|
cbDeclineDeleteOrders.Checked := gDeclineDeleteOrders;
|
|
cbCheckCustomerID.Checked := gCheckCustomerID;
|
|
end;
|
|
|
|
procedure TBusinessProcessorServerMainForm.cbFreightClick(Sender: TObject);
|
|
begin
|
|
eFreight.Enabled := cbFreight.Checked;
|
|
gFreightCheck := cbFreight.Checked;
|
|
eFreightChange(eFreight);
|
|
end;
|
|
|
|
procedure TBusinessProcessorServerMainForm.eFreightChange(Sender: TObject);
|
|
begin
|
|
gFreight := eFreight.Value;
|
|
end;
|
|
|
|
procedure TBusinessProcessorServerMainForm.cbDeclineDeleteCustomersClick(Sender: TObject);
|
|
begin
|
|
gDeclineDeleteCustomers := cbDeclineDeleteCustomers.Checked;
|
|
end;
|
|
|
|
procedure TBusinessProcessorServerMainForm.cbDeclineDeleteOrdersClick(Sender: TObject);
|
|
begin
|
|
gDeclineDeleteOrders := cbDeclineDeleteOrders.Checked;
|
|
end;
|
|
|
|
procedure TBusinessProcessorServerMainForm.cbCheckCustomerIDClick(Sender: TObject);
|
|
begin
|
|
gCheckCustomerID := cbCheckCustomerID.Checked;
|
|
end;
|
|
|
|
end.
|
|
|