236 lines
8.0 KiB
ObjectPascal
236 lines
8.0 KiB
ObjectPascal
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.
|
|
|