frmdepart.pas

物流供应链管理系统

unit frmDepart;

interface

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

type
  TFormDepart = class(TFormDataManageBase)
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    DBEdtPrincipal: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    ADOTEmployee: TADOTable;
    DSEmployee: TDataSource;
    ADOQ: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure LCDBOperatTool1ModeChange(AMode: TBtnMode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormDepart: TFormDepart;

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

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

procedure TFormDepart.LCDBOperatTool1ModeChange(AMode: TBtnMode);
var
  LOldId: string;
  i: Integer;
begin
  inherited;
  if AMode = bmAdd then
  begin
    ADOQ.SQL.Clear;
    ADOQ.SQL.Add('select top 1 id from t_Department order by id desc');
    ADOQ.Open;
    LOldId := ADOQ.FieldByName('id').AsString;
    i := StrToIntDef(RightStr(LOldId, 3), 0);
    Inc(i);
    DBEdtId.Text := 'BM'+ FormatFloat('000',i);
  end;
end;

end.