u_otherchargeadd.~pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_OtherChargeAdd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, DB, ADODB;

type
  TfrmOtherChargeAdd = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    edtChargeUser: TLabeledEdit;
    edtChargeMon: TLabeledEdit;
    btnOK: TButton;
    btnCancle: TButton;
    btnClose: TButton;
    Label2: TLabel;
    cmbName: TComboBox;
    qry: TADOQuery;
    pipOtherCharge: TADOStoredProc;
    edtDate: TEdit;
    popGetSystemDate: TADOStoredProc;
    Label3: TLabel;
    edtNode: TEdit;
    procedure InitEdt();
    function  CheckEdt() :Boolean;
    procedure FormShow(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnCancleClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure cmbNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtChargeUserKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtChargeMonKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtDateKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtNodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOtherChargeAdd: TfrmOtherChargeAdd;

implementation

uses u_DataCtrl, u_OtherCharge;

{$R *.dfm}

procedure TfrmOtherChargeAdd.InitEdt;
begin
  edtChargeUser.Clear;
  edtChargeMon.Clear;
  edtNode.Clear;
end;

procedure TfrmOtherChargeAdd.FormShow(Sender: TObject);
begin
  InitEdt;
  cmbName.SetFocus;
  qry.Active := True;
  qry.Close;
  qry.Open;
  while not(qry.Eof) do
  begin
    cmbName.Items.Add(qry.FieldValues['ClassName']);
    qry.Next;
  end;
  with popGetSystemDate do
  begin
    close;
    ExecProc;
    edtDate.Text := Parameters.ParamByName('@billcode').Value;
  end;
end;

procedure TfrmOtherChargeAdd.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmOtherChargeAdd.btnCancleClick(Sender: TObject);
begin
  InitEdt;
  cmbName.SetFocus;
end;

function TfrmOtherChargeAdd.CheckEdt: Boolean;
begin
  Result := False;
  if cmbName.Text = '' then
  begin
    Application.MessageBox('请输入费用名称','警告',MB_OK);
    cmbName.SetFocus;
    Result := False;
    Exit;
  end;
  if edtChargeUser.Text = '' then
  begin
    Application.MessageBox('请输入经手人','警告',MB_OK);
    edtChargeUser.SetFocus;
    Result := False;
    Exit;
  end;
  if edtChargeMon.Text = '' then
  begin
    Application.MessageBox('请输入费用金额','警告',MB_OK);
    edtChargeMon.SetFocus;
    Result := False;
    Exit;
  end
  else
    Result := True;
end;

procedure TfrmOtherChargeAdd.btnOKClick(Sender: TObject);
var
  Success : Integer;
begin
  if CheckEdt() = False then
    Exit;
  if Application.MessageBox('您真的要添加这项费用吗？','警告',MB_OKCANCEL) = 2 then
  begin
    InitEdt();
    cmbName.SetFocus;
    Exit;
  end;
  with pipOtherCharge do
  begin
    Parameters.ParamByName('@ChargeName').Value := cmbName.Text;
    Parameters.ParamByName('@ChargeUser').Value := edtChargeUser.Text;
    Parameters.ParamByName('@ChargeMon').Value  := edtChargeMon.Text;
    Parameters.ParamByName('@ChargeDate').Value := edtDate.Text;
    Parameters.ParamByName('@ChargeNode').Value := edtNode.Text;
    ExecProc;
    Success := Parameters.ParamByName('@Return_Value').Value;
  end;
  if Success = 1 then
  begin
    Application.MessageBox('添加数据成功','警告',MB_OK);
    frmOtherCharge.qry.Close;
    frmOtherCharge.qry.Open;
    frmOtherCharge.btnEdit.Enabled   := True;
    frmOtherCharge.btnDelete.Enabled := True;
    frmOtherCharge.qry.Last;
    InitEdt;
    cmbName.SetFocus;
  end;
end;

procedure TfrmOtherChargeAdd.cmbNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then
    edtChargeMon.SetFocus;
end;

procedure TfrmOtherChargeAdd.edtChargeUserKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key = VK_RETURN then
    cmbName.SetFocus;
end;

procedure TfrmOtherChargeAdd.edtChargeMonKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key = VK_RETURN then
    edtDate.SetFocus;
end;

procedure TfrmOtherChargeAdd.edtDateKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  edtNode.SetFocus;
end;

procedure TfrmOtherChargeAdd.edtNodeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_Return then
    btnOK.SetFocus;
end;

procedure TfrmOtherChargeAdd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  cmbName.Clear;
end;

end.