u_supplyedit.pas

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

unit u_SupplyEdit;

interface

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

type
  TfrmSupplyEdit = 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;
    BtnCancle: TBitBtn;
    BtnClose: TBitBtn;
    pup_CusEdit: TADOStoredProc;
    procedure InitEdt();
    procedure FormShow(Sender: TObject);
    procedure btnOkClick(Sender: TObject); //初始化文本框
    function CheckEdt() : Boolean;
    procedure BtnCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);         //检查文本框信息
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSupplyEdit: TfrmSupplyEdit;

implementation

uses u_Supply, u_DataCtrl;

{$R *.dfm}

procedure TfrmSupplyEdit.InitEdt;
begin
  with frmSupplyInfo do
  begin
    edtNO.Text    := qry.FieldValues['supNO'];;
    edtName.Text  := qry.FieldValues['supSName'];
    edtFName.Text := qry.FieldValues['supFName'];
    edtMan.Text   := qry.FieldValues['supMan'];
    edtTel.Text   := qry.FieldValues['supTel'];
    edtFax.Text   := qry.FieldValues['supFax'];
    edtPost.Text  := qry.FieldValues['supPost'];
    edtAddr.Text  := qry.FieldValues['supAddr'];
    edtBank.Text  := qry.FieldValues['supBank'];
    edtBandAccount.Text := qry.FieldValues['supBankAccount'];
    edtTax.Text   := qry.FieldValues['supTax'];
    edtNote.Text  := qry.FieldValues['supNote'];
  end;
end;
procedure TfrmSupplyEdit.FormShow(Sender: TObject);
begin
  frmSupplyInfo.bmkFlag := frmSupplyInfo.qry.GetBookmark;
  InitEdt();
end;

procedure TfrmSupplyEdit.btnOkClick(Sender: TObject);
var
  Success : Integer;
begin
  if CheckEdt()= false then
     Exit;
  if Application.MessageBox('您确定要修改这条记录吗？','警告',MB_OKCANCEL)=2 then
     Exit;
   with pup_CusEdit do
    begin
      Parameters.ParamByName('@SupNo').Value:= edtNO.Text;
      Parameters.ParamByName('@SupSName').Value:=edtName.Text;
      Parameters.ParamByName('@SupFName').Value:=edtFName.Text;
      Parameters.ParamByName('@SupMan').Value:=edtMan.Text;
      Parameters.ParamByName('@SupTel').Value := edtTel.Text;
      Parameters.ParamByName('@SupFax').Value := edtFax.Text;
      Parameters.ParamByName('@SupPost').Value := edtPost.Text;
      Parameters.ParamByName('@SupAddr').Value := edtAddr.Text;
      Parameters.ParamByName('@SupBank').Value := edtBank.Text;
      Parameters.ParamByName('@SupBankAccount').Value := edtBandAccount.Text;
      Parameters.ParamByName('@SupTax').Value := edtTax.Text;
      Parameters.ParamByName('@SupNote').Value := edtNote.Text;
      ExecProc;
      Success := Parameters.ParamByName('@RETURN_VALUE').Value;
      if Success = 1 then
         showMessage('记录修改成功');
    end;
    frmSupplyInfo.qry.Close;
    frmSupplyInfo.qry.Open;
    Close;
end;

function TfrmSupplyEdit.CheckEdt: Boolean;
begin
if edtNO.Text = '' then
    begin
      Application.MessageBox('请输入编号','警告',MB_OK);
      edtNO.SetFocus;
      Result := False;
      Exit;
    end;
    if Length(Trim(EdtName.Text))=0 then
    begin
      Application.MessageBox('请输入简称','警告',MB_OK);
      edtName.SetFocus;
      Result := False;
      Exit;
    end
    else
      Result := True;
end;

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

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

end.