Group_01/D7wmguihua
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
b4b5840f18
D7wmguihua/桂华管理系统/U_OrderInPutXH.pas

1955 lines
54 KiB
ObjectPascal
Raw Normal View History

1
2025-01-18 16:22:10 +08:00
unit U_OrderInPutXH;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxGridCustomPopupMenu,
cxGridPopupMenu, cxDBLookupComboBox, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxDropDownEdit;
type
TfrmOrderInPutXH = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
Label3: TLabel;
OrderNo: TEdit;
OrdDate: TDateTimePicker;
Label4: TLabel;
DlyDate: TDateTimePicker;
Label7: TLabel;
Label8: TLabel;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
v1PRTColor: TcxGridDBColumn;
v1PRTPrice: TcxGridDBColumn;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
v1PRTOrderQty: TcxGridDBColumn;
Label9: TLabel;
Label10: TLabel;
ConNo: TEdit;
Label11: TLabel;
OrdDefStr1: TEdit;
Label14: TLabel;
Label20: TLabel;
JGFactoryName: TBtnEditC;
CustomerNoName: TBtnEditC;
v1XHNo: TcxGridDBColumn;
OrdDefStr2: TBtnEditC;
v1OrderUnit: TcxGridDBColumn;
v1SOrddefstr1: TcxGridDBColumn;
v1PriceUnit: TcxGridDBColumn;
Label2: TLabel;
MPRTCodeName: TBtnEditC;
Label5: TLabel;
MPRTCF: TBtnEditC;
Label6: TLabel;
MPRTSpec: TBtnEditC;
Label12: TLabel;
MPRTMF: TBtnEditC;
Label13: TLabel;
MPRTKZ: TBtnEditC;
Label15: TLabel;
MPRTSL: TBtnEditC;
Label16: TLabel;
OrdDefStr3: TBtnEditC;
Note: TMemo;
Label17: TLabel;
OrdPerson2: TEdit;
v1Column2: TcxGridDBColumn;
ToolButton3: TToolButton;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1PRTRollNum: TcxGridDBColumn;
cxGridPopupMenu1: TcxGridPopupMenu;
Label18: TLabel;
FHAddress: TBtnEditC;
Label19: TLabel;
LXFS: TBtnEditC;
Label21: TLabel;
orddefnote1: TMemo;
v1Sorddefnote1: TcxGridDBColumn;
Panel1: TPanel;
Label22: TLabel;
Label23: TLabel;
v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
OrdPerson1: TBtnEditA;
Label24: TLabel;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
SYRName: TComboBox;
Label25: TLabel;
v1gangFee: TcxGridDBColumn;
GroupBox1: TGroupBox;
Label26: TLabel;
Label27: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Edit3: TEdit;
Label28: TLabel;
orderType: TComboBox;
v1YunFee: TcxGridDBColumn;
v1OtherFee: TcxGridDBColumn;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
V4Column1: TcxGridDBColumn;
V4Column5: TcxGridDBColumn;
V4Column3: TcxGridDBColumn;
cxGrid4Level1: TcxGridLevel;
ADO_KH: TADOQuery;
DS_KH: TDataSource;
Label29: TLabel;
Label30: TLabel;
ADOQueryCP: TADOQuery;
DSCP: TDataSource;
Label31: TLabel;
Label32: TLabel;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure v1PRTColorPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure JGFactoryNameBtnUpClick(Sender: TObject);
procedure CustomerNoNameBtnUpClick(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure v1Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure OrdDefStr3BtnUpClick(Sender: TObject);
procedure MPRTCodeNameBtnUpClick(Sender: TObject);
procedure NoteDblClick(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure jKeyPress(Sender: TObject; var Key: Char);
procedure OrdDefStr2BtnUpClick(Sender: TObject);
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton3Click(Sender: TObject);
procedure v1Column6PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1Column8PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1Column7PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure FHAddressBtnUpClick(Sender: TObject);
procedure LXFSBtnUpClick(Sender: TObject);
procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
procedure v1PRTColorPropertiesEditValueChanged(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure OrdPerson1BtnClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure OrdDateChange(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure TV4CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure TV4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
procedure Tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
private
procedure InitData();
procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
function SaveData():Boolean;
function SaveDataSubOne():Boolean;
function SaveDataMain():Boolean;
function SaveDataSubMore():Boolean;
procedure DoKc();
{ Private declarations }
public
PState,CopyInt,PriceFlag:Integer;
FMainId,FFMainId,FOrderNo:String;
FXS:Integer;
fCustomerNoName:string;
forderType:string;
fsyrName:string;
{ Public declarations }
end;
var
frmOrderInPutXH: TfrmOrderInPutXH;
newh:hwnd;
implementation
uses
U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ZdyAttachment, U_ZdyAttachCP,
U_UserHelp;
{$R *.dfm}
procedure TfrmOrderInPutXH.DoKc();
var
i:integer;
begin
Label22.Caption:='ƥ<><C6A5><EFBFBD><EFBFBD>0';
Label23.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0';
IF Order_Sub.IsEmpty then exit;
IF trim(Order_Sub.fieldbyname('PRTCodeName').AsString)='' then exit;
IF trim(Order_Sub.fieldbyname('PRTColor').AsString)='' then exit;
IF trim(fsyrName)='<27>𻪷<EFBFBD>֯' then
begin
with ADOTemp do
begin
close;
sql.Clear;
SQL.Add('SELECT sum(A.KCRollnum) as KCRollnum,sum(A.KCQty) as kcQty FROM CK_BanCP_KC A');
// sql.Add('exec P_Get_HCKCList ');
sql.Add(' where C_CodeName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString)));
sql.Add(' and C_Color='+quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString)));
sql.Add(' and A.KCQty>0 and A.CPType not in(''һ<>ȴ<EFBFBD>Ʒ'',''<27><><EFBFBD>ȴ<EFBFBD>Ʒ'') and isnull(A.kcstatus,'''')='''' ');
open;
end;
end
else
begin
with ADOTemp do
begin
close;
sql.Clear;
SQL.Add('SELECT sum(A.KCRollnum) as KCRollnum,sum(A.KCQty) as kcQty FROM CK_BanCP_KC1 A');
// sql.Add('exec P_Get_HCKCList ');
sql.Add(' where C_CodeName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString)));
sql.Add(' and C_Color='+quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString)));
sql.Add(' and A.KCQty>0 and A.CPType not in(''һ<>ȴ<EFBFBD>Ʒ'',''<27><><EFBFBD>ȴ<EFBFBD>Ʒ'') and isnull(A.kcstatus,'''')='''' ');
open;
end;
end;
IF not ADOTemp.IsEmpty then
begin
Label22.Caption:='<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>'+trim(ADOTemp.fieldbyname('kcRollNum').AsString);
Label23.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+trim(ADOTemp.fieldbyname('kcQty').AsString);
end;
Label29.Caption:='';
Label30.Caption:='';
Label32.Caption:='';
with ADOTemp do
begin
close;
sql.Clear;
SQL.Add(' SELECT Top 3 Price,CRTime FROM YF_Money_CR A');
sql.Add(' where P_CodeName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString)));
sql.Add(' and P_Color='+quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString)));
sql.Add(' and factoryName='+quotedstr(trim(CustomerNoName.Text)));
sql.Add(' and syrName='''+fsyrName+''' ');
IF trim(orderType.Text)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
sql.Add(' and YFName=''<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'' ')
else
sql.Add(' and YFName=''<27><><EFBFBD>۽<EFBFBD><DBBD><EFBFBD>'' ');
sql.Add(' and price>0 ');
sql.Add(' order by FillTime desc');
open;
end;
i:=1;
IF not ADOTemp.IsEmpty then
begin
Label29.Caption:='<27><><EFBFBD>ۣ<EFBFBD>';
// Label29.Caption:='<27><><EFBFBD>ۣ<EFBFBD>'+trim(ADOTemp.fieldbyname('price').AsString);
while not ADOTemp.Eof do
begin
Label29.Caption:=Label29.Caption+formatdateTime('yyyy-MM-dd',ADOTemp.fieldbyname('CRTime').AsDateTime)+'<'+ADOTemp.fieldbyname('Price').AsString+'> ';
i:=i+1;
ADOTemp.Next;
end;
end;
end;
procedure TfrmOrderInPutXH.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('ָʾ<D6B8><CABE>¼<EFBFBD><C2BC>1',Tv1,'<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure TfrmOrderInPutXH.InitData();
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select * from JYOrder_Sub ');
if PState=1 then
begin
sql.Add('where MainId='''+Trim(FMainId)+'''');
end;
if PState=0 then
begin
sql.Add(' where 1<>1');
end;
Open;
end;
SCreateCDS20(ADOQuery1,Order_Sub);
SInitCDSData20(ADOQuery1,Order_Sub);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+'''');
Open;
end;
CustomerNoName.OnChange:=nil;
SCSHDataNew(ADOQuery1,ScrollBox1,2);
if PState=0 then
begin
OrdDate.DateTime:=SGetServerDate10(ADOTemp);
DlyDate.DateTime:=SGetServerDate10(ADOTemp);
// OrdPerson1.Text:=Trim(DName);
IF fCustomerNoName='<27>㶫<EFBFBD><E3B6AB><EFBFBD>в<EFBFBD>'then
begin
CustomerNoName.Text:=trim(fCustomerNoName);
orderType.ItemIndex:=0;
end;
end else
begin
end;
if CopyInt=99 then
begin
PState:=0;
FMainId:='';
// OrdPerson1.Text:=Trim(DName);
OrderNo.Text:='';
orddefnote1.Text:='';
with Order_Sub do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainId').Value:='';
FieldByName('SubId').Value:='';
Post;
Next;
end;
end;
end;
if PState=0 then
begin
OrderNo.Text:='<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
OrderNo.Enabled:=false;
end;
CustomerNoName.OnChange:=CustomerNoNameChange;
end;
procedure TfrmOrderInPutXH.ZDYHelp(FButn:TcxButtonEdit;LType:string);
var
FType,ZDYName,FText:String;
begin
end;
procedure TfrmOrderInPutXH.FormShow(Sender: TObject);
begin
readCxGrid('ָʾ<D6B8><CABE>¼<EFBFBD><C2BC>1',Tv1,'<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
SYRName.Items.Clear;
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from KH_ZDY where Type=''SYRNAME''');
open;
IF not IsEmpty then
begin
while not eof do
begin
SYRName.Items.Add(trim(fieldbyname('zdyname').AsString));
next;
end;
SYRName.ItemIndex:=0;
end;
end;
if PriceFlag=99 then
begin
v1PRTPrice.Visible:=False;
v1PRTPrice.Hidden:=True;
end;
if PState=1 then
begin
Label21.Visible:=true;
orddefnote1.Visible:=true;
end;
orderType.Items.Clear;
orderType.Items.Add(fOrderType);
IF fOrderType='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
GroupBox1.Visible:=true;
v1gangFee.Visible:=false;
v1yunFee.Visible:=false;
v1otherFee.Visible:=false;
end
else
begin
GroupBox1.Visible:=false;
v1gangFee.Visible:=true;
v1yunFee.Visible:=true;
v1otherFee.Visible:=true;
end;
orderType.ItemIndex:=0;
If trim(fsyrName)<>'' then
begin
SYRName.Items.Clear;
SYRName.Items.Add(fsyrName);
SYRName.ItemIndex:=0;
SYRName.Enabled:=false;
// orderType.Enabled:=false;
end;
InitData();
end;
function TfrmOrderInPutXH.SaveData():Boolean;
var
maxno:String;
i:integer;
begin
if Trim(FMainId)='' then
begin
if GetLSNo(ADOTemp,maxno,'JM','JYOrder_Main',3,1)=False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(FMainId);
end;
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId)='' then
begin
Append;
end
else begin
Edit;
end;
FieldByName('MainId').Value:=Trim(maxno);
SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2);
if Trim(FMainId)='' then
begin
FieldByName('Filler').Value:=Trim(DName);
end else
begin
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
end;
FieldByName('Note').Value:=Trim(Note.Text);
Post;
end;
FMainId:=Trim(maxno);
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+'''');
Open;
end;
if ADOCmd.RecordCount>1 then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('delete from JYOrder_Sub where MainId='''+Trim(FMainId)+'''');
execsql;
end;
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
with Order_Sub do
begin
DisableControls;
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
begin
if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+'''');
sql.Add(' and SubId='''+Trim(maxno)+'''');
Open;
end;
IF Fieldbyname('PRTRollNum').AsFloat=0 then
begin
i:=0;
IF fieldbyname('SordQty1').AsFloat<>0 then i:=i+1;
IF fieldbyname('SordQty2').AsFloat<>0 then i:=i+1;
IF fieldbyname('SordQty3').AsFloat<>0 then i:=i+1;
IF fieldbyname('SordQty4').AsFloat<>0 then i:=i+1;
IF fieldbyname('SordQty5').AsFloat<>0 then i:=i+1;
IF fieldbyname('SordQty6').AsFloat<>0 then i:=i+1;
IF fieldbyname('SordQty7').AsFloat<>0 then i:=i+1;
IF fieldbyname('SordQty8').AsFloat<>0 then i:=i+1;
IF fieldbyname('SordQty9').AsFloat<>0 then i:=i+1;
IF fieldbyname('SordQty10').AsFloat<>0 then i:=i+1;
edit;
fieldbyname('PRTRollNum').Value:=i;
post;
end;
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select * from KH_Zdy_Attachment A ');
sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString)));
sql.Add('and DEFstr3='+quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString)));
open;
end;
IF not ADOTemp.IsEmpty then
begin
edit;
fieldbyname('PRTPrice').Value:=fieldbyname('PRTPrice').AsFloat+ ADOTemp.fieldbyname('defflt1').AsFloat;
post;
end;
with ADOCmd do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
Append
else
Edit;
FieldByName('orderNo').Value:=Trim(orderNo.Text);
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('SubId').Value:=Trim(maxno);
RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0);
fieldbyname('PRTOrderQty').Value:=Order_Sub.fieldbyname('PRTOrderQty').AsFloat;
fieldbyname('PRTRollNum').Value:=Order_Sub.fieldbyname('PRTRollNum').AsFloat;
fieldbyname('gangNum').Value:=Order_Sub.fieldbyname('gangNum').AsFloat;
fieldbyname('SordQty1').Value:=Order_Sub.fieldbyname('SordQty1').AsFloat;
fieldbyname('SordQty2').Value:=Order_Sub.fieldbyname('SordQty2').AsFloat;
fieldbyname('SordQty3').Value:=Order_Sub.fieldbyname('SordQty3').AsFloat;
fieldbyname('SordQty4').Value:=Order_Sub.fieldbyname('SordQty4').AsFloat;
fieldbyname('SordQty5').Value:=Order_Sub.fieldbyname('SordQty5').AsFloat;
fieldbyname('SordQty6').Value:=Order_Sub.fieldbyname('SordQty6').AsFloat;
fieldbyname('SordQty7').Value:=Order_Sub.fieldbyname('SordQty7').AsFloat;
fieldbyname('SordQty8').Value:=Order_Sub.fieldbyname('SordQty8').AsFloat;
fieldbyname('SordQty9').Value:=Order_Sub.fieldbyname('SordQty9').AsFloat;
fieldbyname('SordQty10').Value:=Order_Sub.fieldbyname('SordQty10').AsFloat;
fieldbyname('GangFee').Value:=Order_Sub.fieldbyname('GangFee').AsFloat;
fieldbyname('YunFee').Value:=Order_Sub.fieldbyname('YunFee').AsFloat;
fieldbyname('OtherFee').Value:=Order_Sub.fieldbyname('OtherFee').AsFloat;
fieldbyname('PRTCode').Value:=Order_Sub.fieldbyname('PRTCode').AsString;
if Trim(fieldbyname('PRTPrice').AsString)='' then
begin
fieldbyname('PRTPrice').Value:=0
end;
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SubId').Value:=Trim(maxno);
//Order_Sub.Post;
Next;
end;
Order_Sub.EnableControls;
end;
ADOCmd.Connection.CommitTrans;
Result:=True;
except
Result:=False;
Order_Sub.EnableControls;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then
begin
end;
end;
end;
function TfrmOrderInPutXH.SaveDataMain():Boolean;
var
maxno:String;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId)='' then
begin
Append;
maxno:=Trim(FFMainId);
end
else begin
maxno:=Trim(FMainId);
Edit;
end;
FieldByName('MainId').Value:=Trim(maxno);
SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2);
if PState=1 then
begin
FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp);
end;
if Trim(FMainId)='' then
begin
FieldByName('Filler').Value:=Trim(DName);
end else
begin
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
end;
Post;
end;
FMainId:=Trim(maxno);
ADOCmd.Connection.CommitTrans;
Result:=True;
except
Result:=False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
function TfrmOrderInPutXH.SaveDataSubOne():Boolean;
var
maxno:String;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
with Order_Sub do
begin
//First;
//while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
begin
if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+'''');
sql.Add(' and SubId='''+Trim(maxno)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
Append
else
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('SubId').Value:=Trim(maxno);
RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0);
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SubId').Value:=Trim(maxno);
//Order_Sub.Post;
//Next;
end;
end;
ADOCmd.Connection.CommitTrans;
Result:=True;
except
Result:=False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
end;
end;
function TfrmOrderInPutXH.SaveDataSubMore():Boolean;
var
maxno:String;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
begin
if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+'''');
sql.Add(' and SubId='''+Trim(maxno)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
Append
else
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('SubId').Value:=Trim(maxno);
RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0);
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SubId').Value:=Trim(maxno);
//Order_Sub.Post;
Next;
end;
end;
ADOCmd.Connection.CommitTrans;
Result:=True;
except
Result:=False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
end;
end;
procedure TfrmOrderInPutXH.TBSaveClick(Sender: TObject);
var
forderNo:string;
begin
OrdDate.SetFocus;
{ if Trim(OrderNo.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end; }
if Trim(CustomerNoName.Text)='' then
begin
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Trim(orderType.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Order_Sub.Locate('PRTCodeName',null,[])=True then
begin
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if Order_Sub.Locate('PRTCodeName','',[])=True then
begin
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if Order_Sub.Locate('PRTColor',null,[])=True then
begin
Application.MessageBox('<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if Order_Sub.Locate('PRTColor','',[])=True then
begin
Application.MessageBox('<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if Order_Sub.Locate('PRTPrice',null,[])=True then
begin
Application.MessageBox('<27>۸<EFBFBD><DBB8><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
{ if Order_Sub.Locate('PRTPrice','',[])=True then
begin
Application.MessageBox('<27>۸<EFBFBD><DBB8><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end; }
{ with Order_Sub do
begin
DisableControls;
First;
while not eof do
begin
if (fieldbyname('PRTRollNum').AsFloat=0) and (fieldbyname('PRTOrderQty').AsFloat=0)then
begin
EnableControls;
application.MessageBox('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬʱδ<CAB1>㣡','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
exit;
end;
next;
end;
First;
EnableControls;
end;
}
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Zdy_Attachment where zdyName='''+Trim(CustomerNoName.Text)+'''');
Open;
end;
if ADOTemp.IsEmpty then
begin
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
Exit;
end;
if PState=1 then
begin
if trim(orddefnote1.Text)='' then
begin
Application.MessageBox('<27>޸ı<DEB8>ע<EFBFBD><D7A2>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
end;
if Order_Sub.IsEmpty then
begin
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if PState=1 then
begin
if Trim(OrderNo.Text)<>Trim(FOrderNo) then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where MainId='''+Trim(FMainId)+'''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
Application.MessageBox('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
end
else
begin
IF trim(fSYRName)='<27><><EFBFBD>˷<EFBFBD>֯' then
begin
if GetLSNo(ADOCmd,forderNo,'L','JYOrder_Main',3,1)=False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
end
else
begin
IF trim(orderType.Text)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
if GetLSNo(ADOCmd,forderNo,'J','JYOrder_Main',3,1)=False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
end
else
begin
if GetLSNo(ADOCmd,forderNo,'','JYOrder_Main',3,1)=False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
end;
end;
OrderNo.text:=trim(forderNo);
end;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
IF PState=0 then
begin
FMainId:='';
SClearData(ScrollBox1,2);
If trim(fsyrName)<>'' then
begin
SYRName.Items.Clear;
SYRName.Items.Add(fsyrName);
SYRName.ItemIndex:=0;
SYRName.Enabled:=false;
end;
orderType.ItemIndex:=0;
InitData();
Label29.Caption:='<27><><EFBFBD>ۣ<EFBFBD>';
Label22.Caption:='ƥ<><C6A5><EFBFBD><EFBFBD>';
Label23.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
Note.Text:='';
end
else
ModalResult:=1;
end;
end;
procedure TfrmOrderInPutXH.v1PRTColorPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application);
with frmZdyAttachCP do
begin
if ShowModal=1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString);
Self.Order_Sub.FieldByName('PRTCodeName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString);
Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString);
// Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
Self.Order_Sub.Post;
end;
end;
finally
frmZdyAttachCP.Free;
end;
self.tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPutXH.ToolButton1Click(Sender: TObject);
var
i:Integer;
begin
if Trim(OrderNo.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
i:=Order_Sub.RecordCount;
i:=i+1;
CopyAddRow(Tv1,Order_Sub);
with Order_Sub do
begin
Edit;
FieldByName('XHNO').Value:=IntToStr(i);
FieldByName('OrderUnit').Value:='<27><>';
{ if i<9 then
FieldByName('SOrddefstr1').Value:='0'+Trim(IntToStr(i))
else
FieldByName('SOrddefstr1').Value:=Trim(IntToStr(i));
FieldByName('PRTColor').Value:='';
FieldByName('PRTOrderQty').Value:=null;
//FieldByName('PRTPrice').Value:=null;
// FieldByName('SOrddefstr1').Value:=null;
FieldByName('SOrddefstr2').Value:=null; }
Post;
end;
end;
procedure TfrmOrderInPutXH.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then Exit;
{ with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
Application.MessageBox('<27>ѻزֲ<D8B2><D6B2><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end; }
if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then
begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where subID='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''' and CRType=''Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
Application.MessageBox('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
{ with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
ExecSQL;
end; }
end;
Order_Sub.Delete;
end;
procedure TfrmOrderInPutXH.JGFactoryNameBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='RKPlace';
flagname:='Ⱦ<><C8BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutXH.CustomerNoNameBtnUpClick(Sender: TObject);
begin
{ try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='KHName';
flagname:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
if Trim(DParameters1)<>'<27><>Ȩ<EFBFBD><C8A8>' then
MainType:=Trim(DName);
if ShowModal=1 then
begin
CustomerNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
CustomerNoName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end; }
CustomerNoName.OnChange:=nil;
try
frmZdyAttachment:=TfrmZdyAttachment.Create(Application);
with frmZdyAttachment do
begin
fkhType:='';
{ if trim(fCustomerNoName)='<27>㶫<EFBFBD><E3B6AB><EFBFBD>в<EFBFBD>' then
begin
fkhType:='<27>㶫<EFBFBD>ͻ<EFBFBD>';
end
else
begin
fkhType:=self.fsyrName;
end; }
if trim(SYRName.Text)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֯' then
begin
fkhType:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֯';
end
else if trim(SYRName.Text)='һ<>׷<EFBFBD>֯' then
begin
fkhType:='һ<>׷<EFBFBD>֯';
end
else if trim(SYRName.Text)='<27><><EFBFBD>·<EFBFBD>֯' then
begin
fkhType:='<27><><EFBFBD>·<EFBFBD>֯';
end
else
fkhType:=self.fsyrName;
if ShowModal=1 then
begin
CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString);
CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString);
FHAddress.Text:=Trim(CDS_HZ.fieldbyname('DEFNote2').AsString);
LXFS.Text:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString);
OrdPerson1.Text:=Trim(CDS_HZ.fieldbyname('DEFstr5').AsString);
end;
end;
finally
frmZdyAttachment.Free;
end;
CustomerNoName.OnChange:=CustomerNoNameChange;
end;
procedure TfrmOrderInPutXH.CustomerNoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text:='';
TBtnEditC(Sender).TxtCode:='';
end;
procedure TfrmOrderInPutXH.v1Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
type
TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer;
Language: integer; WinStyle:integer;
GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall;
var
Tf: TMyFunc;
Tp: TFarProc;
Th:Thandle;
LabInt,labname:String;
begin
//if PPInt=2 then Exit;
Ddatabase:=StringOfChar(' ', 32);
Th := LoadLibrary('LabelSet.dll');
if Th > 0 then
begin
try
Tp := GetProcAddress(Th, 'GetDllForm');
if Tp <> nil then
begin
Tf := TMyFunc(Tp);
newh:=Tf(Application,0,2,0,0,
PChar(DCode),
PChar(DName),
PChar(Ddatabase),
PChar('<27><>ǩģ<C7A9><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'),
PChar(''),
PChar(''),
'','','','','','','','',PChar(DConString)
);
if Trim(PChar(Ddatabase))<>'' then
begin
Ddatabase:=Trim(PChar(Ddatabase));
LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ;
labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) );
with Order_Sub do
begin
Edit;
FieldByName('SLbName').Value:=labname;
FieldByName('SLbInt').Value:=LabInt;
end;
end;
end
else
begin
ShowMessage('<27><>ӡִ<D3A1>д<EFBFBD><D0B4><EFBFBD>');
end;
finally
// FreeLibrary();
end;
end
else
begin
ShowMessage('<27>Ҳ<EFBFBD><D2B2><EFBFBD>'+Trim('LabelSet.dll'));
end;
end;
procedure TfrmOrderInPutXH.OrdDefStr3BtnUpClick(Sender: TObject);
begin
try
frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag:='maitou';
flagname:='<27><>ͷ';
if ShowModal=1 then
begin
OrdDefStr3.Text:=OrdDefStr3.Text+frmZDYHelpSel.ReturnStr;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPutXH.MPRTCodeNameBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='MPRTCodeName';
flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
MPRTCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
MPRTCodeName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutXH.NoteDblClick(Sender: TObject);
begin
try
frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag:='OrdNote';
flagname:='<27><>ע<EFBFBD><D7A2>Ҫ<EFBFBD><D2AA>';
if ShowModal=1 then
begin
Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPutXH.v1OrderUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='OrderUnit';
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
if ShowModal=1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutXH.v1PriceUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='PriceUnit';
flagname:='<27>۸<EFBFBD><DBB8><EFBFBD>λ';
if ShowModal=1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutXH.jKeyPress(Sender: TObject;
var Key: Char);
begin
if Key=#13 then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CP_YDang where CYNo like '''+'%'+Trim(OrdDefStr1.Text)+'%'+'''');
Open;
end;
if ADOTemp.RecordCount=1 then
begin
MPRTCodeName.Text:=Trim(ADOTemp.fieldbyname('CYName').AsString);
MPRTCF.Text:=Trim(ADOTemp.fieldbyname('CYECF').AsString);
MPRTSpec.Text:=Trim(ADOTemp.fieldbyname('CYSpec').AsString);
MPRTMF.Text:=Trim(ADOTemp.fieldbyname('CYMF').AsString);
MPRTKZ.Text:=Trim(ADOTemp.fieldbyname('CYKZ').AsString);
end else
if ADOTemp.RecordCount>1 then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CP_YDang where CYNo='''+Trim(OrdDefStr1.Text)+'''');
Open;
end;
if ADOTemp.RecordCount=1 then
begin
MPRTCodeName.Text:=Trim(ADOTemp.fieldbyname('CYName').AsString);
MPRTCF.Text:=Trim(ADOTemp.fieldbyname('CYECF').AsString);
MPRTSpec.Text:=Trim(ADOTemp.fieldbyname('CYSpec').AsString);
MPRTMF.Text:=Trim(ADOTemp.fieldbyname('CYMF').AsString);
MPRTKZ.Text:=Trim(ADOTemp.fieldbyname('CYKZ').AsString);
end;
end;
end;
end;
procedure TfrmOrderInPutXH.OrdDefStr2BtnUpClick(Sender: TObject);
var
fsj:string;
FWZ:Integer;
begin
fsj:=Trim(TEdit(Sender).Hint);
FWZ:=Pos('/',fsj);
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:=Copy(fsj,1,FWZ-1);
flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz);
if Trim(flag)='OrdDefStr2' then
begin
//flag:='OrdDefStr2';
V1Name.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption:='Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
fnote:=True;
end;
if ShowModal=1 then
begin
TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutXH.ConNoKeyPress(Sender: TObject; var Key: Char);
var
ConMainId:string;
begin
if Key=#13 then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrderCon_Main where ConNo like '''+'%'+Trim(ConNo.Text)+'%'+'''');
Open;
end;
if ADOTemp.RecordCount>1 then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1* from JYOrderCon_Main where ConNo='''+Trim(ConNo.Text)+'''');
Open;
end;
if ADOTemp.IsEmpty then Exit;
end else
if ADOTemp.RecordCount=1 then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrderCon_Main where ConNo like '''+'%'+Trim(ConNo.Text)+'%'+'''');
Open;
end;
end;
begin
ConNo.Text:=Trim(ADOTemp.fieldbyname('ConNo').AsString);
OrdDefStr1.Text:=Trim(ADOTemp.fieldbyname('ConDefStr1').AsString);
MPRTCF.Text:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString);
MPRTSpec.Text:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString);
MPRTMF.Text:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString);
MPRTKZ.Text:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString);
CustomerNoName.Text:=Trim(ADOTemp.fieldbyname('CustomerNoName').AsString);
CustomerNoName.TxtCode:=Trim(ADOTemp.fieldbyname('CustomerNo').AsString);
ConMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString);
// ConGS:=Trim(ADOTemp.fieldbyname('SYRName').AsString);
OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ConDefStr2').AsString);
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,ColorName=(select ZdyName from KH_Zdy B where B.Note=A.PRTColor and B.Type=''OrdColor'' ) ');
SQL.Add(' from JYOrderCon_Sub A where MainId='''+Trim(ConMainId)+'''');
Open;
end;
with ADOTemp do
begin
First;
while not Eof do
begin
with Order_Sub do
begin
Append;
FieldByName('PRTColor').Value:=Trim(ADOTemp.fieldbyname('PRTColor').AsString);
FieldByName('SOrdDefStr4').Value:=Trim(ADOTemp.fieldbyname('SOrdDefStr4').AsString);
FieldByName('SOrdDefStr3').Value:=Trim(ADOTemp.fieldbyname('SOrdDefStr3').AsString);
FieldByName('PRTOrderQty').Value:=Trim(ADOTemp.fieldbyname('PRTOrderQty').AsString);
FieldByName('OrderUnit').Value:=Trim(ADOTemp.fieldbyname('OrderUnit').AsString);
FieldByName('PRTPrice').Value:=Trim(ADOTemp.fieldbyname('PRTPrice').AsString);
FieldByName('PriceUnit').Value:=Trim(ADOTemp.fieldbyname('PriceUnit').AsString);
FieldByName('PRTHX').Value:=Trim(ADOTemp.fieldbyname('PRTHX').AsString);
FieldByName('XHNO').Value:=Trim(ADOTemp.fieldbyname('XHNO').AsString);
Post;
end;
Next;
end;
end;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1* from CP_YDang where CYNO='''+Trim(OrdDefStr1.Text)+'''');
Open;
end;
MPRTCodeName.Text:=Trim(ADOTemp.fieldbyname('CYName').AsString);
{with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1* from KH_Zdy where Note='''+Trim(ConGS)+''' and type=''OrdDefStr2'' ');
Open;
end;
OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ZdyName').AsString); }
end;
end;
end;
procedure TfrmOrderInPutXH.ToolButton3Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then Exit;
OneKeyPost(Tv1,Order_Sub);
end;
procedure TfrmOrderInPutXH.v1Column6PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='MPRTMF';
flagname:='<27>ŷ<EFBFBD>';
V1Name.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption:='Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
// MainType:=Trim(DName);
fnote:=FALSE;
if ShowModal=1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PRTMF').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
Self.Order_Sub.Post;
end;
end;
finally
frmZDYHelp.Free;
end;
self.tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPutXH.v1Column8PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='MPRTKZ';
flagname:='<27><><EFBFBD><EFBFBD>';
V1Name.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption:='Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
// MainType:=Trim(DName);
fnote:=FALSE;
if ShowModal=1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PRTKZ').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
Self.Order_Sub.Post;
end;
end;
finally
frmZDYHelp.Free;
end;
self.tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPutXH.v1Column5PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application);
with frmZdyAttachCP do
begin
if ShowModal=1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString);
Self.Order_Sub.FieldByName('PRTCodeName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString);
Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString);
// Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
Self.Order_Sub.Post;
end;
end;
finally
frmZdyAttachCP.Free;
end;
with ADOQueryCP do
begin
close;
sql.Clear;
sql.Add('select ATID,defstr3 from KH_Zdy_Attachment A ');
sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString)));
open;
end;
{ try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='CP';
flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
V1Name.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption:='Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
// MainType:=Trim(DName);
fnote:=FALSE;
if ShowModal=1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
Self.Order_Sub.FieldByName('PRTCodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'#';
// Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
Self.Order_Sub.Post;
end;
end;
finally
frmZDYHelp.Free;
end; }
self.tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPutXH.v1Column7PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='MPRTSpec';
flagname:='<27><><EFBFBD><EFBFBD>';
V1Name.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption:='Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
// MainType:=Trim(DName);
fnote:=FALSE;
if ShowModal=1 then
begin
Self.Order_Sub.Edit;
// Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYCode').AsString);
Self.Order_Sub.FieldByName('PRTSpec').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
Self.Order_Sub.Post;
end;
end;
finally
frmZDYHelp.Free;
end;
self.tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPutXH.FHAddressBtnUpClick(Sender: TObject);
begin
if Trim(CustomerNoName.Text)='' then
begin
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
try
frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag:='FHAddress';
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ';
MainType:=Trim(CustomerNoName.Text);
if ShowModal=1 then
begin
FHAddress.Text:=Trim(ReturnStr);
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPutXH.LXFSBtnUpClick(Sender: TObject);
begin
if Trim(CustomerNoName.Text)='' then
begin
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
try
frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag:='LXFS';
flagname:='<27><>ϵ<EFBFBD><CFB5>ʽ';
MainType:=Trim(CustomerNoName.Text);
if ShowModal=1 then
begin
LXFS.Text:=Trim(ReturnStr);
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPutXH.v1Column5PropertiesEditValueChanged(
Sender: TObject);
var
mvalue:string;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
IF trim(mvalue)='' then exit;
IF rightBstr(trim(mvalue),1)<>'#'THEN
BEGIn
mvalue:=trim(mvalue)+'#';
END;
with Order_Sub do
begin
Edit;
FieldByName('PRTCodeName').Value:=Trim(mvalue);
Post;
end;
self.tv1.Controller.EditingController.ShowEdit();
DoKc();
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select * from KH_Zdy_Attachment A ');
sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString)));
open;
end;
IF ADOTemp.IsEmpty then
begin
application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
with Order_Sub do
begin
Edit;
FieldByName('PRTCodeName').Value:='';
Post;
end;
exit;
end;
(v1PRTColor.Properties as TcxComboBoxProperties).Items.Clear;
while not ADOTemp.Eof do
begin
(v1PRTColor.Properties as TcxComboBoxProperties).Items.Add(ADOTemp.fieldbyname('defstr3').AsString);
ADOTemp.Next;
end;
with ADOQueryCP do
begin
close;
sql.Clear;
sql.Add('select ATID,defstr3 from KH_Zdy_Attachment A ');
sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString)));
open;
end;
end;
procedure TfrmOrderInPutXH.v1PRTColorPropertiesEditValueChanged(
Sender: TObject);
var
mvalue:string;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
IF trim(mvalue)='' then exit;
IF rightBstr(trim(mvalue),1)<>'#'THEN
BEGIn
mvalue:=trim(mvalue)+'#';
END;
with Order_Sub do
begin
Edit;
FieldByName('PRTColor').Value:=Trim(mvalue);
Post;
end;
self.tv1.Controller.EditingController.ShowEdit();
DoKc();
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select * from KH_Zdy_Attachment A ');
sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString)));
sql.Add('and DEFstr3='+quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString)));
open;
end;
IF ADOTemp.IsEmpty then
begin
application.MessageBox('<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
with Order_Sub do
begin
Edit;
FieldByName('PRTColor').Value:='';
Post;
end;
end;
with Order_Sub do
begin
Edit;
FieldByName('PRTCode').Value:=trim(ADOTemp.fieldbyname('ZDYCode').AsString);
Post;
end;
self.tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPutXH.Tv1FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
begin
DoKc();
end;
procedure TfrmOrderInPutXH.OrdPerson1BtnClick(Sender: TObject);
begin
frmUserHelp:=TfrmUserHelp.create(self);
with frmUserHelp do
begin
if showmodal=1 then
begin
OrdPerson1.Text:=trim(ADOQueryHelp.fieldbyname('UserName').AsString);
end;
free;
end;
end;
procedure TfrmOrderInPutXH.Button1Click(Sender: TObject);
var
i:Integer;
begin
IF trim(edit1.Text)='' then exit;
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from KH_Zdy_Attachment A ');
sql.Add('where zdyName='+quotedstr(trim(edit1.Text)));
open;
IF IsEmpty then
begin
application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
exit;
end;
Order_Sub.DisableControls;
while not eof do
begin
Self.Order_Sub.Append;
Self.Order_Sub.FieldByName('XHNO').Value:=Self.Order_Sub.RecordCount+1;
Self.Order_Sub.FieldByName('OrderUnit').Value:='<27><>';
Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(fieldbyname('ZdyCode').AsString);
Self.Order_Sub.FieldByName('PRTCodeName').Value:=Trim(fieldbyname('ZDYName').AsString);
Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(fieldbyname('DEFstr3').AsString);
Self.Order_Sub.FieldByName('PRTOrderQty').Value:=strtofloatdef(trim(edit2.Text),0);
Self.Order_Sub.FieldByName('PRTPrice').Value:=strtofloatdef(trim(edit3.Text),0);
Self.Order_Sub.post;
next;
end;
Order_Sub.First;
Order_Sub.EnableControls;
end;
self.tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPutXH.OrdDateChange(Sender: TObject);
begin
IF formatdateTime('yyyy-MM-dd',OrdDate.Date)>formatdateTime('yyyy-MM-dd',date()) then
begin
application.MessageBox('<27><><EFBFBD>ڲ<EFBFBD><DAB2>ܴ<EFBFBD><DCB4>ڽ<EFBFBD><DABD>죡','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
OrdDate.Date:=strtodate(formatdateTime('yyyy-MM-dd',date()));
exit;
end;
end;
procedure TfrmOrderInPutXH.CustomerNoNameChange(Sender: TObject);
var
mvalue:string;
begin
mvalue:=Trim(CustomerNoName.Text);
if Length(Trim(mvalue))>1 then
begin
//mvalue:='%'+Trim(mvalue)+'%';
with ADO_KH do
begin
Close;
sql.Clear;
sql.Add(' select * from KH_Zdy_Attachment ');
sql.Add(' where (ZDYName like '+quotedstr('%'+trim(mvalue)+'%'));
sql.Add(' or dbo.getpinYin(zdyName) like '+quotedstr('%'+trim(mvalue)+'%'));
sql.Add(' ) and isnull(khType,'''')='+quotedstr(trim(fsyrName)));
sql.Add(' and Type=''KHName'' ');
Open;
end;
if ADO_KH.IsEmpty then cxGrid4.Visible:=False else cxGrid4.Visible:=True;
end;
end;
procedure TfrmOrderInPutXH.TV4CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
CustomerNoName.OnChange:=nil;
CustomerNoName.Text:=Trim(ADO_KH.fieldbyname('ZDYName').AsString);
CustomerNoName.TxtCode:=Trim(ADO_KH.fieldbyname('ZdyCode').AsString);
FHAddress.Text:=Trim(ADO_KH.fieldbyname('DEFNote2').AsString);
LXFS.Text:=Trim(ADO_KH.fieldbyname('DEFstr2').AsString);
OrdPerson1.Text:=Trim(ADO_KH.fieldbyname('DEFstr5').AsString);
cxGrid4.Visible:=False;
CustomerNoName.OnChange:=CustomerNoNameChange;
end;
procedure TfrmOrderInPutXH.TV4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF Key=VK_RETURN then
begin
CustomerNoName.OnChange:=nil;
CustomerNoName.Text:=Trim(ADO_KH.fieldbyname('ZDYName').AsString);
CustomerNoName.TxtCode:=Trim(ADO_KH.fieldbyname('ZdyCode').AsString);
FHAddress.Text:=Trim(ADO_KH.fieldbyname('DEFNote2').AsString);
LXFS.Text:=Trim(ADO_KH.fieldbyname('DEFstr2').AsString);
OrdPerson1.Text:=Trim(ADO_KH.fieldbyname('DEFstr5').AsString);
cxGrid4.Visible:=False;
CustomerNoName.OnChange:=CustomerNoNameChange;
end;
end;
procedure TfrmOrderInPutXH.CustomerNoNameKeyPress(Sender: TObject;
var Key: Char);
begin
CustomerNoName.OnChange:=CustomerNoNameChange;
IF Key=#13 then
begin
CustomerNoName.OnChange:=nil;
IF (cxGrid4.Visible=true) and (not ADO_KH.IsEmpty) then
begin
CustomerNoName.OnChange:=nil;
CustomerNoName.Text:=Trim(ADO_KH.fieldbyname('ZDYName').AsString);
CustomerNoName.TxtCode:=Trim(ADO_KH.fieldbyname('ZdyCode').AsString);
FHAddress.Text:=Trim(ADO_KH.fieldbyname('DEFNote2').AsString);
LXFS.Text:=Trim(ADO_KH.fieldbyname('DEFstr2').AsString);
OrdPerson1.Text:=Trim(ADO_KH.fieldbyname('DEFstr5').AsString);
cxGrid4.Visible:=False;
end;
end;
//CustomerNoName.OnChange:=CustomerNoNameChange;
// cxGrid4.Visible:=False;
end;
procedure TfrmOrderInPutXH.Tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
{ IF trim(Order_Sub.fieldbyname('PRTCodeName').AsString)<>'' then
begin
with ADOQueryCP do
begin
close;
sql.Clear;
sql.Add('select ATID,defstr3 from KH_Zdy_Attachment A ');
sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString)));
open;
end;
end;}
end;
end.
Reference in New Issue Copy Permalink