2025-07-19 13:52:55 +08:00
unit U_WWCorder;
2025-04-30 19:46:29 +08:00
interface
uses
Windows, Messages, SysUtils, strUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer,
cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
2025-07-19 13:52:55 +08:00
dxBarBuiltInMenu, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
2025-04-30 19:46:29 +08:00
type
2025-07-19 13:52:55 +08:00
TfrmWWCorder = class( TForm)
2025-04-30 19:46:29 +08:00
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
OrderNo: TEdit;
TBExport: TToolButton;
v1OrdDate: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
Order_Main: TClientDataSet;
RMXLSExport1: TRMXLSExport;
v1CustomerNoName: TcxGridDBColumn;
Label4: TLabel;
CustomerNoName: TEdit;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
ToolButton1: TToolButton;
Label8: TLabel;
PBFactory: TEdit;
Label9: TLabel;
ConNo: TEdit;
Label10: TLabel;
RanFactory: TEdit;
Label11: TLabel;
OrdPerson2: TEdit;
ToolButton2: TToolButton;
ADOQueryPrint: TADOQuery;
CDS_Print: TClientDataSet;
ToolButton3: TToolButton;
Panel4: TPanel;
Label14: TLabel;
Panel10: TPanel;
Image2: TImage;
Button1: TButton;
RadioGroup1: TRadioGroup;
v1OrdPerson2: TcxGridDBColumn;
v1ZQty: TcxGridDBColumn;
v1OrderUnit3: TcxGridDBColumn;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
v1SOrddefstr1: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1SOrddefstr2: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
cxSOrdDefNote1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxSplitter1: TcxSplitter;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
v1SYRName: TcxGridDBColumn;
v1MPRTTeBieNote: TcxGridDBColumn;
v1MPRTBZNote: TcxGridDBColumn;
v1MPRTSCTeBieNote: TcxGridDBColumn;
V2KHorderNo: TcxGridDBColumn;
V2PRTCodeName: TcxGridDBColumn;
V2PRTCode: TcxGridDBColumn;
V2PRTMF: TcxGridDBColumn;
V2PRTKZ: TcxGridDBColumn;
TFJ: TToolButton;
v1filler: TcxGridDBColumn;
RMDBMain: TRMDBDataSet;
RM1: TRMGridReport;
V2Column1: TcxGridDBColumn;
V2Column2: TcxGridDBColumn;
V2Column3: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
Panel2: TPanel;
GroupBox1: TGroupBox;
Picture4: TcxDBImage;
ADOQueryImage: TADOQuery;
DSImage: TDataSource;
IdFTP1: TIdFTP;
Orddefstr5: TEdit;
Label2: TLabel;
PRTCodeName: TEdit;
Label5: TLabel;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
V2Column7: TcxGridDBColumn;
V2Column8: TcxGridDBColumn;
V2Column9: TcxGridDBColumn;
V2Column10: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
V2Column11: TcxGridDBColumn;
V2Column12: TcxGridDBColumn;
V2Column13: TcxGridDBColumn;
V2Column14: TcxGridDBColumn;
Label6: TLabel;
cxTabControl1: TcxTabControl;
TWC: TToolButton;
TNoWC: TToolButton;
ToolButton4: TToolButton;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
ToolButton5: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
ToolButton6: TToolButton;
TV2Column7: TcxGridDBColumn;
2025-07-19 13:52:55 +08:00
ToolButton7: TToolButton;
QryCheckNet: TADOQuery;
TSH: TToolButton;
TCXSH: TToolButton;
Panel3: TPanel;
Label7: TLabel;
Panel5: TPanel;
Image1: TImage;
RichEdit1: TRichEdit;
Tv1Column5: TcxGridDBColumn;
Label57: TLabel;
DDstyle: TComboBox;
2025-04-30 19:46:29 +08:00
procedure FormDestroy( Sender: TObject) ;
procedure FormClose( Sender: TObject; var Action: TCloseAction) ;
procedure FormCreate( Sender: TObject) ;
procedure TBCloseClick( Sender: TObject) ;
procedure TBFindClick( Sender: TObject) ;
procedure TBEditClick( Sender: TObject) ;
procedure TBDelClick( Sender: TObject) ;
procedure TBExportClick( Sender: TObject) ;
procedure TBPrintClick( Sender: TObject) ;
procedure TBRafreshClick( Sender: TObject) ;
procedure TBAddClick( Sender: TObject) ;
procedure OrderNoChange( Sender: TObject) ;
procedure FormShow( Sender: TObject) ;
procedure Tv1CellDblClick( Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean ) ;
procedure TBTPClick( Sender: TObject) ;
procedure CheckBox1Click( Sender: TObject) ;
procedure CheckBox2Click( Sender: TObject) ;
procedure Tv1StylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle) ;
procedure v1DeliveryDateCustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean ) ;
procedure N1Click( Sender: TObject) ;
procedure N2Click( Sender: TObject) ;
procedure ToolButton1Click( Sender: TObject) ;
procedure ToolButton2Click( Sender: TObject) ;
procedure ToolButton3Click( Sender: TObject) ;
procedure OrderNoKeyPress( Sender: TObject; var Key: Char ) ;
procedure ConNoKeyPress( Sender: TObject; var Key: Char ) ;
procedure Panel10MouseMove( Sender: TObject; Shift: TShiftState; X, Y: Integer ) ;
procedure Button1Click( Sender: TObject) ;
procedure Tv1FocusedRecordChanged( Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean ) ;
procedure TFJClick( Sender: TObject) ;
procedure TV2FocusedRecordChanged( Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean ) ;
procedure Picture4DblClick( Sender: TObject) ;
procedure TWCClick( Sender: TObject) ;
procedure TNoWCClick( Sender: TObject) ;
procedure cxTabControl1Change( Sender: TObject) ;
procedure ToolButton4Click( Sender: TObject) ;
procedure TV2CustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean ) ;
procedure ToolButton5Click( Sender: TObject) ;
procedure ToolButton6Click( Sender: TObject) ;
2025-07-19 13:52:55 +08:00
procedure ToolButton7Click( Sender: TObject) ;
procedure TSHClick( Sender: TObject) ;
procedure TCXSHClick( Sender: TObject) ;
procedure Tv1MouseUp( Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer ) ;
procedure Image1Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
private
2025-07-19 13:52:55 +08:00
FLeft, FTop: Integer ;
2025-04-30 19:46:29 +08:00
DQdate: TDateTime;
FMainId: string ;
procedure InitGrid( ) ;
procedure InitForm( ) ;
function DelData( ) : Boolean ;
procedure InitSub( ) ;
procedure InitImage( fwbid: string ) ;
procedure SetStatus( ) ;
2025-07-19 13:52:55 +08:00
function SelfConnData( ) : Boolean ;
2025-04-30 19:46:29 +08:00
{ Private declarations }
public
FFInt, FCloth: Integer ;
fFlileFlag: string ;
{ Public declarations }
end ;
var
2025-07-19 13:52:55 +08:00
frmWWCorder: TfrmWWCorder;
2025-04-30 19:46:29 +08:00
implementation
uses
U_DataLink, U_OrderInPut, U_Fun, U_FjList, U_MJSJFX, U_ZDYHelp,
U_SysLogOrderzsd;
{$R *.dfm}
2025-07-19 13:52:55 +08:00
function TfrmWWCorder. SelfConnData( ) : Boolean ;
begin
try
with QryCheckNet do
begin
Close;
sql. Clear;
//<2F> <> ѯһ <D1AF> <D2BB> С <EFBFBD> <D0A1> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
SQL. Add( 'select getdate()' ) ;
Open;
end ;
Result : = true ;
except
// if Application.MessageBox('<27> Ƿ<EFBFBD> <C7B7> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 磡','<27> <> ʾ
if not Assigned( DataLink_TradeManage) then
DataLink_TradeManage : = TDataLink_TradeManage. Create( Application) ;
try
with DataLink_TradeManage. ADOLink do
begin
//if not Connected then
begin
Connected : = false ;
ConnectionString : = DConString;
LoginPrompt : = false ;
Connected : = true ;
end ;
end ;
Result : = true ;
except
Result : = false ;
end ;
end ;
end ;
procedure TfrmWWCorder. SetStatus( ) ;
2025-04-30 19:46:29 +08:00
begin
tbedit. Visible : = false ;
tbdel. Visible : = false ;
twc. Visible : = false ;
tNOwc. Visible : = false ;
2025-07-19 13:52:55 +08:00
TSH. Visible : = false ;
TCXSH. Visible : = false ;
2025-04-30 19:46:29 +08:00
2025-07-19 13:52:55 +08:00
if Trim( DParameters2) = '<27> <> <EFBFBD> <EFBFBD> ' then
begin
case cxTabControl1. TabIndex of
0 :
begin
tbedit. Visible : = true ;
tbdel. Visible : = true ;
twc. Visible : = true ;
TSH. Visible : = true ;
end ;
1 :
begin
twc. Visible : = true ;
TCXSH. Visible : = true ;
end ;
2 :
begin
tNOwc. Visible : = true ;
end ;
end ;
end
else
begin
case cxTabControl1. TabIndex of
0 :
begin
tbedit. Visible : = true ;
tbdel. Visible : = true ;
twc. Visible : = true ;
TSH. Visible : = false ;
end ;
1 :
begin
TCXSH. Visible : = false ;
end ;
2 :
begin
tNOwc. Visible : = true ;
end ;
end ;
2025-04-30 19:46:29 +08:00
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. InitImage( fwbid: string ) ;
2025-04-30 19:46:29 +08:00
begin
ADOQueryImage. close;
if fwbid = '' then
exit;
with ADOQueryImage do
begin
close;
sql. Clear;
sql. Add( 'select * from TP_File A' ) ;
sql. Add( 'where WBID=' + quotedstr( trim( fwbid) ) ) ;
open;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. InitSub( ) ;
2025-04-30 19:46:29 +08:00
begin
ADOQuerySub. Close;
if Order_Main. IsEmpty then
exit;
with ADOQuerySub do
begin
close;
sql. Clear;
sql. Add( 'select *,DJStatus=case when JYRoll=MaxRoll then 0 else 1 end from (' ) ;
sql. Add( 'select A.*, ' ) ;
sql. Add( 'JYRoll=(select count(MJID) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID),' ) ;
sql. Add( 'JYQty=(select sum(MJLen) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID),' ) ;
sql. Add( 'JYJZ=(select sum(MJQty4) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID),' ) ;
sql. Add( 'JYMZ=(select sum(MJMaoZ) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID),' ) ;
sql. Add( 'JYCRoll=(select count(MJID) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID and X.MJType=' '<27> <> Ʒ '),' ) ;
sql. Add( 'JYCQty=(select sum(MJLen) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID and X.MJType=' '<27> <> Ʒ '),' ) ;
sql. Add( 'JYCJZ=(select sum(MJQty4) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID and X.MJType=' '<27> <> Ʒ '),' ) ;
sql. Add( 'JYCMZ=(select sum(MJMaoZ) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID and X.MJType=' '<27> <> Ʒ '),' ) ;
sql. Add( 'CKRoll=(select count(MJID) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID and ckflag=' '<27> ѳ<EFBFBD> <D1B3> <EFBFBD> ' ' ), ' ) ;
sql. Add( 'CKQty=(select sum(MJLen) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID and ckflag=' '<27> ѳ<EFBFBD> <D1B3> <EFBFBD> ' '), ' ) ;
sql. Add( 'CKJZ=(select sum(MJQty4) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID and ckflag=' '<27> ѳ<EFBFBD> <D1B3> <EFBFBD> ' '),' ) ;
sql. Add( 'CKMZ=(select sum(MJMaoZ) from WFB_MJJY X where X.MainID=A.mainID and X.subID=A.subID and ckflag=' '<27> ѳ<EFBFBD> <D1B3> <EFBFBD> ' '),' ) ;
SQL. Add( 'MaxRoll=(select isnull(sum(maxroll),0) from (select Subid,mjstr4,max(mjxh) as maxroll from wfb_mjjy X group by mjstr4,Subid) XX where XX.subid=A.subid)' ) ;
sql. Add( 'from JYOrder_sub A ' ) ;
sql. Add( 'where A.mainID =' + quotedstr( ( Order_Main. fieldbyname( 'mainID' ) . AsString) ) ) ;
sql. Add( ')AA' ) ;
open;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. FormDestroy( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
2025-07-19 13:52:55 +08:00
frmWWCorder : = nil ;
2025-04-30 19:46:29 +08:00
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. FormClose( Sender: TObject; var Action: TCloseAction) ;
2025-04-30 19:46:29 +08:00
begin
Action : = caFree;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. FormCreate( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
cxgrid1. Align : = alClient;
DQdate : = SGetServerDate( ADOQueryTemp) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TBCloseClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
WriteCxGrid( 'ָʾ <D6B8> <CABE> <EFBFBD> ӱ<EFBFBD> <D3B1> б <EFBFBD> ' , Tv2, '<27> <> <EFBFBD> <EFBFBD> ָʾ <D6B8> <CABE> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 1' ) ;
WriteCxGrid( 'ָʾ <D6B8> <CABE> <EFBFBD> б <EFBFBD> FF' , Tv1, '<27> <> <EFBFBD> <EFBFBD> ָʾ <D6B8> <CABE> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 1' ) ;
Close;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. InitGrid( ) ;
2025-04-30 19:46:29 +08:00
var
strwhere: string ;
begin
strwhere : = '' ;
2025-07-19 13:52:55 +08:00
// if Trim(DParameters1) <> '<27> <> Ȩ<EFBFBD> <C8A8> ' then
// strwhere := strwhere + ' and Filler=''' + Trim(DName) + '''';
2025-04-30 19:46:29 +08:00
2025-07-19 13:52:55 +08:00
// if cxTabControl1.TabIndex < 2 then
// begin
// strwhere := strwhere + ' and isnull(A.status,''0'')=''0'' ';
// end;
2025-04-30 19:46:29 +08:00
try
ADOQueryMain. DisableControls;
2025-07-19 13:52:55 +08:00
with ADOQueryMain do
2025-04-30 19:46:29 +08:00
begin
2025-07-19 13:52:55 +08:00
Close;
2025-04-30 19:46:29 +08:00
Filtered : = False ;
sql. Clear;
2025-07-19 13:52:55 +08:00
sql. add( 'exec P_View_WWCtj' ) ;
// Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', BegDate.DateTime);
// Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1);
// Parameters.ParamByName('WSql').Value := strwhere;
// ShowMessage(SQL.text);
2025-04-30 19:46:29 +08:00
Open;
end ;
SCreateCDS20( ADOQueryMain, Order_Main) ;
SInitCDSData20( ADOQueryMain, Order_Main) ;
finally
ADOQueryMain. EnableControls;
end ;
tbfind. Click;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. InitForm( ) ;
2025-04-30 19:46:29 +08:00
begin
ReadCxGrid( 'ָʾ <D6B8> <CABE> <EFBFBD> б <EFBFBD> FF' , Tv1, '<27> <> <EFBFBD> <EFBFBD> ָʾ <D6B8> <CABE> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 1' ) ;
ReadCxGrid( 'ָʾ <D6B8> <CABE> <EFBFBD> ӱ<EFBFBD> <D3B1> б <EFBFBD> ' , Tv2, '<27> <> <EFBFBD> <EFBFBD> ָʾ <D6B8> <CABE> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 1' ) ;
BegDate. DateTime : = SGetServerDate10( ADOQueryTemp) - 1 5 ;
EndDate. DateTime : = SGetServerDate10( ADOQueryTemp) ;
2025-07-19 13:52:55 +08:00
// SetStatus();
2025-04-30 19:46:29 +08:00
InitGrid( ) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TBFindClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if ADOQueryMain. Active = False then
Exit;
SDofilter( ADOQueryMain, SGetFilters( Panel1, 1 , 2 ) ) ;
SCreateCDS20( ADOQueryMain, Order_Main) ;
SInitCDSData20( ADOQueryMain, Order_Main) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TBEditClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if Order_Main. IsEmpty then
Exit;
{ if Trim( Order_Main. fieldbyname( 'Filler' ) . AsString) < > Trim( DName) then
begin
Application. MessageBox( '<27> <> <EFBFBD> ܲ<EFBFBD> <DCB2> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ˵<EFBFBD> <CBB5> <EFBFBD> <EFBFBD> <EFBFBD> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ; }
// with ADOQueryTemp do
// begin
// close;
// sql.clear;
// sql.Add('select * from WFB_MJJY where Mainid=''' + trim(Order_Main.fieldbyname('MainId').AsString) + ''' ');
// sql.add('and isnull(MJStr2,'''')=''<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ''');
// open;
// if not ISEmpty then
// begin
// application.MessageBox('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ⲻ<EFBFBD> <E2B2BB> <EFBFBD> <EFBFBD> ', '<27> <> ʾ
// exit;
// end;
// end;
try
frmOrderInPut : = TfrmOrderInPut. Create( Application) ;
with frmOrderInPut do
begin
PState : = 1 ;
FMainId : = Trim( Self. Order_Main. fieldbyname( 'MainId' ) . AsString) ;
FOrderNo : = Trim( Self. Order_Main. fieldbyname( 'OrderNoM' ) . AsString) ;
fFlileFlag : = self. fFlileFlag;
if ShowModal = 1 then
begin
InitGrid( ) ;
end ;
end ;
finally
frmOrderInPut. Free;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TBDelClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if Order_Main. IsEmpty then
Exit;
{ if Trim( Order_Main. fieldbyname( 'Filler' ) . AsString) < > Trim( DName) then
begin
Application. MessageBox( '<27> <> <EFBFBD> ܲ<EFBFBD> <DCB2> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ˵<EFBFBD> <CBB5> <EFBFBD> <EFBFBD> <EFBFBD> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ; }
with ADOQueryTemp do
begin
close;
sql. clear;
sql. Add( 'select * from WFB_MJJY where Mainid=' '' + trim( Order_Main. fieldbyname( 'MainId' ) . AsString) + '' ' ' ) ;
// sql.add('and isnull(MJStr2,'''')=''<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ''');
open;
if not ISEmpty then
begin
application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ⲻ<EFBFBD> <E2B2BB> ɾ<EFBFBD> <C9BE> ' , '<27> <> ʾ ) ;
exit;
end ;
end ;
if Application. MessageBox( 'ȷ<> <C8B7> Ҫɾ<D2AA> <C9BE> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , '<27> <> ʾ , 3 2 + 4 ) < > IDYES then
Exit;
if DelData( ) then
begin
Order_Main. Delete;
end ;
InitGrid( ) ;
end ;
2025-07-19 13:52:55 +08:00
function TfrmWWCorder. DelData( ) : Boolean ;
2025-04-30 19:46:29 +08:00
begin
try
Result : = false ;
ADOQueryCmd. Connection. BeginTrans;
with ADOQueryCmd do
begin
Close;
sql. Clear;
sql. Add( 'delete JYOrder_Main where MainId=' '' + Trim( Order_Main. fieldbyname( 'MainId' ) . AsString) + '' '' ) ;
sql. Add( 'delete JYOrder_Sub where MainId=' '' + Trim( Order_Main. fieldbyname( 'MainId' ) . AsString) + '' '' ) ;
sql. Add( 'delete TP_File where WBID=' '' + Trim( Order_Main. fieldbyname( 'Mainid' ) . AsString) + '' ' and TFType=' 'EWM' ' ' ) ;
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( 'ָʾ <D6B8> <CABE> ɾ<EFBFBD> <C9BE> ' ) ) ) ;
sql. Add( ',' + quotedstr( trim( 'ָʾ <D6B8> <CABE> <EFBFBD> ţ<EFBFBD> ' + trim( Order_Main. FieldByName( 'OrderNO' ) . AsString) ) ) ) ;
sql. Add( ',' + quotedstr( trim( '<27> ɹ<EFBFBD> ' ) ) ) ;
sql. Add( ')' ) ;
ExecSQL;
end ;
{ with ADOQueryTemp do
begin
Close;
sql. Clear;
sql. Add( 'select * from JYOrder_Sub where MainId=' '' + Trim( Order_Main. fieldbyname( 'MainId' ) . AsString) + '' '' ) ;
Open;
if IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql. Clear;
sql. Add( 'delete JYOrder_Main where MainId=' '' + Trim( Order_Main. fieldbyname( 'MainId' ) . AsString) + '' '' ) ;
ExecSQL;
end ;
end ;
end ;
if Trim( Order_Main. fieldbyname( 'SubId' ) . AsString) = '' then
begin
with ADOQueryCmd do
begin
Close;
sql. Clear;
sql. Add( 'delete JYOrder_Main where MainId=' '' + Trim( Order_Main. fieldbyname( 'MainId' ) . AsString) + '' '' ) ;
ExecSQL;
end ;
end ; }
ADOQueryCmd. Connection. CommitTrans;
Result : = True ;
except
ADOQueryCmd. Connection. RollbackTrans;
Result : = False ;
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> ɾ<EFBFBD> <C9BE> <EFBFBD> 쳣<EFBFBD> <ECB3A3> ' , '<27> <> ʾ , 0 ) ;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TBExportClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if ADOQueryMain. IsEmpty then
Exit;
SelExportData( Tv1, ADOQueryMain, '<27> <> <EFBFBD> <EFBFBD> ָʾ <D6B8> <CABE> <EFBFBD> б <EFBFBD> ' ) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TBPrintClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
var
fPrintFile: string ;
Porderno: string ;
i, j: Integer ;
begin
Panel4. Left : = ( self. Width - Panel4. Width) div 2 ;
Panel4. Visible : = True ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TBRafreshClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
InitGrid( ) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TBAddClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
var
maxno: string ;
begin
try
frmOrderInPut : = TfrmOrderInPut. Create( Application) ;
with frmOrderInPut do
begin
PState : = 0 ;
FMainId : = '' ;
fFlileFlag : = self. fFlileFlag;
if ShowModal = 1 then
begin
InitGrid( ) ;
end ;
end ;
finally
frmOrderInPut. Free;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. OrderNoChange( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if ADOQueryMain. Active = False then
Exit;
SDofilter( ADOQueryMain, SGetFilters( Panel1, 1 , 2 ) ) ;
SCreateCDS20( ADOQueryMain, Order_Main) ;
2025-07-19 13:52:55 +08:00
SInitCDSData20( ADOQueryMain, Order_Main) ;
2025-04-30 19:46:29 +08:00
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. FormShow( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
fFlileFlag : = UserDataFlag + 'HX' ;
InitForm( ) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. Tv1CellDblClick( Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean ) ;
2025-04-30 19:46:29 +08:00
begin
2025-07-19 13:52:55 +08:00
// if ToolButton1.Visible = False then
// Exit;
// ToolButton1.Click;
Panel3. Left : = FLeft;
Panel3. Top : = FTop + 1 1 0 ;
Panel3. Visible : = True ;
Panel3. Refresh;
Panel5. Caption : = Trim( TV1. Controller. FocusedColumn. Caption) ;
RichEdit1. Text : = Order_Main. fieldbyname( TV1. Controller. FocusedColumn. DataBinding. FilterFieldName) . AsString;
2025-04-30 19:46:29 +08:00
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TBTPClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
var
FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string ;
begin
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. CheckBox1Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
InitGrid( ) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. CheckBox2Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
TBRafresh. Click;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. Tv1StylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle) ;
2025-04-30 19:46:29 +08:00
var
id, id10: Integer ;
begin
{ try
if Tv1. GroupedItemCount= 0 then
begin
Id: = Tv1. GetColumnByFieldName( 'DeliveryDate' ) . Index - tv1. GroupedItemCount;
Id10: = Tv1. GetColumnByFieldName( 'SubStatus' ) . Index - tv1. GroupedItemCount;
if Trim( VarToStr( ARecord. Values[ id] ) ) = '' then Exit;
if Id< 0 then Exit;
if ARecord. Values[ id10] = '<27> <> <EFBFBD> <EFBFBD> ' then exit;
if ( ARecord. Values[ id] - DQdate) > = 4 then Exit;
if ( ( ARecord. Values[ id] - DQdate) > = 0 ) and ( ( ARecord. Values[ id] - DQdate) < 4 ) then
AStyle: = DataLink_. QHuangSe
else
if ARecord. Values[ id] - DQdate< 0 then
begin
AStyle: = DataLink_OrderManage. FenHongS;
end ;
end else
begin
end ;
except
end ; }
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. v1DeliveryDateCustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean ) ;
2025-04-30 19:46:29 +08:00
begin
{ Id: = TV1. GetColumnByFieldName( 'DeliveryDate' ) . Index ; //;-TV1.GroupedItemCount;
Id10: = TV1. GetColumnByFieldName( 'SubStatus' ) . Index ;
if Id< 0 then Exit;
if AViewInfo. GridRecord. Values[ Id10] = '<27> <> <EFBFBD> <EFBFBD> ' then Exit;
if AViewInfo. GridRecord. Values[ Id] - SGetServerDate( ADOQueryTemp) > = 4 then Exit;
if ( ( AViewInfo. GridRecord. Values[ id] - SGetServerDate10( ADOQueryTemp) ) > = 0 ) and ( ( AViewInfo. GridRecord. Values[ id] - SGetServerDate( ADOQueryTemp) ) < 4 ) then
ACanvas. Brush. Color: = clYellow
else
if ( AViewInfo. GridRecord. Values[ id] ) - ( SGetServerDate10( ADOQueryTemp) < 0 ) then
begin
ACanvas. Brush. Color: = clRed;
end ;
begin
ACanvas. Brush. Color: = clRed;
end else
if AViewInfo. GridRecord. Values[ Id] = 'Purple' then
begin
ACanvas. Brush. Color: = clPurple;
end else
if AViewInfo. GridRecord. Values[ Id] = 'Olive' then
begin
ACanvas. Brush. Color: = clOlive;
end else
if AViewInfo. GridRecord. Values[ Id] = 'Teal' then
begin
ACanvas. Brush. Color: = clTeal;
end else
if AViewInfo. GridRecord. Values[ Id] = 'Background' then
begin
ACanvas. Brush. Color: = clBackground;
end ; }
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. N1Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
var
fPrintFile: string ;
Porderno: string ;
begin
if Order_Main. IsEmpty then
Exit;
fPrintFile : = ExtractFilePath( Application. ExeName) + 'Report\<5C> <> <EFBFBD> <EFBFBD> ָʾ <D6B8> <CABE> 10.rmf' ;
SDofilter( ADOQueryMain, ' OrderNoM=' '' + Trim( Order_Main. fieldbyname( 'OrderNoM' ) . AsString) + '' '' ) ;
SCreateCDS20( ADOQueryMain, Order_Main) ;
SInitCDSData20( ADOQueryMain, Order_Main) ;
Porderno : = Trim( Order_Main. fieldbyname( 'OrderNoM' ) . AsString) ;
if FileExists( fPrintFile) then
begin
//RMVariables['begindate']:=begindate.DateTime;
//RMVariables['enddate']:=enddate.DateTime;
//RMVariables['printtime']:=Now;
//RMVariables['printer']:=Trim(gUserName);
RM1. LoadFromFile( fPrintFile) ;
RM1. ShowReport;
end
else
begin
Application. MessageBox( PChar( 'û<> <C3BB> <EFBFBD> <EFBFBD> ' + ExtractFilePath( Application. ExeName) + 'Report\<5C> <> <EFBFBD> <EFBFBD> ָʾ <D6B8> <CABE> 10.rmf' ) , '<27> <> ʾ , 0 ) ;
end ;
SDofilter( ADOQueryMain, '' ) ;
SCreateCDS20( ADOQueryMain, Order_Main) ;
SInitCDSData20( ADOQueryMain, Order_Main) ;
Order_Main. Locate( 'ordernoM' , Porderno, [ ] ) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. N2Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
var
fPrintFile: string ;
Porderno: string ;
begin
if Order_Main. IsEmpty then
Exit;
fPrintFile : = ExtractFilePath( Application. ExeName) + 'Report\<5C> <> <EFBFBD> <EFBFBD> ָʾ <D6B8> <CABE> .rmf' ;
SDofilter( ADOQueryMain, ' OrderNoM=' '' + Trim( Order_Main. fieldbyname( 'OrderNoM' ) . AsString) + '' '' ) ;
SCreateCDS20( ADOQueryMain, Order_Main) ;
SInitCDSData20( ADOQueryMain, Order_Main) ;
Porderno : = Trim( Order_Main. fieldbyname( 'OrderNoM' ) . AsString) ;
if FileExists( fPrintFile) then
begin
//RMVariables['begindate']:=begindate.DateTime;
//RMVariables['enddate']:=enddate.DateTime;
//RMVariables['printtime']:=Now;
//RMVariables['printer']:=Trim(gUserName);
RM1. LoadFromFile( fPrintFile) ;
RM1. ShowReport;
end
else
begin
Application. MessageBox( PChar( 'û<> <C3BB> <EFBFBD> <EFBFBD> ' + ExtractFilePath( Application. ExeName) + 'Report\<5C> <> <EFBFBD> <EFBFBD> ָʾ <D6B8> <CABE> .rmf' ) , '<27> <> ʾ , 0 ) ;
end ;
SDofilter( ADOQueryMain, '' ) ;
SCreateCDS20( ADOQueryMain, Order_Main) ;
SInitCDSData20( ADOQueryMain, Order_Main) ;
Order_Main. Locate( 'ordernoM' , Porderno, [ ] ) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. ToolButton1Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if Order_Main. IsEmpty then
Exit;
try
frmOrderInPut : = TfrmOrderInPut. Create( Application) ;
with frmOrderInPut do
begin
PState : = 1 ;
FMainId : = Trim( Self. Order_Main. fieldbyname( 'MainId' ) . AsString) ;
ToolBar2. Visible : = False ;
TBSave. Visible : = False ;
ScrollBox1. Enabled : = False ;
Tv1. OptionsSelection. CellSelect : = False ;
fFlileFlag : = self. fFlileFlag;
if ShowModal = 1 then
begin
end ;
end ;
finally
frmOrderInPut. Free;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. ToolButton2Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if Order_Main. IsEmpty then
Exit;
try
frmOrderInPut : = TfrmOrderInPut. Create( Application) ;
with frmOrderInPut do
begin
PState : = 1 ;
CopyInt : = 9 9 ;
FMainId : = Trim( Self. Order_Main. fieldbyname( 'MainId' ) . AsString) ;
fFlileFlag : = self. fFlileFlag;
if ShowModal = 1 then
begin
end ;
end ;
finally
frmOrderInPut. Free;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. ToolButton3Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
ModalResult : = 1 ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. OrderNoKeyPress( Sender: TObject; var Key: Char ) ;
2025-04-30 19:46:29 +08:00
begin
if Key = #13 then
begin
if Length( OrderNo. Text ) < 3 then
Exit;
try
ADOQueryMain. DisableControls;
with ADOQueryMain do
begin
Filtered : = False ;
Close;
sql. Clear;
2025-07-19 13:52:55 +08:00
sql. add( 'exec P_View_WWCtj :begdate,:enddate,:WSql' ) ;
2025-04-30 19:46:29 +08:00
if Trim( DParameters1) < > '<27> <> Ȩ<EFBFBD> <C8A8> ' then
begin
Parameters. ParamByName( 'WSql' ) . Value : = ' and Filler=' '' + Trim( DName) + '' '' ;
end ;
begin
Parameters. ParamByName( 'WSql' ) . Value : = ' and orderno like ' '' + '%' + Trim( OrderNo. Text ) + '%' + '' '' ;
end ;
Parameters. ParamByName( 'begdate' ) . Value : = '2014-01-01' ;
Parameters. ParamByName( 'enddate' ) . Value : = '2064-01-01' ;
ExecSQL;
Open;
end ;
SCreateCDS20( ADOQueryMain, Order_Main) ;
SInitCDSData20( ADOQueryMain, Order_Main) ;
finally
ADOQueryMain. EnableControls;
end ;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. ConNoKeyPress( Sender: TObject; var Key: Char ) ;
2025-04-30 19:46:29 +08:00
begin
if Key = #13 then
begin
if Length( conno. Text ) < 3 then
Exit;
try
ADOQueryMain. DisableControls;
with ADOQueryMain do
begin
Filtered : = False ;
Close;
sql. Clear;
2025-07-19 13:52:55 +08:00
sql. add( 'exec P_View_WWCtj :begdate,:enddate,:WSql' ) ;
2025-04-30 19:46:29 +08:00
if Trim( DParameters1) < > '<27> <> Ȩ<EFBFBD> <C8A8> ' then
begin
Parameters. ParamByName( 'WSql' ) . Value : = ' and A.Filler=' '' + Trim( DName) + '' '' ;
end ;
begin
Parameters. ParamByName( 'WSql' ) . Value : = ' and conno like ' '' + '%' + Trim( conno. Text ) + '%' + '' '' ;
end ;
Parameters. ParamByName( 'begdate' ) . Value : = '1899-01-01' ;
Parameters. ParamByName( 'enddate' ) . Value : = '2050-01-01' ;
ExecSQL;
Open;
end ;
SCreateCDS20( ADOQueryMain, Order_Main) ;
SInitCDSData20( ADOQueryMain, Order_Main) ;
finally
ADOQueryMain. EnableControls;
end ;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. Panel10MouseMove( Sender: TObject; Shift: TShiftState; X, Y: Integer ) ;
2025-04-30 19:46:29 +08:00
begin
ReleaseCapture;
TWinControl( Panel4) . Perform( WM_SYSCOMMAND, $F012 , 0 ) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. Button1Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
var
fPrintFile: string ;
Porderno, LBName, SYRName: string ;
i, j: Integer ;
OrderKg: Double ;
begin
if Order_Main. IsEmpty then
Exit;
RMDBMain. DataSet : = CDS_Print;
LBName : = RadioGroup1. Items. Strings[ RadioGroup1. ItemIndex] ;
2025-07-19 13:52:55 +08:00
fPrintFile : = ExtractFilePath( Application. ExeName) + 'Report\' + Trim( LBName) + '.rmf' ;
2025-04-30 19:46:29 +08:00
with ADOQueryPrint do
begin
Close;
sql. Clear;
sql. Add( 'select A.*,B.*,C.Filesother,ColorCount=(select isnull(Count(subID),0) from JYOrder_Sub where MainId=A.MainId), ' ) ;
sql. add( 'ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId),' ) ;
sql. add( 'FQty=(select sum(PRTOrderQty) from JYOrder_Sub X where X.MainId=B.MainId and X.PrtCodeName=B.PrtCodeName and X.KHorderNo=B.KHorderNo),' ) ;
sql. add( 'maxkhOrderNO=(select max(khOrderNO) from JYOrder_Sub X where X.MainId=A.MainId ),' ) ;
sql. Add( 'HXFileOther=(select top 1 Filesother from TP_File X where X.WBID=B.HXFile and X.TFType=' 'HX' ' )' ) ;
sql. Add( ' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId ' ) ;
sql. Add( ' left join TP_File C on C.TFID=B.Subid and C.WBID=B.Mainid ' ) ;
// sql.Add(' left join TP_File D on D.TFID=A.orderNO ');
sql. Add( ' Where A.MainId=' '' + Trim( Order_Main. fieldbyname( 'MainId' ) . AsString) + '' '' ) ;
sql. Add( ' order by B.PRTCode,B.PRTCodeName,B.subID ' ) ;
Open;
end ;
SCreateCDS20( ADOQueryPrint, CDS_Print) ;
SInitCDSData20( ADOQueryPrint, CDS_Print) ;
if FileExists( fPrintFile) then
begin
RM1. LoadFromFile( fPrintFile) ;
RM1. ShowReport;
2025-07-19 13:52:55 +08:00
RMDBMain. DataSet : = nil ;
2025-04-30 19:46:29 +08:00
end
else
begin
Application. MessageBox( PChar( 'û<> <C3BB> <EFBFBD> <EFBFBD> ' + trim( fPrintFile) ) , '<27> <> ʾ <EFBFBD> <CABE> Ϣ' , 0 ) ;
exit;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. Tv1FocusedRecordChanged( Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean ) ;
2025-04-30 19:46:29 +08:00
begin
2025-07-19 13:52:55 +08:00
// InitSub();
2025-04-30 19:46:29 +08:00
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TFJClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if order_Main. IsEmpty then
exit;
if order_Main. FieldByName( 'filler' ) . asstring < > trim( DName) then
begin
application. MessageBox( '<27> <> <EFBFBD> ܲ<EFBFBD> <DCB2> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ˵<EFBFBD> <CBB5> <EFBFBD> ' , '<27> <> ʾ ) ;
exit;
end ;
frmFjList : = TfrmFjlist. create( self) ;
with frmFjlist do
begin
fkeyNo : = trim( order_Main. fieldbyname( 'Mainid' ) . AsString) ;
ftype : = 'ZSDFJ' ;
if showmodal = 1 then
begin
end ;
;
end ;
frmFjlist. Free;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TV2FocusedRecordChanged( Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean ) ;
2025-04-30 19:46:29 +08:00
begin
initImage( ADOQuerySub. fieldbyname( 'HXFile' ) . AsString) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. Picture4DblClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
var
sFieldName: string ;
fileName: string ;
// ff: TADOBlobStream;
// FJStream : TMemoryStream;
begin
if Picture4. Picture. Height = 0 then
exit;
sFieldName : = leftbstr( ExtractFilePath( Application. ExeName) , 1 ) + ':\ͼƬ<CDBC> 鿴' ;
if not DirectoryExists( pchar( sFieldName) ) then
CreateDirectory( pchar( sFieldName) , nil ) ;
fileName : = ADOQuerySub. fieldbyname( 'hxFile' ) . AsString;
sFieldName : = sFieldName + '\' + trim( fileName) ;
try
IdFTP1. Host : = ReadINIFileStr( 'SYSTEMSET.INI' , 'SERVER' , '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ַ' , '127.0.0.1' ) ;
IdFTP1. Username : = 'three' ;
IdFTP1. Password : = '641010' ;
IdFTP1. Connect( ) ;
except
;
end ;
if IdFTP1. Connected then
begin
application. ProcessMessages;
try
IdFTP1. Get( fFlileFlag + '\' + Trim( fileName) , sFieldName, true , false ) ;
except
Application. MessageBox( '<27> ͻ<EFBFBD> ͼ<EFBFBD> <CDBC> <EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , '<27> <> ʾ , MB_ICONWARNING) ;
IdFTP1. Quit;
Exit;
end ;
end
else
begin
Application. MessageBox( '<27> <EFBFBD> <DEB7> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , '<27> <> ʾ , MB_ICONWARNING) ;
IdFTP1. Quit;
Exit;
end ;
if IdFTP1. Connected then
IdFTP1. Quit;
ShellExecute( Handle, 'open' , PChar( sFieldName) , '' , '' , SW_SHOWNORMAL) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TWCClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if Order_Main. IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql. Clear;
2025-07-19 13:52:55 +08:00
sql. Add( 'update JYOrder_Main SET status=' '2' ' ' ) ;
2025-04-30 19:46:29 +08:00
sql. Add( 'where mainID=' + quotedstr( trim( Order_Main. fieldbyname( 'mainID' ) . AsString) ) ) ;
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> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' ) ) ) ;
sql. Add( ',' + quotedstr( trim( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ţ<EFBFBD> ' + trim( Order_Main. FieldByName( 'orderNO' ) . AsString) ) ) ) ;
sql. Add( ',' + quotedstr( trim( '<27> ɹ<EFBFBD> ' ) ) ) ;
sql. Add( ')' ) ;
execsql;
end ;
application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ɳɹ<C9B3> <C9B9> <EFBFBD> ' , '<27> <> ʾ <EFBFBD> <CABE> Ϣ' ) ;
TBRafresh. Click;
except
application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> ' , '<27> <> ʾ <EFBFBD> <CABE> Ϣ' , 0 ) ;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TNoWCClick( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if Order_Main. IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql. Clear;
sql. Add( 'update JYOrder_Main SET status=' '0' ' ' ) ;
sql. Add( 'where mainID=' + quotedstr( trim( Order_Main. fieldbyname( 'mainID' ) . AsString) ) ) ;
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> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' ) ) ) ;
sql. Add( ',' + quotedstr( trim( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ţ<EFBFBD> ' + trim( Order_Main. FieldByName( 'orderNO' ) . AsString) ) ) ) ;
sql. Add( ',' + quotedstr( trim( '<27> ɹ<EFBFBD> ' ) ) ) ;
sql. Add( ')' ) ;
execsql;
end ;
application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ɳɹ<C9B3> <C9B9> <EFBFBD> ' , '<27> <> ʾ <EFBFBD> <CABE> Ϣ' ) ;
TBRafresh. Click;
except
application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> ' , '<27> <> ʾ <EFBFBD> <CABE> Ϣ' , 0 ) ;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. cxTabControl1Change( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
SetStatus( ) ;
InitGrid( ) ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. ToolButton4Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
if Order_Main. IsEmpty then
Exit;
try
frmMJSJFX : = TfrmMJSJFX. Create( Application) ;
with frmMJSJFX do
begin
frmMJSJFX. OrderNo. Text : = Self. Order_Main. fieldbyname( 'orderno' ) . AsString;
frmMJSJFX. OrderNo. Hint : = Self. Order_Main. fieldbyname( 'MainId' ) . AsString;
if ShowModal = 1 then
begin
end ;
end ;
finally
frmMJSJFX. Free;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. TV2CustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean ) ;
2025-04-30 19:46:29 +08:00
begin
if AViewInfo. GridRecord. Values[ tv2. GetColumnByFieldName( 'DJstatus' ) . Index ] = '1' then
ACanvas. Brush. Color : = clRed;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. ToolButton5Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
try
frmZDYHelp : = TfrmZDYHelp. Create( Application) ;
with frmZDYHelp do
begin
flag : = 'WFBCD' ;
flagname : = '<27> õ<EFBFBD> ' ;
fnote : = True ;
V1Note. Caption : = 'Ӣ<> <D3A2> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' ;
if ShowModal = 1 then
begin
end ;
end ;
finally
frmZDYHelp. Free;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. ToolButton6Click( Sender: TObject) ;
2025-04-30 19:46:29 +08:00
begin
frmSysLogOrderzsd : = TfrmSysLogOrderzsd. create( self) ;
with frmSysLogOrderzsd do
begin
fModel : = self. caption;
frmSysLogOrderzsd. FMainId : = Trim( Self. FMainId) ;
showmodal;
free;
end ;
end ;
2025-07-19 13:52:55 +08:00
procedure TfrmWWCorder. ToolButton7Click( Sender: TObject) ;
begin
if SelfConnData( ) = false then
begin
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> <DCA3> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ±<EFBFBD> <C2B1> <EFBFBD> ' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
end ;
procedure TfrmWWCorder. TSHClick( Sender: TObject) ;
begin
if Order_Main. IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql. Clear;
sql. Add( 'update JYOrder_Main SET status=' '1' ' ' ) ;
sql. Add( 'where mainID=' + quotedstr( trim( Order_Main. fieldbyname( 'mainID' ) . AsString) ) ) ;
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> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' ) ) ) ;
sql. Add( ',' + quotedstr( trim( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ţ<EFBFBD> ' + trim( Order_Main. FieldByName( 'orderNO' ) . AsString) ) ) ) ;
sql. Add( ',' + quotedstr( trim( '<27> ɹ<EFBFBD> ' ) ) ) ;
sql. Add( ')' ) ;
execsql;
end ;
application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ˳ɹ<CBB3> <C9B9> <EFBFBD> ' , '<27> <> ʾ <EFBFBD> <CABE> Ϣ' ) ;
TBRafresh. Click;
except
application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> ' , '<27> <> ʾ <EFBFBD> <CABE> Ϣ' , 0 ) ;
end ;
end ;
procedure TfrmWWCorder. TCXSHClick( Sender: TObject) ;
begin
if Order_Main. IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql. Clear;
sql. Add( 'update JYOrder_Main SET status=' '0' ' ' ) ;
sql. Add( 'where mainID=' + quotedstr( trim( Order_Main. fieldbyname( 'mainID' ) . AsString) ) ) ;
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> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' ) ) ) ;
sql. Add( ',' + quotedstr( trim( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ţ<EFBFBD> ' + trim( Order_Main. FieldByName( 'orderNO' ) . AsString) ) ) ) ;
sql. Add( ',' + quotedstr( trim( '<27> ɹ<EFBFBD> ' ) ) ) ;
sql. Add( ')' ) ;
execsql;
end ;
application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ɳɹ<C9B3> <C9B9> <EFBFBD> ' , '<27> <> ʾ <EFBFBD> <CABE> Ϣ' ) ;
TBRafresh. Click;
except
application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> ' , '<27> <> ʾ <EFBFBD> <CABE> Ϣ' , 0 ) ;
end ;
end ;
procedure TfrmWWCorder. Tv1MouseUp( Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer ) ;
begin
FLeft : = X;
FTop : = Y;
end ;
procedure TfrmWWCorder. Image1Click( Sender: TObject) ;
begin
Panel3. Visible : = False ;
end ;
2025-04-30 19:46:29 +08:00
end .
