405 lines
11 KiB
ObjectPascal
405 lines
11 KiB
ObjectPascal
|
unit U_CP_YDang_BJDJ;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, ComCtrls, ToolWin, ExtCtrls, StdCtrls, DBClient, DB, ADODB,
|
|||
|
|
cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
|||
|
|
cxEdit, cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
|
|||
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
|||
|
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, cxCalendar, cxButtonEdit,
|
|||
|
|
RM_System, RM_Common, RM_Class, RM_GridReport, RM_Dataset;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmCP_YDang_BJDJ = class(TForm)
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
BegDate: TDateTimePicker;
|
|||
|
|
EndDate: TDateTimePicker;
|
|||
|
|
ADOQueryTmp: TADOQuery;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
contract_Main: TClientDataSet;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
TV1: TcxGridDBTableView;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TINIT: TToolButton;
|
|||
|
|
Tglv: TToolButton;
|
|||
|
|
Tadd: TToolButton;
|
|||
|
|
Tupdate: TToolButton;
|
|||
|
|
TSel: TToolButton;
|
|||
|
|
TClose: TToolButton;
|
|||
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
CustomerNoName: TEdit;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
ConPerson1: TEdit;
|
|||
|
|
V1PRTCodeName: TcxGridDBColumn;
|
|||
|
|
V1PRTSpec: TcxGridDBColumn;
|
|||
|
|
V1MFQty: TcxGridDBColumn;
|
|||
|
|
V1KZQty: TcxGridDBColumn;
|
|||
|
|
V1PRTOrderQty: TcxGridDBColumn;
|
|||
|
|
V1OrderUnit: TcxGridDBColumn;
|
|||
|
|
V1Note: TcxGridDBColumn;
|
|||
|
|
RMReport: TRMGridReport;
|
|||
|
|
RMDBMAIN: TRMDBDataSet;
|
|||
|
|
order_print: TClientDataSet;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
PRTCodeName: TEdit;
|
|||
|
|
PRTSpec: TEdit;
|
|||
|
|
V1CustomerNoName: TcxGridDBColumn;
|
|||
|
|
V1ConPerson1: TcxGridDBColumn;
|
|||
|
|
V1PRTCF: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty1: TcxGridDBColumn;
|
|||
|
|
V1BJtime: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty5: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty6: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty7: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty8: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty9: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty10: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty11: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty12: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty13: TcxGridDBColumn;
|
|||
|
|
V1SOrdQty2: TcxGridDBColumn;
|
|||
|
|
V1BJPrice: TcxGridDBColumn;
|
|||
|
|
V1PriceUnit: TcxGridDBColumn;
|
|||
|
|
V1BJXS: TcxGridDBColumn;
|
|||
|
|
V1CBPrice: TcxGridDBColumn;
|
|||
|
|
V1PBMF: TcxGridDBColumn;
|
|||
|
|
V1PBKZ: TcxGridDBColumn;
|
|||
|
|
V1PBSPEC: TcxGridDBColumn;
|
|||
|
|
V1PRTCode: TcxGridDBColumn;
|
|||
|
|
V1CustomerNo: TcxGridDBColumn;
|
|||
|
|
cxTabControl1: TcxTabControl;
|
|||
|
|
V1QDLQty: TcxGridDBColumn;
|
|||
|
|
Label6: TLabel;
|
|||
|
|
PRTCode: TEdit;
|
|||
|
|
procedure TSelClick(Sender: TObject);
|
|||
|
|
procedure TCloseClick(Sender: TObject);
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure FormDestroy(Sender: TObject);
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
procedure TaddClick(Sender: TObject);
|
|||
|
|
procedure TupdateClick(Sender: TObject);
|
|||
|
|
procedure TglvClick(Sender: TObject);
|
|||
|
|
procedure TINITClick(Sender: TObject);
|
|||
|
|
procedure TchkClick(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure CustomerNoNameChange(Sender: TObject);
|
|||
|
|
procedure TNochkClick(Sender: TObject);
|
|||
|
|
procedure TV1CellDblClick(Sender: TcxCustomGridTableView;
|
|||
|
|
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
|||
|
|
AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
procedure cxTabControl1Change(Sender: TObject);
|
|||
|
|
procedure PRTCodeKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure PRTCodeNameKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
private
|
|||
|
|
procedure INITDATa();
|
|||
|
|
procedure SetStatus();
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
ftype,fDParameters1:string;
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmCP_YDang_BJDJ: TfrmCP_YDang_BJDJ;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses U_frmcontract_OutProce_sub,U_Fun,U_DataLink, U_ZDYHelp,
|
|||
|
|
U_CP_YDang_BJ_Sub;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.SetStatus();
|
|||
|
|
begin
|
|||
|
|
Tupdate.Visible:=False;
|
|||
|
|
case cxTabControl1.TabIndex of
|
|||
|
|
0:begin
|
|||
|
|
Tupdate.Visible:=true;
|
|||
|
|
end;
|
|||
|
|
1:begin
|
|||
|
|
end;
|
|||
|
|
2:begin
|
|||
|
|
end;
|
|||
|
|
3:begin
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.INITDATa();
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select a.*,b.* from CP_YDang_BJ_Main a ');
|
|||
|
|
sql.Add('inner join CP_YDang_BJ_Sub b on b.Mainid=a.Mainid ');
|
|||
|
|
sql.Add('where a.filltime>='''+formatdatetime('yyyy-MM-dd',begdate.datetime)+'''' );
|
|||
|
|
sql.Add('and a.filltime<'''+formatdatetime('yyyy-MM-dd',Enddate.datetime+1)+'''' );
|
|||
|
|
if cxTabControl1.TabIndex=0 then
|
|||
|
|
sql.Add('and isnull(a.status,0)=0 ');
|
|||
|
|
if cxTabControl1.TabIndex=1 then
|
|||
|
|
sql.Add('and a.status=1 ');
|
|||
|
|
if cxTabControl1.TabIndex=2 then
|
|||
|
|
sql.Add('and a.status=2 ');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryTmp,contract_Main);
|
|||
|
|
SInitCDSData20(ADOQueryTmp,contract_Main);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.TSelClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if contract_Main.IsEmpty then exit;
|
|||
|
|
try
|
|||
|
|
frmCP_YDang_BJ_Sub:=TfrmCP_YDang_BJ_Sub.create(self);
|
|||
|
|
with frmCP_YDang_BJ_Sub do
|
|||
|
|
begin
|
|||
|
|
Formid:=99;
|
|||
|
|
caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD>Ǽ<EFBFBD>';
|
|||
|
|
FMainid:=trim(self.contract_Main.fieldbyname('Mainid').asstring);
|
|||
|
|
Tsave.Visible:=False;
|
|||
|
|
ToolBar2.Visible:=False;
|
|||
|
|
Panel1.Enabled:=False;
|
|||
|
|
TV1.OptionsData.Editing:=False;
|
|||
|
|
TV1.OptionsData.Deleting:=False;
|
|||
|
|
if showmodal=1 then
|
|||
|
|
begin
|
|||
|
|
INITDATa();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmCP_YDang_BJ_Sub.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.TCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
WriteCxGrid(self.Caption+tv1.Name,Tv1);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
cxgrid1.Align:=alclient;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.FormDestroy(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmCP_YDang_BJDJ:=nil;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.FormClose(Sender: TObject;
|
|||
|
|
var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
action:=cafree;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.TaddClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmCP_YDang_BJ_Sub:=TfrmCP_YDang_BJ_Sub.create(self);
|
|||
|
|
with frmCP_YDang_BJ_Sub do
|
|||
|
|
begin
|
|||
|
|
formid:=0;
|
|||
|
|
FMainid:='';
|
|||
|
|
if showmodal=1 then
|
|||
|
|
begin
|
|||
|
|
INITDATa();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmCP_YDang_BJ_Sub.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.TupdateClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if contract_Main.IsEmpty then exit;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.add('select Status from CP_YDang_BJ_Main ');
|
|||
|
|
sql.add(' where Mainid='''+trim(contract_Main.fieldbyname('Mainid').asstring)+''' ');
|
|||
|
|
open;
|
|||
|
|
if fieldbyname('status').asstring='2' then
|
|||
|
|
begin
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','');
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
frmCP_YDang_BJ_Sub:=TfrmCP_YDang_BJ_Sub.create(self);
|
|||
|
|
with frmCP_YDang_BJ_Sub do
|
|||
|
|
begin
|
|||
|
|
Formid:=99;
|
|||
|
|
caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD>Ǽ<EFBFBD>';
|
|||
|
|
FMainid:=trim(self.contract_Main.fieldbyname('Mainid').asstring);
|
|||
|
|
if showmodal=1 then
|
|||
|
|
begin
|
|||
|
|
INITDATa();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmCP_YDang_BJ_Sub.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.TglvClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
SDofilter(ADOQueryTMP,SGetFilters(Panel1,1,2));
|
|||
|
|
SCreateCDS20(ADOQueryTMP,CONTRACT_Main);
|
|||
|
|
SInitCDSData20(ADOQueryTMP,contract_Main);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.TINITClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
INITDATa();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.TchkClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if contract_Main.IsEmpty then exit;
|
|||
|
|
try
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('update CP_YDang_BJ_Main set status=''1'',chktime=getdate(),chker='+quotedstr(trim(Dname)) );
|
|||
|
|
sql.Add(' where Mainid='''+trim(contract_Main.fieldbyname('Mainid').asstring)+'''');
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
application.MessageBox('<27><><EFBFBD>˳ɹ<CBB3>','<27><>ʾ');
|
|||
|
|
initdata();
|
|||
|
|
except
|
|||
|
|
application.messagebox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>','<27><>ʾ');
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ReadCxGrid(self.Caption+tv1.Name,Tv1);
|
|||
|
|
enddate.datetime:=SGetServerDateTime(ADOQueryTmp);
|
|||
|
|
begdate.datetime:=enddate.datetime-1;
|
|||
|
|
SetStatus();
|
|||
|
|
initdata();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.CustomerNoNameChange(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
SDofilter(ADOQueryTMP,SGetFilters(Panel1,1,2));
|
|||
|
|
SCreateCDS20(ADOQueryTMP,CONTRACT_Main);
|
|||
|
|
SInitCDSData20(ADOQueryTMP,contract_Main);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.TNochkClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if contract_Main.IsEmpty then exit;
|
|||
|
|
try
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('update CP_YDang_BJ_Main set status=''0'',chktime=null,chker=null ');
|
|||
|
|
sql.Add(' where Mainid='''+trim(contract_Main.fieldbyname('Mainid').asstring)+'''');
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>','<27><>ʾ');
|
|||
|
|
initdata();
|
|||
|
|
except
|
|||
|
|
application.messagebox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>','<27><>ʾ');
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.TV1CellDblClick(
|
|||
|
|
Sender: TcxCustomGridTableView;
|
|||
|
|
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
|||
|
|
AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
begin
|
|||
|
|
TSel.Click;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.cxTabControl1Change(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
SetStatus();
|
|||
|
|
initdata();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.PRTCodeKeyPress(Sender: TObject;
|
|||
|
|
var Key: Char);
|
|||
|
|
begin
|
|||
|
|
if key=#13 then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select a.*,b.* from CP_YDang_BJ_Main A ');
|
|||
|
|
sql.Add('inner join CP_YDang_BJ_Sub B on B.Mainid=A.Mainid ');
|
|||
|
|
sql.Add('where B.PRTCode like '''+'%'+trim(PRTCode.Text)+'%'+''' ');
|
|||
|
|
if cxTabControl1.TabIndex=0 then
|
|||
|
|
sql.Add('and a.status<>2 ');
|
|||
|
|
if cxTabControl1.TabIndex=1 then
|
|||
|
|
sql.Add('and a.status=2 ');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryTmp,contract_Main);
|
|||
|
|
SInitCDSData20(ADOQueryTmp,contract_Main);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.CustomerNoNameKeyPress(Sender: TObject;
|
|||
|
|
var Key: Char);
|
|||
|
|
begin
|
|||
|
|
if key=#13 then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select a.*,b.* from CP_YDang_BJ_Main A ');
|
|||
|
|
sql.Add('inner join CP_YDang_BJ_Sub B on B.Mainid=A.Mainid ');
|
|||
|
|
sql.Add('where A.CustomerNoName like '''+'%'+trim(CustomerNoName.Text)+'%'+''' ');
|
|||
|
|
if cxTabControl1.TabIndex=0 then
|
|||
|
|
sql.Add('and a.status<>2 ');
|
|||
|
|
if cxTabControl1.TabIndex=1 then
|
|||
|
|
sql.Add('and a.status=2 ');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryTmp,contract_Main);
|
|||
|
|
SInitCDSData20(ADOQueryTmp,contract_Main);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCP_YDang_BJDJ.PRTCodeNameKeyPress(Sender: TObject;
|
|||
|
|
var Key: Char);
|
|||
|
|
begin
|
|||
|
|
if key=#13 then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select a.*,b.* from CP_YDang_BJ_Main A ');
|
|||
|
|
sql.Add('inner join CP_YDang_BJ_Sub B on B.Mainid=A.Mainid ');
|
|||
|
|
sql.Add('where B.PRTCodeName like '''+'%'+trim(PRTCodeName.Text)+'%'+''' ');
|
|||
|
|
if cxTabControl1.TabIndex=0 then
|
|||
|
|
sql.Add('and a.status<>2 ');
|
|||
|
|
if cxTabControl1.TabIndex=1 then
|
|||
|
|
sql.Add('and a.status=2 ');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryTmp,contract_Main);
|
|||
|
|
SInitCDSData20(ADOQueryTmp,contract_Main);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|