772 lines
21 KiB
ObjectPascal
772 lines
21 KiB
ObjectPascal
unit U_YSFP_WXDJ;
|
||
|
||
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, BtnEdit, cxCheckBox, cxCurrencyEdit, cxDropDownEdit;
|
||
|
||
type
|
||
TfrmYSFP_WXDJ = class(TForm)
|
||
Panel1: TPanel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
Panel2: TPanel;
|
||
ToolBar1: TToolBar;
|
||
TBSave: TToolButton;
|
||
TBClose: TToolButton;
|
||
DataSource1: TDataSource;
|
||
Order_PB: TClientDataSet;
|
||
ADOQuery1: TADOQuery;
|
||
Label1: TLabel;
|
||
ToolBar2: TToolBar;
|
||
TADD: TToolButton;
|
||
Tdel: TToolButton;
|
||
Label4: TLabel;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
cxGridDBColumn5: TcxGridDBColumn;
|
||
cxGridDBColumn6: TcxGridDBColumn;
|
||
v2FPPrice: TcxGridDBColumn;
|
||
VBZ: TcxGridDBColumn;
|
||
v2KP: TcxGridDBColumn;
|
||
v2khConNo: TcxGridDBColumn;
|
||
v2P_CodeName: TcxGridDBColumn;
|
||
v2Column4: TcxGridDBColumn;
|
||
v2PRTColor: TcxGridDBColumn;
|
||
v2Note: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
filltime: TDateTimePicker;
|
||
Label7: TLabel;
|
||
v2StyleNo: TcxGridDBColumn;
|
||
v2PRTMF: TcxGridDBColumn;
|
||
v2PRTKZ: TcxGridDBColumn;
|
||
ComTaiTou: TBtnEditA;
|
||
KHName: TBtnEditA;
|
||
Label13: TLabel;
|
||
Label14: TLabel;
|
||
GSTel: TBtnEditA;
|
||
GSFax: TBtnEditA;
|
||
v2FPNo: TcxGridDBColumn;
|
||
FPType: TComboBox;
|
||
Label15: TLabel;
|
||
FJTiaoKuan: TMemo;
|
||
GSAddress: TBtnEditA;
|
||
Label5: TLabel;
|
||
Label6: TLabel;
|
||
BankName: TBtnEditA;
|
||
BankNo: TBtnEditA;
|
||
Label8: TLabel;
|
||
Label9: TLabel;
|
||
BankDaiMa: TBtnEditA;
|
||
BankAddress: TBtnEditA;
|
||
ADOQuery2: TADOQuery;
|
||
v2MQty: TcxGridDBColumn;
|
||
v2JQty: TcxGridDBColumn;
|
||
HZConNO: TEdit;
|
||
LAVBE: TLabel;
|
||
v2HYPrice: TcxGridDBColumn;
|
||
v2SPName: TcxGridDBColumn;
|
||
v2HYMoney: TcxGridDBColumn;
|
||
Label10: TLabel;
|
||
TKNote: TBtnEditA;
|
||
Label11: TLabel;
|
||
TELEXNO: TBtnEditA;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure TADDClick(Sender: TObject);
|
||
procedure v2P_CodeNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure v2Column4PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure v2PRTColorPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure v2PRTMFPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure v2PRTKZPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure v2Column1PropertiesEditValueChanged(Sender: TObject);
|
||
procedure ComTaiTouBtnClick(Sender: TObject);
|
||
procedure FJTiaoKuanDblClick(Sender: TObject);
|
||
procedure BankNameBtnClick(Sender: TObject);
|
||
procedure TdelClick(Sender: TObject);
|
||
procedure TBSaveClick(Sender: TObject);
|
||
procedure KHNameBtnClick(Sender: TObject);
|
||
procedure GSTelBtnClick(Sender: TObject);
|
||
procedure GSFaxBtnClick(Sender: TObject);
|
||
procedure GSAddressBtnClick(Sender: TObject);
|
||
procedure BankNoBtnClick(Sender: TObject);
|
||
procedure BankDaiMaBtnClick(Sender: TObject);
|
||
procedure BankAddressBtnClick(Sender: TObject);
|
||
procedure v2SPNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure VBZPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure TKNoteBtnClick(Sender: TObject);
|
||
private
|
||
procedure initgrid();
|
||
function SaveData():Boolean;
|
||
{ Private declarations }
|
||
public
|
||
FMainid,FFPID,FromID: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmYSFP_WXDJ: TfrmYSFP_WXDJ;
|
||
|
||
implementation
|
||
Uses
|
||
U_DataLink,U_ZDYHelp,U_Fun,U_YSCR_CX, U_ZDYHelpSel,U_JYOrderCon_CX;
|
||
{$R *.dfm}
|
||
function TfrmYSFP_WXDJ.SaveData():Boolean;
|
||
var
|
||
maxno,maxsubNo:String;
|
||
begin
|
||
if trim(FFPID)='' then
|
||
begin
|
||
if GetLSNo(ADOQuery1,maxno,'PI','JYOrderFPPI_Main',3,1)=False then
|
||
begin
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
maxno:=Trim(FFPID);
|
||
end;
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from JYOrderFPPI_Main where FPID='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOQuery1 do
|
||
begin
|
||
if isempty then
|
||
begin
|
||
Append;
|
||
end
|
||
else begin
|
||
Edit;
|
||
end;
|
||
FieldByName('FPID').Value:=Trim(maxno);
|
||
fieldbyname('Filler').Value:=trim(DName);
|
||
SSetsaveSqlNew(ADOQuery1,'JYOrderFPPI_Main',panel1,0);
|
||
post;
|
||
end;
|
||
with Order_PB do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(Order_PB.fieldbyname('PISID').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOQuery1,maxSubno,'PS','JYOrderFPPI_Sub',4,1)=False then
|
||
begin
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxSubno:=Trim(Order_PB.fieldbyname('PISID').AsString);
|
||
end;
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from JYOrderFPPI_Sub where FPID='''+Trim(maxno)+'''');
|
||
sql.Add(' and PISID='''+Trim(maxSubno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOQuery1 do
|
||
begin
|
||
if isempty then
|
||
Append
|
||
else
|
||
Edit;
|
||
FieldByName('FPID').Value:=Trim(maxno);
|
||
FieldByName('PISID').Value:=Trim(maxSubno);
|
||
RTSetSaveDataCDS(ADOQuery1,Tv2,Order_PB,'JYOrderFPPI_Sub',0);
|
||
fieldbyname('YFID').Value:=Order_PB.fieldbyname('YFID').AsString;
|
||
fieldbyname('YFName').Value:=Order_PB.fieldbyname('YFName').AsString;
|
||
fieldbyname('Qty').Value:=Order_PB.Fieldbyname('Qty').AsFloat;
|
||
fieldbyname('HYPrice').Value:=Order_PB.Fieldbyname('HYPrice').AsFloat;
|
||
fieldbyname('FPPrice').Value:=Order_PB.Fieldbyname('FPPrice').AsFloat;
|
||
fieldbyname('Price').Value:=Order_PB.Fieldbyname('FPPrice').AsFloat+Order_PB.Fieldbyname('HYPrice').AsFloat;
|
||
fieldbyname('JQty').Value:=Order_PB.Fieldbyname('JQty').AsFloat;
|
||
fieldbyname('MQty').Value:=Order_PB.Fieldbyname('MQty').AsFloat;
|
||
fieldbyname('KPMoney').Value:=Order_PB.Fieldbyname('KPMoney').AsFloat;
|
||
fieldbyname('HYMoney').Value:=Order_PB.Fieldbyname('HYMoney').AsFloat;
|
||
Post;
|
||
end;
|
||
Order_PB.Edit;
|
||
Order_PB.FieldByName('PISID').Value:=Trim(maxSubno);
|
||
Next;
|
||
end;
|
||
end;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
||
ModalResult:=1;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.initgrid();
|
||
begin
|
||
with Adoquery1 do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.add('select * from JYOrderFPPI_Main ');
|
||
SQL.Add('where FPID='''+trim(FFPID)+'''');
|
||
open;
|
||
end;
|
||
if ADOQuery1.IsEmpty=False then
|
||
SCSHDataNew(ADOQuery1,panel1,0);
|
||
if FromID='1' then
|
||
FFPID:='';
|
||
with Adoquery1 do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.add('select * from JYOrderFPPI_Sub ');
|
||
SQL.Add('where FPID='''+trim(FFPID)+'''');
|
||
open;
|
||
end;
|
||
SCreateCDS20(Adoquery1,Order_PB);
|
||
SInitCDSData20(Adoquery1,Order_PB);
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
Action:=caFree;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmYSFP_WXDJ:=nil;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.FormShow(Sender: TObject);
|
||
begin
|
||
ReadCxGrid('Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD><C7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ2',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
filltime.DateTime:=now;
|
||
initgrid();
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.TBCloseClick(Sender: TObject);
|
||
begin
|
||
WriteCxGrid('Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD><C7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ2',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.TADDClick(Sender: TObject);
|
||
var FHZConNO,FKHConNO:string;
|
||
begin
|
||
frmJYorderConCX:=TfrmJYorderConCX.create(self);
|
||
with frmJYorderConCX do
|
||
begin
|
||
formid:='2';
|
||
if showmodal=1 then
|
||
begin
|
||
with Order_Main do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
if fieldbyname('Ssel').AsBoolean=true then
|
||
begin
|
||
Self.KHName.text:=Order_Main.fieldbyname('ConPerson2').AsString;
|
||
if FHZConNO='' then
|
||
begin
|
||
FHZConNO:=Order_Main.fieldbyname('KHConNo').AsString;
|
||
if self.HZConNO.Text='' then
|
||
self.HZConNO.Text:=self.HZConNO.Text+Order_Main.fieldbyname('KHConNo').AsString
|
||
else
|
||
self.HZConNo.Text:=self.HZConNo.Text+','+Order_Main.fieldbyname('KHConNo').AsString;
|
||
end
|
||
else
|
||
begin
|
||
if FHZConNo<>Order_Main.fieldbyname('KHConNo').AsString then
|
||
begin
|
||
FHZConNO:=Order_Main.fieldbyname('KHConNo').AsString;
|
||
self.HZConNo.Text:=self.HZConNo.Text+','+Order_Main.fieldbyname('KHConNo').AsString;
|
||
end;
|
||
end;
|
||
with Order_PB do
|
||
begin
|
||
append;
|
||
fieldbyname('KHConNo').AsString:=Order_Main.fieldbyname('KHConNo').AsString;
|
||
fieldbyname('YFID').AsString:=Order_Main.fieldbyname('Subid').AsString;
|
||
fieldbyname('StyleNo').Value:=Order_Main.fieldbyname('StyleNo').AsString;
|
||
if Order_Main.fieldbyname('OrderUnit').AsString='KG' then
|
||
fieldbyname('JQty').Value:=Order_Main.fieldbyname('PRTOrderQty').AsFloat
|
||
else
|
||
fieldbyname('MQty').Value:=Order_Main.fieldbyname('PRTOrderQty').AsFloat;
|
||
fieldbyname('Qty').Value:=Order_Main.fieldbyname('PRTOrderQty').AsFloat;
|
||
fieldbyname('QtyUnit').AsString:=Order_Main.fieldbyname('OrderUnit').AsString;
|
||
fieldbyname('FPPrice').asfloat:=Order_Main.fieldbyname('PRTPrice').asfloat;
|
||
fieldbyname('KPMoney').asfloat:=Order_Main.fieldbyname('PRTPrice').asfloat*Order_Main.fieldbyname('PRTOrderQty').AsFloat;
|
||
fieldbyname('BZType').AsString:=Order_Main.fieldbyname('PriceUnit').AsString;
|
||
fieldbyname('P_CodeName').Value:=Order_Main.fieldbyname('PrtCodeName').AsString;
|
||
fieldbyname('P_Spec').AsString:=Order_Main.fieldbyname('PRTspec').AsString;
|
||
fieldbyname('PRTColor').AsString:=Order_Main.fieldbyname('SOrdDefStr4').AsString;
|
||
fieldbyname('PRTMF').AsString:=Order_Main.fieldbyname('PRTMF').AsString;
|
||
fieldbyname('PRTKZ').AsString:=Order_Main.fieldbyname('PRTKZ').AsString;
|
||
post;
|
||
end;
|
||
end;
|
||
next;
|
||
end;
|
||
end;
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.v2P_CodeNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='P_CodeName';
|
||
flagname:='Ʒ<><C6B7>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.Order_PB.Edit;
|
||
Self.Order_PB.FieldByName('P_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.v2Column4PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='P_Spec';
|
||
flagname:='<27><><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.Order_PB.Edit;
|
||
Self.Order_PB.FieldByName('P_Spec').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.v2PRTColorPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='PRTColor';
|
||
flagname:='<27><>ɫ';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.Order_PB.Edit;
|
||
Self.Order_PB.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.v2PRTMFPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='PRTMF';
|
||
flagname:='<27>ŷ<EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.Order_PB.Edit;
|
||
Self.Order_PB.FieldByName('PRTMF').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.v2PRTKZPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='PRTKZ';
|
||
flagname:='<27><><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.Order_PB.Edit;
|
||
Self.Order_PB.FieldByName('PRTKZ').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.v2Column1PropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
mvalue,FFieldName:String;
|
||
begin
|
||
mvalue:=TcxTextEdit(Sender).EditingText;
|
||
if Trim(mvalue)='' then
|
||
begin
|
||
mvalue:='0';
|
||
end;
|
||
FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
with Order_PB do
|
||
begin
|
||
Edit;
|
||
FieldByName(FFieldName).Value:=Trim(mvalue);
|
||
end;
|
||
with order_PB do
|
||
begin
|
||
edit;
|
||
fieldbyname('KPMoney').Value:=(fieldbyname('FPPrice').AsFloat+fieldbyname('HYPrice').AsFloat)*fieldbyname('Qty').AsFloat;
|
||
fieldbyname('HYMoney').Value:=fieldbyname('HYPrice').AsFloat*fieldbyname('Qty').AsFloat;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.ComTaiTouBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='comTaiTouGS';
|
||
flagname:='<27><>˾̧ͷ';
|
||
if ShowModal=1 then
|
||
begin
|
||
ComtaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select Top 1* from JYOrderFPPI_Main where ComTaiTou='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'''');
|
||
sql.add(' order by FillTime desc');
|
||
Open;
|
||
Self.GSTel.Text:=Trim(ADOQuery1.fieldbyname('GSTel').AsString);
|
||
Self.GSAddress.Text:=Trim(ADOQuery1.fieldbyname('GSAddress').AsString);
|
||
Self.GSFax.Text:=Trim(ADOQuery1.fieldbyname('GSFax').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.FJTiaoKuanDblClick(Sender: TObject);
|
||
var
|
||
fsj:string;
|
||
FWZ:Integer;
|
||
i:integer;
|
||
begin
|
||
fsj:=Trim(TMemo(Sender).Hint);
|
||
FWZ:=Pos('/',fsj);
|
||
i:=1;
|
||
try
|
||
frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
|
||
with frmZDYHelpSel do
|
||
begin
|
||
flag:=Copy(fsj,1,FWZ-1);
|
||
flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz);
|
||
if ShowModal=1 then
|
||
begin
|
||
FJTiaoKuan.Lines.Clear;
|
||
with ClientDataSet1 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if FieldByName('SSel').AsBoolean=True then
|
||
begin
|
||
FJTiaoKuan.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString);
|
||
i:=i+1;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelpSel.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.BankNameBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='BankNamePI';
|
||
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
BankName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select Top 1* from JYOrderFPPI_Main where BankName='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'''');
|
||
sql.add(' order by FillTime desc');
|
||
Open;
|
||
Self.BankNo.Text:=Trim(ADOQuery1.fieldbyname('BankNo').AsString);
|
||
Self.BankDaiMa.Text:=Trim(ADOQuery1.fieldbyname('BankDaiMa').AsString);
|
||
Self.BankAddress.Text:=Trim(ADOQuery1.fieldbyname('BankAddress').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.TdelClick(Sender: TObject);
|
||
begin
|
||
if order_PB.IsEmpty then exit;
|
||
if order_PB.FieldByName('PISID').AsString<>'' then
|
||
begin
|
||
if application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD>','<27><>ʾ',1)=2 then exit;
|
||
with ADOQuery2 do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('delete from JYOrderFPPI_Sub ');
|
||
sql.add('where PISID='''+trim(order_PB.FieldByName('PISID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
end;
|
||
Order_PB.Delete;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.TBSaveClick(Sender: TObject);
|
||
begin
|
||
toolbar1.SetFocus;
|
||
if Trim(ComTaiTou.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><>˾̧ͷ<CCA7><CDB7><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(KHName.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
SaveData();
|
||
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.KHNameBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='KHName1';
|
||
flagname:='<27>ͻ<EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
KHName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.GSTelBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='GSTel';
|
||
flagname:='<27><>˾<EFBFBD>绰';
|
||
if ShowModal=1 then
|
||
begin
|
||
GSTel.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.GSFaxBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='GSFax';
|
||
flagname:='<27><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
GSFax.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.GSAddressBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='GSAddress';
|
||
flagname:='<27><>˾<EFBFBD><CBBE>ַ';
|
||
if ShowModal=1 then
|
||
begin
|
||
GSAddress.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.BankNoBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='BankNo1';
|
||
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
BankNo.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.BankDaiMaBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='BankDaiMa';
|
||
flagname:='<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
BankDaiMa.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.BankAddressBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='BankAddress';
|
||
flagname:='<27><><EFBFBD>е<EFBFBD>ַ';
|
||
if ShowModal=1 then
|
||
begin
|
||
BankAddress.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.v2SPNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='SPName';
|
||
flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
with Order_PB do
|
||
begin
|
||
edit;
|
||
fieldbyname('SPName').AsString:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.cxGridDBColumn6PropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='QtyUnit';
|
||
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
|
||
if ShowModal=1 then
|
||
begin
|
||
with Order_PB do
|
||
begin
|
||
edit;
|
||
fieldbyname('QtyUnit').AsString:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.VBZPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='BZType';
|
||
flagname:='<27><><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
with Order_PB do
|
||
begin
|
||
edit;
|
||
fieldbyname('BZType').AsString:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmYSFP_WXDJ.TKNoteBtnClick(Sender: TObject);
|
||
begin
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='TELEXNO';
|
||
flagname:='TELEXNO';
|
||
if ShowModal=1 then
|
||
begin
|
||
TELEXNO.Text:=trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
end.
|