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

11.5cxz

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-06 09:08:40 +08:00
parent bc2f66ffd4
commit 4eeb6d249c
32 changed files with 921 additions and 553 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
object frmFHSQInPut: TfrmFHSQInPut object frmFHSQInPut: TfrmFHSQInPut
Left = 444 Left = 598
Top = 375 Top = 707
Width = 1499 Width = 1499
Height = 664 Height = 664
Caption = #21457#36135#30003#35831#24405#20837 Caption = #21457#36135#30003#35831#24405#20837
@ -419,6 +419,12 @@ object frmFHSQInPut: TfrmFHSQInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 106 Width = 106
end end
object Tv1FHPrice: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'FHPrice'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

1
云翔一码通/U_YMTFHSQInPut.pas
View File

@ -64,6 +64,7 @@ type
ToolButton3: TToolButton; ToolButton3: TToolButton;
Label3: TLabel; Label3: TLabel;
JGType: TEdit; JGType: TEdit;
Tv1FHPrice: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);

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

@ -1,6 +1,6 @@
object frmFHSQInPut2: TfrmFHSQInPut2 object frmFHSQInPut2: TfrmFHSQInPut2
Left = 766 Left = 328
Top = 507 Top = 610
Width = 1499 Width = 1499
Height = 664 Height = 664
Caption = #21457#36135#30003#35831#24405#20837 Caption = #21457#36135#30003#35831#24405#20837

103
云翔一码通/U_YMTFHSQList.dfm
View File

@ -1,6 +1,6 @@
object frmYMTFHSQList: TfrmYMTFHSQList object frmYMTFHSQList: TfrmYMTFHSQList
Left = 499 Left = 566
Top = 184 Top = 427
Width = 1308 Width = 1308
Height = 679 Height = 679
Caption = #21457#36135#30003#35831 Caption = #21457#36135#30003#35831
@ -21,6 +21,7 @@ object frmYMTFHSQList: TfrmYMTFHSQList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1300 Width = 1300
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 115 ButtonWidth = 115
@ -92,46 +93,86 @@ object frmYMTFHSQList: TfrmYMTFHSQList
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 3 ImageIndex = 3
Wrap = True
OnClick = TBDelClick OnClick = TBDelClick
end end
object tchk: TToolButton object tchk: TToolButton
Left = 593 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
ImageIndex = 75 ImageIndex = 75
OnClick = tchkClick OnClick = tchkClick
end end
object Tnochk: TToolButton object Tnochk: TToolButton
Left = 672 Left = 79
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
ImageIndex = 52 ImageIndex = 52
OnClick = TnochkClick OnClick = TnochkClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 791 Left = 198
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 4 ImageIndex = 4
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object PrintMD: TToolButton
Left = 277
Top = 30
Caption = #25171#21360#30721#21333
ImageIndex = 4
OnClick = PrintMDClick
end
object Panel4: TPanel
Left = 392
Top = 30
Width = 249
Height = 30
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label12: TLabel
Left = 8
Top = 7
Width = 80
Height = 19
Caption = #30721#21333#21517#31216
end
object MDName: TComboBox
Left = 94
Top = 2
Width = 145
Height = 27
ItemHeight = 19
TabOrder = 0
end
end
object TBClose: TToolButton object TBClose: TToolButton
Left = 870 Left = 641
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 21 ImageIndex = 21
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object OutStock: TToolButton
Left = 720
Top = 30
Caption = #26680#38144#20986#24211
ImageIndex = 8
OnClick = OutStockClick
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 108 Top = 119
Width = 1300 Width = 1300
Height = 282 Height = 271
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -379,9 +420,9 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 62
Width = 1300 Width = 1300
Height = 76 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -401,7 +442,7 @@ object frmYMTFHSQList: TfrmYMTFHSQList
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 274 Left = 592
Top = 15 Top = 15
Width = 80 Width = 80
Height = 19 Height = 19
@ -414,8 +455,8 @@ object frmYMTFHSQList: TfrmYMTFHSQList
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 292 Left = 418
Top = 45 Top = 15
Width = 60 Width = 60
Height = 19 Height = 19
Caption = #19994#21153#21592 Caption = #19994#21153#21592
@ -427,8 +468,8 @@ object frmYMTFHSQList: TfrmYMTFHSQList
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 85 Left = 251
Top = 45 Top = 15
Width = 11 Width = 11
Height = 19 Height = 19
Caption = '-' Caption = '-'
@ -440,7 +481,7 @@ object frmYMTFHSQList: TfrmYMTFHSQList
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 469 Left = 786
Top = 15 Top = 15
Width = 80 Width = 80
Height = 19 Height = 19
@ -453,9 +494,9 @@ object frmYMTFHSQList: TfrmYMTFHSQList
ParentFont = False ParentFont = False
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 101 Left = 108
Top = 12 Top = 11
Width = 125 Width = 135
Height = 27 Height = 27
Date = 40675.464742650460000000 Date = 40675.464742650460000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
@ -471,9 +512,9 @@ object frmYMTFHSQList: TfrmYMTFHSQList
OnChange = BegDateChange OnChange = BegDateChange
end end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 101 Left = 270
Top = 42 Top = 11
Width = 125 Width = 135
Height = 27 Height = 27
Date = 40675.464761099540000000 Date = 40675.464761099540000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
@ -490,7 +531,7 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
object SHDanWei: TEdit object SHDanWei: TEdit
Tag = 2 Tag = 2
Left = 363 Left = 675
Top = 11 Top = 11
Width = 98 Width = 98
Height = 27 Height = 27
@ -506,8 +547,8 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
object Salesman: TEdit object Salesman: TEdit
Tag = 2 Tag = 2
Left = 363 Left = 481
Top = 40 Top = 11
Width = 98 Width = 98
Height = 27 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -522,8 +563,8 @@ object frmYMTFHSQList: TfrmYMTFHSQList
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Tag = 7 Tag = 7
Left = 555 Left = 869
Top = 10 Top = 11
Width = 101 Width = 101
Height = 27 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET

145
云翔一码通/U_YMTFHSQList.pas
View File

@ -24,7 +24,7 @@ uses
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue; dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, BtnEdit;
type type
TfrmYMTFHSQList = class(TForm) TfrmYMTFHSQList = class(TForm)
@ -112,6 +112,11 @@ type
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
TbAdd2: TToolButton; TbAdd2: TToolButton;
Tv2Column1: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn;
OutStock: TToolButton;
PrintMD: TToolButton;
Panel4: TPanel;
Label12: TLabel;
MDName: TComboBox;
//RMllPDFExport1: TRMllPDFExport; //RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -136,12 +141,16 @@ type
procedure Button3Click(Sender: TObject); procedure Button3Click(Sender: TObject);
procedure btnChkClick(Sender: TObject); procedure btnChkClick(Sender: TObject);
procedure TbAdd2Click(Sender: TObject); procedure TbAdd2Click(Sender: TObject);
procedure OutStockClick(Sender: TObject);
procedure PrintMDClick(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure InitSubGrid(); procedure InitSubGrid();
procedure InitForm(); procedure InitForm();
function DelData(): Boolean; function DelData(): Boolean;
procedure SendMessage(Mfsid: string); procedure SendMessage(Mfsid: string);
function BatchStockOut(FSID: string; UserID: string): Boolean;
{ Private declarations } { Private declarations }
public public
FFInt: Integer; FFInt: Integer;
@ -155,9 +164,83 @@ var
implementation implementation
uses uses
U_DataLink, U_YMTFHSQInPut, U_Fun, U_ZDYHelp, U_LabelPrintFun, U_YMTFHSQInPut2; U_DataLink, U_YMTFHSQInPut, U_Fun, U_ZDYHelp, U_LabelPrintFun, U_YMTFHSQInPut2,
superobject;
{$R *.dfm} {$R *.dfm}
function TfrmYMTFHSQList.BatchStockOut(FSID: string; UserID: string): Boolean;
var
IdHttp: TIdHTTP;
Url, ResponseStr: string;
ResponseStream: TStringStream;
vJson1: ISuperObject;
begin
Result := False;
// 参数验证
if Trim(FSID) = '' then
begin
ShowMessage('MXID不能为空');
Exit;
end;
if Trim(UserID) = '' then
begin
ShowMessage('用户ID不能为空');
Exit;
end;
IdHttp := TIdHTTP.Create(nil);
ResponseStream := TStringStream.Create('');
try
try
// GET请求 - 不需要设置ContentType
// 参数直接放在URL中
// 接口URL（参数编码在URL中）
Url := 'http://www.rightsoft.top/YunXiang/api/YMTCK/batchStockOut?' + 'FSID=' + Trim(FSID) + '&userid=' + Trim(UserID);
// ShowMessage(Url);
// 发送GET请求
IdHttp.Get(Url, ResponseStream);
// 获取响应内容
ResponseStr := ResponseStream.DataString;
// 解析JSON响应
vJson1 := SO(ResponseStr);
// ShowMessage(ResponseStr);
if (vJson1.O['code'] <> nil) then
begin
if (vJson1.O['code'].AsInteger = 10000) then
begin
Result := True;
ShowMessage('自动出库成功！');
end
else
begin
// 获取错误信息
if vJson1.O['message'] <> nil then
ShowMessage('自动出库失败: ' + vJson1.O['message'].AsString)
else
ShowMessage('自动出库失败，未知错误');
end;
end
else
begin
ShowMessage('接口返回格式错误');
end;
except
on e: Exception do
begin
ShowMessage('网络请求异常: ' + e.Message);
end;
end;
finally
IdHttp.Free;
ResponseStream.Free;
end;
end;
procedure TfrmYMTFHSQList.SendMessage(Mfsid: string); procedure TfrmYMTFHSQList.SendMessage(Mfsid: string);
begin begin
@ -311,11 +394,14 @@ begin
begin begin
TBAdd.Visible := True; TBAdd.Visible := True;
TBAdd2.Visible := False; TBAdd2.Visible := False;
OutStock.Visible := False;
end end
else if Trim(Self.Caption) = '加工发货登记' then else if Trim(Self.Caption) = '加工发货登记' then
begin begin
TBAdd2.Visible := True; TBAdd2.Visible := True;
TBAdd.Visible := False; TBAdd.Visible := False;
PrintMD.Visible := False;
Panel4.Visible := False;
end; end;
end; end;
@ -475,14 +561,14 @@ begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
msql := ' select A.*,B.* from YMT_FHSQ_Main A inner join YMT_FHSQ_Sub B on A.FSId=B.FSId where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + ''''; msql := ' select A.*,B.* from YMT_FHSQ_Main A inner join YMT_FHSQ_Sub B on A.FSId=B.FSId where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''';
if Trim(Self.Caption) = '销售发货申请' then if Trim(Self.Caption) = '销售发货申请' then
begin begin
MPrintJson := '{ "LBName": "销售发货申请单","QrCodeField": "ssid","DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '","IsPreview": true,"printerIndex": 0,"ExportFileType": "", "PrtArgs": [ {"SqlStr": "' + msql + '" }] }'; MPrintJson := '{ "LBName": "销售发货申请单","QrCodeField": "ssid","DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '","IsPreview": true,"printerIndex": 0,"ExportFileType": "", "PrtArgs": [ {"SqlStr": "' + msql + '" }] }';
end end
else if Trim(Self.Caption) = '加工发货登记' then else if Trim(Self.Caption) = '加工发货登记' then
begin begin
MPrintJson := '{ "LBName": "¼Ó¹¤·¢»õÉêÇëµ¥","QrCodeField": "ssid","DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '","IsPreview": true,"printerIndex": 0,"ExportFileType": "", "PrtArgs": [ {"SqlStr": "' + msql + '" }] }'; MPrintJson := '{ "LBName": "加工发货申请单","QrCodeField": "ssid","DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '","IsPreview": true,"printerIndex": 0,"ExportFileType": "", "PrtArgs": [ {"SqlStr": "' + msql + '" }] }';
end; end;
FunPrint(Application, PChar(MPrintJson)); FunPrint(Application, PChar(MPrintJson));
@ -754,5 +840,56 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmYMTFHSQList.OutStockClick(Sender: TObject);
var
MFSID: string;
Result: Integer;
begin
if Order_Main.IsEmpty then
Exit;
MFSID := Order_Main.fieldbyname('FSID').AsString;
if MFSID <> '' then
begin
// 显示带有确定和取消按钮的消息框
Result := Application.MessageBox(PChar('是否要核销出库申请单号为【' + Trim(MFSID) + '】的加工出库的全部数据'), '提示', MB_OKCANCEL + MB_ICONQUESTION // 确定取消按钮 + 问号图标
);
// 如果用户点击了取消按钮
if Result = IDCANCEL then
Exit; // 退出当前过程
if not BatchStockOut(MFSID, Trim(DCode)) then
begin
Application.MessageBox('核销出库失败!', '提示', 0);
Exit;
end;
end;
end;
procedure TfrmYMTFHSQList.PrintMDClick(Sender: TObject);
var
fPrintFile, FCKNO, msql, MPrintJson: string;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('ssel', True, []) = false then
begin
application.MessageBox('没有选择数据', '提示');
exit;
end;
if Trim(MDName.Text) = '' then
begin
Application.MessageBox('码单名称不能为空!', '提示', 0);
Exit;
end;
msql := 'SELECT A.* FROM YMT_CK_CR A LEFT JOIN YMT_FHSQ_Sub S ON A.ToSSID=S.SSId LEFT JOIN YMT_FHSQ_Main M ON M.FSId=S.FSId WHERE A.CRType=''销售出库'' AND M.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''';
MPrintJson := '{ "LBName": "' + Trim(MDName.Text) + '","QrCodeField": "ssid","DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '","IsPreview": true,"printerIndex": 0,"ExportFileType": "", "PrtArgs": [ {"SqlStr": "' + msql + '" }] }';
FunPrint(Application, PChar(MPrintJson));
end;
end. end.

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

@ -656,9 +656,6 @@ object frmYMTRKInPut: TfrmYMTRKInPut
Column = TvMXMXQty Column = TvMXMXQty
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item item
Kind = skSum Kind = skSum
Column = TvMXMXQty Column = TvMXMXQty

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

@ -23,7 +23,7 @@ uses
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter, cxNavigator, cxCurrencyEdit, IdBaseComponent, IdComponent, dxSkinscxPCPainter, cxNavigator, cxCurrencyEdit, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP; IdTCPConnection, IdTCPClient, IdHTTP, StrUtils;
type type
TfrmYMTRKInPut = class(TForm) TfrmYMTRKInPut = class(TForm)
@ -151,7 +151,7 @@ type
public public
{ Public declarations } { Public declarations }
FBCId: string; FBCId: string;
PState, CopyInt: Integer; PState, CopyFlag: Integer;
FSelectedSPIDs: TStringList; // 用于保存所有选中的SPID FSelectedSPIDs: TStringList; // 用于保存所有选中的SPID
end; end;
@ -353,7 +353,7 @@ begin
FieldByName('YFID').Value := Trim(YFID); FieldByName('YFID').Value := Trim(YFID);
FieldByName('YFTypeId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString); FieldByName('YFTypeId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString);
FieldByName('CRID').Value := StrToInt(CRID); FieldByName('CRID').Value := StrToInt(CRID);
FieldByName('YFName').Value := '采购费'; FieldByName('YFName').Value := Trim(CDS_Sub.fieldbyname('CRType').AsString);
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').Value := Trim(DName);
FieldByName('CRType').Value := '应付款登记'; FieldByName('CRType').Value := '应付款登记';
FieldByName('CRFlag').Value := '应付付'; FieldByName('CRFlag').Value := '应付付';
@ -494,8 +494,10 @@ end;
procedure TfrmYMTRKInPut.InitGrid(); procedure TfrmYMTRKInPut.InitGrid();
var var
SPIDList: string; SPIDList: string;
MMaxno: string;
i: Integer; i: Integer;
begin begin
// 如果有多个选中的SPID，构建IN查询条件 // 如果有多个选中的SPID，构建IN查询条件
if Assigned(FSelectedSPIDs) and (FSelectedSPIDs.Count > 0) then if Assigned(FSelectedSPIDs) and (FSelectedSPIDs.Count > 0) then
begin begin
@ -535,6 +537,26 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_Sub); SCreateCDS20(ADOQueryTemp, CDS_Sub);
SInitCDSData20(ADOQueryTemp, CDS_Sub); SInitCDSData20(ADOQueryTemp, CDS_Sub);
if CopyFlag = 99 then
begin
if GetLSNo(ADOQueryCmd, MMaxno, 'DR', 'YMT_CK_CR', 3, 1) = False then
begin
Application.MessageBox('取待检布入库编号失败!', '提示', 0);
Exit;
end;
with CDS_Sub do
begin
Edit;
FieldByName('PiQty').Value := '0';
FieldByName('Qty').Value := '0';
FieldByName('KGQty').Value := '0';
FieldByName('FactMQty').Value := '0';
FieldByName('Money').Value := '0';
FieldByName('SPID').Value := Trim(MMaxno);
post;
end;
end;
if CDS_Sub.IsEmpty then if CDS_Sub.IsEmpty then
Exit; Exit;
@ -640,6 +662,7 @@ begin
Application.MessageBox('取待检布入库编号失败!', '提示', 0); Application.MessageBox('取待检布入库编号失败!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.IsEmpty = False then if CDS_Sub.IsEmpty = False then
begin begin
CopyAddRowCDS(CDS_Sub); CopyAddRowCDS(CDS_Sub);
@ -759,33 +782,10 @@ begin
end; end;
//////////生成应付数据 //////////生成应付数据
YFData(); //该函数的意思是前面的部分在后面的数组中的话，返回下标
if AnsiIndexStr(Trim(CDS_Sub.fieldbyname('CRType').AsString), ['坯布入库', '外加工入库', '回修入库', '采购入库', '客户退货']) >= 0 then
YFData();
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('Update YMT_CK_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from YMT_CK_MX A where A.SPID=YMT_CK_CR.SPID)');
// sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from YMT_CK_MX A where A.SPID=YMT_CK_CR.SPID)');
// sql.Add(' where SPID=''' + Trim(Maxno) + '''');
// ExecSQL;
// end;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from YMT_CK_CR where SPID=''' + Trim(Maxno) + '''');
// Open;
// end;
//
// if ADOQueryTemp.FieldByName('MXKCQty').Value < 0 then
// begin
// CDS_Sub.DisableControls;
// ADOQueryCmd.Connection.RollbackTrans;
// Application.MessageBox('入库数小于出库数不能保存!', '提示', 0);
// Exit;
// end;
/////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////
/// 保存子表 /// 保存子表
with CDS_MX do with CDS_MX do
@ -1384,7 +1384,7 @@ begin
if ReadMQty.Checked = False then if ReadMQty.Checked = False then
FieldByName('FactMQty').Value := FieldByName('Qty').Asfloat * FieldByName('Yardwand').Asfloat / 100 FieldByName('FactMQty').Value := FieldByName('Qty').Asfloat * FieldByName('Yardwand').Asfloat / 100
else else
FieldByName('FactMQty').Value := TvMX.DataController.Summary.FooterSummaryValues[1].asFloat * FieldByName('Yardwand').Asfloat / 100; FieldByName('FactMQty').Value := TvMX.DataController.Summary.FooterSummaryValues[0] * FieldByName('Yardwand').Asfloat / 100;
end end
else else
begin begin
@ -1539,7 +1539,7 @@ begin
sql.Add('delete YMT_CK_MX where MXID=' + quotedstr(Trim(CDS_MX.FieldByName('MXID').AsString))); sql.Add('delete YMT_CK_MX where MXID=' + quotedstr(Trim(CDS_MX.FieldByName('MXID').AsString)));
ExecSQL; ExecSQL;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -1622,7 +1622,8 @@ begin
if ReadMQty.Checked = False then if ReadMQty.Checked = False then
CDS_Sub.FieldByName('FactMQty').Value := CDS_Sub.FieldByName('Qty').Asfloat * CDS_Sub.FieldByName('Yardwand').Asfloat / 100 CDS_Sub.FieldByName('FactMQty').Value := CDS_Sub.FieldByName('Qty').Asfloat * CDS_Sub.FieldByName('Yardwand').Asfloat / 100
else else
CDS_Sub.FieldByName('FactMQty').Value := TvMX.DataController.Summary.FooterSummaryValues[1].asFloat * CDS_Sub.FieldByName('Yardwand').Asfloat / 100; // ShowMessage(TvMX.DataController.Summary.FooterSummaryValues[0] * CDS_Sub.FieldByName('Yardwand').Asfloat / 100);
CDS_Sub.FieldByName('FactMQty').Value := TvMX.DataController.Summary.FooterSummaryValues[0] * CDS_Sub.FieldByName('Yardwand').Asfloat / 100;
CDS_Sub.Post; CDS_Sub.Post;
end; end;

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

@ -1,6 +1,6 @@
object frmYMTRKList: TfrmYMTRKList object frmYMTRKList: TfrmYMTRKList
Left = 695 Left = 921
Top = 340 Top = 456
Width = 1470 Width = 1470
Height = 823 Height = 823
Caption = #20837#24211#30331#35760 Caption = #20837#24211#30331#35760
@ -70,16 +70,24 @@ object frmYMTRKList: TfrmYMTRKList
ImageIndex = 11 ImageIndex = 11
OnClick = TBEditClick OnClick = TBEditClick
end end
object TbEditKW: TToolButton object ToolButton3: TToolButton
Left = 252 Left = 252
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22797#21046
ImageIndex = 25
OnClick = ToolButton3Click
end
object TbEditKW: TToolButton
Left = 315
Top = 0
AutoSize = True
Caption = #25209#37327#20462#25913#24211#20301 Caption = #25209#37327#20462#25913#24211#20301
ImageIndex = 11 ImageIndex = 11
OnClick = TbEditKWClick OnClick = TbEditKWClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 363 Left = 426
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -87,7 +95,7 @@ object frmYMTRKList: TfrmYMTRKList
OnClick = TBDelClick OnClick = TBDelClick
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 426 Left = 489
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -95,7 +103,7 @@ object frmYMTRKList: TfrmYMTRKList
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 489 Left = 552
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -103,7 +111,7 @@ object frmYMTRKList: TfrmYMTRKList
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 552 Left = 615
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #39044#35272#25171#21360 Caption = #39044#35272#25171#21360
@ -111,7 +119,7 @@ object frmYMTRKList: TfrmYMTRKList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 639 Left = 702
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #24555#36895#25171#21360 Caption = #24555#36895#25171#21360

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

@ -153,6 +153,7 @@ type
Label16: TLabel; Label16: TLabel;
MXID: TEdit; MXID: TEdit;
ADOQueryMX: TADOQuery; ADOQueryMX: TADOQuery;
ToolButton3: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -185,6 +186,7 @@ type
procedure SureClick(Sender: TObject); procedure SureClick(Sender: TObject);
procedure QuitClick(Sender: TObject); procedure QuitClick(Sender: TObject);
procedure MXIDKeyPress(Sender: TObject; var Key: Char); procedure MXIDKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton3Click(Sender: TObject);
private private
canshu1, canshu2: string; canshu1, canshu2: string;
procedure InitGrid(); procedure InitGrid();
@ -999,5 +1001,38 @@ begin
end; end;
procedure TfrmYMTRKList.ToolButton3Click(Sender: TObject);
var
OldSPID: string; // 用于保存当前行的SPID
begin
if CDS_Main.IsEmpty then
Exit;
try
OldSPID := Trim(CDS_Main.fieldbyname('SPID').AsString);
frmYMTRKInPut := TfrmYMTRKInPut.Create(Application);
with frmYMTRKInPut do
begin
PState := 1;
CopyFlag := 99;
FBCId := OldSPID;
if ShowModal = 1 then
begin
end;
end;
InitGrid();
// 重新定位到原来的行
if not CDS_Main.Locate('SPID', OldSPID, []) then
begin
// 如果找不到原记录（如被删除），则定位到第一条记录
if not CDS_Main.IsEmpty then
CDS_Main.First;
end;
finally
frmYMTRKInPut.Free;
end;
end;
end. end.

2
云翔生产管理(MYSC.dll)/U_KuWeiInPutCeng.dfm
View File

@ -230,7 +230,7 @@ object frmKuWeiInPutCeng: TfrmKuWeiInPutCeng
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 8 Properties.Style = 8
ClientRectBottom = 118 ClientRectBottom = 118

426
云翔生产管理(MYSC.dll)/U_KuWeiInPutCeng.pas
View File

@ -4,30 +4,28 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit,jpeg, cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC, IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox, cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,IniFiles, Menus, IniFiles, Menus, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter, dxSkinXmas2008Blue, dxSkinscxPCPainter, dxBarBuiltInMenu, cxNavigator;
dxBarBuiltInMenu, cxNavigator;
type type
TfrmKuWeiInPutCeng = class(TForm) TfrmKuWeiInPutCeng = class(TForm)
@ -99,22 +97,24 @@ type
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
private private
procedure InitData(); procedure InitData();
function SaveData():Boolean; function SaveData(): Boolean;
function SaveDataDuoCeng():Boolean; function SaveDataDuoCeng(): Boolean;
procedure PrtData(KWID:String); procedure PrtData(KWID: string);
{ Private declarations } { Private declarations }
public public
canshu1:String; canshu1: string;
PState:Integer; PState: Integer;
FMainId:String; FMainId: string;
{ Public declarations } { Public declarations }
end; end;
var var
frmKuWeiInPutCeng: TfrmKuWeiInPutCeng; frmKuWeiInPutCeng: TfrmKuWeiInPutCeng;
implementation implementation
uses uses
U_DataLink,U_ZDYHelp,U_RTFun; U_DataLink, U_ZDYHelp, U_RTFun;
{$R *.dfm} {$R *.dfm}
@ -131,35 +131,34 @@ begin
sql.Clear; sql.Clear;
sql.Add(' select * '); sql.Add(' select * ');
sql.Add(' from KuWei '); sql.Add(' from KuWei ');
if Trim(QuYu.Text)='' then if Trim(QuYu.Text) = '' then
begin begin
sql.Add(' where 1=2'); sql.Add(' where 1=2');
end else end
else
begin begin
sql.Add(' where isnull(QuYu,'''')='''+Trim(QuYu.Text)+''''); sql.Add(' where isnull(QuYu,'''')=''' + Trim(QuYu.Text) + '''');
end; end;
if Trim(FenQu.Text)<>'' then if Trim(FenQu.Text) <> '' then
begin begin
sql.Add(' and isnull(FenQu,'''')='''+Trim(FenQu.Text)+''''); sql.Add(' and isnull(FenQu,'''')=''' + Trim(FenQu.Text) + '''');
end; end;
sql.Add(' and Valid=''Y'' '); sql.Add(' and Valid=''Y'' ');
Open; Open;
end; end;
SCreateCDS20(ADOQuery1,ClientDataSet1); SCreateCDS20(ADOQuery1, ClientDataSet1);
SInitCDSData20(ADOQuery1,ClientDataSet1); SInitCDSData20(ADOQuery1, ClientDataSet1);
end; end;
procedure TfrmKuWeiInPutCeng.FormShow(Sender: TObject); procedure TfrmKuWeiInPutCeng.FormShow(Sender: TObject);
begin begin
InitData(); InitData();
end; end;
function TfrmKuWeiInPutCeng.SaveData():Boolean; function TfrmKuWeiInPutCeng.SaveData(): Boolean;
var var
maxno,PaiStr:String; maxno, PaiStr: string;
i:Integer; i: Integer;
begin begin
with ADOTemp do with ADOTemp do
begin begin
@ -168,44 +167,45 @@ begin
sql.Add('select KWID from KuWei where 1=2'); sql.Add('select KWID from KuWei where 1=2');
open; open;
end; end;
SCreateCDS20(ADOTemp,ClientDataSet2); SCreateCDS20(ADOTemp, ClientDataSet2);
SInitCDSData20(ADOTemp,ClientDataSet2); SInitCDSData20(ADOTemp, ClientDataSet2);
Result:=False; Result := False;
try try
ADOCmd.Connection.BeginTrans; ADOCmd.Connection.BeginTrans;
///保存主表 ///保存主表
for i:=1 to StrToInt(CengQty.Text) do for i := 1 to StrToInt(CengQty.Text) do
begin begin
if GetLSNoHZ(ADOCmd,maxno,'KW','KuWei',4,0,0)=False then if GetLSNoHZ(ADOCmd, maxno, 'KW', 'KuWei', 4, 0, 0) = False then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取库位最大号失败!','提示',0); Application.MessageBox('取库位最大号失败!', '提示', 0);
Exit; Exit;
end; end;
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
SQL.Add('select * from KuWei where KWId='''+Trim(maxno)+''''); SQL.Add('select * from KuWei where KWId=''' + Trim(maxno) + '''');
Open; Open;
end; end;
with ADOCmd do with ADOCmd do
begin begin
Append; Append;
FieldByName('KWId').Value:=Trim(maxno); FieldByName('KWId').Value := Trim(maxno);
FieldByName('KWType').Value:='GG';//挂钩 FieldByName('KWType').Value := 'GG'; //挂钩
FieldByName('Filler').Value:=Trim(DName); FieldByName('Filler').Value := Trim(DName);
FieldByName('FillerCode').Value:=Trim(DCode); FieldByName('FillerCode').Value := Trim(DCode);
FieldByName('QuYu').Value:=Trim(QuYu.Text); FieldByName('QuYu').Value := Trim(QuYu.Text);
FieldByName('FenQu').Value:=Trim(FenQu.Text); FieldByName('FenQu').Value := Trim(FenQu.Text);
if StrToInt(Pai.Text)<10 then if StrToInt(Pai.Text) < 10 then
begin begin
FieldByName('Pai').Value:='0'+Trim(IntToStr(StrToInt(Pai.Text))); FieldByName('Pai').Value := '0' + Trim(IntToStr(StrToInt(Pai.Text)));
end else end
else
begin begin
FieldByName('Pai').Value:=Trim(Pai.Text); FieldByName('Pai').Value := Trim(Pai.Text);
end; end;
FieldByName('Valid').Value:='Y'; FieldByName('Valid').Value := 'Y';
Post; Post;
end; end;
with ADOCmd do with ADOCmd do
@ -213,18 +213,19 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update KuWei Set KWNoInt=isnull((select max(KWNoInt) from KuWei '); sql.Add('Update KuWei Set KWNoInt=isnull((select max(KWNoInt) from KuWei ');
sql.Add(' where KWType=''GG'' and isnull(QuYu,'''')='''+Trim(QuYu.Text)+''''); sql.Add(' where KWType=''GG'' and isnull(QuYu,'''')=''' + Trim(QuYu.Text) + '''');
sql.Add(' and isnull(FenQu,'''')='''+Trim(FenQu.Text)+''''); sql.Add(' and isnull(FenQu,'''')=''' + Trim(FenQu.Text) + '''');
if StrToInt(Pai.Text)<10 then if StrToInt(Pai.Text) < 10 then
begin begin
PaiStr:='0'+Trim(IntToStr(strtoint(Pai.Text))); PaiStr := '0' + Trim(IntToStr(strtoint(Pai.Text)));
end else end
else
begin begin
PaiStr:=Trim(Pai.Text) PaiStr := Trim(Pai.Text)
end; end;
sql.Add(' and isnull(Pai,'''')='''+PaiStr+''''); sql.Add(' and isnull(Pai,'''')=''' + PaiStr + '''');
sql.Add(' and Valid=''Y''),0)+1'); sql.Add(' and Valid=''Y''),0)+1');
sql.Add(' where KWID='''+Trim(maxno)+''''); sql.Add(' where KWID=''' + Trim(maxno) + '''');
ExecSQL; ExecSQL;
end; end;
with ADOCmd do with ADOCmd do
@ -232,7 +233,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update KuWei Set KWNo=''0''+RTrim(Cast(KWNoInt As varchar(10))) '); sql.Add('Update KuWei Set KWNo=''0''+RTrim(Cast(KWNoInt As varchar(10))) ');
sql.Add(' where KWID='''+Trim(maxno)+''' and KWNoInt<10'); sql.Add(' where KWID=''' + Trim(maxno) + ''' and KWNoInt<10');
ExecSQL; ExecSQL;
end; end;
with ADOCmd do with ADOCmd do
@ -240,7 +241,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update KuWei Set KWNo=RTrim(Cast(KWNoInt As varchar(10))) '); sql.Add('Update KuWei Set KWNo=RTrim(Cast(KWNoInt As varchar(10))) ');
sql.Add(' where KWID='''+Trim(maxno)+''' and KWNoInt>9'); sql.Add(' where KWID=''' + Trim(maxno) + ''' and KWNoInt>9');
ExecSQL; ExecSQL;
end; end;
with ADOCmd do with ADOCmd do
@ -248,7 +249,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update KuWei Set Ceng=KWNo '); sql.Add('Update KuWei Set Ceng=KWNo ');
sql.Add(' where KWID='''+Trim(maxno)+''''); sql.Add(' where KWID=''' + Trim(maxno) + '''');
ExecSQL; ExecSQL;
end; end;
with ADOCmd do with ADOCmd do
@ -257,18 +258,18 @@ begin
sql.Clear; sql.Clear;
sql.Add('Update KuWei Set KWName=RTrim(isnull(QuYu,''''))+''-''+RTrim(isnull(FenQu,''''))+''区-'' '); sql.Add('Update KuWei Set KWName=RTrim(isnull(QuYu,''''))+''-''+RTrim(isnull(FenQu,''''))+''区-'' ');
sql.Add('+RTrim(isnull(Pai,''''))+''排-''+RTrim(isnull(Ceng,''''))+''层'' '); sql.Add('+RTrim(isnull(Pai,''''))+''排-''+RTrim(isnull(Ceng,''''))+''层'' ');
sql.Add(' where KWID='''+Trim(maxno)+''''); sql.Add(' where KWID=''' + Trim(maxno) + '''');
ExecSQL; ExecSQL;
end; end;
with ClientDataSet2 do with ClientDataSet2 do
begin begin
Append; Append;
FieldByName('KWID').Value:=Trim(maxno); FieldByName('KWID').Value := Trim(maxno);
Post; Post;
end; end;
end; end;
ADOCmd.Connection.CommitTrans; ADOCmd.Connection.CommitTrans;
if Trim(PrtFlag.Text)<>'' then if Trim(PrtFlag.Text) <> '' then
begin begin
with ClientDataSet2 do with ClientDataSet2 do
begin begin
@ -280,17 +281,18 @@ begin
end; end;
end; end;
end; end;
Result:=True; Result := True;
except except
Result:=False; Result := False;
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！','提示',0); Application.MessageBox('保存失败！', '提示', 0);
end; end;
end; end;
function TfrmKuWeiInPutCeng.SaveDataDuoCeng():Boolean;
function TfrmKuWeiInPutCeng.SaveDataDuoCeng(): Boolean;
var var
maxno,PaiStr:String; maxno, PaiStr: string;
p,c,i,PInt:Integer; p, c, i, PInt: Integer;
begin begin
with ADOTemp do with ADOTemp do
begin begin
@ -299,76 +301,78 @@ begin
sql.Add('select KWID from KuWei where 1=2'); sql.Add('select KWID from KuWei where 1=2');
open; open;
end; end;
SCreateCDS20(ADOTemp,ClientDataSet2); SCreateCDS20(ADOTemp, ClientDataSet2);
SInitCDSData20(ADOTemp,ClientDataSet2); SInitCDSData20(ADOTemp, ClientDataSet2);
Result:=False; Result := False;
try try
ADOCmd.Connection.BeginTrans; ADOCmd.Connection.BeginTrans;
///保存主表 ///保存主表
for P:=1 to StrToInt(PaiQty.Text) do for p := 1 to StrToInt(PaiQty.Text) do
begin begin
for C:=1 to StrToInt(CengQty.Text) do for c := 1 to StrToInt(CengQty.Text) do
begin begin
if GetLSNoHZ(ADOCmd,maxno,'KW','KuWei',4,0,0)=False then if GetLSNoHZ(ADOCmd, maxno, 'KW', 'KuWei', 4, 0, 0) = False then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取库位最大号失败!','提示',0); Application.MessageBox('取库位最大号失败!', '提示', 0);
Exit; Exit;
end; end;
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
SQL.Add('select * from KuWei where KWId='''+Trim(maxno)+''''); SQL.Add('select * from KuWei where KWId=''' + Trim(maxno) + '''');
Open; Open;
end; end;
with ADOCmd do with ADOCmd do
begin begin
Append; Append;
FieldByName('KWId').Value:=Trim(maxno); FieldByName('KWId').Value := Trim(maxno);
FieldByName('KWType').Value:='GG';//挂钩 FieldByName('KWType').Value := 'GG'; //挂钩
FieldByName('Filler').Value:=Trim(DName); FieldByName('Filler').Value := Trim(DName);
FieldByName('FillerCode').Value:=Trim(DCode); FieldByName('FillerCode').Value := Trim(DCode);
FieldByName('QuYu').Value:=Trim(QuYu.Text); FieldByName('QuYu').Value := Trim(QuYu.Text);
FieldByName('FenQu').Value:=Trim(FenQu.Text); FieldByName('FenQu').Value := Trim(FenQu.Text);
if c<10 then if c < 10 then
begin begin
FieldByName('Ceng').Value:='0'+Trim(IntToStr(c)); FieldByName('Ceng').Value := '0' + Trim(IntToStr(c));
end else end
else
begin begin
FieldByName('Ceng').Value:=Trim(IntToStr(c)); FieldByName('Ceng').Value := Trim(IntToStr(c));
end; end;
FieldByName('Valid').Value:='Y'; FieldByName('Valid').Value := 'Y';
Post; Post;
end; end;
//更新排 //更新排
if C=1 then if c = 1 then
begin begin
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select AA=isnull(Cast(max(Pai) as int),0)+1 from KuWei where KWType=''GG'' '); sql.Add('select AA=isnull(Cast(max(Pai) as int),0)+1 from KuWei where KWType=''GG'' ');
sql.Add(' and isnull(QuYu,'''')='''+Trim(QuYu.Text)+''''); sql.Add(' and isnull(QuYu,'''')=''' + Trim(QuYu.Text) + '''');
sql.Add(' and isnull(FenQu,'''')='''+Trim(FenQu.Text)+''''); sql.Add(' and isnull(FenQu,'''')=''' + Trim(FenQu.Text) + '''');
sql.Add(' and valid=''Y'' '); sql.Add(' and valid=''Y'' ');
Open; Open;
end; end;
PInt:=ADOCmd.fieldbyname('AA').Value; PInt := ADOCmd.fieldbyname('AA').Value;
if PInt<10 then if PInt < 10 then
begin begin
PaiStr:='0'+Trim(IntToStr(PInt)); PaiStr := '0' + Trim(IntToStr(PInt));
end else end
else
begin begin
PaiStr:=Trim(IntToStr(PInt)); PaiStr := Trim(IntToStr(PInt));
end; end;
end; end;
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update KuWei Set Pai='''+Trim(PaiStr)+''''); sql.Add('Update KuWei Set Pai=''' + Trim(PaiStr) + '''');
sql.Add(' where KWID='''+Trim(maxno)+''''); sql.Add(' where KWID=''' + Trim(maxno) + '''');
ExecSQL; ExecSQL;
end; end;
//更新排 //更新排
@ -377,7 +381,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update KuWei Set KWNo=Ceng '); sql.Add('Update KuWei Set KWNo=Ceng ');
sql.Add(' where KWID='''+Trim(maxno)+''''); sql.Add(' where KWID=''' + Trim(maxno) + '''');
ExecSQL; ExecSQL;
end; end;
with ADOCmd do with ADOCmd do
@ -385,7 +389,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update KuWei Set KWNoInt=Cast(Ceng as int) '); sql.Add('Update KuWei Set KWNoInt=Cast(Ceng as int) ');
sql.Add(' where KWID='''+Trim(maxno)+''''); sql.Add(' where KWID=''' + Trim(maxno) + '''');
ExecSQL; ExecSQL;
end; end;
with ADOCmd do with ADOCmd do
@ -394,20 +398,20 @@ begin
sql.Clear; sql.Clear;
sql.Add('Update KuWei Set KWName=RTrim(isnull(QuYu,''''))+''-''+RTrim(isnull(FenQu,''''))+''区-'' '); sql.Add('Update KuWei Set KWName=RTrim(isnull(QuYu,''''))+''-''+RTrim(isnull(FenQu,''''))+''区-'' ');
sql.Add('+RTrim(isnull(Pai,''''))+''排-''+RTrim(isnull(Ceng,''''))+''层'' '); sql.Add('+RTrim(isnull(Pai,''''))+''排-''+RTrim(isnull(Ceng,''''))+''层'' ');
sql.Add(' where KWID='''+Trim(maxno)+''''); sql.Add(' where KWID=''' + Trim(maxno) + '''');
ExecSQL; ExecSQL;
end; end;
with ClientDataSet2 do with ClientDataSet2 do
begin begin
Append; Append;
FieldByName('KWID').Value:=Trim(maxno); FieldByName('KWID').Value := Trim(maxno);
Post; Post;
end; end;
end; end;
end; end;
ADOCmd.Connection.CommitTrans; ADOCmd.Connection.CommitTrans;
if Trim(PrtFlag.Text)<>'' then if Trim(PrtFlag.Text) <> '' then
begin begin
with ClientDataSet2 do with ClientDataSet2 do
begin begin
@ -419,188 +423,190 @@ begin
end; end;
end; end;
end; end;
Result:=True; Result := True;
except except
Result:=False; Result := False;
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！','提示',0); Application.MessageBox('保存失败！', '提示', 0);
end; end;
end; end;
procedure TfrmKuWeiInPutCeng.PrtData(KWID:String);
procedure TfrmKuWeiInPutCeng.PrtData(KWID: string);
var var
fPrintFile,Txt,fImagePath:string; fPrintFile, Txt, fImagePath: string;
i,j:Integer; i, j: Integer;
Moudle: THandle; Moudle: THandle;
Makebar:TMakebar; Makebar: TMakebar;
Mixtext:TMixtext; Mixtext: TMixtext;
begin begin
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\库位标签.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\库位标签.rmf';
if FileExists(fPrintFile)=False then if FileExists(fPrintFile) = False then
begin begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\库位标签.rmf'),'提示',0); Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\库位标签.rmf'), '提示', 0);
exit; exit;
end; end;
with ADOTemp do with ADOTemp do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select * from KuWei where KWID='''+Trim(KWID)+''''); sql.Add('select * from KuWei where KWID=''' + Trim(KWID) + '''');
Open; Open;
end; end;
SCreateCDS20(ADOTemp,CDS_Print); SCreateCDS20(ADOTemp, CDS_Print);
SInitCDSData20(ADOTemp,CDS_Print); SInitCDSData20(ADOTemp, CDS_Print);
try try
Moudle:=LoadLibrary('MakeQRBarcode.dll'); Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar:=GetProcAddress(Moudle,'Make'); @Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext:=GetProcAddress(Moudle,'MixText'); @Mixtext := GetProcAddress(Moudle, 'MixText');
Txt:=Trim(KWID); Txt := Trim(KWID);
fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp'; fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then DeleteFile(fImagePath); if FileExists(fImagePath) then
Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except except
application.MessageBox('二维码生成失败！','提示信息',MB_ICONERROR); application.MessageBox('二维码生成失败！', '提示信息', MB_ICONERROR);
exit; exit;
end; end;
RMVariables['QRBARCODE']:=fImagePath; RMVariables['QRBARCODE'] := fImagePath;
if Trim(ComboBox1.Text)='→' then if Trim(ComboBox1.Text) = '→' then
begin begin
RMVariables['FangXiang']:='→→→→'; RMVariables['FangXiang'] := '→→→→';
end else end
if Trim(ComboBox1.Text)='←' then else if Trim(ComboBox1.Text) = '←' then
begin begin
RMVariables['FangXiang']:='←←←←'; RMVariables['FangXiang'] := '←←←←';
end; end;
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
//RM1.ShowReport; //RM1.ShowReport;
RM1.PrintReport; RM1.PrintReport;
end; end;
Procedure TfrmKuWeiInPutCeng.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ModalResult:=1;
end;
procedure TfrmKuWeiInPutCeng.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ModalResult := 1;
end;
procedure TfrmKuWeiInPutCeng.PrtFlagClick(Sender: TObject); procedure TfrmKuWeiInPutCeng.PrtFlagClick(Sender: TObject);
begin begin
if Trim(PrtFlag.Text)='' then if Trim(PrtFlag.Text) = '' then
begin begin
PrtFlag.Text:='√'; PrtFlag.Text := '√';
end else end
else
begin begin
PrtFlag.Text:=''; PrtFlag.Text := '';
end; end;
end; end;
procedure TfrmKuWeiInPutCeng.Button1Click(Sender: TObject); procedure TfrmKuWeiInPutCeng.Button1Click(Sender: TObject);
var var
FInt:Integer; FInt: Integer;
begin begin
if Trim(QuYu.Text)='' then if Trim(QuYu.Text) = '' then
begin begin
Application.MessageBox('区域不能为空!','提示',0); Application.MessageBox('区域不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(FenQu.Text)='' then if Trim(FenQu.Text) = '' then
begin begin
Application.MessageBox('分区不能为空!','提示',0); Application.MessageBox('分区不能为空!', '提示', 0);
Exit; Exit;
end; end;
if cxPageControl1.ActivePageIndex=0 then if cxPageControl1.ActivePageIndex = 0 then
begin begin
if Trim(pai.Text)='' then if Trim(pai.Text) = '' then
begin begin
Application.MessageBox('第几排不能为空!','提示',0); Application.MessageBox('第几排不能为空!', '提示', 0);
Exit; Exit;
end; end;
if TryStrToInt(pai.Text,FInt)=False then if TryStrToInt(pai.Text, FInt) = False then
begin begin
Application.MessageBox('第几排非法数字!','提示',0); Application.MessageBox('第几排非法数字!', '提示', 0);
Exit; Exit;
end; end;
if StrToInt(pai.Text)>299 then if StrToInt(pai.Text) > 299 then
begin begin
Application.MessageBox('第几排不能大于300！','提示',0); Application.MessageBox('第几排不能大于300！', '提示', 0);
Exit; Exit;
end; end;
end else end
if cxPageControl1.ActivePageIndex=1 then else if cxPageControl1.ActivePageIndex = 1 then
begin begin
if Trim(paiQty.Text)='' then if Trim(paiQty.Text) = '' then
begin begin
Application.MessageBox('增加排数不能为空!','提示',0); Application.MessageBox('增加排数不能为空!', '提示', 0);
Exit; Exit;
end; end;
if TryStrToInt(paiQty.Text,FInt)=False then if TryStrToInt(paiQty.Text, FInt) = False then
begin begin
Application.MessageBox('增加排数非法数字!','提示',0); Application.MessageBox('增加排数非法数字!', '提示', 0);
Exit; Exit;
end; end;
if StrToInt(paiQty.Text)>299 then if StrToInt(paiQty.Text) > 299 then
begin begin
Application.MessageBox('增加排数不能大于300！','提示',0); Application.MessageBox('增加排数不能大于300！', '提示', 0);
Exit; Exit;
end; end;
end; end;
if cxPageControl1.ActivePageIndex=0 then if cxPageControl1.ActivePageIndex = 0 then
begin begin
if Trim(CengQty.Text)='' then if Trim(CengQty.Text) = '' then
begin begin
Application.MessageBox('增加层数不能为空!','提示',0); Application.MessageBox('增加层数不能为空!', '提示', 0);
Exit; Exit;
end; end;
end else end
if cxPageControl1.ActivePageIndex=1 then else if cxPageControl1.ActivePageIndex = 1 then
begin begin
if Trim(CengQty.Text)='' then if Trim(CengQty.Text) = '' then
begin begin
Application.MessageBox('每排层数不能为空!','提示',0); Application.MessageBox('每排层数不能为空!', '提示', 0);
Exit; Exit;
end; end;
end; end;
if Trim(PrtFlag.Text)<>'' then if Trim(PrtFlag.Text) <> '' then
begin begin
if Trim(ComboBox1.Text)='' then if Trim(ComboBox1.Text) = '' then
begin begin
Application.MessageBox('方向不能为空!','提示',0); Application.MessageBox('方向不能为空!', '提示', 0);
Exit; Exit;
end; end;
end; end;
Panel2.Visible:=True; Panel2.Visible := True;
Panel2.Refresh; Panel2.Refresh;
if cxPageControl1.ActivePageIndex=0 then if cxPageControl1.ActivePageIndex = 0 then
begin begin
if SaveData() then if SaveData() then
begin begin
InitData(); InitData();
Application.MessageBox('操作成功~','提示',0); Application.MessageBox('操作成功~', '提示', 0);
end; end;
end else end
if cxPageControl1.ActivePageIndex=1 then else if cxPageControl1.ActivePageIndex = 1 then
begin begin
if SaveDataDuoCeng() then if SaveDataDuoCeng() then
begin begin
InitData(); InitData();
Application.MessageBox('操作成功~','提示',0); Application.MessageBox('操作成功~', '提示', 0);
end; end;
end; end;
Panel2.Visible:=False; Panel2.Visible := False;
end; end;
procedure TfrmKuWeiInPutCeng.QuYuBtnClick(Sender: TObject); procedure TfrmKuWeiInPutCeng.QuYuBtnClick(Sender: TObject);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='GGQuYu'; flag := 'GGQuYu';
flagname:='区域'; flagname := '区域';
if ShowModal=1 then if ShowModal = 1 then
begin begin
QuYu.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); QuYu.Text := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end; end;
end; end;
finally finally
@ -612,14 +618,14 @@ end;
procedure TfrmKuWeiInPutCeng.FenQuBtnClick(Sender: TObject); procedure TfrmKuWeiInPutCeng.FenQuBtnClick(Sender: TObject);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='GGFenQu'; flag := 'GGFenQu';
flagname:='分区'; flagname := '分区';
if ShowModal=1 then if ShowModal = 1 then
begin begin
FenQu.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); FenQu.Text := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end; end;
end; end;
finally finally
@ -630,13 +636,13 @@ end;
procedure TfrmKuWeiInPutCeng.QuYuDblClick(Sender: TObject); procedure TfrmKuWeiInPutCeng.QuYuDblClick(Sender: TObject);
begin begin
QuYu.Text:=''; QuYu.Text := '';
InitData(); InitData();
end; end;
procedure TfrmKuWeiInPutCeng.FenQuDblClick(Sender: TObject); procedure TfrmKuWeiInPutCeng.FenQuDblClick(Sender: TObject);
begin begin
FenQu.Text:=''; FenQu.Text := '';
InitData(); InitData();
end; end;
@ -647,21 +653,22 @@ end;
procedure TfrmKuWeiInPutCeng.ToolButton1Click(Sender: TObject); procedure TfrmKuWeiInPutCeng.ToolButton1Click(Sender: TObject);
begin begin
if ClientDataSet1.IsEmpty then Exit; if ClientDataSet1.IsEmpty then
if ClientDataSet1.Locate('SSel',True,[])=False then Exit;
if ClientDataSet1.Locate('SSel', True, []) = False then
begin begin
Application.MessageBox('没有选择数据!','提示',0); Application.MessageBox('没有选择数据!', '提示', 0);
Exit; Exit;
end; end;
ClientDataSet1.DisableControls; ClientDataSet1.DisableControls;
with ClientDataSet1 do with ClientDataSet1 do
begin begin
First; First;
while Locate('SSel',True,[]) do while Locate('SSel', True, []) do
begin begin
PrtData(Trim(ClientDataSet1.fieldbyname('KWID').AsString)); PrtData(Trim(ClientDataSet1.fieldbyname('KWID').AsString));
Edit; Edit;
FieldByName('SSel').Value:=False; FieldByName('SSel').Value := False;
end; end;
end; end;
ClientDataSet1.EnableControls; ClientDataSet1.EnableControls;
@ -669,12 +676,13 @@ end;
procedure TfrmKuWeiInPutCeng.N1Click(Sender: TObject); procedure TfrmKuWeiInPutCeng.N1Click(Sender: TObject);
begin begin
SelOKNo(ClientDataSet1,True); SelOKNo(ClientDataSet1, True);
end; end;
procedure TfrmKuWeiInPutCeng.N2Click(Sender: TObject); procedure TfrmKuWeiInPutCeng.N2Click(Sender: TObject);
begin begin
SelOKNo(ClientDataSet1,False); SelOKNo(ClientDataSet1, False);
end; end;
end. end.

17
云翔生产管理(MYSC.dll)/U_KuWeiList.dfm
View File

@ -193,6 +193,13 @@ object frmKuWeiList: TfrmKuWeiList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 74 Width = 74
end end
object Tv1Column1: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'KWID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #21306#22495 Caption = #21306#22495
DataBinding.FieldName = 'QuYu' DataBinding.FieldName = 'QuYu'
@ -313,7 +320,7 @@ object frmKuWeiList: TfrmKuWeiList
Left = 53 Left = 53
Top = 12 Top = 12
Width = 60 Width = 60
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -328,7 +335,7 @@ object frmKuWeiList: TfrmKuWeiList
Left = 165 Left = 165
Top = 12 Top = 12
Width = 60 Width = 60
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -343,7 +350,7 @@ object frmKuWeiList: TfrmKuWeiList
Left = 261 Left = 261
Top = 12 Top = 12
Width = 60 Width = 60
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -358,7 +365,7 @@ object frmKuWeiList: TfrmKuWeiList
Left = 497 Left = 497
Top = 12 Top = 12
Width = 152 Width = 152
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -373,7 +380,7 @@ object frmKuWeiList: TfrmKuWeiList
Left = 357 Left = 357
Top = 12 Top = 12
Width = 60 Width = 60
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15

1
云翔生产管理(MYSC.dll)/U_KuWeiList.pas
View File

@ -71,6 +71,7 @@ type
Panel2: TPanel; Panel2: TPanel;
ComboBox1: TComboBox; ComboBox1: TComboBox;
Label3: TLabel; Label3: TLabel;
Tv1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

2
云翔财务(Money.dll)/Money.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\马国钢开发代码\项目代码\云翔\云翔财务(Money.dll)\testDll.exe HostApplication=D:\Project\D7myYunxiang\ÔÆÏè²ÆÎñ(Money.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

6
云翔财务(Money.dll)/Money.dpr
View File

@ -9,7 +9,6 @@ uses
U_DataLink in 'U_DataLink.pas' {DataLink_Money: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_Money: TDataModule},
U_GetDllForm in 'U_GetDllForm.pas', U_GetDllForm in 'U_GetDllForm.pas',
U_ZDYHelpSel in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas',
U_SelExportField in '..\Z99Dependency\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField}, U_SelExportField in '..\Z99Dependency\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
U_ColumnSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, U_ColumnSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
U_ZDYHelp in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, U_ZDYHelp in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
@ -38,7 +37,6 @@ uses
U_GYSFKListView in 'U_GYSFKListView.pas' {frmGYSFKListView}, U_GYSFKListView in 'U_GYSFKListView.pas' {frmGYSFKListView},
U_SCPerson in 'U_SCPerson.pas' {frmSCPerson}, U_SCPerson in 'U_SCPerson.pas' {frmSCPerson},
U_YSSKList in 'U_YSSKList.pas' {frmYSSKList}, U_YSSKList in 'U_YSSKList.pas' {frmYSSKList},
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
U_YSSKListRMBMJDZEY in 'U_YSSKListRMBMJDZEY.pas' {frmYSSKListRMBMJDZEY}, U_YSSKListRMBMJDZEY in 'U_YSSKListRMBMJDZEY.pas' {frmYSSKListRMBMJDZEY},
U_YSCRSaveQC in 'U_YSCRSaveQC.pas' {frmYSCRSaveQC}, U_YSCRSaveQC in 'U_YSCRSaveQC.pas' {frmYSCRSaveQC},
U_CaiWuHuilV in 'U_CaiWuHuilV.pas' {frmCaiWuHuiLV}, U_CaiWuHuilV in 'U_CaiWuHuilV.pas' {frmCaiWuHuiLV},
@ -46,7 +44,9 @@ uses
U_YWYTop in 'U_YWYTop.pas' {frmYWYTop}, U_YWYTop in 'U_YWYTop.pas' {frmYWYTop},
U_YWYTopKHMX in 'U_YWYTopKHMX.pas' {frmYWYTopKHMX}, U_YWYTopKHMX in 'U_YWYTopKHMX.pas' {frmYWYTopKHMX},
U_TJWorkerPayListB in 'U_TJWorkerPayListB.pas' {frmTJWorkerPayListB}, U_TJWorkerPayListB in 'U_TJWorkerPayListB.pas' {frmTJWorkerPayListB},
U_WorkPayInPutB in 'U_WorkPayInPutB.pas' {frmWorkPayInPutB}; U_WorkPayInPutB in 'U_WorkPayInPutB.pas' {frmWorkPayInPutB},
U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas',
U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas';
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas', // U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField}, // U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},

8
云翔财务(Money.dll)/ProjectGroup1.bpg
View File

@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = YSYF.dll testDll.exe PROJECTS = testDll.exe Money.dll
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
YSYF.dll: YSYF.dpr
$(DCC)
testDll.exe: testDll.dpr testDll.exe: testDll.dpr
$(DCC) $(DCC)
Money.dll: Money.dpr
$(DCC)

18
云翔财务(Money.dll)/U_BankMoneyKHList.dfm
View File

@ -1,6 +1,6 @@
object frmBankMoneyKHList: TfrmBankMoneyKHList object frmBankMoneyKHList: TfrmBankMoneyKHList
Left = 89 Left = 381
Top = 101 Top = 327
Width = 1351 Width = 1351
Height = 617 Height = 617
Caption = #23458#25143#36153#29992#31649#29702 Caption = #23458#25143#36153#29992#31649#29702
@ -19,7 +19,7 @@ object frmBankMoneyKHList: TfrmBankMoneyKHList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1335 Width = 1343
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -92,7 +92,7 @@ object frmBankMoneyKHList: TfrmBankMoneyKHList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1335 Width = 1343
Height = 45 Height = 45
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -152,7 +152,7 @@ object frmBankMoneyKHList: TfrmBankMoneyKHList
Left = 338 Left = 338
Top = 10 Top = 10
Width = 100 Width = 100
Height = 26 Height = 23
TabOrder = 0 TabOrder = 0
OnChange = FactoryName10Change OnChange = FactoryName10Change
end end
@ -161,7 +161,7 @@ object frmBankMoneyKHList: TfrmBankMoneyKHList
Left = 511 Left = 511
Top = 10 Top = 10
Width = 100 Width = 100
Height = 26 Height = 23
TabOrder = 1 TabOrder = 1
OnChange = FactoryName10Change OnChange = FactoryName10Change
end end
@ -207,7 +207,7 @@ object frmBankMoneyKHList: TfrmBankMoneyKHList
Left = 857 Left = 857
Top = 10 Top = 10
Width = 100 Width = 100
Height = 26 Height = 23
TabOrder = 5 TabOrder = 5
OnChange = FactoryName10Change OnChange = FactoryName10Change
end end
@ -230,8 +230,8 @@ object frmBankMoneyKHList: TfrmBankMoneyKHList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 76 Top = 76
Width = 1335 Width = 1343
Height = 502 Height = 510
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView

16
云翔财务(Money.dll)/U_BankMoneyKHList.pas
View File

@ -13,7 +13,21 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, BtnEdit, Menus, Buttons, cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, BtnEdit, Menus, Buttons,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmBankMoneyKHList = class(TForm) TfrmBankMoneyKHList = class(TForm)

74
云翔财务(Money.dll)/U_DataLink.pas
View File

@ -4,40 +4,42 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore, Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinDarkRoom, dxSkinsDefaultPainters, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2013White, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinSharpPlus, dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSpringTime, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
; dxSkinWhiteprint, dxSkinXmas2008Blue;
var var
DConString:String; {全局连接字符串} DConString: string; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: string; {数据库连接参数}
DCurHandle:hwnd; //当前窗体句柄 DCurHandle: hwnd; //当前窗体句柄
DName:string ; //#用户名#// DName: string; //#用户名#//
DCode:string ; //#用户编号#// DCode: string; //#用户编号#//
Ddatabase:string; //#数据库名称#// Ddatabase: string; //#数据库名称#//
DTitCaption:string; //#主窗体名称#// DTitCaption: string; //#主窗体名称#//
DParameters1,DParameters2,DParameters3,DParameters4,DParameters5:string;// 外部参数； DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // 外部参数；
DParameters6,DParameters7,DParameters8,DParameters9,DParameters10:string;//外部参数； DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //外部参数；
OldDllApp:Tapplication; //保存原有句柄 OldDllApp: Tapplication; //保存原有句柄
NewDllApp: Tapplication;//当前句柄 NewDllApp: Tapplication; //当前句柄
MainApplication: Tapplication ; MainApplication: Tapplication;
DFormCode:integer; //当前窗口号 DFormCode: integer; //当前窗口号
IsDelphiLanguage:integer; IsDelphiLanguage: integer;
DServerDate:TdateTime; //服务器时间 DServerDate: TdateTime; //服务器时间
DCompany:string; //公司 DCompany: string; //公司
IpCall:Integer; IpCall: Integer;
IpWLDZStr:string; IpWLDZStr: string;
type type
TDataLink_Money = class(TDataModule) TDataLink_Money = class(TDataModule)
AdoDataLink: TADOQuery; AdoDataLink: TADOQuery;
@ -77,14 +79,10 @@ var
implementation implementation
{$R *.dfm} {$R *.dfm}
procedure TDataLink_Money.DataModuleDestroy(Sender: TObject); procedure TDataLink_Money.DataModuleDestroy(Sender: TObject);
begin begin
DataLink_Money:=nil; DataLink_Money := nil;
end; end;
end. end.

12
云翔财务(Money.dll)/U_FuFeeInPut.dfm
View File

@ -1,6 +1,6 @@
object frmFuFeeInPut: TfrmFuFeeInPut object frmFuFeeInPut: TfrmFuFeeInPut
Left = 113 Left = 453
Top = 39 Top = 82
Width = 1084 Width = 1084
Height = 605 Height = 605
Caption = #20379#24212#21830#36153#29992#30331#35760 Caption = #20379#24212#21830#36153#29992#30331#35760
@ -20,7 +20,7 @@ object frmFuFeeInPut: TfrmFuFeeInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1068 Width = 1076
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -102,7 +102,7 @@ object frmFuFeeInPut: TfrmFuFeeInPut
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1068 Width = 1076
Height = 202 Height = 202
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -342,8 +342,8 @@ object frmFuFeeInPut: TfrmFuFeeInPut
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 233 Top = 233
Width = 1068 Width = 1076
Height = 333 Height = 341
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView

15
云翔财务(Money.dll)/U_FuFeeInPut.pas
View File

@ -13,7 +13,20 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, BtnEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator; cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmFuFeeInPut = class(TForm) TfrmFuFeeInPut = class(TForm)

8
云翔财务(Money.dll)/U_FuFeeList.dfm
View File

@ -19,7 +19,7 @@ object frmFuFeeList: TfrmFuFeeList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1162 Width = 1170
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -92,7 +92,7 @@ object frmFuFeeList: TfrmFuFeeList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1162 Width = 1170
Height = 44 Height = 44
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -166,8 +166,8 @@ object frmFuFeeList: TfrmFuFeeList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 75 Top = 75
Width = 1162 Width = 1170
Height = 504 Height = 512
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView

16
云翔财务(Money.dll)/U_FuFeeList.pas
View File

@ -13,7 +13,21 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, BtnEdit, Menus, Buttons, cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, BtnEdit, Menus, Buttons,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmFuFeeList = class(TForm) TfrmFuFeeList = class(TForm)

41
云翔财务(Money.dll)/U_GYSListSel.dfm
View File

@ -1,6 +1,6 @@
object frmGYSListSel: TfrmGYSListSel object frmGYSListSel: TfrmGYSListSel
Left = 62 Left = 552
Top = 25 Top = 557
Width = 1222 Width = 1222
Height = 672 Height = 672
Caption = #20379#24212#21830#20449#24687#26597#35810 Caption = #20379#24212#21830#20449#24687#26597#35810
@ -20,7 +20,7 @@ object frmGYSListSel: TfrmGYSListSel
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1206 Width = 1214
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -67,7 +67,7 @@ object frmGYSListSel: TfrmGYSListSel
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1206 Width = 1214
Height = 35 Height = 35
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -106,6 +106,19 @@ object frmGYSListSel: TfrmGYSListSel
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label1: TLabel
Left = 569
Top = 10
Width = 32
Height = 15
Caption = #31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object zjm: TEdit object zjm: TEdit
Tag = 2 Tag = 2
Left = 83 Left = 83
@ -126,12 +139,24 @@ object frmGYSListSel: TfrmGYSListSel
OnBtnUpClick = KHTypeBtnUpClick OnBtnUpClick = KHTypeBtnUpClick
OnBtnDnClick = KHTypeBtnDnClick OnBtnDnClick = KHTypeBtnDnClick
end end
object KHFlag: TComboBox
Left = 608
Top = 5
Width = 145
Height = 23
ItemHeight = 15
TabOrder = 2
OnChange = KHFlagChange
Items.Strings = (
'GYS'
'KH')
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 66 Top = 66
Width = 1206 Width = 1214
Height = 405 Height = 413
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
@ -229,8 +254,8 @@ object frmGYSListSel: TfrmGYSListSel
end end
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 471 Top = 479
Width = 1206 Width = 1214
Height = 162 Height = 162
Align = alBottom Align = alBottom
TabOrder = 3 TabOrder = 3

115
云翔财务(Money.dll)/U_GYSListSel.pas
View File

@ -5,15 +5,28 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, Menus, BtnEdit, Buttons, cxTextEdit, cxPC, cxDropDownEdit, Menus, BtnEdit, Buttons, cxLookAndFeels,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type type
TfrmGYSListSel = class(TForm) TfrmGYSListSel = class(TForm)
@ -55,6 +68,8 @@ type
DS_HZ3: TDataSource; DS_HZ3: TDataSource;
CDS_HZ3: TClientDataSet; CDS_HZ3: TClientDataSet;
cxGridPopupMenu4: TcxGridPopupMenu; cxGridPopupMenu4: TcxGridPopupMenu;
Label1: TLabel;
KHFlag: TComboBox;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -63,38 +78,36 @@ type
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure zjmChange(Sender: TObject); procedure zjmChange(Sender: TObject);
procedure KHTypeClick(Sender: TObject); procedure KHTypeClick(Sender: TObject);
procedure V1SHStatusCustomDrawCell(Sender: TcxCustomGridTableView; procedure V1SHStatusCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure KHTypeBtnUpClick(Sender: TObject); procedure KHTypeBtnUpClick(Sender: TObject);
procedure KHTypeBtnDnClick(Sender: TObject); procedure KHTypeBtnDnClick(Sender: TObject);
procedure TV3DblClick(Sender: TObject); procedure TV3DblClick(Sender: TObject);
procedure TV1MouseDown(Sender: TObject; Button: TMouseButton; procedure TV1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Shift: TShiftState; X, Y: Integer); procedure KHFlagChange(Sender: TObject);
private private
{ Private declarations } { Private declarations }
ColorInt:Integer; ColorInt: Integer;
procedure InitGrid(); procedure InitGrid();
procedure InitGridBankMain(); procedure InitGridBankMain();
public public
canshu1,canshu2,FGYSType:string; canshu1, canshu2, FGYSType: string;
end; end;
var var
frmGYSListSel: TfrmGYSListSel; frmGYSListSel: TfrmGYSListSel;
implementation implementation
uses uses
U_DataLink,U_RTFun,U_ZDYHelp, U_SCPerson; U_DataLink, U_RTFun, U_ZDYHelp, U_SCPerson;
{$R *.dfm} {$R *.dfm}
procedure TfrmGYSListSel.InitGrid(); procedure TfrmGYSListSel.InitGrid();
begin begin
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered:=False; Filtered := False;
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select *,zjm=dbo.getpinyin(KHName)+KHName+dbo.getpinyin(KHNameJC)+KHNameJC+KHNO'); sql.Add(' select *,zjm=dbo.getpinyin(KHName)+KHName+dbo.getpinyin(KHNameJC)+KHNameJC+KHNO');
@ -103,34 +116,35 @@ begin
sql.add(' where isnull(KHFlag,'''') in (''GYS'',''KH'') and isnull(Valid,'''')=''Y'' '); sql.add(' where isnull(KHFlag,'''') in (''GYS'',''KH'') and isnull(Valid,'''')=''Y'' ');
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain,CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ); SInitCDSData20(ADOQueryMain, CDS_HZ);
end; end;
procedure TfrmGYSListSel.FormDestroy(Sender: TObject); procedure TfrmGYSListSel.FormDestroy(Sender: TObject);
begin begin
frmGYSListSel:=nil; frmGYSListSel := nil;
end; end;
procedure TfrmGYSListSel.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmGYSListSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmGYSListSel.TBCloseClick(Sender: TObject); procedure TfrmGYSListSel.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('PBGYS11YXCX',Tv1,'供应商管理'); WriteCxGrid('PBGYS11YXCX', Tv1, '供应商管理');
Close; Close;
end; end;
procedure TfrmGYSListSel.FormShow(Sender: TObject); procedure TfrmGYSListSel.FormShow(Sender: TObject);
var var
fsj:String; fsj: string;
begin begin
{ fsj:='select Name=YWY from KH_Main where isnull(YWY,'''')<>'''' and Valid=''Y'' and isnull(KHFlag,'''')=''KH'' Group by YWY'; { fsj:='select Name=YWY from KH_Main where isnull(YWY,'''')<>'''' and Valid=''Y'' and isnull(KHFlag,'''')=''KH'' Group by YWY';
SInitComBoxBySql(ADOQueryTemp,YWY,False,fsj); SInitComBoxBySql(ADOQueryTemp,YWY,False,fsj);
fsj:='select Name=LiDan from KH_Main where isnull(LiDan,'''')<>'''' and Valid=''Y'' and isnull(KHFlag,'''')=''KH'' Group by LiDan'; fsj:='select Name=LiDan from KH_Main where isnull(LiDan,'''')<>'''' and Valid=''Y'' and isnull(KHFlag,'''')=''KH'' Group by LiDan';
SInitComBoxBySql(ADOQueryTemp,LiDan,False,fsj); } SInitComBoxBySql(ADOQueryTemp,LiDan,False,fsj); }
ReadCxGrid('PBGYS11YXCX',Tv1,'供应商管理'); ReadCxGrid('PBGYS11YXCX', Tv1, '供应商管理');
InitGrid(); InitGrid();
end; end;
@ -144,9 +158,9 @@ procedure TfrmGYSListSel.ToolButton2Click(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain,CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ); SInitCDSData20(ADOQueryMain, CDS_HZ);
end; end;
end; end;
@ -155,36 +169,33 @@ begin
ToolButton2.Click; ToolButton2.Click;
end; end;
procedure TfrmGYSListSel.KHTypeClick(Sender: TObject); procedure TfrmGYSListSel.KHTypeClick(Sender: TObject);
begin begin
ToolButton2.Click; ToolButton2.Click;
end; end;
procedure TfrmGYSListSel.V1SHStatusCustomDrawCell( procedure TfrmGYSListSel.V1SHStatusCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var var
id:Integer; id: Integer;
begin begin
Id:=TV1.GetColumnByFieldName('SHStatus').Index; id := TV1.GetColumnByFieldName('SHStatus').Index;
if AViewInfo.GridRecord.Values[Id]='未审核' then if AViewInfo.GridRecord.Values[id] = '未审核' then
begin begin
ACanvas.Font.Color:=clRed; ACanvas.Font.Color := clRed;
end; end;
end; end;
procedure TfrmGYSListSel.KHTypeBtnUpClick(Sender: TObject); procedure TfrmGYSListSel.KHTypeBtnUpClick(Sender: TObject);
begin begin
try try
frmSCPerson:=TfrmSCPerson.Create(Application); frmSCPerson := TfrmSCPerson.Create(Application);
with frmSCPerson do with frmSCPerson do
begin begin
FlagStr:='GYSType'; FlagStr := 'GYSType';
if ShowModal=1 then if ShowModal = 1 then
begin begin
Self.KHType.Text:=Trim(FSDPerson); Self.KHType.Text := Trim(FSDPerson);
Self.KHType.TxtCode:=Trim(FSDPerson); Self.KHType.TxtCode := Trim(FSDPerson);
end; end;
end; end;
finally finally
@ -195,43 +206,49 @@ end;
procedure TfrmGYSListSel.KHTypeBtnDnClick(Sender: TObject); procedure TfrmGYSListSel.KHTypeBtnDnClick(Sender: TObject);
begin begin
KHType.Text:=''; KHType.Text := '';
KHType.TxtCode:=''; KHType.TxtCode := '';
ToolButton2.Click; ToolButton2.Click;
end; end;
procedure TfrmGYSListSel.TV3DblClick(Sender: TObject); procedure TfrmGYSListSel.TV3DblClick(Sender: TObject);
begin begin
if CDS_HZ.IsEmpty then exit; if CDS_HZ.IsEmpty then
ModalResult:=1; exit;
ModalResult := 1;
end; end;
procedure TfrmGYSListSel.InitGridBankMain(); procedure TfrmGYSListSel.InitGridBankMain();
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from KH_Sub_Bank where KHMainid='''+Trim(CDS_HZ.fieldbyname('KHMainid').asstring)+''''); sql.Add('select * from KH_Sub_Bank where KHMainid=''' + Trim(CDS_HZ.fieldbyname('KHMainid').asstring) + '''');
if CDS_HZ.IsEmpty then if CDS_HZ.IsEmpty then
begin begin
sql.Add(' and 1=2'); sql.Add(' and 1=2');
end else end
else
begin begin
sql.Add(' and valid=''Y'' '); sql.Add(' and valid=''Y'' ');
end; end;
sql.Add(' order by XH'); sql.Add(' order by XH');
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp,CDS_HZ3); SCreateCDS20(ADOQueryTemp, CDS_HZ3);
SInitCDSData20(ADOQueryTemp,CDS_HZ3); SInitCDSData20(ADOQueryTemp, CDS_HZ3);
end; end;
procedure TfrmGYSListSel.TV1MouseDown(Sender: TObject; procedure TfrmGYSListSel.TV1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
InitGridBankMain(); InitGridBankMain();
end; end;
procedure TfrmGYSListSel.KHFlagChange(Sender: TObject);
begin
ToolButton2.Click;
end;
end. end.

33
云翔财务(Money.dll)/U_KHListSelJJ.dfm
View File

@ -1,6 +1,6 @@
object frmKHListSelJJ: TfrmKHListSelJJ object frmKHListSelJJ: TfrmKHListSelJJ
Left = 79 Left = 585
Top = 32 Top = 166
Width = 1222 Width = 1222
Height = 672 Height = 672
Caption = #23458#25143#20449#24687#31649#29702 Caption = #23458#25143#20449#24687#31649#29702
@ -20,7 +20,7 @@ object frmKHListSelJJ: TfrmKHListSelJJ
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1206 Width = 1214
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -67,7 +67,7 @@ object frmKHListSelJJ: TfrmKHListSelJJ
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1206 Width = 1214
Height = 35 Height = 35
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -286,16 +286,16 @@ object frmKHListSelJJ: TfrmKHListSelJJ
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 66 Top = 66
Width = 1206 Width = 1214
Height = 406 Height = 413
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
OnMouseDown = TV1MouseDown OnMouseDown = TV1MouseDown
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
NavigatorButtons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
DataController.DataSource = DS_HZ DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -362,9 +362,9 @@ object frmKHListSelJJ: TfrmKHListSelJJ
DataBinding.FieldName = 'KHLXR' DataBinding.FieldName = 'KHLXR'
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
VisibleForCustomization = False
Width = 74 Width = 74
end end
object cxGridDBGYSTel: TcxGridDBColumn object cxGridDBGYSTel: TcxGridDBColumn
@ -373,9 +373,9 @@ object frmKHListSelJJ: TfrmKHListSelJJ
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
VisibleForCustomization = False
Width = 173 Width = 173
end end
object V1SHStatus: TcxGridDBColumn object V1SHStatus: TcxGridDBColumn
@ -410,16 +410,16 @@ object frmKHListSelJJ: TfrmKHListSelJJ
end end
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 472 Top = 479
Width = 1206 Width = 1214
Height = 162 Height = 162
Align = alBottom Align = alBottom
TabOrder = 3 TabOrder = 3
object TV3: TcxGridDBTableView object TV3: TcxGridDBTableView
OnDblClick = TV3DblClick OnDblClick = TV3DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
NavigatorButtons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
DataController.DataSource = DS_HZ3 DataController.DataSource = DS_HZ3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -533,6 +533,7 @@ object frmKHListSelJJ: TfrmKHListSelJJ
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 240 Left = 240
PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svFont] AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET

19
云翔财务(Money.dll)/U_KHListSelJJ.pas
View File

@ -12,7 +12,22 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, Menus, BtnEdit, Buttons; cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, Menus, BtnEdit, Buttons,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
cxNavigator;
type type
TfrmKHListSelJJ = class(TForm) TfrmKHListSelJJ = class(TForm)
@ -115,7 +130,7 @@ begin
sql.Add(' select *,zjm=dbo.getpinyin(KHName)+KHName+KHNo,KHNameJCZJM=dbo.getpinyin(KHNameJC)+KHNameJC'); sql.Add(' select *,zjm=dbo.getpinyin(KHName)+KHName+KHNo,KHNameJCZJM=dbo.getpinyin(KHNameJC)+KHNameJC');
sql.add(',SHStatus=(case when isnull(status,''0'')=''0'' then ''δÉóºË'' else ''ÒÑÉóºË'' end)'); sql.add(',SHStatus=(case when isnull(status,''0'')=''0'' then ''δÉóºË'' else ''ÒÑÉóºË'' end)');
sql.Add(' from KH_Main A '); sql.Add(' from KH_Main A ');
sql.add(' where isnull(KHFlag,'''')='''+Trim('KH')+''' and isnull(Valid,'''')=''Y'' '); sql.add(' where isnull(KHFlag,'''')=''KH'' and isnull(Valid,'''')=''Y'' ');
if Trim(canshu2)<>'¸ßȨÏÞ' then if Trim(canshu2)<>'¸ßȨÏÞ' then
begin begin
sql.Add(' and (isnull(YWY,'''')='''+Trim(DName)+''' or isnull(LiDan,'''')='''+Trim(DName)+''')'); sql.Add(' and (isnull(YWY,'''')='''+Trim(DName)+''' or isnull(LiDan,'''')='''+Trim(DName)+''')');

20
云翔财务(Money.dll)/U_KHSKList.dfm
View File

@ -19,7 +19,7 @@ object frmKHSKList: TfrmKHSKList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1783 Width = 1791
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -92,7 +92,7 @@ object frmKHSKList: TfrmKHSKList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1783 Width = 1791
Height = 75 Height = 75
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -188,7 +188,7 @@ object frmKHSKList: TfrmKHSKList
Left = 543 Left = 543
Top = 10 Top = 10
Width = 100 Width = 100
Height = 26 Height = 23
TabOrder = 0 TabOrder = 0
end end
object begdate: TDateTimePicker object begdate: TDateTimePicker
@ -224,7 +224,7 @@ object frmKHSKList: TfrmKHSKList
Left = 544 Left = 544
Top = 42 Top = 42
Width = 100 Width = 100
Height = 26 Height = 23
TabOrder = 4 TabOrder = 4
end end
object BZType: TComboBox object BZType: TComboBox
@ -245,7 +245,7 @@ object frmKHSKList: TfrmKHSKList
Left = 64 Left = 64
Top = 42 Top = 42
Width = 100 Width = 100
Height = 26 Height = 23
TabOrder = 6 TabOrder = 6
end end
object GSNO: TEdit object GSNO: TEdit
@ -253,7 +253,7 @@ object frmKHSKList: TfrmKHSKList
Left = 715 Left = 715
Top = 10 Top = 10
Width = 100 Width = 100
Height = 26 Height = 23
TabOrder = 7 TabOrder = 7
end end
object BKNO: TEdit object BKNO: TEdit
@ -261,7 +261,7 @@ object frmKHSKList: TfrmKHSKList
Left = 715 Left = 715
Top = 42 Top = 42
Width = 100 Width = 100
Height = 26 Height = 23
TabOrder = 8 TabOrder = 8
end end
object FactoryNameHZ: TEdit object FactoryNameHZ: TEdit
@ -269,7 +269,7 @@ object frmKHSKList: TfrmKHSKList
Left = 64 Left = 64
Top = 10 Top = 10
Width = 225 Width = 225
Height = 26 Height = 23
TabOrder = 9 TabOrder = 9
OnChange = FactoryNameHZChange OnChange = FactoryNameHZChange
end end
@ -277,8 +277,8 @@ object frmKHSKList: TfrmKHSKList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 106 Top = 106
Width = 1783 Width = 1791
Height = 655 Height = 663
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView

16
云翔财务(Money.dll)/U_KHSKList.pas
View File

@ -13,7 +13,21 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, BtnEdit, Menus, Buttons, cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, BtnEdit, Menus, Buttons,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmKHSKList = class(TForm) TfrmKHSKList = class(TForm)

200
云翔财务(Money.dll)/U_YFCRSave.dfm
View File

@ -7,22 +7,22 @@ object frmYFCRSave: TfrmYFCRSave
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
OnClose = FormClose OnClose = FormClose
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1324 Width = 1332
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 87 ButtonWidth = 83
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Flat = True Flat = True
@ -40,7 +40,7 @@ object frmYFCRSave: TfrmYFCRSave
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 65 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36807#28388 Caption = #36807#28388
@ -48,7 +48,7 @@ object frmYFCRSave: TfrmYFCRSave
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 130 Left = 126
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #33258#21160#29983#25104 Caption = #33258#21160#29983#25104
@ -56,7 +56,7 @@ object frmYFCRSave: TfrmYFCRSave
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 221 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20445#23384 Caption = #25209#37327#20445#23384
@ -64,7 +64,7 @@ object frmYFCRSave: TfrmYFCRSave
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 312 Left = 300
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384 Caption = #20445#23384
@ -72,14 +72,14 @@ object frmYFCRSave: TfrmYFCRSave
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBCopy: TToolButton object TBCopy: TToolButton
Left = 377 Left = 363
Top = 0 Top = 0
Caption = #22797#21046#22686#34892 Caption = #22797#21046#22686#34892
ImageIndex = 57 ImageIndex = 57
OnClick = TBCopyClick OnClick = TBCopyClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 464 Left = 446
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22686#34892 Caption = #22686#34892
@ -87,7 +87,7 @@ object frmYFCRSave: TfrmYFCRSave
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 529 Left = 509
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -95,7 +95,7 @@ object frmYFCRSave: TfrmYFCRSave
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 594 Left = 572
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -103,7 +103,7 @@ object frmYFCRSave: TfrmYFCRSave
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 659 Left = 635
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -114,132 +114,132 @@ object frmYFCRSave: TfrmYFCRSave
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1324 Width = 1332
Height = 67 Height = 61
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label3: TLabel object Label3: TLabel
Left = 189 Left = 174
Top = 14 Top = 13
Width = 58 Width = 53
Height = 13 Height = 12
Caption = #20379' '#24212' '#21830 Caption = #20379' '#24212' '#21830
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 24 Left = 22
Top = 14 Top = 13
Width = 52 Width = 48
Height = 13 Height = 12
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
end end
object Label4: TLabel object Label4: TLabel
Left = 364 Left = 336
Top = 14 Top = 13
Width = 26 Width = 24
Height = 13 Height = 12
Caption = #21697#21517 Caption = #21697#21517
end end
object Label5: TLabel object Label5: TLabel
Left = 364 Left = 336
Top = 40 Top = 37
Width = 26 Width = 24
Height = 13 Height = 12
Caption = #35268#26684 Caption = #35268#26684
end end
object Label6: TLabel object Label6: TLabel
Left = 503 Left = 464
Top = 14 Top = 13
Width = 26 Width = 24
Height = 13 Height = 12
Caption = #25968#37327 Caption = #25968#37327
end end
object Label10: TLabel object Label10: TLabel
Left = 503 Left = 464
Top = 40 Top = 37
Width = 26 Width = 24
Height = 13 Height = 12
Caption = #37329#39069 Caption = #37329#39069
end end
object Label12: TLabel object Label12: TLabel
Left = 648 Left = 598
Top = 40 Top = 37
Width = 52 Width = 48
Height = 13 Height = 12
Caption = #26159#21542#24320#31080 Caption = #26159#21542#24320#31080
end end
object Label1: TLabel object Label1: TLabel
Left = 189 Left = 174
Top = 40 Top = 37
Width = 56 Width = 52
Height = 13 Height = 12
Caption = #36865#36135#21333#21495 Caption = #36865#36135#21333#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object FactoryName10: TEdit object FactoryName10: TEdit
Tag = 2 Tag = 2
Left = 247 Left = 228
Top = 10 Top = 9
Width = 100 Width = 92
Height = 20 Height = 21
TabOrder = 0 TabOrder = 0
OnChange = FactoryName10Change OnChange = FactoryName10Change
OnKeyPress = FactoryName10KeyPress OnKeyPress = FactoryName10KeyPress
end end
object begdate: TDateTimePicker object begdate: TDateTimePicker
Left = 78 Left = 72
Top = 10 Top = 9
Width = 94 Width = 87
Height = 21 Height = 20
Date = 41256.918237847230000000 Date = 41256.918237847230000000
Time = 41256.918237847230000000 Time = 41256.918237847230000000
TabOrder = 1 TabOrder = 1
end end
object Enddate: TDateTimePicker object Enddate: TDateTimePicker
Left = 78 Left = 72
Top = 36 Top = 33
Width = 94 Width = 87
Height = 21 Height = 20
Date = 41256.918237847230000000 Date = 41256.918237847230000000
Time = 41256.918237847230000000 Time = 41256.918237847230000000
TabOrder = 2 TabOrder = 2
end end
object P_CodeName: TEdit object P_CodeName: TEdit
Tag = 2 Tag = 2
Left = 392 Left = 362
Top = 10 Top = 9
Width = 97 Width = 89
Height = 20 Height = 21
TabOrder = 3 TabOrder = 3
OnChange = FactoryName10Change OnChange = FactoryName10Change
end end
object P_spec: TEdit object P_spec: TEdit
Tag = 2 Tag = 2
Left = 392 Left = 362
Top = 36 Top = 33
Width = 97 Width = 89
Height = 20 Height = 21
TabOrder = 4 TabOrder = 4
OnChange = FactoryName10Change OnChange = FactoryName10Change
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 18 Left = 17
Top = 37 Top = 34
Width = 59 Width = 54
Height = 18 Height = 17
Caption = #25353#26085#26399 Caption = #25353#26085#26399
Checked = True Checked = True
State = cbChecked State = cbChecked
@ -247,30 +247,30 @@ object frmYFCRSave: TfrmYFCRSave
end end
object QtyStr: TEdit object QtyStr: TEdit
Tag = 1 Tag = 1
Left = 531 Left = 490
Top = 10 Top = 9
Width = 96 Width = 89
Height = 20 Height = 21
TabOrder = 6 TabOrder = 6
OnChange = FactoryName10Change OnChange = FactoryName10Change
end end
object MoneyStr: TEdit object MoneyStr: TEdit
Tag = 1 Tag = 1
Left = 531 Left = 490
Top = 36 Top = 33
Width = 96 Width = 89
Height = 20 Height = 21
TabOrder = 7 TabOrder = 7
OnChange = FactoryName10Change OnChange = FactoryName10Change
end end
object KPType: TComboBox object KPType: TComboBox
Tag = 2 Tag = 2
Left = 702 Left = 648
Top = 36 Top = 33
Width = 101 Width = 93
Height = 21 Height = 20
Style = csDropDownList Style = csDropDownList
ItemHeight = 13 ItemHeight = 12
TabOrder = 8 TabOrder = 8
OnChange = FactoryName10Change OnChange = FactoryName10Change
Items.Strings = ( Items.Strings = (
@ -280,10 +280,10 @@ object frmYFCRSave: TfrmYFCRSave
end end
object YunDanNo: TEdit object YunDanNo: TEdit
Tag = 2 Tag = 2
Left = 247 Left = 228
Top = 36 Top = 33
Width = 100 Width = 92
Height = 20 Height = 21
TabOrder = 9 TabOrder = 9
OnChange = FactoryName10Change OnChange = FactoryName10Change
OnKeyPress = YunDanNoKeyPress OnKeyPress = YunDanNoKeyPress
@ -291,16 +291,16 @@ object frmYFCRSave: TfrmYFCRSave
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 98 Top = 92
Width = 1324 Width = 1332
Height = 566 Height = 581
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
OnMouseDown = Tv2MouseDown OnMouseDown = Tv2MouseDown
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
NavigatorButtons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
DataController.DataSource = DS_HZ DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -388,7 +388,7 @@ object frmYFCRSave: TfrmYFCRSave
Properties.OnButtonClick = v2Column8PropertiesButtonClick Properties.OnButtonClick = v2Column8PropertiesButtonClick
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True VisibleForCustomization = False
Width = 114 Width = 114
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
@ -552,7 +552,7 @@ object frmYFCRSave: TfrmYFCRSave
Properties.OnEditValueChanged = v2Column7PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column7PropertiesEditValueChanged
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True VisibleForCustomization = False
Width = 64 Width = 64
end end
object VOrderNo: TcxGridDBColumn object VOrderNo: TcxGridDBColumn
@ -567,8 +567,8 @@ object frmYFCRSave: TfrmYFCRSave
Properties.ReadOnly = True Properties.ReadOnly = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False Options.Editing = False
VisibleForCustomization = False
Width = 99 Width = 99
end end
object v2Column11: TcxGridDBColumn object v2Column11: TcxGridDBColumn

17
云翔财务(Money.dll)/U_YFCRSave.pas
View File

@ -12,7 +12,22 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit; cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
cxNavigator;
type type
TfrmYFCRSave = class(TForm) TfrmYFCRSave = class(TForm)

2
生产计划单(DyeingFinishingPlan.dll)/U_JYJT_New.pas
View File

@ -413,7 +413,7 @@ begin
sql.Add(fwhere + ') temp_row'); sql.Add(fwhere + ') temp_row');
sql.Add(' where rownumber> ' + inttostr((CurrentPage - 1) * RecordsNumber)); sql.Add(' where rownumber> ' + inttostr((CurrentPage - 1) * RecordsNumber));
sql.Add(' order by LBID,Filltime desc'); sql.Add(' order by LBID,Filltime desc');
ShowMessage(SQL.Text); // ShowMessage(SQL.Text);
Open; Open;
end; end;