118 lines
2.9 KiB
ObjectPascal
118 lines
2.9 KiB
ObjectPascal
|
unit U_PlanChgHisList;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
|
|
cxDataStorage, cxEdit, DB, cxDBData, cxCurrencyEdit, ADODB, cxGridLevel,
|
||
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||
|
|
cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin;
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrmPlanChgHisList = class(TForm)
|
||
|
|
ToolBar2: TToolBar;
|
||
|
|
Tclose: TToolButton;
|
||
|
|
cxGrid1: TcxGrid;
|
||
|
|
TV2: TcxGridDBTableView;
|
||
|
|
V2P_statusName: TcxGridDBColumn;
|
||
|
|
V2P_ClassType: TcxGridDBColumn;
|
||
|
|
tv2colorName: TcxGridDBColumn;
|
||
|
|
tv2P_subNum: TcxGridDBColumn;
|
||
|
|
tv2P_num: TcxGridDBColumn;
|
||
|
|
V2P_pbPrice: TcxGridDBColumn;
|
||
|
|
V2P_price: TcxGridDBColumn;
|
||
|
|
V2otherMoney: TcxGridDBColumn;
|
||
|
|
tv1YDnum: TcxGridDBColumn;
|
||
|
|
tv2P_colStd: TcxGridDBColumn;
|
||
|
|
tv1P_Csid: TcxGridDBColumn;
|
||
|
|
tv2sid: TcxGridDBColumn;
|
||
|
|
tv2P_other: TcxGridDBColumn;
|
||
|
|
tv1P_Solid: TcxGridDBColumn;
|
||
|
|
V2Sbtr4: TcxGridDBColumn;
|
||
|
|
tv1P_Rltype: TcxGridDBColumn;
|
||
|
|
tv1P_OutIndex: TcxGridDBColumn;
|
||
|
|
cxGrid1Level1: TcxGridLevel;
|
||
|
|
ADOQuery_his: TADOQuery;
|
||
|
|
DS_his: TDataSource;
|
||
|
|
V2P_chgTime: TcxGridDBColumn;
|
||
|
|
V2P_chnNote: TcxGridDBColumn;
|
||
|
|
V2planNO: TcxGridDBColumn;
|
||
|
|
V2customName: TcxGridDBColumn;
|
||
|
|
V2P_chnName: TcxGridDBColumn;
|
||
|
|
V2P_spec: TcxGridDBColumn;
|
||
|
|
V2P_BreadthTwo: TcxGridDBColumn;
|
||
|
|
V2P_gramTwo: TcxGridDBColumn;
|
||
|
|
ADOConnection1: TADOConnection;
|
||
|
|
procedure TcloseClick(Sender: TObject);
|
||
|
|
procedure FormCreate(Sender: TObject);
|
||
|
|
procedure FormShow(Sender: TObject);
|
||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
|
|
private
|
||
|
|
procedure DoQuery();
|
||
|
|
public
|
||
|
|
fPlanNO:string;
|
||
|
|
fP_seqNO:string;
|
||
|
|
fP_chgTime:integer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
frmPlanChgHisList: TfrmPlanChgHisList;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
uses
|
||
|
|
U_global,U_formPas;
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure TfrmPlanChgHisList.TcloseClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
close;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrmPlanChgHisList.FormCreate(Sender: TObject);
|
||
|
|
begin
|
||
|
|
cxGrid1.Align :=alClient;
|
||
|
|
with ADOConnection1 do
|
||
|
|
begin
|
||
|
|
Connected:=false;
|
||
|
|
ConnectionString:=gConString;
|
||
|
|
Connected:=true;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
/////////////////////////////////////////////////////////////
|
||
|
|
//
|
||
|
|
/////////////////////////////////////////////////////////////
|
||
|
|
procedure TfrmPlanChgHisList.DoQuery();
|
||
|
|
begin
|
||
|
|
try
|
||
|
|
ADOQuery_his.DisableControls ;
|
||
|
|
with ADOQuery_his do
|
||
|
|
begin
|
||
|
|
close;
|
||
|
|
sql.clear;
|
||
|
|
sql.Add('exec P_Select_PlanChgHisList');
|
||
|
|
sql.Add(quotedStr('ZR'));
|
||
|
|
Sql.Add(',1');
|
||
|
|
sql.Add(','+quotedStr(fPlanNO));
|
||
|
|
sql.Add(','+quotedStr(fP_seqNO));
|
||
|
|
//sql.Add('and B.P_chgTime='+intTostr(fP_chgTime));
|
||
|
|
Open;
|
||
|
|
end;
|
||
|
|
finally
|
||
|
|
ADOQuery_his.EnableControls ;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrmPlanChgHisList.FormShow(Sender: TObject);
|
||
|
|
begin
|
||
|
|
DoQuery();
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrmPlanChgHisList.FormClose(Sender: TObject;
|
||
|
|
var Action: TCloseAction);
|
||
|
|
begin
|
||
|
|
Action:=caFree;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|