base2infofixdec.pas

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

unit Base2InfoFixDec;

interface

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

type
  TfrmBase2InfoFixDec = class(TfrmEditForm)
    Panel1: TSeSkinPanel;
    Label1: TSeSkinLabel;
    Label3: TSeSkinLabel;
    Label4: TSeSkinLabel;
    Label7: TSeSkinLabel;
    Label6: TSeSkinLabel;
    Label5: TSeSkinLabel;
    edtUserCode: TdxDBButtonEdit;
    edtName: TdxDBEdit;
    dxDBDateEdit1: TdxDBDateEdit;
    dxDBEdit1: TdxDBEdit;
    dxDBEdit2: TdxDBEdit;
    edtAddMode: TdxDBButtonEdit;
    dxDBEdit3: TdxDBEdit;
    bbAdd: TSeSkinButton;
    bbOk: TSeSkinButton;
    bbNo: TSeSkinButton;
    Label2: TSeSkinLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtAddModeButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure edtUserCodeButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure bbAddClick(Sender: TObject);
    procedure bbOkClick(Sender: TObject);
    procedure bbNoClick(Sender: TObject);
    procedure dxDBDateEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    bReturn: Boolean;
    lMode: Integer;
    procedure MainShow;
    procedure LoadData;
  public
    { Public declarations }
  end;

function UpdateFixTable(sFixID, sValue: string): Boolean; //更新固定资产删除标记
function Base2InfoFixDecShow(l1Mode: Integer): Boolean;

implementation

uses SysPublic, Base2Info;

{$R *.DFM}

function Base2InfoFixDecShow(l1Mode: Integer): Boolean;
var
  frmBase2InfoFixDec: TfrmBase2InfoFixDec;
begin
  frmBase2InfoFixDec := TfrmBase2InfoFixDec.Create(Application);
  with frmBase2InfoFixDec do
  begin
    lMode := l1Mode;
    MainShow;
    Result := bReturn;
    Free;
  end;
end;

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

procedure TfrmBase2InfoFixDec.LoadData;
begin
  bReturn := false;
  Caption := '固定资减少';
end;

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

procedure TfrmBase2InfoFixDec.edtAddModeButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sMode1: string;
begin
  inherited;
  sMode1 := BaseSelect(BASE_FIXED_MODE, 1, edtAddMode.text);
  if sMode1 <> '' then
   DataSet.FieldByName(edtAddMode.DataField).AsString :=sMode1;
end;

procedure TfrmBase2InfoFixDec.edtUserCodeButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sAddID: string;
begin
  inherited;
  sAddID := '';
  sAddID := BaseSelect(BASE_FIXED_ADD, 1, edtUserCode.text);
  if sAddID <> '' then
  begin
    DataSet.FieldByName('FixedID').AsString := sAddID;
    DataSet.FieldByName(edtUserCode.DataField).AsString := FieldIdToName('FixedAssets', sAddID, 'UserCode');
    DataSet.FieldByName(edtName.DataField).AsString := FieldIdToName('FixedAssets', sAddID, 'Name');
  end;
end;

function UpdateFixTable(sFixID, sValue: string): Boolean;
var
  sSql: string;
begin
  sSql := ' Update FixedAssets Set [Delete]=' + sValue + ' Where ID=' + sFixID;
  Result := ExecSql(sSql);
end;

procedure TfrmBase2InfoFixDec.bbAddClick(Sender: TObject);
begin
  inherited;
  if not CheckEditEmpty(1, self, [Label2.Name, Label3.Name, Label5.Name,
    Label4.Name], [edtName.Name, dxDBDateEdit1.Name, dxDBEdit1.Name, edtUserCode.Name])
    then Exit;
  DataSet.Edit;
  UpdateFixTable(DataSet.FieldByName('FixedID').AsString, 'TRUE');
  SaveDataSet(TADODataSet(DataSet), false);
  DataSet.Insert;
end;

procedure TfrmBase2InfoFixDec.bbOkClick(Sender: TObject);
begin
  inherited;
  if not CheckEditEmpty(1, self, [Label2.Name, Label3.Name, Label5.Name,
    Label4.Name], [edtName.Name, dxDBDateEdit1.Name, dxDBEdit1.Name,
      edtUserCode.Name]) then Exit;
  UpdateFixTable(DataSet.FieldByName('FixedID').AsString, 'TRUE');
  bReturn := true;
  Close;
end;

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

procedure TfrmBase2InfoFixDec.dxDBDateEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  case KEY of
    VK_DOWN: SendMsg(TWinControl(Sender).Handle, WM_KEYDOWN, VK_F4);
  end;
end;

end.