69 lines
1.6 KiB
ObjectPascal
69 lines
1.6 KiB
ObjectPascal
|
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('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
frmZuiDahaoSet.Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZuiDahaoSet.Button4Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmZuiDahaoSet.Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|