u_customeredit.~pas

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

unit u_CustomerEdit;

interface

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

type
  TfrmCustomerEdit = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    edtNO: TEdit;
    edtName: TEdit;
    edtFName: TEdit;
    edtMan: TEdit;
    edtTel: TEdit;
    edtFax: TEdit;
    edtPost: TEdit;
    edtAddr: TEdit;
    edtBank: TEdit;
    edtBandAccount: TEdit;
    edtTax: TEdit;
    edtNote: TEdit;
    btnOk: TBitBtn;
    BtnClose: TBitBtn;
    pup_CusEdit: TADOStoredProc;
    Label5: TLabel;
    cmbCusClass: TComboBox;
    procedure InitDet();
    procedure FormShow(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure edtNOKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cmbClassChange(Sender: TObject);
    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 edtBankKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtAddrKeyDown(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);  //初始化按钮
    function  CheckEdt(): Boolean ;
    procedure btnOkClick(Sender: TObject);
    procedure edtFNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cmbCusClassKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);                   //检查广本框
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCustomerEdit: TfrmCustomerEdit;

implementation

uses u_CustomerMain, u_DataCtrl, Math;

{$R *.dfm}

procedure TfrmCustomerEdit.InitDet;
begin
  with frmCustomerMain do
  begin
    edtNO.Text        := qry.FieldValues['CusNO'];;
    edtName.Text      := qry.FieldValues['CusSName'];
    edtFName.Text     := qry.FieldValues['CusFName'];
    if qry.FieldValues['CusClass'] = '1' then
      cmbCusClass.Text := '大客户'
    else
      cmbCusClass.Text := '小客户';
    edtMan.Text       := qry.FieldValues['CusMan'];
    edtTel.Text       := qry.FieldValues['CusTel'];
    edtFax.Text       := qry.FieldValues['CusFax'];
    edtPost.Text      := qry.FieldValues['CusPost'];
    edtAddr.Text      := qry.FieldValues['CusAddr'];
    edtBank.Text      := qry.FieldValues['CusBank'];
    edtBandAccount.Text := qry.FieldValues['CusBankAccount'];
    edtTax.Text       := qry.FieldValues['CusTax'];
    edtNote.Text      := qry.FieldValues['CusNote'];
  end;
end;

procedure TfrmCustomerEdit.FormShow(Sender: TObject);
begin
  frmCustomerMain.BmkFlag := frmCustomerMain.qry.GetBookmark;
  InitDet();
end;

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

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

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

procedure TfrmCustomerEdit.cmbClassChange(Sender: TObject);
begin
  edtMan.SetFocus;
end;

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

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

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

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

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

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

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

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

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

function TfrmCustomerEdit.CheckEdt: Boolean;
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 <> '大客户') or (cmbCusClass.Text <> '小客户') then
    begin
      Application.MessageBox('请选择客户类型','警告',MB_OK);
      cmbCusClass.SetFocus;
      Result := False;
      Exit;
    end
    else
      Result := True;
end;

procedure TfrmCustomerEdit.btnOkClick(Sender: TObject);
var
  Success,TemCusClass : Integer;
begin
  if CheckEdt()= false then
    Exit;
  if cmbCusClass.Text = '大客户' then
    TemCusClass := 1
  else
    TemCusClass := 2;
  with pup_CusEdit 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
      ShowMessage('记录修改成功');
  end;
  frmCustomerMain.qry.Close;
  frmCustomerMain.qry.Open;
  frmCustomerMain.qry.GotoBookmark(frmCustomerMain.BmkFlag);
  Close;
end;

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

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

end.