base2infowageprocedure.pas

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

unit Base2InfoWageProcedure;

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
  TfrmBase2InfoWageProcedure = class(TfrmEditForm)
    bbAdd: TSeSkinButton;
    bbOk: TSeSkinButton;
    bbNo: TSeSkinButton;
    Panel1: TSeSkinPanel;
    lblName: TSeSkinLabel;
    lblGJ: TSeSkinLabel;
    Label1: TSeSkinLabel;
    edtName: TdxDBEdit;
    edtGZ: TdxDBButtonEdit;
    edtGJ: TdxDBCurrencyEdit;
    Label12: TSeSkinLabel;
    dxDBMemo1: TdxDBMemo;
    procedure bbNoClick(Sender: TObject);
    procedure bbOkClick(Sender: TObject);
    procedure edtGZButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure bbAddClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    bReturn: Boolean;
    lMode: Integer;
    function CheckEdit: Boolean;
    procedure MainShow;
    procedure LoadData;
  public
    { Public declarations }
  end;

function Base2InfoWageProcedureShow(l1Mode: Integer): Boolean;

implementation

uses SysPublic, Base2Info;

{$R *.DFM}

function Base2InfoWageProcedureShow(l1Mode: Integer): Boolean;
var
  frmBase2InfoWageProcedure: TfrmBase2InfoWageProcedure;
begin
  frmBase2InfoWageProcedure := TfrmBase2InfoWageProcedure.Create(Application);
  with frmBase2InfoWageProcedure do
  begin
    lMode := l1Mode;
    MainShow;
    Result := bReturn;
    Free;
  end;
end;

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

procedure TfrmBase2InfoWageProcedure.LoadData;
begin
  bReturn := false;
  Caption := '工资工序详细资料';
end;

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

procedure TfrmBase2InfoWageProcedure.bbOkClick(Sender: TObject);
begin
  inherited;
  if not CheckEdit then
    Exit;
  bReturn := true;
  Close;
end;

procedure TfrmBase2InfoWageProcedure.edtGZButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
var
  sKind1: string;
begin
  inherited;
  sKind1 := BaseSelect(BASE_WAGE_KIND, 1, edtGZ.Text);
  if sKind1 <> '' then
    DataSet.FieldByName(edtGZ.DataField).AsString := sKind1;
end;

function TfrmBase2InfoWageProcedure.CheckEdit: Boolean;
begin
  Result := CheckEditEmpty(1, self, [lblName.Name, Label1.Name, lblGJ.Name],
    [edtName.Name, edtGZ.Name, edtGJ.Name]);
end;

procedure TfrmBase2InfoWageProcedure.bbAddClick(Sender: TObject);
begin
  inherited;
  if not CheckEdit then Exit;
  DataSet.Edit;
  SaveDataSet(TADODataSet(DataSet), false);
  DataSet.Last;
  DataSet.Insert;
end;

procedure TfrmBase2InfoWageProcedure.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;

end.