u_customeradd.pas

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

unit u_CustomerAdd;

interface

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

type
  TfrmCustomerAdd = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtNO: TEdit;
    edtName: TEdit;
    edtFName: TEdit;
    edtMan: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    edtTel: TEdit;
    edtFax: TEdit;
    edtPost: TEdit;
    edtAddr: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    edtBank: TEdit;
    edtBandAccount: TEdit;
    edtTax: TEdit;
    edtNote: TEdit;
    Label13: TLabel;
    btnOk: TBitBtn;
    BtnCancle: TBitBtn;
    BtnClose: TBitBtn;
    Label5: TLabel;
    cmbCusClass: TComboBox;
    pip_CusAdd: TADOStoredProc;
    procedure InitEdt();    //  初始化文本框
    procedure FormShow(Sender: TObject);
    procedure edtNOKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtClassKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtManKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtTelKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtFaxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtPostKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtAddrKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtBankKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtBandAccountKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtTaxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtNoteKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnOkClick(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure cmbAreaChange(Sender: TObject);
    function  CheckEdt() : Boolean;
    procedure BtnCancleClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtFNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cmbCusClassKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);     //检查用户录入信息
  private
    { Private declarations }
  public
    bmkFlag :TBookmark;
    { Public declarations }
  end;

var
  frmCustomerAdd: TfrmCustomerAdd;

implementation

uses u_DataCtrl, Math;

{$R *.dfm}

procedure TfrmCustomerAdd.InitEdt;
begin
  edtNO.Clear;
  edtName.Clear;
  edtFName.Clear;
  edtMan.Clear;
  edtTel.Clear;
  edtFax.Clear;
  edtPost.Clear;
  edtAddr.Clear;
  edtBank.Clear;
  edtBandAccount.Clear;
  edtTax.Clear;
  edtNote.Clear;
end;

procedure TfrmCustomerAdd.FormShow(Sender: TObject);
begin
  bmkFlag := frmCustomerMain.qry.GetBookmark;
  InitEdt();
  edtNO.SetFocus;
end;

procedure TfrmCustomerAdd.edtNOKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    edtName.SetFocus;
end;

procedure TfrmCustomerAdd.edtNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    edtFName.SetFocus;
end;

procedure TfrmCustomerAdd.edtClassKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    edtMan.SetFocus;
end;

procedure TfrmCustomerAdd.edtManKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    edtTel.SetFocus;
end;

procedure TfrmCustomerAdd.edtTelKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    edtFax.SetFocus;
end;

procedure TfrmCustomerAdd.edtFaxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    edtPost.SetFocus;
end;

procedure TfrmCustomerAdd.edtPostKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    edtAddr.SetFocus;
end;

procedure TfrmCustomerAdd.edtAddrKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    edtBank.SetFocus;
end;

procedure TfrmCustomerAdd.edtBankKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    edtBandAccount.SetFocus;
end;

procedure TfrmCustomerAdd.edtBandAccountKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
    edtTax.SetFocus;
end;

procedure TfrmCustomerAdd.edtTaxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if  Key = VK_RETURN then
    edtNote.SetFocus;
end;

procedure TfrmCustomerAdd.edtNoteKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    btnOk.SetFocus;
end;

procedure TfrmCustomerAdd.btnOkClick(Sender: TObject);
var
  Success,TemCusClass :integer;
begin
  if CheckEdt() = false then
    Exit;
  if cmbCusClass.Text = '大客户' then
    TemCusClass := 1
  else
    TemCusClass := 2;
  with pip_CusAdd do
  begin
    Parameters.ParamByName('@CusNo').Value    := edtNO.Text;
    Parameters.ParamByName('@CusSName').Value := edtName.Text;
    Parameters.ParamByName('@CusFName').Value := edtFName.Text;
    Parameters.ParamByName('@CusMan').Value   := edtMan.Text;
    Parameters.ParamByName('@CusTel').Value   := edtTel.Text;
    Parameters.ParamByName('@CusFax').Value   := edtFax.Text;
    Parameters.ParamByName('@CusPost').Value  := edtPost.Text;
    Parameters.ParamByName('@CusAddr').Value  := edtAddr.Text;
    Parameters.ParamByName('@CusBank').Value  := edtBank.Text;
    Parameters.ParamByName('@CusBankAccount').Value := edtBandAccount.Text;
    Parameters.ParamByName('@CusTax').Value   := edtTax.Text;
    Parameters.ParamByName('@CusClass').Value := IntToStr(TemCusClass);
    Parameters.ParamByName('@CusNote').Value  := edtNote.Text;
    ExecProc;
    Success := Parameters.ParamByName('@RETURN_VALUE').Value;
    if Success = 1 then
    begin
      ShowMessage('添加记录成功');
      frmCustomerMain.qry.Close;
      frmCustomerMain.qry.Open;
      frmCustomerMain.qry.Last;
      InitEdt();
      EdtNo.SetFocus;
      frmCustomerMain.btnEdit.Enabled   := True;
      frmCustomerMain.btnDelete.Enabled := True;
    end;
  end;
end;

procedure TfrmCustomerAdd.BtnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmCustomerAdd.cmbAreaChange(Sender: TObject);
begin
 edtMan.SetFocus;
end;

function TfrmCustomerAdd.CheckEdt;
begin
  if edtNO.Text = '' then
    begin
      Application.MessageBox('请输入编号','警告',MB_OK);
      edtNO.SetFocus;
      Result := False;
      Exit;
    end;
    if edtName.Text = '' then
    begin
      Application.MessageBox('请输入简称','警告',MB_OK);
      edtName.SetFocus;
      Result := False;
      Exit;
    end;
    if cmbCusClass.Text = '' then
    begin
      Application.MessageBox('请选择客户类别','警告',MB_OK);
      cmbCusClass.SetFocus;
      Result := False;
      Exit;
    end
     else
      Result := True;
end;

procedure TfrmCustomerAdd.BtnCancleClick(Sender: TObject);
begin
  InitEdt();
end;

procedure TfrmCustomerAdd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frmCustomerMain.qry.GotoBookmark(bmkFlag);
end;

procedure TfrmCustomerAdd.edtFNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then
   cmbCusClass.SetFocus;
end;

procedure TfrmCustomerAdd.cmbCusClassKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key = vk_Return then
     edtMan.SetFocus;
end;

end.