477 lines
15 KiB
ObjectPascal
477 lines
15 KiB
ObjectPascal
|
unit U_skPieceSampleKcHZList;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData,
|
|||
|
|
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
|
|||
|
|
cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView,
|
|||
|
|
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
|||
|
|
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox,
|
|||
|
|
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, MMSystem, Menus,
|
|||
|
|
BtnEdit, U_SLT, jpeg, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
|||
|
|
cxTextEdit;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmSKPieceSampleKcHZList = class(TForm)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TBRafresh: TToolButton;
|
|||
|
|
TBExport: TToolButton;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
Tv1: TcxGridDBTableView;
|
|||
|
|
v1Qty: TcxGridDBColumn;
|
|||
|
|
v1QtyUnit: TcxGridDBColumn;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
YPTYPE: TEdit;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
ADOQueryTmp: TADOQuery;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
CDS_Main: TClientDataSet;
|
|||
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|||
|
|
Label7: TLabel;
|
|||
|
|
v1Column5: TcxGridDBColumn;
|
|||
|
|
ADOQueryPrint: TADOQuery;
|
|||
|
|
RMDB_Main: TRMDBDataSet;
|
|||
|
|
RM1: TRMGridReport;
|
|||
|
|
v1Column8: TcxGridDBColumn;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
P_Code: TEdit;
|
|||
|
|
Label18: TLabel;
|
|||
|
|
PopupMenu1: TPopupMenu;
|
|||
|
|
N1: TMenuItem;
|
|||
|
|
N2: TMenuItem;
|
|||
|
|
v1Column3: TcxGridDBColumn;
|
|||
|
|
ToolButton2: TToolButton;
|
|||
|
|
adoqueryPicture: TADOQuery;
|
|||
|
|
CheckBox1: TCheckBox;
|
|||
|
|
Tv1Column1: TcxGridDBColumn;
|
|||
|
|
Tv1Column2: TcxGridDBColumn;
|
|||
|
|
BegDate: TDateTimePicker;
|
|||
|
|
EndDate: TDateTimePicker;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
Tv1Column3: TcxGridDBColumn;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
HZZNOTE: TEdit;
|
|||
|
|
ToolButton1: TToolButton;
|
|||
|
|
Panel5: TPanel;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
Button5: TButton;
|
|||
|
|
Button6: TButton;
|
|||
|
|
Edit2: TEdit;
|
|||
|
|
Tv1Column4: TcxGridDBColumn;
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
procedure FormDestroy(Sender: TObject);
|
|||
|
|
procedure YPTYPEChange(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure TBCloseClick(Sender: TObject);
|
|||
|
|
procedure TBRafreshClick(Sender: TObject);
|
|||
|
|
procedure TBExportClick(Sender: TObject);
|
|||
|
|
procedure N1Click(Sender: TObject);
|
|||
|
|
procedure N2Click(Sender: TObject);
|
|||
|
|
procedure ToolButton2Click(Sender: TObject);
|
|||
|
|
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
procedure CheckBox1Click(Sender: TObject);
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure ToolButton1Click(Sender: TObject);
|
|||
|
|
procedure Button5Click(Sender: TObject);
|
|||
|
|
procedure Button6Click(Sender: TObject);
|
|||
|
|
procedure Tv1Column4PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
private
|
|||
|
|
procedure InitGrid();
|
|||
|
|
procedure SetStatus();
|
|||
|
|
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
fType: integer;
|
|||
|
|
fCKName: string;
|
|||
|
|
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmSKPieceSampleKcHZList: TfrmSKPieceSampleKcHZList;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
Mach: array of TfrmSlt;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_Fun10, U_ZDYHelp;
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.SetStatus();
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.InitGrid();
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
|
|||
|
|
with adoqueryMain do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
if CheckBox1.Checked = True then
|
|||
|
|
begin
|
|||
|
|
SQL.Add('select * from (');
|
|||
|
|
sql.Add(' select A.P_Code,yptype,A.QtyUnit,b.hzznote ');
|
|||
|
|
sql.Add(' ,count(crqtyflag *A.RollNum) KCRollNum,sum(crqtyflag*A.Qty) KCQty ');
|
|||
|
|
SQL.Add(',rkqty=(select sum(qty) from CK_Skgb_CR b where b.p_code=a.p_code and b.yptype=a.yptype and b.qtyunit=a.qtyunit');
|
|||
|
|
sql.Add('and crqtyflag=1 and b.Valid=''Y'' ');
|
|||
|
|
sql.Add(' and b.CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
|
|||
|
|
sql.Add(' and b.CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
|
|||
|
|
sql.Add(')');
|
|||
|
|
SQL.Add(',CKQTY=(select sum(qty) from CK_Skgb_CR b where b.p_code=a.p_code and b.yptype=a.yptype and b.qtyunit=a.qtyunit');
|
|||
|
|
sql.Add('and crqtyflag=-1 and b.Valid=''Y'' ');
|
|||
|
|
sql.Add(' and b.CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
|
|||
|
|
sql.Add(' and b.CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
|
|||
|
|
sql.Add(')');
|
|||
|
|
|
|||
|
|
SQL.Add(' from CK_Skgb_CR A left join hznote b on a.p_code=b.fla and a.YPTYPE=b.flb and b.fltype=''ɫ<><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
|
|||
|
|
sql.Add(' where CKName=' + quotedstr(trim(fCKName)));
|
|||
|
|
sql.ADD(' and A.Valid=''Y'' ');
|
|||
|
|
sql.Add(' group by A.P_Code,yptype,A.QtyUnit,b.hzznote');
|
|||
|
|
sql.Add(')aa where KCQty<0');
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
SQL.Add('select * from (');
|
|||
|
|
sql.Add(' select A.P_Code,yptype,A.QtyUnit,b.hzznote,hzznote2 ');
|
|||
|
|
sql.Add(' ,count(crqtyflag *A.RollNum) KCRollNum,sum(crqtyflag*A.Qty) KCQty ');
|
|||
|
|
|
|||
|
|
SQL.Add(',rkqty=(select sum(qty) from CK_Skgb_CR b where b.p_code=a.p_code and b.yptype=a.yptype and b.qtyunit=a.qtyunit');
|
|||
|
|
sql.Add('and crqtyflag=1 and b.Valid=''Y'' AND b.Chkstatus=''1'' ');
|
|||
|
|
sql.Add(' and b.CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
|
|||
|
|
sql.Add(' and b.CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
|
|||
|
|
sql.Add(')');
|
|||
|
|
SQL.Add(',CKQTY=(select sum(qty) from CK_Skgb_CR b where b.p_code=a.p_code and b.yptype=a.yptype and b.qtyunit=a.qtyunit');
|
|||
|
|
sql.Add('and crqtyflag=-1 and b.Valid=''Y'' AND b.Chkstatus=''1'' ');
|
|||
|
|
sql.Add(' and b.CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
|
|||
|
|
sql.Add(' and b.CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
|
|||
|
|
sql.Add(')');
|
|||
|
|
|
|||
|
|
SQL.Add(' from CK_Skgb_CR A left join hznote b on a.p_code=b.fla and a.YPTYPE=b.flb and b.fltype=''ɫ<><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
|
|||
|
|
sql.Add(' where CKName=' + quotedstr(trim(fCKName)));
|
|||
|
|
sql.ADD(' and A.Valid=''Y'' AND Chkstatus=''1''');
|
|||
|
|
sql.Add(' group by A.P_Code,yptype,A.QtyUnit,b.hzznote,hzznote2');
|
|||
|
|
sql.Add(')aa where KCQty>0 OR HZZNOTE IS NOT NULL ');
|
|||
|
|
end;
|
|||
|
|
// ShowMessage(sql.Text);
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(adoqueryMain, CDS_Main);
|
|||
|
|
SInitCDSData20(adoqueryMain, CDS_Main);
|
|||
|
|
finally
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
writeCxGrid(self.Caption + tv1.Name, Tv1, '<27><><EFBFBD>ϲֿ<CFB2>');
|
|||
|
|
if fType = 10 then
|
|||
|
|
Action := cahide
|
|||
|
|
else
|
|||
|
|
Action := cafree;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.FormDestroy(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmSKPieceSampleKcHZList := nil;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.YPTYPEChange(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if adoqueryMain.Active = False then
|
|||
|
|
Exit;
|
|||
|
|
SDofilter(adoqueryMain, SGetFilters(Panel1, 1, 2));
|
|||
|
|
SCreateCDS20(adoqueryMain, CDS_Main);
|
|||
|
|
SInitCDSData20(adoqueryMain, CDS_Main);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
readCxGrid(self.Caption + tv1.Name, Tv1, '<27><><EFBFBD>ϲֿ<CFB2>');
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from sy_user where username=' + QuotedStr(Trim(DName)));
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
// ToolButton1.Visible := True;
|
|||
|
|
if (ADOQueryTmp.fieldbyname('udept').AsString <> '<27>ܾ<EFBFBD><DCBE><EFBFBD>') and (Trim(DName) <> 'ADMIN') then
|
|||
|
|
begin
|
|||
|
|
Tv1Column3.Options.Editing := False;
|
|||
|
|
// ToolButton1.Visible := False;
|
|||
|
|
end;
|
|||
|
|
SetStatus();
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.TBRafreshClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
P_Code.SetFocus;
|
|||
|
|
initGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.TBExportClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_Main.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
TcxGridToExcel(self.Caption, cxgrid1);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.N1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
SelOKNo(CDS_Main, true);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.N2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
SelOKNo(CDS_Main, false);
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.ToolButton2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if adoqueryMain.Active = False then
|
|||
|
|
Exit;
|
|||
|
|
SDofilter(adoqueryMain, SGetFilters(Panel1, 1, 2));
|
|||
|
|
SCreateCDS20(adoqueryMain, CDS_Main);
|
|||
|
|
SInitCDSData20(adoqueryMain, CDS_Main);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
begin
|
|||
|
|
// InitImage();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.CheckBox1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
EndDate.Date := SGetServerDate10(ADOQueryTmp);
|
|||
|
|
BegDate.Date := EndDate.Date - 30;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.Tv1Column3PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalue, FFieldName: string;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
mvalue := TcxTextEdit(Sender).EditingText;
|
|||
|
|
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
|||
|
|
with CDS_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName(FFieldName).Value := mvalue;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('SELECT * FROM HZNOTE WHERE FLA=' + quotedstr(Trim(CDS_Main.fieldbyname('P_Code').AsString)));
|
|||
|
|
SQL.Add(' AND FLB=' + quotedstr(Trim(CDS_Main.fieldbyname('YPTYPE').AsString)));
|
|||
|
|
SQL.Add('AND FlTYPE=''ɫ<><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
|
|||
|
|
|
|||
|
|
Open;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
if ADOQueryTmp.IsEmpty = True then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('insert into HZNOTE(fla,flb,hzznote2,hzznote,fltype) values (' + quotedstr(Trim(CDS_Main.fieldbyname('P_Code').AsString)));
|
|||
|
|
sql.Add(',' + quotedstr(Trim(CDS_Main.fieldbyname('YPTYPE').AsString)));
|
|||
|
|
sql.Add(',' + quotedstr(Trim(CDS_Main.fieldbyname('HZZNOTE2').AsString)));
|
|||
|
|
sql.Add(',' + quotedstr(Trim(mvalue)));
|
|||
|
|
sql.Add(',''ɫ<><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'')');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('update HZNOTE set hzznote=' + quotedstr(Trim(mvalue)));
|
|||
|
|
sql.Add(' WHERE FLA=' + quotedstr(Trim(CDS_Main.fieldbyname('P_Code').AsString)));
|
|||
|
|
SQL.Add(' AND FLB=' + quotedstr(Trim(CDS_Main.fieldbyname('YPTYPE').AsString)));
|
|||
|
|
SQL.Add('AND FlTYPE=''ɫ<><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.ToolButton1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Panel5.Visible := True;
|
|||
|
|
Edit2.Text := Trim(CDS_Main.fieldbyname('kcqty').AsString);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.Button5Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
MAXNO: string;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
if GetLSNo(ADOQueryTmp, MAXNO, 'SKC', 'CK_Skgb_CR', 3, 1) = False then
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from CK_Skgb_CR');
|
|||
|
|
sql.Add('where 1<>1');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
Append;
|
|||
|
|
FieldByName('Filler').Value := trim(DName);
|
|||
|
|
FieldByName('FillTime').Value := SGetServerDate(ADOQueryTmp);
|
|||
|
|
FieldByName('crTime').Value := SGetServerDate(ADOQueryTmp);
|
|||
|
|
FieldByName('CKName').Value := trim(fCKName);
|
|||
|
|
FieldByName('CRNO').Value := trim(MAXNO);
|
|||
|
|
FieldByName('inoutno').Value := Trim(MAXNO);
|
|||
|
|
FieldByName('CRQtyFlag').Value := -1;
|
|||
|
|
FieldByName('CRFlag').Value := '<27><><EFBFBD><EFBFBD>';
|
|||
|
|
FieldByName('CRTYPE').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
// FieldByName('kuwei').Value := trim(CDS_Main.fieldbyname('kuwei').AsString);
|
|||
|
|
// FieldByName('factoryName').Value := trim(CDS_Main.fieldbyname('factoryName').AsString);
|
|||
|
|
|
|||
|
|
FieldByName('P_Code').Value := trim(CDS_Main.fieldbyname('P_Code').AsString);
|
|||
|
|
// FieldByName('YWY').Value := trim(CDS_Main.fieldbyname('YWY').AsString);
|
|||
|
|
|
|||
|
|
|
|||
|
|
FieldByName('yptype').Value := trim(CDS_Main.fieldbyname('yptype').AsString);
|
|||
|
|
FieldByName('QtyUnit').Value := trim(CDS_Main.fieldbyname('QtyUnit').AsString);
|
|||
|
|
|
|||
|
|
FieldByName('QTY').Value := CDS_Main.fieldbyname('kcQty').AsFloat - STRTOFLOATDEF(Edit2.Text, 0);
|
|||
|
|
|
|||
|
|
Post;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
|||
|
|
sql.Add(' ' + quotedstr(trim(DName)));
|
|||
|
|
sql.Add(',getdate() ');
|
|||
|
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
|||
|
|
sql.Add(',' + quotedstr(trim('<27><EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
|
|||
|
|
sql.Add(',' + quotedstr(trim('ԭ<><D4AD><EFBFBD><EFBFBD>:' + Trim(CDS_Main.fieldbyname('kcqty').AsString) + ';<3B>ֿ<EFBFBD><D6BF><EFBFBD>:' + Trim(edit2.Text))));
|
|||
|
|
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
|||
|
|
sql.Add(')');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with CDS_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
CDS_Main.fieldbyname('kcqty').AsString := edit2.text;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
CDS_Main.EnableControls;
|
|||
|
|
Panel5.Visible := False;
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
// InitGrid();
|
|||
|
|
except
|
|||
|
|
CDS_Main.EnableControls;
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.Button6Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Panel5.Visible := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSKPieceSampleKcHZList.Tv1Column4PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalue, FFieldName: string;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
mvalue := TcxTextEdit(Sender).EditingText;
|
|||
|
|
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
|||
|
|
with CDS_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName(FFieldName).Value := mvalue;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('SELECT * FROM HZNOTE WHERE FLA=' + quotedstr(Trim(CDS_Main.fieldbyname('P_Code').AsString)));
|
|||
|
|
SQL.Add(' AND FLB=' + quotedstr(Trim(CDS_Main.fieldbyname('YPTYPE').AsString)));
|
|||
|
|
SQL.Add('AND FlTYPE=''ɫ<><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
|
|||
|
|
|
|||
|
|
Open;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
if ADOQueryTmp.IsEmpty = True then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('insert into HZNOTE(fla,flb,hzznote,hzznote2,fltype) values (' + quotedstr(Trim(CDS_Main.fieldbyname('P_Code').AsString)));
|
|||
|
|
sql.Add(',' + quotedstr(Trim(CDS_Main.fieldbyname('YPTYPE').AsString)));
|
|||
|
|
sql.Add(',' + quotedstr(Trim(CDS_Main.fieldbyname('HZZNOTE').AsString)));
|
|||
|
|
sql.Add(',' + quotedstr(Trim(mvalue)));
|
|||
|
|
sql.Add(',''ɫ<><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'')');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('update HZNOTE set hzznote2=' + quotedstr(Trim(mvalue)));
|
|||
|
|
sql.Add(' WHERE FLA=' + quotedstr(Trim(CDS_Main.fieldbyname('P_Code').AsString)));
|
|||
|
|
SQL.Add(' AND FLB=' + quotedstr(Trim(CDS_Main.fieldbyname('YPTYPE').AsString)));
|
|||
|
|
SQL.Add('AND FlTYPE=''ɫ<><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|