base2infodepot.pas

胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.

unit Base2InfoDepot;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  EditForm, StdCtrls, Buttons, ComCtrls, DBData, ExtCtrls, dxCntner,
  dxEditor, dxEdLib, dxDBELib, dxExEdtr, Db, ADODB, KsControls, KsButtons,
  KsSkinButtons, KsHooks, KsForms, KsSkinForms, KsLabels, KsSkinLabels,
  KsPanels, KsSkinPanels;

type
  TfrmBase2InfoDepot = class(TfrmEditForm)
    bbOk: TSeSkinButton;
    bbNo: TSeSkinButton;
    bbAdd: TSeSkinButton;
    Panel1: TSeSkinPanel;
    lblName: TSeSkinLabel;
    Label12: TSeSkinLabel;
    lblPinYin: TSeSkinLabel;
    edtName: TdxDBEdit;
    dxDBMemo1: TdxDBMemo;
    edtPinYin: TdxDBEdit;
    Label11: TSeSkinLabel;
    dxDBEdit4: TdxDBEdit;
    Label1: TSeSkinLabel;
    dxDBEdit1: TdxDBEdit;
    Label2: TSeSkinLabel;
    dxDBEdit2: TdxDBEdit;
    Label3: TSeSkinLabel;
    edtShortName: TdxDBEdit;
    procedure bbNoClick(Sender: TObject);
    procedure bbOkClick(Sender: TObject);
    procedure bbAddClick(Sender: TObject);
    procedure edtNameExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    bReturn: Boolean;
    lMode: Integer;
    procedure MainShow;
    procedure LoadData;
  public
    { Public declarations }
  end;

function Base2InfoDepotShow(l1Mode: Integer): Boolean;

implementation

uses SysPublic, Base2Info;

{$R *.DFM}

function Base2InfoDepotShow(l1Mode: Integer): Boolean;
var
  frmBase2InfoDepot: TfrmBase2InfoDepot;
begin
  frmBase2InfoDepot := TfrmBase2InfoDepot.Create(Application);
  with frmBase2InfoDepot do
  begin
    lMode := l1Mode;
    MainShow;
    Result := bReturn;
    Free;
  end;
end;

procedure TfrmBase2InfoDepot.MainShow;
begin
  DataSet:=edtName.DataSource.DataSet;
  LoadData;
  ShowModal;
end;

procedure TfrmBase2InfoDepot.LoadData;
begin
  bReturn := false;
  Caption := '仓库基本信息编辑';
end;

procedure TfrmBase2InfoDepot.bbNoClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmBase2InfoDepot.bbOkClick(Sender: TObject);
begin
  inherited;
  if not CheckEditEmpty(1, self, [lblName.Name], [edtName.Name]) then
    Exit;
  bReturn := true;
  Close;
end;

procedure TfrmBase2InfoDepot.bbAddClick(Sender: TObject);
begin
  inherited;
  if not CheckEditEmpty(1, self, [lblName.Name], [edtName.Name]) then  Exit;
  DataSet.Edit;
  SaveDataSet(TADODataSet(DataSet), false);
  UpdateICCount('Depot', TADODataSet(DataSet).FieldByName('TreeParent').AsInteger);
  DataSet.Last;
  DataSet.Insert;
end;

procedure TfrmBase2InfoDepot.edtNameExit(Sender: TObject);
begin
  inherited;
  DataSet.FieldByName(edtPinYin.DataField).AsString := GetPY(edtName.Text);
  if Trim(edtShortName.Text) = '' then
    DataSet.FieldByName(edtShortName.DataField).AsString:= Copy(edtName.Text, 1, 8);
end;

procedure TfrmBase2InfoDepot.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  if (bReturn = False) and (DataSet.State in [dsInsert])
    and (Trim(edtName.Text) <> '') then
  begin
    if MsgBox('你没有保存数据，确定要退出吗？',
      '提示', MB_OKCANCEL) <> IDOK then
      Action := caNone;
  end;
end;

end.