frmwarehousemanage.pas

物流供应链管理系统

unit frmWareHouseManage;

interface

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

type
  TFormWareHouseManage = class(TForm)
    LCDBOperatTool1: TLCDBOperatTool;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdtPrincipal: TDBEdit;
    Button1: TButton;
    ADOTWareHouse: TADOTable;
    DSWareHoue: TDataSource;
    DBGrid1: TDBGrid;
    ADOQ: TADOQuery;
    ADOCon: TADOConnection;
    Label5: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    ADOTDepart: TADOTable;
    DSDepart: TDataSource;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure LCDBOperatTool1ModeChange(AMode: TBtnMode);
  private
    { Private declarations }
    function FGenerateWareHouseId: string;//产生仓库号
  public
    { Public declarations }
  end;

var
  FormWareHouseManage: TFormWareHouseManage;

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

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

procedure TFormWareHouseManage.FormCreate(Sender: TObject);
begin
  ADOCon.Close;
  ADOCon.ConnectionString := GetConnectionString;
  try
    ADOCon.Open;
    ADOTWareHouse.Open;
    ADOTDepart.Open;
  except
    raise;
  end;
end;

procedure TFormWareHouseManage.Button1Click(Sender: TObject);
begin
  DBEdtPrincipal.Text := ShowFieldSelectDlg(ADOCon.ConnectionString,
    't_Employee');
end;

procedure TFormWareHouseManage.LCDBOperatTool1ModeChange(AMode: TBtnMode);
begin
  if AMode = bmAdd then
    ADOTWareHouse.FieldByName('WarehouseId').AsString := FGenerateWareHouseId;
end;

function TFormWareHouseManage.FGenerateWareHouseId: string;
var
  LOld, LNew: string;
  i: integer;
begin
  ADOQ.Close;
  ADOQ.SQL.Clear;
  ADOQ.SQL.Add('select top 1 WarehouseId from t_WareHouse ');
  ADOQ.SQL.Add('order by WarehouseId desc');
  ADOQ.Open;
  if ADOQ.RecordCount > 0 then
    LOld := ADOQ.FieldByName('WarehouseId').AsString;
  LOld := RightStr(LOld,2);
  i := StrToIntDef(LOld,0);
  Inc(i);
  LNew := 'CKM'+FormatFloat('00',i);
  result := LNew;
end;

end.