1
This commit is contained in:
DESKTOP-E401PHE\Administrator
commit
b986600498
16
.gitignore
vendored
Normal file
16
.gitignore
vendored
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
**/layout
|
||||
**/report
|
||||
**/实施文件
|
||||
**/image
|
||||
**/doc
|
||||
**/wav
|
||||
**/__history
|
||||
**/__recovery
|
||||
*.dll
|
||||
*.exe
|
||||
*.ddp
|
||||
*.dcu
|
||||
*.~pas
|
||||
*.~dfm
|
||||
*.~ddp
|
||||
*.~dpr
|
||||
317
检验主程序/AES.pas
Normal file
317
检验主程序/AES.pas
Normal file
|
|
@ -0,0 +1,317 @@
|
|||
(**************************************************)
|
||||
|
||||
unit AES;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, Math, ElAES;
|
||||
|
||||
type
|
||||
TKeyBit = (kb128, kb192, kb256);
|
||||
|
||||
function StrToHex(Value: string): string;
|
||||
function HexToStr(Value: string): string;
|
||||
function EncryptString(Value: string; Key: string;
|
||||
KeyBit: TKeyBit = kb128): string;
|
||||
function DecryptString(Value: string; Key: string;
|
||||
KeyBit: TKeyBit = kb128): string;
|
||||
function EncryptStream(Stream: TStream; Key: string;
|
||||
KeyBit: TKeyBit = kb128): TStream;
|
||||
function DecryptStream(Stream: TStream; Key: string;
|
||||
KeyBit: TKeyBit = kb128): TStream;
|
||||
procedure EncryptFile(SourceFile, DestFile: string;
|
||||
Key: string; KeyBit: TKeyBit = kb128);
|
||||
procedure DecryptFile(SourceFile, DestFile: string;
|
||||
Key: string; KeyBit: TKeyBit = kb128);
|
||||
|
||||
implementation
|
||||
|
||||
function StrToHex(Value: string): string;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
Result := '';
|
||||
for I := 1 to Length(Value) do
|
||||
Result := Result + IntToHex(Ord(Value[I]), 2);
|
||||
end;
|
||||
|
||||
function HexToStr(Value: string): string;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
Result := '';
|
||||
for I := 1 to Length(Value) do
|
||||
begin
|
||||
if ((I mod 2) = 1) then
|
||||
Result := Result + Chr(StrToInt('0x'+ Copy(Value, I, 2)));
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 字符串加密函数 默认按照 128 位密匙加密 -- }
|
||||
function EncryptString(Value: string; Key: string;
|
||||
KeyBit: TKeyBit = kb128): string;
|
||||
var
|
||||
SS, DS: TStringStream;
|
||||
Size: Int64;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
Result := '';
|
||||
SS := TStringStream.Create(Value);
|
||||
DS := TStringStream.Create('');
|
||||
try
|
||||
Size := SS.Size;
|
||||
DS.WriteBuffer(Size, SizeOf(Size));
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
EncryptAESStreamECB(SS, 0, AESKey128, DS);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
EncryptAESStreamECB(SS, 0, AESKey192, DS);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
EncryptAESStreamECB(SS, 0, AESKey256, DS);
|
||||
end;
|
||||
Result := StrToHex(DS.DataString);
|
||||
finally
|
||||
SS.Free;
|
||||
DS.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 字符串解密函数 默认按照 128 位密匙解密 -- }
|
||||
function DecryptString(Value: string; Key: string;
|
||||
KeyBit: TKeyBit = kb128): string;
|
||||
var
|
||||
SS, DS: TStringStream;
|
||||
Size: Int64;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
Result := '';
|
||||
SS := TStringStream.Create(HexToStr(Value));
|
||||
DS := TStringStream.Create('');
|
||||
try
|
||||
Size := SS.Size;
|
||||
SS.ReadBuffer(Size, SizeOf(Size));
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey128, DS);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey192, DS);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey256, DS);
|
||||
end;
|
||||
Result := DS.DataString;
|
||||
finally
|
||||
SS.Free;
|
||||
DS.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 流加密函数 默认按照 128 位密匙解密 -- }
|
||||
function EncryptStream(Stream: TStream; Key: string;
|
||||
KeyBit: TKeyBit = kb128): TStream;
|
||||
var
|
||||
Count: Int64;
|
||||
OutStrm: TStream;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
OutStrm := TStream.Create;
|
||||
Stream.Position := 0;
|
||||
Count := Stream.Size;
|
||||
OutStrm.Write(Count, SizeOf(Count));
|
||||
try
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
EncryptAESStreamECB(Stream, 0, AESKey128, OutStrm);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
EncryptAESStreamECB(Stream, 0, AESKey192, OutStrm);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
EncryptAESStreamECB(Stream, 0, AESKey256, OutStrm);
|
||||
end;
|
||||
Result := OutStrm;
|
||||
finally
|
||||
OutStrm.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 流解密函数 默认按照 128 位密匙解密 -- }
|
||||
function DecryptStream(Stream: TStream; Key: string;
|
||||
KeyBit: TKeyBit = kb128): TStream;
|
||||
var
|
||||
Count, OutPos: Int64;
|
||||
OutStrm: TStream;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
OutStrm := TStream.Create;
|
||||
Stream.Position := 0;
|
||||
OutPos :=OutStrm.Position;
|
||||
Stream.ReadBuffer(Count, SizeOf(Count));
|
||||
try
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,
|
||||
AESKey128, OutStrm);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,
|
||||
AESKey192, OutStrm);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,
|
||||
AESKey256, OutStrm);
|
||||
end;
|
||||
OutStrm.Size := OutPos + Count;
|
||||
OutStrm.Position := OutPos;
|
||||
Result := OutStrm;
|
||||
finally
|
||||
OutStrm.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 文件加密函数 默认按照 128 位密匙解密 -- }
|
||||
procedure EncryptFile(SourceFile, DestFile: string;
|
||||
Key: string; KeyBit: TKeyBit = kb128);
|
||||
var
|
||||
SFS, DFS: TFileStream;
|
||||
Size: Int64;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
SFS := TFileStream.Create(SourceFile, fmOpenRead);
|
||||
try
|
||||
DFS := TFileStream.Create(DestFile, fmCreate);
|
||||
try
|
||||
Size := SFS.Size;
|
||||
DFS.WriteBuffer(Size, SizeOf(Size));
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
EncryptAESStreamECB(SFS, 0, AESKey128, DFS);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
EncryptAESStreamECB(SFS, 0, AESKey192, DFS);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
EncryptAESStreamECB(SFS, 0, AESKey256, DFS);
|
||||
end;
|
||||
finally
|
||||
DFS.Free;
|
||||
end;
|
||||
finally
|
||||
SFS.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 文件解密函数 默认按照 128 位密匙解密 -- }
|
||||
procedure DecryptFile(SourceFile, DestFile: string;
|
||||
Key: string; KeyBit: TKeyBit = kb128);
|
||||
var
|
||||
SFS, DFS: TFileStream;
|
||||
Size: Int64;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
SFS := TFileStream.Create(SourceFile, fmOpenRead);
|
||||
try
|
||||
SFS.ReadBuffer(Size, SizeOf(Size));
|
||||
DFS := TFileStream.Create(DestFile, fmCreate);
|
||||
try
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey128, DFS);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey192, DFS);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey256, DFS);
|
||||
end;
|
||||
DFS.Size := Size;
|
||||
finally
|
||||
DFS.Free;
|
||||
end;
|
||||
finally
|
||||
SFS.Free;
|
||||
end;
|
||||
end;
|
||||
end.
|
||||
2488
检验主程序/ElAES.pas
Normal file
2488
检验主程序/ElAES.pas
Normal file
File diff suppressed because it is too large
Load Diff
4
检验主程序/File.INI
Normal file
4
检验主程序/File.INI
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
[生产车间配置]
|
||||
母卷条码机台标志=1
|
||||
小卷条码机台标志=6
|
||||
大小卷标志=小
|
||||
2
检验主程序/FileUpdate.INI
Normal file
2
检验主程序/FileUpdate.INI
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
[系统设置]
|
||||
自动更新文件服务器=
|
||||
7
检验主程序/JCYData.INI
Normal file
7
检验主程序/JCYData.INI
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
[系统配置]
|
||||
串口号=com1
|
||||
波特率=4800
|
||||
校验位=0
|
||||
数据位=8
|
||||
停止位=0
|
||||
频率=100
|
||||
4
检验主程序/SYSTEMSET.ini
Normal file
4
检验主程序/SYSTEMSET.ini
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
[SERVER]
|
||||
服务器地址=101.132.143.144
|
||||
服务器地址类型=340
|
||||
软件名称=XXXXXXX1
|
||||
46
检验主程序/U_Link.dfm
Normal file
46
检验主程序/U_Link.dfm
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
object frmLink: TfrmLink
|
||||
Left = 294
|
||||
Top = 244
|
||||
BorderIcons = []
|
||||
BorderStyle = bsNone
|
||||
ClientHeight = 114
|
||||
ClientWidth = 246
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object AADs: TPanel
|
||||
Left = 36
|
||||
Top = 32
|
||||
Width = 185
|
||||
Height = 41
|
||||
Caption = #27491#22312#36830#25509#26381#21153#22120'...'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
end
|
||||
object CSocket: TClientSocket
|
||||
Active = False
|
||||
ClientType = ctNonBlocking
|
||||
Port = 0
|
||||
OnConnect = CSocketConnect
|
||||
OnRead = CSocketRead
|
||||
OnError = CSocketError
|
||||
Left = 12
|
||||
Top = 84
|
||||
end
|
||||
end
|
||||
118
检验主程序/U_Link.pas
Normal file
118
检验主程序/U_Link.pas
Normal file
|
|
@ -0,0 +1,118 @@
|
|||
unit U_Link;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
IniFiles, Dialogs, ScktComp, ExtCtrls;
|
||||
|
||||
type
|
||||
TCommBlock = record
|
||||
workFlag: integer; //0:开始接受字符串，
|
||||
linkString: string[255];
|
||||
// buf:array [0..Buffersize] of char;
|
||||
end;
|
||||
|
||||
TfrmLink = class(TForm)
|
||||
CSocket: TClientSocket;
|
||||
AADs: TPanel;
|
||||
procedure CSocketRead(Sender: TObject; Socket: TCustomWinSocket);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure CSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure CSocketError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
fADOConnString: string;
|
||||
LinkFlag: string;
|
||||
function LinkTxServer(): Boolean;
|
||||
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmLink: TfrmLink;
|
||||
|
||||
implementation
|
||||
//uses U_Main;
|
||||
{$R *.dfm}
|
||||
|
||||
function TfrmLink.LinkTxServer(): Boolean;
|
||||
var
|
||||
CommBlock: TCommBlock;
|
||||
begin
|
||||
result := false;
|
||||
try
|
||||
CommBlock.workFlag := strtointdef(LinkFlag, -1);
|
||||
CommBlock.linkString := '';
|
||||
CSocket.Socket.SendBuf(CommBlock, SizeOf(CommBlock));
|
||||
Result := true;
|
||||
except
|
||||
Application.MessageBox('连接通讯服务器失败！', '错误信息', MB_ICONERROR);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLink.CSocketRead(Sender: TObject; Socket: TCustomWinSocket);
|
||||
var
|
||||
CommBlock1: TCommBlock;
|
||||
begin
|
||||
try
|
||||
CSocket.Socket.ReceiveBuf(CommBlock1, SizeOf(CommBlock1));
|
||||
// fADOConnString := trim(CommBlock1.linkString);
|
||||
fADOConnString :='Provider=SQLOLEDB.1;Password=rightsoft@123;Persist Security Info=True;User ID=haoyuesa;Initial Catalog=leixiaofudata;Data Source=47.101.61.158,7781' ;
|
||||
ModalResult := 1;
|
||||
except
|
||||
ModalResult := -1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLink.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := cahide;
|
||||
end;
|
||||
|
||||
procedure TfrmLink.CSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
|
||||
begin
|
||||
if not LinkTxServer() then
|
||||
ModalResult := -1;
|
||||
end;
|
||||
|
||||
procedure TfrmLink.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmLink := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmLink.CSocketError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
|
||||
begin
|
||||
Application.MessageBox('连接通讯服务器失败！', '错误信息', MB_ICONERROR);
|
||||
application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TfrmLink.FormCreate(Sender: TObject);
|
||||
var
|
||||
IniFile: TIniFile;
|
||||
LinkServer: string;
|
||||
begin
|
||||
try
|
||||
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI');
|
||||
LinkServer := IniFile.ReadString('SERVER', '服务器地址','127.0.0.1');
|
||||
// LinkServer := '47.101.61.158';
|
||||
LinkFlag := IniFile.ReadString('SERVER', '服务器地址类型', '0');
|
||||
finally
|
||||
IniFile.Free;
|
||||
end;
|
||||
|
||||
try
|
||||
CSocket.Host := trim(LinkServer);
|
||||
CSocket.Port := 47936;
|
||||
CSocket.Open;
|
||||
except
|
||||
ModalResult := -1;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
98
检验主程序/U_iniParam.pas
Normal file
98
检验主程序/U_iniParam.pas
Normal file
|
|
@ -0,0 +1,98 @@
|
|||
////////////////////////////////////////////////////////////////////////////////
|
||||
// 源程序名称：U_iniParam.pas
|
||||
// 软件著作权：富通软件有限公司 版权所有
|
||||
// 系统名称：富通印染ERP车间作业系统
|
||||
// 模块名称：生产配料
|
||||
// 功能说明：生产计划模块ini配置文件操作设置
|
||||
// 作者：官惠平
|
||||
// 审核：
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
unit U_iniParam;
|
||||
|
||||
interface
|
||||
uses
|
||||
IniFiles,SysUtils,Windows;
|
||||
var
|
||||
Filename:string; //文件名
|
||||
iParam2:integer;
|
||||
bParam1:Boolean;
|
||||
bParam2:Boolean;
|
||||
gUpdateFileServer:string;
|
||||
Function IsINIFile():Boolean; //判断InI配置文件是否存在
|
||||
procedure ReadINIFile();
|
||||
procedure WriteINIFile();
|
||||
procedure UpdateFileTime(FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime);
|
||||
implementation
|
||||
///////////////////////////////////////////////////////////////////
|
||||
//读取ini文件设置参数
|
||||
//参数：
|
||||
////////////////////////////////////////////////////////////////////
|
||||
procedure ReadINIFile();
|
||||
var
|
||||
programIni:Tinifile; //配置文件名
|
||||
begin
|
||||
FileName:=ExtractFilePath(Paramstr(0))+'FileUpdate.INI';
|
||||
programIni:=Tinifile.create(FileName);
|
||||
gUpdateFileServer:=programIni.ReadString('系统设置','自动更新文件服务器','');
|
||||
programIni.Free;
|
||||
end;
|
||||
//////////////////////////////////////////////////////////////////
|
||||
//写设置信息到INI文件
|
||||
//参数
|
||||
//////////////////////////////////////////////////////////////////
|
||||
procedure WriteINIFile();
|
||||
var
|
||||
programIni:Tinifile; //配置文件名
|
||||
begin
|
||||
FileName:=ExtractFilePath(Paramstr(0))+'FileUpdate.INI';
|
||||
programIni:=Tinifile.create(FileName);
|
||||
programIni.WriteString('系统设置','自动更新文件服务器',gUpdateFileServer);
|
||||
programIni.Free;
|
||||
end;
|
||||
//////////////////////////////////////////////////////////////////
|
||||
//判断InI文件是否存在
|
||||
//////////////////////////////////////////////////////////////////
|
||||
Function IsINIFile():Boolean;
|
||||
begin
|
||||
FileName:=ExtractFilePath(Paramstr(0))+'FileUpdate.INI';
|
||||
if FileExists(FileName) then
|
||||
Result:=true
|
||||
else
|
||||
Result:=false;
|
||||
end;
|
||||
{-------------------------------------------------------------------------------
|
||||
过程名: UpdateFileTime
|
||||
作者: imcjs
|
||||
日期: 2011.02.12
|
||||
参数: FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime
|
||||
说明： 修改指定文件的创建时间、访问时间、修改时间
|
||||
-------------------------------------------------------------------------------}
|
||||
|
||||
procedure UpdateFileTime(FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime);
|
||||
var
|
||||
FileHnd : Integer;
|
||||
SysTime : TSystemTime;
|
||||
tTzi: TTimezoneInformation;
|
||||
FCreationTime, FLastAccessTime, FLastWriteTime: TFileTime;
|
||||
begin
|
||||
GetTimezoneInformation(tTzi) ;
|
||||
CreationTime := CreationTime+Ttzi.Bias/1440;
|
||||
DateTimeToSystemTime(CreationTime,SysTime);
|
||||
SystemTimeToFileTime(SysTime,FCreationTime);
|
||||
//LastAccessTime := LastAccessTime + Ttzi.Bias/1440;
|
||||
//DateTimeToSystemTime(LastAccessTime,SysTime);
|
||||
//SystemTimeToFileTime(SysTime,FLastAccessTime);
|
||||
LastWriteTime := LastWriteTime + Ttzi.Bias/1440;
|
||||
DateTimeToSystemTime(LastWriteTime,SysTime);
|
||||
SystemTimeToFileTime(SysTime,FLastWriteTime);
|
||||
try
|
||||
FileHnd := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
|
||||
SetFileTime(FileHnd, @FCreationTime, nil, @FLastWriteTime);
|
||||
finally
|
||||
FileClose(FileHnd);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
end.
|
||||
336
检验主程序/U_upPassword.dfm
Normal file
336
检验主程序/U_upPassword.dfm
Normal file
|
|
@ -0,0 +1,336 @@
|
|||
object frmupPassword: TfrmupPassword
|
||||
Left = 300
|
||||
Top = 177
|
||||
Width = 617
|
||||
Height = 544
|
||||
BorderIcons = [biSystemMenu]
|
||||
Caption = #23494#30721#20462#25913
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 35
|
||||
object Label1: TLabel
|
||||
Left = 48
|
||||
Top = 36
|
||||
Width = 180
|
||||
Height = 35
|
||||
Caption = #25805#20316#21592#32534#21495
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 48
|
||||
Top = 99
|
||||
Width = 180
|
||||
Height = 35
|
||||
Caption = #36755#20837#21407#23494#30721
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 48
|
||||
Top = 154
|
||||
Width = 180
|
||||
Height = 35
|
||||
Caption = #36755#20837#26032#23494#30721
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 48
|
||||
Top = 222
|
||||
Width = 180
|
||||
Height = 35
|
||||
Caption = #37325#36755#26032#23494#30721
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object userID: TEdit
|
||||
Left = 240
|
||||
Top = 32
|
||||
Width = 238
|
||||
Height = 43
|
||||
CharCase = ecUpperCase
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnKeyPress = userIDKeyPress
|
||||
end
|
||||
object oldPassword: TEdit
|
||||
Left = 240
|
||||
Top = 95
|
||||
Width = 239
|
||||
Height = 43
|
||||
CharCase = ecUpperCase
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
PasswordChar = '*'
|
||||
TabOrder = 1
|
||||
OnClick = oldPasswordClick
|
||||
OnKeyPress = userIDKeyPress
|
||||
end
|
||||
object newPassword: TEdit
|
||||
Left = 240
|
||||
Top = 150
|
||||
Width = 240
|
||||
Height = 43
|
||||
CharCase = ecUpperCase
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
PasswordChar = '*'
|
||||
TabOrder = 2
|
||||
OnClick = newPasswordClick
|
||||
OnKeyPress = userIDKeyPress
|
||||
end
|
||||
object DnewPassword: TEdit
|
||||
Left = 240
|
||||
Top = 218
|
||||
Width = 241
|
||||
Height = 43
|
||||
CharCase = ecUpperCase
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
PasswordChar = '*'
|
||||
TabOrder = 3
|
||||
OnClick = DnewPasswordClick
|
||||
OnKeyPress = userIDKeyPress
|
||||
end
|
||||
object cxOK: TcxButton
|
||||
Left = 127
|
||||
Top = 424
|
||||
Width = 89
|
||||
Height = 49
|
||||
Caption = #25552#20132
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
OnClick = cxOKClick
|
||||
LookAndFeel.Kind = lfOffice11
|
||||
LookAndFeel.NativeStyle = False
|
||||
end
|
||||
object cxClose: TcxButton
|
||||
Left = 409
|
||||
Top = 424
|
||||
Width = 75
|
||||
Height = 49
|
||||
Caption = #20851#38381
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -32
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
OnClick = cxCloseClick
|
||||
LookAndFeel.Kind = lfOffice11
|
||||
LookAndFeel.NativeStyle = False
|
||||
end
|
||||
object Panel3: TPanel
|
||||
Left = 127
|
||||
Top = 288
|
||||
Width = 357
|
||||
Height = 118
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
ParentColor = True
|
||||
TabOrder = 6
|
||||
object SpeedButton1: TSpeedButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = '0'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -37
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton2: TSpeedButton
|
||||
Left = 59
|
||||
Top = 0
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = '1'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -37
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton3: TSpeedButton
|
||||
Left = 118
|
||||
Top = 0
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = '2'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -37
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton4: TSpeedButton
|
||||
Left = 177
|
||||
Top = 0
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = '3'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -37
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton5: TSpeedButton
|
||||
Left = 236
|
||||
Top = 0
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = '4'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -37
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton6: TSpeedButton
|
||||
Left = 295
|
||||
Top = 0
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = '5'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -37
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton7: TSpeedButton
|
||||
Left = 0
|
||||
Top = 59
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = '6'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -37
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton8: TSpeedButton
|
||||
Left = 59
|
||||
Top = 59
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = '7'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -37
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton9: TSpeedButton
|
||||
Left = 118
|
||||
Top = 59
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = '8'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -37
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton10: TSpeedButton
|
||||
Left = 177
|
||||
Top = 59
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = '9'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -37
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton12: TSpeedButton
|
||||
Left = 236
|
||||
Top = 59
|
||||
Width = 60
|
||||
Height = 60
|
||||
Caption = #8592
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -53
|
||||
Font.Name = #40657#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = SpeedButton12Click
|
||||
end
|
||||
end
|
||||
object ADO_Cmd: TADOQuery
|
||||
Connection = FormMain.ADOConnection1
|
||||
Parameters = <>
|
||||
Left = 540
|
||||
Top = 24
|
||||
end
|
||||
end
|
||||
204
检验主程序/U_upPassword.pas
Normal file
204
检验主程序/U_upPassword.pas
Normal file
|
|
@ -0,0 +1,204 @@
|
|||
unit U_upPassword;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, Menus, cxLookAndFeelPainters, cxButtons, DB, ADODB,
|
||||
Buttons, ExtCtrls;
|
||||
|
||||
type
|
||||
TfrmupPassword = class(TForm)
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
userID: TEdit;
|
||||
oldPassword: TEdit;
|
||||
newPassword: TEdit;
|
||||
DnewPassword: TEdit;
|
||||
cxOK: TcxButton;
|
||||
cxClose: TcxButton;
|
||||
ADO_Cmd: TADOQuery;
|
||||
Panel3: TPanel;
|
||||
SpeedButton1: TSpeedButton;
|
||||
SpeedButton2: TSpeedButton;
|
||||
SpeedButton3: TSpeedButton;
|
||||
SpeedButton4: TSpeedButton;
|
||||
SpeedButton5: TSpeedButton;
|
||||
SpeedButton6: TSpeedButton;
|
||||
SpeedButton7: TSpeedButton;
|
||||
SpeedButton8: TSpeedButton;
|
||||
SpeedButton9: TSpeedButton;
|
||||
SpeedButton10: TSpeedButton;
|
||||
SpeedButton12: TSpeedButton;
|
||||
procedure cxCloseClick(Sender: TObject);
|
||||
procedure cxOKClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure userIDKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure oldPasswordClick(Sender: TObject);
|
||||
procedure newPasswordClick(Sender: TObject);
|
||||
procedure DnewPasswordClick(Sender: TObject);
|
||||
procedure SpeedButton1Click(Sender: TObject);
|
||||
procedure SpeedButton12Click(Sender: TObject);
|
||||
private
|
||||
Fint:Integer;
|
||||
{ Private declarations }
|
||||
public
|
||||
fuserID:string;
|
||||
fuserName:string;
|
||||
fPassWord:string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmupPassword: TfrmupPassword;
|
||||
|
||||
implementation
|
||||
uses spmain,ElAES,AES;
|
||||
{$R *.dfm}
|
||||
procedure TfrmupPassword.cxCloseClick(Sender: TObject);
|
||||
begin
|
||||
close;
|
||||
end;
|
||||
|
||||
procedure TfrmupPassword.cxOKClick(Sender: TObject);
|
||||
begin
|
||||
if trim(oldPassword.text)<>'' then
|
||||
fPassWord:=trim(EncryptString(trim(oldPassword.text),keys))
|
||||
else
|
||||
fPassWord:='';
|
||||
WITH ADO_Cmd Do
|
||||
BEGIN
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add(' SELECT * ');
|
||||
sql.Add(' FROM SY_User A ');
|
||||
Sql.Add(' where UserID='+quotedstr(trim(fuserID)));
|
||||
Sql.Add(' and PassWord='+quotedstr(trim(fPassWord)));
|
||||
Sql.Add(' and Valid=''Y'' ');
|
||||
open;
|
||||
END;
|
||||
IF ADO_Cmd.IsEmpty THEN
|
||||
BEGIN
|
||||
Application.MessageBox('原密码错误！', '错误提示', MB_ICONERROR);
|
||||
oldPassword.Text := '';
|
||||
exit;
|
||||
END;
|
||||
if trim(newPassword.Text)<> trim(dnewPassword.Text) then
|
||||
begin
|
||||
application.MessageBox('新密码两次输入不一致！','错误信息',MB_ICONERROR);
|
||||
newPassword.Text:='';
|
||||
dnewPassword.Text:='';
|
||||
exit;
|
||||
end;
|
||||
|
||||
if trim(newPassword.text)<>'' then
|
||||
fPassWord:=trim(EncryptString(trim(newPassword.text),keys))
|
||||
else
|
||||
fPassWord:='';
|
||||
try
|
||||
WITH ADO_Cmd Do
|
||||
BEGIN
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add(' SELECT * ');
|
||||
sql.Add(' FROM SY_User A ');
|
||||
Sql.Add(' where UserID='+quotedstr(trim(fuserID)));
|
||||
Sql.Add(' and Valid=''Y'' ');
|
||||
open;
|
||||
END;
|
||||
ADO_Cmd.Edit;
|
||||
ADO_Cmd.FieldByName('password').Value:=trim(fPassWord);
|
||||
ADO_Cmd.Post;
|
||||
ModalResult:=1;
|
||||
application.MessageBox('修改密码成功！','提示信息');
|
||||
except
|
||||
application.MessageBox('修改密码失败！','错误信息',MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmupPassword.FormShow(Sender: TObject);
|
||||
begin
|
||||
userID.Text:=trim(fuserID);
|
||||
oldPassword.SetFocus;
|
||||
Fint:=1;
|
||||
end;
|
||||
|
||||
procedure TfrmupPassword.userIDKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
Key:=UpCase(Key);
|
||||
if key=#13 then
|
||||
begin
|
||||
perform(WM_NEXTDLGCTL,0,0);
|
||||
Key := #0;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmupPassword.oldPasswordClick(Sender: TObject);
|
||||
begin
|
||||
Fint:=1;
|
||||
end;
|
||||
|
||||
procedure TfrmupPassword.newPasswordClick(Sender: TObject);
|
||||
begin
|
||||
Fint:=2;
|
||||
end;
|
||||
|
||||
procedure TfrmupPassword.DnewPasswordClick(Sender: TObject);
|
||||
begin
|
||||
Fint:=3;
|
||||
end;
|
||||
|
||||
procedure TfrmupPassword.SpeedButton1Click(Sender: TObject);
|
||||
begin
|
||||
if Fint=1 then
|
||||
begin
|
||||
oldPassword.Text:=Trim(oldPassword.Text)+Trim(TSpeedButton(Sender).Caption);
|
||||
oldPassword.SelectAll;
|
||||
end else
|
||||
if Fint=2 then
|
||||
begin
|
||||
newPassword.Text:=Trim(newPassword.Text)+Trim(TSpeedButton(Sender).Caption);
|
||||
newPassword.SelectAll;
|
||||
end else
|
||||
if Fint=3 then
|
||||
begin
|
||||
DnewPassword.Text:=Trim(DnewPassword.Text)+Trim(TSpeedButton(Sender).Caption);
|
||||
DnewPassword.SelectAll;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmupPassword.SpeedButton12Click(Sender: TObject);
|
||||
begin
|
||||
if Fint=1 then
|
||||
begin
|
||||
if Trim(oldPassword.Text)<>'' then
|
||||
begin
|
||||
oldPassword.Text:=Copy(Trim(oldPassword.Text),1,Length(Trim(oldPassword.Text))-1);
|
||||
oldPassword.SelectAll;
|
||||
end;
|
||||
end else
|
||||
if Fint=2 then
|
||||
begin
|
||||
if Trim(newPassword.Text)<>'' then
|
||||
begin
|
||||
newPassword.Text:=Copy(Trim(newPassword.Text),1,Length(Trim(newPassword.Text))-1);
|
||||
newPassword.SelectAll;
|
||||
end;
|
||||
end else
|
||||
if Fint=3 then
|
||||
begin
|
||||
if Trim(DnewPassword.Text)<>'' then
|
||||
begin
|
||||
DnewPassword.Text:=Copy(Trim(DnewPassword.Text),1,Length(Trim(DnewPassword.Text))-1);
|
||||
DnewPassword.SelectAll;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
38
检验主程序/WFBProduction.cfg
Normal file
38
检验主程序/WFBProduction.cfg
Normal file
|
|
@ -0,0 +1,38 @@
|
|||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
|
||||
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
136
检验主程序/WFBProduction.dof
Normal file
136
检验主程序/WFBProduction.dof
Normal file
|
|
@ -0,0 +1,136 @@
|
|||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;cxLibraryVCLD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxSpreadSheetVCLD7;dxmdsD7;cxPageControlVCLD7;dxsbD7;dxComnD7;dxDockingD7;dxBarExtDBItemsD7;dxBarD7;dxBarDBNavD7;dxBarExtItemsD7;dxdbtrD7;dxtrmdD7;dxFlowChartD7;cxWebD7;cxWebSnapD7;cxWebPascalScriptD7;cxWebTeeChartD7;cxSchedulerVCLD7;dxMasterViewD7;dxNavBarD7;dxorgcD7;dxdborD7;cxGridVCLD7;cxVerticalGridVCLD7;cxTreeListVCLD7;dxLayoutControlD7;dxPSCoreD7;dxPSLnksD7;dxPScxCommonD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxScheduler2LnkD7;dxPScxSSLnkD7;dxPScxTLLnkD7;dxPScxVGridLnkD7;dxPSdxDBOCLnkD7;dxPSdxOCLnkD7;dxPSdxDBTVLnkD7;dxPSdxFCLnkD7;dxPSdxLCLnkD7;dxPSdxMVLnkD7;dxPsPrVwAdvD7;dxPSTeeChartD7;dxPSDBTeeChartD7;dxForumLibD7;cxPivotGridD7;btneditpac;FTComboBoxPac;rm_r70;inetdb;mxOutlookBarPro_D7
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\D7\ÏîÄ¿´úÂë\À×С¸£\¼ìÑéÖ÷³ÌÐò\WFBProduction.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
[Version Info]
|
||||
IncludeVerInfo=0
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=2052
|
||||
CodePage=936
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
28
检验主程序/WFBProduction.dpr
Normal file
28
检验主程序/WFBProduction.dpr
Normal file
|
|
@ -0,0 +1,28 @@
|
|||
program WFBProduction;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
logon in 'logon.pas' {FormLogon},
|
||||
spmain in 'spmain.pas' {FormMain},
|
||||
DelphiTwainUtils in 'delphitwain\DelphiTwainUtils.pas',
|
||||
Twain in 'delphitwain\Twain.pas',
|
||||
DelphiTwain in 'delphitwain\DelphiTwain.pas',
|
||||
MovePanel in 'DbPanel\MovePanel.pas',
|
||||
AES in 'AES.pas',
|
||||
ElAES in 'ElAES.pas',
|
||||
U_upPassword in 'U_upPassword.pas' {frmupPassword},
|
||||
U_Link in 'U_Link.pas' {frmLink};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.Title := '»ų́¼ìÑé';
|
||||
Application.CreateForm(TFormMain, FormMain);
|
||||
// Application.CreateForm(TfrmKqInCM, frmKqInCM);
|
||||
//FormLogon:=TFormLogon.Create(application);
|
||||
//FormLogon.ShowModal;
|
||||
//FormLogon.update;
|
||||
Application.Run;
|
||||
|
||||
end.
|
||||
BIN
检验主程序/WFBProduction.res
Normal file
BIN
检验主程序/WFBProduction.res
Normal file
Binary file not shown.
415
检验主程序/logon.dfm
Normal file
415
检验主程序/logon.dfm
Normal file
|
|
@ -0,0 +1,415 @@
|
|||
object FormLogon: TFormLogon
|
||||
Left = 210
|
||||
Top = 81
|
||||
BorderStyle = bsNone
|
||||
Caption = #29992#25143#30331#24405
|
||||
ClientHeight = 516
|
||||
ClientWidth = 761
|
||||
Color = clBackground
|
||||
DefaultMonitor = dmDesktop
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnActivate = FormActivate
|
||||
OnClose = FormClose
|
||||
OnCloseQuery = FormCloseQuery
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = Form
|
||||
OnKeyPress = FormKeyPress
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 35
|
||||
object MovePanel1: TMovePanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 761
|
||||
Height = 516
|
||||
Align = alClient
|
||||
BevelInner = bvLowered
|
||||
BevelWidth = 2
|
||||
Color = clSkyBlue
|
||||
Ctl3D = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentCtl3D = False
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
Left = 151
|
||||
Top = 109
|
||||
Width = 83
|
||||
Height = 33
|
||||
Caption = #24080' '#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -32
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 151
|
||||
Top = 183
|
||||
Width = 83
|
||||
Height = 33
|
||||
Caption = #23494' '#30721
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -32
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 140
|
||||
Top = 46
|
||||
Width = 406
|
||||
Height = 35
|
||||
Alignment = taCenter
|
||||
Caption = #24067' '#21305' '#26816' '#39564' '#31995' '#32479
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -35
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Edit2: TEdit
|
||||
Left = 242
|
||||
Top = 182
|
||||
Width = 287
|
||||
Height = 39
|
||||
Ctl3D = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -32
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
MaxLength = 15
|
||||
ParentCtl3D = False
|
||||
ParentFont = False
|
||||
PasswordChar = '*'
|
||||
TabOrder = 0
|
||||
OnKeyDown = Edit2KeyDown
|
||||
OnKeyPress = FormKeyPress
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
Left = 127
|
||||
Top = 253
|
||||
Width = 600
|
||||
Height = 58
|
||||
Align = alNone
|
||||
ButtonHeight = 41
|
||||
ButtonWidth = 194
|
||||
DockSite = True
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -35
|
||||
Font.Name = #26999#20307'_GB2312'
|
||||
Font.Style = [fsBold]
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
Transparent = True
|
||||
object BtnOk: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = ' '#30331#24405' '
|
||||
ImageIndex = 98
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
OnClick = BtnOkClick
|
||||
end
|
||||
object ToolButton12: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
Caption = ' '#20462#25913#23494#30721' '
|
||||
ImageIndex = 30
|
||||
OnClick = ToolButton12Click
|
||||
end
|
||||
object BtnQuit: TToolButton
|
||||
Left = 320
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = ' '#36864#20986' '
|
||||
ImageIndex = 29
|
||||
OnClick = BtnQuitClick
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 4
|
||||
Top = 415
|
||||
Width = 753
|
||||
Height = 97
|
||||
Align = alBottom
|
||||
ButtonHeight = 54
|
||||
ButtonWidth = 62
|
||||
DockSite = True
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -48
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 2
|
||||
Transparent = True
|
||||
object ToolButton6: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = ' '
|
||||
Enabled = False
|
||||
ImageIndex = 34
|
||||
end
|
||||
object ToolButton23: TToolButton
|
||||
Left = 66
|
||||
Top = 0
|
||||
Caption = '5'
|
||||
ImageIndex = 40
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton24: TToolButton
|
||||
Left = 128
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Enabled = False
|
||||
ImageIndex = 39
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 169
|
||||
Top = 0
|
||||
Caption = '6'
|
||||
ImageIndex = 98
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 231
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Enabled = False
|
||||
ImageIndex = 29
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 272
|
||||
Top = 0
|
||||
Caption = '7'
|
||||
ImageIndex = 30
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton10: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Enabled = False
|
||||
ImageIndex = 31
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton11: TToolButton
|
||||
Left = 375
|
||||
Top = 0
|
||||
Caption = '8'
|
||||
ImageIndex = 32
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton19: TToolButton
|
||||
Left = 437
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Enabled = False
|
||||
ImageIndex = 33
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton20: TToolButton
|
||||
Left = 478
|
||||
Top = 0
|
||||
Caption = '9'
|
||||
ImageIndex = 34
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton21: TToolButton
|
||||
Left = 540
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Enabled = False
|
||||
ImageIndex = 35
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton25: TToolButton
|
||||
Left = 581
|
||||
Top = 0
|
||||
Caption = #8592
|
||||
ImageIndex = 38
|
||||
OnClick = ToolButton23Click
|
||||
end
|
||||
end
|
||||
object ToolBar3: TToolBar
|
||||
Left = 4
|
||||
Top = 347
|
||||
Width = 753
|
||||
Height = 68
|
||||
Align = alBottom
|
||||
ButtonHeight = 54
|
||||
ButtonWidth = 62
|
||||
DockSite = True
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -48
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 3
|
||||
Transparent = True
|
||||
object ToolButton22: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = ' '
|
||||
Enabled = False
|
||||
ImageIndex = 39
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 66
|
||||
Top = 0
|
||||
Caption = '0'
|
||||
ImageIndex = 98
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 128
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = ' '
|
||||
Enabled = False
|
||||
ImageIndex = 31
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 169
|
||||
Top = 0
|
||||
Caption = '1'
|
||||
ImageIndex = 29
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 231
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Enabled = False
|
||||
ImageIndex = 30
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton13: TToolButton
|
||||
Left = 272
|
||||
Top = 0
|
||||
Caption = '2'
|
||||
ImageIndex = 32
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton14: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Enabled = False
|
||||
ImageIndex = 33
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton15: TToolButton
|
||||
Left = 375
|
||||
Top = 0
|
||||
Caption = '3'
|
||||
ImageIndex = 34
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton16: TToolButton
|
||||
Left = 437
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Enabled = False
|
||||
ImageIndex = 35
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton17: TToolButton
|
||||
Left = 478
|
||||
Top = 0
|
||||
Caption = '4'
|
||||
ImageIndex = 36
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton18: TToolButton
|
||||
Left = 540
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Enabled = False
|
||||
ImageIndex = 37
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 581
|
||||
Top = 0
|
||||
Caption = #8592
|
||||
ImageIndex = 39
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
end
|
||||
object Edit1: TComboBox
|
||||
Left = 242
|
||||
Top = 108
|
||||
Width = 288
|
||||
Height = 41
|
||||
Style = csDropDownList
|
||||
Ctl3D = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -32
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ItemHeight = 33
|
||||
ParentCtl3D = False
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
OnExit = ComboBox1Exit
|
||||
end
|
||||
end
|
||||
object Timer1: TTimer
|
||||
Enabled = False
|
||||
Interval = 100
|
||||
OnTimer = Timer1Timer
|
||||
Left = 16
|
||||
Top = 80
|
||||
end
|
||||
object ADQ_Tmp: TADOQuery
|
||||
Connection = FormMain.ADOConnection1
|
||||
Parameters = <>
|
||||
Left = 24
|
||||
Top = 160
|
||||
end
|
||||
end
|
||||
322
检验主程序/logon.pas
Normal file
322
检验主程序/logon.pas
Normal file
|
|
@ -0,0 +1,322 @@
|
|||
unit logon;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, Buttons, ExtCtrls, MovePanel,ADODB, DB, ComCtrls,
|
||||
ToolWin;
|
||||
|
||||
type
|
||||
TFormLogon = class(TForm)
|
||||
Timer1: TTimer;
|
||||
MovePanel1: TMovePanel;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Edit2: TEdit;
|
||||
Label3: TLabel;
|
||||
ToolBar1: TToolBar;
|
||||
BtnOk: TToolButton;
|
||||
BtnQuit: TToolButton;
|
||||
ToolButton12: TToolButton;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton6: TToolButton;
|
||||
ToolButton7: TToolButton;
|
||||
ToolButton8: TToolButton;
|
||||
ToolButton9: TToolButton;
|
||||
ToolButton10: TToolButton;
|
||||
ToolButton11: TToolButton;
|
||||
ToolButton19: TToolButton;
|
||||
ToolButton20: TToolButton;
|
||||
ToolButton21: TToolButton;
|
||||
ToolButton25: TToolButton;
|
||||
ToolBar3: TToolBar;
|
||||
ToolButton2: TToolButton;
|
||||
ToolButton3: TToolButton;
|
||||
ToolButton4: TToolButton;
|
||||
ToolButton5: TToolButton;
|
||||
ToolButton13: TToolButton;
|
||||
ToolButton14: TToolButton;
|
||||
ToolButton15: TToolButton;
|
||||
ToolButton16: TToolButton;
|
||||
ToolButton17: TToolButton;
|
||||
ToolButton18: TToolButton;
|
||||
ADQ_Tmp: TADOQuery;
|
||||
ToolButton22: TToolButton;
|
||||
ToolButton24: TToolButton;
|
||||
Edit1: TComboBox;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton23: TToolButton;
|
||||
procedure btnoClick(Sender: TObject);
|
||||
procedure Form(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure BtnOkClick(Sender: TObject);
|
||||
procedure FormKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure Timer1Timer(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
procedure BtnQuitClick(Sender: TObject);
|
||||
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormActivate(Sender: TObject);
|
||||
procedure Edit1Exit(Sender: TObject);
|
||||
procedure ToolButton13Click(Sender: TObject);
|
||||
procedure ToolButton23Click(Sender: TObject);
|
||||
procedure ComboBox1Exit(Sender: TObject);
|
||||
procedure ToolButton12Click(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
FormLogon: TFormLogon;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Spmain,AES,ElAES,U_upPassword;
|
||||
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TFormLogon.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Edit1.Text := '';
|
||||
end;
|
||||
|
||||
procedure TFormLogon.FormShow(Sender: TObject);
|
||||
begin
|
||||
with ADQ_Tmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select distinct A.UserID from SY_Purview A ');
|
||||
SQL.Add('inner join SY_User B on B.UserID=A.UserID ');
|
||||
sql.Add('where A.ModuleSubId=''99'' ');
|
||||
// ShowMessage(sql.text);
|
||||
Open;
|
||||
|
||||
end;
|
||||
Edit1.Items.Clear;
|
||||
with ADQ_Tmp do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
Edit1.Items.Add(Trim(fieldbyname('UserId').AsString));
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
|
||||
Edit1.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TFormLogon.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := CaFree;
|
||||
end;
|
||||
|
||||
procedure TFormLogon.Form(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if Key = 13 then
|
||||
begin
|
||||
PostMessage(Handle,WM_KEYDOWN,VK_TAB,0);
|
||||
Key := 0;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormLogon.btnoClick(Sender: TObject);
|
||||
begin
|
||||
application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TFormLogon.BtnOkClick(Sender: TObject);
|
||||
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;
|
||||
newh:hwnd;
|
||||
bm,mm,mz,mm2:string;
|
||||
begin
|
||||
if (Edit1.Text='') then
|
||||
begin
|
||||
Application.MessageBox('帐号没有录入,请继续录入。', '信息提示', MB_OK or MB_ICONinformation);
|
||||
Edit1.SetFocus;
|
||||
exit;
|
||||
end;
|
||||
with ADQ_Tmp do
|
||||
begin
|
||||
sql.Clear;
|
||||
sql.add('SELECT userid,username,password FROM SY_User WHERE userid='+''''+trim(Edit1.Text)+'''');
|
||||
Open;
|
||||
IF not ADQ_Tmp.IsEmpty then
|
||||
begin
|
||||
bm:=Fields[0].AsString;
|
||||
mz:=Fields[1].AsString;
|
||||
mm:=Trim(Fields[2].AsString);
|
||||
if Trim(mm)<>'' then
|
||||
mm2:=Trim(DecryptString(Trim(mm),'ljb^0122!@#*&^%$',kb128))
|
||||
else
|
||||
mm2:='';
|
||||
end
|
||||
else
|
||||
begin
|
||||
Application.MessageBox('没有此员工！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
close;
|
||||
end;
|
||||
|
||||
if (mm2=trim(edit2.text)) and (bm<>'') then
|
||||
begin
|
||||
FormMain.StatusBar1.Panels[1].Text:='操作员:'+mz;
|
||||
FormMain.StatusBar1.Panels[2].Text:='绍兴睿特信息技术有限公司';
|
||||
User_Name:=trim(mz);
|
||||
User_Id:=trim(bm);
|
||||
|
||||
// fuserName:=trim(ADOQueryTmp.fieldbyname('userName').AsString);
|
||||
Th := LoadLibrary('FileUpdate.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(User_Id),
|
||||
PChar(User_Name),PChar(''),PChar(''),PChar(''),PChar(''),'','','','','','','','',PChar(ConDateBaseString));
|
||||
end
|
||||
else
|
||||
begin
|
||||
//ShowMessage('打印执行错误');
|
||||
end;
|
||||
finally
|
||||
FreeLibrary(Th);
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
ShowMessage('找不到FileUpdate.dll');
|
||||
end;
|
||||
FormLogon.close;
|
||||
FormMain.Show;
|
||||
end
|
||||
else
|
||||
Application.MessageBox('密码错误！', '信息提示', MB_OK or MB_ICONinformation);
|
||||
|
||||
{FormLogon.close;
|
||||
FormMain.Show;}
|
||||
end;
|
||||
|
||||
procedure TFormLogon.FormKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
{key:=UpCase(key);
|
||||
if (Key in ['''']) then
|
||||
Key := #0;
|
||||
if FormLogon.Visible then
|
||||
begin
|
||||
if key=#13 then
|
||||
begin
|
||||
key:=#0;
|
||||
FormLogon.perform(WM_NEXTDLGCTL,0,0);
|
||||
end;
|
||||
|
||||
end;}
|
||||
|
||||
end;
|
||||
|
||||
procedure TFormLogon.Timer1Timer(Sender: TObject);
|
||||
begin
|
||||
Edit1.Text:='';
|
||||
Edit2.Text:='';
|
||||
end;
|
||||
|
||||
procedure TFormLogon.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
begin
|
||||
if User_ID='' then application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TFormLogon.BtnQuitClick(Sender: TObject);
|
||||
begin
|
||||
application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TFormLogon.Edit2KeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if Key = VK_Return then
|
||||
BtnokClick(sender);
|
||||
end;
|
||||
|
||||
procedure TFormLogon.FormActivate(Sender: TObject);
|
||||
begin
|
||||
Edit1.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TFormLogon.Edit1Exit(Sender: TObject);
|
||||
begin
|
||||
edit1.Text :=upperCase(trim(edit1.text))
|
||||
end;
|
||||
|
||||
procedure TFormLogon.ToolButton13Click(Sender: TObject);
|
||||
begin
|
||||
Edit2.Text:=Trim(Edit2.Text)+Trim(TToolButton(Sender).Caption);
|
||||
Edit2.SelectAll;
|
||||
end;
|
||||
|
||||
procedure TFormLogon.ToolButton23Click(Sender: TObject);
|
||||
begin
|
||||
if Length(Trim(Edit2.Text))=0 then Exit;
|
||||
Edit2.Text:=Copy(Trim(Edit2.Text),1,Length(Trim(Edit2.Text))-1);
|
||||
Edit2.SelectAll;
|
||||
end;
|
||||
|
||||
procedure TFormLogon.ComboBox1Exit(Sender: TObject);
|
||||
begin
|
||||
edit1.Text :=upperCase(trim(edit1.text))
|
||||
end;
|
||||
|
||||
procedure TFormLogon.ToolButton12Click(Sender: TObject);
|
||||
begin
|
||||
if Trim(Edit1.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('帐号不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
frmupPassword:=TfrmupPassword.Create(Application);
|
||||
with frmupPassword do
|
||||
begin
|
||||
fuserID:=Trim(Self.Edit1.Text);
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmupPassword.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormLogon.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
if Length(Trim(Edit2.Text))=0 then Exit;
|
||||
Edit2.Text:=Copy(Trim(Edit2.Text),1,Length(Trim(Edit2.Text))-1);
|
||||
Edit2.SelectAll;
|
||||
end;
|
||||
|
||||
end.
|
||||
15021
检验主程序/spmain.dfm
Normal file
15021
检验主程序/spmain.dfm
Normal file
File diff suppressed because it is too large
Load Diff
387
检验主程序/spmain.pas
Normal file
387
检验主程序/spmain.pas
Normal file
|
|
@ -0,0 +1,387 @@
|
|||
unit spmain;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, Menus, ComCtrls, ToolWin, ActnMan, ActnCtrls, ActnMenus,
|
||||
ActnList, DB, ADODB, Grids,IniFiles, jpeg,
|
||||
ExtCtrls, Buttons, ImgList, StdCtrls, cxControls,
|
||||
cxSplitter, MovePanel;
|
||||
const
|
||||
keys='ljb^0122!@#*&^%$';
|
||||
type
|
||||
TFormMain = class(TForm)
|
||||
StatusBar1: TStatusBar;
|
||||
ADOConnection1: TADOConnection;
|
||||
ImageList25: TImageList;
|
||||
ImageList3: TImageList;
|
||||
ImageList24: TImageList;
|
||||
ADQ_Temp: TADOQuery;
|
||||
Image_Tree: TImageList;
|
||||
ADOQueryTmp: TADOQuery;
|
||||
Timer2: TTimer;
|
||||
MovePanel1: TMovePanel;
|
||||
Panel1: TPanel;
|
||||
Panel2: TPanel;
|
||||
Panel3: TPanel;
|
||||
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure MNCloseClick(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure Timer1Timer(Sender: TObject);
|
||||
procedure FormResize(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure Timer2Timer(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure ToolButton12Click(Sender: TObject);
|
||||
procedure Panel1Click(Sender: TObject);
|
||||
procedure Panel2Click(Sender: TObject);
|
||||
procedure Panel3Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
function intiData():Boolean;
|
||||
procedure GetServerDate();
|
||||
|
||||
public
|
||||
|
||||
{ Public declarations }
|
||||
// server, dtbase, user, pswd: String;
|
||||
end;
|
||||
var
|
||||
FormMain: TFormMain;
|
||||
gServerDate:TdateTime;
|
||||
server, dtbase, user, pswd: String; {数据库连接参数}
|
||||
gConString:String; {全局连接字符串}
|
||||
gCurHandle:hwnd; //当前窗体句柄
|
||||
V_User,V_UserID,User_Id,User_Name:String;
|
||||
newh:hwnd;
|
||||
ConDateBaseString:String;
|
||||
implementation
|
||||
uses
|
||||
logon, U_Link,U_iniParam;
|
||||
{$R *.dfm}
|
||||
|
||||
function TFormMain.intiData():Boolean;
|
||||
var
|
||||
mProdId:string; //当前产品号
|
||||
begin
|
||||
result:=false;
|
||||
|
||||
//ConDateBaseString:=ADOConnection1.ConnectionString;
|
||||
try
|
||||
frmLink:=TfrmLink.create(self);
|
||||
if frmLink.ShowModal=1 then
|
||||
begin
|
||||
ConDateBaseString:=frmLink.fADOConnString;
|
||||
frmLink.hide;
|
||||
end
|
||||
else
|
||||
begin
|
||||
application.MessageBox('通讯服务器连接错误！','提示信息',MB_ICONERROR);
|
||||
PostMessage(Handle, WM_CLOSE, 0, 0);
|
||||
frmLink.Release;
|
||||
end;
|
||||
except
|
||||
application.MessageBox('通讯服务器连接错误！','提示信息',MB_ICONERROR);
|
||||
PostMessage(Handle, WM_CLOSE, 0, 0);
|
||||
end;
|
||||
// ConDateBaseString:=ADOConnection1.ConnectionString;
|
||||
{ Left := 0;
|
||||
Top := 0;
|
||||
Width := Screen.Width;
|
||||
Height := Screen.Height; }
|
||||
|
||||
try
|
||||
with ADOConnection1 do
|
||||
begin
|
||||
ADOConnection1.KeepConnection:=false;
|
||||
ADOConnection1.KeepConnection:=true;
|
||||
Connected:=false;
|
||||
ConnectionString:= ConDateBaseString;
|
||||
Connected:=true;
|
||||
end;
|
||||
Result:=true;
|
||||
except
|
||||
result:=false;
|
||||
application.MessageBox('数据库连接错误！','提示信息',MB_ICONERROR);
|
||||
PostMessage(Handle, WM_CLOSE, 0, 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormMain.FormCreate(Sender: TObject);
|
||||
var
|
||||
tmpstr: String;
|
||||
begin
|
||||
|
||||
if intiData() then
|
||||
begin
|
||||
GetServerDate();
|
||||
// P_Tmp.Visible := True;
|
||||
//P_Tmp.Align := AlClient;
|
||||
FormLogon:=TFormLogon.Create(self);
|
||||
FormLogon.ShowModal;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TFormMain.FormResize(Sender: TObject);
|
||||
begin
|
||||
//P_Tmp.Align := AlClient;
|
||||
sendmessage(newh,1034,1,0);
|
||||
end;
|
||||
|
||||
procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
Var
|
||||
CanQuit:Boolean;
|
||||
begin
|
||||
sendmessage(newh,1034,4,0);
|
||||
If FormMain.MDICHildCount > 0 Then
|
||||
CanQuit:=application.MessageBox('您确定需要退出当前系统吗?','提示',mb_yesno+ mb_IconQuestion)=idyes ;
|
||||
If CanQuit Then
|
||||
begin
|
||||
Timer2.Enabled := false;
|
||||
ADOConnection1.Close;
|
||||
Action := CaFree;
|
||||
End
|
||||
Else
|
||||
action := caNone;
|
||||
end;
|
||||
|
||||
procedure TFormMain.MNCloseClick(Sender: TObject);
|
||||
begin
|
||||
close;
|
||||
end;
|
||||
|
||||
procedure TFormMain.Timer1Timer(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
statusbar1.Panels[0].Text:='当前时间：'+datetimetostr(now);
|
||||
except
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormMain.N2Click(Sender: TObject);
|
||||
begin
|
||||
end;
|
||||
///////////////////////////////////////////////
|
||||
//函数：获取系统参数
|
||||
////////////////////////////////////////////////
|
||||
procedure TFormMain.GetServerDate();
|
||||
begin
|
||||
with ADOQueryTmp do
|
||||
begin
|
||||
close;
|
||||
sql.clear;
|
||||
sql.Add('select getDate()as dt');
|
||||
Open;
|
||||
gServerDate:=fieldByName('dt').AsDateTime;
|
||||
close;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFormMain.Timer2Timer(Sender: TObject);
|
||||
begin
|
||||
FormMain.StatusBar1.Panels[0].Text:='当前时间：'+datetimetostr(now);
|
||||
end;
|
||||
|
||||
procedure TFormMain.FormShow(Sender: TObject);
|
||||
begin
|
||||
Timer2.Enabled:=True;
|
||||
|
||||
end;
|
||||
|
||||
procedure TFormMain.ToolButton12Click(Sender: TObject);
|
||||
var
|
||||
CanQuit:Boolean;
|
||||
begin
|
||||
sendmessage(newh,1034,4,0);
|
||||
if application.MessageBox('您确定需要退出当前系统吗?','提示',mb_yesno+ mb_IconQuestion)<>IDYES then Exit;
|
||||
ADOConnection1.Close;
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TFormMain.Panel1Click(Sender: TObject);
|
||||
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;
|
||||
begin
|
||||
//静态加载
|
||||
//newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa'));
|
||||
|
||||
//动态加载
|
||||
// showMessage(intTostr(application.Handle));
|
||||
ADOConnection1.Connected:=False;
|
||||
ADOConnection1.Connected:=True;
|
||||
{ with ADOQueryTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from SY_User where UserId='''+Trim(User_Id)+'''');
|
||||
Open;
|
||||
end;
|
||||
if Trim(ADOQueryTmp.FieldByName('BanZu').AsString)='' then
|
||||
begin
|
||||
Application.MessageBox('当前登录人班组为空！','提示',0);
|
||||
Exit;
|
||||
end; }
|
||||
|
||||
with ADOQueryTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from SY_ModuleSub where ModuleSubID=''99'' ');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTmp.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('没有设置检验信息模块！','提示信息',MB_ICONERROR);
|
||||
Exit;
|
||||
end;
|
||||
Th := LoadLibrary(Pchar(trim(ADOQueryTmp.fieldbyname('formFile').AsString)));
|
||||
if Th > 0 then
|
||||
begin
|
||||
try
|
||||
Tp := GetProcAddress(Th, 'GetDllForm');
|
||||
if Tp <> nil then
|
||||
begin
|
||||
Tf := TMyFunc(Tp);
|
||||
newh:=Tf(Application,0,ADOQueryTmp.fieldbyname('formID').AsInteger,0,0,
|
||||
PChar(User_Id),
|
||||
PChar(User_Name),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formname').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara1').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara2').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara3').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara4').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara5').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara6').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara7').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara8').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara9').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara10').AsString)),
|
||||
PChar(ConDateBaseString)
|
||||
);
|
||||
end
|
||||
else
|
||||
begin
|
||||
ShowMessage('打印执行错误');
|
||||
end;
|
||||
finally
|
||||
// FreeLibrary();
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
ShowMessage('找不到'+Trim('dllname'));
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TFormMain.Panel2Click(Sender: TObject);
|
||||
var
|
||||
CanQuit:Boolean;
|
||||
begin
|
||||
sendmessage(newh,1034,4,0);
|
||||
if application.MessageBox('您确定需要退出当前系统吗?','提示',mb_yesno+ mb_IconQuestion)<>IDYES then Exit;
|
||||
ADOConnection1.Close;
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TFormMain.Panel3Click(Sender: TObject);
|
||||
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;
|
||||
begin
|
||||
//动态加载
|
||||
// showMessage(intTostr(application.Handle));
|
||||
ADOConnection1.Connected:=False;
|
||||
ADOConnection1.Connected:=True;
|
||||
{ with ADOQueryTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from SY_User where UserId='''+Trim(User_Id)+'''');
|
||||
Open;
|
||||
end;
|
||||
if Trim(ADOQueryTmp.FieldByName('BanZu').AsString)='' then
|
||||
begin
|
||||
Application.MessageBox('当前登录人班组为空！','提示',0);
|
||||
Exit;
|
||||
end; }
|
||||
|
||||
with ADOQueryTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from SY_ModuleSub where ModuleSubID=''97'' ');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTmp.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('没有设置拆分合并模块！','提示信息',MB_ICONERROR);
|
||||
Exit;
|
||||
end;
|
||||
Th := LoadLibrary(Pchar(trim(ADOQueryTmp.fieldbyname('formFile').AsString)));
|
||||
if Th > 0 then
|
||||
begin
|
||||
try
|
||||
Tp := GetProcAddress(Th, 'GetDllForm');
|
||||
if Tp <> nil then
|
||||
begin
|
||||
Tf := TMyFunc(Tp);
|
||||
newh:=Tf(Application,0,ADOQueryTmp.fieldbyname('formID').AsInteger,0,0,
|
||||
PChar(User_Id),
|
||||
PChar(User_Name),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formname').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara1').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara2').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara3').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara4').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara5').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara6').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara7').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara8').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara9').AsString)),
|
||||
PChar(trim(ADOQueryTmp.fieldbyname('formpara10').AsString)),
|
||||
PChar(ConDateBaseString)
|
||||
);
|
||||
end
|
||||
else
|
||||
begin
|
||||
ShowMessage('打印执行错误');
|
||||
end;
|
||||
finally
|
||||
// FreeLibrary();
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
ShowMessage('找不到'+Trim('dllname'));
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
317
检验管理/AES.pas
Normal file
317
检验管理/AES.pas
Normal file
|
|
@ -0,0 +1,317 @@
|
|||
(**************************************************)
|
||||
|
||||
unit AES;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, Math, ElAES;
|
||||
|
||||
type
|
||||
TKeyBit = (kb128, kb192, kb256);
|
||||
|
||||
function StrToHex(Value: string): string;
|
||||
function HexToStr(Value: string): string;
|
||||
function EncryptString(Value: string; Key: string;
|
||||
KeyBit: TKeyBit = kb128): string;
|
||||
function DecryptString(Value: string; Key: string;
|
||||
KeyBit: TKeyBit = kb128): string;
|
||||
function EncryptStream(Stream: TStream; Key: string;
|
||||
KeyBit: TKeyBit = kb128): TStream;
|
||||
function DecryptStream(Stream: TStream; Key: string;
|
||||
KeyBit: TKeyBit = kb128): TStream;
|
||||
procedure EncryptFile(SourceFile, DestFile: string;
|
||||
Key: string; KeyBit: TKeyBit = kb128);
|
||||
procedure DecryptFile(SourceFile, DestFile: string;
|
||||
Key: string; KeyBit: TKeyBit = kb128);
|
||||
|
||||
implementation
|
||||
|
||||
function StrToHex(Value: string): string;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
Result := '';
|
||||
for I := 1 to Length(Value) do
|
||||
Result := Result + IntToHex(Ord(Value[I]), 2);
|
||||
end;
|
||||
|
||||
function HexToStr(Value: string): string;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
Result := '';
|
||||
for I := 1 to Length(Value) do
|
||||
begin
|
||||
if ((I mod 2) = 1) then
|
||||
Result := Result + Chr(StrToInt('0x'+ Copy(Value, I, 2)));
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 字符串加密函数 默认按照 128 位密匙加密 -- }
|
||||
function EncryptString(Value: string; Key: string;
|
||||
KeyBit: TKeyBit = kb128): string;
|
||||
var
|
||||
SS, DS: TStringStream;
|
||||
Size: Int64;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
Result := '';
|
||||
SS := TStringStream.Create(Value);
|
||||
DS := TStringStream.Create('');
|
||||
try
|
||||
Size := SS.Size;
|
||||
DS.WriteBuffer(Size, SizeOf(Size));
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
EncryptAESStreamECB(SS, 0, AESKey128, DS);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
EncryptAESStreamECB(SS, 0, AESKey192, DS);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
EncryptAESStreamECB(SS, 0, AESKey256, DS);
|
||||
end;
|
||||
Result := StrToHex(DS.DataString);
|
||||
finally
|
||||
SS.Free;
|
||||
DS.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 字符串解密函数 默认按照 128 位密匙解密 -- }
|
||||
function DecryptString(Value: string; Key: string;
|
||||
KeyBit: TKeyBit = kb128): string;
|
||||
var
|
||||
SS, DS: TStringStream;
|
||||
Size: Int64;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
Result := '';
|
||||
SS := TStringStream.Create(HexToStr(Value));
|
||||
DS := TStringStream.Create('');
|
||||
try
|
||||
Size := SS.Size;
|
||||
SS.ReadBuffer(Size, SizeOf(Size));
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey128, DS);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey192, DS);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey256, DS);
|
||||
end;
|
||||
Result := DS.DataString;
|
||||
finally
|
||||
SS.Free;
|
||||
DS.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 流加密函数 默认按照 128 位密匙解密 -- }
|
||||
function EncryptStream(Stream: TStream; Key: string;
|
||||
KeyBit: TKeyBit = kb128): TStream;
|
||||
var
|
||||
Count: Int64;
|
||||
OutStrm: TStream;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
OutStrm := TStream.Create;
|
||||
Stream.Position := 0;
|
||||
Count := Stream.Size;
|
||||
OutStrm.Write(Count, SizeOf(Count));
|
||||
try
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
EncryptAESStreamECB(Stream, 0, AESKey128, OutStrm);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
EncryptAESStreamECB(Stream, 0, AESKey192, OutStrm);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
EncryptAESStreamECB(Stream, 0, AESKey256, OutStrm);
|
||||
end;
|
||||
Result := OutStrm;
|
||||
finally
|
||||
OutStrm.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 流解密函数 默认按照 128 位密匙解密 -- }
|
||||
function DecryptStream(Stream: TStream; Key: string;
|
||||
KeyBit: TKeyBit = kb128): TStream;
|
||||
var
|
||||
Count, OutPos: Int64;
|
||||
OutStrm: TStream;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
OutStrm := TStream.Create;
|
||||
Stream.Position := 0;
|
||||
OutPos :=OutStrm.Position;
|
||||
Stream.ReadBuffer(Count, SizeOf(Count));
|
||||
try
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,
|
||||
AESKey128, OutStrm);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,
|
||||
AESKey192, OutStrm);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,
|
||||
AESKey256, OutStrm);
|
||||
end;
|
||||
OutStrm.Size := OutPos + Count;
|
||||
OutStrm.Position := OutPos;
|
||||
Result := OutStrm;
|
||||
finally
|
||||
OutStrm.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 文件加密函数 默认按照 128 位密匙解密 -- }
|
||||
procedure EncryptFile(SourceFile, DestFile: string;
|
||||
Key: string; KeyBit: TKeyBit = kb128);
|
||||
var
|
||||
SFS, DFS: TFileStream;
|
||||
Size: Int64;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
SFS := TFileStream.Create(SourceFile, fmOpenRead);
|
||||
try
|
||||
DFS := TFileStream.Create(DestFile, fmCreate);
|
||||
try
|
||||
Size := SFS.Size;
|
||||
DFS.WriteBuffer(Size, SizeOf(Size));
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
EncryptAESStreamECB(SFS, 0, AESKey128, DFS);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
EncryptAESStreamECB(SFS, 0, AESKey192, DFS);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
EncryptAESStreamECB(SFS, 0, AESKey256, DFS);
|
||||
end;
|
||||
finally
|
||||
DFS.Free;
|
||||
end;
|
||||
finally
|
||||
SFS.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ -- 文件解密函数 默认按照 128 位密匙解密 -- }
|
||||
procedure DecryptFile(SourceFile, DestFile: string;
|
||||
Key: string; KeyBit: TKeyBit = kb128);
|
||||
var
|
||||
SFS, DFS: TFileStream;
|
||||
Size: Int64;
|
||||
AESKey128: TAESKey128;
|
||||
AESKey192: TAESKey192;
|
||||
AESKey256: TAESKey256;
|
||||
begin
|
||||
SFS := TFileStream.Create(SourceFile, fmOpenRead);
|
||||
try
|
||||
SFS.ReadBuffer(Size, SizeOf(Size));
|
||||
DFS := TFileStream.Create(DestFile, fmCreate);
|
||||
try
|
||||
{ -- 128 位密匙最大长度为 16 个字符 -- }
|
||||
if KeyBit = kb128 then
|
||||
begin
|
||||
FillChar(AESKey128, SizeOf(AESKey128), 0 );
|
||||
Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
|
||||
DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey128, DFS);
|
||||
end;
|
||||
{ -- 192 位密匙最大长度为 24 个字符 -- }
|
||||
if KeyBit = kb192 then
|
||||
begin
|
||||
FillChar(AESKey192, SizeOf(AESKey192), 0 );
|
||||
Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
|
||||
DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey192, DFS);
|
||||
end;
|
||||
{ -- 256 位密匙最大长度为 32 个字符 -- }
|
||||
if KeyBit = kb256 then
|
||||
begin
|
||||
FillChar(AESKey256, SizeOf(AESKey256), 0 );
|
||||
Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
|
||||
DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey256, DFS);
|
||||
end;
|
||||
DFS.Size := Size;
|
||||
finally
|
||||
DFS.Free;
|
||||
end;
|
||||
finally
|
||||
SFS.Free;
|
||||
end;
|
||||
end;
|
||||
end.
|
||||
2488
检验管理/ElAES.pas
Normal file
2488
检验管理/ElAES.pas
Normal file
File diff suppressed because it is too large
Load Diff
2
检验管理/FieldExportSet/.INI
Normal file
2
检验管理/FieldExportSet/.INI
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
[导出设置]
|
||||
导出字段=Begin/订单号/颜色/出库长度/长度单位/卷号/缸号
|
||||
2
检验管理/FieldExportSet/检验分析订单.INI
Normal file
2
检验管理/FieldExportSet/检验分析订单.INI
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
[导出设置]
|
||||
导出字段=Begin/布单号/布类/颜色/针寸数/重量(磅)/疵点个数
|
||||
2
检验管理/FieldExportSet/检验报告.INI
Normal file
2
检验管理/FieldExportSet/检验报告.INI
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
[导出设置]
|
||||
导出字段=Begin
|
||||
2
检验管理/FieldExportSet/采购单列表.INI
Normal file
2
检验管理/FieldExportSet/采购单列表.INI
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
[导出设置]
|
||||
导出字段=Begin/采购单编号/Fabric/布类
|
||||
6
检验管理/File.INI
Normal file
6
检验管理/File.INI
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
[生产车间配置]
|
||||
卷条码机台标志=
|
||||
机台个数=
|
||||
端口号=
|
||||
端口Dll文件=JZCRS323D.dll
|
||||
码表Dll文件=JCYData10.dll
|
||||
138
检验管理/OrderManage.dof
Normal file
138
检验管理/OrderManage.dof
Normal file
|
|
@ -0,0 +1,138 @@
|
|||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=D:\富通ERP
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=F:\selfware_83398\selfware\马国钢开发代码\项目代码\self\订单\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
[Version Info]
|
||||
IncludeVerInfo=0
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=2052
|
||||
CodePage=936
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
|
||||
23
检验管理/ProjectGroup1.bpg
Normal file
23
检验管理/ProjectGroup1.bpg
Normal file
|
|
@ -0,0 +1,23 @@
|
|||
#------------------------------------------------------------------------------
|
||||
VERSION = BWS.01
|
||||
#------------------------------------------------------------------------------
|
||||
!ifndef ROOT
|
||||
ROOT = $(MAKEDIR)\..
|
||||
!endif
|
||||
#------------------------------------------------------------------------------
|
||||
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
||||
DCC = $(ROOT)\bin\dcc32.exe $**
|
||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
||||
#------------------------------------------------------------------------------
|
||||
PROJECTS = testDll.exe ProductPrice.dll
|
||||
#------------------------------------------------------------------------------
|
||||
default: $(PROJECTS)
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
testDll.exe: testDll.dpr
|
||||
$(DCC)
|
||||
|
||||
ProductPrice.dll: ProductPrice.dpr
|
||||
$(DCC)
|
||||
|
||||
|
||||
38
检验管理/RCInspection.cfg
Normal file
38
检验管理/RCInspection.cfg
Normal file
|
|
@ -0,0 +1,38 @@
|
|||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"c:\program files\borland\delphi7\Projects\Bpl"
|
||||
-LN"c:\program files\borland\delphi7\Projects\Bpl"
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
141
检验管理/RCInspection.dof
Normal file
141
检验管理/RCInspection.dof
Normal file
|
|
@ -0,0 +1,141 @@
|
|||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\染厂检验管理\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
[Version Info]
|
||||
IncludeVerInfo=0
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=2052
|
||||
CodePage=936
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
BIN
检验管理/RCInspection.res
Normal file
BIN
检验管理/RCInspection.res
Normal file
Binary file not shown.
3
检验管理/SYSTEMSET.ini
Normal file
3
检验管理/SYSTEMSET.ini
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
[SERVER]
|
||||
服务器地址=127.0.0.1
|
||||
软件名称=XXXXXXX1
|
||||
38
检验管理/TradeManage.cfg
Normal file
38
检验管理/TradeManage.cfg
Normal file
|
|
@ -0,0 +1,38 @@
|
|||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
|
||||
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
141
检验管理/TradeManage.dof
Normal file
141
检验管理/TradeManage.dof
Normal file
|
|
@ -0,0 +1,141 @@
|
|||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\陈亿项目代码\项目代码\建增\检验管理\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
[Version Info]
|
||||
IncludeVerInfo=0
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=2052
|
||||
CodePage=936
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
77
检验管理/TradeManage.dpr
Normal file
77
检验管理/TradeManage.dpr
Normal file
|
|
@ -0,0 +1,77 @@
|
|||
library TradeManage;
|
||||
uses
|
||||
SysUtils,
|
||||
classes,
|
||||
forms,
|
||||
WinTypes,
|
||||
WinProcs,
|
||||
U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule},
|
||||
U_GetDllForm in 'U_GetDllForm.pas',
|
||||
U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
|
||||
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
||||
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
||||
U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
|
||||
U_GetAddRess in '..\..\..\ThreeFun\Form\U_GetAddRess.pas',
|
||||
U_iniParam in 'U_iniParam.pas',
|
||||
AES in 'AES.pas',
|
||||
ElAES in 'ElAES.pas',
|
||||
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
|
||||
U_LabelPrint in 'U_LabelPrint.pas' {frmLabelPrint},
|
||||
U_ConInPutNX in 'U_ConInPutNX.pas' {frmConInPutNX},
|
||||
U_MJManageNewFDNew in 'U_MJManageNewFDNew.pas' {frmMJManageNewFDNewSF},
|
||||
U_MJEdit in 'U_MJEdit.pas' {frmMJEdit},
|
||||
U_CpRkSaoMNewDB in 'U_CpRkSaoMNewDB.pas' {frmCpRkSaoMNewDB},
|
||||
U_OrderSelRK in 'U_OrderSelRK.pas' {frmOrderSelRK},
|
||||
U_CKProductBCPKCHZList in 'U_CKProductBCPKCHZList.pas' {frmCKProductBCPKCHZList},
|
||||
U_ClothHCList in 'U_ClothHCList.pas' {frmClothHCList},
|
||||
U_ContractListNX in 'U_ContractListNX.pas' {frmContractListNX},
|
||||
U_OrderJDList in 'U_OrderJDList.pas' {frmOrderJDList},
|
||||
U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel},
|
||||
U_ConInPut in 'U_ConInPut.pas' {frmConInPut},
|
||||
U_ClothContractInPut in 'U_ClothContractInPut.pas' {frmClothContractInPut},
|
||||
U_ClothContractList in 'U_ClothContractList.pas' {frmClothContractList},
|
||||
U_ClothContractInPutHZ in 'U_ClothContractInPutHZ.pas' {frmClothContractInPutHZ},
|
||||
U_OrderInPut in 'U_OrderInPut.pas' {frmOrderInPut},
|
||||
U_CKProductBCPOutList in 'U_CKProductBCPOutList.pas' {frmCKProductBCPOutList},
|
||||
U_CpRkSaoMNew in 'U_CpRkSaoMNew.pas' {frmCpRkSaoMNew},
|
||||
U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
|
||||
U_ProductOrderNewList_JD in 'U_ProductOrderNewList_JD.pas' {frmProductOrderNewList_JD},
|
||||
U_HCList in 'U_HCList.pas' {frmHCList},
|
||||
U_ModulePromptList in 'U_ModulePromptList.pas' {frmModulePromptList},
|
||||
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
||||
U_FjList in 'U_FjList.pas' {frmFjList},
|
||||
getpic in 'getpic.pas' {FormGetPic},
|
||||
U_JYOrderOther_Main in 'U_JYOrderOther_Main.pas' {FrmJYOrderOther},
|
||||
U_FjList10 in '..\..\..\ThreeFun\Form\U_FjList10.pas' {frmFjList10},
|
||||
U_CompressionFun in '..\..\..\ThreeFun\Fun\U_CompressionFun.pas',
|
||||
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
||||
U_CKJYList in 'U_CKJYList.pas' {frmCKJYList},
|
||||
U_CKProductJYHZList in 'U_CKProductJYHZList.pas' {frmCKProductJYHZList},
|
||||
U_SysLogOrder in 'U_SysLogOrder.pas' {frmSysLogOrder},
|
||||
U_MJSJFX in 'U_MJSJFX.pas' {frmMJSJFX},
|
||||
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
|
||||
U_frmsmewm in 'U_frmsmewm.pas' {frmsmewm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
procedure DllEnterPoint(dwReason: DWORD);far;stdcall;
|
||||
begin
|
||||
DLLProc := @DLLEnterPoint;
|
||||
DllEnterPoint(DLL_PROCESS_ATTACH);
|
||||
end;
|
||||
|
||||
procedure DLLUnloadProc(Reason: Integer); register;
|
||||
begin
|
||||
|
||||
end;
|
||||
exports
|
||||
GetDllForm;
|
||||
begin
|
||||
try
|
||||
NewDllApp:=Application;
|
||||
DLLProc := @DLLUnloadProc;
|
||||
except
|
||||
|
||||
end;
|
||||
end.
|
||||
|
||||
BIN
检验管理/TradeManage.rar
Normal file
BIN
检验管理/TradeManage.rar
Normal file
Binary file not shown.
BIN
检验管理/TradeManage.res
Normal file
BIN
检验管理/TradeManage.res
Normal file
Binary file not shown.
202
检验管理/U.dfm
Normal file
202
检验管理/U.dfm
Normal file
|
|
@ -0,0 +1,202 @@
|
|||
object Form1: TForm1
|
||||
Left = 204
|
||||
Top = 180
|
||||
Width = 870
|
||||
Height = 500
|
||||
Caption = 'Form1'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 862
|
||||
Height = 30
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_RCInspection.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object ToolButton2: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 58
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 59
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 862
|
||||
Height = 41
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 25
|
||||
Top = 16
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #24067#21305#26465#30721
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object APID: TEdit
|
||||
Left = 80
|
||||
Top = 10
|
||||
Width = 138
|
||||
Height = 24
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 71
|
||||
Width = 862
|
||||
Height = 392
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv2: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv2CDQty
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_RCInspection.TextSHuangSe
|
||||
object tv2CDType: TcxGridDBColumn
|
||||
Caption = #30133#28857#21517#31216
|
||||
DataBinding.FieldName = 'CDName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Options.Sorting = False
|
||||
Styles.Content = DataLink_RCInspection.Default
|
||||
Width = 144
|
||||
end
|
||||
object tv2CDWZ: TcxGridDBColumn
|
||||
Caption = #20301#32622#36215
|
||||
DataBinding.FieldName = 'CDBeg'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Content = DataLink_RCInspection.Default
|
||||
Width = 96
|
||||
end
|
||||
object v2Column2: TcxGridDBColumn
|
||||
Caption = #20301#32622#27490
|
||||
DataBinding.FieldName = 'CDend'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Styles.Content = DataLink_RCInspection.Default
|
||||
Width = 93
|
||||
end
|
||||
object Tv2CDQty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'CDQty'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Content = DataLink_RCInspection.Default
|
||||
Width = 93
|
||||
end
|
||||
object Tv2CDReason: TcxGridDBColumn
|
||||
Caption = #21407#22240
|
||||
DataBinding.FieldName = 'CDReason'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Width = 131
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'CDQty'
|
||||
Visible = False
|
||||
Width = 55
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
object ADOTmp: TADOQuery
|
||||
Connection = DataLink_RCInspection.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 336
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_RCInspection.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 312
|
||||
Top = 200
|
||||
end
|
||||
object ADOCmd: TADOQuery
|
||||
Connection = DataLink_RCInspection.ADOLink
|
||||
Parameters = <>
|
||||
Left = 288
|
||||
Top = 40
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_MJ
|
||||
Left = 528
|
||||
Top = 200
|
||||
end
|
||||
object Order_MJ: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 344
|
||||
Top = 200
|
||||
end
|
||||
end
|
||||
48
检验管理/U.pas
Normal file
48
检验管理/U.pas
Normal file
|
|
@ -0,0 +1,48 @@
|
|||
unit U;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB,
|
||||
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||
cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls,
|
||||
ComCtrls, ToolWin;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
ToolButton2: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
Label1: TLabel;
|
||||
APID: TEdit;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv2: TcxGridDBTableView;
|
||||
tv2CDType: TcxGridDBColumn;
|
||||
tv2CDWZ: TcxGridDBColumn;
|
||||
v2Column2: TcxGridDBColumn;
|
||||
Tv2CDQty: TcxGridDBColumn;
|
||||
Tv2CDReason: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
ADOTmp: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOCmd: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
Order_MJ: TClientDataSet;
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
end.
|
||||
201
检验管理/U_BanCpCkSaoM.dfm
Normal file
201
检验管理/U_BanCpCkSaoM.dfm
Normal file
|
|
@ -0,0 +1,201 @@
|
|||
object frmBanCpCkSaoM: TfrmBanCpCkSaoM
|
||||
Left = 241
|
||||
Top = 177
|
||||
Width = 870
|
||||
Height = 500
|
||||
Caption = #21322#25104#21697#20986#24211#25195#25551
|
||||
Color = clBtnFace
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 16
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 81
|
||||
Width = 862
|
||||
Height = 382
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnDblClick = Tv1DblClick
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'orderNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 97
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #20013#25991#21517#31216
|
||||
DataBinding.FieldName = 'MPRTCodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 101
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 78
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'GangNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 58
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #26465#30721
|
||||
DataBinding.FieldName = 'MJID'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 112
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20986#24211#26102#38388
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 88
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #20986#24211#20844#26020#25968
|
||||
DataBinding.FieldName = 'KGQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 89
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #20986#24211#38271#24230
|
||||
DataBinding.FieldName = 'Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 99
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #38271#24230#21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 862
|
||||
Height = 81
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 56
|
||||
Top = 40
|
||||
Width = 68
|
||||
Height = 16
|
||||
Caption = #25195#25551#20837#21475
|
||||
end
|
||||
object XJID: TEdit
|
||||
Left = 124
|
||||
Top = 37
|
||||
Width = 167
|
||||
Height = 24
|
||||
TabOrder = 0
|
||||
OnKeyPress = XJIDKeyPress
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 309
|
||||
Top = 38
|
||||
Width = 75
|
||||
Height = 23
|
||||
Caption = #20986#24211
|
||||
TabOrder = 1
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 413
|
||||
Top = 38
|
||||
Width = 75
|
||||
Height = 23
|
||||
Caption = #20851#38381
|
||||
TabOrder = 2
|
||||
OnClick = Button2Click
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 728
|
||||
Top = 136
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 760
|
||||
Top = 136
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 792
|
||||
Top = 136
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 944
|
||||
Top = 32
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 968
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 984
|
||||
Top = 40
|
||||
end
|
||||
end
|
||||
253
检验管理/U_BanCpCkSaoM.pas
Normal file
253
检验管理/U_BanCpCkSaoM.pas
Normal file
|
|
@ -0,0 +1,253 @@
|
|||
unit U_BanCpCkSaoM;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGrid;
|
||||
|
||||
type
|
||||
TfrmBanCpCkSaoM = class(TForm)
|
||||
cxGrid2: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v2Column3: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
CDS_Main: TClientDataSet;
|
||||
DataSource1: TDataSource;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
Panel1: TPanel;
|
||||
XJID: TEdit;
|
||||
Label1: TLabel;
|
||||
Button1: TButton;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
Button2: TButton;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure XJIDKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Tv1DblClick(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
procedure InitGrid();
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmBanCpCkSaoM: TfrmBanCpCkSaoM;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun ;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmBanCpCkSaoM.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpCkSaoM.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmBanCpCkSaoM:=nil;
|
||||
end;
|
||||
procedure TfrmBanCpCkSaoM.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,F.KCQty,F.KCKgQty,F.KCQtyUnit,KK.GangNo ');
|
||||
sql.add('from CK_BanCP_CR A ');
|
||||
Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
|
||||
Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
|
||||
Sql.add(' inner join WFB_MJJY D on A.MJId=D.MJId');
|
||||
sql.Add(' inner join JYOrder_Sub_AnPai KK on D.APID=KK.APID');
|
||||
sql.Add(' inner join CK_BanCP_KC F on A.CRID=F.CRID');
|
||||
sql.add('where 1<>1');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpCkSaoM.FormShow(Sender: TObject);
|
||||
begin
|
||||
ReadCxGrid('成品出库',Tv1,'成品仓库');
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpCkSaoM.XJIDKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select A.* ');
|
||||
sql.add('from CK_BanCP_CR A ');
|
||||
sql.add('where A.MJID='''+Trim(XJID.Text)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('条码错误！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,F.KCQty,F.KCKgQty,F.KCQtyUnit,KK.GangNo ');
|
||||
sql.add('from CK_BanCP_CR A ');
|
||||
Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
|
||||
Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
|
||||
Sql.add(' inner join WFB_MJJY D on A.MJId=D.MJId');
|
||||
sql.Add(' inner join JYOrder_Sub_AnPai KK on D.APID=KK.APID');
|
||||
sql.Add(' inner join CK_BanCP_KC F on A.CRID=F.CRID');
|
||||
sql.add('where A.MJID='''+Trim(XJID.Text)+'''');
|
||||
sql.Add(' and KCQty>0 and A.CRType=''检验入库'' ');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty=False then
|
||||
begin
|
||||
if CDS_Main.Locate('MJID',Trim(ADOQueryTemp.fieldbyname('MJID').AsString),[])=True then
|
||||
begin
|
||||
Application.MessageBox('已经扫描过，不能再次扫描！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
with CDS_Main do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('OrderNo').Value:=ADOQueryTemp.fieldbyname('OrderNo').Value;
|
||||
FieldByName('MPRTCodeName').Value:=ADOQueryTemp.fieldbyname('MPRTCodeName').Value;
|
||||
FieldByName('PRTColor').Value:=ADOQueryTemp.fieldbyname('PRTColor').Value;
|
||||
FieldByName('GangNo').Value:=ADOQueryTemp.fieldbyname('GangNo').Value;
|
||||
FieldByName('CRID').Value:=ADOQueryTemp.fieldbyname('CRID').Value;
|
||||
FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryCmd);
|
||||
FieldByName('KGQty').Value:=ADOQueryTemp.fieldbyname('kCKGQty').Value;
|
||||
FieldByName('Qty').Value:=ADOQueryTemp.fieldbyname('KCQty').Value;
|
||||
FieldByName('QtyUnit').Value:=ADOQueryTemp.fieldbyname('KCQtyUnit').Value;
|
||||
FieldByName('MJID').Value:=ADOQueryTemp.fieldbyname('MJID').Value;
|
||||
FieldByName('APID').Value:=ADOQueryTemp.fieldbyname('APID').Value;
|
||||
Post;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
Application.MessageBox('此卷已经出库，不能再次出库！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
XJID.Text:='';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpCkSaoM.Button1Click(Sender: TObject);
|
||||
var
|
||||
maxno:string;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
XJID.SetFocus;
|
||||
if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with CDS_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd,maxno,'ZC','CK_BanCp_CR',4,1)=False then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取出库最大号失败！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update CK_BanCp_CR Set NowOutFlag=1 where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+'''');
|
||||
SQL.Add(' and CRType=''正常出库'' ');
|
||||
ExecSQL;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from CK_BanCp_CR where 1<>1');
|
||||
Open;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('BCID').Value:=Trim(maxno);
|
||||
FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value;
|
||||
FieldByName('CRTime').Value:=CDS_Main.fieldbyname('CRTime').Value;
|
||||
FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value;
|
||||
FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value;
|
||||
FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value;
|
||||
FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value;
|
||||
FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value;
|
||||
FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value;
|
||||
FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp);
|
||||
FieldByName('Filler').Value:=Trim(DName);
|
||||
FieldByName('CRFlag').Value:='出库';
|
||||
FieldByName('CRType').Value:='正常出库';
|
||||
Post;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update CK_BanCp_KC set KCKgQty=0,KCQty=0 where CRID='+CDS_Main.fieldbyname('CRID').AsString);
|
||||
ExecSQL;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
InitGrid();
|
||||
Application.MessageBox('出库成功！','提示',0);
|
||||
Exit;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('出库异常！','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpCkSaoM.Tv1DblClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
CDS_Main.Delete;
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpCkSaoM.Button2Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
WriteCxGrid('成品出库',Tv1,'成品仓库');
|
||||
end;
|
||||
|
||||
end.
|
||||
212
检验管理/U_BanCpHCSaoM.dfm
Normal file
212
检验管理/U_BanCpHCSaoM.dfm
Normal file
|
|
@ -0,0 +1,212 @@
|
|||
object frmBanCpHCSaoM: TfrmBanCpHCSaoM
|
||||
Left = 241
|
||||
Top = 177
|
||||
Width = 905
|
||||
Height = 504
|
||||
Caption = #21322#25104#21697#22238#20179#25195#25551
|
||||
Color = clBtnFace
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 16
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 81
|
||||
Width = 897
|
||||
Height = 386
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = cxStyle1
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'orderNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 77
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #20135#21697#20195#21495
|
||||
DataBinding.FieldName = 'MPRTCodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 112
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 77
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'MPRTMF'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 58
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'MPRTKZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 57
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #26465#30721
|
||||
DataBinding.FieldName = 'MJID'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 123
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #22238#20179#26102#38388
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 88
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #22238#20179#20844#26020#25968
|
||||
DataBinding.FieldName = 'KGQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #22238#20179#38271#24230
|
||||
DataBinding.FieldName = 'Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 85
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #38271#24230#21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
Options.Focusing = False
|
||||
Width = 74
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 897
|
||||
Height = 81
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 56
|
||||
Top = 40
|
||||
Width = 68
|
||||
Height = 16
|
||||
Caption = #25195#25551#20837#21475
|
||||
end
|
||||
object XJID: TEdit
|
||||
Left = 124
|
||||
Top = 37
|
||||
Width = 167
|
||||
Height = 24
|
||||
TabOrder = 0
|
||||
OnKeyPress = XJIDKeyPress
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 309
|
||||
Top = 38
|
||||
Width = 75
|
||||
Height = 23
|
||||
Caption = #22238#20179
|
||||
TabOrder = 1
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 421
|
||||
Top = 38
|
||||
Width = 75
|
||||
Height = 23
|
||||
Caption = #20851#38381
|
||||
TabOrder = 2
|
||||
OnClick = Button2Click
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 728
|
||||
Top = 136
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 760
|
||||
Top = 136
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 792
|
||||
Top = 136
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 944
|
||||
Top = 32
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 968
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 984
|
||||
Top = 40
|
||||
end
|
||||
object cxStyleRepository1: TcxStyleRepository
|
||||
object cxStyle1: TcxStyle
|
||||
end
|
||||
end
|
||||
end
|
||||
264
检验管理/U_BanCpHCSaoM.pas
Normal file
264
检验管理/U_BanCpHCSaoM.pas
Normal file
|
|
@ -0,0 +1,264 @@
|
|||
unit U_BanCpHCSaoM;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGrid;
|
||||
|
||||
type
|
||||
TfrmBanCpHCSaoM = class(TForm)
|
||||
cxGrid2: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v2Column3: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
CDS_Main: TClientDataSet;
|
||||
DataSource1: TDataSource;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
Panel1: TPanel;
|
||||
XJID: TEdit;
|
||||
Label1: TLabel;
|
||||
Button1: TButton;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
Button2: TButton;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
cxStyleRepository1: TcxStyleRepository;
|
||||
cxStyle1: TcxStyle;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure XJIDKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
procedure InitGrid();
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmBanCpHCSaoM: TfrmBanCpHCSaoM;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun ;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmBanCpHCSaoM.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpHCSaoM.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmBanCpHCSaoM:=nil;
|
||||
end;
|
||||
procedure TfrmBanCpHCSaoM.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,B.MPRTMF,B.MPRTKZ ');
|
||||
sql.add('from CK_BanCP_CR A ');
|
||||
Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
|
||||
Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
|
||||
sql.add('where 1<>1');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpHCSaoM.FormShow(Sender: TObject);
|
||||
begin
|
||||
ReadCxGrid('成品回仓',Tv1,'成品仓库');
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpHCSaoM.XJIDKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select A.* ');
|
||||
sql.add('from CK_BanCP_CR A ');
|
||||
sql.add('where A.MJID='''+Trim(XJID.Text)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('条码错误！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,B.MPRTMF,B.MPRTKZ,F.KCQty,F.KCKgQty ');
|
||||
sql.add('from CK_BanCP_CR A ');
|
||||
Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
|
||||
Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
|
||||
sql.Add(' inner join CK_BanCP_KC F on A.CRID=F.CRID');
|
||||
sql.add('where A.MJID='''+Trim(XJID.Text)+'''');
|
||||
sql.Add(' and KCQty=0 and A.CRType=''检验入库'' ');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty=false then
|
||||
begin
|
||||
if CDS_Main.Locate('MJID',Trim(ADOQueryTemp.fieldbyname('MJID').AsString),[])=True then
|
||||
begin
|
||||
Application.MessageBox('已经扫描过，不能再次扫描！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
with CDS_Main do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('OrderNo').Value:=ADOQueryTemp.fieldbyname('OrderNo').Value;
|
||||
FieldByName('MPRTCodeName').Value:=ADOQueryTemp.fieldbyname('MPRTCodeName').Value;
|
||||
FieldByName('PRTColor').Value:=ADOQueryTemp.fieldbyname('PRTColor').Value;
|
||||
FieldByName('MPRTMF').Value:=ADOQueryTemp.fieldbyname('MPRTMF').Value;
|
||||
FieldByName('MPRTKZ').Value:=ADOQueryTemp.fieldbyname('MPRTKZ').Value;
|
||||
FieldByName('CRID').Value:=ADOQueryTemp.fieldbyname('CRID').Value;
|
||||
FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryCmd);
|
||||
FieldByName('KGQty').Value:=ADOQueryTemp.fieldbyname('KGQty').Value;
|
||||
FieldByName('Qty').Value:=ADOQueryTemp.fieldbyname('Qty').Value;
|
||||
FieldByName('QtyUnit').Value:=ADOQueryTemp.fieldbyname('QtyUnit').Value;
|
||||
FieldByName('MainID').Value:=ADOQueryTemp.fieldbyname('MainID').Value;
|
||||
FieldByName('SubID').Value:=ADOQueryTemp.fieldbyname('SubID').Value;
|
||||
FieldByName('APID').Value:=ADOQueryTemp.fieldbyname('APID').Value;
|
||||
FieldByName('CPType').Value:=ADOQueryTemp.fieldbyname('CPType').Value;
|
||||
FieldByName('MJID').Value:=ADOQueryTemp.fieldbyname('MJID').Value;
|
||||
Post;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
Application.MessageBox('此卷已在仓库中，无需回仓！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
XJID.Text:='';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpHCSaoM.Button1Click(Sender: TObject);
|
||||
var
|
||||
maxno:string;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
if CDS_Main.Locate('KgQty',0,[]) then
|
||||
begin
|
||||
Application.MessageBox('回仓公斤数不能为0！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Main.Locate('Qty',0,[]) then
|
||||
begin
|
||||
Application.MessageBox('回仓长度不能为0！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Main.Locate('KgQty',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('回仓公斤数不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Main.Locate('Qty',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('回仓长度不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
XJID.SetFocus;
|
||||
if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with CDS_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd,maxno,'HC','CK_BanCp_CR',4,1)=False then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取出库最大号失败！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from CK_BanCp_CR where 1<>1');
|
||||
Open;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('BCID').Value:=Trim(maxno);
|
||||
FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value;
|
||||
FieldByName('CRTime').Value:=CDS_Main.fieldbyname('CRTime').Value;
|
||||
FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value;
|
||||
FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value;
|
||||
FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value;
|
||||
FieldByName('MainID').Value:=CDS_Main.fieldbyname('MainID').Value;
|
||||
FieldByName('SubID').Value:=CDS_Main.fieldbyname('SubID').Value;
|
||||
FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value;
|
||||
FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value;
|
||||
FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value;
|
||||
FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp);
|
||||
FieldByName('Filler').Value:=Trim(DName);
|
||||
FieldByName('CRFlag').Value:='入库';
|
||||
FieldByName('CRType').Value:='回仓';
|
||||
Post;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('Update CK_BanCp_KC set KCKgQty='+cds_main.fieldbyname('KgQty').AsString);
|
||||
SQL.Add(',KCQty='+cds_main.fieldbyname('Qty').AsString);
|
||||
sql.Add(' where CRID='+CDS_Main.fieldbyname('CRID').AsString);
|
||||
ExecSQL;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
InitGrid();
|
||||
Application.MessageBox('回仓成功！','提示',0);
|
||||
Exit;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('回仓异常！','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBanCpHCSaoM.Button2Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
WriteCxGrid('成品回仓',Tv1,'成品仓库');
|
||||
end;
|
||||
|
||||
end.
|
||||
255
检验管理/U_BangAdd.dfm
Normal file
255
检验管理/U_BangAdd.dfm
Normal file
|
|
@ -0,0 +1,255 @@
|
|||
object frmBangAdd: TfrmBangAdd
|
||||
Left = 232
|
||||
Top = 185
|
||||
Width = 703
|
||||
Height = 396
|
||||
Caption = #26816#39564#31216#37325
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object Label1: TLabel
|
||||
Left = 193
|
||||
Top = 79
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #25195#25551#20837#21475
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 392
|
||||
Top = 77
|
||||
Width = 9
|
||||
Height = 16
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 193
|
||||
Top = 115
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #31216' '#37325
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 387
|
||||
Top = 115
|
||||
Width = 15
|
||||
Height = 14
|
||||
Caption = #30917
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -14
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 193
|
||||
Top = 147
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #32440' '#31649
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 387
|
||||
Top = 147
|
||||
Width = 15
|
||||
Height = 14
|
||||
Caption = #30917
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -14
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 193
|
||||
Top = 179
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #33014' '#24102
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 387
|
||||
Top = 179
|
||||
Width = 15
|
||||
Height = 14
|
||||
Caption = #30917
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -14
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object MJID: TEdit
|
||||
Left = 248
|
||||
Top = 73
|
||||
Width = 138
|
||||
Height = 24
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnKeyPress = MJIDKeyPress
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 193
|
||||
Top = 232
|
||||
Width = 57
|
||||
Height = 25
|
||||
Caption = #30830#23450
|
||||
TabOrder = 1
|
||||
OnClick = Button1Click
|
||||
OnKeyPress = Button1KeyPress
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 343
|
||||
Top = 232
|
||||
Width = 60
|
||||
Height = 25
|
||||
Caption = #36864#20986
|
||||
TabOrder = 2
|
||||
OnClick = Button2Click
|
||||
end
|
||||
object Edit1: TEdit
|
||||
Left = 248
|
||||
Top = 109
|
||||
Width = 136
|
||||
Height = 24
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
OnKeyPress = MJIDKeyPress
|
||||
end
|
||||
object CheckBox1: TCheckBox
|
||||
Left = 248
|
||||
Top = 44
|
||||
Width = 97
|
||||
Height = 17
|
||||
Caption = #33258#21160#35835#21462
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 4
|
||||
OnClick = CheckBox1Click
|
||||
end
|
||||
object Edit2: TEdit
|
||||
Left = 248
|
||||
Top = 141
|
||||
Width = 136
|
||||
Height = 24
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
OnKeyPress = MJIDKeyPress
|
||||
end
|
||||
object Edit3: TEdit
|
||||
Left = 248
|
||||
Top = 173
|
||||
Width = 136
|
||||
Height = 24
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 6
|
||||
OnKeyPress = MJIDKeyPress
|
||||
end
|
||||
object ADOCmd: TADOQuery
|
||||
Connection = DataLink_RCInspection.ADOLink
|
||||
Parameters = <>
|
||||
Left = 608
|
||||
Top = 144
|
||||
end
|
||||
object ADOTmp: TADOQuery
|
||||
Connection = DataLink_RCInspection.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 608
|
||||
Top = 200
|
||||
end
|
||||
object RM2: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
ShowPrintDialog = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDB_Main
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 560
|
||||
Top = 200
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDB_Main: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = ADOQueryPrint
|
||||
Left = 536
|
||||
Top = 144
|
||||
end
|
||||
object ADOQueryPrint: TADOQuery
|
||||
Connection = DataLink_RCInspection.ADOLink
|
||||
Parameters = <>
|
||||
Left = 512
|
||||
Top = 184
|
||||
end
|
||||
end
|
||||
308
检验管理/U_BangAdd.pas
Normal file
308
检验管理/U_BangAdd.pas
Normal file
|
|
@ -0,0 +1,308 @@
|
|||
unit U_BangAdd;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, DB, ADODB,OleCtrls, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport;
|
||||
function CommOpen(fhandle:hwnd;sCommName:PAnsiChar;
|
||||
IntTime:integer;IsMessage:integer):integer;stdcall;external 'ELERS323C.DLL';
|
||||
function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'ELERS323C.DLL';
|
||||
|
||||
type
|
||||
TfrmBangAdd = class(TForm)
|
||||
Label1: TLabel;
|
||||
MJID: TEdit;
|
||||
Label2: TLabel;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Edit1: TEdit;
|
||||
ADOCmd: TADOQuery;
|
||||
ADOTmp: TADOQuery;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
CheckBox1: TCheckBox;
|
||||
RM2: TRMGridReport;
|
||||
RMDB_Main: TRMDBDataSet;
|
||||
ADOQueryPrint: TADOQuery;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Edit2: TEdit;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
Edit3: TEdit;
|
||||
procedure MJIDKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CheckBox1Click(Sender: TObject);
|
||||
procedure Button1KeyPress(Sender: TObject; var Key: Char);
|
||||
private
|
||||
{ Private declarations }
|
||||
procedure On1201(Var Message:Tmessage);Message 1201;
|
||||
procedure PrintData();
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmBangAdd: TfrmBangAdd;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
procedure TfrmBangAdd.On1201(Var Message:Tmessage);
|
||||
var
|
||||
i1,i2:integer;
|
||||
unitname:string;
|
||||
fdata:double;
|
||||
begin
|
||||
i1:=message.WParam;
|
||||
i2:=message.LParam;
|
||||
|
||||
Edit1.Text:= floattostr(i1 *i2 /100000 );
|
||||
end;
|
||||
|
||||
procedure TfrmBangAdd.MJIDKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
with ADOTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from WFB_MJJY where MJID='''+Trim(MJID.Text)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTmp.IsEmpty=False then
|
||||
begin
|
||||
Label2.Visible:=True;
|
||||
Label2.Caption:=Trim(ADOTmp.fieldbyname('MJID').AsString);
|
||||
end else
|
||||
begin
|
||||
MJID.Text:='';
|
||||
Label2.Visible:=False;
|
||||
Label2.Caption:='';
|
||||
Application.MessageBox('条码错误!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
MJID.Text:='';
|
||||
Button1.SetFocus;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBangAdd.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmBangAdd:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmBangAdd.Button1Click(Sender: TObject);
|
||||
var
|
||||
FZG,FJD:string;
|
||||
FFreal,FMJMaoZ:Double;
|
||||
begin
|
||||
if Label2.Caption='' then
|
||||
begin
|
||||
Application.MessageBox('未扫条码!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Trim(Edit1.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('重量不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
with ADOTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from WFB_MJJY where MJID='''+Trim(Label2.Caption)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTmp.FieldByName('MJMaoZ').AsFloat>0 then
|
||||
begin
|
||||
if Application.MessageBox('已称重，确定要重新称重吗？','提示',32+4)<>IDYES then Exit;
|
||||
end;
|
||||
if Trim(Edit2.Text)<>'' then
|
||||
begin
|
||||
if TryStrToFloat(Edit2.Text,FFreal)=False then
|
||||
begin
|
||||
Application.MessageBox('非法数字!','提示',0);
|
||||
Exit;
|
||||
end else
|
||||
begin
|
||||
FZG:=Edit2.Text;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
FZG:='0';
|
||||
end;
|
||||
if Trim(Edit3.Text)<>'' then
|
||||
begin
|
||||
if TryStrToFloat(Edit3.Text,FFreal)=False then
|
||||
begin
|
||||
Application.MessageBox('非法数字!','提示',0);
|
||||
Exit;
|
||||
end else
|
||||
begin
|
||||
FJD:=Edit3.Text;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
FJD:='0';
|
||||
end;
|
||||
FMJMaoZ:=StrToFloat(Edit1.Text)-StrToFloat(FZG);
|
||||
try
|
||||
ADOCmd.Connection.BeginTrans;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update WFB_MJJY Set MJMaoZ='+Trim(Floattostr(FMJMaoZ)));
|
||||
sql.add(',MJQty1='+Trim(Edit1.Text));
|
||||
sql.add(',MJQty2='+Trim(FZG));
|
||||
sql.add(',MJQty3='+Trim(FJD));
|
||||
SQL.Add(' where MJID='''+Trim(Label2.Caption)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
ADOCmd.Connection.CommitTrans;
|
||||
PrintData();
|
||||
Label2.Caption:='';
|
||||
Label2.Visible:=False;
|
||||
MJID.SetFocus;
|
||||
//Application.MessageBox('操作成功!','提示',0);
|
||||
except
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('操作失败!','提示',0);
|
||||
end;
|
||||
end;
|
||||
procedure TfrmBangAdd.PrintData();
|
||||
var
|
||||
fPrintFile,LabInt,LabName:String;
|
||||
begin
|
||||
with ADOTmp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' select C.SLbInt,C.SLbName from WFB_MJJY A');
|
||||
sql.Add(' inner join JYOrder_Sub_AnPai B on A.APID=B.APID');
|
||||
sql.Add(' inner join JYOrder_Sub C on B.SubId=C.SubId');
|
||||
sql.Add(' where A.MJID='''+Trim(Label2.Caption)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTmp.IsEmpty=False then
|
||||
begin
|
||||
LabInt:=ADOTmp.fieldbyname('SLbInt').AsString;
|
||||
LabName:=ADOTmp.fieldbyname('SLbName').AsString;
|
||||
end ;
|
||||
if Trim(LabName)='' then
|
||||
begin
|
||||
Application.MessageBox('卷标签未设置！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
{ try
|
||||
frmLabelPrint:=TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
begin
|
||||
fLabelId:=LabInt;
|
||||
FFCDFlag:=Trim(CDFlag);
|
||||
fKeyNo:=Trim(FXJID);
|
||||
fIsPreviewPrint:=True;
|
||||
frmLabelPrint.Button1.Click;
|
||||
// if ShowModal=1 then
|
||||
//begin
|
||||
|
||||
// end;
|
||||
end;
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
end; }
|
||||
with ADOQueryPrint do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select D.OrderNo,C.PRTColor,C.PRTKZ,C.PRTType,D.OrdDefStr2,D.OrdDefStr3,D.OrdDefStr7,B.AOrdDefNote30,A.MJXH,B.GangNo');
|
||||
SQL.Add(',C.PRTMF,C.SOrddefstr3,C.SOrddefstr5,D.DlyDate,D.DLyPlace,A.MJMaoZ,B.AOrdDefNote31,C.SOrddefstr4,');
|
||||
SQL.Add('ColorEngName=(select top 1 Note from KH_Zdy E where E.ZdyName=C.PRTColor and E.Type=''OrdColor'' ),');
|
||||
{SQL.Add('MJBang=Cast((A.MJMaoZ*2.2046) as decimal(18,2)),');
|
||||
SQL.Add('MJMaoZBang=Cast(((A.MJQty1+A.MJQty3)*2.2046) as decimal(18,2)),');
|
||||
SQL.Add('MAQty=Cast((A.MJMaoZ*100*1000/(A.MJSJKZ*(A.MJFK*2.54))*0.9144) as decimal(18,2) ),');
|
||||
SQL.Add('MQty=Cast((A.MJMaoZ*100*1000/(A.MJSJKZ*(A.MJFK*2.54))) as decimal(18,2) ),');
|
||||
SQL.Add('MaoZ=A.MJQty1+A.MJQty3,');
|
||||
SQL.Add('JingZ=A.MJQty1-A.MJQty2'); }
|
||||
SQL.Add('MJBang=A.MJMaoZ,');
|
||||
SQL.Add('MJMaoZBang=A.MJQty1+A.MJQty3,');
|
||||
SQL.Add('MAQty=Cast((A.MJMaoZ*0.4536*100*1000/(A.MJSJKZ*(A.MJFK*2.54))*0.9144) as decimal(18,2) ),');
|
||||
SQL.Add('MQty=Cast((A.MJMaoZ*0.4536*100*1000/(A.MJSJKZ*(A.MJFK*2.54))) as decimal(18,2) ),');
|
||||
SQL.Add('MaoZ=Cast((A.MJQty1+A.MJQty3)*0.4536 as decimal(18,2)),');
|
||||
SQL.Add('JingZ=Cast((A.MJQty1-A.MJQty2)*0.4536 as decimal(18,2))');
|
||||
SQL.Add('from WFB_MJJY A inner join JYOrder_Sub_AnPai B on A.APID=B.APID');
|
||||
SQL.Add('inner join JYOrder_Sub C on B.SubId=C.SubId');
|
||||
SQL.Add('inner join JYOrder_Main D on C.MainId=D.Mainid');
|
||||
SQL.Add('where A.MJID='''+Trim(Label2.Caption)+'''');
|
||||
Open;
|
||||
end;
|
||||
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf' ;
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
RM2.LoadFromFile(fPrintFile);
|
||||
//RM2.ShowReport;
|
||||
Rm2.PrintReport;
|
||||
end else
|
||||
begin
|
||||
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf'),'提示',0);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmBangAdd.Button2Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmBangAdd.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
if CheckBox1.Checked=False then
|
||||
CommClose(pchar('com1'));
|
||||
end;
|
||||
|
||||
procedure TfrmBangAdd.FormShow(Sender: TObject);
|
||||
begin
|
||||
if CommOpen(frmBangAdd.Handle,pchar('com1'),500,1)<1 then
|
||||
begin
|
||||
showmessage('串口打开失败!');
|
||||
end
|
||||
else
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBangAdd.CheckBox1Click(Sender: TObject);
|
||||
begin
|
||||
if CheckBox1.Checked=True then
|
||||
begin
|
||||
if CommOpen(frmBangAdd.Handle,pchar('com1'),500,1)<1 then
|
||||
begin
|
||||
showmessage('串口打开失败!');
|
||||
end
|
||||
else
|
||||
begin
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
CommClose(pchar('com1'));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBangAdd.Button1KeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
Button1.Click;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
335
检验管理/U_BefChkHX.dfm
Normal file
335
检验管理/U_BefChkHX.dfm
Normal file
|
|
@ -0,0 +1,335 @@
|
|||
object frmBefChkHX: TfrmBefChkHX
|
||||
Left = 213
|
||||
Top = 134
|
||||
Width = 870
|
||||
Height = 534
|
||||
Caption = #26816#21069#22238#20462
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 854
|
||||
Height = 73
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 0
|
||||
object orderno: TLabel
|
||||
Left = 48
|
||||
Top = 24
|
||||
Width = 63
|
||||
Height = 16
|
||||
Caption = 'orderno'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object PRTColor: TLabel
|
||||
Left = 168
|
||||
Top = 24
|
||||
Width = 72
|
||||
Height = 16
|
||||
Caption = 'PRTColor'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object FirstName: TLabel
|
||||
Left = 296
|
||||
Top = 24
|
||||
Width = 81
|
||||
Height = 16
|
||||
Caption = 'FirstName'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object PBFactory: TLabel
|
||||
Left = 464
|
||||
Top = 24
|
||||
Width = 81
|
||||
Height = 16
|
||||
Caption = 'PBFactory'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 854
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButton2: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 111
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 248
|
||||
Top = 0
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 105
|
||||
Width = 854
|
||||
Height = 390
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object TV2: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = '0'
|
||||
Position = spFooter
|
||||
Column = V2Column1
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = V2Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = V2Column7
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object V2Column2: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #22238#20462#26102#38388
|
||||
DataBinding.FieldName = 'HXDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 96
|
||||
end
|
||||
object V2Column8: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #26579#21378
|
||||
DataBinding.FieldName = 'HXFactory'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 84
|
||||
end
|
||||
object V2Column7: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21305#25968#37327
|
||||
DataBinding.FieldName = 'HXPS'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 50
|
||||
end
|
||||
object V2Column1: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'HXQty'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.FonePurple
|
||||
Width = 69
|
||||
end
|
||||
object V2Column9: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'GangNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 71
|
||||
end
|
||||
object V2Column5: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'HXUnit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 74
|
||||
end
|
||||
object V2Column6: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'HXNote'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 123
|
||||
end
|
||||
object V2Column4: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'HXType'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 71
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = TV2
|
||||
end
|
||||
end
|
||||
object ADOQuery1: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 352
|
||||
Top = 8
|
||||
end
|
||||
object ADOQuery2: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 512
|
||||
Top = 8
|
||||
end
|
||||
object ADOQuery3: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 440
|
||||
Top = 8
|
||||
end
|
||||
object ClientDataSet1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 448
|
||||
Top = 216
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = ClientDataSet1
|
||||
Left = 480
|
||||
Top = 224
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 312
|
||||
Top = 256
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = CDS_PRT
|
||||
Left = 416
|
||||
Top = 160
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
ShowPrintDialog = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 464
|
||||
Top = 168
|
||||
ReportData = {}
|
||||
end
|
||||
object CDS_PRT: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 392
|
||||
Top = 288
|
||||
end
|
||||
end
|
||||
256
检验管理/U_BefChkHX.pas
Normal file
256
检验管理/U_BefChkHX.pas
Normal file
|
|
@ -0,0 +1,256 @@
|
|||
unit U_BefChkHX;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, StdCtrls, cxGridLevel, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
|
||||
cxGridCustomView, cxGrid, ComCtrls, ToolWin, ExtCtrls, cxDropDownEdit,
|
||||
DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Common,
|
||||
RM_Class, RM_GridReport, RM_System, RM_Dataset;
|
||||
|
||||
type
|
||||
TfrmBefChkHX = class(TForm)
|
||||
Panel1: TPanel;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton2: TToolButton;
|
||||
ToolButton3: TToolButton;
|
||||
ToolButton4: TToolButton;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
V2Column2: TcxGridDBColumn;
|
||||
V2Column8: TcxGridDBColumn;
|
||||
V2Column7: TcxGridDBColumn;
|
||||
V2Column1: TcxGridDBColumn;
|
||||
V2Column5: TcxGridDBColumn;
|
||||
V2Column6: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
orderno: TLabel;
|
||||
PRTColor: TLabel;
|
||||
FirstName: TLabel;
|
||||
PBFactory: TLabel;
|
||||
ADOQuery1: TADOQuery;
|
||||
ADOQuery2: TADOQuery;
|
||||
ADOQuery3: TADOQuery;
|
||||
ClientDataSet1: TClientDataSet;
|
||||
DataSource1: TDataSource;
|
||||
ToolButton1: TToolButton;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
V2Column4: TcxGridDBColumn;
|
||||
V2Column9: TcxGridDBColumn;
|
||||
ToolButton5: TToolButton;
|
||||
RMDBMain: TRMDBDataSet;
|
||||
RM1: TRMGridReport;
|
||||
CDS_PRT: TClientDataSet;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
FLLID,HXUnit:String;
|
||||
end;
|
||||
|
||||
var
|
||||
frmBefChkHX: TfrmBefChkHX;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmBefChkHX.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmBefChkHX:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmBefChkHX.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmBefChkHX.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
with ClientDataSet1 do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('HXFactory').Value:=Trim(FirstName.Caption);
|
||||
FieldByName('HXDate').Value:=SGetServerDate(ADOQuery2);
|
||||
FieldByName('HXType').Value:='检前回修';
|
||||
FieldByName('HXUnit').Value:=Trim(HXUnit);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBefChkHX.ToolButton3Click(Sender: TObject);
|
||||
begin
|
||||
if ClientDataSet1.IsEmpty then Exit;
|
||||
if Trim(ClientDataSet1.fieldbyname('HXType').AsString)<>'检前回修' then Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
with ADOQuery3 do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('delete Contract_Cloth_BefChkHX where HXID='''+Trim(ClientDataSet1.fieldbyname('HXID').AsString)+'''');
|
||||
sql.Add('Update Contract_Cloth_LL Set HXPS=(select isnull(sum(HXPS),0) from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')');
|
||||
sql.Add(',HXQty=(select isnull(sum(HXQty),0) from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')');
|
||||
sql.Add(',HXMQty=(select isnull(sum(HXMQty),0) from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')');
|
||||
sql.Add(',HXUnit=(select Top 1 HXUnit from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')');
|
||||
sql.Add(' where LLID='''+Trim(FLLID)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
ClientDataSet1.Delete;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmBefChkHX.ToolButton4Click(Sender: TObject);
|
||||
var
|
||||
maxno:string;
|
||||
FSubId:String;
|
||||
begin
|
||||
try
|
||||
ADOQuery3.Connection.BeginTrans;
|
||||
with ClientDataSet1 do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Trim(ClientDataSet1.fieldbyname('HXType').AsString)='检前回修' then
|
||||
begin
|
||||
if Trim(ClientDataSet1.fieldbyname('HXID').AsString)='' then
|
||||
begin
|
||||
with ADOQuery1 do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Contract_Cloth_LL where LLID='''+Trim(FLLID)+'''');
|
||||
Open;
|
||||
end;
|
||||
FSubId:=Trim(ADOQuery1.fieldbyname('OrdSubId').AsString);
|
||||
with ADOQuery1 do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from JYOrder_Sub_AnPai where Subid='''+Trim(FSubId)+'''');
|
||||
// sql.Add(' and GangNo='''+Trim(ClientDataSet1.fieldbyname('GangNo').AsString)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQuery1.IsEmpty then
|
||||
begin
|
||||
ADOQuery3.Connection.RollbackTrans;
|
||||
Application.MessageBox('未回仓不能保存回修数据!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
if Trim(ClientDataSet1.fieldbyname('HXID').AsString)='' then
|
||||
begin
|
||||
if GetLSNo(ADOQuery3,maxno,'HX','Contract_Cloth_BefChkHX',2,1)=False then
|
||||
begin
|
||||
ADOQuery3.Connection.RollbackTrans;
|
||||
Application.MessageBox('取回修最大号失败!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
maxno:=Trim(ClientDataSet1.fieldbyname('HXID').AsString);
|
||||
end;
|
||||
with ADOQuery3 do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Contract_Cloth_BefChkHX where HXID='''+Trim(ClientDataSet1.fieldbyname('HXID').AsString)+'''');
|
||||
Open;
|
||||
end;
|
||||
with ADOQuery3 do
|
||||
begin
|
||||
if Trim(ClientDataSet1.fieldbyname('HXID').AsString)='' then
|
||||
Append
|
||||
else
|
||||
Edit;
|
||||
FieldByName('LLID').Value:=Trim(FLLID);
|
||||
FieldByName('HXID').Value:=Trim(maxno);
|
||||
SSetSaveDataCDSNew(ADOQuery3,TV2,ClientDataSet1,'Contract_Cloth_BefChkHX',2);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
with ADOQuery3 do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('Update Contract_Cloth_BefChkHX Set HXMQty=HXQty*ZSXS where LLID='''+Trim(FLLID)+'''');
|
||||
sql.Add('Update Contract_Cloth_LL Set HXPS=(select sum(HXPS) from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)');
|
||||
sql.Add(',HXQty=(select sum(HXQty) from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)');
|
||||
sql.Add(',HXMQty=(select sum(HXMQty) from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)');
|
||||
sql.Add(',HXUnit=(select Top 1 HXUnit from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)');
|
||||
sql.Add(' where LLID='''+Trim(FLLID)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
ADOQuery3.Connection.CommitTrans;
|
||||
Application.MessageBox('保存成功!','提示',0);
|
||||
Exit;
|
||||
except
|
||||
ADOQuery3.Connection.RollbackTrans;
|
||||
Application.MessageBox('保存异常!','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBefChkHX.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
WriteCxGrid('检前回修',TV2,'回仓管理');
|
||||
end;
|
||||
|
||||
procedure TfrmBefChkHX.FormShow(Sender: TObject);
|
||||
begin
|
||||
ReadCxGrid('检前回修',TV2,'回仓管理');
|
||||
end;
|
||||
|
||||
procedure TfrmBefChkHX.ToolButton5Click(Sender: TObject);
|
||||
var
|
||||
fPrintFile:string;
|
||||
begin
|
||||
if ClientDataSet1.IsEmpty then Exit;
|
||||
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\回修单.rmf' ;
|
||||
with ADOQuery1 do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select A.*,C.PRTColor,D.MPRTCodeName,D.MPRTSpec,D.OrderNo from Contract_Cloth_BefChkHX A');
|
||||
sql.Add(' inner join Contract_Cloth_LL B on A.LLID=B.LLID');
|
||||
sql.Add(' inner join JYOrder_Sub C on B.OrdSubId=C.SubID');
|
||||
sql.Add(' inner join JYOrder_Main D on C.MainId=D.MainId');
|
||||
sql.Add(' where A.HXID='''+Trim(ClientDataSet1.fieldbyname('HXID').AsString)+'''');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQuery1,CDS_PRT);
|
||||
SInitCDSData20(ADOQuery1,CDS_PRT);
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
//RMVariables['begindate']:=begindate.DateTime;
|
||||
//RMVariables['enddate']:=enddate.DateTime;
|
||||
//RMVariables['printtime']:=Now;
|
||||
RMVariables['DYFiller']:=Trim(DName);
|
||||
RM1.LoadFromFile(fPrintFile);
|
||||
RM1.ShowReport;
|
||||
end else
|
||||
begin
|
||||
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\回修单.rmf'),'提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
652
检验管理/U_CKJYList.dfm
Normal file
652
检验管理/U_CKJYList.dfm
Normal file
|
|
@ -0,0 +1,652 @@
|
|||
object frmCKJYList: TfrmCKJYList
|
||||
Left = -8
|
||||
Top = -8
|
||||
Width = 1382
|
||||
Height = 754
|
||||
Caption = #25104#21697#20986#24211#27719#24635#20449#24687
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object Label17: TLabel
|
||||
Left = 840
|
||||
Top = 144
|
||||
Width = 42
|
||||
Height = 12
|
||||
Caption = 'Label17'
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1366
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 9
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
Visible = False
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1366
|
||||
Height = 48
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 24
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26597#35810#26102#38388
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 168
|
||||
Top = 12
|
||||
Width = 6
|
||||
Height = 12
|
||||
Caption = '-'
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 211
|
||||
Top = 100
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20811' '#37325
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 380
|
||||
Top = 108
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #38376#24133
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 624
|
||||
Top = 84
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #31867' '#22411
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 496
|
||||
Top = 40
|
||||
Width = 6
|
||||
Height = 12
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 488
|
||||
Top = 80
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #19994#21153#21592
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 488
|
||||
Top = 104
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #36319#21333#21592
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 292
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #35746' '#21333' '#21495
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 600
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #39068#33394
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 448
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #21592#24037#21517#31216
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 724
|
||||
Top = 12
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #21512#21516#21495
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 1028
|
||||
Top = 12
|
||||
Width = 18
|
||||
Height = 12
|
||||
Caption = 'PO#'
|
||||
Visible = False
|
||||
end
|
||||
object Label16: TLabel
|
||||
Left = 364
|
||||
Top = 76
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #32593#21495
|
||||
Visible = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 756
|
||||
Top = 84
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #33457#21517
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 73
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 181
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 1
|
||||
end
|
||||
object MPRTKZ: TEdit
|
||||
Tag = 2
|
||||
Left = 260
|
||||
Top = 96
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object MPRTMF: TEdit
|
||||
Tag = 2
|
||||
Left = 404
|
||||
Top = 104
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object CPType: TComboBox
|
||||
Tag = 2
|
||||
Left = 675
|
||||
Top = 80
|
||||
Width = 68
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
TabOrder = 4
|
||||
OnChange = TBFindClick
|
||||
Items.Strings = (
|
||||
#27491#21697
|
||||
#27425#21697
|
||||
#22810#25340
|
||||
'')
|
||||
end
|
||||
object YWY: TEdit
|
||||
Tag = 2
|
||||
Left = 526
|
||||
Top = 76
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object OrdPerson1: TEdit
|
||||
Tag = 2
|
||||
Left = 526
|
||||
Top = 100
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object orderNo: TEdit
|
||||
Tag = 2
|
||||
Left = 342
|
||||
Top = 8
|
||||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 7
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object PRTColor: TEdit
|
||||
Tag = 2
|
||||
Left = 626
|
||||
Top = 8
|
||||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 8
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object filler: TEdit
|
||||
Tag = 2
|
||||
Left = 498
|
||||
Top = 8
|
||||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 9
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object conNo: TEdit
|
||||
Tag = 2
|
||||
Left = 766
|
||||
Top = 8
|
||||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 10
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object KHCONNO: TEdit
|
||||
Tag = 2
|
||||
Left = 1050
|
||||
Top = 8
|
||||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 11
|
||||
Visible = False
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object wangno: TEdit
|
||||
Tag = 2
|
||||
Left = 398
|
||||
Top = 72
|
||||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 12
|
||||
Visible = False
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object huaname: TEdit
|
||||
Tag = 2
|
||||
Left = 790
|
||||
Top = 80
|
||||
Width = 80
|
||||
Height = 20
|
||||
TabOrder = 13
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 101
|
||||
Width = 1366
|
||||
Height = 615
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseUp = Tv1MouseUp
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column12
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column9
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #26816#39564#26085#26399
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 142
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #21592#24037#21517#31216
|
||||
DataBinding.FieldName = 'Filler'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = 'PO#'
|
||||
DataBinding.FieldName = 'KHCONNO'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 94
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #21512#21516#21495
|
||||
DataBinding.FieldName = 'conNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'orderNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 110
|
||||
end
|
||||
object v1Column13: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustomerNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #35746#21333#24635#25968
|
||||
DataBinding.FieldName = 'ZQTY'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21367#25968
|
||||
DataBinding.FieldName = 'JQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #27611#37325
|
||||
DataBinding.FieldName = 'KGQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #38271#24230
|
||||
DataBinding.FieldName = 'Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'MjTypeOther'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 69
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #20013#25991#21517#31216
|
||||
DataBinding.FieldName = 'PRTCodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 125
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #38271#24230'(M)'
|
||||
DataBinding.FieldName = 'Qty_M'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 90
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #27599#21367#24179#22343#38271#24230'(M)'
|
||||
DataBinding.FieldName = 'Roll_M'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 120
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object Panel4: TPanel
|
||||
Left = 62
|
||||
Top = 139
|
||||
Width = 294
|
||||
Height = 213
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
object Label14: TLabel
|
||||
Left = 48
|
||||
Top = 88
|
||||
Width = 6
|
||||
Height = 12
|
||||
end
|
||||
object Panel10: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 292
|
||||
Height = 23
|
||||
Align = alTop
|
||||
Alignment = taLeftJustify
|
||||
BevelOuter = bvNone
|
||||
Caption = #20107#20214#35828#26126
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object Image2: TImage
|
||||
Left = 269
|
||||
Top = 3
|
||||
Width = 22
|
||||
Height = 16
|
||||
ParentShowHint = False
|
||||
Picture.Data = {
|
||||
07544269746D617076040000424D760400000000000036000000280000001500
|
||||
0000110000000100180000000000400400000000000000000000000000000000
|
||||
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
|
||||
F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
|
||||
404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
|
||||
808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
|
||||
000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00}
|
||||
ShowHint = True
|
||||
Transparent = True
|
||||
OnClick = Image2Click
|
||||
end
|
||||
end
|
||||
object RichEdit1: TRichEdit
|
||||
Left = 1
|
||||
Top = 24
|
||||
Width = 292
|
||||
Height = 188
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 81
|
||||
Width = 1366
|
||||
Height = 20
|
||||
Align = alTop
|
||||
TabOrder = 5
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectRight = 0
|
||||
ClientRectTop = 0
|
||||
end
|
||||
object MovePanel2: TMovePanel
|
||||
Left = 408
|
||||
Top = 192
|
||||
Width = 289
|
||||
Height = 49
|
||||
BevelInner = bvLowered
|
||||
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -14
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 968
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
CommandTimeout = 60
|
||||
Parameters = <>
|
||||
Left = 984
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 980
|
||||
Top = 4
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 920
|
||||
Top = 152
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 888
|
||||
Top = 144
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 896
|
||||
Top = 128
|
||||
end
|
||||
end
|
||||
302
检验管理/U_CKJYList.pas
Normal file
302
检验管理/U_CKJYList.pas
Normal file
|
|
@ -0,0 +1,302 @@
|
|||
unit U_CKJYList;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit,
|
||||
cxCalendar, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
dxBarBuiltInMenu;
|
||||
|
||||
type
|
||||
TfrmCKJYList = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBExport: TToolButton;
|
||||
TBPrint: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
CDS_Main: TClientDataSet;
|
||||
Label8: TLabel;
|
||||
MPRTKZ: TEdit;
|
||||
Label9: TLabel;
|
||||
MPRTMF: TEdit;
|
||||
Label7: TLabel;
|
||||
CPType: TComboBox;
|
||||
MovePanel2: TMovePanel;
|
||||
Label10: TLabel;
|
||||
Label11: TLabel;
|
||||
Label12: TLabel;
|
||||
YWY: TEdit;
|
||||
OrdPerson1: TEdit;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
orderNo: TEdit;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
PRTColor: TEdit;
|
||||
Label13: TLabel;
|
||||
filler: TEdit;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
conNo: TEdit;
|
||||
Label4: TLabel;
|
||||
Panel4: TPanel;
|
||||
Label14: TLabel;
|
||||
Panel10: TPanel;
|
||||
Image2: TImage;
|
||||
RichEdit1: TRichEdit;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
KHCONNO: TEdit;
|
||||
Label15: TLabel;
|
||||
cxTabControl1: TcxTabControl;
|
||||
v1Column9: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
Label16: TLabel;
|
||||
wangno: TEdit;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
huaname: TEdit;
|
||||
Label3: TLabel;
|
||||
Label17: TLabel;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ConNoMChange(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure MPRTCodeNameChange(Sender: TObject);
|
||||
procedure v1Column5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure PRTColorChange(Sender: TObject);
|
||||
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Image2Click(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
private
|
||||
FLeft,FTop:Integer;
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmCKJYList: TfrmCKJYList;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun,U_ZDYHelp;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmCKJYList.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmCKJYList:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//cxGrid1.Align:=alClient;
|
||||
BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
|
||||
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
Filtered:=False;
|
||||
sql.Add('select convert(char(10),A.FillTime,120) as CRTime,A.Filler,A.mainID,A.MjTypeOther,C.OrderNo,D.PRTCodeName,C.conNo,C.CustomerNoName,D.PrtColor,');
|
||||
sql.Add('count(A.MainId) as JQty,SUM(A.MJlen) as Qty,SUM(A.MJmaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,SUM(A.MJQty5) as MJQty5,');
|
||||
sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)');
|
||||
sql.Add(',Qty_M=sum(case when MjTypeOther=''Y'' then cast(MJlen*0.9144 as decimal(18,2)) else MJLen end)');
|
||||
sql.Add(',Roll_M= cast(sum(case when MjTypeOther=''Y'' then cast(MJlen*0.9144 as decimal(18,2)) else MJLen end)/count(A.MainId) as decimal(18,2))');
|
||||
SQL.Add(',CJQTY=(select count(X.Mainid) from WFB_MJJY X where X.Mainid=A.Mainid and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)');
|
||||
SQL.Add(',CQTY=(select SUM(MJlen) from WFB_MJJY X where X.Mainid=A.Mainid and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)');
|
||||
SQL.Add(',CKGQTY=(select SUM(MJmaoZ) from WFB_MJJY X where X.Mainid=A.Mainid and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)');
|
||||
SQL.Add(',CMJQty4=(select SUM(MJQty4) from WFB_MJJY X where X.Mainid=A.Mainid and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)');
|
||||
sql.Add(',ZQTY=(select sum(PRTOrderQty) from JYOrder_sub X where X.mainid=A.mainid)');
|
||||
sql.Add('from WFB_MJJY A ');
|
||||
sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId ');
|
||||
sql.Add('inner join JYOrder_sub D on D.subID=A.subID ');
|
||||
Sql.add('where A.FillTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' ');
|
||||
Sql.add('and A.FillTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' ');
|
||||
IF cxTabControl1.TabIndex=0 then
|
||||
Sql.add('and not exists(select MJID from CK_BanCP_KC X where X.MJID=A.MJID) ')
|
||||
else
|
||||
IF cxTabControl1.TabIndex=1 then
|
||||
Sql.add('and exists(select MJID from CK_BanCP_KC X where X.MJID=A.MJID) ');
|
||||
Sql.add('group by convert(char(10),A.FillTime,120),A.Filler,A.mainID,A.MjTypeOther,C.OrderNo,D.PRTCodeName,C.conNo,C.CustomerNoName,D.PrtColor');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
//BegDate.SetFocus;
|
||||
MovePanel2.Visible:=True;
|
||||
MovePanel2.Refresh;
|
||||
InitGrid();
|
||||
MovePanel2.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库1');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.FormShow(Sender: TObject);
|
||||
begin
|
||||
|
||||
ReadCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库1');
|
||||
if Trim(DParameters2)='管理' then
|
||||
begin
|
||||
//v1Column5.Options.Focusing:=True;
|
||||
end else
|
||||
begin
|
||||
//v1Column5.Options.Focusing:=False;
|
||||
end;
|
||||
//InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
TcxGridToExcel('库存汇总列表',cxGrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.MPRTCodeNameChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.v1Column5PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='SOrdDefStr10';
|
||||
flagname:='库存存放地点';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
with CDS_Main do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('SOrdDefStr10').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update JYOrder_Sub Set SOrdDefStr10='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
|
||||
sql.Add(' where SubId='''+Trim(Self.CDS_Main.fieldbyname('SubId').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.PRTColorChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.Tv1MouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
FLeft:=X;
|
||||
FTop:=Y;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
Panel4.Left:=FLeft;
|
||||
Panel4.Top:=FTop+110;
|
||||
Panel4.Visible:=True;
|
||||
Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption);
|
||||
RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
|
||||
application.ProcessMessages;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.Image2Click(Sender: TObject);
|
||||
begin
|
||||
Panel4.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
|
||||
end.
|
||||
390
检验管理/U_CKProductBCPHCList.dfm
Normal file
390
检验管理/U_CKProductBCPHCList.dfm
Normal file
|
|
@ -0,0 +1,390 @@
|
|||
object frmCKProductBCPHCList: TfrmCKProductBCPHCList
|
||||
Left = 128
|
||||
Top = 152
|
||||
Width = 1027
|
||||
Height = 511
|
||||
Caption = #25104#21697#22238#20179#21015#34920
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1019
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 9
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
Visible = False
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1019
|
||||
Height = 72
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 357
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20013#25991#21517#31216
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 526
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #39068#33394
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 28
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26597#35810#26102#38388
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 64
|
||||
Top = 36
|
||||
Width = 12
|
||||
Height = 12
|
||||
Caption = #33267
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 178
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #35746' '#21333' '#21495
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 178
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26465' '#30721
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 357
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20811' '#37325
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 526
|
||||
Top = 36
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #38376#24133
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 648
|
||||
Top = 36
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #31867#22411
|
||||
end
|
||||
object MPRTCodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 406
|
||||
Top = 9
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object PRTColor: TEdit
|
||||
Tag = 2
|
||||
Left = 550
|
||||
Top = 9
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 1
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 77
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 2
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 77
|
||||
Top = 33
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 3
|
||||
end
|
||||
object orderNo: TEdit
|
||||
Tag = 2
|
||||
Left = 228
|
||||
Top = 9
|
||||
Width = 109
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object MJID: TEdit
|
||||
Tag = 2
|
||||
Left = 228
|
||||
Top = 33
|
||||
Width = 109
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object MPRTKZ: TEdit
|
||||
Tag = 2
|
||||
Left = 406
|
||||
Top = 33
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object MPRTMF: TEdit
|
||||
Tag = 2
|
||||
Left = 550
|
||||
Top = 32
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 7
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object CPType: TComboBox
|
||||
Tag = 2
|
||||
Left = 674
|
||||
Top = 32
|
||||
Width = 68
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
TabOrder = 8
|
||||
OnChange = TBFindClick
|
||||
Items.Strings = (
|
||||
#27491#21697
|
||||
#27425#21697
|
||||
'')
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 105
|
||||
Width = 1019
|
||||
Height = 369
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skCount
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'orderNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 74
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #20013#25991#21517#31216
|
||||
DataBinding.FieldName = 'MPRTCodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 92
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 77
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'MPRTMF'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'MPRTKZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 59
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #26465#30721
|
||||
DataBinding.FieldName = 'MJID'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'CPType'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 63
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #22238#20179#26102#38388
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 107
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #22238#20179#20844#26020#25968
|
||||
DataBinding.FieldName = 'KGQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 83
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #22238#20179#38271#24230
|
||||
DataBinding.FieldName = 'Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 85
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #38271#24230#21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 83
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 968
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 984
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 944
|
||||
Top = 32
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 920
|
||||
Top = 152
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 888
|
||||
Top = 144
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 896
|
||||
Top = 128
|
||||
end
|
||||
end
|
||||
182
检验管理/U_CKProductBCPHCList.pas
Normal file
182
检验管理/U_CKProductBCPHCList.pas
Normal file
|
|
@ -0,0 +1,182 @@
|
|||
unit U_CKProductBCPHCList;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit;
|
||||
|
||||
type
|
||||
TfrmCKProductBCPHCList = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBExport: TToolButton;
|
||||
TBPrint: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
MPRTCodeName: TEdit;
|
||||
PRTColor: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
CDS_Main: TClientDataSet;
|
||||
Tv1: TcxGridDBTableView;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
cxGrid2: TcxGrid;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v2Column3: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
Label5: TLabel;
|
||||
orderNo: TEdit;
|
||||
Label6: TLabel;
|
||||
MJID: TEdit;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v1Column9: TcxGridDBColumn;
|
||||
Label8: TLabel;
|
||||
MPRTKZ: TEdit;
|
||||
Label9: TLabel;
|
||||
MPRTMF: TEdit;
|
||||
Label7: TLabel;
|
||||
CPType: TComboBox;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ConNoMChange(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure MPRTCodeNameChange(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmCKProductBCPHCList: TfrmCKProductBCPHCList;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmCKProductBCPHCList.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmCKProductBCPHCList:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPHCList.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPHCList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//cxGrid1.Align:=alClient;
|
||||
BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
|
||||
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPHCList.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,B.MPRTMF,B.MPRTKZ');
|
||||
sql.add('from CK_BanCP_CR A ');
|
||||
Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
|
||||
Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
|
||||
Sql.add(' inner join WFB_MJJY D on A.MJId=D.MJId');
|
||||
sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate');
|
||||
SQL.Add(' and CRType=''回仓'' ');
|
||||
Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime));
|
||||
Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1));
|
||||
Open;
|
||||
//ShowMessage(SQL.Text);
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPHCList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
BegDate.SetFocus;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPHCList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPHCList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('仓库回仓列表',Tv1,'成品仓库');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPHCList.FormShow(Sender: TObject);
|
||||
begin
|
||||
|
||||
ReadCxGrid('仓库回仓列表',Tv1,'成品仓库');
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPHCList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
TcxGridToExcel('回仓列表',cxGrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPHCList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPHCList.MPRTCodeNameChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
end.
|
||||
811
检验管理/U_CKProductBCPInList.dfm
Normal file
811
检验管理/U_CKProductBCPInList.dfm
Normal file
|
|
@ -0,0 +1,811 @@
|
|||
object frmCKProductBCPInList: TfrmCKProductBCPInList
|
||||
Left = 122
|
||||
Top = 53
|
||||
Width = 1083
|
||||
Height = 680
|
||||
Caption = #25104#21697#20837#24211#21015#34920
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1067
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 9
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
Caption = #26174#31034#24211#23384
|
||||
ImageIndex = 59
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 209
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBRKCX: TToolButton
|
||||
Left = 272
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#20837#24211
|
||||
ImageIndex = 105
|
||||
Visible = False
|
||||
OnClick = TBRKCXClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 359
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 422
|
||||
Top = 3
|
||||
Width = 140
|
||||
Height = 24
|
||||
Style = csDropDownList
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ItemHeight = 16
|
||||
ItemIndex = 0
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
Text = #38144#21806#30721#21333
|
||||
Items.Strings = (
|
||||
#38144#21806#30721#21333
|
||||
#38144#21806#30721#21333'-'#23433#24247
|
||||
#38144#21806#30721#21333'-QLO'
|
||||
#21333#33394#21253#35013
|
||||
#21333#33394#21253#35013'-'#38271#24230
|
||||
#28151#33394#21253#35013'-10'#33394
|
||||
#28151#33394#21253#35013'-'#37325#37327)
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 562
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1067
|
||||
Height = 76
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 337
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20013#25991#21517#31216
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 490
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #39068#33394
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 28
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26597#35810#26102#38388
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 64
|
||||
Top = 36
|
||||
Width = 12
|
||||
Height = 12
|
||||
Caption = #33267
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 178
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #35746' '#21333' '#21495
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 178
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26465' '#30721
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 337
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20811' '#37325
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 490
|
||||
Top = 36
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #38376#24133
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 624
|
||||
Top = 36
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #31867#22411
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 624
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #21253#21495
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 1116
|
||||
Top = 12
|
||||
Width = 46
|
||||
Height = 12
|
||||
Caption = #21253#25968#65306'0'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 761
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #33457#22411#33457#21495
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 761
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #33394' '#21495
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 905
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20837#24211#21333#21495
|
||||
end
|
||||
object Label16: TLabel
|
||||
Left = 905
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #32568' '#21495
|
||||
end
|
||||
object PRTCodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 386
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 77
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 77
|
||||
Top = 33
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 2
|
||||
end
|
||||
object orderNo: TEdit
|
||||
Tag = 2
|
||||
Left = 228
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = orderNoChange
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object MJID: TEdit
|
||||
Tag = 2
|
||||
Left = 228
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTKZ: TEdit
|
||||
Tag = 1
|
||||
Left = 386
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTMF: TEdit
|
||||
Tag = 1
|
||||
Left = 516
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object CPType: TComboBox
|
||||
Tag = 2
|
||||
Left = 650
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
TabOrder = 7
|
||||
OnChange = TBFindClick
|
||||
Items.Strings = (
|
||||
#27491#21697
|
||||
#27425#21697
|
||||
#22810#25340
|
||||
''
|
||||
'')
|
||||
end
|
||||
object PRTColor: TComboBox
|
||||
Tag = 1
|
||||
Left = 516
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
ItemHeight = 12
|
||||
TabOrder = 8
|
||||
OnChange = PRTColorChange
|
||||
end
|
||||
object BaoNo: TEdit
|
||||
Tag = 2
|
||||
Left = 650
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 9
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTHX: TEdit
|
||||
Tag = 2
|
||||
Left = 810
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 10
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object SOrddefstr1: TEdit
|
||||
Tag = 2
|
||||
Left = 810
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 11
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object RKOrdID: TEdit
|
||||
Tag = 2
|
||||
Left = 954
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 12
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object MJstr4: TEdit
|
||||
Tag = 2
|
||||
Left = 954
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 13
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object CheckBox1: TCheckBox
|
||||
Left = 28
|
||||
Top = 52
|
||||
Width = 97
|
||||
Height = 17
|
||||
Caption = #20840#36873
|
||||
TabOrder = 14
|
||||
OnClick = CheckBox1Click
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 109
|
||||
Width = 1067
|
||||
Height = 533
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseUp = Tv1MouseUp
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCellClick = Tv1CellClick
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skCount
|
||||
Column = v1Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column15
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column16
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 40
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'orderNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 74
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #20013#25991#21517#31216
|
||||
DataBinding.FieldName = 'PRTCodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object v1Column11: TcxGridDBColumn
|
||||
Caption = #33457#22411#33457#21495
|
||||
DataBinding.FieldName = 'PRTHX'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'PRTMF'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'PRTKZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 59
|
||||
end
|
||||
object v1Column13: TcxGridDBColumn
|
||||
Caption = #20837#24211#21333#21495
|
||||
DataBinding.FieldName = 'RKOrdID'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 69
|
||||
end
|
||||
object v1Column14: TcxGridDBColumn
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'RKPlace'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 54
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #21367#21495
|
||||
DataBinding.FieldName = 'MJXH'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21367#26465#30721
|
||||
DataBinding.FieldName = 'MJID'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #21253#21495
|
||||
DataBinding.FieldName = 'BaoNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 52
|
||||
end
|
||||
object v1BAOid: TcxGridDBColumn
|
||||
Caption = #21253#26465#30721
|
||||
DataBinding.FieldName = 'BAOid'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 90
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'CPType'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 65
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20837#24211#26102#38388
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 107
|
||||
end
|
||||
object v1Column15: TcxGridDBColumn
|
||||
Caption = #30382#37325
|
||||
DataBinding.FieldName = 'MJqty3'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 59
|
||||
end
|
||||
object v1Column16: TcxGridDBColumn
|
||||
Caption = #20928#37325
|
||||
DataBinding.FieldName = 'MJqty4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 56
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #27611#37325
|
||||
DataBinding.FieldName = 'KGQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 62
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #20837#24211#38271#24230
|
||||
DataBinding.FieldName = 'Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 85
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #38271#24230#21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 83
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'SOrddefstr1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v1Column17: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'MJstr4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v1Column18: TcxGridDBColumn
|
||||
Caption = #26579#21378#32568#21495
|
||||
DataBinding.FieldName = 'MJstr5'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object Panel4: TPanel
|
||||
Left = 62
|
||||
Top = 148
|
||||
Width = 294
|
||||
Height = 212
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
object Label11: TLabel
|
||||
Left = 48
|
||||
Top = 88
|
||||
Width = 6
|
||||
Height = 12
|
||||
end
|
||||
object Panel10: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 292
|
||||
Height = 24
|
||||
Align = alTop
|
||||
Alignment = taLeftJustify
|
||||
BevelOuter = bvNone
|
||||
Caption = #20107#20214#35828#26126
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object Image2: TImage
|
||||
Left = 269
|
||||
Top = 3
|
||||
Width = 22
|
||||
Height = 16
|
||||
ParentShowHint = False
|
||||
Picture.Data = {
|
||||
07544269746D617076040000424D760400000000000036000000280000001500
|
||||
0000110000000100180000000000400400000000000000000000000000000000
|
||||
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
|
||||
F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
|
||||
404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
|
||||
808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
|
||||
000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00}
|
||||
ShowHint = True
|
||||
Transparent = True
|
||||
OnClick = Image2Click
|
||||
end
|
||||
end
|
||||
object RichEdit1: TRichEdit
|
||||
Left = 1
|
||||
Top = 25
|
||||
Width = 292
|
||||
Height = 186
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 888
|
||||
Top = 8
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 936
|
||||
Top = 8
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 844
|
||||
Top = 8
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 932
|
||||
Top = 260
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 888
|
||||
Top = 144
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 836
|
||||
Top = 260
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 368
|
||||
Top = 168
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = CDS_PRT
|
||||
Left = 520
|
||||
Top = 260
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 100
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 432
|
||||
Top = 224
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 564
|
||||
Top = 284
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Caption = #20840#24323
|
||||
OnClick = N2Click
|
||||
end
|
||||
end
|
||||
object ADOQueryPrint: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 1076
|
||||
Top = 17
|
||||
end
|
||||
object RMDBHZ: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = CDS_HZ
|
||||
Left = 572
|
||||
Top = 168
|
||||
end
|
||||
object CDS_HZ: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 568
|
||||
Top = 224
|
||||
end
|
||||
object CDS_PRT: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 512
|
||||
Top = 224
|
||||
end
|
||||
end
|
||||
771
检验管理/U_CKProductBCPInList.pas
Normal file
771
检验管理/U_CKProductBCPInList.pas
Normal file
|
|
@ -0,0 +1,771 @@
|
|||
unit U_CKProductBCPInList;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
|
||||
RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmCKProductBCPInList = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBExport: TToolButton;
|
||||
TBPrint: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
PRTCodeName: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
CDS_Main: TClientDataSet;
|
||||
Label5: TLabel;
|
||||
orderNo: TEdit;
|
||||
Label6: TLabel;
|
||||
MJID: TEdit;
|
||||
Label8: TLabel;
|
||||
PRTKZ: TEdit;
|
||||
Label9: TLabel;
|
||||
PRTMF: TEdit;
|
||||
Label7: TLabel;
|
||||
CPType: TComboBox;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v2Column3: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v1Column9: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
Label10: TLabel;
|
||||
RM1: TRMGridReport;
|
||||
RMDBMain: TRMDBDataSet;
|
||||
RMXLSExport1: TRMXLSExport;
|
||||
TBRKCX: TToolButton;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
PopupMenu1: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
v1Column11: TcxGridDBColumn;
|
||||
PRTColor: TComboBox;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
v1Column15: TcxGridDBColumn;
|
||||
v1Column16: TcxGridDBColumn;
|
||||
ComboBox1: TComboBox;
|
||||
BaoNo: TEdit;
|
||||
v1BAOid: TcxGridDBColumn;
|
||||
Panel4: TPanel;
|
||||
Label11: TLabel;
|
||||
Panel10: TPanel;
|
||||
Image2: TImage;
|
||||
RichEdit1: TRichEdit;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
Label12: TLabel;
|
||||
PRTHX: TEdit;
|
||||
Label13: TLabel;
|
||||
SOrddefstr1: TEdit;
|
||||
Label14: TLabel;
|
||||
ADOQueryPrint: TADOQuery;
|
||||
RKOrdID: TEdit;
|
||||
Label15: TLabel;
|
||||
v1Column17: TcxGridDBColumn;
|
||||
v1Column18: TcxGridDBColumn;
|
||||
MJstr4: TEdit;
|
||||
Label16: TLabel;
|
||||
CheckBox1: TCheckBox;
|
||||
RMDBHZ: TRMDBDataSet;
|
||||
CDS_HZ: TClientDataSet;
|
||||
CDS_PRT: TClientDataSet;
|
||||
ToolButton1: TToolButton;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ConNoMChange(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure PRTCodeNameChange(Sender: TObject);
|
||||
procedure TBPrintClick(Sender: TObject);
|
||||
procedure orderNoChange(Sender: TObject);
|
||||
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure TBRKCXClick(Sender: TObject);
|
||||
procedure Tv1CellClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure PRTColorChange(Sender: TObject);
|
||||
procedure BaoNoChange(Sender: TObject);
|
||||
procedure Image2Click(Sender: TObject);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure CheckBox1Click(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
|
||||
private
|
||||
FLeft,FTop:Integer;
|
||||
procedure InitGrid();
|
||||
|
||||
Procedure JSbaoNum();
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmCKProductBCPInList: TfrmCKProductBCPInList;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun;
|
||||
|
||||
{$R *.dfm}
|
||||
Procedure TfrmCKProductBCPInList.JSbaoNum();
|
||||
var
|
||||
i:integer;
|
||||
baoID:string;
|
||||
strlist:Tstringlist;
|
||||
begin
|
||||
i:=0;
|
||||
baoID:='';
|
||||
IF CDS_Main.IsEmpty then
|
||||
begin
|
||||
Label12.Caption:='包数：0';
|
||||
exit;
|
||||
end;
|
||||
strlist:=Tstringlist.Create;
|
||||
try
|
||||
with CDS_Main do
|
||||
begin
|
||||
DisableControls;
|
||||
first;
|
||||
while not eof do
|
||||
begin
|
||||
IF (trim(fieldbyname('BaoNO').AsString)<>'') then
|
||||
begin
|
||||
IF strlist.IndexOf(trim(fieldbyname('subID').AsString)+trim(fieldbyname('BaoNO').AsString))<0 then
|
||||
begin
|
||||
strlist.Add(trim(fieldbyname('subID').AsString)+trim(fieldbyname('BaoNO').AsString));
|
||||
end;
|
||||
end;
|
||||
{ IF (trim(fieldbyname('BaoID').AsString)<>trim(baoID)) and (trim(fieldbyname('BaoID').AsString)<>'') then
|
||||
begin
|
||||
i:=i+1;
|
||||
baoID:=trim(fieldbyname('BaoID').AsString);
|
||||
end; }
|
||||
Next;
|
||||
end;
|
||||
EnableControls;
|
||||
end;
|
||||
Label12.Caption:='包数：'+inttostr(strlist.Count);
|
||||
finally
|
||||
strlist.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmCKProductBCPInList.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmCKProductBCPInList:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
|
||||
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select A.*,B.OrderNo,C.PRTCodeName,C.PRTSpec,C.PRTColor,C.SOrddefstr1,C.PRTMF,C.PRTKZ,D.MJXH,C.PRTHX,D.MJQty3,D.MJQty4 ');
|
||||
sql.Add(',isnull(customerNoName,B.OrderNo) KHName');
|
||||
sql.Add(',PONO=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
|
||||
sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
|
||||
sql.Add(',cast(D.mjstr4 as varchar(20)) as mjstr4,D.Mjstr5');
|
||||
sql.add('from CK_BanCP_CR A ');
|
||||
Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
|
||||
Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
|
||||
Sql.add(' inner join WFB_MJJY D on A.MJId=D.MJId');
|
||||
sql.add('where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
|
||||
sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
|
||||
SQL.Add(' and A.CRType=''检验入库'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
BegDate.SetFocus;
|
||||
InitGrid();
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('半成品仓库入库',Tv1,'半成品仓库');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.FormShow(Sender: TObject);
|
||||
begin
|
||||
ReadCxGrid('半成品仓库入库',Tv1,'半成品仓库');
|
||||
if Trim(DParameters2)='管理' then
|
||||
begin
|
||||
v1Column4.Visible:=True;
|
||||
TBRKCX.Visible:=True;
|
||||
|
||||
end else
|
||||
begin
|
||||
v1Column4.Visible:=False;
|
||||
TBRKCX.Visible:=False;
|
||||
|
||||
end;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
TcxGridToExcel('入库列表',cxGrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
end;
|
||||
JSbaoNum();
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmCKProductBCPInList.PRTCodeNameChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.TBPrintClick(Sender: TObject);
|
||||
var
|
||||
fPrintFile,fPrintFile10,FMainID:String;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
if trim(ComboBox1.Text)='' then exit;
|
||||
if CDS_Main.Locate('SSel',True,[])=False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf' ;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete TBSubID where DName='''+Trim(DCode)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('SELECT * FROM TBSubID where 1=2 ');
|
||||
open;
|
||||
end;
|
||||
FMainID:='';
|
||||
CDS_Main.DisableControls;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with CDS_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
If Fieldbyname('Ssel').AsBoolean then
|
||||
begin
|
||||
IF FMainID='' then
|
||||
begin
|
||||
FMainID:=Trim(CDS_Main.fieldbyname('mainID').AsString);
|
||||
end
|
||||
else
|
||||
begin
|
||||
IF Trim(CDS_Main.fieldbyname('mainID').AsString)<>FMainID then
|
||||
begin
|
||||
application.MessageBox('选择的不是同一个指示单，不能一起打印！','提示信息',0);
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
EnableControls;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
ADOQueryCmd.append;
|
||||
ADOQueryCmd.fieldbyname('SubId').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString);
|
||||
ADOQueryCmd.fieldbyname('Dname').Value:=Trim(DCode);
|
||||
ADOQueryCmd.post;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
end;
|
||||
CDS_Main.EnableControls;
|
||||
|
||||
IF (trim(ComboBox1.Text)='销售码单') or (trim(ComboBox1.Text)='销售码单-安康') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Print_CKMD ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
// sql.add(',@flag=''0'' ');
|
||||
// sql.add(',@CNum=''10'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''2'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
end;
|
||||
|
||||
IF trim(ComboBox1.Text)='销售码单-QLO' then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add(' SELECT A.mainID,A.subID,A.MJStr4,A.MJLen,A.MJTypeOther,A.baoID,A.baoNo,A.MJQty2,A.MJQty3,A.MJQty4,A.MJMaoZ,A.MJXH,A.MJID, ');
|
||||
sql.add('B.SOrddefstr1,B.PRTCodeName,B.prtSpec,B.PRTColor,B.SOrddefstr4,B.PRTHX,B.Sorddefstr6,B.PRTKuanNO, ');
|
||||
sql.add('C.Filler as zl,C.OrdPerson1,C.OrderNo,');
|
||||
sql.add('CRTime=(select MAX(CRTime) from CK_BanCP_CR X where X.MJID=A.MJID),');
|
||||
sql.add('CKOrdNo=(select MAX(CKOrdNo) from CK_BanCP_CR X where X.MJID=A.MJID ) ');
|
||||
// sql.add(',a=count(distinct A.MJStr4)');
|
||||
sql.add('FROM WFB_MJJY A');
|
||||
sql.add('inner join JYOrder_Sub B on B.MainId=A.MainId and B.SubId=A.subID ');
|
||||
sql.add('inner join JYOrder_Main C on C.MainId=A.MainId ');
|
||||
sql.add('WHERE EXISTS(select SubId from TBSubID X where X.SubId=A.MJID and X.DName='''+DCode+''') ');
|
||||
sql.add('ORDER BY A.MainID,A.subID,A.MJStr4,A.MJXH ');
|
||||
// showmessage(sql.Text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''2'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
end;
|
||||
|
||||
IF (trim(ComboBox1.Text)='单色包装') OR (trim(ComboBox1.Text)='单色包装-长度') OR (trim(ComboBox1.Text)='裸装') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd20 ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''0'' ');
|
||||
sql.add(',@CNum=''10'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''0'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
end;
|
||||
|
||||
// IF (trim(ComboBox1.Text)='裸装') then
|
||||
// begin
|
||||
// with ADOQueryTemp do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.add('select A.OrderNo,B.* from WFB_MJJY B left join JYOrder_Main A on A.MainId=B.MainId ');
|
||||
// sql.add('where A.OrderNo ='+Trim(CDS_Main.fieldbyname('orderNo').AsString));
|
||||
// sql.add('order by b.MJXH');
|
||||
// Open;
|
||||
// end;
|
||||
// SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
// SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
//
|
||||
// with ADOQueryTemp do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.add('exec P_Do_PrintMd_HZ ');
|
||||
// sql.add('@mainID='+quotedstr(Trim('')));
|
||||
// sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
// sql.add(',@flag=''0'' ');
|
||||
// Open;
|
||||
// end;
|
||||
// SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
// SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
// end;
|
||||
|
||||
IF trim(ComboBox1.Text)='混色包装-10色' then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd30 ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''0'' ');
|
||||
sql.add(',@CNum=''10'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''1'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
end;
|
||||
IF trim(ComboBox1.Text)='混色包装-重量' then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd30 ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''0'' ');
|
||||
sql.add(',@CNum=''10'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''1'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
|
||||
end;
|
||||
|
||||
|
||||
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
RM1.LoadFromFile(fPrintFile);
|
||||
RM1.ShowReport;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Application.MessageBox(PChar('没有找'+fPrintFile),'提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TfrmCKProductBCPInList.orderNoChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.orderNoKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if Length(Trim(orderNo.Text))<4 then Exit;
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select A.*,B.OrderNo,C.PRTCodeName,C.PRTSpec,C.PRTColor,C.SOrddefstr1,C.PRTMF,C.PRTKZ,D.MJXH,C.PRTHX,D.MJQty3,D.MJQty4');
|
||||
sql.Add(',isnull(customerNoName,B.OrderNo) KHName');
|
||||
sql.Add(',PONO=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
|
||||
sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
|
||||
sql.Add(',D.mjstr4,D.MJstr5');
|
||||
sql.add('from CK_BanCP_CR A ');
|
||||
Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
|
||||
Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
|
||||
Sql.add(' inner join WFB_MJJY D on A.MJId=D.MJId');
|
||||
sql.add('where B.OrderNo like :OrderNo');
|
||||
SQL.Add(' and CRType=''检验入库'' ');
|
||||
Parameters.ParamByName('orderNo').Value:='%'+Trim(orderNo.Text)+'%';
|
||||
|
||||
Open;
|
||||
//ShowMessage(SQL.Text);
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
if CDS_Main.IsEmpty=False then
|
||||
begin
|
||||
InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
|
||||
//InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
|
||||
end;
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
JSbaoNum();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.N1Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_Main,True);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.N2Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_Main,False);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.TBRKCXClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
if CDS_Main.Locate('SSel',True,[])=False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要执行操作吗？','提示',32+4)<>IDYES then Exit;
|
||||
BegDate.SetFocus;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with CDS_Main do
|
||||
begin
|
||||
while Locate('SSel',True,[]) do
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from CK_BanCP_CR where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.RecordCount>1 then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('已出库不能撤销入库!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_Main.fieldbyname('BCID').AsString)+'''');
|
||||
sql.Add('delete CK_BanCP_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));
|
||||
sql.Add('Update WFB_MJJY Set MJStr2=''未入库'' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
CDS_Main.Delete;
|
||||
end;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('撤销失败!','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.Tv1CellClick(
|
||||
Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
if CDS_Main.IsEmpty=False then
|
||||
begin
|
||||
InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
|
||||
// InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.PRTColorChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
if CDS_Main.IsEmpty=False then
|
||||
begin
|
||||
//InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
|
||||
//InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.BaoNoChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.Image2Click(Sender: TObject);
|
||||
begin
|
||||
Panel4.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.Tv1CellDblClick(
|
||||
Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
Panel4.Left:=FLeft;
|
||||
Panel4.Top:=FTop+110;
|
||||
Panel4.Visible:=True;
|
||||
Panel4.Refresh;
|
||||
Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption);
|
||||
RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.Tv1MouseUp(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
FLeft:=X;
|
||||
FTop:=Y;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPInList.CheckBox1Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_Main,CheckBox1.Checked);
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmCKProductBCPInList.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select A.*,B.OrderNo,C.PRTCodeName,C.PRTSpec,C.PRTColor,C.SOrddefstr1,C.PRTMF,C.PRTKZ,D.MJXH,C.PRTHX,D.MJQty3,D.MJQty4');
|
||||
sql.Add(',isnull(customerNoName,B.OrderNo) KHName');
|
||||
sql.Add(',PONO=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
|
||||
sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
|
||||
sql.Add(',D.mjstr4,D.Mjstr5');
|
||||
sql.add('from CK_BanCP_CR A ');
|
||||
Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
|
||||
Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
|
||||
Sql.add(' inner join WFB_MJJY D on A.MJId=D.MJId');
|
||||
Sql.add('inner join CK_BanCP_KC E on A.BCID=E.BCID');
|
||||
sql.add('where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
|
||||
sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
|
||||
SQL.Add(' and A.CRType=''检验入库'' ');
|
||||
SQL.Add('and (E.KCQty>0 or E.KCKGQty>0) ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
end.
|
||||
330
检验管理/U_CKProductBCPKC.dfm
Normal file
330
检验管理/U_CKProductBCPKC.dfm
Normal file
|
|
@ -0,0 +1,330 @@
|
|||
object frmCKProductBCPKC: TfrmCKProductBCPKC
|
||||
Left = 128
|
||||
Top = 152
|
||||
Width = 1027
|
||||
Height = 511
|
||||
Caption = #21322#25104#21697#20986#20837#23384
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1019
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_WFBProducttion.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 9
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
Visible = False
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1019
|
||||
Height = 42
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 302
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20135#21697#20195#21495
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 478
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #39068#33394
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 638
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #33457#22411
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 28
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26597#35810#26102#38388
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 168
|
||||
Top = 12
|
||||
Width = 12
|
||||
Height = 12
|
||||
Caption = #33267
|
||||
end
|
||||
object YCLName: TEdit
|
||||
Tag = 2
|
||||
Left = 351
|
||||
Top = 9
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = YCLNameChange
|
||||
end
|
||||
object SWFBColor: TEdit
|
||||
Tag = 2
|
||||
Left = 502
|
||||
Top = 9
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 1
|
||||
OnChange = YCLNameChange
|
||||
end
|
||||
object SWFBHW: TEdit
|
||||
Tag = 2
|
||||
Left = 663
|
||||
Top = 9
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
OnChange = YCLNameChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 77
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 3
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 181
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 4
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 75
|
||||
Width = 1019
|
||||
Height = 399
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column7
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column8
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_WFBProducttion.Default
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #20135#21697#20195#21495
|
||||
DataBinding.FieldName = 'SWFBCodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 92
|
||||
end
|
||||
object v2Column2: TcxGridDBColumn
|
||||
Caption = #24133#23485
|
||||
DataBinding.FieldName = 'XJFK'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 77
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'SWFBColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 77
|
||||
end
|
||||
object v2Column4: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'SWFBKZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 82
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'SWFBHW'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 58
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #32593#23380#30446#25968
|
||||
DataBinding.FieldName = 'WKMS'
|
||||
Width = 57
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #19978#26399#25968#37327
|
||||
DataBinding.FieldName = 'SQJCS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 73
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #26412#26399#20837#24211#25968#37327
|
||||
DataBinding.FieldName = 'RKS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 101
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #26412#26399#22238#20179#25968#37327
|
||||
DataBinding.FieldName = 'HCS'
|
||||
Options.Focusing = False
|
||||
Width = 87
|
||||
end
|
||||
object v2Column7: TcxGridDBColumn
|
||||
Caption = #26412#26399#20986#24211#25968#37327
|
||||
DataBinding.FieldName = 'CKS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 93
|
||||
end
|
||||
object v2Column8: TcxGridDBColumn
|
||||
Caption = #24211#23384#25968#37327
|
||||
DataBinding.FieldName = 'KCQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 56
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_WFBProducttion.ADOLink
|
||||
Parameters = <>
|
||||
Left = 904
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_WFBProducttion.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 840
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_WFBProducttion.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 872
|
||||
Top = 40
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 624
|
||||
Top = 184
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 544
|
||||
Top = 176
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 416
|
||||
Top = 192
|
||||
end
|
||||
end
|
||||
207
检验管理/U_CKProductBCPKC.pas
Normal file
207
检验管理/U_CKProductBCPKC.pas
Normal file
|
|
@ -0,0 +1,207 @@
|
|||
unit U_CKProductBCPKC;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit;
|
||||
|
||||
type
|
||||
TfrmCKProductBCPKC = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBExport: TToolButton;
|
||||
TBPrint: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label7: TLabel;
|
||||
YCLName: TEdit;
|
||||
SWFBColor: TEdit;
|
||||
SWFBHW: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
CDS_Main: TClientDataSet;
|
||||
Tv1: TcxGridDBTableView;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
cxGrid2: TcxGrid;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v2Column2: TcxGridDBColumn;
|
||||
v2Column3: TcxGridDBColumn;
|
||||
v2Column4: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v2Column7: TcxGridDBColumn;
|
||||
v2Column8: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ConNoMChange(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure YCLNameChange(Sender: TObject);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
private
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmCKProductBCPKC: TfrmCKProductBCPKC;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun,U_CRMX;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmCKProductBCPKC.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmCKProductBCPKC:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//cxGrid1.Align:=alClient;
|
||||
BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-30;
|
||||
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('exec CK_YCL_CRCHZ :begdate,:enddate,:CKName');
|
||||
Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime));
|
||||
Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1));
|
||||
Parameters.ParamByName('CKName').Value:=Trim(DParameters1);
|
||||
Open;
|
||||
//ShowMessage(SQL.Text);
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
BegDate.SetFocus;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('埻第蹋踱湔2',Tv1,'埻第蹋累踱');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.FormShow(Sender: TObject);
|
||||
begin
|
||||
|
||||
ReadCxGrid('埻第蹋踱湔2',Tv1,'埻第蹋累踱');
|
||||
if Trim(DParameters2)='埻蹋濬倰' then
|
||||
begin
|
||||
ToolButton1.Visible:=True;
|
||||
v2Column9.Options.Focusing:=True;
|
||||
v2Column9.Visible:=True;
|
||||
end else
|
||||
begin
|
||||
ToolButton1.Visible:=False;
|
||||
v2Column9.Options.Focusing:=False;
|
||||
v2Column9.Visible:=False;
|
||||
end;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
TcxGridToExcel(Trim(DParameters1)+'踱湔',cxGrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.YCLNameChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKC.Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
try
|
||||
frmCRMX:=TfrmCRMX.Create(Application);
|
||||
with frmCRMX do
|
||||
begin
|
||||
Fbegdate:=FormatDateTime('yyyy-MM-dd',Self.BegDate.DateTime);
|
||||
Fenddate:=FormatDateTime('yyyy-MM-dd',Self.enddate.DateTime+1);
|
||||
{FGYS:=Trim(Self.CDS_Main.fieldbyname('GYS').AsString);
|
||||
FYCLCode:=Trim(Self.CDS_Main.fieldbyname('YCLCode').AsString);
|
||||
FYCLSpec:=Trim(Self.CDS_Main.fieldbyname('YCLSpec').AsString);
|
||||
FCRUnit:=Trim(Self.CDS_Main.fieldbyname('KCUint').AsString); }
|
||||
CRID:=Trim(Self.CDS_Main.fieldbyname('CRID').AsString);
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmCRMX.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
576
检验管理/U_CKProductBCPKCHZList.dfm
Normal file
576
检验管理/U_CKProductBCPKCHZList.dfm
Normal file
|
|
@ -0,0 +1,576 @@
|
|||
object frmCKProductBCPKCHZList: TfrmCKProductBCPKCHZList
|
||||
Left = 176
|
||||
Top = 156
|
||||
Width = 1027
|
||||
Height = 511
|
||||
Caption = #25104#21697#24211#23384#27719#24635#21015#34920
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1011
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 9
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
Visible = False
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1011
|
||||
Height = 61
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 215
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20013#25991#21517#31216
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 384
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #39068#33394
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 780
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26597#35810#26102#38388
|
||||
Visible = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 816
|
||||
Top = 36
|
||||
Width = 12
|
||||
Height = 12
|
||||
Caption = #33267
|
||||
Visible = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 45
|
||||
Top = 12
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #35746#21333#21495
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 45
|
||||
Top = 36
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #33394' '#21495
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 215
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20811' '#37325
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 384
|
||||
Top = 36
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #38376#24133
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 616
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #31867' '#22411
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 508
|
||||
Top = 36
|
||||
Width = 6
|
||||
Height = 12
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 492
|
||||
Top = 12
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #19994#21153#21592
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 492
|
||||
Top = 36
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #36319#21333#21592
|
||||
end
|
||||
object PRTCodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 264
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 829
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 829
|
||||
Top = 33
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
end
|
||||
object orderNo: TEdit
|
||||
Tag = 2
|
||||
Left = 86
|
||||
Top = 8
|
||||
Width = 103
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object SOrddefstr1: TEdit
|
||||
Tag = 2
|
||||
Left = 86
|
||||
Top = 32
|
||||
Width = 103
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTKZ: TEdit
|
||||
Tag = 1
|
||||
Left = 264
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTMF: TEdit
|
||||
Tag = 1
|
||||
Left = 408
|
||||
Top = 32
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object CPType: TComboBox
|
||||
Tag = 2
|
||||
Left = 667
|
||||
Top = 32
|
||||
Width = 68
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
TabOrder = 7
|
||||
OnChange = TBFindClick
|
||||
Items.Strings = (
|
||||
#27491#21697
|
||||
#27425#21697
|
||||
#22810#25340
|
||||
'')
|
||||
end
|
||||
object YWY: TEdit
|
||||
Tag = 2
|
||||
Left = 530
|
||||
Top = 8
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 8
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object OrdPerson1: TEdit
|
||||
Tag = 2
|
||||
Left = 530
|
||||
Top = 32
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 9
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTColor: TComboBox
|
||||
Tag = 1
|
||||
Left = 408
|
||||
Top = 8
|
||||
Width = 66
|
||||
Height = 20
|
||||
ItemHeight = 12
|
||||
TabOrder = 10
|
||||
OnChange = PRTColorChange
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 94
|
||||
Width = 1011
|
||||
Height = 379
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseUp = Tv1MouseUp
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCellClick = Tv1CellClick
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'orderNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 74
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #20013#25991#21517#31216
|
||||
DataBinding.FieldName = 'PRTCodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'SOrddefstr1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 71
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #33457#22411#33457#21495
|
||||
DataBinding.FieldName = 'PRTHX'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 65
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #19994#21153#21592
|
||||
DataBinding.FieldName = 'YWY'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 52
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #36319#21333#21592
|
||||
DataBinding.FieldName = 'OrdPerson1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 59
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'PRTMF'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'PRTKZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 59
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'CPType'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 63
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21367#25968#37327
|
||||
DataBinding.FieldName = 'JQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 74
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #24211#23384#20844#26020#25968
|
||||
DataBinding.FieldName = 'KCKGQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 83
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #24211#23384#25968#37327
|
||||
DataBinding.FieldName = 'KCQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 85
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'KCQtyUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 83
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object MovePanel2: TMovePanel
|
||||
Left = 408
|
||||
Top = 192
|
||||
Width = 289
|
||||
Height = 49
|
||||
BevelInner = bvLowered
|
||||
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -14
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
end
|
||||
object Panel4: TPanel
|
||||
Left = 62
|
||||
Top = 148
|
||||
Width = 294
|
||||
Height = 212
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
object Label13: TLabel
|
||||
Left = 48
|
||||
Top = 88
|
||||
Width = 6
|
||||
Height = 12
|
||||
end
|
||||
object Panel10: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 292
|
||||
Height = 24
|
||||
Align = alTop
|
||||
Alignment = taLeftJustify
|
||||
BevelOuter = bvNone
|
||||
Caption = #20107#20214#35828#26126
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object Image2: TImage
|
||||
Left = 269
|
||||
Top = 3
|
||||
Width = 22
|
||||
Height = 16
|
||||
ParentShowHint = False
|
||||
Picture.Data = {
|
||||
07544269746D617076040000424D760400000000000036000000280000001500
|
||||
0000110000000100180000000000400400000000000000000000000000000000
|
||||
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
|
||||
F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
|
||||
404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
|
||||
808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
|
||||
000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00}
|
||||
ShowHint = True
|
||||
Transparent = True
|
||||
OnClick = Image2Click
|
||||
end
|
||||
end
|
||||
object RichEdit1: TRichEdit
|
||||
Left = 1
|
||||
Top = 25
|
||||
Width = 292
|
||||
Height = 186
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 968
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 984
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 944
|
||||
Top = 32
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 920
|
||||
Top = 152
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 888
|
||||
Top = 144
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 896
|
||||
Top = 128
|
||||
end
|
||||
end
|
||||
294
检验管理/U_CKProductBCPKCHZList.pas
Normal file
294
检验管理/U_CKProductBCPKCHZList.pas
Normal file
|
|
@ -0,0 +1,294 @@
|
|||
unit U_CKProductBCPKCHZList;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmCKProductBCPKCHZList = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBExport: TToolButton;
|
||||
TBPrint: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
PRTCodeName: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
CDS_Main: TClientDataSet;
|
||||
Tv1: TcxGridDBTableView;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
cxGrid2: TcxGrid;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v2Column3: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
Label5: TLabel;
|
||||
orderNo: TEdit;
|
||||
Label6: TLabel;
|
||||
SOrddefstr1: TEdit;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v1Column9: TcxGridDBColumn;
|
||||
Label8: TLabel;
|
||||
PRTKZ: TEdit;
|
||||
Label9: TLabel;
|
||||
PRTMF: TEdit;
|
||||
Label7: TLabel;
|
||||
CPType: TComboBox;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
MovePanel2: TMovePanel;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
Label10: TLabel;
|
||||
Label11: TLabel;
|
||||
Label12: TLabel;
|
||||
YWY: TEdit;
|
||||
OrdPerson1: TEdit;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
PRTColor: TComboBox;
|
||||
Panel4: TPanel;
|
||||
Label13: TLabel;
|
||||
Panel10: TPanel;
|
||||
Image2: TImage;
|
||||
RichEdit1: TRichEdit;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ConNoMChange(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure PRTCodeNameChange(Sender: TObject);
|
||||
procedure v1Column5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure PRTColorChange(Sender: TObject);
|
||||
procedure Tv1CellClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure Image2Click(Sender: TObject);
|
||||
private
|
||||
FLeft,FTop:Integer;
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmCKProductBCPKCHZList: TfrmCKProductBCPKCHZList;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun,U_ZDYHelp;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmCKProductBCPKCHZList:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//cxGrid1.Align:=alClient;
|
||||
BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
|
||||
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select YWY=B.OrdPerson2,B.OrdPerson1,C.SOrdDefStr10,C.SubId,A.* ,B.OrdDefStr1,B.OrderNo,C.PRTCodeName,C.PRTColor,C.PRTMF,C.PRTKZ ');
|
||||
sql.Add(',C.SOrddefstr1,C.PRTHX');
|
||||
sql.Add(' from(select sum(KCQty) KCQty,Sum(KCKgQty) KCKgQty,count(*) JQty,AA.MainId,AA.SubId,AA.CPType,KC.KCQtyUnit ');
|
||||
sql.Add(' from CK_BanCP_KC KC inner join CK_BanCP_CR AA on KC.CRID=AA.CRID and AA.CRType=''检验入库''');
|
||||
sql.Add(' where (KC.KCQty>0 or KC.KCKgQty>0) group by AA.MainId,AA.SubId,AA.CPType,KC.KCQtyUnit ) A');
|
||||
Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
|
||||
Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
|
||||
{ if Trim(DParameters1)<>'高权限' then
|
||||
begin
|
||||
sql.Add(' where B.Filler='''+Trim(DName)+'''');
|
||||
end else
|
||||
begin
|
||||
end; }
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
MovePanel2.Visible:=True;
|
||||
MovePanel2.Refresh;
|
||||
InitGrid();
|
||||
MovePanel2.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('仓库库存汇总列表',Tv1,'成品仓库');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.FormShow(Sender: TObject);
|
||||
begin
|
||||
|
||||
ReadCxGrid('仓库库存汇总列表',Tv1,'成品仓库');
|
||||
if Trim(DParameters2)='管理' then
|
||||
begin
|
||||
v1Column5.Options.Focusing:=True;
|
||||
end else
|
||||
begin
|
||||
v1Column5.Options.Focusing:=False;
|
||||
end;
|
||||
//InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
TcxGridToExcel('库存汇总列表',cxGrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.PRTCodeNameChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.v1Column5PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='SOrdDefStr10';
|
||||
flagname:='库存存放地点';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
with CDS_Main do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('SOrdDefStr10').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update JYOrder_Sub Set SOrdDefStr10='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
|
||||
sql.Add(' where SubId='''+Trim(Self.CDS_Main.fieldbyname('SubId').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.PRTColorChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.Tv1CellClick(
|
||||
Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
if CDS_Main.IsEmpty=False then
|
||||
begin
|
||||
InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
|
||||
//InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.Tv1CellDblClick(
|
||||
Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
Panel4.Left:=FLeft;
|
||||
Panel4.Top:=FTop+110;
|
||||
Panel4.Visible:=True;
|
||||
Panel4.Refresh;
|
||||
Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption);
|
||||
RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.Tv1MouseUp(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
FLeft:=X;
|
||||
FTop:=Y;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCHZList.Image2Click(Sender: TObject);
|
||||
begin
|
||||
Panel4.Visible:=False;
|
||||
end;
|
||||
|
||||
end.
|
||||
822
检验管理/U_CKProductBCPKCList.dfm
Normal file
822
检验管理/U_CKProductBCPKCList.dfm
Normal file
|
|
@ -0,0 +1,822 @@
|
|||
object frmCKProductBCPKCList: TfrmCKProductBCPKCList
|
||||
Left = 210
|
||||
Top = 140
|
||||
Width = 1184
|
||||
Height = 587
|
||||
Caption = #25104#21697#24211#23384#21015#34920
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1168
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 9
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBZD: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36716#21333
|
||||
ImageIndex = 102
|
||||
OnClick = TBZDClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 57
|
||||
Visible = False
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
Visible = False
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 378
|
||||
Top = 3
|
||||
Width = 140
|
||||
Height = 24
|
||||
Style = csDropDownList
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ItemHeight = 16
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
Items.Strings = (
|
||||
#38144#21806#30721#21333
|
||||
#21333#33394#21253#35013
|
||||
#21333#33394#21253#35013'-'#38271#24230
|
||||
#28151#33394#21253#35013'-10'#33394
|
||||
#28151#33394#21253#35013'-'#37325#37327)
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 518
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1168
|
||||
Height = 64
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 213
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20013#25991#21517#31216
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 1020
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26597#35810#26102#38388
|
||||
Visible = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 1048
|
||||
Top = 40
|
||||
Width = 12
|
||||
Height = 12
|
||||
Caption = #33267
|
||||
Visible = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 45
|
||||
Top = 12
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #35746#21333#21495
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 45
|
||||
Top = 36
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #21367#26465#30721
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 213
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20811' '#37325
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 402
|
||||
Top = 36
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #38376#24133
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 580
|
||||
Top = 36
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #31867#22411
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 402
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #39068#33394
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 984
|
||||
Top = 28
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #32568#21495
|
||||
Visible = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 580
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #21253#21495
|
||||
end
|
||||
object PRTCodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 263
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 1069
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 1069
|
||||
Top = 33
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
end
|
||||
object orderNo: TEdit
|
||||
Tag = 2
|
||||
Left = 84
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object MJID: TEdit
|
||||
Tag = 2
|
||||
Left = 84
|
||||
Top = 33
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTKZ: TEdit
|
||||
Tag = 1
|
||||
Left = 263
|
||||
Top = 33
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTMF: TEdit
|
||||
Tag = 1
|
||||
Left = 428
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object CPType: TComboBox
|
||||
Tag = 2
|
||||
Left = 606
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
TabOrder = 7
|
||||
OnChange = TBFindClick
|
||||
Items.Strings = (
|
||||
#27491#21697
|
||||
#27425#21697
|
||||
#22810#25340
|
||||
''
|
||||
''
|
||||
'')
|
||||
end
|
||||
object PRTColor: TComboBox
|
||||
Tag = 1
|
||||
Left = 428
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
ItemHeight = 12
|
||||
TabOrder = 8
|
||||
OnChange = PRTColorChange
|
||||
end
|
||||
object AOrdDefStr1: TComboBox
|
||||
Tag = 1
|
||||
Left = 1011
|
||||
Top = 24
|
||||
Width = 100
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
ItemHeight = 12
|
||||
TabOrder = 9
|
||||
Visible = False
|
||||
OnChange = AOrdDefStr1Change
|
||||
end
|
||||
object baoNo: TEdit
|
||||
Tag = 1
|
||||
Left = 606
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 10
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object CheckBox1: TCheckBox
|
||||
Left = 764
|
||||
Top = 36
|
||||
Width = 97
|
||||
Height = 17
|
||||
Caption = #20840#36873
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 11
|
||||
OnClick = CheckBox1Click
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 97
|
||||
Width = 1168
|
||||
Height = 452
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseUp = Tv1MouseUp
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv1CellClick
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skCount
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.Indicator = True
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 53
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'orderNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 74
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #20013#25991#21517#31216
|
||||
DataBinding.FieldName = 'PRTCodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'SOrddefstr1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 59
|
||||
end
|
||||
object v1Column13: TcxGridDBColumn
|
||||
Caption = #33457#22411#33457#21495
|
||||
DataBinding.FieldName = 'PRTHX'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 58
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'PRTMF'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'PRTKZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 59
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21367#26465#30721
|
||||
DataBinding.FieldName = 'MJID'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
object v1Column14: TcxGridDBColumn
|
||||
Caption = #21253#21495
|
||||
DataBinding.FieldName = 'baoNO'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Styles.Content = FontBlue
|
||||
Styles.Footer = FontBlue
|
||||
Styles.Header = FontBlue
|
||||
Width = 83
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #21367#21495
|
||||
DataBinding.FieldName = 'MJXH'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 59
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'CPType'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 63
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #24211#23384#20844#26020#25968
|
||||
DataBinding.FieldName = 'KCKGQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 83
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #24211#23384#25968#37327
|
||||
DataBinding.FieldName = 'KCQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 85
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 83
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #30133#28857#24773#20917
|
||||
DataBinding.FieldName = 'CDQK'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 96
|
||||
end
|
||||
object v1Column11: TcxGridDBColumn
|
||||
Caption = #20837#24211#26102#38388
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
Options.Editing = False
|
||||
Width = 61
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object Panel4: TPanel
|
||||
Left = 62
|
||||
Top = 139
|
||||
Width = 294
|
||||
Height = 213
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
object Label11: TLabel
|
||||
Left = 48
|
||||
Top = 88
|
||||
Width = 6
|
||||
Height = 12
|
||||
end
|
||||
object Panel10: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 292
|
||||
Height = 23
|
||||
Align = alTop
|
||||
Alignment = taLeftJustify
|
||||
BevelOuter = bvNone
|
||||
Caption = #20107#20214#35828#26126
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnMouseMove = Panel10MouseMove
|
||||
object Image2: TImage
|
||||
Left = 269
|
||||
Top = 3
|
||||
Width = 22
|
||||
Height = 16
|
||||
ParentShowHint = False
|
||||
Picture.Data = {
|
||||
07544269746D617076040000424D760400000000000036000000280000001500
|
||||
0000110000000100180000000000400400000000000000000000000000000000
|
||||
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
|
||||
F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
|
||||
404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
|
||||
808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
|
||||
000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00}
|
||||
ShowHint = True
|
||||
Transparent = True
|
||||
OnClick = Image2Click
|
||||
end
|
||||
end
|
||||
object RichEdit1: TRichEdit
|
||||
Left = 1
|
||||
Top = 24
|
||||
Width = 292
|
||||
Height = 188
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object MovePanel2: TMovePanel
|
||||
Left = 408
|
||||
Top = 192
|
||||
Width = 289
|
||||
Height = 49
|
||||
BevelInner = bvLowered
|
||||
Caption = #27491#22312#25805#20316#25968#25454#65292#35831#31245#21518#12290#12290#12290
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -14
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 928
|
||||
Top = 48
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 984
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 856
|
||||
Top = 48
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 920
|
||||
Top = 152
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 888
|
||||
Top = 144
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 608
|
||||
Top = 160
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 392
|
||||
Top = 152
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Caption = #20840#24323
|
||||
OnClick = N2Click
|
||||
end
|
||||
end
|
||||
object ThreeColorBase: TcxStyleRepository
|
||||
Left = 539
|
||||
Top = 316
|
||||
object SHuangSe: TcxStyle
|
||||
AssignedValues = [svColor, svFont, svTextColor]
|
||||
Color = 4707838
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
TextColor = clBtnText
|
||||
end
|
||||
object SkyBlue: TcxStyle
|
||||
AssignedValues = [svColor, svFont]
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
end
|
||||
object Default: TcxStyle
|
||||
AssignedValues = [svFont]
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
object QHuangSe: TcxStyle
|
||||
AssignedValues = [svColor, svFont]
|
||||
Color = 8454143
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
end
|
||||
object Red: TcxStyle
|
||||
AssignedValues = [svColor, svFont]
|
||||
Color = clRed
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
end
|
||||
object FontBlue: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clBlue
|
||||
end
|
||||
object TextSHuangSe: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clBlack
|
||||
end
|
||||
object FonePurple: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindow
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clBlack
|
||||
end
|
||||
object FoneClMaroon: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clMaroon
|
||||
end
|
||||
object FoneRed: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clRed
|
||||
end
|
||||
object RowColor: TcxStyle
|
||||
AssignedValues = [svColor]
|
||||
Color = 16311512
|
||||
end
|
||||
object handBlack: TcxStyle
|
||||
AssignedValues = [svFont]
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
object cxBlue: TcxStyle
|
||||
AssignedValues = [svColor, svFont]
|
||||
Color = 16711731
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
end
|
||||
end
|
||||
object CDS_HZ: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 568
|
||||
Top = 224
|
||||
end
|
||||
object CDS_PRT: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 512
|
||||
Top = 224
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 368
|
||||
Top = 168
|
||||
ReportData = {}
|
||||
end
|
||||
end
|
||||
717
检验管理/U_CKProductBCPKCList.pas
Normal file
717
检验管理/U_CKProductBCPKCList.pas
Normal file
|
|
@ -0,0 +1,717 @@
|
|||
unit U_CKProductBCPKCList;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxCheckBox,
|
||||
Menus, cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport;
|
||||
|
||||
type
|
||||
TfrmCKProductBCPKCList = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBExport: TToolButton;
|
||||
TBPrint: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
Label3: TLabel;
|
||||
PRTCodeName: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
CDS_Main: TClientDataSet;
|
||||
Tv1: TcxGridDBTableView;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
cxGrid2: TcxGrid;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v2Column3: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
Label5: TLabel;
|
||||
orderNo: TEdit;
|
||||
Label6: TLabel;
|
||||
MJID: TEdit;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v1Column9: TcxGridDBColumn;
|
||||
Label8: TLabel;
|
||||
PRTKZ: TEdit;
|
||||
Label9: TLabel;
|
||||
PRTMF: TEdit;
|
||||
Label7: TLabel;
|
||||
CPType: TComboBox;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
Panel4: TPanel;
|
||||
Label11: TLabel;
|
||||
Panel10: TPanel;
|
||||
Image2: TImage;
|
||||
RichEdit1: TRichEdit;
|
||||
MovePanel2: TMovePanel;
|
||||
v1Column11: TcxGridDBColumn;
|
||||
TBZD: TToolButton;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
PopupMenu1: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
Label4: TLabel;
|
||||
Label10: TLabel;
|
||||
PRTColor: TComboBox;
|
||||
AOrdDefStr1: TComboBox;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
ThreeColorBase: TcxStyleRepository;
|
||||
SHuangSe: TcxStyle;
|
||||
SkyBlue: TcxStyle;
|
||||
Default: TcxStyle;
|
||||
QHuangSe: TcxStyle;
|
||||
Red: TcxStyle;
|
||||
FontBlue: TcxStyle;
|
||||
TextSHuangSe: TcxStyle;
|
||||
FonePurple: TcxStyle;
|
||||
FoneClMaroon: TcxStyle;
|
||||
FoneRed: TcxStyle;
|
||||
RowColor: TcxStyle;
|
||||
handBlack: TcxStyle;
|
||||
cxBlue: TcxStyle;
|
||||
ToolButton1: TToolButton;
|
||||
Label12: TLabel;
|
||||
baoNo: TEdit;
|
||||
CheckBox1: TCheckBox;
|
||||
ComboBox1: TComboBox;
|
||||
CDS_HZ: TClientDataSet;
|
||||
CDS_PRT: TClientDataSet;
|
||||
RM1: TRMGridReport;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ConNoMChange(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure PRTCodeNameChange(Sender: TObject);
|
||||
procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
procedure Image2Click(Sender: TObject);
|
||||
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure TBZDClick(Sender: TObject);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure Tv1CellClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure PRTColorChange(Sender: TObject);
|
||||
procedure AOrdDefStr1Change(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure CheckBox1Click(Sender: TObject);
|
||||
procedure TBPrintClick(Sender: TObject);
|
||||
private
|
||||
FLeft,FTop:Integer;
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmCKProductBCPKCList: TfrmCKProductBCPKCList;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun,U_ProductOrderListSel;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmCKProductBCPKCList.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmCKProductBCPKCList:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
|
||||
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('exec P_View_CPKCMX :WSQl');
|
||||
if Trim(DParameters2)<>'管理' then
|
||||
begin
|
||||
Parameters.ParamByName('WSQl').Value:=' and B.Filler='''+Trim(DName)+'''';
|
||||
end else
|
||||
begin
|
||||
Parameters.ParamByName('WSQl').Value:='';
|
||||
end;
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
// BegDate.SetFocus;
|
||||
MovePanel2.Visible:=True;
|
||||
MovePanel2.Refresh;
|
||||
InitGrid();
|
||||
MovePanel2.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('仓库库存列表',Tv1,'成品仓库');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.FormShow(Sender: TObject);
|
||||
begin
|
||||
ReadCxGrid('仓库库存列表',Tv1,'成品仓库');
|
||||
if Trim(DParameters2)='管理' then
|
||||
begin
|
||||
// TBZD.Visible:=True;
|
||||
ToolButton1.Visible:=true;
|
||||
TBZD.Visible:=False;
|
||||
v1Column12.Visible:=true;
|
||||
// v1Column14.Options.Editing:=true;
|
||||
end else
|
||||
begin
|
||||
TBZD.Visible:=False;
|
||||
ToolButton1.Visible:=false;
|
||||
v1Column12.Visible:=true;
|
||||
v1Column14.Options.Editing:=False;
|
||||
end;
|
||||
//InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
TcxGridToExcel('库存列表',cxGrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.PRTCodeNameChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.Panel10MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
ReleaseCapture;
|
||||
TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.Image2Click(Sender: TObject);
|
||||
begin
|
||||
Panel4.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.Tv1MouseUp(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
FLeft:=X;
|
||||
FTop:=Y;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.Tv1CellDblClick(
|
||||
Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
{if Trim(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName)<>'CDQK' then Exit;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select CDQK=dbo.F_Get_Order_SubStr(:MJID,''MJCDHZSL'')');
|
||||
Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString);
|
||||
Open;
|
||||
end;
|
||||
with CDS_Main do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('CDQK').Value:=Trim(ADOQueryTemp.fieldbyname('CDQK').AsString);
|
||||
Post;
|
||||
end; }
|
||||
Panel4.Left:=FLeft;
|
||||
Panel4.Top:=FTop+110;
|
||||
Panel4.Visible:=True;
|
||||
Panel4.Refresh;
|
||||
Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption);
|
||||
|
||||
RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.TBZDClick(Sender: TObject);
|
||||
var
|
||||
FMainid,FSubId,FOrderNo,FColor,FSH,FHX,FCodeName,FMPRTMF,FMPRTKZ:String;
|
||||
begin
|
||||
if CDS_Main.Locate('SSel',True,[])=False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
FMainid:='';
|
||||
try
|
||||
frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application);
|
||||
with frmProductOrderListSel do
|
||||
begin
|
||||
FFInt:=1;
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FMainid:=frmProductOrderListSel.Order_Main.fieldbyname('Mainid').AsString;
|
||||
FSubId:=frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString;
|
||||
FOrderNo:=frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').Value;
|
||||
FCodeName:=frmProductOrderListSel.Order_Main.fieldbyname('PRTCodeName').Value;
|
||||
FColor:=frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').Value;
|
||||
if Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString)<>'' then
|
||||
FSH:=frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString;
|
||||
if Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString)<>'' then
|
||||
FHX:=frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').Value;
|
||||
FMPRTMF:=frmProductOrderListSel.Order_Main.fieldbyname('PRTMF').AsString;
|
||||
FMPRTKZ:=frmProductOrderListSel.Order_Main.fieldbyname('PRTKZ').AsString;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmProductOrderListSel.Free;
|
||||
end;
|
||||
if Trim(FMainid)<>'' then
|
||||
begin
|
||||
if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
|
||||
MovePanel2.Visible:=True;
|
||||
MovePanel2.Refresh;
|
||||
try
|
||||
Self.ADOQueryCmd.Connection.BeginTrans;
|
||||
Self.CDS_Main.DisableControls;
|
||||
with Self.CDS_Main do
|
||||
begin
|
||||
while not Eof do
|
||||
begin
|
||||
if Self.CDS_Main.FieldByName('SSEl').AsBoolean=True then
|
||||
begin
|
||||
with Self.ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('UPdate CK_BanCP_CR Set MainId='''+Trim(FMainid)+'''');
|
||||
sql.Add(',SubId='''+Trim(FSubId)+'''');
|
||||
sql.Add(',ZDPerson='''+Trim(DName)+''',ZDTime=getdate() ');
|
||||
sql.Add(' where CRID='+self.CDS_Main.fieldbyname('CRID').AsString);
|
||||
SQL.Add(' and CRType=''检验入库'' ');
|
||||
sql.Add('UPdate WFB_MJJY Set MainId='''+Trim(FMainid)+'''');
|
||||
sql.Add(',SubId='''+Trim(FSubId)+'''');
|
||||
//sql.Add(',ZDPerson='''+Trim(DName)+''',ZDTime=getdate() ');
|
||||
sql.Add(' where MJID='+self.CDS_Main.fieldbyname('MJID').AsString);
|
||||
ExecSQL;
|
||||
end;
|
||||
Edit;
|
||||
FieldByName('OrderNo').Value:=FOrderNo;
|
||||
FieldByName('PRTCodeName').Value:=FCodeName;
|
||||
FieldByName('PRTColor').Value:=FColor;
|
||||
FieldByName('SOrddefstr1').Value:=FSH;
|
||||
FieldByName('PRTHX').Value:=FHX;
|
||||
FieldByName('PRTMF').Value:=FMPRTMF;
|
||||
FieldByName('PRTKZ').Value:=FMPRTKZ;
|
||||
Post;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
Self.CDS_Main.EnableControls;
|
||||
Self.ADOQueryCmd.Connection.CommitTrans;
|
||||
MovePanel2.Visible:=False;
|
||||
except
|
||||
Self.ADOQueryCmd.Connection.RollbackTrans;
|
||||
MovePanel2.Visible:=False;
|
||||
Application.MessageBox('转单失败!','提示',0) ;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.N1Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_Main,True);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.N2Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_Main,False);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.Tv1CellClick(
|
||||
Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
if CDS_Main.IsEmpty=False then
|
||||
begin
|
||||
InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
|
||||
InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.PRTColorChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
if CDS_Main.IsEmpty=False then
|
||||
begin
|
||||
//InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
|
||||
InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.AOrdDefStr1Change(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
IF CDS_main.IsEmpty then exit;
|
||||
orderNo.SetFocus;
|
||||
if CDS_Main.Locate('SSel',True,[])=False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
try
|
||||
with CDS_Main do
|
||||
begin
|
||||
DisableControls;
|
||||
first;
|
||||
while not eof do
|
||||
begin
|
||||
IF fieldbyname('ssel').AsBoolean then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update CK_BanCP_CR ');
|
||||
sql.Add('SET baoNO='+quotedstr(CDS_Main.fieldbyname('baoNO').AsString));
|
||||
sql.Add('where BCID='+quotedstr(CDS_Main.fieldbyname('BCID').AsString));
|
||||
sql.Add('and MJID='+quotedstr(CDS_Main.fieldbyname('MJID').AsString));
|
||||
execsql;
|
||||
end;
|
||||
end;
|
||||
next;
|
||||
end;
|
||||
first;
|
||||
EnableControls;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
application.MessageBox('数据保存成功！','提示信息');
|
||||
exit;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox('数据保存失败！','提示信息',MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.CheckBox1Click(Sender: TObject);
|
||||
begin
|
||||
with CDS_Main do
|
||||
begin
|
||||
DisableControls;
|
||||
first;
|
||||
while not eof do
|
||||
begin
|
||||
edit;
|
||||
fieldbyname('ssel').Value:=checkbox1.Checked;
|
||||
post;
|
||||
next;
|
||||
end;
|
||||
first;
|
||||
EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductBCPKCList.TBPrintClick(Sender: TObject);
|
||||
var
|
||||
fPrintFile,fPrintFile10,FMainID:String;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
if trim(ComboBox1.Text)='' then exit;
|
||||
if CDS_Main.Locate('SSel',True,[])=False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf' ;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete TBSubID where DName='''+Trim(DCode)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('SELECT * FROM TBSubID where 1=2 ');
|
||||
open;
|
||||
end;
|
||||
FMainID:='';
|
||||
CDS_Main.DisableControls;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with CDS_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
If Fieldbyname('Ssel').AsBoolean then
|
||||
begin
|
||||
IF FMainID='' then
|
||||
begin
|
||||
FMainID:=Trim(CDS_Main.fieldbyname('mainID').AsString);
|
||||
end
|
||||
else
|
||||
begin
|
||||
IF Trim(CDS_Main.fieldbyname('mainID').AsString)<>FMainID then
|
||||
begin
|
||||
application.MessageBox('选择的不是同一个指示单，不能一起打印！','提示信息',0);
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
EnableControls;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
ADOQueryCmd.append;
|
||||
ADOQueryCmd.fieldbyname('SubId').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString);
|
||||
ADOQueryCmd.fieldbyname('Dname').Value:=Trim(DCode);
|
||||
ADOQueryCmd.post;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
end;
|
||||
CDS_Main.EnableControls;
|
||||
|
||||
IF (trim(ComboBox1.Text)='销售码单') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Print_CKMD ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
// sql.add(',@flag=''0'' ');
|
||||
// sql.add(',@CNum=''10'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''2'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
end;
|
||||
|
||||
IF (trim(ComboBox1.Text)='单色包装') OR (trim(ComboBox1.Text)='单色包装-长度') OR (trim(ComboBox1.Text)='裸装') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd20 ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''0'' ');
|
||||
sql.add(',@CNum=''10'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''0'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
end;
|
||||
|
||||
// IF (trim(ComboBox1.Text)='裸装') then
|
||||
// begin
|
||||
// with ADOQueryTemp do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.add('select A.OrderNo,B.* from WFB_MJJY B left join JYOrder_Main A on A.MainId=B.MainId ');
|
||||
// sql.add('where A.OrderNo ='+Trim(CDS_Main.fieldbyname('orderNo').AsString));
|
||||
// sql.add('order by b.MJXH');
|
||||
// Open;
|
||||
// end;
|
||||
// SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
// SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
//
|
||||
// with ADOQueryTemp do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.add('exec P_Do_PrintMd_HZ ');
|
||||
// sql.add('@mainID='+quotedstr(Trim('')));
|
||||
// sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
// sql.add(',@flag=''0'' ');
|
||||
// Open;
|
||||
// end;
|
||||
// SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
// SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
// end;
|
||||
|
||||
IF trim(ComboBox1.Text)='混色包装-10色' then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd30 ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''0'' ');
|
||||
sql.add(',@CNum=''10'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''1'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
end;
|
||||
IF trim(ComboBox1.Text)='混色包装-重量' then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd30 ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''0'' ');
|
||||
sql.add(',@CNum=''10'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_HZ);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_HZ);
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID='+quotedstr(Trim('')));
|
||||
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''1'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
|
||||
end;
|
||||
|
||||
|
||||
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
RM1.LoadFromFile(fPrintFile);
|
||||
RM1.ShowReport;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Application.MessageBox(PChar('没有找'+fPrintFile),'提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
815
检验管理/U_CKProductBCPOutList.dfm
Normal file
815
检验管理/U_CKProductBCPOutList.dfm
Normal file
|
|
@ -0,0 +1,815 @@
|
|||
object frmCKProductBCPOutList: TfrmCKProductBCPOutList
|
||||
Left = 14
|
||||
Top = 144
|
||||
Width = 1378
|
||||
Height = 754
|
||||
Caption = #25104#21697#20986#24211#21015#34920
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1362
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 9
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBCKCX: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
Caption = #25764#38144#20986#24211
|
||||
ImageIndex = 129
|
||||
Visible = False
|
||||
OnClick = TBCKCXClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 209
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 272
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 335
|
||||
Top = 3
|
||||
Width = 140
|
||||
Height = 24
|
||||
Style = csDropDownList
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ItemHeight = 16
|
||||
ItemIndex = 0
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
Text = #38144#21806#30721#21333
|
||||
Items.Strings = (
|
||||
#38144#21806#30721#21333
|
||||
#38144#21806#30721#21333'-'#23433#24247
|
||||
#38144#21806#30721#21333'-QLO'
|
||||
#21333#33394#21253#35013
|
||||
#21333#33394#21253#35013'-'#38271#24230
|
||||
#28151#33394#21253#35013'-10'#33394
|
||||
#28151#33394#21253#35013'-'#37325#37327)
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 475
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1362
|
||||
Height = 80
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 337
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20013#25991#21517#31216
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 499
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #39068#33394
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 28
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26597#35810#26102#38388
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 64
|
||||
Top = 36
|
||||
Width = 12
|
||||
Height = 12
|
||||
Caption = #33267
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 178
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #35746' '#21333' '#21495
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 178
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26465' '#30721
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 337
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20811' '#37325
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 499
|
||||
Top = 36
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #38376#24133
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 628
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #31867' '#22411
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 628
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20986#24211#21333#21495
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 1084
|
||||
Top = 8
|
||||
Width = 46
|
||||
Height = 12
|
||||
Caption = #21253#25968#65306'0'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 789
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #33457#22411#33457#21495
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 789
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #33394' '#21495
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 941
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #32568' '#21495
|
||||
end
|
||||
object PRTCodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 386
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 77
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 1
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 77
|
||||
Top = 33
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 2
|
||||
end
|
||||
object orderNo: TEdit
|
||||
Tag = 2
|
||||
Left = 228
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = orderNoChange
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object MJID: TEdit
|
||||
Tag = 2
|
||||
Left = 228
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTKZ: TEdit
|
||||
Tag = 1
|
||||
Left = 386
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTMF: TEdit
|
||||
Tag = 1
|
||||
Left = 524
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object CPType: TComboBox
|
||||
Tag = 2
|
||||
Left = 681
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
TabOrder = 7
|
||||
OnChange = TBFindClick
|
||||
Items.Strings = (
|
||||
#27491#21697
|
||||
#27425#21697
|
||||
#22810#25340
|
||||
'')
|
||||
end
|
||||
object CkOrdNo: TEdit
|
||||
Tag = 2
|
||||
Left = 681
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 8
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTColor: TEdit
|
||||
Tag = 2
|
||||
Left = 524
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 9
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTHX: TEdit
|
||||
Tag = 2
|
||||
Left = 838
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 10
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object SOrddefstr1: TEdit
|
||||
Tag = 2
|
||||
Left = 838
|
||||
Top = 33
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 11
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object MJstr4: TEdit
|
||||
Tag = 2
|
||||
Left = 990
|
||||
Top = 9
|
||||
Width = 90
|
||||
Height = 20
|
||||
TabOrder = 12
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object CheckBox1: TCheckBox
|
||||
Left = 28
|
||||
Top = 52
|
||||
Width = 97
|
||||
Height = 17
|
||||
Caption = #20840#36873
|
||||
TabOrder = 13
|
||||
OnClick = CheckBox1Click
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 113
|
||||
Width = 1362
|
||||
Height = 603
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseUp = Tv1MouseUp
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skCount
|
||||
Column = v1Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column14
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column15
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.Indicator = True
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Column11: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'orderNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 74
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #20013#25991#21517#31216
|
||||
DataBinding.FieldName = 'PRTCodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #33457#22411#33457#21495
|
||||
DataBinding.FieldName = 'PRTHX'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 74
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'PRTMF'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'PRTKZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 59
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #21367#21495
|
||||
DataBinding.FieldName = 'MJXH'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21367#26465#30721
|
||||
DataBinding.FieldName = 'MJID'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 92
|
||||
end
|
||||
object v1Column13: TcxGridDBColumn
|
||||
Caption = #21253#21495
|
||||
DataBinding.FieldName = 'BaoNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v1BAOID: TcxGridDBColumn
|
||||
Caption = #21253#26465#30721
|
||||
DataBinding.FieldName = 'BAOID'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 65
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'CPType'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 63
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20986#24211#26102#38388
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 107
|
||||
end
|
||||
object v1Column14: TcxGridDBColumn
|
||||
Caption = #30382#37325
|
||||
DataBinding.FieldName = 'MJQty3'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 59
|
||||
end
|
||||
object v1Column15: TcxGridDBColumn
|
||||
Caption = #20928#37325
|
||||
DataBinding.FieldName = 'MJQty4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 55
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #27611#37325
|
||||
DataBinding.FieldName = 'KGQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 65
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #20986#24211#38271#24230
|
||||
DataBinding.FieldName = 'Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 85
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #38271#24230#21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 83
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #20986#24211#21333#21495
|
||||
DataBinding.FieldName = 'CKOrdNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 73
|
||||
end
|
||||
object v1Column16: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'CRNote'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 88
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'SOrddefstr1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 75
|
||||
end
|
||||
object v1Column17: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'MJstr4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v1Column18: TcxGridDBColumn
|
||||
Caption = #26579#21378#32568#21495
|
||||
DataBinding.FieldName = 'MJstr5'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object MovePanel2: TMovePanel
|
||||
Left = 344
|
||||
Top = 192
|
||||
Width = 289
|
||||
Height = 49
|
||||
BevelInner = bvLowered
|
||||
Caption = #27491#22312#25191#34892#25968#25454#25805#20316#65292#35831#31245#21518#12290#12290#12290
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -14
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
end
|
||||
object Panel4: TPanel
|
||||
Left = 62
|
||||
Top = 148
|
||||
Width = 294
|
||||
Height = 212
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
object Label11: TLabel
|
||||
Left = 48
|
||||
Top = 88
|
||||
Width = 6
|
||||
Height = 12
|
||||
end
|
||||
object Panel10: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 292
|
||||
Height = 24
|
||||
Align = alTop
|
||||
Alignment = taLeftJustify
|
||||
BevelOuter = bvNone
|
||||
Caption = #20107#20214#35828#26126
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object Image2: TImage
|
||||
Left = 269
|
||||
Top = 3
|
||||
Width = 22
|
||||
Height = 16
|
||||
ParentShowHint = False
|
||||
Picture.Data = {
|
||||
07544269746D617076040000424D760400000000000036000000280000001500
|
||||
0000110000000100180000000000400400000000000000000000000000000000
|
||||
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
|
||||
F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
|
||||
404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
|
||||
808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
|
||||
000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00}
|
||||
ShowHint = True
|
||||
Transparent = True
|
||||
OnClick = Image2Click
|
||||
end
|
||||
end
|
||||
object RichEdit1: TRichEdit
|
||||
Left = 1
|
||||
Top = 25
|
||||
Width = 292
|
||||
Height = 186
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 1188
|
||||
Top = 48
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1132
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1112
|
||||
Top = 40
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 784
|
||||
Top = 248
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 840
|
||||
Top = 192
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = CDS_PRT
|
||||
Left = 360
|
||||
Top = 248
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 100
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 416
|
||||
Top = 248
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 256
|
||||
Top = 152
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Caption = #20840#24323
|
||||
OnClick = N2Click
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 216
|
||||
Top = 216
|
||||
end
|
||||
object cxGridPopupMenu3: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 600
|
||||
Top = 376
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 553
|
||||
Top = 152
|
||||
ReportData = {}
|
||||
end
|
||||
object cxGridPopupMenu4: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 716
|
||||
Top = 484
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 920
|
||||
Top = 152
|
||||
end
|
||||
object ADOQueryPrint: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 1172
|
||||
Top = 57
|
||||
end
|
||||
object RMDBHZ: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = CDS_HZ
|
||||
Left = 572
|
||||
Top = 168
|
||||
end
|
||||
object CDS_HZ: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 568
|
||||
Top = 224
|
||||
end
|
||||
object CDS_PRT: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 512
|
||||
Top = 224
|
||||
end
|
||||
end
|
||||
1539
检验管理/U_CKProductBCPOutList.pas
Normal file
1539
检验管理/U_CKProductBCPOutList.pas
Normal file
File diff suppressed because it is too large
Load Diff
636
检验管理/U_CKProductJYHZList.dfm
Normal file
636
检验管理/U_CKProductJYHZList.dfm
Normal file
|
|
@ -0,0 +1,636 @@
|
|||
object frmCKProductJYHZList: TfrmCKProductJYHZList
|
||||
Left = 128
|
||||
Top = 152
|
||||
Width = 1238
|
||||
Height = 511
|
||||
Caption = #25104#21697#26816#39564#27719#24635#20449#24687
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1222
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 9
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26597#30475#26126#32454
|
||||
ImageIndex = 3
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 276
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
Visible = False
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 339
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1222
|
||||
Height = 64
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 212
|
||||
Top = 36
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 24
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26597#35810#26102#38388
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 60
|
||||
Top = 36
|
||||
Width = 12
|
||||
Height = 12
|
||||
Caption = #33267
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 212
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #35746' '#21333' '#21495
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 420
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #39068#33394
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 211
|
||||
Top = 100
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20811' '#37325
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 380
|
||||
Top = 108
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #38376#24133
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 608
|
||||
Top = 36
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #31867#22411
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 504
|
||||
Top = 36
|
||||
Width = 6
|
||||
Height = 12
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 488
|
||||
Top = 80
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #19994#21153#21592
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 488
|
||||
Top = 104
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #36319#21333#21592
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 420
|
||||
Top = 36
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #32568#21495
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 608
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #33394#21495
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 804
|
||||
Top = 12
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #27454#21495
|
||||
end
|
||||
object PRTCodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 266
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 73
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 1
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 73
|
||||
Top = 33
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 2
|
||||
end
|
||||
object orderNo: TEdit
|
||||
Tag = 2
|
||||
Left = 266
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTColor: TEdit
|
||||
Tag = 2
|
||||
Left = 446
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object MPRTKZ: TEdit
|
||||
Tag = 2
|
||||
Left = 260
|
||||
Top = 96
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object MPRTMF: TEdit
|
||||
Tag = 2
|
||||
Left = 404
|
||||
Top = 104
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object CPType: TComboBox
|
||||
Tag = 2
|
||||
Left = 638
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
TabOrder = 7
|
||||
OnChange = TBFindClick
|
||||
Items.Strings = (
|
||||
#27491#21697
|
||||
#27425#21697
|
||||
#22810#25340
|
||||
'')
|
||||
end
|
||||
object YWY: TEdit
|
||||
Tag = 2
|
||||
Left = 526
|
||||
Top = 76
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 8
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object OrdPerson1: TEdit
|
||||
Tag = 2
|
||||
Left = 526
|
||||
Top = 100
|
||||
Width = 65
|
||||
Height = 20
|
||||
TabOrder = 9
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object MJstr4: TEdit
|
||||
Tag = 1
|
||||
Left = 446
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 10
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object SOrddefstr1: TEdit
|
||||
Tag = 2
|
||||
Left = 638
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 11
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object PRTkuanNo: TEdit
|
||||
Tag = 2
|
||||
Left = 834
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 12
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 97
|
||||
Width = 1222
|
||||
Height = 376
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseUp = Tv1MouseUp
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column11
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column12
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #20837#24211#26085#26399
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 89
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'orderNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 72
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #21512#21516#21495
|
||||
DataBinding.FieldName = 'conNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'PRTCodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 125
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'SOrddefstr1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #39068#33394'('#33521#25991')'
|
||||
DataBinding.FieldName = 'SOrddefstr4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'PRTHX'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #27454#21495
|
||||
DataBinding.FieldName = 'PRTKuanNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column13: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'CPType'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'MJStr4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21367#25968
|
||||
DataBinding.FieldName = 'JQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #38271#24230
|
||||
DataBinding.FieldName = 'Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 83
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #27611#37325
|
||||
DataBinding.FieldName = 'KGQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column11: TcxGridDBColumn
|
||||
Caption = #20928#37325
|
||||
DataBinding.FieldName = 'MJQty4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object MovePanel2: TMovePanel
|
||||
Left = 408
|
||||
Top = 192
|
||||
Width = 289
|
||||
Height = 49
|
||||
BevelInner = bvLowered
|
||||
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -14
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
end
|
||||
object Panel4: TPanel
|
||||
Left = 62
|
||||
Top = 139
|
||||
Width = 294
|
||||
Height = 213
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
object Label13: TLabel
|
||||
Left = 48
|
||||
Top = 88
|
||||
Width = 6
|
||||
Height = 12
|
||||
end
|
||||
object Panel10: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 292
|
||||
Height = 23
|
||||
Align = alTop
|
||||
Alignment = taLeftJustify
|
||||
BevelOuter = bvNone
|
||||
Caption = #20107#20214#35828#26126
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object Image2: TImage
|
||||
Left = 269
|
||||
Top = 3
|
||||
Width = 22
|
||||
Height = 16
|
||||
ParentShowHint = False
|
||||
Picture.Data = {
|
||||
07544269746D617076040000424D760400000000000036000000280000001500
|
||||
0000110000000100180000000000400400000000000000000000000000000000
|
||||
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
|
||||
F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
|
||||
404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
|
||||
808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
|
||||
000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
|
||||
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
|
||||
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
|
||||
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
|
||||
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FF00}
|
||||
ShowHint = True
|
||||
Transparent = True
|
||||
OnClick = Image2Click
|
||||
end
|
||||
end
|
||||
object RichEdit1: TRichEdit
|
||||
Left = 1
|
||||
Top = 24
|
||||
Width = 292
|
||||
Height = 188
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 980
|
||||
Top = 144
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 996
|
||||
Top = 144
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 956
|
||||
Top = 136
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 920
|
||||
Top = 152
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 888
|
||||
Top = 144
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 776
|
||||
Top = 224
|
||||
end
|
||||
object RMGridReport1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 720
|
||||
Top = 136
|
||||
ReportData = {}
|
||||
end
|
||||
end
|
||||
271
检验管理/U_CKProductJYHZList.pas
Normal file
271
检验管理/U_CKProductJYHZList.pas
Normal file
|
|
@ -0,0 +1,271 @@
|
|||
unit U_CKProductJYHZList;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit,
|
||||
cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmCKProductJYHZList = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBExport: TToolButton;
|
||||
TBPrint: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
Label3: TLabel;
|
||||
PRTCodeName: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
CDS_Main: TClientDataSet;
|
||||
Tv1: TcxGridDBTableView;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
cxGrid2: TcxGrid;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
Label5: TLabel;
|
||||
orderNo: TEdit;
|
||||
Label6: TLabel;
|
||||
PRTColor: TEdit;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
Label8: TLabel;
|
||||
MPRTKZ: TEdit;
|
||||
Label9: TLabel;
|
||||
MPRTMF: TEdit;
|
||||
Label7: TLabel;
|
||||
CPType: TComboBox;
|
||||
MovePanel2: TMovePanel;
|
||||
Label10: TLabel;
|
||||
Label11: TLabel;
|
||||
Label12: TLabel;
|
||||
YWY: TEdit;
|
||||
OrdPerson1: TEdit;
|
||||
v1Column11: TcxGridDBColumn;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
MJstr4: TEdit;
|
||||
Label4: TLabel;
|
||||
Panel4: TPanel;
|
||||
Label13: TLabel;
|
||||
Panel10: TPanel;
|
||||
Image2: TImage;
|
||||
RichEdit1: TRichEdit;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column9: TcxGridDBColumn;
|
||||
SOrddefstr1: TEdit;
|
||||
Label14: TLabel;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
RMGridReport1: TRMGridReport;
|
||||
ToolButton1: TToolButton;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
PRTkuanNo: TEdit;
|
||||
Label15: TLabel;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ConNoMChange(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure PRTCodeNameChange(Sender: TObject);
|
||||
procedure PRTColorChange(Sender: TObject);
|
||||
procedure Image2Click(Sender: TObject);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure TBPrintClick(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
private
|
||||
FLeft,FTop:Integer;
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmCKProductJYHZList: TfrmCKProductJYHZList;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun,U_ZDYHelp,U_JYOrderCDOne;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmCKProductJYHZList.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmCKProductJYHZList:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//cxGrid1.Align:=alClient;
|
||||
BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
|
||||
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
Filtered:=False;
|
||||
sql.Add('select convert(char(10),A.fillTime,120) as CRTime,A.MJType as CPType,A.MainId,A.MJTypeother as QtyUnit,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.PRTkuanNo,D.SOrddefstr1,D.Sorddefstr4,');
|
||||
sql.Add('count(A.MainId) as JQty,SUM(A.MJLen) as Qty,SUM(A.MJMaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,');
|
||||
sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)');
|
||||
sql.Add('from WFB_MJJY A ');
|
||||
sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId ');
|
||||
sql.Add('inner join JYOrder_sub D on D.subID=A.subID ');
|
||||
Sql.add('where A.fillTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' ');
|
||||
Sql.add('and A.fillTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' ');
|
||||
Sql.add('group by convert(char(10),A.fillTime,120),A.MJType,A.MainId,A.MJTypeother,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.PRTkuanNo,D.SOrddefstr1,D.SOrddefstr4');
|
||||
Open;
|
||||
//ShowMessage(SQL.Text);
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
//BegDate.SetFocus;
|
||||
MovePanel2.Visible:=True;
|
||||
MovePanel2.Refresh;
|
||||
InitGrid();
|
||||
MovePanel2.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.FormShow(Sender: TObject);
|
||||
begin
|
||||
|
||||
ReadCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库');
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
TcxGridToExcel('库存汇总列表',cxGrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.PRTCodeNameChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.PRTColorChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.Image2Click(Sender: TObject);
|
||||
begin
|
||||
Panel4.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.Tv1CellDblClick(
|
||||
Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
Panel4.Left:=FLeft;
|
||||
Panel4.Top:=FTop+110;
|
||||
Panel4.Visible:=True;
|
||||
Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption);
|
||||
RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
|
||||
application.ProcessMessages;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
FLeft:=X;
|
||||
FTop:=Y;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.TBPrintClick(Sender: TObject);
|
||||
begin
|
||||
RMGridReport1.PreviewButtons:=[pbZoom,pbLoad,pbSave,pbPrint,pbFind,pbPageSetup,pbExit,pbExport,pbNavigator];
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
if cds_main.IsEmpty then Exit;
|
||||
frmJYOrderCDOne:=TfrmJYOrderCDOne.Create(Application);
|
||||
with frmJYOrderCDOne do
|
||||
begin
|
||||
orderno.Text:=trim(self.CDS_Main.fieldbyname('orderno').asstring);
|
||||
MJstr4.Text:=trim(self.CDS_Main.fieldbyname('MJStr4').asstring);
|
||||
PRTColor.Text:=trim(self.CDS_Main.fieldbyname('PRTColor').asstring);
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
// InitGrid();
|
||||
end;
|
||||
free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
345
检验管理/U_CKYCLKC.dfm
Normal file
345
检验管理/U_CKYCLKC.dfm
Normal file
|
|
@ -0,0 +1,345 @@
|
|||
object frmCKYCLKC: TfrmCKYCLKC
|
||||
Left = 128
|
||||
Top = 152
|
||||
Width = 1027
|
||||
Height = 511
|
||||
Caption = #21407#26448#26009#20986#20837#23384
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1019
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_JWLCK.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 9
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
Visible = False
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 14
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 311
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1019
|
||||
Height = 42
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 302
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #29289#26009#21517#31216
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 478
|
||||
Top = 12
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #35268' '#26684
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 638
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20379' '#24212' '#21830
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 28
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #26597#35810#26102#38388
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 168
|
||||
Top = 12
|
||||
Width = 12
|
||||
Height = 12
|
||||
Caption = #33267
|
||||
end
|
||||
object YCLName: TEdit
|
||||
Tag = 2
|
||||
Left = 351
|
||||
Top = 9
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = YCLNameChange
|
||||
end
|
||||
object YCLSpec: TEdit
|
||||
Tag = 2
|
||||
Left = 516
|
||||
Top = 9
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 1
|
||||
OnChange = YCLNameChange
|
||||
end
|
||||
object GYSName: TEdit
|
||||
Tag = 2
|
||||
Left = 687
|
||||
Top = 9
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
OnChange = YCLNameChange
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 77
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 3
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 181
|
||||
Top = 9
|
||||
Width = 87
|
||||
Height = 20
|
||||
Date = 40768.458268587970000000
|
||||
Time = 40768.458268587970000000
|
||||
TabOrder = 4
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 75
|
||||
Width = 1019
|
||||
Height = 399
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column2
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column7
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column8
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_JWLCK.Default
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #29289#26009#21517#31216
|
||||
DataBinding.FieldName = 'YCLName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 92
|
||||
end
|
||||
object v2Column2: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'YCLSpec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 77
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #20379#24212#21830
|
||||
DataBinding.FieldName = 'GYSName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 77
|
||||
end
|
||||
object v2Column4: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'KCUint'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 82
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #19978#26399#25968#37327
|
||||
DataBinding.FieldName = 'SQJCS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 73
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #26412#26399#20837#24211#25968#37327
|
||||
DataBinding.FieldName = 'RKS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 101
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #26412#26399#22238#20179#25968#37327
|
||||
DataBinding.FieldName = 'HCS'
|
||||
Options.Focusing = False
|
||||
Width = 87
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #26412#26399#36864#36135#25968#37327
|
||||
DataBinding.FieldName = 'THS'
|
||||
Options.Focusing = False
|
||||
Width = 88
|
||||
end
|
||||
object v2Column7: TcxGridDBColumn
|
||||
Caption = #26412#26399#20986#24211#25968#37327
|
||||
DataBinding.FieldName = 'CKS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 93
|
||||
end
|
||||
object v2Column8: TcxGridDBColumn
|
||||
Caption = #24211#23384#25968#37327
|
||||
DataBinding.FieldName = 'KCQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 78
|
||||
end
|
||||
object v2Column9: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'KCType'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
#20027#35201
|
||||
#36741#21161
|
||||
#20854#23427
|
||||
'')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 81
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_JWLCK.ADOLink
|
||||
Parameters = <>
|
||||
Left = 904
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_JWLCK.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 840
|
||||
Top = 40
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_JWLCK.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 872
|
||||
Top = 40
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 624
|
||||
Top = 184
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 544
|
||||
Top = 176
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 416
|
||||
Top = 192
|
||||
end
|
||||
end
|
||||
241
检验管理/U_CKYCLKC.pas
Normal file
241
检验管理/U_CKYCLKC.pas
Normal file
|
|
@ -0,0 +1,241 @@
|
|||
unit U_CKYCLKC;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit;
|
||||
|
||||
type
|
||||
TfrmCKYCLKC = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBExport: TToolButton;
|
||||
TBPrint: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label7: TLabel;
|
||||
YCLName: TEdit;
|
||||
YCLSpec: TEdit;
|
||||
GYSName: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
CDS_Main: TClientDataSet;
|
||||
Tv1: TcxGridDBTableView;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
cxGrid2: TcxGrid;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v2Column2: TcxGridDBColumn;
|
||||
v2Column3: TcxGridDBColumn;
|
||||
v2Column4: TcxGridDBColumn;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v2Column7: TcxGridDBColumn;
|
||||
v2Column8: TcxGridDBColumn;
|
||||
v2Column9: TcxGridDBColumn;
|
||||
ToolButton1: TToolButton;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ConNoMChange(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure YCLNameChange(Sender: TObject);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmCKYCLKC: TfrmCKYCLKC;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_Fun,U_CRMX;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmCKYCLKC.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmCKYCLKC:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//cxGrid1.Align:=alClient;
|
||||
BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-30;
|
||||
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('exec CK_YCL_CRCHZ :begdate,:enddate,:CKName');
|
||||
Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime));
|
||||
Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1));
|
||||
Parameters.ParamByName('CKName').Value:=Trim(DParameters1);
|
||||
Open;
|
||||
//ShowMessage(SQL.Text);
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
BegDate.SetFocus;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('埻第蹋踱湔2',Tv1,'埻第蹋累踱');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.FormShow(Sender: TObject);
|
||||
begin
|
||||
|
||||
ReadCxGrid('埻第蹋踱湔2',Tv1,'埻第蹋累踱');
|
||||
if Trim(DParameters2)='埻蹋濬倰' then
|
||||
begin
|
||||
ToolButton1.Visible:=True;
|
||||
v2Column9.Options.Focusing:=True;
|
||||
v2Column9.Visible:=True;
|
||||
end else
|
||||
begin
|
||||
ToolButton1.Visible:=False;
|
||||
v2Column9.Options.Focusing:=False;
|
||||
v2Column9.Visible:=False;
|
||||
end;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
TcxGridToExcel(Trim(DParameters1)+'踱湔',cxGrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.YCLNameChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
try
|
||||
frmCRMX:=TfrmCRMX.Create(Application);
|
||||
with frmCRMX do
|
||||
begin
|
||||
Fbegdate:=FormatDateTime('yyyy-MM-dd',Self.BegDate.DateTime);
|
||||
Fenddate:=FormatDateTime('yyyy-MM-dd',Self.enddate.DateTime+1);
|
||||
{FGYS:=Trim(Self.CDS_Main.fieldbyname('GYS').AsString);
|
||||
FYCLCode:=Trim(Self.CDS_Main.fieldbyname('YCLCode').AsString);
|
||||
FYCLSpec:=Trim(Self.CDS_Main.fieldbyname('YCLSpec').AsString);
|
||||
FCRUnit:=Trim(Self.CDS_Main.fieldbyname('KCUint').AsString); }
|
||||
CRID:=Trim(Self.CDS_Main.fieldbyname('CRID').AsString);
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmCRMX.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKYCLKC.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
BegDate.SetFocus;
|
||||
CDS_Main.DisableControls;
|
||||
with CDS_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update CK_YCL_KC Set KCType='''+Trim(CDS_Main.fieldbyname('KCType').AsString)+'''');
|
||||
SQL.Add(' where CRID='+CDS_Main.fieldbyname('CRID').AsString);
|
||||
ExecSQL;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
CDS_Main.EnableControls;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
Application.MessageBox('悵湔傖髡ㄐ','枑尨',0);
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('悵湔囮啖ㄐ','枑尨',0);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
1652
检验管理/U_CPDBAO.dfm
Normal file
1652
检验管理/U_CPDBAO.dfm
Normal file
File diff suppressed because it is too large
Load Diff
1310
检验管理/U_CPDBAO.pas
Normal file
1310
检验管理/U_CPDBAO.pas
Normal file
File diff suppressed because it is too large
Load Diff
653
检验管理/U_ClothContractInPut.dfm
Normal file
653
检验管理/U_ClothContractInPut.dfm
Normal file
|
|
@ -0,0 +1,653 @@
|
|||
object frmClothContractInPut: TfrmClothContractInPut
|
||||
Left = 132
|
||||
Top = 120
|
||||
Width = 864
|
||||
Height = 625
|
||||
Caption = #22383#24067#35746#36141#21512#21516#24405#20837
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 856
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBSave: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 14
|
||||
OnClick = TBSaveClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 0
|
||||
Top = 29
|
||||
Width = 856
|
||||
Height = 241
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
Ctl3D = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 24
|
||||
Top = 14
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 295
|
||||
Top = 14
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #20379' '#26041#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 546
|
||||
Top = 14
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #38656' '#26041#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 546
|
||||
Top = 45
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20132#36135#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 24
|
||||
Top = 45
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #31614#35746#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 295
|
||||
Top = 45
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #31614#35746#22320#28857#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 298
|
||||
Top = 89
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20132#36135#22320#28857#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 24
|
||||
Top = 77
|
||||
Width = 65
|
||||
Height = 36
|
||||
Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 544
|
||||
Top = 77
|
||||
Width = 65
|
||||
Height = 36
|
||||
Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 24
|
||||
Top = 137
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21253#35013#35201#27714#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 298
|
||||
Top = 137
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #32467#31639#26041#24335#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 24
|
||||
Top = 177
|
||||
Width = 195
|
||||
Height = 12
|
||||
Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 24
|
||||
Top = 209
|
||||
Width = 91
|
||||
Height = 12
|
||||
Caption = #20854#23427#32422#23450#20107#39033#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Left = 86
|
||||
Top = 11
|
||||
Width = 181
|
||||
Height = 18
|
||||
TabOrder = 0
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object FactoryNoName: TcxButtonEdit
|
||||
Left = 359
|
||||
Top = 10
|
||||
Hint = 'FactoryNo'
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick
|
||||
Properties.OnChange = FactoryNoNamePropertiesChange
|
||||
TabOrder = 1
|
||||
OnKeyDown = PRTCodeNameKeyDown
|
||||
Width = 162
|
||||
end
|
||||
object PanZDY: TPanel
|
||||
Left = 841
|
||||
Top = 128
|
||||
Width = 202
|
||||
Height = 153
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
object CXGridZDY: TcxGrid
|
||||
Left = 3
|
||||
Top = 4
|
||||
Width = 197
|
||||
Height = 113
|
||||
TabOrder = 0
|
||||
object TVZDY: TcxGridDBTableView
|
||||
OnKeyPress = TVZDYKeyPress
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellDblClick = TVZDYCellDblClick
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.GroupByBox = False
|
||||
object VHelpZDYName: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ZDYName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 163
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
end
|
||||
object CXGridZDYLevel1: TcxGridLevel
|
||||
GridView = TVZDY
|
||||
end
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 64
|
||||
Top = 120
|
||||
Width = 65
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 1
|
||||
OnClick = Button1Click
|
||||
end
|
||||
end
|
||||
object CompanyName: TcxButtonEdit
|
||||
Left = 609
|
||||
Top = 10
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = CompanyNamePropertiesButtonClick
|
||||
TabOrder = 3
|
||||
OnKeyDown = PRTCodeNameKeyDown
|
||||
Width = 175
|
||||
end
|
||||
object DeliveryDate: TDateTimePicker
|
||||
Left = 609
|
||||
Top = 41
|
||||
Width = 177
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.670856296290000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40916.670856296290000000
|
||||
ShowCheckbox = True
|
||||
TabOrder = 4
|
||||
end
|
||||
object QDTime: TDateTimePicker
|
||||
Left = 86
|
||||
Top = 41
|
||||
Width = 183
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.670856296290000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40916.670856296290000000
|
||||
ShowCheckbox = True
|
||||
TabOrder = 5
|
||||
end
|
||||
object QDPalce: TEdit
|
||||
Left = 359
|
||||
Top = 42
|
||||
Width = 161
|
||||
Height = 18
|
||||
TabOrder = 6
|
||||
end
|
||||
object JHPlace: TcxButtonEdit
|
||||
Left = 361
|
||||
Top = 85
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = JHPlacePropertiesButtonClick
|
||||
TabOrder = 7
|
||||
Width = 162
|
||||
end
|
||||
object ConTK1: TcxButtonEdit
|
||||
Left = 86
|
||||
Top = 85
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
TabOrder = 8
|
||||
Width = 183
|
||||
end
|
||||
object ConTk2: TcxButtonEdit
|
||||
Left = 609
|
||||
Top = 85
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
TabOrder = 9
|
||||
Width = 179
|
||||
end
|
||||
object ConTK3: TcxButtonEdit
|
||||
Left = 86
|
||||
Top = 133
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
TabOrder = 10
|
||||
Width = 184
|
||||
end
|
||||
object ConTK4: TcxButtonEdit
|
||||
Left = 361
|
||||
Top = 133
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
TabOrder = 11
|
||||
Width = 162
|
||||
end
|
||||
object ConTK5: TcxButtonEdit
|
||||
Left = 216
|
||||
Top = 173
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
TabOrder = 12
|
||||
Width = 576
|
||||
end
|
||||
object ConTk6: TcxButtonEdit
|
||||
Left = 110
|
||||
Top = 205
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
TabOrder = 13
|
||||
Width = 683
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 0
|
||||
Top = 270
|
||||
Width = 856
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 2
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 299
|
||||
Width = 856
|
||||
Height = 289
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = 'C_Code'
|
||||
Column = v1Column1
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.GroupByBox = False
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = v1Column1PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 100
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684#22411#21495
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 103
|
||||
end
|
||||
object v1PRTColor: TcxGridDBColumn
|
||||
Caption = #20811#37325'(g/'#13217')'
|
||||
DataBinding.FieldName = 'KZQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 78
|
||||
end
|
||||
object v1PRTKZ: TcxGridDBColumn
|
||||
Caption = #38376#24133'(cm)'
|
||||
DataBinding.FieldName = 'MFQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 80
|
||||
end
|
||||
object v1Price: TcxGridDBColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 58
|
||||
end
|
||||
object v1ClothQty: TcxGridDBColumn
|
||||
Caption = #24065#31181
|
||||
DataBinding.FieldName = 'PriceUnit'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 69
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #21305#25968#37327
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 54
|
||||
end
|
||||
object v1ClothUnit: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'C_Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 69
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'C_Unit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 64
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 46
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 85
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object ADOTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 816
|
||||
Top = 85
|
||||
end
|
||||
object ADOCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 800
|
||||
Top = 109
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Sub
|
||||
Left = 344
|
||||
Top = 376
|
||||
end
|
||||
object Order_Sub: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 384
|
||||
Top = 376
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ADOZDY
|
||||
Left = 240
|
||||
Top = 8
|
||||
end
|
||||
object ADOZDY: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 280
|
||||
Top = 5
|
||||
end
|
||||
object CDS_ZDY: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 208
|
||||
Top = 16
|
||||
end
|
||||
object ADOQuery1: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 792
|
||||
Top = 125
|
||||
end
|
||||
end
|
||||
760
检验管理/U_ClothContractInPut.pas
Normal file
760
检验管理/U_ClothContractInPut.pas
Normal file
|
|
@ -0,0 +1,760 @@
|
|||
unit U_ClothContractInPut;
|
||||
|
||||
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, cxDropDownEdit;
|
||||
|
||||
type
|
||||
TfrmClothContractInPut = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBSave: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ScrollBox1: TScrollBox;
|
||||
Label1: TLabel;
|
||||
ConNo: TEdit;
|
||||
Label5: TLabel;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1PRTSpec: TcxGridDBColumn;
|
||||
v1PRTColor: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
v1PRTKZ: TcxGridDBColumn;
|
||||
v1ClothQty: TcxGridDBColumn;
|
||||
v1Price: TcxGridDBColumn;
|
||||
v1ClothUnit: TcxGridDBColumn;
|
||||
ADOTemp: TADOQuery;
|
||||
ADOCmd: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
Order_Sub: TClientDataSet;
|
||||
DataSource2: TDataSource;
|
||||
ADOZDY: TADOQuery;
|
||||
CDS_ZDY: TClientDataSet;
|
||||
FactoryNoName: TcxButtonEdit;
|
||||
ADOQuery1: TADOQuery;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
PanZDY: TPanel;
|
||||
CXGridZDY: TcxGrid;
|
||||
TVZDY: TcxGridDBTableView;
|
||||
VHelpZDYName: TcxGridDBColumn;
|
||||
CXGridZDYLevel1: TcxGridLevel;
|
||||
Button1: TButton;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
Label3: TLabel;
|
||||
CompanyName: TcxButtonEdit;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
Label4: TLabel;
|
||||
Label2: TLabel;
|
||||
Label6: TLabel;
|
||||
Label8: TLabel;
|
||||
DeliveryDate: TDateTimePicker;
|
||||
QDTime: TDateTimePicker;
|
||||
QDPalce: TEdit;
|
||||
JHPlace: TcxButtonEdit;
|
||||
Label7: TLabel;
|
||||
ConTK1: TcxButtonEdit;
|
||||
Label9: TLabel;
|
||||
ConTk2: TcxButtonEdit;
|
||||
Label10: TLabel;
|
||||
ConTK3: TcxButtonEdit;
|
||||
Label11: TLabel;
|
||||
ConTK4: TcxButtonEdit;
|
||||
Label12: TLabel;
|
||||
ConTK5: TcxButtonEdit;
|
||||
Label13: TLabel;
|
||||
ConTk6: TcxButtonEdit;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTColorPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure FactoryNoNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTMFPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1OrderQtyPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1ClothQtyPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column2PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure FactoryNoNamePropertiesChange(Sender: TObject);
|
||||
procedure CompanyNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure JHPlacePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
|
||||
private
|
||||
FXS:Integer;
|
||||
procedure InitData();
|
||||
procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||||
function SaveData():Boolean;
|
||||
{ Private declarations }
|
||||
public
|
||||
PState:Integer;
|
||||
FMainId,FConNo:String;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmClothContractInPut: TfrmClothContractInPut;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_ZDYHelp,U_Fun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmClothContractInPut.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.InitData();
|
||||
begin
|
||||
with ADOQuery1 do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' exec ClothContract_QryList :MainId,:WSql');
|
||||
if PState=1 then
|
||||
begin
|
||||
ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
|
||||
ADOQuery1.Parameters.ParamByName('WSQl').Value:='';
|
||||
end;
|
||||
if PState=0 then
|
||||
begin
|
||||
ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
|
||||
ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 ';
|
||||
end;
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQuery1,Order_Sub);
|
||||
SInitCDSData20(ADOQuery1,Order_Sub);
|
||||
SCSHData(ADOQuery1,ScrollBox1,0);
|
||||
if PState=0 then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select Top 1* from Contract_Main order by FillTime desc ');
|
||||
Open;
|
||||
end;
|
||||
QDTime.DateTime:=SGetServerDate(ADOTemp);
|
||||
DeliveryDate.DateTime:=SGetServerDate(ADOTemp);
|
||||
QDTime.Checked:=True;
|
||||
DeliveryDate.Checked:=False;
|
||||
end;
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||||
var
|
||||
FType,ZDYName,FText:String;
|
||||
begin
|
||||
PanZDY.Visible:=True;
|
||||
PanZDY.Left:=FButn.Left;
|
||||
PanZDY.Top:=FButn.Top+FButn.Height;
|
||||
with ADOZDY do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+'''');
|
||||
Open;
|
||||
end;
|
||||
FText:=Trim(FButn.Text);
|
||||
if FText<>'' then
|
||||
SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%'))
|
||||
else
|
||||
SDofilter(ADOZDY,'');
|
||||
VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name);
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
var
|
||||
FName:string;
|
||||
begin
|
||||
if ADOZDY.IsEmpty then Exit;
|
||||
FName:=Trim(VHelpZDYName.Summary.GroupFormat);
|
||||
TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||||
TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.Button1Click(Sender: TObject);
|
||||
begin
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
{if (key=vk_return) or (Key=vk_Down) then
|
||||
begin
|
||||
if ADOZDY.Active then
|
||||
CXGridZDY.SetFocus;
|
||||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if ADOZDY.IsEmpty then Exit;
|
||||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||||
PanZDY.Visible:=False;
|
||||
ADOZDY.Active:=False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.FormShow(Sender: TObject);
|
||||
begin
|
||||
{if Trim(DParameters1)='1' then
|
||||
begin
|
||||
v1Price.Visible:=False;
|
||||
v1ClothQty.Visible:=False;
|
||||
v1PRTQty.Visible:=False;
|
||||
end else
|
||||
begin
|
||||
v1Price.Visible:=True;
|
||||
v1ClothQty.Visible:=True;
|
||||
v1PRTQty.Visible:=True;
|
||||
end; }
|
||||
InitData();
|
||||
end;
|
||||
|
||||
function TfrmClothContractInPut.SaveData():Boolean;
|
||||
var
|
||||
maxno:String;
|
||||
begin
|
||||
try
|
||||
ADOCmd.Connection.BeginTrans;
|
||||
///保存主表
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from Contract_Main where MainId='''+Trim(FMainId)+'''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if Trim(FMainId)='' then
|
||||
begin
|
||||
Append;
|
||||
if GetLSNo(ADOTemp,maxno,'CM','Contract_Main',2,1)=False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('生成流水号异常！','提示',0);
|
||||
exit;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
maxno:=Trim(FMainId);
|
||||
Edit;
|
||||
end;
|
||||
FieldByName('MainId').Value:=Trim(maxno);
|
||||
SSetsaveSql(ADOCmd,'Contract_Main',ScrollBox1,0);
|
||||
|
||||
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);
|
||||
///保存子表
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('KZqty').AsString)='' then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('克重不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('MFqty').AsString)='' then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('门幅不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
if GetLSNo(ADOTemp,maxno,'CS','Contract_Sub',3,1)=False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取子流水号失败！','提示',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 Contract_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);
|
||||
SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0);
|
||||
if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then
|
||||
begin
|
||||
FieldByName('C_Qty').Value:=0;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('Qty1').AsString)='' then
|
||||
begin
|
||||
FieldByName('Qty1').Value:=0;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('Price').AsString)='' then
|
||||
begin
|
||||
FieldByName('Price').Value:=0;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then
|
||||
begin
|
||||
FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value*1.00*1000
|
||||
/(Order_Sub.fieldbyname('MFQty').Value*1.00/100*Order_Sub.fieldbyname('KZQty').Value);
|
||||
end else
|
||||
begin
|
||||
FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value;
|
||||
end;
|
||||
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('保存失败！','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.TBSaveClick(Sender: TObject);
|
||||
begin
|
||||
DeliveryDate.SetFocus;
|
||||
if Trim(ConNo.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('合同编号不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Trim(FactoryNoName.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('供方不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('明细不能为空！','提示',0);
|
||||
exit;
|
||||
end;
|
||||
if Order_Sub.Locate('C_Qty',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('数量不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.Locate('C_Unit',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('数量单位不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.Locate('KZQty',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('克重不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.Locate('MFQty',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('门幅不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if PState=1 then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Contract_Cloth_DH where MainId='''+Trim(FMainId)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
if Trim(FConNo)<>Trim(ConNo.Text) then
|
||||
begin
|
||||
Application.MessageBox('已经到货不能修改合同编号!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
if SaveData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功！','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdUnit';
|
||||
flagname:='单位';
|
||||
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 TfrmClothContractInPut.v1PRTUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdUnit';
|
||||
flagname:='单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.v1PRTColorPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdColor';
|
||||
flagname:='颜色';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Append;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
if Order_Sub.IsEmpty then Exit;
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已到货不能删除数据!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
Order_Sub.Delete;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.FactoryNoNamePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
if Trim(FMainId)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from YF_Money_CR A where exists(');
|
||||
sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
|
||||
sql.Add(' where C.Mainid='''+Trim(FMainId)+'''');
|
||||
sql.Add(' and B.MXID=A.YFTypeId)');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已经产生应付款不能修改供应商!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Factory';
|
||||
flagname:='供方';
|
||||
MainType:='PBFactory';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FXS:=99;
|
||||
FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.v1Column1PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Cloth';
|
||||
flagname:='坯布名称';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.v1PRTMFPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='KZ';
|
||||
flagname:='克重单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.v1OrderQtyPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='MF';
|
||||
flagname:='门幅单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.v1ClothQtyPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='PriceUnit';
|
||||
flagname:='计价单位';
|
||||
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 TfrmClothContractInPut.v1Column2PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrderUnit';
|
||||
flagname:='单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.FactoryNoNamePropertiesChange(
|
||||
Sender: TObject);
|
||||
begin
|
||||
{if FXS=99 then
|
||||
begin
|
||||
PanZDY.Visible:=False;
|
||||
FXS:=0;
|
||||
Exit;
|
||||
end;
|
||||
ZDYHelp(FactoryNoName,'FactoryNo1Name'); }
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.CompanyNamePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdDefStr2';
|
||||
flagname:='需方';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FXS:=99;
|
||||
CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.JHPlacePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='JHPlace';
|
||||
flagname:='交货地点';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPut.ConNoKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if Trim(ConNo.Text)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
|
||||
Open;
|
||||
end;
|
||||
FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
645
检验管理/U_ClothContractInPutHZ.dfm
Normal file
645
检验管理/U_ClothContractInPutHZ.dfm
Normal file
|
|
@ -0,0 +1,645 @@
|
|||
object frmClothContractInPutHZ: TfrmClothContractInPutHZ
|
||||
Left = 198
|
||||
Top = 90
|
||||
Width = 831
|
||||
Height = 622
|
||||
Caption = #32433#32447#21152#24037#21512#21516#24405#20837
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 815
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBSave: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 14
|
||||
OnClick = TBSaveClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 0
|
||||
Top = 29
|
||||
Width = 815
|
||||
Height = 220
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
Ctl3D = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 24
|
||||
Top = 14
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 290
|
||||
Top = 46
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20132#36135#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 511
|
||||
Top = 222
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #20379' '#26041#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 552
|
||||
Top = 14
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #31614#35746#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 290
|
||||
Top = 14
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #38656' '#26041#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 24
|
||||
Top = 46
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #31614#35746#22320#28857#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 552
|
||||
Top = 42
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20132#36135#22320#28857#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 24
|
||||
Top = 68
|
||||
Width = 65
|
||||
Height = 36
|
||||
Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 552
|
||||
Top = 68
|
||||
Width = 65
|
||||
Height = 36
|
||||
Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 24
|
||||
Top = 118
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21253#35013#35201#27714#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 290
|
||||
Top = 80
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #32467#31639#26041#24335#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 24
|
||||
Top = 154
|
||||
Width = 195
|
||||
Height = 12
|
||||
Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 24
|
||||
Top = 190
|
||||
Width = 91
|
||||
Height = 12
|
||||
Caption = #20854#23427#32422#23450#20107#39033#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Left = 86
|
||||
Top = 11
|
||||
Width = 180
|
||||
Height = 18
|
||||
TabOrder = 0
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object DeliveryDate: TDateTimePicker
|
||||
Left = 353
|
||||
Top = 42
|
||||
Width = 177
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.670856296290000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40916.670856296290000000
|
||||
ShowCheckbox = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object FactoryNoName: TcxButtonEdit
|
||||
Tag = 77
|
||||
Left = 575
|
||||
Top = 218
|
||||
Hint = 'FactoryNo'
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick
|
||||
Properties.OnChange = FactoryNoNamePropertiesChange
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
OnKeyDown = PRTCodeNameKeyDown
|
||||
Width = 162
|
||||
end
|
||||
object PanZDY: TPanel
|
||||
Left = 841
|
||||
Top = 128
|
||||
Width = 202
|
||||
Height = 153
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
object CXGridZDY: TcxGrid
|
||||
Left = 3
|
||||
Top = 4
|
||||
Width = 197
|
||||
Height = 113
|
||||
TabOrder = 0
|
||||
object TVZDY: TcxGridDBTableView
|
||||
OnKeyPress = TVZDYKeyPress
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellDblClick = TVZDYCellDblClick
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.GroupByBox = False
|
||||
object VHelpZDYName: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ZDYName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 163
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
end
|
||||
object CXGridZDYLevel1: TcxGridLevel
|
||||
GridView = TVZDY
|
||||
end
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 64
|
||||
Top = 120
|
||||
Width = 65
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 1
|
||||
OnClick = Button1Click
|
||||
end
|
||||
end
|
||||
object QDTime: TDateTimePicker
|
||||
Left = 614
|
||||
Top = 10
|
||||
Width = 162
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.670856296290000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40916.670856296290000000
|
||||
ShowCheckbox = True
|
||||
TabOrder = 4
|
||||
end
|
||||
object CompanyName: TcxButtonEdit
|
||||
Left = 353
|
||||
Top = 10
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = CompanyNamePropertiesButtonClick
|
||||
TabOrder = 5
|
||||
OnKeyDown = PRTCodeNameKeyDown
|
||||
Width = 177
|
||||
end
|
||||
object QDPalce: TEdit
|
||||
Left = 86
|
||||
Top = 43
|
||||
Width = 179
|
||||
Height = 18
|
||||
TabOrder = 6
|
||||
end
|
||||
object JHPlace: TcxButtonEdit
|
||||
Left = 614
|
||||
Top = 38
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = JHPlacePropertiesButtonClick
|
||||
TabOrder = 7
|
||||
Width = 162
|
||||
end
|
||||
object ConTK1: TcxButtonEdit
|
||||
Left = 86
|
||||
Top = 76
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK1PropertiesButtonClick
|
||||
TabOrder = 8
|
||||
Width = 183
|
||||
end
|
||||
object ConTk2: TcxButtonEdit
|
||||
Left = 614
|
||||
Top = 76
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTk2PropertiesButtonClick
|
||||
TabOrder = 9
|
||||
Width = 162
|
||||
end
|
||||
object ConTK3: TcxButtonEdit
|
||||
Left = 86
|
||||
Top = 114
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK3PropertiesButtonClick
|
||||
TabOrder = 10
|
||||
Width = 691
|
||||
end
|
||||
object ConTK4: TcxButtonEdit
|
||||
Left = 353
|
||||
Top = 76
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK4PropertiesButtonClick
|
||||
TabOrder = 11
|
||||
Width = 177
|
||||
end
|
||||
object ConTK5: TcxButtonEdit
|
||||
Left = 216
|
||||
Top = 150
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK5PropertiesButtonClick
|
||||
TabOrder = 12
|
||||
Width = 563
|
||||
end
|
||||
object ConTk6: TcxButtonEdit
|
||||
Left = 110
|
||||
Top = 186
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTk6PropertiesButtonClick
|
||||
TabOrder = 13
|
||||
Width = 669
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 0
|
||||
Top = 249
|
||||
Width = 815
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 2
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 278
|
||||
Width = 815
|
||||
Height = 305
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = 'C_Code'
|
||||
Column = v1Column1
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.GroupByBox = False
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #21152#24037#21378
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v1Column3PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 117
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = v1Column1PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 100
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684#22411#21495
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 103
|
||||
end
|
||||
object v1Price: TcxGridDBColumn
|
||||
Caption = #21152#24037#21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 58
|
||||
end
|
||||
object v1ClothQty: TcxGridDBColumn
|
||||
Caption = #24065#31181
|
||||
DataBinding.FieldName = 'PriceUnit'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 69
|
||||
end
|
||||
object v1ClothUnit: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'C_Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 69
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'C_Unit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 64
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 85
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object ADOTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 384
|
||||
Top = 65533
|
||||
end
|
||||
object ADOCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 520
|
||||
Top = 5
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Sub
|
||||
Left = 344
|
||||
Top = 376
|
||||
end
|
||||
object Order_Sub: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 384
|
||||
Top = 376
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ADOZDY
|
||||
Left = 240
|
||||
end
|
||||
object ADOZDY: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 280
|
||||
Top = 65533
|
||||
end
|
||||
object CDS_ZDY: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 208
|
||||
end
|
||||
object ADOQuery1: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 456
|
||||
Top = 5
|
||||
end
|
||||
end
|
||||
878
检验管理/U_ClothContractInPutHZ.pas
Normal file
878
检验管理/U_ClothContractInPutHZ.pas
Normal file
|
|
@ -0,0 +1,878 @@
|
|||
unit U_ClothContractInPutHZ;
|
||||
|
||||
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, cxDropDownEdit;
|
||||
|
||||
type
|
||||
TfrmClothContractInPutHZ = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBSave: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ScrollBox1: TScrollBox;
|
||||
Label1: TLabel;
|
||||
ConNo: TEdit;
|
||||
Label4: TLabel;
|
||||
DeliveryDate: TDateTimePicker;
|
||||
Label5: TLabel;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1PRTSpec: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
v1ClothQty: TcxGridDBColumn;
|
||||
v1Price: TcxGridDBColumn;
|
||||
v1ClothUnit: TcxGridDBColumn;
|
||||
ADOTemp: TADOQuery;
|
||||
ADOCmd: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
Order_Sub: TClientDataSet;
|
||||
DataSource2: TDataSource;
|
||||
ADOZDY: TADOQuery;
|
||||
CDS_ZDY: TClientDataSet;
|
||||
FactoryNoName: TcxButtonEdit;
|
||||
ADOQuery1: TADOQuery;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
PanZDY: TPanel;
|
||||
CXGridZDY: TcxGrid;
|
||||
TVZDY: TcxGridDBTableView;
|
||||
VHelpZDYName: TcxGridDBColumn;
|
||||
CXGridZDYLevel1: TcxGridLevel;
|
||||
Button1: TButton;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
Label2: TLabel;
|
||||
QDTime: TDateTimePicker;
|
||||
Label3: TLabel;
|
||||
CompanyName: TcxButtonEdit;
|
||||
Label6: TLabel;
|
||||
QDPalce: TEdit;
|
||||
Label8: TLabel;
|
||||
JHPlace: TcxButtonEdit;
|
||||
Label7: TLabel;
|
||||
ConTK1: TcxButtonEdit;
|
||||
Label9: TLabel;
|
||||
ConTk2: TcxButtonEdit;
|
||||
Label10: TLabel;
|
||||
ConTK3: TcxButtonEdit;
|
||||
Label11: TLabel;
|
||||
ConTK4: TcxButtonEdit;
|
||||
Label12: TLabel;
|
||||
ConTK5: TcxButtonEdit;
|
||||
Label13: TLabel;
|
||||
ConTk6: TcxButtonEdit;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTColorPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure FactoryNoNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTMFPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1OrderQtyPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1ClothQtyPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column2PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure FactoryNoNamePropertiesChange(Sender: TObject);
|
||||
procedure CompanyNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure JHPlacePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK4PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTk6PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTk2PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure v1Column3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
private
|
||||
FXS:Integer;
|
||||
procedure InitData();
|
||||
procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||||
function SaveData():Boolean;
|
||||
{ Private declarations }
|
||||
public
|
||||
PState,PCopyInt:Integer;
|
||||
FMainId,FConNo,CPFlag,CPFlagName,FactoryFlag,FConType:String;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmClothContractInPutHZ: TfrmClothContractInPutHZ;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_ZDYHelp,U_Fun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmClothContractInPutHZ.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.InitData();
|
||||
begin
|
||||
with ADOQuery1 do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId');
|
||||
sql.Add(' where A.MainId='''+Trim(FMainId)+'''');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQuery1,Order_Sub);
|
||||
SInitCDSData20(ADOQuery1,Order_Sub);
|
||||
SCSHData(ADOQuery1,ScrollBox1,0);
|
||||
if PState=0 then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select Top 1* from ContractHZ_Main where ConType='''+Trim(FConType)+'''order by FillTime desc ');
|
||||
Open;
|
||||
end;
|
||||
ConTK1.Text:=Trim(ADOTemp.fieldbyname('ConTK1').AsString);
|
||||
ConTK2.Text:=Trim(ADOTemp.fieldbyname('ConTK2').AsString);
|
||||
ConTK3.Text:=Trim(ADOTemp.fieldbyname('ConTK3').AsString);
|
||||
ConTK4.Text:=Trim(ADOTemp.fieldbyname('ConTK4').AsString);
|
||||
ConTK5.Text:=Trim(ADOTemp.fieldbyname('ConTK5').AsString);
|
||||
ConTK6.Text:=Trim(ADOTemp.fieldbyname('ConTK6').AsString);
|
||||
QDTime.DateTime:=SGetServerDate(ADOTemp);
|
||||
DeliveryDate.DateTime:=SGetServerDate(ADOTemp);
|
||||
QDTime.Checked:=True;
|
||||
DeliveryDate.Checked:=False;
|
||||
|
||||
QDPalce.Text:='柯桥';
|
||||
end;
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||||
var
|
||||
FType,ZDYName,FText:String;
|
||||
begin
|
||||
PanZDY.Visible:=True;
|
||||
PanZDY.Left:=FButn.Left;
|
||||
PanZDY.Top:=FButn.Top+FButn.Height;
|
||||
with ADOZDY do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+'''');
|
||||
Open;
|
||||
end;
|
||||
FText:=Trim(FButn.Text);
|
||||
if FText<>'' then
|
||||
SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%'))
|
||||
else
|
||||
SDofilter(ADOZDY,'');
|
||||
VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name);
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
var
|
||||
FName:string;
|
||||
begin
|
||||
if ADOZDY.IsEmpty then Exit;
|
||||
FName:=Trim(VHelpZDYName.Summary.GroupFormat);
|
||||
TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||||
TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.Button1Click(Sender: TObject);
|
||||
begin
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
{if (key=vk_return) or (Key=vk_Down) then
|
||||
begin
|
||||
if ADOZDY.Active then
|
||||
CXGridZDY.SetFocus;
|
||||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if ADOZDY.IsEmpty then Exit;
|
||||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||||
PanZDY.Visible:=False;
|
||||
ADOZDY.Active:=False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.FormShow(Sender: TObject);
|
||||
begin
|
||||
{if Trim(DParameters1)='1' then
|
||||
begin
|
||||
v1Price.Visible:=False;
|
||||
v1ClothQty.Visible:=False;
|
||||
v1PRTQty.Visible:=False;
|
||||
end else
|
||||
begin
|
||||
v1Price.Visible:=True;
|
||||
v1ClothQty.Visible:=True;
|
||||
v1PRTQty.Visible:=True;
|
||||
end; }
|
||||
InitData();
|
||||
if PCopyInt=1 then
|
||||
begin
|
||||
FMainId:='';
|
||||
FConNo:='';
|
||||
ConNo.Text:='';
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('SubId').Value:='';
|
||||
Post;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmClothContractInPutHZ.SaveData():Boolean;
|
||||
var
|
||||
maxno,maxSubNo:String;
|
||||
begin
|
||||
try
|
||||
ADOCmd.Connection.BeginTrans;
|
||||
///保存子表
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
if GetLSNo(ADOCmd,maxno,'HM','ContractHZ_Main',2,1)=False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('生成流水号异常！','提示',0);
|
||||
exit;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
maxno:=Trim(FMainId);
|
||||
end;
|
||||
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from ContractHZ_Main where MainId='''+Trim(FMainId)+'''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
Append;
|
||||
end
|
||||
else begin
|
||||
Edit;
|
||||
end;
|
||||
FieldByName('MainId').Value:=Trim(maxno);
|
||||
SSetsaveSql(ADOCmd,'ContractSX_Main',ScrollBox1,0);
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
FieldByName('Filler').Value:=Trim(DName);
|
||||
end else
|
||||
begin
|
||||
FieldByName('Editer').Value:=Trim(DName);
|
||||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||||
end;
|
||||
FieldByName('FactoryNoName').Value:=Trim(Order_Sub.fieldbyname('FactoryNoName').AsString);
|
||||
FieldByName('ConType').Value:=Trim(FConType);
|
||||
Post;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
if GetLSNo(ADOCmd,maxSubNo,'HS','ContractHZ_Sub',3,1)=False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取子流水号失败！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString);
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from ContractHZ_Sub where MainId='''+Trim(maxno)+'''');
|
||||
sql.Add(' and SubId='''+Trim(maxSubNo)+'''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
Append
|
||||
else
|
||||
Edit;
|
||||
FieldByName('MainId').Value:=Trim(maxno);
|
||||
FieldByName('SubId').Value:=Trim(maxSubNo);
|
||||
SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractHZ_Sub',0);
|
||||
if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then
|
||||
begin
|
||||
FieldByName('C_Qty').Value:=0;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('Price').AsString)='' then
|
||||
begin
|
||||
FieldByName('Price').Value:=0;
|
||||
end;
|
||||
FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString);
|
||||
Post;
|
||||
end;
|
||||
Order_Sub.Edit;
|
||||
Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo);
|
||||
//Order_Sub.Post;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
ADOCmd.Connection.CommitTrans;
|
||||
Result:=True;
|
||||
except
|
||||
Result:=False;
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('保存失败！','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.TBSaveClick(Sender: TObject);
|
||||
begin
|
||||
DeliveryDate.SetFocus;
|
||||
if Trim(ConNo.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('合同编号不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('明细不能为空！','提示',0);
|
||||
exit;
|
||||
end;
|
||||
if Order_Sub.Locate('C_Qty',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('数量不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.Locate('C_Unit',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('数量单位不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.Locate('FactoryNoName',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('加工厂不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if SaveData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功！','提示',0);
|
||||
ModalResult:=1;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdUnit';
|
||||
flagname:='单位';
|
||||
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 TfrmClothContractInPutHZ.v1PRTUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdUnit';
|
||||
flagname:='单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.v1PRTColorPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdColor';
|
||||
flagname:='颜色';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Append;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
if Order_Sub.IsEmpty then Exit;
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已到货不能删除数据!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
Order_Sub.Delete;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.FactoryNoNamePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
if Trim(FMainId)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from YF_Money_CR A where exists(');
|
||||
sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
|
||||
sql.Add(' where C.Mainid='''+Trim(FMainId)+'''');
|
||||
sql.Add(' and B.MXID=A.YFTypeId)');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已经产生应付款不能修改供应商!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Factory';
|
||||
flagname:='供方';
|
||||
MainType:='YCLFactory';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FXS:=99;
|
||||
FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.v1Column1PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:=Trim(CPFlag);
|
||||
flagname:=Trim(CPFlagName);
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.v1PRTMFPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='KZ';
|
||||
flagname:='克重单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.v1OrderQtyPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='MF';
|
||||
flagname:='门幅单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.v1ClothQtyPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='PriceUnit';
|
||||
flagname:='计价单位';
|
||||
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 TfrmClothContractInPutHZ.v1Column2PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrderUnit';
|
||||
flagname:='单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.FactoryNoNamePropertiesChange(
|
||||
Sender: TObject);
|
||||
begin
|
||||
{if FXS=99 then
|
||||
begin
|
||||
PanZDY.Visible:=False;
|
||||
FXS:=0;
|
||||
Exit;
|
||||
end;
|
||||
ZDYHelp(FactoryNoName,'FactoryNo1Name'); }
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.CompanyNamePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdDefStr2';
|
||||
flagname:='需方';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FXS:=99;
|
||||
CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.JHPlacePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='JHPlace';
|
||||
flagname:='交货地点';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.ConTK1PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK1';
|
||||
flagname:='供货质量及技术标准';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.ConTK3PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK3';
|
||||
flagname:='包装要求';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.ConTK4PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK4';
|
||||
flagname:='结算方式';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.ConTK5PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK5';
|
||||
flagname:='验收标准、方法及提出异议期限';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.ConTk6PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK6';
|
||||
flagname:='其它约定事项';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.ConTk2PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK2';
|
||||
flagname:='运输方法及费用承担';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.ConNoKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if Trim(ConNo.Text)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
|
||||
Open;
|
||||
end;
|
||||
FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutHZ.v1Column3PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Factory';
|
||||
flagname:='供方';
|
||||
MainType:=Trim(FactoryFlag);
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
722
检验管理/U_ClothContractInPutPB.dfm
Normal file
722
检验管理/U_ClothContractInPutPB.dfm
Normal file
|
|
@ -0,0 +1,722 @@
|
|||
object frmClothContractInPutPB: TfrmClothContractInPutPB
|
||||
Left = 192
|
||||
Top = 67
|
||||
Width = 1089
|
||||
Height = 630
|
||||
Caption = #22383#24067#35746#36141#21512#21516#24405#20837
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
WindowState = wsMaximized
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1081
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBSave: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 14
|
||||
OnClick = TBSaveClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 0
|
||||
Top = 29
|
||||
Width = 1081
|
||||
Height = 244
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
Ctl3D = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 24
|
||||
Top = 14
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 546
|
||||
Top = 46
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20132#36135#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 431
|
||||
Top = 246
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #20379' '#26041#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 24
|
||||
Top = 46
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #31614#35746#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 546
|
||||
Top = 14
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #38656' '#26041#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 295
|
||||
Top = 14
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #31614#35746#22320#28857#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 295
|
||||
Top = 46
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20132#36135#22320#28857#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 24
|
||||
Top = 78
|
||||
Width = 65
|
||||
Height = 36
|
||||
Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 546
|
||||
Top = 78
|
||||
Width = 65
|
||||
Height = 36
|
||||
Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 24
|
||||
Top = 138
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21253#35013#35201#27714#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 295
|
||||
Top = 90
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #32467#31639#26041#24335#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 24
|
||||
Top = 178
|
||||
Width = 195
|
||||
Height = 12
|
||||
Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 24
|
||||
Top = 210
|
||||
Width = 91
|
||||
Height = 12
|
||||
Caption = #20854#23427#32422#23450#20107#39033#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Left = 86
|
||||
Top = 11
|
||||
Width = 180
|
||||
Height = 18
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 0
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object DeliveryDate: TDateTimePicker
|
||||
Left = 609
|
||||
Top = 42
|
||||
Width = 177
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40916.000000000000000000
|
||||
ShowCheckbox = True
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
end
|
||||
object FactoryNoName: TcxButtonEdit
|
||||
Tag = 45
|
||||
Left = 495
|
||||
Top = 242
|
||||
Hint = 'FactoryNo'
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick
|
||||
Properties.OnChange = FactoryNoNamePropertiesChange
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
OnKeyDown = PRTCodeNameKeyDown
|
||||
Width = 162
|
||||
end
|
||||
object PanZDY: TPanel
|
||||
Left = 841
|
||||
Top = 128
|
||||
Width = 202
|
||||
Height = 153
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
object CXGridZDY: TcxGrid
|
||||
Left = 3
|
||||
Top = 4
|
||||
Width = 197
|
||||
Height = 113
|
||||
TabOrder = 0
|
||||
object TVZDY: TcxGridDBTableView
|
||||
OnKeyPress = TVZDYKeyPress
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellDblClick = TVZDYCellDblClick
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.GroupByBox = False
|
||||
object VHelpZDYName: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ZDYName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 163
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
end
|
||||
object CXGridZDYLevel1: TcxGridLevel
|
||||
GridView = TVZDY
|
||||
end
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 64
|
||||
Top = 120
|
||||
Width = 65
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 1
|
||||
OnClick = Button1Click
|
||||
end
|
||||
end
|
||||
object QDTime: TDateTimePicker
|
||||
Left = 86
|
||||
Top = 42
|
||||
Width = 183
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40916.000000000000000000
|
||||
ShowCheckbox = True
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 4
|
||||
end
|
||||
object CompanyName: TcxButtonEdit
|
||||
Left = 609
|
||||
Top = 10
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = CompanyNamePropertiesButtonClick
|
||||
TabOrder = 5
|
||||
OnKeyDown = PRTCodeNameKeyDown
|
||||
Width = 177
|
||||
end
|
||||
object QDPalce: TEdit
|
||||
Left = 359
|
||||
Top = 11
|
||||
Width = 161
|
||||
Height = 18
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 6
|
||||
end
|
||||
object JHPlace: TcxButtonEdit
|
||||
Left = 359
|
||||
Top = 42
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = JHPlacePropertiesButtonClick
|
||||
TabOrder = 7
|
||||
Width = 162
|
||||
end
|
||||
object ConTK1: TcxButtonEdit
|
||||
Left = 86
|
||||
Top = 86
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK1PropertiesButtonClick
|
||||
TabOrder = 8
|
||||
Width = 183
|
||||
end
|
||||
object ConTk2: TcxButtonEdit
|
||||
Left = 609
|
||||
Top = 86
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTk2PropertiesButtonClick
|
||||
TabOrder = 9
|
||||
Width = 178
|
||||
end
|
||||
object ConTK3: TcxButtonEdit
|
||||
Left = 86
|
||||
Top = 134
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK3PropertiesButtonClick
|
||||
TabOrder = 10
|
||||
Width = 702
|
||||
end
|
||||
object ConTK4: TcxButtonEdit
|
||||
Left = 359
|
||||
Top = 86
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK4PropertiesButtonClick
|
||||
TabOrder = 11
|
||||
Width = 162
|
||||
end
|
||||
object ConTK5: TcxButtonEdit
|
||||
Left = 216
|
||||
Top = 174
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK5PropertiesButtonClick
|
||||
TabOrder = 12
|
||||
Width = 572
|
||||
end
|
||||
object ConTk6: TcxButtonEdit
|
||||
Left = 110
|
||||
Top = 206
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTk6PropertiesButtonClick
|
||||
TabOrder = 13
|
||||
Width = 679
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 0
|
||||
Top = 273
|
||||
Width = 1081
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 2
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 302
|
||||
Width = 1081
|
||||
Height = 294
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = 'C_Code'
|
||||
Column = v1Column1
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Tag = 99
|
||||
Caption = #20379#26041
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = v1Column7PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 96
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = v1Column1PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 81
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684#22411#21495
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 67
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #38376#24133'(cm)'
|
||||
DataBinding.FieldName = 'MFQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 64
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #20811#37325'(g/'#13217')'
|
||||
DataBinding.FieldName = 'KZQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 74
|
||||
end
|
||||
object v1Price: TcxGridDBColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 49
|
||||
end
|
||||
object v1ClothQty: TcxGridDBColumn
|
||||
Caption = #24065#31181
|
||||
DataBinding.FieldName = 'PriceUnit'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 41
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 50
|
||||
end
|
||||
object v1ClothUnit: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'C_Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 47
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'C_Unit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 67
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #35746#21333#25968#37327
|
||||
DataBinding.FieldName = 'Sdefstr1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 67
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #35745#21010#32553#29575'(%)'
|
||||
DataBinding.FieldName = 'Qty2'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 85
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #26579#21378
|
||||
DataBinding.FieldName = 'Sdefstr2'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = v1Column10PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 81
|
||||
end
|
||||
object v1Column11: TcxGridDBColumn
|
||||
Caption = #26579#21378#24037#33402
|
||||
DataBinding.FieldName = 'Sdefstr3'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #26579#21378#20215#26684
|
||||
DataBinding.FieldName = 'Sdefstr4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column13: TcxGridDBColumn
|
||||
Caption = #25351#31034#21333#21495
|
||||
DataBinding.FieldName = 'Sdefstr5'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column14: TcxGridDBColumn
|
||||
Caption = #24037#21378#32534#21495
|
||||
DataBinding.FieldName = 'Sdefstr6'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 118
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object ADOTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 384
|
||||
Top = 13
|
||||
end
|
||||
object ADOCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 520
|
||||
Top = 5
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Sub
|
||||
Left = 344
|
||||
Top = 376
|
||||
end
|
||||
object Order_Sub: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 384
|
||||
Top = 376
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ADOZDY
|
||||
Left = 240
|
||||
Top = 8
|
||||
end
|
||||
object ADOZDY: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 280
|
||||
Top = 5
|
||||
end
|
||||
object CDS_ZDY: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 208
|
||||
Top = 16
|
||||
end
|
||||
object ADOQuery1: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 456
|
||||
Top = 13
|
||||
end
|
||||
end
|
||||
976
检验管理/U_ClothContractInPutPB.pas
Normal file
976
检验管理/U_ClothContractInPutPB.pas
Normal file
|
|
@ -0,0 +1,976 @@
|
|||
unit U_ClothContractInPutPB;
|
||||
|
||||
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, cxDropDownEdit;
|
||||
|
||||
type
|
||||
TfrmClothContractInPutPB = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBSave: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ScrollBox1: TScrollBox;
|
||||
Label1: TLabel;
|
||||
ConNo: TEdit;
|
||||
Label4: TLabel;
|
||||
DeliveryDate: TDateTimePicker;
|
||||
Label5: TLabel;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1PRTSpec: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
v1ClothQty: TcxGridDBColumn;
|
||||
v1Price: TcxGridDBColumn;
|
||||
v1ClothUnit: TcxGridDBColumn;
|
||||
ADOTemp: TADOQuery;
|
||||
ADOCmd: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
Order_Sub: TClientDataSet;
|
||||
DataSource2: TDataSource;
|
||||
ADOZDY: TADOQuery;
|
||||
CDS_ZDY: TClientDataSet;
|
||||
FactoryNoName: TcxButtonEdit;
|
||||
ADOQuery1: TADOQuery;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
PanZDY: TPanel;
|
||||
CXGridZDY: TcxGrid;
|
||||
TVZDY: TcxGridDBTableView;
|
||||
VHelpZDYName: TcxGridDBColumn;
|
||||
CXGridZDYLevel1: TcxGridLevel;
|
||||
Button1: TButton;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
Label2: TLabel;
|
||||
QDTime: TDateTimePicker;
|
||||
Label3: TLabel;
|
||||
CompanyName: TcxButtonEdit;
|
||||
Label6: TLabel;
|
||||
QDPalce: TEdit;
|
||||
Label8: TLabel;
|
||||
JHPlace: TcxButtonEdit;
|
||||
Label7: TLabel;
|
||||
ConTK1: TcxButtonEdit;
|
||||
Label9: TLabel;
|
||||
ConTk2: TcxButtonEdit;
|
||||
Label10: TLabel;
|
||||
ConTK3: TcxButtonEdit;
|
||||
Label11: TLabel;
|
||||
ConTK4: TcxButtonEdit;
|
||||
Label12: TLabel;
|
||||
ConTK5: TcxButtonEdit;
|
||||
Label13: TLabel;
|
||||
ConTk6: TcxButtonEdit;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v1Column9: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
v1Column11: TcxGridDBColumn;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTColorPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure FactoryNoNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTMFPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1OrderQtyPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1ClothQtyPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column2PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure FactoryNoNamePropertiesChange(Sender: TObject);
|
||||
procedure CompanyNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure JHPlacePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK4PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTk6PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTk2PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure v1Column7PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column10PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
private
|
||||
FXS:Integer;
|
||||
procedure InitData();
|
||||
procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||||
function SaveData():Boolean;
|
||||
{ Private declarations }
|
||||
public
|
||||
PState,PCopyInt:Integer;
|
||||
FMainId,FConNo:String;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmClothContractInPutPB: TfrmClothContractInPutPB;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_ZDYHelp,U_Fun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmClothContractInPutPB.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.InitData();
|
||||
begin
|
||||
with ADOQuery1 do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' exec ClothContract_QryList :MainId,:WSql');
|
||||
if PState=1 then
|
||||
begin
|
||||
ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
|
||||
ADOQuery1.Parameters.ParamByName('WSQl').Value:='';
|
||||
end;
|
||||
if PState=0 then
|
||||
begin
|
||||
ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
|
||||
ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 ';
|
||||
end;
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQuery1,Order_Sub);
|
||||
SInitCDSData20(ADOQuery1,Order_Sub);
|
||||
SCSHData(ADOQuery1,ScrollBox1,0);
|
||||
if PState=0 then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select Top 1* from Contract_Main order by FillTime desc ');
|
||||
Open;
|
||||
end;
|
||||
QDTime.DateTime:=SGetServerDate(ADOTemp);
|
||||
DeliveryDate.DateTime:=SGetServerDate(ADOTemp);
|
||||
QDTime.Checked:=True;
|
||||
DeliveryDate.Checked:=False;
|
||||
end;
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||||
var
|
||||
FType,ZDYName,FText:String;
|
||||
begin
|
||||
PanZDY.Visible:=True;
|
||||
PanZDY.Left:=FButn.Left;
|
||||
PanZDY.Top:=FButn.Top+FButn.Height;
|
||||
with ADOZDY do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+'''');
|
||||
Open;
|
||||
end;
|
||||
FText:=Trim(FButn.Text);
|
||||
if FText<>'' then
|
||||
SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%'))
|
||||
else
|
||||
SDofilter(ADOZDY,'');
|
||||
VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name);
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
var
|
||||
FName:string;
|
||||
begin
|
||||
if ADOZDY.IsEmpty then Exit;
|
||||
FName:=Trim(VHelpZDYName.Summary.GroupFormat);
|
||||
TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||||
TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.Button1Click(Sender: TObject);
|
||||
begin
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
{if (key=vk_return) or (Key=vk_Down) then
|
||||
begin
|
||||
if ADOZDY.Active then
|
||||
CXGridZDY.SetFocus;
|
||||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if ADOZDY.IsEmpty then Exit;
|
||||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||||
PanZDY.Visible:=False;
|
||||
ADOZDY.Active:=False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.FormShow(Sender: TObject);
|
||||
begin
|
||||
{if Trim(DParameters1)='1' then
|
||||
begin
|
||||
v1Price.Visible:=False;
|
||||
v1ClothQty.Visible:=False;
|
||||
v1PRTQty.Visible:=False;
|
||||
end else
|
||||
begin
|
||||
v1Price.Visible:=True;
|
||||
v1ClothQty.Visible:=True;
|
||||
v1PRTQty.Visible:=True;
|
||||
end; }
|
||||
InitData();
|
||||
if PCopyInt=1 then
|
||||
begin
|
||||
FMainId:='';
|
||||
FConNo:='';
|
||||
ConNo.Text:='';
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('SubId').Value:='';
|
||||
Post;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmClothContractInPutPB.SaveData():Boolean;
|
||||
var
|
||||
maxno,maxSubNo:String;
|
||||
begin
|
||||
try
|
||||
ADOCmd.Connection.BeginTrans;
|
||||
///保存主表
|
||||
|
||||
//FMainId:=Trim(maxno);
|
||||
///保存子表
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
if GetLSNo(ADOCmd,maxno,'PM','Contract_Main',2,1)=False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('生成流水号异常！','提示',0);
|
||||
exit;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
maxno:=Trim(FMainId);
|
||||
end;
|
||||
|
||||
|
||||
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from Contract_Main where MainId='''+Trim(FMainId)+'''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
Append;
|
||||
|
||||
end
|
||||
else begin
|
||||
|
||||
Edit;
|
||||
end;
|
||||
FieldByName('MainId').Value:=Trim(maxno);
|
||||
SSetsaveSql(ADOCmd,'Contract_Main',ScrollBox1,0);
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
FieldByName('Filler').Value:=Trim(DName);
|
||||
end else
|
||||
begin
|
||||
FieldByName('Editer').Value:=Trim(DName);
|
||||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||||
end;
|
||||
FieldByName('FactoryNoName').Value:=Trim(Order_Sub.fieldbyname('FactoryNoName').AsString);
|
||||
Post;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
if GetLSNo(ADOCmd,maxSubNo,'PS','Contract_Sub',3,1)=False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取子流水号失败！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString);
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+'''');
|
||||
sql.Add(' and SubId='''+Trim(maxSubNo)+'''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
Append
|
||||
else
|
||||
Edit;
|
||||
FieldByName('MainId').Value:=Trim(maxno);
|
||||
FieldByName('SubId').Value:=Trim(maxSubNo);
|
||||
SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0);
|
||||
FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString);
|
||||
if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then
|
||||
begin
|
||||
FieldByName('C_Qty').Value:=0;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('Qty1').AsString)='' then
|
||||
begin
|
||||
FieldByName('Qty1').Value:=0;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('Price').AsString)='' then
|
||||
begin
|
||||
FieldByName('Price').Value:=0;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then
|
||||
begin
|
||||
FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value*1.00*1000
|
||||
/(Order_Sub.fieldbyname('MFQty').Value*1.00/100*Order_Sub.fieldbyname('KZQty').Value);
|
||||
end else
|
||||
begin
|
||||
FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value;
|
||||
end;
|
||||
FieldByName('C_Note').Value:=trim(Order_Sub.fieldbyname('C_Note').AsString);
|
||||
Post;
|
||||
end;
|
||||
Order_Sub.Edit;
|
||||
Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo);
|
||||
//Order_Sub.Post;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
ADOCmd.Connection.CommitTrans;
|
||||
Result:=True;
|
||||
except
|
||||
Result:=False;
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('保存失败！','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.TBSaveClick(Sender: TObject);
|
||||
begin
|
||||
DeliveryDate.SetFocus;
|
||||
if Trim(ConNo.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('合同编号不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
{if Trim(FactoryNoName.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('供方不能为空！','提示',0);
|
||||
Exit;
|
||||
end; }
|
||||
if Order_Sub.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('明细不能为空！','提示',0);
|
||||
exit;
|
||||
end;
|
||||
if Order_Sub.Locate('C_Qty',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('数量不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.Locate('C_Unit',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('数量单位不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.Locate('FactoryNoName',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('供方不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if PState=1 then
|
||||
begin
|
||||
{ with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Contract_Cloth_DH where MainId='''+Trim(FMainId)+'''');
|
||||
sql.Add(' and Isnull(DHTYpe,'''')='''' ');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
if Trim(FConNo)<>Trim(ConNo.Text) then
|
||||
begin
|
||||
Application.MessageBox('已经到货不能修改合同编号!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end; }
|
||||
end;
|
||||
if SaveData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功！','提示',0);
|
||||
ModalResult:=1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdUnit';
|
||||
flagname:='单位';
|
||||
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 TfrmClothContractInPutPB.v1PRTUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdUnit';
|
||||
flagname:='单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.v1PRTColorPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdColor';
|
||||
flagname:='颜色';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Append;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
if Order_Sub.IsEmpty then Exit;
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已到货不能删除数据!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
Order_Sub.Delete;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.FactoryNoNamePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
if Trim(FMainId)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from YF_Money_CR A where exists(');
|
||||
sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
|
||||
sql.Add(' where C.Mainid='''+Trim(FMainId)+'''');
|
||||
sql.Add(' and B.MXID=A.YFTypeId)');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已经产生应付款不能修改供应商!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Factory';
|
||||
flagname:='供方';
|
||||
MainType:='PBFactory';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FXS:=99;
|
||||
FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.v1Column1PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Cloth';
|
||||
flagname:='坯布名称';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.v1PRTMFPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='KZ';
|
||||
flagname:='克重单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.v1OrderQtyPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='MF';
|
||||
flagname:='门幅单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.v1ClothQtyPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='PriceUnit';
|
||||
flagname:='计价单位';
|
||||
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 TfrmClothContractInPutPB.v1Column2PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrderUnit';
|
||||
flagname:='单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.FactoryNoNamePropertiesChange(
|
||||
Sender: TObject);
|
||||
begin
|
||||
{if FXS=99 then
|
||||
begin
|
||||
PanZDY.Visible:=False;
|
||||
FXS:=0;
|
||||
Exit;
|
||||
end;
|
||||
ZDYHelp(FactoryNoName,'FactoryNo1Name'); }
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.CompanyNamePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdDefStr2';
|
||||
flagname:='需方';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FXS:=99;
|
||||
CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.JHPlacePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='JHPlace';
|
||||
flagname:='交货地点';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.ConTK1PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK1';
|
||||
flagname:='供货质量及技术标准';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.ConTK3PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK3';
|
||||
flagname:='包装要求';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.ConTK4PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK4';
|
||||
flagname:='结算方式';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.ConTK5PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK5';
|
||||
flagname:='验收标准、方法及提出异议期限';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.ConTk6PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK6';
|
||||
flagname:='其它约定事项';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.ConTk2PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK2';
|
||||
flagname:='运输方法及费用承担';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.ConNoKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if Trim(ConNo.Text)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
|
||||
Open;
|
||||
end;
|
||||
FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('PBFactory').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.v1Column7PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
if Trim(FMainId)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from YF_Money_CR A where exists(');
|
||||
sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
|
||||
sql.Add(' where C.Mainid='''+Trim(FMainId)+'''');
|
||||
sql.Add(' and B.MXID=A.YFTypeId)');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已经产生应付款不能修改供应商!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Factory';
|
||||
flagname:='供方';
|
||||
MainType:='PBFactory';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutPB.v1Column10PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Factory';
|
||||
flagname:='供方';
|
||||
MainType:='PBFactory';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('Sdefstr2').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
633
检验管理/U_ClothContractInPutSX.dfm
Normal file
633
检验管理/U_ClothContractInPutSX.dfm
Normal file
|
|
@ -0,0 +1,633 @@
|
|||
object frmClothContractInPutSX: TfrmClothContractInPutSX
|
||||
Left = 198
|
||||
Top = 112
|
||||
Width = 831
|
||||
Height = 622
|
||||
Caption = #32433#32447#35746#36141#21512#21516#24405#20837
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 823
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBSave: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 14
|
||||
OnClick = TBSaveClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 0
|
||||
Top = 29
|
||||
Width = 823
|
||||
Height = 250
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
Ctl3D = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 24
|
||||
Top = 14
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 546
|
||||
Top = 46
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20132#36135#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 295
|
||||
Top = 14
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #20379' '#26041#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 24
|
||||
Top = 46
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #31614#35746#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 546
|
||||
Top = 14
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #38656' '#26041#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 295
|
||||
Top = 46
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #31614#35746#22320#28857#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 298
|
||||
Top = 90
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20132#36135#22320#28857#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 24
|
||||
Top = 78
|
||||
Width = 65
|
||||
Height = 36
|
||||
Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 544
|
||||
Top = 78
|
||||
Width = 65
|
||||
Height = 36
|
||||
Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 24
|
||||
Top = 138
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21253#35013#35201#27714#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 298
|
||||
Top = 138
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #32467#31639#26041#24335#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 24
|
||||
Top = 178
|
||||
Width = 195
|
||||
Height = 12
|
||||
Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 24
|
||||
Top = 210
|
||||
Width = 91
|
||||
Height = 12
|
||||
Caption = #20854#23427#32422#23450#20107#39033#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Left = 86
|
||||
Top = 11
|
||||
Width = 180
|
||||
Height = 18
|
||||
TabOrder = 0
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object DeliveryDate: TDateTimePicker
|
||||
Left = 609
|
||||
Top = 42
|
||||
Width = 177
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.670856296290000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40916.670856296290000000
|
||||
ShowCheckbox = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object FactoryNoName: TcxButtonEdit
|
||||
Left = 359
|
||||
Top = 10
|
||||
Hint = 'FactoryNo'
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick
|
||||
Properties.OnChange = FactoryNoNamePropertiesChange
|
||||
TabOrder = 2
|
||||
OnKeyDown = PRTCodeNameKeyDown
|
||||
Width = 162
|
||||
end
|
||||
object PanZDY: TPanel
|
||||
Left = 841
|
||||
Top = 128
|
||||
Width = 202
|
||||
Height = 153
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
object CXGridZDY: TcxGrid
|
||||
Left = 3
|
||||
Top = 4
|
||||
Width = 197
|
||||
Height = 113
|
||||
TabOrder = 0
|
||||
object TVZDY: TcxGridDBTableView
|
||||
OnKeyPress = TVZDYKeyPress
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellDblClick = TVZDYCellDblClick
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.GroupByBox = False
|
||||
object VHelpZDYName: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ZDYName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 163
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
end
|
||||
object CXGridZDYLevel1: TcxGridLevel
|
||||
GridView = TVZDY
|
||||
end
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 64
|
||||
Top = 120
|
||||
Width = 65
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 1
|
||||
OnClick = Button1Click
|
||||
end
|
||||
end
|
||||
object QDTime: TDateTimePicker
|
||||
Left = 86
|
||||
Top = 42
|
||||
Width = 183
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.670856296290000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40916.670856296290000000
|
||||
ShowCheckbox = True
|
||||
TabOrder = 4
|
||||
end
|
||||
object CompanyName: TcxButtonEdit
|
||||
Left = 609
|
||||
Top = 10
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = CompanyNamePropertiesButtonClick
|
||||
TabOrder = 5
|
||||
OnKeyDown = PRTCodeNameKeyDown
|
||||
Width = 177
|
||||
end
|
||||
object QDPalce: TEdit
|
||||
Left = 359
|
||||
Top = 43
|
||||
Width = 161
|
||||
Height = 18
|
||||
TabOrder = 6
|
||||
end
|
||||
object JHPlace: TcxButtonEdit
|
||||
Left = 361
|
||||
Top = 86
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = JHPlacePropertiesButtonClick
|
||||
TabOrder = 7
|
||||
Width = 162
|
||||
end
|
||||
object ConTK1: TcxButtonEdit
|
||||
Left = 86
|
||||
Top = 86
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK1PropertiesButtonClick
|
||||
TabOrder = 8
|
||||
Width = 183
|
||||
end
|
||||
object ConTk2: TcxButtonEdit
|
||||
Left = 609
|
||||
Top = 86
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTk2PropertiesButtonClick
|
||||
TabOrder = 9
|
||||
Width = 179
|
||||
end
|
||||
object ConTK3: TcxButtonEdit
|
||||
Left = 86
|
||||
Top = 134
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK3PropertiesButtonClick
|
||||
TabOrder = 10
|
||||
Width = 184
|
||||
end
|
||||
object ConTK4: TcxButtonEdit
|
||||
Left = 361
|
||||
Top = 134
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK4PropertiesButtonClick
|
||||
TabOrder = 11
|
||||
Width = 162
|
||||
end
|
||||
object ConTK5: TcxButtonEdit
|
||||
Left = 216
|
||||
Top = 174
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK5PropertiesButtonClick
|
||||
TabOrder = 12
|
||||
Width = 576
|
||||
end
|
||||
object ConTk6: TcxButtonEdit
|
||||
Left = 110
|
||||
Top = 206
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTk6PropertiesButtonClick
|
||||
TabOrder = 13
|
||||
Width = 683
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 0
|
||||
Top = 279
|
||||
Width = 823
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 2
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 308
|
||||
Width = 823
|
||||
Height = 277
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = 'C_Code'
|
||||
Column = v1Column1
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.GroupByBox = False
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #20379#26041
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
Width = 112
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = v1Column1PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 100
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684#22411#21495
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 103
|
||||
end
|
||||
object v1Price: TcxGridDBColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 58
|
||||
end
|
||||
object v1ClothQty: TcxGridDBColumn
|
||||
Caption = #24065#31181
|
||||
DataBinding.FieldName = 'PriceUnit'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 69
|
||||
end
|
||||
object v1ClothUnit: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'C_Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 69
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'C_Unit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 64
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 85
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object ADOTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 384
|
||||
Top = 13
|
||||
end
|
||||
object ADOCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 520
|
||||
Top = 5
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Sub
|
||||
Left = 344
|
||||
Top = 376
|
||||
end
|
||||
object Order_Sub: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 384
|
||||
Top = 376
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ADOZDY
|
||||
Left = 240
|
||||
Top = 8
|
||||
end
|
||||
object ADOZDY: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 280
|
||||
Top = 5
|
||||
end
|
||||
object CDS_ZDY: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 208
|
||||
Top = 16
|
||||
end
|
||||
object ADOQuery1: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 456
|
||||
Top = 13
|
||||
end
|
||||
end
|
||||
854
检验管理/U_ClothContractInPutSX.pas
Normal file
854
检验管理/U_ClothContractInPutSX.pas
Normal file
|
|
@ -0,0 +1,854 @@
|
|||
unit U_ClothContractInPutSX;
|
||||
|
||||
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, cxDropDownEdit;
|
||||
|
||||
type
|
||||
TfrmClothContractInPutSX = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBSave: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ScrollBox1: TScrollBox;
|
||||
Label1: TLabel;
|
||||
ConNo: TEdit;
|
||||
Label4: TLabel;
|
||||
DeliveryDate: TDateTimePicker;
|
||||
Label5: TLabel;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1PRTSpec: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
v1ClothQty: TcxGridDBColumn;
|
||||
v1Price: TcxGridDBColumn;
|
||||
v1ClothUnit: TcxGridDBColumn;
|
||||
ADOTemp: TADOQuery;
|
||||
ADOCmd: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
Order_Sub: TClientDataSet;
|
||||
DataSource2: TDataSource;
|
||||
ADOZDY: TADOQuery;
|
||||
CDS_ZDY: TClientDataSet;
|
||||
FactoryNoName: TcxButtonEdit;
|
||||
ADOQuery1: TADOQuery;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
PanZDY: TPanel;
|
||||
CXGridZDY: TcxGrid;
|
||||
TVZDY: TcxGridDBTableView;
|
||||
VHelpZDYName: TcxGridDBColumn;
|
||||
CXGridZDYLevel1: TcxGridLevel;
|
||||
Button1: TButton;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
Label2: TLabel;
|
||||
QDTime: TDateTimePicker;
|
||||
Label3: TLabel;
|
||||
CompanyName: TcxButtonEdit;
|
||||
Label6: TLabel;
|
||||
QDPalce: TEdit;
|
||||
Label8: TLabel;
|
||||
JHPlace: TcxButtonEdit;
|
||||
Label7: TLabel;
|
||||
ConTK1: TcxButtonEdit;
|
||||
Label9: TLabel;
|
||||
ConTk2: TcxButtonEdit;
|
||||
Label10: TLabel;
|
||||
ConTK3: TcxButtonEdit;
|
||||
Label11: TLabel;
|
||||
ConTK4: TcxButtonEdit;
|
||||
Label12: TLabel;
|
||||
ConTK5: TcxButtonEdit;
|
||||
Label13: TLabel;
|
||||
ConTk6: TcxButtonEdit;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTColorPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure FactoryNoNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTMFPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1OrderQtyPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1ClothQtyPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column2PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure FactoryNoNamePropertiesChange(Sender: TObject);
|
||||
procedure CompanyNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure JHPlacePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK4PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTk6PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTk2PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
|
||||
private
|
||||
FXS:Integer;
|
||||
procedure InitData();
|
||||
procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||||
function SaveData():Boolean;
|
||||
{ Private declarations }
|
||||
public
|
||||
PState:Integer;
|
||||
FMainId,FConNo:String;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmClothContractInPutSX: TfrmClothContractInPutSX;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_ZDYHelp,U_Fun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmClothContractInPutSX.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.InitData();
|
||||
begin
|
||||
with ADOQuery1 do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' exec ClothContractSX_QryList :MainId,:WSql');
|
||||
if PState=1 then
|
||||
begin
|
||||
ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
|
||||
ADOQuery1.Parameters.ParamByName('WSQl').Value:='';
|
||||
end;
|
||||
if PState=0 then
|
||||
begin
|
||||
ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
|
||||
ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 ';
|
||||
end;
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQuery1,Order_Sub);
|
||||
SInitCDSData20(ADOQuery1,Order_Sub);
|
||||
SCSHData(ADOQuery1,ScrollBox1,0);
|
||||
if PState=0 then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select Top 1* from ContractSX_Main order by FillTime desc ');
|
||||
Open;
|
||||
end;
|
||||
QDTime.DateTime:=SGetServerDate(ADOTemp);
|
||||
DeliveryDate.DateTime:=SGetServerDate(ADOTemp);
|
||||
QDTime.Checked:=True;
|
||||
DeliveryDate.Checked:=False;
|
||||
QDPalce.Text:='柯桥';
|
||||
end;
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||||
var
|
||||
FType,ZDYName,FText:String;
|
||||
begin
|
||||
PanZDY.Visible:=True;
|
||||
PanZDY.Left:=FButn.Left;
|
||||
PanZDY.Top:=FButn.Top+FButn.Height;
|
||||
with ADOZDY do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+'''');
|
||||
Open;
|
||||
end;
|
||||
FText:=Trim(FButn.Text);
|
||||
if FText<>'' then
|
||||
SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%'))
|
||||
else
|
||||
SDofilter(ADOZDY,'');
|
||||
VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name);
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
var
|
||||
FName:string;
|
||||
begin
|
||||
if ADOZDY.IsEmpty then Exit;
|
||||
FName:=Trim(VHelpZDYName.Summary.GroupFormat);
|
||||
TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||||
TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.Button1Click(Sender: TObject);
|
||||
begin
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
{if (key=vk_return) or (Key=vk_Down) then
|
||||
begin
|
||||
if ADOZDY.Active then
|
||||
CXGridZDY.SetFocus;
|
||||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if ADOZDY.IsEmpty then Exit;
|
||||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||||
PanZDY.Visible:=False;
|
||||
ADOZDY.Active:=False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.FormShow(Sender: TObject);
|
||||
begin
|
||||
{if Trim(DParameters1)='1' then
|
||||
begin
|
||||
v1Price.Visible:=False;
|
||||
v1ClothQty.Visible:=False;
|
||||
v1PRTQty.Visible:=False;
|
||||
end else
|
||||
begin
|
||||
v1Price.Visible:=True;
|
||||
v1ClothQty.Visible:=True;
|
||||
v1PRTQty.Visible:=True;
|
||||
end; }
|
||||
InitData();
|
||||
end;
|
||||
|
||||
function TfrmClothContractInPutSX.SaveData():Boolean;
|
||||
var
|
||||
maxno:String;
|
||||
begin
|
||||
try
|
||||
ADOCmd.Connection.BeginTrans;
|
||||
///保存主表
|
||||
if Trim(FMainId)='' then
|
||||
begin
|
||||
if GetLSNo(ADOCmd,maxno,'SM','ContractSX_Main',2,1)=False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('生成流水号异常！','提示',0);
|
||||
exit;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
maxno:=Trim(FMainId);
|
||||
end;
|
||||
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from ContractSX_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);
|
||||
SSetsaveSql(ADOCmd,'ContractSX_Main',ScrollBox1,0);
|
||||
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);
|
||||
///保存子表
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
if GetLSNo(ADOCmd,maxno,'SS','ContractSX_Sub',3,1)=False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取子流水号失败！','提示',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 ContractSX_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);
|
||||
SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractSX_Sub',0);
|
||||
if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then
|
||||
begin
|
||||
FieldByName('C_Qty').Value:=0;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('Price').AsString)='' then
|
||||
begin
|
||||
FieldByName('Price').Value:=0;
|
||||
end;
|
||||
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('保存失败！','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.TBSaveClick(Sender: TObject);
|
||||
begin
|
||||
DeliveryDate.SetFocus;
|
||||
if Trim(ConNo.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('合同编号不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Trim(FactoryNoName.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('供方不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('明细不能为空！','提示',0);
|
||||
exit;
|
||||
end;
|
||||
if Order_Sub.Locate('C_Qty',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('数量不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.Locate('C_Unit',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('数量单位不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if PState=1 then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from ContractSX_Cloth_DH where MainId='''+Trim(FMainId)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
if Trim(FConNo)<>Trim(ConNo.Text) then
|
||||
begin
|
||||
Application.MessageBox('已经到货不能修改合同编号!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
if SaveData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功！','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdUnit';
|
||||
flagname:='单位';
|
||||
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 TfrmClothContractInPutSX.v1PRTUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdUnit';
|
||||
flagname:='单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.v1PRTColorPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdColor';
|
||||
flagname:='颜色';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Append;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
if Order_Sub.IsEmpty then Exit;
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已到货不能删除数据!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
Order_Sub.Delete;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.FactoryNoNamePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
if Trim(FMainId)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from YF_Money_CR A where exists(');
|
||||
sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
|
||||
sql.Add(' where C.Mainid='''+Trim(FMainId)+'''');
|
||||
sql.Add(' and B.MXID=A.YFTypeId)');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已经产生应付款不能修改供应商!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Factory';
|
||||
flagname:='供方';
|
||||
MainType:='YCLFactory';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FXS:=99;
|
||||
FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.v1Column1PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ClothSX';
|
||||
flagname:='纱线名称';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.v1PRTMFPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='KZ';
|
||||
flagname:='克重单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.v1OrderQtyPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='MF';
|
||||
flagname:='门幅单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.v1ClothQtyPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='PriceUnit';
|
||||
flagname:='计价单位';
|
||||
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 TfrmClothContractInPutSX.v1Column2PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrderUnit';
|
||||
flagname:='单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.FactoryNoNamePropertiesChange(
|
||||
Sender: TObject);
|
||||
begin
|
||||
{if FXS=99 then
|
||||
begin
|
||||
PanZDY.Visible:=False;
|
||||
FXS:=0;
|
||||
Exit;
|
||||
end;
|
||||
ZDYHelp(FactoryNoName,'FactoryNo1Name'); }
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.CompanyNamePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdDefStr2';
|
||||
flagname:='需方';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FXS:=99;
|
||||
CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.JHPlacePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='JHPlace';
|
||||
flagname:='交货地点';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.ConTK1PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK1';
|
||||
flagname:='供货质量及技术标准';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.ConTK3PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK3';
|
||||
flagname:='包装要求';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.ConTK4PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK4';
|
||||
flagname:='结算方式';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.ConTK5PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK5';
|
||||
flagname:='验收标准、方法及提出异议期限';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.ConTk6PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK6';
|
||||
flagname:='其它约定事项';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.ConTk2PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK2';
|
||||
flagname:='运输方法及费用承担';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSX.ConNoKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if Trim(ConNo.Text)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
|
||||
Open;
|
||||
end;
|
||||
FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
647
检验管理/U_ClothContractInPutSXMX.dfm
Normal file
647
检验管理/U_ClothContractInPutSXMX.dfm
Normal file
|
|
@ -0,0 +1,647 @@
|
|||
object frmClothContractInPutSXMX: TfrmClothContractInPutSXMX
|
||||
Left = 198
|
||||
Top = 90
|
||||
Width = 831
|
||||
Height = 622
|
||||
Caption = #32433#32447#35746#36141#21512#21516#24405#20837
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 815
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBSave: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 14
|
||||
OnClick = TBSaveClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 0
|
||||
Top = 29
|
||||
Width = 815
|
||||
Height = 220
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
Ctl3D = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 24
|
||||
Top = 14
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 290
|
||||
Top = 46
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20132#36135#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 511
|
||||
Top = 222
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #20379' '#26041#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 552
|
||||
Top = 14
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #31614#35746#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 290
|
||||
Top = 14
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #38656' '#26041#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 24
|
||||
Top = 46
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #31614#35746#22320#28857#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 552
|
||||
Top = 42
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #20132#36135#22320#28857#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 24
|
||||
Top = 68
|
||||
Width = 65
|
||||
Height = 36
|
||||
Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 552
|
||||
Top = 68
|
||||
Width = 65
|
||||
Height = 36
|
||||
Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 24
|
||||
Top = 118
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #21253#35013#35201#27714#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 290
|
||||
Top = 80
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #32467#31639#26041#24335#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 24
|
||||
Top = 154
|
||||
Width = 195
|
||||
Height = 12
|
||||
Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 24
|
||||
Top = 190
|
||||
Width = 91
|
||||
Height = 12
|
||||
Caption = #20854#23427#32422#23450#20107#39033#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Left = 86
|
||||
Top = 11
|
||||
Width = 180
|
||||
Height = 18
|
||||
TabOrder = 0
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object DeliveryDate: TDateTimePicker
|
||||
Left = 353
|
||||
Top = 42
|
||||
Width = 177
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.670856296290000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40916.670856296290000000
|
||||
ShowCheckbox = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object FactoryNoName: TcxButtonEdit
|
||||
Tag = 77
|
||||
Left = 575
|
||||
Top = 218
|
||||
Hint = 'FactoryNo'
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick
|
||||
Properties.OnChange = FactoryNoNamePropertiesChange
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
OnKeyDown = PRTCodeNameKeyDown
|
||||
Width = 162
|
||||
end
|
||||
object PanZDY: TPanel
|
||||
Left = 841
|
||||
Top = 128
|
||||
Width = 202
|
||||
Height = 153
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
object CXGridZDY: TcxGrid
|
||||
Left = 3
|
||||
Top = 4
|
||||
Width = 197
|
||||
Height = 113
|
||||
TabOrder = 0
|
||||
object TVZDY: TcxGridDBTableView
|
||||
OnKeyPress = TVZDYKeyPress
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellDblClick = TVZDYCellDblClick
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.GroupByBox = False
|
||||
object VHelpZDYName: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ZDYName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 163
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
end
|
||||
object CXGridZDYLevel1: TcxGridLevel
|
||||
GridView = TVZDY
|
||||
end
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 64
|
||||
Top = 120
|
||||
Width = 65
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 1
|
||||
OnClick = Button1Click
|
||||
end
|
||||
end
|
||||
object QDTime: TDateTimePicker
|
||||
Left = 614
|
||||
Top = 10
|
||||
Width = 162
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.670856296290000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40916.670856296290000000
|
||||
ShowCheckbox = True
|
||||
TabOrder = 4
|
||||
end
|
||||
object CompanyName: TcxButtonEdit
|
||||
Left = 353
|
||||
Top = 10
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = CompanyNamePropertiesButtonClick
|
||||
TabOrder = 5
|
||||
OnKeyDown = PRTCodeNameKeyDown
|
||||
Width = 177
|
||||
end
|
||||
object QDPalce: TEdit
|
||||
Left = 86
|
||||
Top = 43
|
||||
Width = 179
|
||||
Height = 18
|
||||
TabOrder = 6
|
||||
Text = #26607#26725
|
||||
end
|
||||
object JHPlace: TcxButtonEdit
|
||||
Left = 614
|
||||
Top = 38
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = JHPlacePropertiesButtonClick
|
||||
TabOrder = 7
|
||||
Width = 162
|
||||
end
|
||||
object ConTK1: TcxButtonEdit
|
||||
Left = 86
|
||||
Top = 76
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK1PropertiesButtonClick
|
||||
TabOrder = 8
|
||||
Width = 183
|
||||
end
|
||||
object ConTk2: TcxButtonEdit
|
||||
Left = 614
|
||||
Top = 76
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTk2PropertiesButtonClick
|
||||
TabOrder = 9
|
||||
Width = 162
|
||||
end
|
||||
object ConTK3: TcxButtonEdit
|
||||
Left = 86
|
||||
Top = 114
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK3PropertiesButtonClick
|
||||
TabOrder = 10
|
||||
Width = 691
|
||||
end
|
||||
object ConTK4: TcxButtonEdit
|
||||
Left = 353
|
||||
Top = 76
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK4PropertiesButtonClick
|
||||
TabOrder = 11
|
||||
Width = 177
|
||||
end
|
||||
object ConTK5: TcxButtonEdit
|
||||
Left = 216
|
||||
Top = 150
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTK5PropertiesButtonClick
|
||||
TabOrder = 12
|
||||
Width = 563
|
||||
end
|
||||
object ConTk6: TcxButtonEdit
|
||||
Left = 110
|
||||
Top = 186
|
||||
BeepOnEnter = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = ConTk6PropertiesButtonClick
|
||||
TabOrder = 13
|
||||
Width = 669
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 0
|
||||
Top = 249
|
||||
Width = 815
|
||||
Height = 29
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 2
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 278
|
||||
Width = 815
|
||||
Height = 305
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = 'C_Code'
|
||||
Column = v1Column1
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.GroupByBox = False
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Tag = 1
|
||||
Caption = #20379#26041
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v1Column3PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 117
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = v1Column1PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 100
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684#22411#21495
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 103
|
||||
end
|
||||
object v1Price: TcxGridDBColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 58
|
||||
end
|
||||
object v1ClothQty: TcxGridDBColumn
|
||||
Caption = #24065#31181
|
||||
DataBinding.FieldName = 'PriceUnit'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 69
|
||||
end
|
||||
object v1ClothUnit: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'C_Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.handBlack
|
||||
Width = 69
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'C_Unit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.ImmediatePost = True
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 85
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object ADOTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 384
|
||||
Top = 65533
|
||||
end
|
||||
object ADOCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 520
|
||||
Top = 5
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Sub
|
||||
Left = 344
|
||||
Top = 376
|
||||
end
|
||||
object Order_Sub: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 384
|
||||
Top = 376
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ADOZDY
|
||||
Left = 240
|
||||
end
|
||||
object ADOZDY: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 280
|
||||
Top = 65533
|
||||
end
|
||||
object CDS_ZDY: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 208
|
||||
end
|
||||
object ADOQuery1: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 456
|
||||
Top = 5
|
||||
end
|
||||
end
|
||||
931
检验管理/U_ClothContractInPutSXMX.pas
Normal file
931
检验管理/U_ClothContractInPutSXMX.pas
Normal file
|
|
@ -0,0 +1,931 @@
|
|||
unit U_ClothContractInPutSXMX;
|
||||
|
||||
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, cxDropDownEdit;
|
||||
|
||||
type
|
||||
TfrmClothContractInPutSXMX = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBSave: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ScrollBox1: TScrollBox;
|
||||
Label1: TLabel;
|
||||
ConNo: TEdit;
|
||||
Label4: TLabel;
|
||||
DeliveryDate: TDateTimePicker;
|
||||
Label5: TLabel;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1PRTSpec: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
v1ClothQty: TcxGridDBColumn;
|
||||
v1Price: TcxGridDBColumn;
|
||||
v1ClothUnit: TcxGridDBColumn;
|
||||
ADOTemp: TADOQuery;
|
||||
ADOCmd: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
Order_Sub: TClientDataSet;
|
||||
DataSource2: TDataSource;
|
||||
ADOZDY: TADOQuery;
|
||||
CDS_ZDY: TClientDataSet;
|
||||
FactoryNoName: TcxButtonEdit;
|
||||
ADOQuery1: TADOQuery;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
PanZDY: TPanel;
|
||||
CXGridZDY: TcxGrid;
|
||||
TVZDY: TcxGridDBTableView;
|
||||
VHelpZDYName: TcxGridDBColumn;
|
||||
CXGridZDYLevel1: TcxGridLevel;
|
||||
Button1: TButton;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
Label2: TLabel;
|
||||
QDTime: TDateTimePicker;
|
||||
Label3: TLabel;
|
||||
CompanyName: TcxButtonEdit;
|
||||
Label6: TLabel;
|
||||
QDPalce: TEdit;
|
||||
Label8: TLabel;
|
||||
JHPlace: TcxButtonEdit;
|
||||
Label7: TLabel;
|
||||
ConTK1: TcxButtonEdit;
|
||||
Label9: TLabel;
|
||||
ConTk2: TcxButtonEdit;
|
||||
Label10: TLabel;
|
||||
ConTK3: TcxButtonEdit;
|
||||
Label11: TLabel;
|
||||
ConTK4: TcxButtonEdit;
|
||||
Label12: TLabel;
|
||||
ConTK5: TcxButtonEdit;
|
||||
Label13: TLabel;
|
||||
ConTk6: TcxButtonEdit;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTColorPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure FactoryNoNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1PRTMFPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1OrderQtyPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1ClothQtyPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column2PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure FactoryNoNamePropertiesChange(Sender: TObject);
|
||||
procedure CompanyNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure JHPlacePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK4PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTK5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTk6PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConTk2PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure v1Column3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
private
|
||||
FXS:Integer;
|
||||
procedure InitData();
|
||||
procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||||
function SaveData():Boolean;
|
||||
{ Private declarations }
|
||||
public
|
||||
PState,PCopyInt:Integer;
|
||||
FMainId,FConNo:String;
|
||||
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmClothContractInPutSXMX: TfrmClothContractInPutSXMX;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_ZDYHelp,U_Fun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.InitData();
|
||||
begin
|
||||
with ADOQuery1 do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' exec ClothContractSX_QryList :MainId,:WSql');
|
||||
if PState=1 then
|
||||
begin
|
||||
ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
|
||||
ADOQuery1.Parameters.ParamByName('WSQl').Value:='';
|
||||
end;
|
||||
if PState=0 then
|
||||
begin
|
||||
ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
|
||||
ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 ';
|
||||
end;
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQuery1,Order_Sub);
|
||||
SInitCDSData20(ADOQuery1,Order_Sub);
|
||||
SCSHData(ADOQuery1,ScrollBox1,0);
|
||||
if PState=0 then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select Top 1* from ContractSX_Main order by FillTime desc ');
|
||||
Open;
|
||||
end;
|
||||
QDTime.DateTime:=SGetServerDate(ADOTemp);
|
||||
DeliveryDate.DateTime:=SGetServerDate(ADOTemp);
|
||||
QDTime.Checked:=True;
|
||||
DeliveryDate.Checked:=False;
|
||||
QDPalce.Text:='柯桥';
|
||||
end;
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||||
var
|
||||
FType,ZDYName,FText:String;
|
||||
begin
|
||||
PanZDY.Visible:=True;
|
||||
PanZDY.Left:=FButn.Left;
|
||||
PanZDY.Top:=FButn.Top+FButn.Height;
|
||||
with ADOZDY do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+'''');
|
||||
Open;
|
||||
end;
|
||||
FText:=Trim(FButn.Text);
|
||||
if FText<>'' then
|
||||
SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%'))
|
||||
else
|
||||
SDofilter(ADOZDY,'');
|
||||
VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name);
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
var
|
||||
FName:string;
|
||||
begin
|
||||
if ADOZDY.IsEmpty then Exit;
|
||||
FName:=Trim(VHelpZDYName.Summary.GroupFormat);
|
||||
TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||||
TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.Button1Click(Sender: TObject);
|
||||
begin
|
||||
PanZDY.Visible:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
{if (key=vk_return) or (Key=vk_Down) then
|
||||
begin
|
||||
if ADOZDY.Active then
|
||||
CXGridZDY.SetFocus;
|
||||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if ADOZDY.IsEmpty then Exit;
|
||||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||||
PanZDY.Visible:=False;
|
||||
ADOZDY.Active:=False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.FormShow(Sender: TObject);
|
||||
begin
|
||||
{if Trim(DParameters1)='1' then
|
||||
begin
|
||||
v1Price.Visible:=False;
|
||||
v1ClothQty.Visible:=False;
|
||||
v1PRTQty.Visible:=False;
|
||||
end else
|
||||
begin
|
||||
v1Price.Visible:=True;
|
||||
v1ClothQty.Visible:=True;
|
||||
v1PRTQty.Visible:=True;
|
||||
end; }
|
||||
InitData();
|
||||
if PCopyInt=1 then
|
||||
begin
|
||||
FMainId:='';
|
||||
FConNo:='';
|
||||
ConNo.Text:='';
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('SubId').Value:='';
|
||||
Post;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmClothContractInPutSXMX.SaveData():Boolean;
|
||||
var
|
||||
maxno,maxSubNo:String;
|
||||
begin
|
||||
try
|
||||
ADOCmd.Connection.BeginTrans;
|
||||
///保存子表
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
if GetLSNo(ADOCmd,maxno,'SM','ContractSX_Main',2,1)=False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('生成流水号异常！','提示',0);
|
||||
exit;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
maxno:=Trim(FMainId);
|
||||
end;
|
||||
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from ContractSX_Main where MainId='''+Trim(FMainId)+'''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
Append;
|
||||
end
|
||||
else begin
|
||||
Edit;
|
||||
end;
|
||||
FieldByName('MainId').Value:=Trim(maxno);
|
||||
SSetsaveSql(ADOCmd,'ContractSX_Main',ScrollBox1,0);
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
FieldByName('Filler').Value:=Trim(DName);
|
||||
end else
|
||||
begin
|
||||
FieldByName('Editer').Value:=Trim(DName);
|
||||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||||
end;
|
||||
FieldByName('FactoryNoName').Value:=Trim(Order_Sub.fieldbyname('FactoryNoName').AsString);
|
||||
Post;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
if GetLSNo(ADOCmd,maxSubNo,'SS','ContractSX_Sub',3,1)=False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取子流水号失败！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString);
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from ContractSX_Sub where MainId='''+Trim(maxno)+'''');
|
||||
sql.Add(' and SubId='''+Trim(maxSubNo)+'''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||||
ADOCmd.Append
|
||||
else
|
||||
ADOCmd.Edit;
|
||||
FieldByName('MainId').Value:=Trim(maxno);
|
||||
FieldByName('SubId').Value:=Trim(maxSubNo);
|
||||
FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString);
|
||||
SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractSX_Sub',0);
|
||||
if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then
|
||||
begin
|
||||
FieldByName('C_Qty').Value:=0;
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('Price').AsString)='' then
|
||||
begin
|
||||
FieldByName('Price').Value:=0;
|
||||
end;
|
||||
ADOCmd.FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString);
|
||||
ADOCmd.Post;
|
||||
end;
|
||||
Order_Sub.Edit;
|
||||
Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo);
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update ContractSX_Sub Set C_Unit='''+Trim(Order_Sub.fieldbyname('C_Unit').AsString)+'''');
|
||||
sql.Add(' where Subid='''+Trim(Order_Sub.fieldbyname('Subid').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
//Order_Sub.Post;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
ADOCmd.Connection.CommitTrans;
|
||||
Result:=True;
|
||||
except
|
||||
Result:=False;
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('保存失败！','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.TBSaveClick(Sender: TObject);
|
||||
begin
|
||||
DeliveryDate.SetFocus;
|
||||
if Trim(ConNo.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('合同编号不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
{if Trim(FactoryNoName.Text)='' then
|
||||
begin
|
||||
Application.MessageBox('供方不能为空！','提示',0);
|
||||
Exit;
|
||||
end; }
|
||||
if Order_Sub.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('明细不能为空！','提示',0);
|
||||
exit;
|
||||
end;
|
||||
if Order_Sub.Locate('C_Qty',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('数量不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.Locate('C_Unit',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('数量单位不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Order_Sub.Locate('FactoryNoName',null,[]) then
|
||||
begin
|
||||
Application.MessageBox('供方不能为空!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if PState=1 then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from ContractSX_Cloth_DH where MainId='''+Trim(FMainId)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
if Trim(FConNo)<>Trim(ConNo.Text) then
|
||||
begin
|
||||
Application.MessageBox('已经到货不能修改合同编号!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
if SaveData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功！','提示',0);
|
||||
ModalResult:=1;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdUnit';
|
||||
flagname:='单位';
|
||||
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 TfrmClothContractInPutSXMX.v1PRTUnitPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdUnit';
|
||||
flagname:='单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.v1PRTColorPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdColor';
|
||||
flagname:='颜色';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Append;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
if Order_Sub.IsEmpty then Exit;
|
||||
if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已到货不能删除数据!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
Order_Sub.Delete;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
if Trim(FMainId)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from YF_Money_CR A where exists(');
|
||||
sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
|
||||
sql.Add(' where C.Mainid='''+Trim(FMainId)+'''');
|
||||
sql.Add(' and B.MXID=A.YFTypeId)');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已经产生应付款不能修改供应商!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Factory';
|
||||
flagname:='供方';
|
||||
MainType:='YCLFactory';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FXS:=99;
|
||||
FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.v1Column1PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ClothSX';
|
||||
flagname:='纱线名称';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.v1PRTMFPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='KZ';
|
||||
flagname:='克重单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.v1OrderQtyPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='MF';
|
||||
flagname:='门幅单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.v1ClothQtyPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='PriceUnit';
|
||||
flagname:='计价单位';
|
||||
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 TfrmClothContractInPutSXMX.v1Column2PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrderUnit';
|
||||
flagname:='单位';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
Self.Order_Sub.Edit;
|
||||
Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesChange(
|
||||
Sender: TObject);
|
||||
begin
|
||||
{if FXS=99 then
|
||||
begin
|
||||
PanZDY.Visible:=False;
|
||||
FXS:=0;
|
||||
Exit;
|
||||
end;
|
||||
ZDYHelp(FactoryNoName,'FactoryNo1Name'); }
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.CompanyNamePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='OrdDefStr2';
|
||||
flagname:='需方';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
FXS:=99;
|
||||
CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.JHPlacePropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='JHPlace';
|
||||
flagname:='交货地点';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.ConTK1PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK1';
|
||||
flagname:='供货质量及技术标准';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.ConTK3PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK3';
|
||||
flagname:='包装要求';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.ConTK4PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK4';
|
||||
flagname:='结算方式';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.ConTK5PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK5';
|
||||
flagname:='验收标准、方法及提出异议期限';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.ConTk6PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK6';
|
||||
flagname:='其它约定事项';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.ConTk2PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='ConTK2';
|
||||
flagname:='运输方法及费用承担';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.ConNoKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if Trim(ConNo.Text)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
|
||||
Open;
|
||||
end;
|
||||
FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractInPutSXMX.v1Column3PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
if Trim(FMainId)<>'' then
|
||||
begin
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from YF_Money_CR A where exists(');
|
||||
sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
|
||||
sql.Add(' where C.Mainid='''+Trim(FMainId)+'''');
|
||||
sql.Add(' and B.MXID=A.YFTypeId)');
|
||||
Open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已经产生应付款不能修改供应商!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='Factory';
|
||||
flagname:='供方';
|
||||
MainType:='YCLFactory';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
635
检验管理/U_ClothContractKCList.dfm
Normal file
635
检验管理/U_ClothContractKCList.dfm
Normal file
|
|
@ -0,0 +1,635 @@
|
|||
object frmClothContractKCList: TfrmClothContractKCList
|
||||
Left = 100
|
||||
Top = 35
|
||||
Width = 1238
|
||||
Height = 653
|
||||
Caption = #22383#24067#24211#23384#27719#24635#26597#35810
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1222
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1222
|
||||
Height = 54
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #30331#35760#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 161
|
||||
Top = 22
|
||||
Width = 18
|
||||
Height = 12
|
||||
Caption = '---'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 283
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 444
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 612
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #35268#26684
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 748
|
||||
Top = 22
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #22383#24067#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 892
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #26579#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 18
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 179
|
||||
Top = 18
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
TabOrder = 1
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Tag = 2
|
||||
Left = 337
|
||||
Top = 18
|
||||
Width = 81
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object C_CodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 497
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object C_Spec: TEdit
|
||||
Tag = 2
|
||||
Left = 640
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object FactoryNoName: TEdit
|
||||
Tag = 2
|
||||
Left = 792
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object FirstName: TEdit
|
||||
Tag = 2
|
||||
Left = 920
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 86
|
||||
Width = 1222
|
||||
Height = 529
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column7
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column8
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column4
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column14
|
||||
end
|
||||
item
|
||||
Kind = skAverage
|
||||
end
|
||||
item
|
||||
Kind = skAverage
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#32534#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 103
|
||||
end
|
||||
object v1FactoryNo1Name: TcxGridDBColumn
|
||||
Caption = #22383#24067#21378
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 171
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 134
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 93
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #26579#21378
|
||||
DataBinding.FieldName = 'FirstName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 104
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #37319#36141#21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #37319#36141#25968#37327
|
||||
DataBinding.FieldName = 'C_Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column19: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'C_unit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21040#36135#21305#25968
|
||||
DataBinding.FieldName = 'DHPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 59
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #21040#36135#25968#37327
|
||||
DataBinding.FieldName = 'DHQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 64
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #25237#24067#21305#25968
|
||||
DataBinding.FieldName = 'TPPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Content = FontBlue
|
||||
Styles.Footer = FontBlue
|
||||
Styles.Header = FontBlue
|
||||
Width = 58
|
||||
end
|
||||
object v1Column14: TcxGridDBColumn
|
||||
Caption = #25237#24067#25968#37327
|
||||
DataBinding.FieldName = 'TPQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Content = FontBlue
|
||||
Styles.Footer = FontBlue
|
||||
Styles.Header = FontBlue
|
||||
Width = 59
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #24211#23384#21305#25968
|
||||
DataBinding.FieldName = 'KCPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Content = FoneRed
|
||||
Styles.Footer = FoneRed
|
||||
Styles.Header = FoneRed
|
||||
Width = 61
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #24211#23384#25968#37327
|
||||
DataBinding.FieldName = 'KCQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Content = FoneRed
|
||||
Styles.Footer = FoneRed
|
||||
Styles.Header = FoneRed
|
||||
Width = 58
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 448
|
||||
Top = 168
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 936
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1000
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1040
|
||||
Top = 8
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 1168
|
||||
Top = 8
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1096
|
||||
Top = 8
|
||||
end
|
||||
object ClientDataSet3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 576
|
||||
Top = 168
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ClientDataSet2
|
||||
Left = 512
|
||||
Top = 168
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = ClientDataSet3
|
||||
Left = 544
|
||||
Top = 168
|
||||
end
|
||||
object ClientDataSet2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 480
|
||||
Top = 168
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 320
|
||||
Top = 168
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = Order_Main
|
||||
Left = 352
|
||||
Top = 168
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 1
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 384
|
||||
Top = 168
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 416
|
||||
Top = 168
|
||||
end
|
||||
object ThreeColorBase: TcxStyleRepository
|
||||
Left = 139
|
||||
Top = 80
|
||||
object SHuangSe: TcxStyle
|
||||
AssignedValues = [svColor, svFont, svTextColor]
|
||||
Color = 4707838
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
TextColor = clBtnText
|
||||
end
|
||||
object SkyBlue: TcxStyle
|
||||
AssignedValues = [svColor, svFont]
|
||||
Color = clSkyBlue
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
end
|
||||
object Default: TcxStyle
|
||||
AssignedValues = [svFont]
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
object QHuangSe: TcxStyle
|
||||
AssignedValues = [svColor, svFont]
|
||||
Color = 8454143
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
end
|
||||
object Red: TcxStyle
|
||||
AssignedValues = [svColor, svFont]
|
||||
Color = clRed
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
end
|
||||
object FontBlue: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clBlue
|
||||
end
|
||||
object TextSHuangSe: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clBlack
|
||||
end
|
||||
object FonePurple: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindow
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clBlack
|
||||
end
|
||||
object FoneClMaroon: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clMaroon
|
||||
end
|
||||
object FoneRed: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clRed
|
||||
end
|
||||
object RowColor: TcxStyle
|
||||
AssignedValues = [svColor]
|
||||
Color = 16311512
|
||||
end
|
||||
object handBlack: TcxStyle
|
||||
AssignedValues = [svFont]
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
object cxBlue: TcxStyle
|
||||
AssignedValues = [svColor, svFont]
|
||||
Color = 16711731
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
end
|
||||
end
|
||||
end
|
||||
202
检验管理/U_ClothContractKCList.pas
Normal file
202
检验管理/U_ClothContractKCList.pas
Normal file
|
|
@ -0,0 +1,202 @@
|
|||
unit U_ClothContractKCList;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
|
||||
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
|
||||
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
|
||||
cxTextEdit;
|
||||
|
||||
type
|
||||
TfrmClothContractKCList = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
Label3: TLabel;
|
||||
ConNo: TEdit;
|
||||
Label5: TLabel;
|
||||
C_CodeName: TEdit;
|
||||
Order_Main: TClientDataSet;
|
||||
Label4: TLabel;
|
||||
C_Spec: TEdit;
|
||||
ClientDataSet3: TClientDataSet;
|
||||
DataSource2: TDataSource;
|
||||
DataSource3: TDataSource;
|
||||
ClientDataSet2: TClientDataSet;
|
||||
RM1: TRMGridReport;
|
||||
RMDBMain: TRMDBDataSet;
|
||||
RMXLSExport1: TRMXLSExport;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1OrderNo: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1FactoryNo1Name: TcxGridDBColumn;
|
||||
v1PRTSpec: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||||
Label6: TLabel;
|
||||
FactoryNoName: TEdit;
|
||||
Label7: TLabel;
|
||||
FirstName: TEdit;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
v1Column19: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column9: TcxGridDBColumn;
|
||||
ThreeColorBase: TcxStyleRepository;
|
||||
SHuangSe: TcxStyle;
|
||||
SkyBlue: TcxStyle;
|
||||
Default: TcxStyle;
|
||||
QHuangSe: TcxStyle;
|
||||
Red: TcxStyle;
|
||||
FontBlue: TcxStyle;
|
||||
TextSHuangSe: TcxStyle;
|
||||
FonePurple: TcxStyle;
|
||||
FoneClMaroon: TcxStyle;
|
||||
FoneRed: TcxStyle;
|
||||
RowColor: TcxStyle;
|
||||
handBlack: TcxStyle;
|
||||
cxBlue: TcxStyle;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ConNoChange(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
FInt,PFInt:Integer;
|
||||
procedure InitGrid();
|
||||
procedure InitForm();
|
||||
procedure InitGridWSQL(FWSQL:String);
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmClothContractKCList: TfrmClothContractKCList;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmClothContractKCList.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmClothContractKCList:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractKCList.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractKCList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
WriteCxGrid(self.Caption+tv1.Name,Tv1,'ָʾµ¥¹ÜÀí');
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractKCList.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('exec P_Get_PBKC :begdate,:enddate');
|
||||
Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date);
|
||||
Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||
SInitCDSData20(ADOQueryMain,Order_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
procedure TfrmClothContractKCList.InitGridWSQL(FWSQL:String);
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('exec P_View_ClothHZ :begdate,:enddate,:WSQL');
|
||||
Parameters.ParamByName('begdate').Value:='1900-01-01';
|
||||
Parameters.ParamByName('enddate').Value:='2050-01-01';
|
||||
Parameters.ParamByName('WSQL').Value:=FWSQL;
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||
SInitCDSData20(ADOQueryMain,Order_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractKCList.InitForm();
|
||||
begin
|
||||
ReadCxGrid(self.Caption+tv1.Name,Tv1,'ָʾµ¥¹ÜÀí');
|
||||
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
|
||||
BegDate.DateTime:=EndDate.DateTime-15;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractKCList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active=False then Exit;
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||
SInitCDSData20(ADOQueryMain,Order_Main);
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure TfrmClothContractKCList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractKCList.ConNoChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active=False then Exit;
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||
SInitCDSData20(ADOQueryMain,Order_Main);
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractKCList.FormShow(Sender: TObject);
|
||||
begin
|
||||
InitForm();
|
||||
end;
|
||||
|
||||
end.
|
||||
929
检验管理/U_ClothContractList.dfm
Normal file
929
检验管理/U_ClothContractList.dfm
Normal file
|
|
@ -0,0 +1,929 @@
|
|||
object frmClothContractList: TfrmClothContractList
|
||||
Left = 111
|
||||
Top = 38
|
||||
Width = 1192
|
||||
Height = 699
|
||||
Caption = #22383#24067#37319#36141#21512#21516
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1184
|
||||
Height = 62
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBAdd: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26032#22686
|
||||
ImageIndex = 3
|
||||
OnClick = TBAddClick
|
||||
end
|
||||
object TBEdit: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
ImageIndex = 54
|
||||
OnClick = TBEditClick
|
||||
end
|
||||
object TBDel: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
ImageIndex = 17
|
||||
OnClick = TBDelClick
|
||||
end
|
||||
object Tchk: TToolButton
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23436#25104
|
||||
ImageIndex = 41
|
||||
OnClick = TchkClick
|
||||
end
|
||||
object TNochk: TToolButton
|
||||
Left = 378
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#23436#25104
|
||||
ImageIndex = 86
|
||||
Wrap = True
|
||||
OnClick = TNochkClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 0
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 63
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object ToolButton6: TToolButton
|
||||
Left = 126
|
||||
Top = 30
|
||||
Width = 48
|
||||
Caption = 'ToolButton6'
|
||||
ImageIndex = 115
|
||||
Style = tbsSeparator
|
||||
Visible = False
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 174
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 237
|
||||
Top = 30
|
||||
Width = 41
|
||||
Caption = 'ToolButton1'
|
||||
ImageIndex = 60
|
||||
Style = tbsSeparator
|
||||
Visible = False
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 278
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
Visible = False
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 341
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 404
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #21040#22383#30830#23450
|
||||
ImageIndex = 113
|
||||
Visible = False
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 491
|
||||
Top = 30
|
||||
Caption = #22383#24067#39046#26009#30830#23450
|
||||
ImageIndex = 114
|
||||
Visible = False
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 62
|
||||
Width = 1184
|
||||
Height = 54
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 21
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #31614#35746#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 161
|
||||
Top = 22
|
||||
Width = 18
|
||||
Height = 12
|
||||
Caption = '---'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 283
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 444
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 612
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #35268#26684
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 18
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 179
|
||||
Top = 18
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
end
|
||||
object ConNoM: TEdit
|
||||
Tag = 2
|
||||
Left = 337
|
||||
Top = 18
|
||||
Width = 81
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 2
|
||||
OnChange = ConNoMChange
|
||||
OnKeyPress = conPress
|
||||
end
|
||||
object C_CodeNameM: TEdit
|
||||
Tag = 2
|
||||
Left = 497
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 3
|
||||
OnChange = ConNoMChange
|
||||
end
|
||||
object C_Spec: TEdit
|
||||
Tag = 2
|
||||
Left = 640
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 4
|
||||
OnChange = ConNoMChange
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 760
|
||||
Top = 15
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = #22686#34892
|
||||
TabOrder = 5
|
||||
Visible = False
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 856
|
||||
Top = 15
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = #21024#34892
|
||||
TabOrder = 6
|
||||
Visible = False
|
||||
OnClick = Button2Click
|
||||
end
|
||||
object Button3: TButton
|
||||
Left = 952
|
||||
Top = 15
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = #21040#22383#30830#23450
|
||||
TabOrder = 7
|
||||
Visible = False
|
||||
OnClick = Button3Click
|
||||
end
|
||||
object Button4: TButton
|
||||
Left = 1048
|
||||
Top = 15
|
||||
Width = 86
|
||||
Height = 25
|
||||
Caption = #22383#24067#39046#26009#30830#23450
|
||||
TabOrder = 8
|
||||
Visible = False
|
||||
OnClick = Button4Click
|
||||
end
|
||||
end
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = -172
|
||||
Top = 112
|
||||
Width = 1351
|
||||
Height = 545
|
||||
BorderStyle = bsNone
|
||||
TabOrder = 2
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 815
|
||||
Height = 545
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseDown = Tv1MouseDown
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
OnCustomDrawCell = Tv1CustomDrawCell
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1C_Qty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Price
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Money
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.Editing = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#32534#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 80
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 100
|
||||
end
|
||||
object v1DeliveryDate: TcxGridDBColumn
|
||||
Caption = #20132#36135#26085#26399
|
||||
DataBinding.FieldName = 'DeliveryDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 75
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #31614#35746#26085#26399
|
||||
DataBinding.FieldName = 'QDTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 75
|
||||
end
|
||||
object v1FactoryNo1Name: TcxGridDBColumn
|
||||
Caption = #20379#26041
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 100
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 80
|
||||
end
|
||||
object v1PRTMF: TcxGridDBColumn
|
||||
Caption = #38376#24133'(cm)'
|
||||
DataBinding.FieldName = 'MFQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 60
|
||||
end
|
||||
object v1PRTKZ: TcxGridDBColumn
|
||||
Caption = #20811#37325'(g/'#13217')'
|
||||
DataBinding.FieldName = 'KZQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 60
|
||||
end
|
||||
object v1Qty1: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Hidden = True
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 50
|
||||
end
|
||||
object v1C_Qty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'C_Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 50
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'C_Unit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 50
|
||||
end
|
||||
object v1Price: TcxGridDBColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 60
|
||||
end
|
||||
object v1PriceUnit: TcxGridDBColumn
|
||||
Caption = #24065#31181
|
||||
DataBinding.FieldName = 'PriceUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 60
|
||||
end
|
||||
object v1Money: TcxGridDBColumn
|
||||
Caption = #24635#20215
|
||||
DataBinding.FieldName = 'Money'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 60
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #35746#21333#25968#37327
|
||||
DataBinding.FieldName = 'Sdefstr1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #35745#21010#32553#29575'(%)'
|
||||
DataBinding.FieldName = 'Qty2'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #26579#21378
|
||||
DataBinding.FieldName = 'Sdefstr2'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #26579#21378#24037#33402
|
||||
DataBinding.FieldName = 'Sdefstr3'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #26579#21378#20215#26684
|
||||
DataBinding.FieldName = 'Sdefstr4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #25351#31034#21333#21495
|
||||
DataBinding.FieldName = 'sdefstr5'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column11: TcxGridDBColumn
|
||||
Caption = #24037#21378#32534#21495
|
||||
DataBinding.FieldName = 'sdefstr6'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 70
|
||||
end
|
||||
object v1DHQty: TcxGridDBColumn
|
||||
Caption = #21040#36135#21305#25968
|
||||
DataBinding.FieldName = 'DHQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 65
|
||||
end
|
||||
object v1MXQty: TcxGridDBColumn
|
||||
Caption = #21040#36135#25968#37327
|
||||
DataBinding.FieldName = 'MXQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 65
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 823
|
||||
Top = 0
|
||||
Width = 528
|
||||
Height = 545
|
||||
Align = alRight
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 2
|
||||
Top = 195
|
||||
Width = 524
|
||||
Height = 348
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv3: TcxGridDBTableView
|
||||
OnMouseDown = Tv3MouseDown
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource3
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column2
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column3
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #35746#21333#32534#21495
|
||||
DataBinding.FieldName = 'OrderNo'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 62
|
||||
end
|
||||
object cxGridDBPRTColor: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 42
|
||||
end
|
||||
object v3Column6: TcxGridDBColumn
|
||||
Caption = #25237#22383#26085#26399
|
||||
DataBinding.FieldName = 'TPDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 74
|
||||
end
|
||||
object v3Column3: TcxGridDBColumn
|
||||
Caption = #25237#22383#21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v3Column2: TcxGridDBColumn
|
||||
Caption = #25968#37327'('#35745#21010')'
|
||||
DataBinding.FieldName = 'TPQty'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 75
|
||||
end
|
||||
object v3Column4: TcxGridDBColumn
|
||||
Caption = #25968#37327#20844#24046
|
||||
DataBinding.FieldName = 'Qty2'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 63
|
||||
end
|
||||
object v3Column5: TcxGridDBColumn
|
||||
Caption = #35745#21010#32553#29575'(%)'
|
||||
DataBinding.FieldName = 'Qty3'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 78
|
||||
end
|
||||
object v3Column7: TcxGridDBColumn
|
||||
Caption = #25237#22383#20154
|
||||
DataBinding.FieldName = 'TPPerson'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 48
|
||||
end
|
||||
object v3Column8: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'TPNote'
|
||||
Width = 73
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv3
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 524
|
||||
Height = 193
|
||||
Align = alTop
|
||||
TabOrder = 1
|
||||
object Tv2: TcxGridDBTableView
|
||||
OnMouseDown = Tv2MouseDown
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv2CellClick
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2MxQty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column2
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
object v2ComeDate: TcxGridDBColumn
|
||||
Caption = #21040#36135#26085#26399
|
||||
DataBinding.FieldName = 'ComeDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 70
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #23384#25918#22320#28857
|
||||
DataBinding.FieldName = 'RKPlace'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v2Column3PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 65
|
||||
end
|
||||
object v2BatchNo: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 61
|
||||
end
|
||||
object v2Qty1: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Hidden = True
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 44
|
||||
end
|
||||
object v2MxQty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'MxQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 48
|
||||
end
|
||||
object v2MxNote: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'MxNote'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 72
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #24211#23384#21305#25968
|
||||
DataBinding.FieldName = 'KCPS'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Hidden = True
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 67
|
||||
end
|
||||
object v2Column2: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #24211#23384#25968#37327
|
||||
DataBinding.FieldName = 'KCSL'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 68
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 815
|
||||
Top = 0
|
||||
Width = 8
|
||||
Height = 545
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salRight
|
||||
Control = Panel2
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 116
|
||||
Width = 1184
|
||||
Height = 22
|
||||
Align = alTop
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Style = 9
|
||||
TabIndex = 0
|
||||
TabOrder = 3
|
||||
Tabs.Strings = (
|
||||
#26410#23436#25104
|
||||
#23436#25104
|
||||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1184
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 1140
|
||||
Top = 52
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 1092
|
||||
Top = 16
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1120
|
||||
Top = 20
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1032
|
||||
Top = 52
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 1080
|
||||
Top = 76
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1104
|
||||
Top = 64
|
||||
end
|
||||
object ClientDataSet3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1112
|
||||
Top = 240
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ClientDataSet2
|
||||
Left = 880
|
||||
Top = 176
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = ClientDataSet3
|
||||
Left = 1112
|
||||
Top = 216
|
||||
end
|
||||
object ClientDataSet2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 920
|
||||
Top = 224
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 352
|
||||
Top = 192
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = CDS_PRT
|
||||
Left = 400
|
||||
Top = 192
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 1
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 416
|
||||
Top = 248
|
||||
end
|
||||
object CDS_PRT: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 680
|
||||
Top = 32
|
||||
end
|
||||
end
|
||||
1014
检验管理/U_ClothContractList.pas
Normal file
1014
检验管理/U_ClothContractList.pas
Normal file
File diff suppressed because it is too large
Load Diff
700
检验管理/U_ClothContractListDH.dfm
Normal file
700
检验管理/U_ClothContractListDH.dfm
Normal file
|
|
@ -0,0 +1,700 @@
|
|||
object frmClothContractListDH: TfrmClothContractListDH
|
||||
Left = 229
|
||||
Top = 110
|
||||
Width = 1100
|
||||
Height = 553
|
||||
Caption = #22383#24067#21040#36135
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1092
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TWC: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23436#25104
|
||||
ImageIndex = 41
|
||||
Visible = False
|
||||
OnClick = TWCClick
|
||||
end
|
||||
object TNOWC: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#23436#25104
|
||||
ImageIndex = 86
|
||||
Visible = False
|
||||
OnClick = TNOWCClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 276
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 339
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
Visible = False
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 402
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 465
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21040#22383#30830#23450
|
||||
ImageIndex = 113
|
||||
Visible = False
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 552
|
||||
Top = 0
|
||||
Caption = #22383#24067#39046#26009#30830#23450
|
||||
ImageIndex = 114
|
||||
Visible = False
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1092
|
||||
Height = 54
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #30331#35760#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 161
|
||||
Top = 22
|
||||
Width = 18
|
||||
Height = 12
|
||||
Caption = '---'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 283
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 444
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 612
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #35268#26684
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 752
|
||||
Top = 22
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #23458#25143#21512#21516#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 18
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 179
|
||||
Top = 18
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
end
|
||||
object ConNoM: TEdit
|
||||
Tag = 2
|
||||
Left = 337
|
||||
Top = 18
|
||||
Width = 81
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 2
|
||||
OnChange = ConNoMChange
|
||||
OnKeyPress = ConNoMKeyPress
|
||||
end
|
||||
object C_CodeNameM: TEdit
|
||||
Tag = 2
|
||||
Left = 497
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 3
|
||||
OnChange = ConNoMChange
|
||||
end
|
||||
object C_Spec: TEdit
|
||||
Tag = 2
|
||||
Left = 640
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 4
|
||||
OnChange = ConNoMChange
|
||||
end
|
||||
object sdefstr6: TEdit
|
||||
Tag = 2
|
||||
Left = 820
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 5
|
||||
OnChange = ConNoMChange
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 86
|
||||
Width = 1092
|
||||
Height = 194
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseDown = Tv1MouseDown
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv1CellClick
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1PRTOrderQty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column1
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#32534#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 74
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 93
|
||||
end
|
||||
object v1DeliveryDate: TcxGridDBColumn
|
||||
Caption = #20132#36135#26085#26399
|
||||
DataBinding.FieldName = 'DeliveryDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 85
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #31614#35746#26085#26399
|
||||
DataBinding.FieldName = 'QDTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 81
|
||||
end
|
||||
object v1FactoryNo1Name: TcxGridDBColumn
|
||||
Caption = #20379#26041
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 85
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 71
|
||||
end
|
||||
object v1Qty1: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Hidden = True
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 46
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 67
|
||||
end
|
||||
object v1PRTOrderQty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'C_Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 67
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'C_Unit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 58
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #35746#21333#25968#37327
|
||||
DataBinding.FieldName = 'Sdefstr1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 67
|
||||
end
|
||||
object v1DHQty: TcxGridDBColumn
|
||||
Caption = #21040#36135#21305#25968
|
||||
DataBinding.FieldName = 'DHQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 65
|
||||
end
|
||||
object v1MxQty: TcxGridDBColumn
|
||||
Caption = #21040#36135#25968#37327
|
||||
DataBinding.FieldName = 'MxQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 65
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #35745#21010#32553#29575'(%)'
|
||||
DataBinding.FieldName = 'Qty2'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 91
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 80
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #25351#31034#21333#21495
|
||||
DataBinding.FieldName = 'sdefstr5'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #23458#25143#21512#21516#21495
|
||||
DataBinding.FieldName = 'sdefstr6'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 511
|
||||
Width = 1092
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 280
|
||||
Width = 1092
|
||||
Height = 231
|
||||
Align = alBottom
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 4
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 2
|
||||
Top = 34
|
||||
Width = 1088
|
||||
Height = 195
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv2: TcxGridDBTableView
|
||||
OnMouseDown = Tv2MouseDown
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv2CellClick
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2MxQty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
object v2ComeDate: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21040#36135#26085#26399
|
||||
DataBinding.FieldName = 'ComeDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 117
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #23384#25918#22320#28857
|
||||
DataBinding.FieldName = 'RKPlace'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v2Column3PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 122
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21305#25968#37327
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 72
|
||||
end
|
||||
object v2MxQty: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'MxQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 90
|
||||
end
|
||||
object v2Column2: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'MXUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v2MxNote: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'MxNote'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 145
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1088
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButton8: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton10: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21040#22383#30830#23450
|
||||
ImageIndex = 113
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 664
|
||||
Top = 256
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 936
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1000
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1040
|
||||
Top = 8
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 1168
|
||||
Top = 8
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1096
|
||||
Top = 8
|
||||
end
|
||||
object ClientDataSet3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 988
|
||||
Top = 208
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ClientDataSet2
|
||||
Left = 880
|
||||
Top = 176
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = ClientDataSet3
|
||||
Left = 1112
|
||||
Top = 216
|
||||
end
|
||||
object ClientDataSet2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 920
|
||||
Top = 224
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 352
|
||||
Top = 192
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = Order_Main
|
||||
Left = 400
|
||||
Top = 192
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 1
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 416
|
||||
Top = 248
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 440
|
||||
Top = 520
|
||||
end
|
||||
end
|
||||
1085
检验管理/U_ClothContractListDH.pas
Normal file
1085
检验管理/U_ClothContractListDH.pas
Normal file
File diff suppressed because it is too large
Load Diff
598
检验管理/U_ClothContractListDHSX.dfm
Normal file
598
检验管理/U_ClothContractListDHSX.dfm
Normal file
|
|
@ -0,0 +1,598 @@
|
|||
object frmClothContractListDHSX: TfrmClothContractListDHSX
|
||||
Left = 248
|
||||
Top = 60
|
||||
Width = 1068
|
||||
Height = 619
|
||||
Caption = #32433#32447#21040#36135
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1060
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
Visible = False
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21040#22383#30830#23450
|
||||
ImageIndex = 113
|
||||
Visible = False
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 402
|
||||
Top = 0
|
||||
Caption = #22383#24067#39046#26009#30830#23450
|
||||
ImageIndex = 114
|
||||
Visible = False
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1060
|
||||
Height = 54
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #30331#35760#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 161
|
||||
Top = 22
|
||||
Width = 18
|
||||
Height = 12
|
||||
Caption = '---'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 283
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 444
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 612
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #35268#26684
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 18
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 179
|
||||
Top = 18
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
end
|
||||
object ConNoM: TEdit
|
||||
Tag = 2
|
||||
Left = 337
|
||||
Top = 18
|
||||
Width = 81
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 2
|
||||
OnChange = ConNoMChange
|
||||
OnKeyPress = ConNoMKeyPress
|
||||
end
|
||||
object C_CodeNameM: TEdit
|
||||
Tag = 2
|
||||
Left = 497
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 3
|
||||
OnChange = ConNoMChange
|
||||
end
|
||||
object C_Spec: TEdit
|
||||
Tag = 2
|
||||
Left = 640
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 4
|
||||
OnChange = ConNoMChange
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 86
|
||||
Width = 1060
|
||||
Height = 204
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseDown = Tv1MouseDown
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv1CellClick
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1PRTOrderQty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#32534#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 74
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 93
|
||||
end
|
||||
object v1DeliveryDate: TcxGridDBColumn
|
||||
Caption = #20132#36135#26085#26399
|
||||
DataBinding.FieldName = 'DeliveryDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 85
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #31614#35746#26085#26399
|
||||
DataBinding.FieldName = 'QDTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 81
|
||||
end
|
||||
object v1FactoryNo1Name: TcxGridDBColumn
|
||||
Caption = #20379#26041
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 85
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 71
|
||||
end
|
||||
object v1Qty1: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Hidden = True
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 46
|
||||
end
|
||||
object v1PRTOrderQty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'C_Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 67
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'C_Unit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 58
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 577
|
||||
Width = 1060
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 290
|
||||
Width = 1060
|
||||
Height = 287
|
||||
Align = alBottom
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 4
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 2
|
||||
Top = 34
|
||||
Width = 1056
|
||||
Height = 251
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv2: TcxGridDBTableView
|
||||
OnMouseDown = Tv2MouseDown
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv2CellClick
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2MxQty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
object v2ComeDate: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21040#36135#26085#26399
|
||||
DataBinding.FieldName = 'ComeDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 117
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21152#24037#21378
|
||||
DataBinding.FieldName = 'RKPlace'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v2Column3PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 122
|
||||
end
|
||||
object v2MxQty: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'MxQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 90
|
||||
end
|
||||
object v2Column2: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'MXUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v2MxNote: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'MxNote'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 145
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1056
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButton8: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton10: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21040#36135#30830#23450
|
||||
ImageIndex = 113
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 664
|
||||
Top = 256
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 936
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1000
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1040
|
||||
Top = 8
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 1168
|
||||
Top = 8
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1096
|
||||
Top = 8
|
||||
end
|
||||
object ClientDataSet3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1112
|
||||
Top = 240
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ClientDataSet2
|
||||
Left = 880
|
||||
Top = 176
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = ClientDataSet3
|
||||
Left = 1112
|
||||
Top = 216
|
||||
end
|
||||
object ClientDataSet2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 920
|
||||
Top = 224
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 352
|
||||
Top = 192
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = Order_Main
|
||||
Left = 400
|
||||
Top = 192
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 1
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 416
|
||||
Top = 248
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 440
|
||||
Top = 520
|
||||
end
|
||||
end
|
||||
1022
检验管理/U_ClothContractListDHSX.pas
Normal file
1022
检验管理/U_ClothContractListDHSX.pas
Normal file
File diff suppressed because it is too large
Load Diff
599
检验管理/U_ClothContractListDHSXQJG.dfm
Normal file
599
检验管理/U_ClothContractListDHSXQJG.dfm
Normal file
|
|
@ -0,0 +1,599 @@
|
|||
object frmClothContractListDHSXQJG: TfrmClothContractListDHSXQJG
|
||||
Left = 74
|
||||
Top = 0
|
||||
Width = 1155
|
||||
Height = 754
|
||||
Caption = #32433#32447#21069#21152#24037
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1147
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
Visible = False
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21040#22383#30830#23450
|
||||
ImageIndex = 113
|
||||
Visible = False
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 402
|
||||
Top = 0
|
||||
Caption = #22383#24067#39046#26009#30830#23450
|
||||
ImageIndex = 114
|
||||
Visible = False
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1147
|
||||
Height = 54
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #30331#35760#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 161
|
||||
Top = 22
|
||||
Width = 18
|
||||
Height = 12
|
||||
Caption = '---'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 283
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 444
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 612
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #35268#26684
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 18
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 179
|
||||
Top = 18
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Tag = 2
|
||||
Left = 337
|
||||
Top = 18
|
||||
Width = 81
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 2
|
||||
OnChange = ConNoChange
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object C_CodeNameM: TEdit
|
||||
Tag = 2
|
||||
Left = 497
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 3
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object C_Spec: TEdit
|
||||
Tag = 2
|
||||
Left = 640
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 4
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 712
|
||||
Width = 1147
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 425
|
||||
Width = 1147
|
||||
Height = 287
|
||||
Align = alBottom
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 3
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 2
|
||||
Top = 34
|
||||
Width = 1143
|
||||
Height = 251
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv2: TcxGridDBTableView
|
||||
OnMouseDown = Tv2MouseDown
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv2CellClick
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2MxQty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
object v2ComeDate: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #20986#24211#26085#26399
|
||||
DataBinding.FieldName = 'ComeDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 117
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21518#21152#24037#21378
|
||||
DataBinding.FieldName = 'RKPlace'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v2Column3PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 115
|
||||
end
|
||||
object v2MxQty: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'MxQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 90
|
||||
end
|
||||
object v2Column2: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'MXUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 60
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #26579#32433#21333#20215
|
||||
DataBinding.FieldName = 'MXPrice'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 76
|
||||
end
|
||||
object v2MxNote: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'MxNote'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 145
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1143
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButton8: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton10: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 113
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 86
|
||||
Width = 1147
|
||||
Height = 339
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv1CellClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column8
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#32534#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 114
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 112
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 106
|
||||
end
|
||||
object v1FactoryNo1Name: TcxGridDBColumn
|
||||
Caption = #21407#26448#26009#21378
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 79
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #21069#21152#24037#21378
|
||||
DataBinding.FieldName = 'FirstName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 84
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'DHUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 64
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #21040#36135#25968#37327
|
||||
DataBinding.FieldName = 'DHQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 68
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #32433#32447#25968#37327
|
||||
DataBinding.FieldName = 'ClothQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 68
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 664
|
||||
Top = 256
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 936
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1000
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1040
|
||||
Top = 8
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 1168
|
||||
Top = 8
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1096
|
||||
Top = 8
|
||||
end
|
||||
object ClientDataSet3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1112
|
||||
Top = 240
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ClientDataSet2
|
||||
Left = 880
|
||||
Top = 176
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = ClientDataSet3
|
||||
Left = 1112
|
||||
Top = 216
|
||||
end
|
||||
object ClientDataSet2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 920
|
||||
Top = 224
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 352
|
||||
Top = 192
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = Order_Main
|
||||
Left = 400
|
||||
Top = 192
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 1
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 416
|
||||
Top = 248
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 440
|
||||
Top = 520
|
||||
end
|
||||
end
|
||||
1057
检验管理/U_ClothContractListDHSXQJG.pas
Normal file
1057
检验管理/U_ClothContractListDHSXQJG.pas
Normal file
File diff suppressed because it is too large
Load Diff
1138
检验管理/U_ClothContractListHZ.dfm
Normal file
1138
检验管理/U_ClothContractListHZ.dfm
Normal file
File diff suppressed because it is too large
Load Diff
1250
检验管理/U_ClothContractListHZ.pas
Normal file
1250
检验管理/U_ClothContractListHZ.pas
Normal file
File diff suppressed because it is too large
Load Diff
771
检验管理/U_ClothContractListLL.dfm
Normal file
771
检验管理/U_ClothContractListLL.dfm
Normal file
|
|
@ -0,0 +1,771 @@
|
|||
object frmClothContractListLL: TfrmClothContractListLL
|
||||
Left = 138
|
||||
Top = 19
|
||||
Width = 1189
|
||||
Height = 705
|
||||
Caption = #22383#24067#39046#26009
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1181
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
Visible = False
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21040#22383#30830#23450
|
||||
ImageIndex = 113
|
||||
Visible = False
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 402
|
||||
Top = 0
|
||||
Caption = #22383#24067#39046#26009#30830#23450
|
||||
ImageIndex = 114
|
||||
Visible = False
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1181
|
||||
Height = 54
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #30331#35760#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 161
|
||||
Top = 22
|
||||
Width = 18
|
||||
Height = 12
|
||||
Caption = '---'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 283
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 444
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 612
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #35268#26684
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 748
|
||||
Top = 22
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #22383#24067#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 892
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #26579#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 18
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 179
|
||||
Top = 18
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Tag = 2
|
||||
Left = 337
|
||||
Top = 18
|
||||
Width = 81
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 2
|
||||
OnChange = ConNoChange
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object C_CodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 497
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 3
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object C_Spec: TEdit
|
||||
Tag = 2
|
||||
Left = 640
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 4
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object FactoryNoName: TEdit
|
||||
Tag = 2
|
||||
Left = 792
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 5
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object FirstName: TEdit
|
||||
Tag = 2
|
||||
Left = 920
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 6
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 370
|
||||
Width = 1181
|
||||
Height = 301
|
||||
Align = alBottom
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 2
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 2
|
||||
Top = 34
|
||||
Width = 1177
|
||||
Height = 265
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv3: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource3
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column2
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3TPPS
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column4
|
||||
end
|
||||
item
|
||||
Kind = skAverage
|
||||
Column = v3Column5
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #35746#21333#32534#21495
|
||||
DataBinding.FieldName = 'OrderNo'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 98
|
||||
end
|
||||
object cxGridDBPRTColor: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 66
|
||||
end
|
||||
object v3Column12: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'SOrddefstr1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 63
|
||||
end
|
||||
object v3Column16: TcxGridDBColumn
|
||||
Caption = #33457#22411#33457#21495
|
||||
DataBinding.FieldName = 'PRTHX'
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 67
|
||||
end
|
||||
object v3Column13: TcxGridDBColumn
|
||||
Caption = #20844#26020#25968
|
||||
DataBinding.FieldName = 'PRTOrderKgQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 56
|
||||
end
|
||||
object v3Column14: TcxGridDBColumn
|
||||
Caption = #35746#21333#25968#37327
|
||||
DataBinding.FieldName = 'PRTOrderQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 60
|
||||
end
|
||||
object v3Column15: TcxGridDBColumn
|
||||
Caption = #35746#21333#21333#20301
|
||||
DataBinding.FieldName = 'OrderUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 62
|
||||
end
|
||||
object v3Column6: TcxGridDBColumn
|
||||
Caption = #39046#26009#26085#26399
|
||||
DataBinding.FieldName = 'TPDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 95
|
||||
end
|
||||
object v3Column3: TcxGridDBColumn
|
||||
Caption = #25237#22383#21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v3TPPS: TcxGridDBColumn
|
||||
Caption = #21305#25968#37327
|
||||
DataBinding.FieldName = 'TPPS'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 61
|
||||
end
|
||||
object v3Column2: TcxGridDBColumn
|
||||
Caption = #25968#37327'('#35745#21010')'
|
||||
DataBinding.FieldName = 'TPQty'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 97
|
||||
end
|
||||
object v3Column5: TcxGridDBColumn
|
||||
Caption = #35745#21010#32553#29575'(%)'
|
||||
DataBinding.FieldName = 'Qty3'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column5PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 85
|
||||
end
|
||||
object v3Column4: TcxGridDBColumn
|
||||
Caption = #25968#37327#20844#24046
|
||||
DataBinding.FieldName = 'Qty2'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 85
|
||||
end
|
||||
object v3Column1: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'TPUnit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.ImmediatePost = True
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 68
|
||||
end
|
||||
object v3Column7: TcxGridDBColumn
|
||||
Caption = #25237#22383#20154
|
||||
DataBinding.FieldName = 'TPPerson'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 72
|
||||
end
|
||||
object v3Column11: TcxGridDBColumn
|
||||
Caption = #32568#36153
|
||||
DataBinding.FieldName = 'GangFee'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 68
|
||||
end
|
||||
object v3Column8: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'TPNote'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 105
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv3
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1177
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButton8: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton11: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
Caption = #22383#24067#39046#26009#30830#23450
|
||||
ImageIndex = 114
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 233
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #19968#38190#26367#25442
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 362
|
||||
Width = 1181
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
Control = Panel2
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 86
|
||||
Width = 1181
|
||||
Height = 276
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column7
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column8
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#32534#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 114
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 112
|
||||
end
|
||||
object v1FactoryNo1Name: TcxGridDBColumn
|
||||
Caption = #22383#24067#21378
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 79
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #26579#21378
|
||||
DataBinding.FieldName = 'FirstName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 84
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 99
|
||||
end
|
||||
object v1PRTMF: TcxGridDBColumn
|
||||
Caption = #38376#24133'(cm)'
|
||||
DataBinding.FieldName = 'MFQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v1PRTKZ: TcxGridDBColumn
|
||||
Caption = #20811#37325'(g/'#13217')'
|
||||
DataBinding.FieldName = 'KZQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 72
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'DHUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 64
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21040#36135#21305#25968
|
||||
DataBinding.FieldName = 'DHPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 62
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #21040#36135#25968#37327
|
||||
DataBinding.FieldName = 'DHQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 68
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #30333#22383#21305#25968
|
||||
DataBinding.FieldName = 'ClothPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 64
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #30333#22383#25968#37327
|
||||
DataBinding.FieldName = 'ClothQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 58
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 68
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 752
|
||||
Top = 216
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 936
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1000
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1040
|
||||
Top = 8
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 1088
|
||||
Top = 54
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1096
|
||||
Top = 8
|
||||
end
|
||||
object ClientDataSet3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 955
|
||||
Top = 293
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ClientDataSet2
|
||||
Left = 880
|
||||
Top = 176
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = ClientDataSet3
|
||||
Left = 1112
|
||||
Top = 216
|
||||
end
|
||||
object ClientDataSet2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 920
|
||||
Top = 224
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 352
|
||||
Top = 192
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = Order_Main
|
||||
Left = 400
|
||||
Top = 192
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 1
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 416
|
||||
Top = 248
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid3
|
||||
PopupMenus = <>
|
||||
Left = 968
|
||||
Top = 480
|
||||
end
|
||||
end
|
||||
1205
检验管理/U_ClothContractListLL.pas
Normal file
1205
检验管理/U_ClothContractListLL.pas
Normal file
File diff suppressed because it is too large
Load Diff
719
检验管理/U_ClothContractListLLSX.dfm
Normal file
719
检验管理/U_ClothContractListLLSX.dfm
Normal file
|
|
@ -0,0 +1,719 @@
|
|||
object frmClothContractListLLSX: TfrmClothContractListLLSX
|
||||
Left = 25
|
||||
Top = 12
|
||||
Width = 1280
|
||||
Height = 705
|
||||
Caption = #32433#32447#32455#25104#21697#20986#24211
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1272
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
Visible = False
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21040#22383#30830#23450
|
||||
ImageIndex = 113
|
||||
Visible = False
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 402
|
||||
Top = 0
|
||||
Caption = #22383#24067#39046#26009#30830#23450
|
||||
ImageIndex = 114
|
||||
Visible = False
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1272
|
||||
Height = 54
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #30331#35760#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 161
|
||||
Top = 22
|
||||
Width = 18
|
||||
Height = 12
|
||||
Caption = '---'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 283
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 444
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 612
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #35268#26684
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 748
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21407#26448#26009#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 892
|
||||
Top = 22
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #22383#24067#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 18
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 179
|
||||
Top = 18
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Tag = 2
|
||||
Left = 337
|
||||
Top = 18
|
||||
Width = 81
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 2
|
||||
OnChange = ConNoChange
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object C_CodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 497
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 3
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object C_Spec: TEdit
|
||||
Tag = 2
|
||||
Left = 640
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 4
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object FactoryNoName: TEdit
|
||||
Tag = 2
|
||||
Left = 800
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 5
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object FirstName: TEdit
|
||||
Tag = 2
|
||||
Left = 932
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 6
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 370
|
||||
Width = 1272
|
||||
Height = 301
|
||||
Align = alBottom
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 2
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 2
|
||||
Top = 34
|
||||
Width = 1268
|
||||
Height = 265
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv3: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource3
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column65
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column9
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column4
|
||||
end
|
||||
item
|
||||
Kind = skAverage
|
||||
Column = v3Column5
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v3Column7: TcxGridDBColumn
|
||||
Caption = #22383#24067#21517#31216
|
||||
DataBinding.FieldName = 'PBName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v3Column7PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 92
|
||||
end
|
||||
object v3Column11: TcxGridDBColumn
|
||||
Caption = #22383#24067#35268#26684
|
||||
DataBinding.FieldName = 'PBSpec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v3Column12: TcxGridDBColumn
|
||||
Caption = #22383#24067#38376#24133'(cm)'
|
||||
DataBinding.FieldName = 'PBMF'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 94
|
||||
end
|
||||
object v3Column13: TcxGridDBColumn
|
||||
Caption = #22383#24067#20811#37325'(g/'#13217')'
|
||||
DataBinding.FieldName = 'PBKZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 113
|
||||
end
|
||||
object v3Column14: TcxGridDBColumn
|
||||
Caption = #26579#21378
|
||||
DataBinding.FieldName = 'ToName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v3Column14PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 88
|
||||
end
|
||||
object v3Column6: TcxGridDBColumn
|
||||
Caption = #20986#24211#26085#26399
|
||||
DataBinding.FieldName = 'TPDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 91
|
||||
end
|
||||
object v3Column3: TcxGridDBColumn
|
||||
Caption = #25237#22383#21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v3Column9: TcxGridDBColumn
|
||||
Caption = #20986#24211#21305#25968
|
||||
DataBinding.FieldName = 'SXPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 63
|
||||
end
|
||||
object v3Column4: TcxGridDBColumn
|
||||
Caption = #20986#24211#25968#37327
|
||||
DataBinding.FieldName = 'SXQty'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 85
|
||||
end
|
||||
object v3Column1: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'SXUnit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.ImmediatePost = True
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 65
|
||||
end
|
||||
object v3Column5: TcxGridDBColumn
|
||||
Caption = #25240#31639#31995#25968
|
||||
DataBinding.FieldName = 'ZSXS'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 85
|
||||
end
|
||||
object v3Column65: TcxGridDBColumn
|
||||
Caption = #32433#32447#25968#37327
|
||||
DataBinding.FieldName = 'TPQty'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v3Column10: TcxGridDBColumn
|
||||
Caption = #21152#24037#21333#20215
|
||||
DataBinding.FieldName = 'JGPrice'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 63
|
||||
end
|
||||
object v3Column8: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'TPNote'
|
||||
Width = 105
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv3
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1268
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 119
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButton8: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton11: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
Caption = #32455#25104#21697#20986#24211#30830#23450
|
||||
ImageIndex = 114
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 245
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #19968#38190#26367#25442
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 362
|
||||
Width = 1272
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
Control = Panel2
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 86
|
||||
Width = 1272
|
||||
Height = 276
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv1CellClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column8
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#32534#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 114
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 112
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 106
|
||||
end
|
||||
object v1FactoryNo1Name: TcxGridDBColumn
|
||||
Caption = #21407#26448#26009#21378
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 79
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #22383#24067#21378
|
||||
DataBinding.FieldName = 'FirstName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 84
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'DHUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 64
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #21040#36135#25968#37327
|
||||
DataBinding.FieldName = 'DHQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 68
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #32433#32447#25968#37327
|
||||
DataBinding.FieldName = 'ClothQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 68
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 752
|
||||
Top = 216
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 936
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1000
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1040
|
||||
Top = 8
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 1168
|
||||
Top = 8
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1096
|
||||
Top = 8
|
||||
end
|
||||
object ClientDataSet3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1112
|
||||
Top = 240
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ClientDataSet2
|
||||
Left = 880
|
||||
Top = 176
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = ClientDataSet3
|
||||
Left = 1112
|
||||
Top = 216
|
||||
end
|
||||
object ClientDataSet2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 920
|
||||
Top = 224
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 352
|
||||
Top = 192
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = Order_Main
|
||||
Left = 400
|
||||
Top = 192
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 1
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 416
|
||||
Top = 248
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid3
|
||||
PopupMenus = <>
|
||||
Left = 1128
|
||||
Top = 472
|
||||
end
|
||||
end
|
||||
1045
检验管理/U_ClothContractListLLSX.pas
Normal file
1045
检验管理/U_ClothContractListLLSX.pas
Normal file
File diff suppressed because it is too large
Load Diff
712
检验管理/U_ClothContractListLLSXQJG.dfm
Normal file
712
检验管理/U_ClothContractListLLSXQJG.dfm
Normal file
|
|
@ -0,0 +1,712 @@
|
|||
object frmClothContractListLLSXQJG: TfrmClothContractListLLSXQJG
|
||||
Left = 37
|
||||
Top = 2
|
||||
Width = 1280
|
||||
Height = 705
|
||||
Caption = #32433#32447#21069#21152#24037#20986#24211
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1272
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
Visible = False
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21040#22383#30830#23450
|
||||
ImageIndex = 113
|
||||
Visible = False
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 402
|
||||
Top = 0
|
||||
Caption = #22383#24067#39046#26009#30830#23450
|
||||
ImageIndex = 114
|
||||
Visible = False
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1272
|
||||
Height = 54
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #30331#35760#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 161
|
||||
Top = 22
|
||||
Width = 18
|
||||
Height = 12
|
||||
Caption = '---'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 283
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 444
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 612
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #35268#26684
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 748
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21407#26448#26009#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 892
|
||||
Top = 22
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #22383#24067#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 18
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 179
|
||||
Top = 18
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
TabOrder = 1
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Tag = 2
|
||||
Left = 337
|
||||
Top = 18
|
||||
Width = 81
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
OnChange = ConNoChange
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object C_CodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 497
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object C_Spec: TEdit
|
||||
Tag = 2
|
||||
Left = 640
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object FactoryNoName: TEdit
|
||||
Tag = 2
|
||||
Left = 800
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object FirstName: TEdit
|
||||
Tag = 2
|
||||
Left = 932
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 367
|
||||
Width = 1272
|
||||
Height = 301
|
||||
Align = alBottom
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 2
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 2
|
||||
Top = 34
|
||||
Width = 1268
|
||||
Height = 265
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv3: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource3
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column65
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column9
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column4
|
||||
end
|
||||
item
|
||||
Kind = skAverage
|
||||
Column = v3Column5
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v3Column7: TcxGridDBColumn
|
||||
Caption = #22383#24067#21517#31216
|
||||
DataBinding.FieldName = 'PBName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v3Column7PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 92
|
||||
end
|
||||
object v3Column11: TcxGridDBColumn
|
||||
Caption = #22383#24067#35268#26684
|
||||
DataBinding.FieldName = 'PBSpec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v3Column12: TcxGridDBColumn
|
||||
Caption = #22383#24067#38376#24133'(cm)'
|
||||
DataBinding.FieldName = 'PBMF'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 94
|
||||
end
|
||||
object v3Column13: TcxGridDBColumn
|
||||
Caption = #22383#24067#20811#37325'(g/'#13217')'
|
||||
DataBinding.FieldName = 'PBKZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 113
|
||||
end
|
||||
object v3Column14: TcxGridDBColumn
|
||||
Caption = #26579#21378
|
||||
DataBinding.FieldName = 'ToName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v3Column14PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 88
|
||||
end
|
||||
object v3Column6: TcxGridDBColumn
|
||||
Caption = #20986#24211#26085#26399
|
||||
DataBinding.FieldName = 'TPDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 91
|
||||
end
|
||||
object v3Column3: TcxGridDBColumn
|
||||
Caption = #25237#22383#21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v3Column9: TcxGridDBColumn
|
||||
Caption = #20986#24211#21305#25968
|
||||
DataBinding.FieldName = 'SXPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 63
|
||||
end
|
||||
object v3Column4: TcxGridDBColumn
|
||||
Caption = #20986#24211#25968#37327
|
||||
DataBinding.FieldName = 'SXQty'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 85
|
||||
end
|
||||
object v3Column1: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'SXUnit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.ImmediatePost = True
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 65
|
||||
end
|
||||
object v3Column5: TcxGridDBColumn
|
||||
Caption = #25240#31639#31995#25968
|
||||
DataBinding.FieldName = 'ZSXS'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 85
|
||||
end
|
||||
object v3Column65: TcxGridDBColumn
|
||||
Caption = #32433#32447#25968#37327
|
||||
DataBinding.FieldName = 'TPQty'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v3Column10: TcxGridDBColumn
|
||||
Caption = #21152#24037#21333#20215
|
||||
DataBinding.FieldName = 'JGPrice'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 63
|
||||
end
|
||||
object v3Column8: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'TPNote'
|
||||
Width = 105
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv3
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1268
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 119
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButton8: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton11: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
Caption = #32455#25104#21697#20986#24211#30830#23450
|
||||
ImageIndex = 114
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 245
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #19968#38190#26367#25442
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 359
|
||||
Width = 1272
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
Control = Panel2
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 86
|
||||
Width = 1272
|
||||
Height = 273
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv1CellClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column3
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column8
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#32534#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 114
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 112
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 106
|
||||
end
|
||||
object v1FactoryNo1Name: TcxGridDBColumn
|
||||
Caption = #21407#26448#26009#21378
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 79
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #22383#24067#21378
|
||||
DataBinding.FieldName = 'FirstName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 84
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'DHUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 64
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #21040#36135#25968#37327
|
||||
DataBinding.FieldName = 'DHQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 68
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #32433#32447#25968#37327
|
||||
DataBinding.FieldName = 'ClothQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 68
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 752
|
||||
Top = 216
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 936
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1000
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1040
|
||||
Top = 8
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 1168
|
||||
Top = 8
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1096
|
||||
Top = 8
|
||||
end
|
||||
object ClientDataSet3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1112
|
||||
Top = 240
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ClientDataSet2
|
||||
Left = 880
|
||||
Top = 176
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = ClientDataSet3
|
||||
Left = 1112
|
||||
Top = 216
|
||||
end
|
||||
object ClientDataSet2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 920
|
||||
Top = 224
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 352
|
||||
Top = 192
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = Order_Main
|
||||
Left = 400
|
||||
Top = 192
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 1
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 416
|
||||
Top = 248
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid3
|
||||
PopupMenus = <>
|
||||
Left = 1128
|
||||
Top = 472
|
||||
end
|
||||
end
|
||||
1030
检验管理/U_ClothContractListLLSXQJG.pas
Normal file
1030
检验管理/U_ClothContractListLLSXQJG.pas
Normal file
File diff suppressed because it is too large
Load Diff
436
检验管理/U_ClothContractListSX.dfm
Normal file
436
检验管理/U_ClothContractListSX.dfm
Normal file
|
|
@ -0,0 +1,436 @@
|
|||
object frmClothContractListSX: TfrmClothContractListSX
|
||||
Left = -41
|
||||
Top = 54
|
||||
Width = 1280
|
||||
Height = 705
|
||||
Caption = #32433#32447#37319#36141#21512#21516
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1272
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBAdd: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26032#22686
|
||||
ImageIndex = 3
|
||||
OnClick = TBAddClick
|
||||
end
|
||||
object TBEdit: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
ImageIndex = 54
|
||||
OnClick = TBEditClick
|
||||
end
|
||||
object TBDel: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
ImageIndex = 17
|
||||
OnClick = TBDelClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 378
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 441
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1272
|
||||
Height = 54
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #30331#35760#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 161
|
||||
Top = 22
|
||||
Width = 18
|
||||
Height = 12
|
||||
Caption = '---'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 283
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 444
|
||||
Top = 22
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 612
|
||||
Top = 22
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #35268#26684
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 18
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 179
|
||||
Top = 18
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
TabOrder = 1
|
||||
end
|
||||
object ConNoM: TEdit
|
||||
Tag = 2
|
||||
Left = 337
|
||||
Top = 18
|
||||
Width = 81
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
OnChange = ConNoMChange
|
||||
OnKeyPress = conPress
|
||||
end
|
||||
object C_CodeNameM: TEdit
|
||||
Tag = 2
|
||||
Left = 497
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = ConNoMChange
|
||||
end
|
||||
object C_Spec: TEdit
|
||||
Tag = 2
|
||||
Left = 640
|
||||
Top = 18
|
||||
Width = 83
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnChange = ConNoMChange
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 64
|
||||
Top = 112
|
||||
Width = 929
|
||||
Height = 377
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1PRTOrderQty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1PRTQty
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#32534#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 65
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 58
|
||||
end
|
||||
object v1DeliveryDate: TcxGridDBColumn
|
||||
Caption = #20132#36135#26085#26399
|
||||
DataBinding.FieldName = 'DeliveryDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #31614#35746#26085#26399
|
||||
DataBinding.FieldName = 'QDTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 70
|
||||
end
|
||||
object v1FactoryNo1Name: TcxGridDBColumn
|
||||
Caption = #20379#26041
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 60
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 66
|
||||
end
|
||||
object v1Qty1: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Hidden = True
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 46
|
||||
end
|
||||
object v1PRTOrderQty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'C_Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 58
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'C_Unit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 47
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 57
|
||||
end
|
||||
object v1PRTUnit: TcxGridDBColumn
|
||||
Caption = #24065#31181
|
||||
DataBinding.FieldName = 'PriceUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 61
|
||||
end
|
||||
object v1PRTQty: TcxGridDBColumn
|
||||
Caption = #24635#20215
|
||||
DataBinding.FieldName = 'Money'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 58
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'C_Note'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 68
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 1128
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 936
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1000
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1040
|
||||
Top = 8
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 1168
|
||||
Top = 8
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1096
|
||||
Top = 8
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 352
|
||||
Top = 192
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = CDS_PRT
|
||||
Left = 400
|
||||
Top = 192
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 1
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 416
|
||||
Top = 248
|
||||
end
|
||||
object CDS_PRT: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 880
|
||||
Top = 56
|
||||
end
|
||||
end
|
||||
375
检验管理/U_ClothContractListSX.pas
Normal file
375
检验管理/U_ClothContractListSX.pas
Normal file
|
|
@ -0,0 +1,375 @@
|
|||
unit U_ClothContractListSX;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
|
||||
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
|
||||
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
|
||||
cxTextEdit;
|
||||
|
||||
type
|
||||
TfrmClothContractListSX = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBAdd: TToolButton;
|
||||
TBEdit: TToolButton;
|
||||
TBDel: TToolButton;
|
||||
TBPrint: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
Label3: TLabel;
|
||||
ConNoM: TEdit;
|
||||
Label5: TLabel;
|
||||
C_CodeNameM: TEdit;
|
||||
TBExport: TToolButton;
|
||||
Order_Main: TClientDataSet;
|
||||
Label4: TLabel;
|
||||
C_Spec: TEdit;
|
||||
RM1: TRMGridReport;
|
||||
RMDBMain: TRMDBDataSet;
|
||||
RMXLSExport1: TRMXLSExport;
|
||||
CDS_PRT: TClientDataSet;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1OrderNo: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1DeliveryDate: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1FactoryNo1Name: TcxGridDBColumn;
|
||||
v1PRTSpec: TcxGridDBColumn;
|
||||
v1Qty1: TcxGridDBColumn;
|
||||
v1PRTOrderQty: TcxGridDBColumn;
|
||||
v1OrderUnit: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1PRTUnit: TcxGridDBColumn;
|
||||
v1PRTQty: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure TBEditClick(Sender: TObject);
|
||||
procedure TBDelClick(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TBPrintClick(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure TBAddClick(Sender: TObject);
|
||||
procedure ConNoMChange(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure conPress(Sender: TObject; var Key: Char);
|
||||
private
|
||||
FInt,PFInt:Integer;
|
||||
procedure InitGrid();
|
||||
procedure InitForm();
|
||||
function DelData():Boolean;
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmClothContractListSX: TfrmClothContractListSX;
|
||||
|
||||
implementation
|
||||
uses
|
||||
U_DataLink,U_ClothContractInPutSX,U_Fun,U_ProductOrderList,U_ZDYHelp;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmClothContractListSX.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmClothContractListSX:=nil;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7;
|
||||
//EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
WriteCxGrid('坯布合同订单列表SX',Tv1,'指示单管理');
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
|
||||
Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''
|
||||
+' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||
SInitCDSData20(ADOQueryMain,Order_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.InitForm();
|
||||
begin
|
||||
ReadCxGrid('坯布合同订单列表SX',Tv1,'指示单管理');
|
||||
if Trim(DParameters1)='1' then
|
||||
begin
|
||||
TBPrint.Visible:=False;
|
||||
v1Column1.Visible:=False;
|
||||
v1Column1.Hidden:=True;
|
||||
v1PRTUnit.Visible:=False;
|
||||
v1PRTUnit.Hidden:=True;
|
||||
v1PRTQty.Visible:=False;
|
||||
v1PRTQty.Hidden:=True;
|
||||
end else
|
||||
begin
|
||||
v1Column1.Visible:=True;
|
||||
v1Column1.Hidden:=False;
|
||||
v1PRTUnit.Visible:=True;
|
||||
v1PRTUnit.Hidden:=False;
|
||||
v1PRTQty.Visible:=True;
|
||||
v1PRTQty.Hidden:=False;
|
||||
TBPrint.Visible:=True;
|
||||
end;
|
||||
BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7;
|
||||
EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active=False then Exit;
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||
SInitCDSData20(ADOQueryMain,Order_Main);
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.TBEditClick(Sender: TObject);
|
||||
begin
|
||||
if Order_Main.IsEmpty then Exit;
|
||||
try
|
||||
frmClothContractInPutSX:=TfrmClothContractInPutSX.Create(Application);
|
||||
with frmClothContractInPutSX do
|
||||
begin
|
||||
PState:=1;
|
||||
FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
|
||||
FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString);
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmClothContractInPutSX.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.TBDelClick(Sender: TObject);
|
||||
begin
|
||||
if Order_Main.IsEmpty then Exit;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
|
||||
sql.Add(' where C.Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty=False then
|
||||
begin
|
||||
Application.MessageBox('已经产生到货数据不能删除!','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
if DelData() then
|
||||
begin
|
||||
//TBRafresh.Click;
|
||||
//TBFind.Click;
|
||||
Order_Main.Delete;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmClothContractListSX.DelData():Boolean;
|
||||
begin
|
||||
try
|
||||
Result:=false;
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete ContractSX_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from ContractSX_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete ContractSX_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
if Trim(Order_Main.fieldbyname('SubId').AsString)='' then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete ContractSX_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
Result:=True;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Result:=False;
|
||||
Application.MessageBox('数据删除异常！','提示',0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then Exit;
|
||||
TcxGridToExcel('坯布合同订单列表',cxGrid1);
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.TBPrintClick(Sender: TObject);
|
||||
var
|
||||
fPrintFile,FConNoM:string;
|
||||
|
||||
begin
|
||||
if Order_Main.IsEmpty then Exit;
|
||||
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\纱线订购合同.rmf' ;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
|
||||
Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''
|
||||
+' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
|
||||
Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString);
|
||||
Parameters.ParamByName('WSql').Value:='';
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
||||
FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString);
|
||||
//SDofilter(ADOQueryMain,' ConNoM='''+Trim(Order_Main.fieldbyname('ConNoM').AsString)+'''');
|
||||
//SCreateCDS20(ADOQueryMain,Order_Main);
|
||||
//SInitCDSData20(ADOQueryMain,Order_Main);
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
//RMVariables['begindate']:=begindate.DateTime;
|
||||
//RMVariables['enddate']:=enddate.DateTime;
|
||||
//RMVariables['printtime']:=Now;
|
||||
//RMVariables['printer']:=Trim(gUserName);
|
||||
RM1.LoadFromFile(fPrintFile);
|
||||
RM1.ShowReport;
|
||||
end else
|
||||
begin
|
||||
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\纱线订购合同.rmf'),'提示',0);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.TBAddClick(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmClothContractInPutSX:=TfrmClothContractInPutSX.Create(Application);
|
||||
with frmClothContractInPutSX do
|
||||
begin
|
||||
PState:=0;
|
||||
FMainId:='';
|
||||
if ShowModal=1 then
|
||||
begin
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmClothContractInPutSX.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active=False then Exit;
|
||||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||
SInitCDSData20(ADOQueryMain,Order_Main);
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.FormShow(Sender: TObject);
|
||||
begin
|
||||
InitForm();
|
||||
end;
|
||||
|
||||
procedure TfrmClothContractListSX.conPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
begin
|
||||
if Key=#13 then
|
||||
begin
|
||||
if Length(Trim(ConNoM.Text))<3 then Exit;
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered:=False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
|
||||
Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''';
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||
SInitCDSData20(ADOQueryMain,Order_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
827
检验管理/U_ClothContractListWJG.dfm
Normal file
827
检验管理/U_ClothContractListWJG.dfm
Normal file
|
|
@ -0,0 +1,827 @@
|
|||
object frmClothContractListWJG: TfrmClothContractListWJG
|
||||
Left = 107
|
||||
Top = 19
|
||||
Width = 1189
|
||||
Height = 705
|
||||
Caption = #22806#21152#24037
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object Label2: TLabel
|
||||
Left = 243
|
||||
Top = 70
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1181
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
Visible = False
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21040#22383#30830#23450
|
||||
ImageIndex = 113
|
||||
Visible = False
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 402
|
||||
Top = 0
|
||||
Caption = #22383#24067#39046#26009#30830#23450
|
||||
ImageIndex = 114
|
||||
Visible = False
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1181
|
||||
Height = 61
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 14
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #30331#35760#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 243
|
||||
Top = 14
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #21512#21516#32534#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 452
|
||||
Top = 13
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 452
|
||||
Top = 38
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #35268' '#26684
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 692
|
||||
Top = 14
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #22383#24067#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 692
|
||||
Top = 38
|
||||
Width = 40
|
||||
Height = 12
|
||||
Caption = #26579' '#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 243
|
||||
Top = 38
|
||||
Width = 21
|
||||
Height = 12
|
||||
Caption = 'PO#'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 10
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 75
|
||||
Top = 34
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 1
|
||||
end
|
||||
object ConNo: TEdit
|
||||
Tag = 2
|
||||
Left = 297
|
||||
Top = 10
|
||||
Width = 100
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 2
|
||||
OnChange = ConNoChange
|
||||
OnKeyPress = ConNoKeyPress
|
||||
end
|
||||
object C_CodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 509
|
||||
Top = 10
|
||||
Width = 100
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 3
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object C_Spec: TEdit
|
||||
Tag = 2
|
||||
Left = 508
|
||||
Top = 34
|
||||
Width = 100
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 4
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object FactoryNoName: TEdit
|
||||
Tag = 2
|
||||
Left = 736
|
||||
Top = 10
|
||||
Width = 100
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 5
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object FirstName: TEdit
|
||||
Tag = 2
|
||||
Left = 736
|
||||
Top = 34
|
||||
Width = 100
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 6
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
object khconNO: TEdit
|
||||
Tag = 2
|
||||
Left = 297
|
||||
Top = 33
|
||||
Width = 100
|
||||
Height = 20
|
||||
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||
TabOrder = 7
|
||||
OnChange = ConNoChange
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 370
|
||||
Width = 1181
|
||||
Height = 301
|
||||
Align = alBottom
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 2
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 2
|
||||
Top = 34
|
||||
Width = 1177
|
||||
Height = 265
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv3: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = DataSource3
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column2
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column3
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #35746#21333#32534#21495
|
||||
DataBinding.FieldName = 'OrderNo'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 98
|
||||
end
|
||||
object cxGridDBPRTColor: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 72
|
||||
end
|
||||
object v3Column15: TcxGridDBColumn
|
||||
Caption = #26412#21378#32568#21495
|
||||
DataBinding.FieldName = 'BCgangNO'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v3Column16: TcxGridDBColumn
|
||||
Caption = #26579#21378#32568#21495
|
||||
DataBinding.FieldName = 'RCGangNO'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v3Column13: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'SOrddefstr1'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 57
|
||||
end
|
||||
object v3Column14: TcxGridDBColumn
|
||||
Caption = #33457#22411#33457#21495
|
||||
DataBinding.FieldName = 'PRTHX'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 63
|
||||
end
|
||||
object v3Column6: TcxGridDBColumn
|
||||
Caption = #39046#26009#26085#26399
|
||||
DataBinding.FieldName = 'TPDate'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 81
|
||||
end
|
||||
object v3Column10: TcxGridDBColumn
|
||||
Caption = #21152#24037#21378
|
||||
DataBinding.FieldName = 'ToName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = v3Column10PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 58
|
||||
end
|
||||
object v3Column3: TcxGridDBColumn
|
||||
Caption = #25237#22383#21305#25968
|
||||
DataBinding.FieldName = 'Qty1'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v3Column9: TcxGridDBColumn
|
||||
Caption = #21305#25968#37327
|
||||
DataBinding.FieldName = 'TPPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 61
|
||||
end
|
||||
object v3Column2: TcxGridDBColumn
|
||||
Caption = #25968#37327'('#35745#21010')'
|
||||
DataBinding.FieldName = 'TPQty'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 97
|
||||
end
|
||||
object v3Column4: TcxGridDBColumn
|
||||
Caption = #25968#37327#20844#24046
|
||||
DataBinding.FieldName = 'Qty2'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 85
|
||||
end
|
||||
object v3Column5: TcxGridDBColumn
|
||||
Caption = #35745#21010#32553#29575'(%)'
|
||||
DataBinding.FieldName = 'Qty3'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = v3Column5PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 85
|
||||
end
|
||||
object v3Column1: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'TPUnit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Width = 68
|
||||
end
|
||||
object v3Column7: TcxGridDBColumn
|
||||
Caption = #39046#26009#20154
|
||||
DataBinding.FieldName = 'TPPerson'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 75
|
||||
end
|
||||
object v3Column11: TcxGridDBColumn
|
||||
Caption = #19978#36947#21152#24037#21333#20215
|
||||
DataBinding.FieldName = 'JGPrice'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 84
|
||||
end
|
||||
object v3Column12: TcxGridDBColumn
|
||||
Caption = #22806#21152#24037#31867#22411
|
||||
DataBinding.FieldName = 'HJGType'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
''
|
||||
#22238#20179#21518#21152#24037)
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 94
|
||||
end
|
||||
object v3Column8: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'TPNote'
|
||||
Width = 105
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv3
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1177
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 95
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButton8: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton11: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
Caption = #21518#21152#24037#30830#23450
|
||||
ImageIndex = 114
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 362
|
||||
Width = 1181
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
Control = Panel2
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 93
|
||||
Width = 1181
|
||||
Height = 269
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
OnCellClick = Tv1CellClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column9
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column10
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column12
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column13
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column11
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column1
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Inactive = DataLink_TradeManage.SHuangSe
|
||||
Styles.IncSearch = DataLink_TradeManage.SHuangSe
|
||||
Styles.Selection = DataLink_TradeManage.SHuangSe
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #35746#21333#21495
|
||||
DataBinding.FieldName = 'OrderNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 82
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'PRTColor'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 69
|
||||
end
|
||||
object v1OrderNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#32534#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 114
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = 'PO#'
|
||||
DataBinding.FieldName = 'khconNO'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 88
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 112
|
||||
end
|
||||
object v1FactoryNo1Name: TcxGridDBColumn
|
||||
Caption = #22383#24067#21378
|
||||
DataBinding.FieldName = 'FactoryNoName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 79
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #26579#21378
|
||||
DataBinding.FieldName = 'FirstName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 84
|
||||
end
|
||||
object v1PRTSpec: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 106
|
||||
end
|
||||
object v1PRTMF: TcxGridDBColumn
|
||||
Caption = #38376#24133'(cm)'
|
||||
DataBinding.FieldName = 'MFQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 63
|
||||
end
|
||||
object v1PRTKZ: TcxGridDBColumn
|
||||
Caption = #20811#37325'(g/'#13217')'
|
||||
DataBinding.FieldName = 'KZQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 72
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'TPUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 64
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #24207#27425
|
||||
DataBinding.FieldName = 'LLIdx'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 61
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #21322#25104#21697#21305#25968
|
||||
DataBinding.FieldName = 'TPPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 73
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #21322#25104#21697#25968#37327
|
||||
DataBinding.FieldName = 'BCPQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 72
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #20986#24211#21305#25968
|
||||
DataBinding.FieldName = 'HCPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column13: TcxGridDBColumn
|
||||
Caption = #20986#24211#25968#37327
|
||||
DataBinding.FieldName = 'HCQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 59
|
||||
end
|
||||
object v1Column11: TcxGridDBColumn
|
||||
Caption = #24211#23384#21305#25968
|
||||
DataBinding.FieldName = 'KCPS'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #24211#23384#25968#37327
|
||||
DataBinding.FieldName = 'KCQty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
Width = 65
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 752
|
||||
Top = 216
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 936
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1000
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1040
|
||||
Top = 8
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 1168
|
||||
Top = 8
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1096
|
||||
Top = 8
|
||||
end
|
||||
object ClientDataSet3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1112
|
||||
Top = 240
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ClientDataSet2
|
||||
Left = 880
|
||||
Top = 176
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = ClientDataSet3
|
||||
Left = 1112
|
||||
Top = 216
|
||||
end
|
||||
object ClientDataSet2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 920
|
||||
Top = 224
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDBMain
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 352
|
||||
Top = 192
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = Order_Main
|
||||
Left = 400
|
||||
Top = 192
|
||||
end
|
||||
object RMXLSExport1: TRMXLSExport
|
||||
ShowAfterExport = True
|
||||
ExportPrecision = 1
|
||||
PagesOfSheet = 1
|
||||
ExportImages = True
|
||||
ExportFrames = True
|
||||
ExportImageFormat = ifBMP
|
||||
JPEGQuality = 0
|
||||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 416
|
||||
Top = 248
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid3
|
||||
PopupMenus = <>
|
||||
Left = 1168
|
||||
Top = 464
|
||||
end
|
||||
end
|
||||
1207
检验管理/U_ClothContractListWJG.pas
Normal file
1207
检验管理/U_ClothContractListWJG.pas
Normal file
File diff suppressed because it is too large
Load Diff
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user