96 lines
2.0 KiB
ObjectPascal
96 lines
2.0 KiB
ObjectPascal
unit U_BatchEditUnit;
|
||
|
||
interface
|
||
|
||
uses
|
||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
||
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
|
||
cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
|
||
Vcl.Menus, Vcl.StdCtrls, cxButtons, cxLabel, cxTextEdit, cxMaskEdit,
|
||
cxDropDownEdit, dxSkinsCore, dxSkinWXI, Data.DB, Data.Win.ADODB, U_BaseInput;
|
||
|
||
type
|
||
TfrmBatchEditUnit = class(TfrmBaseInput)
|
||
btnOK: TcxButton;
|
||
btnCancel: TcxButton;
|
||
cxLabel2: TcxLabel;
|
||
ADOConnection1: TADOConnection;
|
||
ADOQuery1: TADOQuery;
|
||
QtyUnit: TcxComboBox;
|
||
procedure btnCancelClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure btnOKClick(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
|
||
public
|
||
FDRSIDList: string;
|
||
Fflag: Integer;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmBatchEditUnit: TfrmBatchEditUnit;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink;
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmBatchEditUnit.btnCancelClick(Sender: TObject);
|
||
begin
|
||
close;
|
||
end;
|
||
|
||
procedure TfrmBatchEditUnit.btnOKClick(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
if Trim(QtyUnit.Text) = '' then
|
||
begin
|
||
Application.MessageBox('请输入单位', '提示信息', 0);
|
||
Exit;
|
||
end;
|
||
|
||
if FDRSIDList = '' then
|
||
Exit;
|
||
|
||
// 只允许 Tab=2 的情况（更新 Trade_Cloth_DR_Sub 的 QtyUnit）
|
||
if Fflag = 2 then
|
||
begin
|
||
try
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('update Trade_Cloth_DR_Sub set QtyUnit = ' + QuotedStr(QtyUnit.Text) +
|
||
' where DRSID in (' + FDRSIDList + ')');
|
||
ExecSQL;
|
||
end;
|
||
finally
|
||
ModalResult := mrOk;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBatchEditUnit.FormShow(Sender: TObject);
|
||
begin
|
||
try
|
||
with ADOConnection1 do
|
||
begin
|
||
if not Connected then
|
||
begin
|
||
Connected := false;
|
||
ConnectionString := DConString;
|
||
LoginPrompt := false;
|
||
Connected := true;
|
||
end;
|
||
end;
|
||
except
|
||
application.MessageBox('数据库连接失败！', '错误', mb_Ok + MB_ICONERROR);
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|