232 lines
7.5 KiB
ObjectPascal
232 lines
7.5 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('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('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);
|
|
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;
|
|
|
|
// ´ò°ü
|
|
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.
|