D10DJkaimengwenshang/项目代码/wenshangkm/G04复核布匹检验/U_ParamSet.pas

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) = '<27><>' then
        cds_params.fieldByName('chen').Value:='1'
      else
        cds_params.fieldByName('chen').Value:='0';

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

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

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

      // <20><>ֽ
      cds_params.fieldByName('outPage').Value:=outPage.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) ,1);


      // <20><><EFBFBD><EFBFBD>
      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 := '<27><>'
      else
        edtChen.Text := '';
      if Trim(cds_params.fieldByName('mabiao').AsString) = '1' then
        edtMaBiao.Text := '<27><>'
      else
        edtMaBiao.Text := '';
      if Trim(cds_params.fieldByName('mbunit').AsString) = '1' then
        edtMBDW.Text := '<27><>'
      else
        edtMBDW.Text := '';

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

      // <20><>ֽ
      outPage.Text := Trim(cds_params.fieldByName('outPage').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;

      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;

      // <20><><EFBFBD><EFBFBD>
      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);

      //<2F><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>
       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.