217 lines
6.2 KiB
ObjectPascal
217 lines
6.2 KiB
ObjectPascal
unit U_JYOrderYS;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, ComCtrls, ToolWin, ExtCtrls, StdCtrls, cxStyles, cxCustomData,
|
||
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
|
||
cxCalendar, cxButtonEdit, cxTextEdit, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
|
||
cxGridCustomView, cxGrid, cxGridBandedTableView, cxGridDBBandedTableView,
|
||
DBClient, ADODB, cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu;
|
||
|
||
type
|
||
TFrmJYOrderYS = class(TForm)
|
||
Panel1: TPanel;
|
||
Label2: TLabel;
|
||
KHName: TEdit;
|
||
Label3: TLabel;
|
||
OrderNo: TEdit;
|
||
Panel2: TPanel;
|
||
cxGrid1: TcxGrid;
|
||
cxGridLevel1: TcxGridLevel;
|
||
TV1: TcxGridDBBandedTableView;
|
||
ToolBar1: TToolBar;
|
||
TBClose: TToolButton;
|
||
V1CRTime: TcxGridDBBandedColumn;
|
||
V1SPName: TcxGridDBBandedColumn;
|
||
V1TTQty: TcxGridDBBandedColumn;
|
||
V1Price: TcxGridDBBandedColumn;
|
||
V1PBMoney: TcxGridDBBandedColumn;
|
||
Panel3: TPanel;
|
||
Panel4: TPanel;
|
||
V1KCPBQty: TcxGridDBBandedColumn;
|
||
V1KCPBPS: TcxGridDBBandedColumn;
|
||
DataSource1: TDataSource;
|
||
DataSource2: TDataSource;
|
||
DataSource4: TDataSource;
|
||
DataSource5: TDataSource;
|
||
Order_PB: TClientDataSet;
|
||
Order_RF: TClientDataSet;
|
||
Order_XS: TClientDataSet;
|
||
Order_FYZC: TClientDataSet;
|
||
ADOQuery1: TADOQuery;
|
||
ADOQuery2: TADOQuery;
|
||
ADOQuery4: TADOQuery;
|
||
cxGrid2: TcxGrid;
|
||
TV2: TcxGridDBBandedTableView;
|
||
cxGridDBBandedColumn1: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn2: TcxGridDBBandedColumn;
|
||
V2Column1: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn4: TcxGridDBBandedColumn;
|
||
cxGridDBBandedPrice: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn6: TcxGridDBBandedColumn;
|
||
V2FactoryName: TcxGridDBBandedColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
Panel5: TPanel;
|
||
cxGrid5: TcxGrid;
|
||
TV5: TcxGridDBBandedTableView;
|
||
V5CRTime: TcxGridDBBandedColumn;
|
||
V5YFName: TcxGridDBBandedColumn;
|
||
V5RMBMoney: TcxGridDBBandedColumn;
|
||
cxGridLevel5: TcxGridLevel;
|
||
Label1: TLabel;
|
||
ConNo: TEdit;
|
||
cxGrid4: TcxGrid;
|
||
TV4: TcxGridDBBandedTableView;
|
||
cxGridDBBandedColumn15: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn16: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn18: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn19: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn20: TcxGridDBBandedColumn;
|
||
V4Column9: TcxGridDBBandedColumn;
|
||
V4Column11: TcxGridDBBandedColumn;
|
||
cxGridLevel4: TcxGridLevel;
|
||
cxGrid3: TcxGrid;
|
||
TV3: TcxGridDBBandedTableView;
|
||
cxGridDBBandedColumn8: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn9: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn10: TcxGridDBBandedColumn;
|
||
cxGridLevel3: TcxGridLevel;
|
||
DataSource3: TDataSource;
|
||
ADOQuery3: TADOQuery;
|
||
Order_SK: TClientDataSet;
|
||
V5BZType: TcxGridDBBandedColumn;
|
||
V3BZType: TcxGridDBBandedColumn;
|
||
V3Huilv: TcxGridDBBandedColumn;
|
||
Label4: TLabel;
|
||
MaoLMoney: TEdit;
|
||
Label5: TLabel;
|
||
YGMoney: TEdit;
|
||
V1FactoryName: TcxGridDBBandedColumn;
|
||
V5Note: TcxGridDBBandedColumn;
|
||
V4Huilv: TcxGridDBBandedColumn;
|
||
DataSource6: TDataSource;
|
||
Order_FL: TClientDataSet;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
Label6: TLabel;
|
||
SJMoney: TEdit;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
private
|
||
procedure initgrid();
|
||
{ Private declarations }
|
||
public
|
||
FMainid,FConnO,FOrderNo,FYWY,FKHName,FMaoLMoney,FYGMoney,FSJMoney: string; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
FrmJYOrderYS: TFrmJYOrderYS;
|
||
|
||
implementation
|
||
Uses
|
||
U_DataLink,U_ZDYHelp,U_Fun;
|
||
{$R *.dfm}
|
||
|
||
procedure TFrmJYOrderYS.initgrid();
|
||
var FSKMoney,FPBMoney,FJGMoney,FZCMoney:double;
|
||
begin
|
||
with Adoquery1 do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.add('exec P_Get_OrderZd '+quotedstr(Trim(FOrderNo))+',''<27><>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>'' ');
|
||
open;
|
||
end;
|
||
SCreateCDS20(Adoquery1,Order_PB);
|
||
SInitCDSData20(Adoquery1,Order_PB);
|
||
// with Adoquery1 do
|
||
// begin
|
||
// close;
|
||
// sql.clear;
|
||
//
|
||
// open;
|
||
// end;
|
||
// SCreateCDS20(Adoquery1,Order_FL);
|
||
// SInitCDSData20(Adoquery1,Order_FL);
|
||
with Adoquery1 do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.add('exec P_Get_OrderZd '+quotedstr(Trim(FOrderNo))+',''<27>ӹ<EFBFBD><D3B9><EFBFBD>'' ');
|
||
open;
|
||
end;
|
||
SCreateCDS20(Adoquery1,Order_RF);
|
||
SInitCDSData20(Adoquery1,Order_RF);
|
||
with AdoQuery1 do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.add('exec P_Get_OrderZd '+quotedstr(Trim(FOrderNo))+',''<27><><EFBFBD>۽<EFBFBD><DBBD><EFBFBD>'' ');
|
||
open;
|
||
end;
|
||
SCreateCDS20(Adoquery1,Order_XS);
|
||
SInitCDSData20(Adoquery1,Order_XS);
|
||
with AdoQuery1 do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.add('exec P_Get_OrderZd '+quotedstr(Trim(FOrderNo))+',''<27>տ<EFBFBD><D5BF><EFBFBD><EFBFBD><EFBFBD>'' ');
|
||
open;
|
||
end;
|
||
SCreateCDS20(Adoquery1,Order_SK);
|
||
SInitCDSData20(Adoquery1,Order_SK);
|
||
with AdoQuery1 do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.add('exec P_Get_OrderZd '+quotedstr(Trim(FOrderNo))+',''<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>'' ');
|
||
open;
|
||
end;
|
||
SCreateCDS20(Adoquery1,Order_FYZC);
|
||
SInitCDSData20(Adoquery1,Order_FYZC);
|
||
end;
|
||
|
||
procedure TFrmJYOrderYS.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
Action:=caFree;
|
||
end;
|
||
|
||
procedure TFrmJYOrderYS.FormDestroy(Sender: TObject);
|
||
begin
|
||
FrmJYOrderYS:=nil;
|
||
end;
|
||
|
||
procedure TFrmJYOrderYS.FormShow(Sender: TObject);
|
||
begin
|
||
ReadCxBandedGrid('<27><><EFBFBD><EFBFBD>2',Tv1,'<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ');
|
||
ReadCxBandedGrid('Ⱦ<><C8BE>1',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ');
|
||
ReadCxBandedGrid('<27>տ<EFBFBD>1',Tv3,'<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ');
|
||
ReadCxBandedGrid('<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>1',Tv5,'<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ');
|
||
ReadCxBandedGrid('<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>1',Tv4,'<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ');
|
||
ConNo.Text:=trim(FConnO);
|
||
OrderNo.Text:=trim(FOrderNo);
|
||
KHName.Text:=trim(FKHName);
|
||
// MaoLMoney.Text:=trim(FMaoLMoney);
|
||
YGMoney.Text:=trim(FYGMoney);
|
||
SJMoney.Text:=trim(FSJMoney);
|
||
initgrid();
|
||
end;
|
||
|
||
procedure TFrmJYOrderYS.TBCloseClick(Sender: TObject);
|
||
begin
|
||
WriteCxBandedGrid('<27><><EFBFBD><EFBFBD>2',Tv1,'<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ');
|
||
WriteCxBandedGrid('Ⱦ<><C8BE>1',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ');
|
||
WriteCxBandedGrid('<27>տ<EFBFBD>1',Tv3,'<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ');
|
||
WriteCxBandedGrid('<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>1',Tv5,'<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ');
|
||
WriteCxBandedGrid('<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>1',Tv4,'<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ');
|
||
Close;
|
||
end;
|
||
|
||
end.
|