sysparam.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit sysParam;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, ExtCtrls, Buttons;

type
  TsysParamForm = class(TForm)
    chkNoStore: TCheckBox;
    chkExtraPage: TCheckBox;
    chkInputTip: TCheckBox;
    chkFIFO: TCheckBox;
    chkZone: TCheckBox;
    chkPenStyle: TCheckBox;
    grpPaper: TRadioGroup;
    grpInprice: TRadioGroup;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    spnLevel3: TSpinEdit;
    spnLevel2: TSpinEdit;
    spnLevel1: TSpinEdit;
    chkPrintBarcode: TCheckBox;
    Label13: TLabel;
    Label17: TLabel;
    Label20: TLabel;
    spnPageBottomMargin: TSpinEdit;
    spnSumBit: TSpinEdit;
    spnSample: TSpinEdit;
    cmdOk: TSpeedButton;
    cmdExit: TSpeedButton;
    chkTwoUnit: TCheckBox;
    Label1: TLabel;
    spnBillStyle: TSpinEdit;
    chkbOutUnit2: TCheckBox;
    Label2: TLabel;
    spnIOTotalBit: TSpinEdit;
    procedure FormShow(Sender: TObject);
    procedure cmdOkClick(Sender: TObject);
    procedure cmdExitClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sysParamForm: TsysParamForm;

implementation

uses datamodule1;

{$R *.dfm}

procedure TsysParamForm.FormShow(Sender: TObject);
begin
  with dataE2 do
  begin
     chkNoStore.Checked:=bNoStore;
     chkExtraPage.checked:=bExtraPage;
     grpPaper.itemindex:=nSysPaper;
     spnLevel1.value:=nSysLevel1;
     spnLevel2.value:=nSysLevel2-nSysLevel1;
     spnLevel3.value:=nSysLevel3-nSysLevel2;
     chkInputTip.checked:=bInputTip;
     spnSample.value:=nSample;
     chkZone.checked:=bZone;
     chkPenStyle.checked:=bPenStyle;
     chkFIFO.checked:=bFIFO;
     grpInprice.itemindex:=nInpriceType;
     spnSumBit.value:=nSumbit;
     chkPrintBarcode.checked:=bPrintBarcode;
     spnPageBottomMargin.value:=nPageBottomMargin;
     chkTwoUnit.checked:=bTwounit;
     spnBillStyle.Value:=nBillStyle;
     chkbOutUnit2.Checked:=bOutUnit2;
     spnIOTotalBit.value:=nIOTotalbit;
  end;
end;

procedure TsysParamForm.cmdOkClick(Sender: TObject);
var
  s:string;
begin
  with dataE2 do
  begin
    if chkNoStore.checked then s:='1' else s:='0';
    if chkExtraPage.checked then s:=s+'1' else s:=s+'0';
    s:=s+intTostr(grpPaper.itemindex);
    s:=s+intTostr(spnLevel1.value);
    s:=s+intTostr(spnLevel2.value);
    s:=s+intTostr(spnLevel3.value);
    if chkInputTip.checked then s:=s+'1' else s:=s+'0';
    if chkFIFO.checked then s:=s+'1' else s:=s+'0';
    s:=s+intTostr(spnSample.value);
    if chkZone.checked then s:=s+'1' else s:=s+'0';
    if chkPenStyle.checked then s:=s+'1' else s:=s+'0';
    s:=s+intTostr(grpInprice.itemindex);
    s:=s+intTostr(spnSumBit.value);
    if chkPrintbarcode.checked then s:=s+'1' else s:=s+'0';
    s:=s+intTostr(spnPageBottomMargin.value);
    if chkTwoUnit.checked then s:=s+'1' else s:=s+'0';
    s:=s+intTostr(spnBillStyle.value);
    if chkbOutUnit2.Checked then s:=s+'1' else s:=s+'0';
    s:=s+intTostr(spnIOTotalBit.value);
    sSelection:=s;

    adoCmd.commandtext:='update cfg set selection= :selection';
    adoCmd.parameters[0].value:=sSelection;
    adoCmd.execute;

    DecodeSelection;
  end;
end;

procedure TsysParamForm.cmdExitClick(Sender: TObject);
begin
  close;
end;

procedure TsysParamForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #27 then
    close;
end;

end.