u_otherchargeedit.~pas

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

unit u_OtherChargeEdit;

interface

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

type
  TfrmOtherChargeEdit = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    edtChargeUser: TLabeledEdit;
    edtChargeMon: TLabeledEdit;
    btnOK: TButton;
    btnClose: TButton;
    cmbName: TComboBox;
    qry: TADOQuery;
    pupOtherCharge: TADOStoredProc;
    edtDate: TEdit;
    Label3: TLabel;
    edtNode: TEdit;
    function  CheckEdt() :Boolean;
    procedure btnCloseClick(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 dtpChargeDateKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure edtDateKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtNodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOtherChargeEdit: TfrmOtherChargeEdit;

implementation

uses u_DataCtrl, u_OtherCharge;

{$R *.dfm}

function TfrmOtherChargeEdit.CheckEdt: Boolean;
begin
  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 TfrmOtherChargeEdit.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmOtherChargeEdit.btnOKClick(Sender: TObject);
var
  Success : Integer;
begin
  if CheckEdt()= false then
    Exit;
  if Application.MessageBox('您真的要修改吗？','警告',MB_OKCANCEL) = 2 then
  begin
    cmbName.SetFocus;
    Exit;
  end;
  with pupOtherCharge do
  begin
    Parameters.ParamByName('@ID').Value         := frmOtherCharge.qry.FieldValues['ID'];
    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.qry.GotoBookmark(frmOtherCharge.BmkFlag);
    Close;
  end;
end;

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

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

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

procedure TfrmOtherChargeEdit.dtpChargeDateKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  btnOK.SetFocus;
end;

procedure TfrmOtherChargeEdit.FormShow(Sender: TObject);
begin
  qry.Active := True;
  qry.Close;
  qry.Open;
  qry.First;
  while not(qry.Eof) do
  begin
    cmbName.Items.Add(qry.FieldValues['ClassName']);
    qry.Next;
  end;
  edtChargeUser.Text := frmOtherCharge.qry.FieldValues['ChargeUser'];
  edtChargeMon.Text  := frmOtherCharge.qry.FieldValues['ChargeMon'];
  cmbName.Text       := frmOtherCharge.qry.FieldValues['ChargeName'];
  edtDate.Text       := frmOtherCharge.qry.FieldValues['ChargeDate'];
  edtNode.Text       := frmOtherCharge.qry.FieldValues['ChargeNode'];
  edtChargeUser.SetFocus;
end;

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

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

end.