Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

修改一码通

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-26 15:34:50 +08:00
parent 6551f2488b
commit eb75179c2c
10 changed files with 82 additions and 178 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
云翔一码通/U_KuWeiList.dfm
View File

@ -1,6 +1,6 @@
object frmKuWeiList: TfrmKuWeiList
Left = 954
Top = 178
Left = 756
Top = 669
Width = 1215
Height = 637
Caption = #24211#20301#31649#29702

78
云翔一码通/U_KuWeiList.pas
View File

@ -80,7 +80,6 @@ type
procedure N1Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ZJStatusChange(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure TbSelectClick(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private
@ -88,7 +87,6 @@ type
DQdate:TDateTime;
procedure InitGrid();
procedure InitForm();
procedure PrtData(KWID:String);
{ Private declarations }
public
FFInt,FCloth:Integer;
@ -212,82 +210,6 @@ begin
TBFind.Click;
end;
procedure TfrmKuWeiList.ToolButton4Click(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
if Trim(ComboBox1.Text)='' then
begin
Application.MessageBox('方向不能为空！','提示',0);
Exit;
end;
if Order_Main.Locate('SSel',True,[])=False then
begin
Application.MessageBox('没有选择数据!','提示',0);
Exit;
end;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while Locate('SSel',True,[]) do
begin
PrtData(Trim(Order_Main.fieldbyname('KWID').AsString));
Edit;
FieldByName('SSel').Value:=False;
end;
end;
Order_Main.EnableControls;
end;
procedure TfrmKuWeiList.PrtData(KWID:String);
var
fPrintFile,Txt,fImagePath:string;
i,j:Integer;
Moudle: THandle;
Makebar:TMakebar;
Mixtext:TMixtext;
begin
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\库位标签.rmf';
if FileExists(fPrintFile)=False then
begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\库位标签.rmf'),'提示',0);
exit;
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from KuWei where KWID='''+Trim(KWID)+'''');
Open;
end;
SCreateCDS20(ADOQueryTemp,CDS_PRT);
SInitCDSData20(ADOQueryTemp,CDS_PRT);
try
Moudle:=LoadLibrary('MakeQRBarcode.dll');
@Makebar:=GetProcAddress(Moudle,'Make');
@Mixtext:=GetProcAddress(Moudle,'MixText');
Txt:=Trim(KWID);
fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil);
if FileExists(fImagePath) then DeleteFile(fImagePath);
Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3);
except
application.MessageBox('二维码生成失败！','提示信息',MB_ICONERROR);
exit;
end;
RMVariables['QRBARCODE']:=fImagePath;
if Trim(ComboBox1.Text)='→' then
begin
RMVariables['FangXiang']:='→→→→';
end else
if Trim(ComboBox1.Text)='←' then
begin
RMVariables['FangXiang']:='←←←←';
end;
RM1.LoadFromFile(fPrintFile);
//RM1.ShowReport;
RM1.PrintReport;
end;
procedure TfrmKuWeiList.TbSelectClick(Sender: TObject);
begin

10
云翔一码通/U_YMTJGWCList.dfm
View File

@ -1,6 +1,6 @@
object frmYMTJGWCList: TfrmYMTJGWCList
Left = 433
Top = 674
Left = 470
Top = 318
Width = 1370
Height = 750
Caption = #21152#24037#23436#25104#22238#20179#25968#25454
@ -346,6 +346,12 @@ object frmYMTJGWCList: TfrmYMTJGWCList
Options.Editing = False
Width = 69
end
object Tv1ColorNo: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'ColorNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object TV1SPHX: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'SPHX'

13
云翔一码通/U_YMTJGWCList.pas
View File

@ -87,6 +87,7 @@ type
btn1: TButton;
KuWei: TcxButtonEdit;
Tv1KuWei: TcxGridDBColumn;
Tv1ColorNo: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -125,7 +126,7 @@ implementation
uses
U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun,
U_ZDYHelp;
U_ZDYHelp, U_KuWeiList;
{$R *.dfm}
@ -369,22 +370,20 @@ end;
procedure TfrmYMTJGWCList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
frmKuWeiList := TfrmKuWeiList.Create(Application);
with frmKuWeiList do
begin
flag := 'KuWei';
flagname := '¿âλ';
if ShowModal = 1 then
begin
with Self.CDS_Main do
begin
Edit;
KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
FieldByName('KuWei').Value := Trim(frmKuWeiList.Order_Main.fieldbyname('KWName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
frmKuWeiList.Free;
end;
end;

28
云翔一码通/U_YMTRKInPut.dfm
View File

@ -1,6 +1,6 @@
object frmYMTRKInPut: TfrmYMTRKInPut
Left = 599
Top = 321
Left = 319
Top = 435
Width = 1829
Height = 623
Align = alClient
@ -76,7 +76,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut
HeaderAlignmentHorz = taCenter
Width = 100
end
object v1Column4: TcxGridDBColumn
object Tv1CRType: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'CRType'
@ -93,6 +93,20 @@ object frmYMTRKInPut: TfrmYMTRKInPut
HeaderAlignmentHorz = taCenter
Width = 83
end
object Tv1SPType: TcxGridDBColumn
Tag = 2
Caption = #24067#21305#31867#22411
DataBinding.FieldName = 'SPType'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
''
#38754#24067
#24213#24067
#26825)
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column21: TcxGridDBColumn
Tag = 2
Caption = #23458#25143
@ -113,6 +127,12 @@ object frmYMTRKInPut: TfrmYMTRKInPut
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1ColorNo: TcxGridDBColumn
Tag = 2
Caption = #33394#21495
DataBinding.FieldName = 'ColorNo'
HeaderAlignmentHorz = taCenter
end
object v1Column17: TcxGridDBColumn
Tag = 2
Caption = #33457#22411
@ -120,7 +140,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column14: TcxGridDBColumn
object Tv1FactoryName: TcxGridDBColumn
Tag = 2
Caption = #21152#24037#21378
DataBinding.FieldName = 'FactoryName'

47
云翔一码通/U_YMTRKInPut.pas
View File

@ -38,7 +38,7 @@ type
TBDel: TToolButton;
TBSave: TToolButton;
TBClose: TToolButton;
v1Column4: TcxGridDBColumn;
Tv1CRType: TcxGridDBColumn;
DataSource3: TDataSource;
CDS_Sub: TClientDataSet;
ADOQueryCmd: TADOQuery;
@ -46,7 +46,7 @@ type
ADOQueryTemp: TADOQuery;
cxGridPopupMenu2: TcxGridPopupMenu;
v1Column12: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
Tv1FactoryName: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
@ -86,6 +86,8 @@ type
TvMXMXID: TcxGridDBColumn;
TvMXMXQty: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Tv1ColorNo: TcxGridDBColumn;
Tv1SPType: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -95,7 +97,6 @@ type
procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -127,7 +128,7 @@ var
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_ZdyAttachGYS;
U_DataLink, U_RTFun, U_ZDYHelp, U_ZdyAttachGYS, U_KuWeiList;
{$R *.dfm}
procedure TfrmYMTRKInPut.InitMXGrid(SPID: string);
@ -200,6 +201,7 @@ begin
Exit;
InitMXGrid(CDS_Sub.fieldbyname('SPID').AsString);
with ADOQueryTemp do
begin
Close;
@ -208,10 +210,11 @@ begin
sql.Add(' and CRQtyFlag=-1');
Open;
end;
if not ADOQueryTemp.IsEmpty then
begin
v1Column4.Options.Focusing := False;
v1Column14.Options.Focusing := False;
Tv1CRType.Options.Focusing := False;
Tv1FactoryName.Options.Focusing := False;
v2Column1.Options.Focusing := False;
v1Column8.Options.Focusing := False;
v1Column7.Options.Focusing := False;
@ -222,8 +225,8 @@ begin
end
else
begin
v1Column4.Options.Focusing := True;
v1Column14.Options.Focusing := True;
Tv1CRType.Options.Focusing := True;
Tv1FactoryName.Options.Focusing := True;
v2Column1.Options.Focusing := True;
v1Column8.Options.Focusing := True;
v1Column7.Options.Focusing := True;
@ -318,7 +321,6 @@ begin
end;
FieldByName('SPID').Value := Trim(Maxno);
FieldByName('FZSPID').Value := Trim(Maxno);
FieldByName('CKName').Value := '´ý¼ì²¼';
FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
@ -570,13 +572,14 @@ begin
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'WJGName';
flagname := 'Íâ¼Ó¹¤Ãû³Æ';
flag := 'SPName';
flagname := 'Æ·Ãû';
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('SPCode').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyCode').AsString);
FieldByName('SPName').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
@ -586,28 +589,6 @@ begin
end;
end;
procedure TfrmYMTRKInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'KuWei';
flagname := '¿âλ';
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmYMTRKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try

12
云翔一码通/U_YMTRKList.dfm
View File

@ -414,7 +414,7 @@ object frmYMTRKList: TfrmYMTRKList
HeaderAlignmentHorz = taCenter
Width = 40
end
object v1Column6: TcxGridDBColumn
object TV1SPID: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'SPID'
HeaderAlignmentHorz = taCenter
@ -526,8 +526,14 @@ object frmYMTRKList: TfrmYMTRKList
Options.Editing = False
Width = 69
end
object v1Column17: TcxGridDBColumn
Caption = #33457#22411#33457#21495
object Tv1ColorNo: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'ColorNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1SPHX: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'SPHX'
HeaderAlignmentHorz = taCenter
Options.Editing = False

17
云翔一码通/U_YMTRKList.pas
View File

@ -71,12 +71,12 @@ type
OrderNo: TEdit;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn;
TV1SPID: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
Tv1SPHX: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
@ -130,6 +130,7 @@ type
btnChk: TButton;
btn1: TButton;
KuWei: TcxButtonEdit;
Tv1ColorNo: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -175,7 +176,7 @@ implementation
uses
U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun,
U_ZDYHelp;
U_ZDYHelp, U_KuWeiList;
{$R *.dfm}
procedure TfrmYMTRKList.InitMXGrid(SPID: string);
@ -614,22 +615,20 @@ end;
procedure TfrmYMTRKList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
frmKuWeiList := TfrmKuWeiList.Create(Application);
with frmKuWeiList do
begin
flag := 'KuWei';
flagname := '¿âλ';
if ShowModal = 1 then
begin
with Self.CDS_Main do
begin
Edit;
KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
FieldByName('KuWei').Value := Trim(frmKuWeiList.Order_Main.fieldbyname('KWName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
frmKuWeiList.Free;
end;
end;

41
云翔一码通/U_ZdyAttachGYS.dfm
View File

@ -1,6 +1,6 @@
object frmZdyAttachGYS: TfrmZdyAttachGYS
Left = 189
Top = 129
Left = 703
Top = 516
Width = 1038
Height = 618
Caption = #20379#24212#21830#36164#26009#31649#29702
@ -81,52 +81,25 @@ object frmZdyAttachGYS: TfrmZdyAttachGYS
Height = 12
Caption = #20379#24212#21830#32534#21495
end
object Label2: TLabel
Left = 395
Top = 13
Width = 24
Height = 12
Caption = #31867#22411
Visible = False
end
object CoName: TEdit
object ZdyName: TEdit
Tag = 2
Left = 267
Top = 9
Width = 90
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 2
OnChange = CoNameChange
TabOrder = 1
OnChange = ZdyNameChange
end
object CoCode: TEdit
object ZdyCode: TEdit
Tag = 2
Left = 83
Top = 9
Width = 90
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
OnChange = CoNameChange
end
object FactType: TComboBox
Tag = 2
Left = 424
Top = 8
Width = 90
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
TabOrder = 0
Visible = False
OnChange = CoNameChange
Items.Strings = (
''
#21152#24037#21378
#22383#24067#21378
#29289#27969#20844#21496
#32433#32447#21378)
OnChange = ZdyNameChange
end
end
object cxGrid2: TcxGrid

10
云翔一码通/U_ZdyAttachGYS.pas
View File

@ -42,14 +42,12 @@ type
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
CoName: TEdit;
ZdyName: TEdit;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
Label1: TLabel;
CoCode: TEdit;
Label2: TLabel;
FactType: TComboBox;
ZdyCode: TEdit;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
v2Column2: TcxGridDBColumn;
@ -63,7 +61,7 @@ type
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure CoNameChange(Sender: TObject);
procedure ZdyNameChange(Sender: TObject);
procedure Tv2DblClick(Sender: TObject);
private
{ Private declarations }
@ -140,7 +138,7 @@ begin
end;
end;
procedure TfrmZdyAttachGYS.CoNameChange(Sender: TObject);
procedure TfrmZdyAttachGYS.ZdyNameChange(Sender: TObject);
begin
ToolButton2.Click;
end;