unit U_ParamSet;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  U_frameParam, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxGeometry, dxFramedControl, Vcl.Menus, Vcl.StdCtrls, cxButtons, dxPanel,
  Vcl.Touch.Keyboard, Vcl.ExtCtrls, Data.DB, Datasnap.DBClient;

type
  TfrmParamSet = class(TForm)
    FrameParam1: TFrameParam;
    dxPanel1: TdxPanel;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    TouchKeyboard1: TTouchKeyboard;
    cds_params: TClientDataSet;
    Label33: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure cxButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FrameParam1BeginPieceNoPropertiesChange(Sender: TObject);
    procedure FrameParam1EndPieceNoPropertiesChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmParamSet: TfrmParamSet;

implementation

uses
  U_iniparam;
{$R *.dfm}

procedure TfrmParamSet.cxButton1Click(Sender: TObject);
begin
  if not cds_params.IsEmpty then
  begin
    cds_params.Edit;
    with FrameParam1 do
    begin
      if Trim(edtChen.Text) = '√' then
        cds_params.fieldByName('chen').Value := '1'
      else
        cds_params.fieldByName('chen').Value := '0';

      if Trim(edtMaBiao.Text) = '√' then
        cds_params.fieldByName('mabiao').Value := '1'
      else
        cds_params.fieldByName('mabiao').Value := '0';

      if Trim(edtMBDW.Text) = '√' then
        cds_params.fieldByName('mbunit').Value := '1'
      else
        cds_params.fieldByName('mbunit').Value := '0';

      //
      cds_params.fieldByName('weightRule').Value := weightRule.ItemIndex;

      // 出纸
      cds_params.fieldByName('outPage').Value := outPage.Text;
      cds_params.fieldByName('aixunpage').Value := aixunpage.Text;
      cds_params.fieldByName('labNumber').Value := StrToIntDef(labNumber.Text, 1);

      //
      cds_params.fieldByName('MinLen').Value := StrToIntDef(Trim(MinLen.Text), 0);
      cds_params.fieldByName('MaxLen').Value := StrToIntDef(Trim(MaxLen.Text), 100);
      cds_params.fieldByName('MinWeight').Value := StrToIntDef(Trim(MinWeight.Text), 0);
      cds_params.fieldByName('MaxWeight').Value := StrToIntDef(Trim(MaxWeight.Text), 100);

      cds_params.fieldByName('MPlace').Value := StrToIntDef(Trim(MPlace.Text), 1);
      cds_params.fieldByName('YPlace').Value := StrToIntDef(Trim(YPlace.Text), 1);
      cds_params.fieldByName('KgPlace').Value := StrToIntDef(Trim(KgPlace.Text), 1);

      cds_params.fieldByName('BeginPieceNo').Value := StrToIntDef(Trim(BeginPieceNo.Text), 1);
      cds_params.fieldByName('EndPieceNo').Value := StrToIntDef(Trim(EndPieceNo.Text), 999999999);
      cds_params.fieldByName('BeginTXM').Value := Trim(BeginTXM.Text);
      cds_params.fieldByName('EndTXM').Value := Trim(EndTXM.Text);


      // 打包
      cds_params.fieldByName('dabao').Value := trim(edtdabao.Text);
      cds_params.fieldByName('packRolls').Value := StrToIntDef(Trim(packRolls.Text), 2);
      cds_params.fieldByName('packnoMake').Value := packnoMake.Text;
      cds_params.fieldByName('packPostAction').Value := trim(packPrintAction.Text);

      cds_params.fieldByName('packlabNumber').Value := StrToIntDef(packlabNumber.Text, 0);

      cds_params.fieldByName('packPrintPreview').value := packPrintPreview.checked;

      //
      cds_params.fieldByName('rollnoMake').Value := rollnoMake.Text;

      cds_params.fieldByName('AddwetPresent').Value := StrToFloatDef(Trim(AddwetPresent.Text), 0);
      cds_params.fieldByName('AddLenPresent').Value := StrToFloatDef(Trim(AddLenPresent.Text), 0);
      gPresentNumFlag := presentNumFlag.itemIndex;

    end;
    cds_params.Post;
  end;
  ModalResult := 1;
end;

procedure TfrmParamSet.cxButton2Click(Sender: TObject);
begin
  close;
end;

procedure TfrmParamSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

procedure TfrmParamSet.FormCreate(Sender: TObject);
begin
  FrameParam1.Align := alClient;
end;

procedure TfrmParamSet.FormShow(Sender: TObject);
begin
  if not cds_params.IsEmpty then
  begin
    with FrameParam1 do
    begin
      if Trim(cds_params.fieldByName('chen').AsString) = '1' then
        edtChen.Text := '√'
      else
        edtChen.Text := '';
      if Trim(cds_params.fieldByName('mabiao').AsString) = '1' then
        edtMaBiao.Text := '√'
      else
        edtMaBiao.Text := '';
      if Trim(cds_params.fieldByName('mbunit').AsString) = '1' then
        edtMBDW.Text := '√'
      else
        edtMBDW.Text := '';

      //
      weightRule.ItemIndex := cds_params.fieldByName('weightRule').AsInteger;

      // 出纸
      outPage.Text := Trim(cds_params.fieldByName('outPage').AsString);
      aixunpage.Text := Trim(cds_params.fieldByName('aixunpage').AsString);
      labNumber.ItemIndex := labNumber.Items.IndexOf(cds_params.fieldByName('labNumber').AsString);

      //
      MinLen.Text := cds_params.fieldByName('MinLen').AsString;
      MaxLen.Text := cds_params.fieldByName('MaxLen').AsString;
      MinWeight.Text := cds_params.fieldByName('MinWeight').AsString;
      MaxWeight.Text := cds_params.fieldByName('MaxWeight').AsString;
      if cds_params.fieldByName('BeginPieceNo').AsString <> '0' then
        BeginPieceNo.Text := cds_params.fieldByName('BeginPieceNo').AsString;

      if cds_params.fieldByName('EndPieceNo').AsString <> '0' then
        EndPieceNo.Text := cds_params.fieldByName('EndPieceNo').AsString;

      if cds_params.fieldByName('BeginTXM').AsString <> '' then
        BeginTXM.Text := cds_params.fieldByName('BeginTXM').AsString;

      if cds_params.fieldByName('EndTXM').AsString <> '' then
        EndTXM.Text := cds_params.fieldByName('EndTXM').AsString;

      MPlace.Text := cds_params.fieldByName('MPlace').AsString;
      YPlace.Text := cds_params.fieldByName('YPlace').AsString;
      KgPlace.Text := cds_params.fieldByName('KgPlace').AsString;

      AddwetPresent.Text := ''; //  cds_params.fieldByName('AddwetPresent').AsString;
      AddLenPresent.Text := ''; //  cds_params.fieldByName('AddLenPresent').AsString;
      // 打包
      edtdabao.Text := cds_params.fieldByName('dabao').AsString;
      if cds_params.fieldByName('packRolls').AsInteger > 0 then
        packRolls.Text := cds_params.fieldByName('packRolls').AsString;
      packPrintPreview.checked := cds_params.fieldByName('packPrintPreview').AsBoolean;
      packlabNumber.ItemIndex := packlabNumber.Properties.Items.IndexOf(cds_params.fieldByName('packlabNumber').AsString);
      //
      packnoMake.ItemIndex := packnoMake.Properties.Items.IndexOf(cds_params.fieldByName('packnoMake').AsString);

      //打印包号
      packPrintAction.ItemIndex := packPrintAction.Properties.Items.IndexOf(cds_params.fieldByName('packPostAction').AsString);

      if packPrintAction.ItemIndex = -1 then
        packPrintAction.ItemIndex := 1;

      if packnoMake.ItemIndex = -1 then
        packnoMake.ItemIndex := 0;


      //
      rollnoMake.ItemIndex := rollnoMake.Properties.Items.IndexOf(cds_params.fieldByName('rollnoMake').AsString);

      if rollnoMake.ItemIndex = -1 then
        rollnoMake.ItemIndex := 0;

      //
      presentNumFlag.itemIndex := gPresentNumFlag;

    end;
  end;
  FrameParam1.MinLen.SetFocus;
end;

procedure TfrmParamSet.FrameParam1BeginPieceNoPropertiesChange(Sender: TObject);
begin
  if (StrToIntDef(Trim(FrameParam1.BeginPieceNo.Text), 0) > 0) or (StrToIntDef(Trim(FrameParam1.EndPieceNo.Text), 0) > 0) then
  begin
    FrameParam1.rollnoMake.ItemIndex := 1;
  end
  else
  begin
    FrameParam1.rollnoMake.ItemIndex := 0;
  end;
end;

procedure TfrmParamSet.FrameParam1EndPieceNoPropertiesChange(Sender: TObject);
begin
  if (StrToIntDef(Trim(FrameParam1.EndPieceNo.Text), 0) > 0) or (StrToIntDef(Trim(FrameParam1.BeginPieceNo.Text), 0) > 0) then
  begin
    FrameParam1.rollnoMake.ItemIndex := 1;
  end
  else
  begin
    FrameParam1.rollnoMake.ItemIndex := 0;
  end;
end;

end.