sys030.pas

电子充值系统:全球通的充值卡通过POS机传到销售点.

unit SYS030;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Single, Menus, Db, DBTables, Grids, DBGrids, Buttons, ExtCtrls, StdCtrls,
  Mask, DBCtrls,IdGlobal ;

type
  TfmSYS030 = class(TfmSingle)
    Label1: TLabel;
    Label2: TLabel;
    ED2: TDBEdit;
    Label3: TLabel;
    ED3: TDBEdit;
    Label4: TLabel;
    ED4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    ED6: TDBEdit;
    Label7: TLabel;
    ED7: TDBEdit;
    Label8: TLabel;
    ED8: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    qyMasterSALECODE: TStringField;
    qyMasterSALENAME: TStringField;
    qyMasterAREA: TStringField;
    qyMasterSALEADDRESS: TStringField;
    qyMasterPOSTCODE: TStringField;
    qyMasterRELATEMAN: TStringField;
    qyMasterRELATEPHONE: TStringField;
    qyMasterRELATEMOBILEPHONE: TStringField;
    qyMasterEMAIL: TStringField;
    qyMasterPOSCODE: TStringField;
    qyMasterBANKACCOUNT: TStringField;
    qyMasterBUSED: TStringField;
    qyMasterCREATEMAN: TStringField;
    qyMasterCREATEDATE: TDateTimeField;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    ED9: TDBEdit;
    ED10: TDBEdit;
    ED11: TDBEdit;
    ED5: TDBEdit;
    procedure qyMasterNewRecord(DataSet: TDataSet);
    procedure qyMasterBeforePost(DataSet: TDataSet);
    procedure qyMasterBeforeDelete(DataSet: TDataSet);
    procedure sbDelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure OpenDB; override;
  end;

var
  fmSYS030: TfmSYS030;

implementation

uses Main, DataModule, PublicFunction, CheckData, GetData, BaseSearch;
{$R *.DFM}

procedure TfmSYS030.OpenDB;
begin
  qyMaster.Close;
  OrderBySQL := 'M.SaleCode';
  qyMaster.SQL.Text := SQLText;
  qyMaster.Open;
end;

procedure TfmSYS030.qyMasterNewRecord(DataSet: TDataSet);
begin
  inherited; 
  with qyMaster do
  begin
    FieldByName('SaleCode').AsString := GetMaxSaleCode();
    FieldByName('SaleName').AsString := Space(20);
    FieldByName('area').AsString := Space(10);
    FieldByName('SaleAddress').AsString := Space(30);
    FieldByName('PostCode').AsString := Space(6);
    FieldByName('RelateMan').AsString := Space(10);
    FieldByName('RelatePhone').AsString := Space(20);
    FieldByName('RelateMobilePhone').AsString := Space(20);
    FieldByName('EMail').AsString := Space(30);
    FieldByName('PosCode').AsString := Space(20);
    FieldByName('BankAccount').AsString := Space(20);
    FieldByName('bused').AsString := '1';
  end;
end;

procedure TfmSYS030.qyMasterBeforePost(DataSet: TDataSet);
begin
  inherited;
  if qyMaster.State = dsInsert then
  begin
    if Trim(qyMaster.FieldByName('SaleCode').AsString) = '' then
    begin
      NullWarning('销售点编码');
      ED1.SetFocus;
      Abort;
    end;

    try
      StrToInt(qyMaster.FieldByName('Salecode').AsString);
    except
      MyWarning('销售点编码中包含非数字字符！');
      ED1.SetFocus;
      Abort;
    end;

    if length(Trim(qyMaster.FieldByName('Salecode').AsString)) <> 4 then
    begin
      MyWarning('销售点编码长度不符，应该为4位！');
      ED1.SetFocus;
      Abort;
    end;

    with qyTemp do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT Salecode ');
      SQL.Add('FROM pwpt_Sale');
      SQL.Add('WHERE Salecode = :Salecode');
      ParamByName('Salecode').AsString := qyMaster.FieldByName('Salecode').AsString;
      Open;
    end;

    if qyTemp.FieldByName('Salecode').AsString <> '' then
    begin
      RepeatWarning('销售点编码');
      Ed1.SetFocus;
      Abort;
    end;
  end;

  if Trim(qyMaster.FieldByName('SaleName').AsString) = '' then
  begin
    NullWarning('销售点名称');
    ED3.SetFocus;
    Abort;
  end;

  if Trim(qyMaster.FieldByName('area').AsString) = '' then
  begin
    NullWarning('地区');
    ED2.SetFocus;
    Abort;
  end;

  if Trim(qyMaster.FieldByName('PosCode').AsString) = '' then
  begin
    NullWarning('POS机编号');
    ED10.SetFocus;
    Abort;
  end;

  qyMaster.FieldByName('CreateMan').AsString := sAdmCode;
  qyMaster.FieldByName('CreateDate').AsDateTime := GetSysDate();

  if qyMaster.State = dsInsert then
    WriteOperatorLog('[添加记录][Pwpt_Sale]['+qyMaster.fieldbyname('SaleCode').asstring+']')
  else
    WriteOperatorLog('[修改记录][Pwpt_Sale]['+qyMaster.fieldbyname('SaleCode').asstring+']') ;
end;

procedure TfmSYS030.qyMasterBeforeDelete(DataSet: TDataSet);
begin
  inherited;
  //是否符合删除条件
  WriteOperatorLog('[删除记录][Pwpt_Sale]['+qyMaster.fieldbyname('SaleCode').asstring+']') ;
end;

procedure TfmSYS030.sbDelClick(Sender: TObject);
begin
  inherited;
  //不能删除
end;

end.