253 lines
6.2 KiB
ObjectPascal
253 lines
6.2 KiB
ObjectPascal
unit U_MJEdit;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||
cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, cxGridLevel,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||
cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
|
||
cxButtonEdit;
|
||
|
||
type
|
||
TfrmMJEdit = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
ToolButton2: TToolButton;
|
||
TBClose: TToolButton;
|
||
Panel1: TPanel;
|
||
ADOTmp: TADOQuery;
|
||
ADOQueryMain: TADOQuery;
|
||
ADOCmd: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
Order_MJ: TClientDataSet;
|
||
Label2: TLabel;
|
||
JYKG: TEdit;
|
||
Label4: TLabel;
|
||
Label6: TLabel;
|
||
JYLen: TEdit;
|
||
Label10: TLabel;
|
||
Label12: TLabel;
|
||
Label14: TLabel;
|
||
JYJZ: TEdit;
|
||
JYNo: TEdit;
|
||
Label15: TLabel;
|
||
Label16: TLabel;
|
||
GangNo: TEdit;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
Label1: TLabel;
|
||
Label3: TLabel;
|
||
JYPZ: TEdit;
|
||
JYUnit: TComboBox;
|
||
Label5: TLabel;
|
||
Label7: TLabel;
|
||
LBLen: TEdit;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
function SaveData(): Boolean;
|
||
procedure Initgrid();
|
||
public
|
||
FJYID: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmMJEdit: TfrmMJEdit;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_Fun, U_ZDYHelp, U_DataLink;
|
||
|
||
{$R *.dfm}
|
||
procedure TfrmMJEdit.Initgrid();
|
||
begin
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from JTJY_New where JYID=''' + trim(FJYID) + '''');
|
||
open;
|
||
end;
|
||
SCSHDataNew(ADOQueryMain, Panel1, 0);
|
||
end;
|
||
|
||
procedure TfrmMJEdit.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmMJEdit.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmMJEdit := nil;
|
||
end;
|
||
|
||
function TfrmMJEdit.SaveData(): Boolean;
|
||
var
|
||
maxno, FSubid, FMainId, FYFID: string;
|
||
FFreal: Double;
|
||
begin
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
if Trim(JYKG.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(JYKG.Text, FFreal) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ë<>طǷ<D8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Trim(JYJZ.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(JYJZ.Text, FFreal) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD>طǷ<D8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Trim(JYPZ.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(JYPZ.Text, FFreal) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('Ƥ<>طǷ<D8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Trim(JYLen.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(JYLen.Text, FFreal) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD>ȷǷ<C8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('UPdate JTJY_New Set JYNO=''' + Trim(JYNO.Text) + '''');
|
||
sql.Add(',GangNo=''' + Trim(GangNo.Text) + '''');
|
||
sql.Add(',JYKG=''' + Trim(JYKG.Text) + '''');
|
||
if StrToFloatdef(Trim(LBLen.Text), 0) > 0 then
|
||
begin
|
||
sql.Add(',LBLen=''' + Trim(LBLen.Text) + '''');
|
||
end
|
||
else
|
||
begin
|
||
sql.Add(',LBLen=null');
|
||
end;
|
||
sql.Add(',JYJZ=''' + Trim(JYJZ.Text) + '''');
|
||
sql.Add(',JYLen=''' + Trim(JYLen.Text) + '''');
|
||
sql.Add(',JYUnit=''' + Trim(JYUnit.Text) + '''');
|
||
sql.Add(',JYPZ=''' + Trim(JYPZ.Text) + '''');
|
||
sql.Add(' where JYID=''' + trim(FJYID) + '''');
|
||
// ShowMessage(sql.text);
|
||
ExecSQL;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('UPdate CK_MLCP_CR Set MJXH=''' + Trim(JYNO.Text) + '''');
|
||
sql.Add(',GangNo=''' + Trim(GangNo.Text) + '''');
|
||
sql.Add(',KGQty=''' + Trim(JYKG.Text) + '''');
|
||
sql.Add(',NetKGQty=''' + Trim(JYJZ.Text) + '''');
|
||
sql.Add(',Qty=''' + Trim(JYLen.Text) + '''');
|
||
sql.Add(',QtyUnit=''' + Trim(JYUnit.Text) + '''');
|
||
sql.Add(' where MJID=''' + trim(FJYID) + '''');
|
||
ExecSQL;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from JTJY_New where JYID=''' + Trim(FJYID) + '''');
|
||
Open;
|
||
end;
|
||
FSubid := Trim(ADOCmd.fieldbyname('NewSubid').AsString);
|
||
FMainId := Trim(ADOCmd.fieldbyname('NewMLid').AsString);
|
||
if Trim(FSubid) <> '' then
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' exec P_Update_OrderSub :SubId');
|
||
Parameters.ParamByName('SubId').Value := Trim(FSubid);
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from JTJY_New where JYID=''' + Trim(FJYID) + '''');
|
||
Open;
|
||
end;
|
||
FYFID := Trim(ADOTmp.fieldbyname('YFID').AsString);
|
||
if Trim(FYFID) <> '' then
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' exec P_Update_THData :YFID');
|
||
Parameters.ParamByName('YFID').Value := Trim(FYFID);
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>&<26>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
//ʵ<><CAB5>
|
||
sql.Add('Update ML_OrderZuHe Set MLJYQty=(select sum(JYLen) from JTJY_New A where A.NewMLID=ML_OrderZuHe.NewMLID and A.JYType=''<27><>Ʒ'') ');
|
||
sql.Add(' where NewMLID=''' + Trim(FMainId) + '''');
|
||
sql.Add(' and isnull(MLName,'''')<>'''' and SSGS=''<27>Լ<EFBFBD>'' ');
|
||
|
||
ExecSQL;
|
||
end;
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>&<26>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
ADOCmd.Connection.CommitTrans;
|
||
Result := True;
|
||
except
|
||
Result := False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMJEdit.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
|
||
ModalResult := 1;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMJEdit.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmMJEdit.FormShow(Sender: TObject);
|
||
begin
|
||
initgrid();
|
||
end;
|
||
|
||
end.
|
||
|