unit U_ZuiDahaoSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxContainer, cxEdit, DB, ADODB, cxTextEdit, cxCurrencyEdit, StdCtrls, ExtCtrls;

type
  TfrmZuiDahaoSet = class(TForm)
    Panel11: TPanel;
    Label33: TLabel;
    Button3: TButton;
    Button4: TButton;
    MAXNO: TcxCurrencyEdit;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmZuiDahaoSet: TfrmZuiDahaoSet;

implementation

{$R *.dfm}

procedure TfrmZuiDahaoSet.FormShow(Sender: TObject);
begin
  with ADOQueryTemp do
  begin
    Close;
    sql.Clear;
    sql.Add('select BHNO  from SY_MaxBH ');
    sql.Add(' WHERE BHstr=''YB-'' AND BHType=''CP_YDang'' And Type=''3'' ');
    Open;
  end;
  maxno.Text := Trim(ADOQueryTemp.fieldbyname('BHNO').asstring)
end;

procedure TfrmZuiDahaoSet.Button3Click(Sender: TObject);
begin
  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update SY_MaxBH set  BHNO=''' + Trim(maxno.Text) + ''' WHERE BHstr=''YB-'' AND BHType=''CP_YDang'' And Type=''3'' ');
//    showmessage(sql.text);
    ExecSQL;
  end;
    Application.MessageBox('保存成功！', '提示', 0);
    frmZuiDahaoSet.Close;                                       
end;

procedure TfrmZuiDahaoSet.Button4Click(Sender: TObject);
begin                                     
  frmZuiDahaoSet.Close;
end;

end.