devhardoptions.~pa

Barcode And LabelPrint

unit DevhardOptions;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InfoBase, wwDialog, wwidlg, DB, ADODB, ActnList, ExtCtrls,
  ComCtrls, ToolWin, Grids, DBGrids, StdCtrls, DBCtrls, Mask;

type
  TFrmDevhardOptions = class(TfrmInfoBase)
    GroupBox1: TGroupBox;
    Label9: TLabel;
    Panel6: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    DBEdtID: TDBEdit;
    DBEdtZName: TDBEdit;
    Editdate: TEdit;
    GroupBox8: TGroupBox;
    DBMemo1: TDBMemo;
    Panel9: TPanel;
    GroupBox5: TGroupBox;
    DBGridDeviceType: TDBGrid;
    DBEdtEName: TDBEdit;
    QBaseInfoID: TIntegerField;
    QBaseInfoZName: TWideStringField;
    QBaseInfoMemo: TWideStringField;
    QBaseInfoUpDateDate: TDateTimeField;
    QBaseInfoNum: TStringField;
    QIsUniqueNum: TADOQuery;
    QBaseInfoEName: TWideStringField;
    procedure QBaseInfoENameValidate(Sender: TField);
    procedure QBaseInfoBeforePost(DataSet: TDataSet);
    procedure dsBaseInfoDataChange(Sender: TObject; Field: TField);
    procedure dsBaseInfoStateChange(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure QBaseInfoNumValidate(Sender: TField);
    procedure DBEdtIDKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdtENameKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmDevhardOptions: TFrmDevhardOptions;

implementation

uses StockDataModel, PublicFunction;

{$R *.dfm}

procedure TFrmDevhardOptions.QBaseInfoENameValidate(Sender: TField);
begin
  inherited;
  if not IsUnique('EName', Sender.AsString) then
  begin
    showmessage('英文简称已经存在,请重新填写,谢谢');
    abort;
  end;
end;

procedure TFrmDevhardOptions.QBaseInfoBeforePost(DataSet: TDataSet);
var
  i: integer;
begin
  inherited;
 //check
  if (DBEdtID.text = '') then //(EDTDevNum.Text='') or
  begin
    messagedlg('编号不能为空,请填写,谢谢!', mtinformation, [mbok], 0); // 编号/
    DBEdtID.SetFocus;
    Abort;
  end;
  if (DBEdtEName.text = '') then //(EDTDevNum.Text='') or
  begin
    messagedlg('英文简称不能为空,请填写,谢谢!', mtinformation, [mbok], 0); // 编号/
    DBEdtEName.SetFocus;
    Abort;
  end;

  //if checkvalue('DevHardOptions', 'num', DBEdtID.Text) then
  //begin
 //   if QBaseInfo.State in [dsInsert] then DBEdtID.Text := '';
 // end;

  //if DBEdtID.Text = '' then QBaseInfo.FieldByName('num').AsString := inttostr(GetNextRecNoMax(StockDM.ADOConn, 'DevHardOptions', 'num', '', '', 20)); //自动
  QBaseInfo.FieldByName('UpDateDate').AsdateTime := date;

end;

procedure TFrmDevhardOptions.dsBaseInfoDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
  if QBaseInfo.State = dsBrowse then
  begin
    //fneFileName.Text := QBaseInfo.FieldByName('ImageFile').Asstring;
    EditDate.Text := QBaseInfo.FieldByName('UpDateDate').Asstring;
  //dsBaseInfoStateChange(self);
    //LoadInfos;
  end;
end;

procedure TFrmDevhardOptions.dsBaseInfoStateChange(Sender: TObject);
var i: integer;
begin
  inherited;
  with Panel6 do
    for i := 0 to ControlCount - 1 do
    begin
      if Controls[i] is TDBEdit then
        (Controls[i] as TDBEdit).ReadOnly := not acSave.Enabled
      else if Controls[i] is TDBLookupComboBox then
        (Controls[i] as TDBLookupComboBox).Enabled := acSave.Enabled;

    end;
  DBMemo1.ReadOnly := not acSave.Enabled;
  DBGridDeviceType.Enabled := not acSave.Enabled;
end;

procedure TFrmDevhardOptions.acNewExecute(Sender: TObject);
begin

  DBEdtID.SetFocus;
  inherited;
  //fneFileName.Text := '';
  EditDate.Text := '';
end;

procedure TFrmDevhardOptions.FormShow(Sender: TObject);
begin
  inherited;
 //if QProSerise.Active = false then QProSerise.Active := true;
  if QBaseInfo.State = dsBrowse then
  begin
    //fneFileName.Text := QBaseInfo.FieldByName('ImageFile').Asstring;
    EditDate.Text := QBaseInfo.FieldByName('UpDateDate').Asstring;
  //dsBaseInfoStateChange(self);
   // LoadInfos;
  end;
  DBEdtID.SetFocus;
end;

procedure TFrmDevhardOptions.QBaseInfoNumValidate(Sender: TField);
  function IsUniqueNum(ParamName, ParamValue: string): Boolean; {检测代码是否重复}
  begin
    Result := True;
//if QBaseInfo.State = dsInsert then
    with QIsUniqueNum do
    begin
      parameters.ParamValues[ParamName] := ParamValue;
      if Active then Requery else Open;
      if RecordCount > 0 then Result := False;
    end
  end;
begin
  inherited;
  if not IsUniqueNum('Num', Sender.AsString) then
  begin
    showmessage('编号已经存在,请重新填写,谢谢');
    abort;
  end;
end;

procedure TFrmDevhardOptions.DBEdtIDKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if (not (Key in ['0'..'9', #8])) then Key := #0;
end;

procedure TFrmDevhardOptions.DBEdtENameKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if (not (Key in ['0'..'9', 'a'..'z', 'A'..'Z', #8])) then Key := #0;
end;

end.