191 lines
4.7 KiB
ObjectPascal
191 lines
4.7 KiB
ObjectPascal
unit U_OrderJD;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, StdCtrls, ExtCtrls, cxStyles, cxCustomData, cxGraphics,
|
||
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
|
||
cxClasses, cxControls, cxGridCustomView, cxGrid, cxCheckBox, cxCalendar,
|
||
ADODB, DBClient;
|
||
|
||
type
|
||
TfrmOrderJD = class(TForm)
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
orderNo: TEdit;
|
||
GroupBox1: TGroupBox;
|
||
Panel2: TPanel;
|
||
GroupBox2: TGroupBox;
|
||
GroupBox3: TGroupBox;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v1Column4: TcxGridDBColumn;
|
||
v1OrderNo: TcxGridDBColumn;
|
||
v1ConNo: TcxGridDBColumn;
|
||
v1Column11: TcxGridDBColumn;
|
||
v1OrdPerson1: TcxGridDBColumn;
|
||
v1OrdDate: TcxGridDBColumn;
|
||
v1DeliveryDate: TcxGridDBColumn;
|
||
v1CustomerNoName: TcxGridDBColumn;
|
||
v1MPRTCodeName: TcxGridDBColumn;
|
||
v1MPrtSpec: TcxGridDBColumn;
|
||
v1Column1: TcxGridDBColumn;
|
||
v1SordQtY1: TcxGridDBColumn;
|
||
v1PRTOrderQty: TcxGridDBColumn;
|
||
v1ordderNote1: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
v1Column2: TcxGridDBColumn;
|
||
CDS_Order: TClientDataSet;
|
||
DS_Order: TDataSource;
|
||
ADOQueryMain: TADOQuery;
|
||
cxGrid2: TcxGrid;
|
||
TV2: TcxGridDBTableView;
|
||
cxGridLevel1: TcxGridLevel;
|
||
V2Column1: TcxGridDBColumn;
|
||
V2Column2: TcxGridDBColumn;
|
||
V2Column3: TcxGridDBColumn;
|
||
V2Column4: TcxGridDBColumn;
|
||
cxGrid3: TcxGrid;
|
||
TV3: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn5: TcxGridDBColumn;
|
||
cxGridDBColumn6: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
CDS_CG: TClientDataSet;
|
||
DS_CG: TDataSource;
|
||
DS_DH: TDataSource;
|
||
CDS_DH: TClientDataSet;
|
||
CDS_TP: TClientDataSet;
|
||
DS_TP: TDataSource;
|
||
Panel3: TPanel;
|
||
GroupBox5: TGroupBox;
|
||
cxGrid5: TcxGrid;
|
||
TV5: TcxGridDBTableView;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
cxGridDBColumn9: TcxGridDBColumn;
|
||
cxGridDBColumn10: TcxGridDBColumn;
|
||
cxGridLevel4: TcxGridLevel;
|
||
GroupBox4: TGroupBox;
|
||
cxGrid4: TcxGrid;
|
||
TV4: TcxGridDBTableView;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridDBColumn7: TcxGridDBColumn;
|
||
cxGridDBColumn8: TcxGridDBColumn;
|
||
cxGridLevel3: TcxGridLevel;
|
||
V4Column1: TcxGridDBColumn;
|
||
V5Column1: TcxGridDBColumn;
|
||
CDS_FH: TClientDataSet;
|
||
DS_FH: TDataSource;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
|
||
procedure FormShow(Sender: TObject);
|
||
private
|
||
Procedure InitOrder();
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmOrderJD: TfrmOrderJD;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink,U_Fun;
|
||
{$R *.dfm}
|
||
Procedure TfrmOrderJD.InitOrder();
|
||
begin
|
||
with adoqueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('exec P_View_OrderProgressDetails');
|
||
sql.Add(' @OrderNo='+quotedstr(trim(orderNo.Text)));
|
||
sql.Add(',@flag=''<27>ƻ<EFBFBD><C6BB><EFBFBD>''');
|
||
open;
|
||
end;
|
||
SCreateCDS20(adoqueryMain,CDS_Order);
|
||
SInitCDSData20(adoqueryMain,CDS_Order);
|
||
|
||
with adoqueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('exec P_View_OrderProgressDetails');
|
||
sql.Add(' @OrderNo='+quotedstr(trim(orderNo.Text)));
|
||
sql.Add(',@flag=''<27><><EFBFBD><EFBFBD>''');
|
||
open;
|
||
end;
|
||
|
||
SCreateCDS20(adoqueryMain,CDS_CG);
|
||
SInitCDSData20(adoqueryMain,CDS_CG);
|
||
with adoqueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('exec P_View_OrderProgressDetails');
|
||
sql.Add(' @OrderNo='+quotedstr(trim(orderNo.Text)));
|
||
sql.Add(',@flag=''<27><><EFBFBD>ӹ<EFBFBD>''');
|
||
open;
|
||
end;
|
||
|
||
SCreateCDS20(adoqueryMain,CDS_DH);
|
||
SInitCDSData20(adoqueryMain,CDS_DH);
|
||
|
||
with adoqueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('exec P_View_OrderProgressDetails');
|
||
sql.Add(' @OrderNo='+quotedstr(trim(orderNo.Text)));
|
||
sql.Add(',@flag=''<27><><EFBFBD>첼''');
|
||
open;
|
||
end;
|
||
|
||
SCreateCDS20(adoqueryMain,CDS_TP);
|
||
SInitCDSData20(adoqueryMain,CDS_TP);
|
||
|
||
with adoqueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('exec P_View_OrderProgressDetails');
|
||
sql.Add(' @OrderNo='+quotedstr(trim(orderNo.Text)));
|
||
sql.Add(',@flag=''<27><>Ʒ''');
|
||
open;
|
||
end;
|
||
|
||
SCreateCDS20(adoqueryMain,CDS_FH);
|
||
SInitCDSData20(adoqueryMain,CDS_FH);
|
||
|
||
end;
|
||
procedure TfrmOrderJD.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmOrderJD:=nil;
|
||
end;
|
||
|
||
procedure TfrmOrderJD.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
Action:=cafree;
|
||
end;
|
||
|
||
procedure TfrmOrderJD.orderNoKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
IF key=#13 then
|
||
begin
|
||
IF trim(orderNo.Text)='' then exit;
|
||
InitOrder();
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderJD.FormShow(Sender: TObject);
|
||
begin
|
||
InitOrder();
|
||
end;
|
||
|
||
end.
|