frmregion.pas

来自「非常地全面完整的物流供应链管理系统 包含全部的需求文档」· PAS 代码 · 共 85 行

unit frmRegion;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls,
  LCDBOperatTool, DB, ADODB;

type
  TFormRegion = class(TForm)
    ADOTRegion: TADOTable;
    DSRegion: TDataSource;
    LCDBOperatTool1: TLCDBOperatTool;
    DBEdtId: TDBEdit;
    DBEdtName: TDBEdit;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    ADOCon: TADOConnection;
    ADOQRegion: TADOQuery;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure LCDBOperatTool1Click(Btn: TToolButton;
      var Continued: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRegion: TFormRegion;

implementation
uses untGlobal, CommonFunc, untConfig;
{$R *.dfm}

procedure TFormRegion.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TFormRegion.FormCreate(Sender: TObject);
begin
  ADOCon.Close;
  ADOCon.ConnectionString := GetConnectionString;
  try
    ADOCon.Open;
    ADOTRegion.Open;
  except
    raise Exception.Create(Format(ERRORCANNOTOPENTABLE,['地区表']));
  end;
end;

procedure TFormRegion.FormDeactivate(Sender: TObject);
begin
  ADOCon.Close;
end;

procedure TFormRegion.LCDBOperatTool1Click(Btn: TToolButton;
  var Continued: Boolean);
begin
  case Btn of
    tbPost:
      if LCDBOperatTool1.BtnMode = bmAdd then
      begin
        try
          ADOQRegion.Parameters.ParamByName('id').Value := Trim(DBEdtId.Text);
          ADOQRegion.Open;
          if ADOQRegion.RecordCount >0 then
          begin
            LCShowMessage(Format(COLUMNREPLICATE,['地区编码']));
            Continued := false;
          end;
        except
        end;
      end;
  end;
end;

end.