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

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-30 15:56:27 +08:00
parent d5dff01f67
commit 2544965bf7
25 changed files with 5095 additions and 139 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
云翔一码通/U_GetDllForm.pas
View File

@ -13,7 +13,7 @@ function ConnData(): Boolean;
implementation
uses
U_DataLink, U_YMTRKList;
U_DataLink, U_YMTRKList, U_YMTFHSQList;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -120,10 +120,10 @@ begin
211: //发货申请
begin
if frmYMTRKList = nil then
if frmYMTFHSQList = nil then
begin
frmYMTRKList := TfrmYMTRKList.Create(application.MainForm);
with frmYMTRKList do
frmYMTFHSQList := TfrmYMTFHSQList.Create(application.MainForm);
with frmYMTFHSQList do
begin
caption := Trim(Title);
FormStyle := mstyle;
@ -133,9 +133,9 @@ begin
end;
end
else
frmYMTRKList.BringToFront;
frmYMTFHSQList.BringToFront;
//句柄
mnewHandle := frmYMTRKList.Handle;
mnewHandle := frmYMTFHSQList.Handle;
end;
end;

437
云翔一码通/U_YMTFHSQInPut.dfm Normal file
View File

@ -0,0 +1,437 @@
object frmFHSQInPut: TfrmFHSQInPut
Left = 566
Top = 255
Width = 1113
Height = 664
Caption = #21457#36135#30003#35831#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1105
Height = 29
ButtonHeight = 30
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
Images = DataLink_YXYMT.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 79
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 29
Width = 1105
Height = 111
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Color = clBtnFace
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
Tag = 1
Left = 33
Top = 12
Width = 90
Height = 17
Caption = #20986#24211#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Tag = 1
Left = 39
Top = 78
Width = 84
Height = 17
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Tag = 1
Left = 380
Top = 12
Width = 90
Height = 17
Caption = #25910#36135#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Tag = 1
Left = 380
Top = 43
Width = 90
Height = 17
Caption = #30003#35831#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Tag = 1
Left = 51
Top = 43
Width = 72
Height = 17
Caption = #19994#21153#21592#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CRType: TComboBox
Tag = 1
Left = 115
Top = 8
Width = 250
Height = 25
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 17
ParentFont = False
TabOrder = 0
Items.Strings = (
#38144#21806#20869#38144
#21152#24037#20869#38144
#38144#21806#22806#38144
#21152#24037#22806#38144
#21152#24037#20986#24211
#20854#20182#20986#24211)
end
object Note: TEdit
Tag = 1
Left = 115
Top = 75
Width = 714
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 4
end
object SHDanWei: TBtnEditC
Tag = 1
Left = 455
Top = 7
Width = 373
Height = 26
Hint = 'KHNo'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 1
OnBtnUpClick = SHDanWeiBtnUpClick
OnBtnDnClick = SHDanWeiBtnDnClick
end
object SQDate: TDateTimePicker
Tag = 1
Left = 455
Top = 39
Width = 130
Height = 25
BevelInner = bvNone
Date = 43473.670856296290000000
Format = 'yyyy-MM-dd'
Time = 43473.670856296290000000
Checked = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 2
end
object Salesman: TBtnEditC
Tag = 1
Left = 115
Top = 38
Width = 135
Height = 26
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 3
OnBtnUpClick = SalesmanBtnUpClick
OnBtnDnClick = SalesmanBtnDnClick
end
end
object ToolBar2: TToolBar
Left = 0
Top = 140
Width = 1105
Height = 29
ButtonHeight = 30
ButtonWidth = 95
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
Images = DataLink_YXYMT.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #35745#21010#21333
ImageIndex = 57
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 99
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 113
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 169
Width = 1105
Height = 464
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1PRTColor
end
item
Kind = skSum
Column = v1Column5
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = DataLink_YXYMT.Default
Styles.Inactive = DataLink_YXYMT.SHuangSe
Styles.IncSearch = DataLink_YXYMT.SHuangSe
Styles.Selection = DataLink_YXYMT.SHuangSe
Styles.Header = DataLink_YXYMT.Default
object v1Column14: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'SCConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 130
end
object v1Column6: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'MXPrtName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 110
end
object v1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'MXPrtColor'
HeaderAlignmentHorz = taCenter
Width = 95
end
object v1Column2: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'MXPrtHX'
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1PRTColor: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'SQPS'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_YXYMT.Default
Width = 115
end
object v1Column4: TcxGridDBColumn
Caption = #30003#35831#25968#37327'(M)'
DataBinding.FieldName = 'SQQtyM'
Width = 125
end
object v1Column3: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'CPType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1Column10: TcxGridDBColumn
Caption = #36153#29992#21517#31216
DataBinding.FieldName = 'FeeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = v1Column10PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 107
end
object v1Column5: TcxGridDBColumn
Caption = #36153#29992#37329#39069
DataBinding.FieldName = 'FeeMoney'
HeaderAlignmentHorz = taCenter
Width = 106
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ADOTemp: TADOQuery
Connection = DataLink_YXYMT.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 200
Top = 65533
end
object ADOCmd: TADOQuery
Connection = DataLink_YXYMT.ADOLink
Parameters = <>
Left = 168
Top = 65533
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 768
Top = 392
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 728
Top = 392
end
object ADOQuery1: TADOQuery
Connection = DataLink_YXYMT.ADOLink
Parameters = <>
Left = 136
Top = 65533
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 688
Top = 392
end
end

545
云翔一码通/U_YMTFHSQInPut.pas Normal file
View File

@ -0,0 +1,545 @@
unit U_YMTFHSQInPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinDarkRoom,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters, dxSkinscxPCPainter, 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,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmFHSQInPut = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
ToolBar2: TToolBar;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
v1PRTColor: TcxGridDBColumn;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
v1Column14: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
Label1: TLabel;
CRType: TComboBox;
Note: TEdit;
Label12: TLabel;
Label11: TLabel;
SHDanWei: TBtnEditC;
v1Column6: TcxGridDBColumn;
Label2: TLabel;
SQDate: TDateTimePicker;
Label5: TLabel;
Salesman: TBtnEditC;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
ToolButton3: TToolButton;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure SHDanWeiBtnUpClick(Sender: TObject);
procedure SHDanWeiBtnDnClick(Sender: TObject);
procedure ShouKuanKeyPress(Sender: TObject; var Key: Char);
procedure SalesmanBtnUpClick(Sender: TObject);
procedure SalesmanBtnDnClick(Sender: TObject);
procedure v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton3Click(Sender: TObject);
private
fuserName: string;
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
function SaveData(): Boolean;
{ Private declarations }
public
PState, CopyInt: Integer;
FMainId, FFMainId, ChkStr, ConPriceStr: string;
FXS: Integer;
FZZType: string;
{ Public declarations }
end;
var
frmFHSQInPut: TfrmFHSQInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_YMTKHList, U_YMTOrderSel, U_YMTGYSList;
{$R *.dfm}
procedure TfrmFHSQInPut.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('发货申请录入1', Tv1, '发货管理');
end;
procedure TfrmFHSQInPut.InitData();
var
fsj: string;
begin
// fsj:='select Name=ZdyName from KH_Zdy where Type=''ClothType'' ';
// SInitComBoxBySql(ADOTemp,ClothType,False,fsj);
if PState = 0 then
begin
Salesman.Text := dname;
SQDate.DateTime := SGetServerDate10(ADOTemp);
end;
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select A.* from YMT_FHSQ_Sub A');
if PState = 1 then
begin
sql.Add('where FSId=''' + Trim(FMainId) + '''');
end;
if PState = 0 then
begin
sql.Add(' where 1<>1');
end;
Open;
end;
SCreateCDS20(ADOQuery1, Order_Sub);
SInitCDSData20(ADOQuery1, Order_Sub);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select A.* from YMT_FHSQ_Main A');
sql.Add(' where FSId=''' + Trim(FMainId) + ''' ');
Open;
end;
SCSHDataNew(ADOQuery1, ScrollBox1, 1);
end;
procedure TfrmFHSQInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
var
FType, ZDYName, FText: string;
begin
end;
procedure TfrmFHSQInPut.FormShow(Sender: TObject);
begin
readCxGrid('发货申请录入1', Tv1, '发货管理');
InitData();
end;
function TfrmFHSQInPut.SaveData(): Boolean;
var
maxno, maxmnno, FSSId: string;
fconNO, fmxType: string;
begin
try
ADOCmd.Connection.BeginTrans;
///保存主表
if Trim(FMainId) = '' then
begin
if GetLSNoHZ(ADOCmd, maxno, 'NK', 'YMT_FHSQ_Main', 3, 1, 3) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败!', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(FMainId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from YMT_FHSQ_Main where FSID=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('SQType').Value := '成品';
FieldByName('FSID').Value := Trim(maxno);
RTSetsavedata(ADOCmd, 'YMT_FHSQ_Main', ScrollBox1, 1);
if Trim(FMainId) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
Post;
end;
FMainId := Trim(maxno);
///保存子表
Order_Sub.DisableControls;
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SSId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'SS', 'YMT_FHSQ_Sub', 4, 1) = False then
begin
Order_Sub.EnableControls;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取子流水号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(Order_Sub.fieldbyname('SSId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YMT_FHSQ_Sub ');
sql.Add(' where SSId=''' + Trim(maxno) + '''');
Open;
end;
if ADOCmd.IsEmpty then
begin
FSSId := '';
end
else
begin
FSSId := Trim(maxno);
end;
with ADOCmd do
begin
if Trim(FSSId) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('FSID').Value := Trim(FMainId);
FieldByName('SSID').Value := Trim(maxno);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'YMT_FHSQ_Sub', 0);
FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value;
FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value;
FieldByName('SSConMainId').Value := Order_Sub.fieldbyname('SSConMainId').Value;
FieldByName('SSConSubId').Value := Order_Sub.fieldbyname('SSConSubId').Value;
FieldByName('FHPrice').Value := Order_Sub.fieldbyname('FHPrice').Value;
FieldByName('BZType').Value := Order_Sub.fieldbyname('BZType').Value;
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SSID').Value := Trim(maxno);
Next;
end;
end;
Order_Sub.EnableControls;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update YMT_FHSQ_Main Set ');
sql.Add('SQPSHZ=(select Sum(SQPS) from YMT_FHSQ_Sub A where A.FSID=YMT_FHSQ_Main.FSID)');
sql.Add(',SQQtyHZM=(select Sum(SQQtyM) from YMT_FHSQ_Sub A where A.FSID=YMT_FHSQ_Main.FSID)');
sql.Add('where FSID=''' + Trim(FMainId) + '''');
ExecSQL;
end;
ADOCmd.Connection.CommitTrans;
Result := True;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
Result := False;
end;
end;
procedure TfrmFHSQInPut.TBSaveClick(Sender: TObject);
var
Freal: Double;
begin
ToolBar1.SetFocus;
if Trim(CRType.Text) = '' then
begin
Application.MessageBox('出库类型不能为空！', '提示', 0);
Exit;
end;
if Order_Sub.IsEmpty then
begin
Application.MessageBox('明细不能为空！', '提示', 0);
Exit;
end;
if Order_Sub.Locate('SQPS', null, []) = True then
begin
Application.MessageBox('申请匹数不能为空！', '提示', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
end;
end;
procedure TfrmFHSQInPut.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
if Trim(Order_Sub.fieldbyname('SSId').AsString) <> '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YMT_FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
sql.add(' and isnull(FHPS,0)>0');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete YMT_FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
ExecSQL;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update YMT_FHSQ_Main Set ');
sql.Add('SQPSHZ=(select Sum(SQPS) from YMT_FHSQ_Sub A where A.FSID=YMT_FHSQ_Main.FSID)');
sql.Add('where FSID=''' + Trim(FMainId) + '''');
ExecSQL;
end;
end;
Order_Sub.Delete;
end;
procedure TfrmFHSQInPut.SHDanWeiBtnUpClick(Sender: TObject);
begin
if CRType.Text = '加工出库' then
begin
try
frmGYSList := TfrmGYSList.Create(Application);
with frmGYSList do
begin
if ShowModal = 1 then
begin
Self.SHDanWei.Text := Trim(Order_Main.fieldbyname('KHNameJC').AsString);
Self.SHDanWei.TxtCode := Trim(Order_Main.fieldbyname('KHNo').AsString);
Self.Salesman.Text := Trim(Order_Main.fieldbyname('YWY').AsString);
end;
end;
finally
frmGYSList.Free;
end;
end
else
begin
try
frmKHList_CX := TfrmKHList_CX.Create(Application);
with frmKHList_CX do
begin
// if self.canshu1 <> '高权限' then
// canshu1 := '业务员';
if ShowModal = 1 then
begin
Self.SHDanWei.Text := Trim(CDS_HZ.fieldbyname('KHNameJC').AsString);
Self.SHDanWei.TxtCode := Trim(CDS_HZ.fieldbyname('KHNo').AsString);
Self.Salesman.Text := Trim(CDS_HZ.fieldbyname('YWY').AsString);
end;
end;
finally
frmKHList_CX.Free;
end;
end;
end;
procedure TfrmFHSQInPut.SHDanWeiBtnDnClick(Sender: TObject);
begin
SHDanWei.Text := '';
end;
procedure TfrmFHSQInPut.ShouKuanKeyPress(Sender: TObject; var Key: Char);
begin
if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then
begin
Key := #0;
end
else if (pos('.', TEdit(Sender).text) <> 0) then
begin
if Key = '.' then
begin
Key := #0;
end;
end;
end;
procedure TfrmFHSQInPut.SalesmanBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'Salesman';
flagname := '业务员';
if ShowModal = 1 then
begin
Self.Salesman.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.SalesmanBtnDnClick(Sender: TObject);
begin
Salesman.Text := '';
end;
procedure TfrmFHSQInPut.v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'FeeName';
flagname := '费用名称';
if ShowModal = 1 then
begin
with Order_Sub do
begin
Edit;
FieldByName('FeeName').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.ToolButton3Click(Sender: TObject);
begin
try
frmOrderSel := TfrmOrderSel.Create(Application);
with frmOrderSel do
begin
FKHNo := Trim(SHDanWei.TxtCode);
// FTT := Trim(FHTaiTou.text);
if ShowModal = 1 then
begin
while frmOrderSel.CDS_Main.Locate('SSel', true, []) do
begin
if Trim(Self.SHDanWei.Text) = '' then
begin
SHDanWei.TxtCode := Trim(frmOrderSel.CDS_Main.fieldbyname('KHNO').AsString);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Main where KHNO=''' + Trim(SHDanWei.TxtCode) + '''');
open;
end;
SHDanWei.Text := Trim(ADOQueryTemp.fieldbyname('KHNameJC').AsString);
end;
// if Trim(Self.FHTaiTou.Text) = '' then
// begin
// FHTaiTou.Text := Trim(frmOrderSel.CDS_Main.fieldbyname('SYRName').AsString);
// end;
if Self.Order_Sub.Locate('SubId;CPType', VarArrayOf([Trim(frmOrderSel.CDS_Main.fieldbyname('SubId').AsString), Trim(frmOrderSel.CDS_Main.fieldbyname('CPType').AsString)]), []) = False then
begin
with Self.Order_Sub do
begin
Append;
FieldByName('MainId').Value := frmOrderSel.CDS_Main.fieldbyname('MainId').Value;
FieldByName('SubId').Value := frmOrderSel.CDS_Main.fieldbyname('SubId').Value;
FieldByName('MXPrtName').Value := Trim(frmOrderSel.CDS_Main.fieldbyname('MLCodeName').AsString);
FieldByName('MXPrtColor').Value := Trim(frmOrderSel.CDS_Main.fieldbyname('MLColor').AsString);
FieldByName('MXPrtHX').Value := Trim(frmOrderSel.CDS_Main.fieldbyname('MLHX').AsString);
FieldByName('SCConNo').Value := Trim(frmOrderSel.CDS_Main.fieldbyname('MLOrderNo').AsString);
// CRType.Text := Trim(frmOrderSel.CDS_Main.fieldbyname('CRType').AsString);
CRType.ItemIndex := CRType.Items.IndexOf(trim(frmOrderSel.CDS_Main.fieldbyname('CRType').AsString));
FieldByName('CPType').Value := '成品';
FieldByName('SQPS').Value := 0;
FieldByName('SQQtyM').Value := 0;
FieldByName('BZType').Value := frmOrderSel.CDS_Main.fieldbyname('BZType').Value;
FieldByName('FHPrice').Value := frmOrderSel.CDS_Main.fieldbyname('MLPrice').Value;
FieldByName('FeeName').Value := frmOrderSel.CDS_Main.fieldbyname('FeeName').Value;
FieldByName('FeeMoney').Value := frmOrderSel.CDS_Main.fieldbyname('FeeMoney').Value;
Post;
end;
end;
frmOrderSel.CDS_Main.Delete;
end;
end;
end;
finally
frmOrderSel.Free;
end;
end;
end.

886
云翔一码通/U_YMTFHSQList.dfm Normal file
View File

@ -0,0 +1,886 @@
object frmYMTFHSQList: TfrmYMTFHSQList
Left = 635
Top = 231
Width = 1308
Height = 679
Caption = #21457#36135#30003#35831
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1300
AutoSize = True
ButtonHeight = 30
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
Images = DataLink_YXYMT.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBAdd: TToolButton
Left = 79
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 1
OnClick = TBAddClick
end
object TBEdit: TToolButton
Left = 158
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 11
OnClick = TBEditClick
end
object ToolButton2: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #25209#37327#20462#25913
ImageIndex = 11
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 356
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 58
OnClick = ToolButton1Click
end
object TBDel: TToolButton
Left = 435
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 3
OnClick = TBDelClick
end
object tchk: TToolButton
Left = 514
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 75
OnClick = tchkClick
end
object Tnochk: TToolButton
Left = 593
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 52
OnClick = TnochkClick
end
object TBPrint: TToolButton
Left = 712
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 4
OnClick = TBPrintClick
end
object TBClose: TToolButton
Left = 791
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 109
Width = 1300
Height = 281
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column18
end
item
Kind = skSum
Column = v1Column19
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
OptionsView.Indicator = True
Styles.Content = DataLink_YXYMT.Default
Styles.Inactive = DataLink_YXYMT.SHuangSe
Styles.IncSearch = DataLink_YXYMT.SHuangSe
Styles.Selection = DataLink_YXYMT.SHuangSe
Styles.Header = DataLink_YXYMT.Default
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
Visible = False
HeaderAlignmentHorz = taCenter
Width = 49
end
object v1Column6: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 58
end
object v1Column8: TcxGridDBColumn
Caption = #30003#35831#21333#21495
DataBinding.FieldName = 'FSID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object v1Column21: TcxGridDBColumn
Caption = #21457#36135#25260#22836
DataBinding.FieldName = 'FHTaiTou'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object v1Column3: TcxGridDBColumn
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'CRType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 105
end
object v1Column10: TcxGridDBColumn
Caption = #25910#36135#21333#20301
DataBinding.FieldName = 'SHDanWei'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 107
end
object v1OrdPerson1: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Salesman'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Styles.Header = DataLink_YXYMT.Default
Width = 81
end
object v1OrdDate: TcxGridDBColumn
Caption = #30003#35831#21457#36135#26085#26399
DataBinding.FieldName = 'SQDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Styles.Header = DataLink_YXYMT.Default
Width = 141
end
object v1Column2: TcxGridDBColumn
Caption = #23454#38469#21457#36135#26085#26399
DataBinding.FieldName = 'FHDate'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 146
end
object v1Column11: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'SQPSHZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object v1Column1: TcxGridDBColumn
Caption = #30003#35831#20154
DataBinding.FieldName = 'Filler'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object v1Column13: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'Chker'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object v1Column17: TcxGridDBColumn
Caption = #23457#26680#26085#26399
DataBinding.FieldName = 'ChkTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object v1Column18: TcxGridDBColumn
Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'FHPSHZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 101
end
object v1Column19: TcxGridDBColumn
Caption = #21457#36135#31859#25968
DataBinding.FieldName = 'FHQtyHZM'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object v1Column7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
Options.Editing = False
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1300
Height = 77
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 23
Top = 15
Width = 72
Height = 17
Caption = #30003#35831#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 274
Top = 15
Width = 72
Height = 17
Caption = #25910#36135#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 292
Top = 45
Width = 54
Height = 17
Caption = #19994#21153#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 85
Top = 45
Width = 10
Height = 17
Caption = '-'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 469
Top = 45
Width = 72
Height = 17
Caption = #23457#26680#29366#24577
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 94
Top = 11
Width = 125
Height = 25
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
OnChange = BegDateChange
end
object EndDate: TDateTimePicker
Left = 94
Top = 41
Width = 126
Height = 25
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 1
OnChange = BegDateChange
end
object SHDanWei: TEdit
Tag = 2
Left = 348
Top = 11
Width = 98
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 2
OnKeyPress = SHDanWeiKeyPress
end
object Salesman: TEdit
Tag = 2
Left = 348
Top = 41
Width = 96
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 3
OnKeyPress = SHDanWeiKeyPress
end
object ComboBox1: TComboBox
Tag = 7
Left = 543
Top = 41
Width = 101
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 17
ItemIndex = 0
ParentFont = False
TabOrder = 4
OnChange = ComboBox1Change
Items.Strings = (
''
#26410#23457#26680
#24050#23457#26680)
end
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 390
Width = 1300
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
Control = cxGrid2
end
object cxGrid2: TcxGrid
Left = 0
Top = 398
Width = 1300
Height = 250
Align = alBottom
TabOrder = 4
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
Styles.Content = DataLink_YXYMT.Default
Styles.Inactive = DataLink_YXYMT.SHuangSe
Styles.IncSearch = DataLink_YXYMT.SHuangSe
Styles.Selection = DataLink_YXYMT.SHuangSe
Styles.Header = DataLink_YXYMT.Default
object v2Column2: TcxGridDBColumn
Caption = #25351#31034#21333#21495
DataBinding.FieldName = 'SCConNo'
HeaderAlignmentHorz = taCenter
Width = 102
end
object v2Column12: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'MXPrtName'
HeaderAlignmentHorz = taCenter
Width = 92
end
object v2Column9: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'MXPrtColor'
HeaderAlignmentHorz = taCenter
Width = 89
end
object v2Column10: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'MXPrtHX'
HeaderAlignmentHorz = taCenter
Width = 89
end
object v2Column6: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'CPType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column5: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'SQPS'
HeaderAlignmentHorz = taCenter
Width = 107
end
object v2Column1: TcxGridDBColumn
Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'FHPS'
HeaderAlignmentHorz = taCenter
Width = 105
end
object v2Column3: TcxGridDBColumn
Caption = #21457#36135#31859#25968
DataBinding.FieldName = 'FHMQty'
HeaderAlignmentHorz = taCenter
Width = 126
end
object v2Column4: TcxGridDBColumn
Caption = #36153#29992#21517#31216
DataBinding.FieldName = 'FeeName'
HeaderAlignmentHorz = taCenter
Width = 100
end
object v2Column5: TcxGridDBColumn
Caption = #36153#29992#37329#39069
DataBinding.FieldName = 'FeeMoney'
HeaderAlignmentHorz = taCenter
Width = 98
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object Panel3: TPanel
Left = 488
Top = 188
Width = 234
Height = 97
Color = clSkyBlue
TabOrder = 5
Visible = False
object Label25: TLabel
Left = 24
Top = 12
Width = 48
Height = 12
Caption = #20986#24211#31867#22411
end
object btnChk: TButton
Left = 28
Top = 57
Width = 60
Height = 25
Caption = #30830#35748
TabOrder = 0
OnClick = btnChkClick
end
object Button3: TButton
Left = 160
Top = 57
Width = 60
Height = 25
Caption = #20851#38381
TabOrder = 1
OnClick = Button3Click
end
object CRType: TComboBox
Tag = 1
Left = 79
Top = 8
Width = 139
Height = 25
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 17
ParentFont = False
TabOrder = 2
Items.Strings = (
#38144#21806#20869#38144
#21152#24037#20869#38144
#38144#21806#22806#38144
#21152#24037#22806#38144
#21152#24037#20986#24211
#20854#20182#20986#24211)
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 1000
Top = 184
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_YXYMT.ADOLink
Parameters = <>
Left = 488
Top = 152
end
object ADOQueryMain: TADOQuery
Connection = DataLink_YXYMT.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 652
Top = 144
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_YXYMT.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 684
Top = 144
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 968
Top = 184
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 532
Top = 320
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
Left = 312
Top = 256
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 375
Top = 184
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_YXYMT.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 280
Top = 256
end
object CDS_Print: TClientDataSet
Aggregates = <>
Params = <>
Left = 216
Top = 200
end
object ADOQuerySub: TADOQuery
Connection = DataLink_YXYMT.ADOLink
Parameters = <>
Left = 720
Top = 144
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 464
Top = 504
end
object ClientDataSet2: TClientDataSet
Aggregates = <>
Params = <>
Left = 496
Top = 504
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 528
Top = 504
end
object CDS_Note: TClientDataSet
Aggregates = <>
Params = <>
Left = 408
Top = 184
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 352
Top = 256
ReportData = {}
end
object CDSUser: TClientDataSet
Aggregates = <>
Params = <>
Left = 440
Top = 240
end
object IdHTTP1: TIdHTTP
MaxLineAction = maException
ReadTimeout = 0
AllowCookies = True
ProxyParams.BasicAuthentication = False
ProxyParams.ProxyPort = 0
Request.ContentLength = -1
Request.ContentRangeEnd = 0
Request.ContentRangeStart = 0
Request.ContentType = 'text/html'
Request.Accept = 'text/html, */*'
Request.BasicAuthentication = False
Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
HTTPOptions = [hoForceEncodeParams]
Left = 660
Top = 308
end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
end

722
云翔一码通/U_YMTFHSQList.pas Normal file
View File

@ -0,0 +1,722 @@
unit U_YMTFHSQList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
RM_E_llPDF, cxDropDownEdit, cxTextEdit, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinSpringTime, dxSkinsDefaultPainters, dxSkinscxPCPainter,
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,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmYMTFHSQList = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
v1OrdDate: TcxGridDBColumn;
v1OrdPerson1: TcxGridDBColumn;
Order_Main: TClientDataSet;
RMDB_Main: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
ToolButton1: TToolButton;
ADOQueryPrint: TADOQuery;
CDS_Print: TClientDataSet;
v1Column4: TcxGridDBColumn;
Panel1: TPanel;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
SHDanWei: TEdit;
Salesman: TEdit;
tchk: TToolButton;
Tnochk: TToolButton;
cxSplitter1: TcxSplitter;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
v1Column8: TcxGridDBColumn;
Label2: TLabel;
//RMllPDFExport1: TRMllPDFExport;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
v1Column5: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ClientDataSet2: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
CDS_Note: TClientDataSet;
v2Column2: TcxGridDBColumn;
RM1: TRMGridReport;
v1Column11: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v2Column9: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
v2Column12: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
CDSUser: TClientDataSet;
IdHTTP1: TIdHTTP;
v2Column6: TcxGridDBColumn;
ComboBox1: TComboBox;
Label3: TLabel;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
v1Column3: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
ToolButton2: TToolButton;
Panel3: TPanel;
Label25: TLabel;
btnChk: TButton;
Button3: TButton;
CRType: TComboBox;
v1Column6: TcxGridDBColumn;
//RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure tchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ComboBox1Change(Sender: TObject);
procedure BegDateChange(Sender: TObject);
procedure SHDanWeiKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure btnChkClick(Sender: TObject);
private
procedure InitGrid();
procedure InitSubGrid();
procedure InitForm();
function DelData(): Boolean;
procedure SendMessage(Mfsid: string);
{ Private declarations }
public
FFInt: Integer;
canshu1, FZZType: string;
{ Public declarations }
end;
var
frmYMTFHSQList: TfrmYMTFHSQList;
implementation
uses
U_DataLink, U_YMTFHSQInPut, U_Fun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmYMTFHSQList.SendMessage(Mfsid: string);
begin
if FZZType = '纬编' then
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from SY_User A where ISNULL(wxid,'''')<>''''');
SQL.Add(' and exists( select * from SY_Purview X where A.UserID=X.UserID and ModuleID=''09'' and ModuleSubID=''03'' ) ');
Open;
end;
end
else
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from SY_User A where ISNULL(wxid,'''')<>''''');
SQL.Add(' and exists( select * from SY_Purview X where A.UserID=X.UserID and ModuleID=''09'' and ModuleSubID=''13'' ) ');
Open;
end;
end;
SCreateCDS20(ADOQueryTemp, CDSUser);
SInitCDSData20(ADOQueryTemp, CDSUser);
// if ADOQueryTmp.IsEmpty then
// begin
// Application.MessageBox('客户未绑定微信,提交失败！','提示信息',0);
// Exit;
// end;
CDSUser.First;
while not CDSUser.Eof do
begin
try
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('select * from WeixinMessage where 1<>1');
Open;
Append;
FieldByName('MessageType').Value := 'DeliverApplyToAudit';
FieldByName('MessageName').Value := '发货申请审核';
FieldByName('Title').Value := '您有新的发货申请需要审核';
FieldByName('URL').Value := 'pages/delivery-apply/view?id=' + Trim(Mfsid);
FieldByName('OpenId').Value := Trim(CDSUser.FieldByName('wxid').AsString);
FieldByName('Status').Value := '0';
FieldByName('CreateDate').Value := FormatDateTime('yyyymmdd', SGetServerDateTime(ADOQueryTemp));
FieldByName('CreateTime').Value := FormatDateTime('HH:mm:ss', SGetServerDateTime(ADOQueryTemp));
FieldByName('BusinessId').Value := Trim(Mfsid);
FieldByName('KeyWord1').Value := Trim(Mfsid);
FieldByName('KeyWord2').Value := '发货申请';
Post;
end;
//GetHTTP(IdHTTP1, 'http://www.rightsoft.top/linghui/api/Message/Send/DeliverApplyToAudit');
except
Application.MessageBox('推送失败', '提示', 0);
Exit;
end;
CDSUser.Next;
end;
end;
procedure TfrmYMTFHSQList.FormDestroy(Sender: TObject);
begin
frmYMTFHSQList := nil;
end;
procedure TfrmYMTFHSQList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmYMTFHSQList.FormCreate(Sender: TObject);
begin
cxgrid1.Align := alClient;
canshu1 := DParameters1;
end;
procedure TfrmYMTFHSQList.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('发货申请YX', Tv1, '发货申请管理');
WriteCxGrid('发货申请YXMX', Tv2, '发货申请管理');
end;
procedure TfrmYMTFHSQList.InitGrid();
var
fwhere, Pwhere: string;
begin
Pwhere := SGetFilters(Panel1, 1, 2);
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
Sql.Add(' select A.* from YMT_FHSQ_Main A');
sql.Add(' where 1=1 ');
sql.Add(' and filltime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and filltime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
if ComboBox1.Text = '未审核' then
begin
SQL.Add(' and isnull(A.Chker,'''')='''' ');
end
else if ComboBox1.Text = '已审核' then
begin
SQL.Add(' and isnull(A.Chker,'''')<>'''' ');
end;
if Trim(canshu1) <> '高权限' then
begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end;
if Pwhere <> '' then
sql.Add(' and ' + Pwhere);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmYMTFHSQList.InitForm();
begin
ReadCxGrid('发货申请YX', Tv1, '发货申请管理');
ReadCxGrid('发货申请YXMX', Tv2, '发货申请管理');
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime;
InitGrid();
end;
procedure TfrmYMTFHSQList.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if trim(Order_Main.fieldbyname('Chker').AsString) <> '' then
begin
application.MessageBox('已审核数据无法删除！', '提示信息');
exit;
end;
if Trim(canshu1) <> '高权限' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from YMT_FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
Exit;
end;
try
frmFHSQInPut := TfrmFHSQInPut.Create(Application);
with frmFHSQInPut do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
FZZType := trim(self.FZZType);
if ShowModal = 1 then
begin
end;
end;
finally
frmFHSQInPut.Free;
end;
end;
procedure TfrmYMTFHSQList.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if trim(Order_Main.fieldbyname('Chker').AsString) <> '' then
begin
application.MessageBox('已审核数据无法删除！', '提示信息');
exit;
end;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YMT_FHSQ_Sub where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
sql.add(' and isnull(FHPS,0)>0');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from YMT_FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能删除!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
Order_Main.Delete;
InitSubGrid();
end;
end;
function TfrmYMTFHSQList.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete YMT_FHSQ_Sub where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete YMT_FHSQ_Main where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmYMTFHSQList.TBPrintClick(Sender: TObject);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if Order_Main.IsEmpty then
Exit;
with ADOQueryPrint do
begin
Close;
sql.Clear;
Sql.Add(' select A.*,B.* ');
sql.Add(' from YMT_FHSQ_Main A inner join YMT_FHSQ_Sub B on A.FSId=B.FSId ');
sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
open;
// showmessage(sql.text);
end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布发货申请单.rmf';
if FileExists(fPrintFile) then
begin
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(Order_Main.fieldbyname('FSID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
exit;
end;
RMVariables['QRBARCODE'] := fImagePath;
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\坯布发货申请单.rmf'), '提示', 0);
end;
end;
procedure TfrmYMTFHSQList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
InitSubGrid();
end;
procedure TfrmYMTFHSQList.TBAddClick(Sender: TObject);
var
maxno: string;
begin
try
frmFHSQInPut := TfrmFHSQInPut.Create(Application);
with frmFHSQInPut do
begin
PState := 0;
FMainId := '';
FZZType := trim(self.FZZType);
if ShowModal = 1 then
begin
end;
end;
finally
frmFHSQInPut.Free;
end;
InitGrid();
end;
procedure TfrmYMTFHSQList.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmYMTFHSQList.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYMTFHSQList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmYMTFHSQList.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmFHSQInPut := TfrmFHSQInPut.Create(Application);
with frmFHSQInPut do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
FZZType := trim(self.FZZType);
ToolBar2.Visible := False;
TBSave.Visible := False;
ScrollBox1.Enabled := False;
Tv1.OptionsSelection.CellSelect := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmFHSQInPut.Free;
end;
end;
procedure TfrmYMTFHSQList.tchkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if trim(Order_Main.fieldbyname('Chker').AsString) <> '' then
begin
application.MessageBox('已审核数据无需审核！', '提示信息');
exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from KH_Main ');
sql.Add('where KHNO=' + quotedstr(trim(Order_Main.fieldbyname('KHNO').AsString)));
open;
end;
if trim(ADOQueryTemp.fieldbyname('status').AsString) <> '1' then
begin
application.MessageBox('客户未审核', '提示信息');
exit;
end;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update YMT_FHSQ_Main SET Chker=''' + Trim(DName) + ''',ChkTime=getdate(),ChkStatus=''审核通过'' ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('审核成功！', '提示信息');
except
application.MessageBox('审核失败！', '提示信息', 0);
end;
end;
procedure TfrmYMTFHSQList.InitSubGrid();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty = False then
sql.Add('select * from YMT_FHSQ_Sub A where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''')
else
sql.Add('select * from YMT_FHSQ_Sub A where 1=2');
Open;
end;
SCreateCDS20(ADOQueryTemp, ClientDataSet2);
SInitCDSData20(ADOQueryTemp, ClientDataSet2);
end;
procedure TfrmYMTFHSQList.TnochkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if trim(Order_Main.fieldbyname('Chker').AsString) = '' then
begin
application.MessageBox('当前数据未审核！', '提示信息');
exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from YMT_FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能撤销!', '提示', 0);
Exit;
end;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update YMT_FHSQ_Main SET Chker=Null,ChkTime=Null,ChkStatus=Null ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('撤销成功！', '提示信息');
except
application.MessageBox('撤销失败！', '提示信息', 0);
end;
end;
procedure TfrmYMTFHSQList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from YMT_FHSQ_Sub A ');
sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
Open;
end;
SCreateCDS20(ADOQueryTemp, ClientDataSet2);
SInitCDSData20(ADOQueryTemp, ClientDataSet2);
end;
procedure TfrmYMTFHSQList.ComboBox1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYMTFHSQList.BegDateChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYMTFHSQList.SHDanWeiKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
InitGrid();
end;
procedure TfrmYMTFHSQList.ToolButton2Click(Sender: TObject);
begin
Panel3.Visible := True;
end;
procedure TfrmYMTFHSQList.Button3Click(Sender: TObject);
begin
Panel3.Visible := False;
end;
procedure TfrmYMTFHSQList.btnChkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
application.MessageBox('请选择数据！', '提示信息');
exit;
end;
try
while Order_Main.Locate('SSel', True, []) do
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update YMT_FHSQ_Main SET CRType=' + quotedstr(trim(CRType.Text)));
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
execsql;
end;
with Order_Main do
begin
Edit;
FieldByName('SSel').Value := False;
FieldByName('CRType').Value := trim(CRType.Text);
Post;
end;
end;
Panel3.Visible := False;
application.MessageBox('审核成功！', '提示信息');
except
application.MessageBox('审核失败！', '提示信息', 0);
end;
end;
end.

289
云翔一码通/U_YMTGYSList.dfm Normal file
View File

@ -0,0 +1,289 @@
object frmGYSList: TfrmGYSList
Left = 189
Top = 135
Width = 1125
Height = 686
Caption = #20379#24212#21830#26597#35810
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1117
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_DeliveryApplication.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = TBFindClick
end
object ToolButton3: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 10
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 72
Width = 1117
Height = 583
Align = alClient
TabOrder = 1
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Selection = cxStyle1
Styles.Header = DataLink_DeliveryApplication.Default
object v1KHNo: TcxGridDBColumn
Caption = #20379#24212#21830#32534#21495
DataBinding.FieldName = 'KHNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 134
end
object v1Column6: TcxGridDBColumn
Caption = #20379#24212#21830#31616#31216
DataBinding.FieldName = 'KHNameJC'
HeaderAlignmentHorz = taCenter
Width = 145
end
object v1KHLXR: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'KHLXR'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 113
end
object v1Column1: TcxGridDBColumn
Caption = #20379#24212#21830#31867#22411
DataBinding.FieldName = 'KHType'
HeaderAlignmentHorz = taCenter
Width = 114
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1117
Height = 40
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
object Label9: TLabel
Left = 227
Top = 15
Width = 65
Height = 12
Caption = #20379#24212#21830#31616#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 19
Top = 15
Width = 65
Height = 12
Caption = #20379#24212#21830#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label34: TLabel
Left = 437
Top = 15
Width = 78
Height = 12
Caption = #20379#24212#21830#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object KHNameJC: TEdit
Tag = 2
Left = 294
Top = 11
Width = 125
Height = 20
TabOrder = 0
OnChange = CustomerNoNameChange
end
object KHNo: TEdit
Tag = 2
Left = 86
Top = 11
Width = 125
Height = 20
TabOrder = 1
OnChange = CustomerNoNameChange
end
object KHType: TBtnEditC
Tag = 1
Left = 510
Top = 11
Width = 121
Height = 20
ReadOnly = True
TabOrder = 2
OnBtnUpClick = KHTypeBtnUpClick
OnBtnDnClick = KHTypeBtnDnClick
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 488
Top = 160
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DeliveryApplication.ADOLink
Parameters = <>
Left = 552
Top = 160
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DeliveryApplication.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 520
Top = 160
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 352
Top = 160
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 416
Top = 160
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBDataSet1
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 320
Top = 160
ReportData = {}
end
object RMDBDataSet1: TRMDBDataSet
Visible = True
Left = 384
Top = 160
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 456
Top = 160
end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont]
Color = 4707838
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
end

329
云翔一码通/U_YMTGYSList.pas Normal file
View File

@ -0,0 +1,329 @@
unit U_YMTGYSList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinSpringTime, dxSkinsDefaultPainters, dxSkinscxPCPainter,
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, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmGYSList = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
DataSource1: TDataSource;
Order_Main: TClientDataSet;
RM1: TRMGridReport;
RMDBDataSet1: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
ToolButton3: TToolButton;
Panel1: TPanel;
Label9: TLabel;
KHNameJC: TEdit;
v1KHNo: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
Label2: TLabel;
KHNo: TEdit;
v1Column1: TcxGridDBColumn;
Label34: TLabel;
KHType: TBtnEditC;
v1KHLXR: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure KHTypeBtnDnClick(Sender: TObject);
procedure KHTypeBtnUpClick(Sender: TObject);
private
DQdate: TDateTime;
XZKHTYpe, canshu1: string;
procedure InitGrid();
procedure InitForm();
function DelData(): Boolean;
{ Private declarations }
public
FFInt, FCloth: Integer;
{ Public declarations }
end;
var
frmGYSList: TfrmGYSList;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmGYSList.FormDestroy(Sender: TObject);
begin
frmGYSList := nil;
end;
procedure TfrmGYSList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmGYSList.FormCreate(Sender: TObject);
begin
cxgrid1.Align := alClient;
end;
procedure TfrmGYSList.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('供应商登记', Tv1, '供应商管理');
end;
procedure TfrmGYSList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select *,zjm=dbo.getpinyin(KHName) ');
sql.Add(' from KH_Main A ');
sql.Add(' where isnull(KHFlag,'''')=''GYS'' and isnull(Valid,'''')=''Y''');
{if Trim(canshu1)<>'高权限' then
begin
SQL.Add(' and A.FZR like '''+'%'+trim(DName)+'%'+'''');
end;}
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
TBFind.Click;
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmGYSList.InitForm();
begin
ReadCxGrid(self.Caption, Tv1, '贸易生产管理');
KHType.Visible := true;
label34.Visible := true;
canshu1 := Trim(DParameters1);
InitGrid();
end;
procedure TfrmGYSList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmGYSList.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Trim(canshu1) = '' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
end;
procedure TfrmGYSList.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
Order_Main.Delete;
end;
end;
function TfrmGYSList.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId=''' + Trim(Order_Main.fieldbyname('ZKId').AsString) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmGYSList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmGYSList.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmGYSList.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmGYSList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmGYSList.N1Click(Sender: TObject);
var
fPrintFile: string;
Porderno: string;
begin
if Order_Main.IsEmpty then
Exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\生产指示单10.rmf';
SDofilter(ADOQueryMain, ' OrderNoM=''' + Trim(Order_Main.fieldbyname('OrderNoM').AsString) + '''');
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
Porderno := Trim(Order_Main.fieldbyname('OrderNoM').AsString);
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\生产指示单10.rmf'), '提示', 0);
end;
SDofilter(ADOQueryMain, '');
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
Order_Main.Locate('ordernoM', Porderno, []);
end;
procedure TfrmGYSList.N2Click(Sender: TObject);
var
fPrintFile: string;
Porderno: string;
begin
if Order_Main.IsEmpty then
Exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\生产指示单.rmf';
SDofilter(ADOQueryMain, ' OrderNoM=''' + Trim(Order_Main.fieldbyname('OrderNoM').AsString) + '''');
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
Porderno := Trim(Order_Main.fieldbyname('OrderNoM').AsString);
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\生产指示单.rmf'), '提示', 0);
end;
SDofilter(ADOQueryMain, '');
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
Order_Main.Locate('ordernoM', Porderno, []);
end;
procedure TfrmGYSList.ToolButton3Click(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmGYSList.CustomerNoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmGYSList.Tv1DblClick(Sender: TObject);
begin
ToolButton3.Click;
end;
procedure TfrmGYSList.KHTypeBtnDnClick(Sender: TObject);
begin
KHType.Text := '';
KHType.TxtCode := '';
end;
procedure TfrmGYSList.KHTypeBtnUpClick(Sender: TObject);
begin
TBFind.Click;
end;
end.

605
云翔一码通/U_YMTKHList.dfm Normal file
View File

@ -0,0 +1,605 @@
object frmKHList_CX: TfrmKHList_CX
Left = 467
Top = 330
Width = 1222
Height = 672
Caption = #23458#25143#20449#24687#31649#29702
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1214
Height = 31
ButtonHeight = 30
ButtonWidth = 65
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_DeliveryApplication.ThreeImgList
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_DeliveryApplication.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object Tadd: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 31
Visible = False
OnClick = TaddClick
end
object TBRafresh: TToolButton
Left = 69
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 138
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 207
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 31
Width = 1214
Height = 35
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object Label5: TLabel
Left = 172
Top = 10
Width = 32
Height = 15
Caption = #31616#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 7
Width = 44
Height = 21
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 507
Top = 10
Width = 64
Height = 15
Caption = #23457#26680#29366#24577
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object LabKHType: TLabel
Left = 674
Top = 10
Width = 32
Height = 15
Caption = #31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 811
Top = 10
Width = 48
Height = 15
Caption = #19994#21153#21592
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 961
Top = 10
Width = 48
Height = 15
Caption = #29702#21333#21592
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 317
Top = 10
Width = 82
Height = 15
Caption = #21306#22495'('#22269#23478')'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object zjm: TEdit
Tag = 2
Left = 60
Top = 6
Width = 90
Height = 23
TabOrder = 0
OnChange = zjmChange
end
object KHNameJC: TEdit
Tag = 2
Left = 205
Top = 6
Width = 89
Height = 23
TabOrder = 1
OnChange = zjmChange
end
object SHStatus: TComboBox
Tag = 2
Left = 571
Top = 6
Width = 81
Height = 23
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 15
ParentFont = False
TabOrder = 2
OnChange = zjmChange
Items.Strings = (
#26410#23457#26680
#24050#23457#26680
'')
end
object KHType: TComboBox
Tag = 1
Left = 710
Top = 6
Width = 79
Height = 23
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 15
ParentFont = False
TabOrder = 3
Items.Strings = (
#22806#38144
#20869#38144
'')
end
object YWY: TComboBox
Tag = 1
Left = 861
Top = 6
Width = 79
Height = 23
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 15
ParentFont = False
TabOrder = 4
Items.Strings = (
#22806#38144
#20869#38144
'')
end
object LiDan: TComboBox
Tag = 1
Left = 1010
Top = 6
Width = 79
Height = 23
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 15
ParentFont = False
TabOrder = 5
Items.Strings = (
#22806#38144
#20869#38144
'')
end
object KHQuYu: TEdit
Tag = 2
Left = 398
Top = 6
Width = 89
Height = 23
TabOrder = 6
OnChange = zjmChange
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 66
Width = 1214
Height = 413
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object TV1: TcxGridDBTableView
OnMouseDown = TV1MouseDown
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
OnCellDblClick = TV1CellDblClick
DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = DataLink_DeliveryApplication.Default
Styles.Inactive = DataLink_DeliveryApplication.SHuangSe
Styles.IncSearch = DataLink_DeliveryApplication.SHuangSe
Styles.Selection = DataLink_DeliveryApplication.SHuangSe
Styles.Header = DataLink_DeliveryApplication.Default
object V1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 57
end
object V1Column2: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'KHType'
OnCustomDrawCell = V1Column2CustomDrawCell
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle1
Width = 70
end
object V1Column1: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'KHNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 80
end
object cxGYSName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'KHName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 200
end
object cxGridDBGYSNameZC: TcxGridDBColumn
Caption = #31616#31216
DataBinding.FieldName = 'KHNameJC'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 92
end
object V1Column3: TcxGridDBColumn
Caption = #21306#22495'('#22269#23478')'
DataBinding.FieldName = 'KHQuYu'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 181
end
object B1GYSFZRen: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'KHLXR'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 74
end
object cxGridDBGYSTel: TcxGridDBColumn
Caption = #25163#26426
DataBinding.FieldName = 'KHTel'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 173
end
object V1SHStatus: TcxGridDBColumn
Caption = #23457#26680#29366#24577
DataBinding.FieldName = 'SHStatus'
OnCustomDrawCell = V1SHStatusCustomDrawCell
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 101
end
object V1FZR: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'YWY'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 76
end
object V1Column5: TcxGridDBColumn
Caption = #29702#21333#21592
DataBinding.FieldName = 'LiDan'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 82
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV1
end
end
object cxGrid3: TcxGrid
Left = 0
Top = 479
Width = 1214
Height = 162
Align = alBottom
PopupMenu = PopupMenu3
TabOrder = 3
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
OnCellDblClick = TV3CellDblClick
DataController.DataSource = DS_HZ3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
Styles.Content = DataLink_DeliveryApplication.Default
Styles.Inactive = DataLink_DeliveryApplication.SHuangSe
Styles.IncSearch = DataLink_DeliveryApplication.SHuangSe
Styles.Selection = DataLink_DeliveryApplication.SHuangSe
Styles.Header = DataLink_DeliveryApplication.Default
object V3Column2: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'BankType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 127
end
object V3BankName: TcxGridDBColumn
Caption = #25143#21517
DataBinding.FieldName = 'HuMing'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 211
end
object V3BankNo: TcxGridDBColumn
Caption = #36134#21495
DataBinding.FieldName = 'BankNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 229
end
object V3Column3: TcxGridDBColumn
Caption = #24320#25143#34892
DataBinding.FieldName = 'BankName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 250
end
object V3Column1: TcxGridDBColumn
Caption = #31246#21495
DataBinding.FieldName = 'ShuiHao'
HeaderAlignmentHorz = taCenter
Width = 226
end
end
object cxGridLevel3: TcxGridLevel
GridView = TV3
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DeliveryApplication.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 786
Top = 112
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DeliveryApplication.ADOLink
Parameters = <>
Left = 794
Top = 103
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DeliveryApplication.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 787
Top = 96
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 780
Top = 145
end
object DS_HZ: TDataSource
DataSet = CDS_HZ
Left = 814
Top = 144
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 848
Top = 144
end
object DS_HZ3: TDataSource
DataSet = CDS_HZ3
Left = 855
Top = 486
end
object CDS_HZ3: TClientDataSet
Aggregates = <>
Params = <>
Left = 886
Top = 489
end
object cxGridPopupMenu4: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 918
Top = 491
end
object PopupMenu1: TPopupMenu
Left = 750
Top = 144
object TBAddBank: TMenuItem
Caption = #22686#21152#36134#21495
end
object MainEdit: TMenuItem
Caption = #20462#25913
end
object MainView: TMenuItem
Caption = #26597#30475
end
end
object PopupMenu3: TPopupMenu
Left = 824
Top = 488
object BankEdit: TMenuItem
Caption = #20462#25913#36134#21495
end
object BankDel: TMenuItem
Caption = #21024#38500#36134#21495
end
object BankView: TMenuItem
Caption = #26597#30475#36134#21495
end
object TBFJUp: TMenuItem
Caption = #19978#20256#24320#31080#36164#26009
Visible = False
end
object TBFJView: TMenuItem
Caption = #26597#30475#24320#31080#36164#26009
Visible = False
end
end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
end

339
云翔一码通/U_YMTKHList.pas Normal file
View File

@ -0,0 +1,339 @@
unit U_YMTKHList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, Menus, BtnEdit, Buttons,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
dxSkinscxPCPainter,
cxNavigator, 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,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmKHList_CX = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
zjm: TEdit;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
Tadd: TToolButton;
Label5: TLabel;
KHNameJC: TEdit;
DS_HZ3: TDataSource;
CDS_HZ3: TClientDataSet;
cxGridPopupMenu4: TcxGridPopupMenu;
Label2: TLabel;
Label4: TLabel;
SHStatus: TComboBox;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
V1Column4: TcxGridDBColumn;
V1Column1: TcxGridDBColumn;
cxGYSName: TcxGridDBColumn;
cxGridDBGYSNameZC: TcxGridDBColumn;
B1GYSFZRen: TcxGridDBColumn;
cxGridDBGYSTel: TcxGridDBColumn;
V1SHStatus: TcxGridDBColumn;
V1FZR: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
PopupMenu1: TPopupMenu;
MainEdit: TMenuItem;
MainView: TMenuItem;
PopupMenu3: TPopupMenu;
BankEdit: TMenuItem;
BankDel: TMenuItem;
BankView: TMenuItem;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
V3Column2: TcxGridDBColumn;
V3BankName: TcxGridDBColumn;
V3BankNo: TcxGridDBColumn;
V3Column3: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
V1Column2: TcxGridDBColumn;
LabKHType: TLabel;
KHType: TComboBox;
V1Column3: TcxGridDBColumn;
V1Column5: TcxGridDBColumn;
Label3: TLabel;
YWY: TComboBox;
Label8: TLabel;
LiDan: TComboBox;
TBAddBank: TMenuItem;
V3Column1: TcxGridDBColumn;
Label1: TLabel;
KHQuYu: TEdit;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
TBFJUp: TMenuItem;
TBFJView: TMenuItem;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure zjmChange(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure TV1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure V1Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure V1SHStatusCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure TaddClick(Sender: TObject);
procedure TV3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private
{ Private declarations }
ColorInt: Integer;
procedure InitGrid();
procedure setstatus();
procedure InitGridBankMain();
procedure InitGridBankMainID(FID: string);
public
canshu1, canshu2, FGYSType: string;
end;
var
frmKHList_CX: TfrmKHList_CX;
implementation
uses
U_DataLink, U_Fun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmKHList_CX.setstatus();
begin
end;
procedure TfrmKHList_CX.InitGrid();
begin
with ADOQueryMain do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select *,zjm=dbo.getpinyin(KHName) ');
sql.add(',SHStatus=(case when isnull(status,''0'')=''0'' then ''未审核'' else ''已审核'' end)');
sql.Add(' from KH_Main A ');
sql.add(' where isnull(KHFlag,'''')=''KH'' and isnull(Valid,'''')=''Y'' ');
if Trim(canshu1) = '录入' then
begin
sql.Add(' and exists(select * from KH_Owner B where B.KHMainId=A.KHMainId and B.UserName=''' + Trim(DName) + ''')');
end;
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain, CDS_HZ);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Sub_Bank where KHMainid=''' + Trim(CDS_HZ.fieldbyname('KHMainid').asstring) + ''' and isnull(Valid,'''')=''Y''');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ3);
SInitCDSData20(ADOQueryTemp, CDS_HZ3);
end;
procedure TfrmKHList_CX.FormDestroy(Sender: TObject);
begin
frmKHList_CX := nil;
end;
procedure TfrmKHList_CX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmKHList_CX.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('PBGYS11YX', Tv1, '客户管理');
WriteCxGrid('PBGYS31YX', Tv3, '客户管理');
Close;
end;
procedure TfrmKHList_CX.FormShow(Sender: TObject);
var
fsj: string;
begin
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);
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);
ReadCxGrid('PBGYS11YX', Tv1, '客户管理');
ReadCxGrid('PBGYS31YX', Tv3, '客户管理');
setstatus();
InitGrid();
end;
procedure TfrmKHList_CX.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus;
InitGrid();
end;
procedure TfrmKHList_CX.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain, CDS_HZ);
end;
end;
procedure TfrmKHList_CX.zjmChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmKHList_CX.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(self.Caption, cxgrid1);
end;
procedure TfrmKHList_CX.cxTabControl1Change(Sender: TObject);
begin
setstatus();
InitGrid();
end;
procedure TfrmKHList_CX.TV1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
InitGridBankMain();
end;
procedure TfrmKHList_CX.InitGridBankMain();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Sub_Bank where KHMainid=''' + Trim(CDS_HZ.fieldbyname('KHMainid').asstring) + '''');
if CDS_HZ.IsEmpty then
begin
sql.Add(' and 1=2');
end
else
begin
sql.Add(' and valid=''Y'' ');
end;
sql.Add(' order by XH');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ3);
SInitCDSData20(ADOQueryTemp, CDS_HZ3);
end;
procedure TfrmKHList_CX.InitGridBankMainID(FID: string);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Sub_Bank where KHMainid=''' + Trim(FID) + '''');
if CDS_HZ.IsEmpty then
begin
sql.Add(' and 1=2');
end
else
begin
sql.Add(' and valid=''Y'' ');
end;
sql.Add(' order by XH');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ3);
SInitCDSData20(ADOQueryTemp, CDS_HZ3);
end;
procedure TfrmKHList_CX.TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if CDS_HZ.IsEmpty then
Exit;
if CDS_HZ3.IsEmpty then
begin
Tadd.Click;
end;
end;
procedure TfrmKHList_CX.V1Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
id: Integer;
begin
id := TV1.GetColumnByFieldName('KHType').Index;
if AViewInfo.GridRecord.Values[id] = '外销' then
begin
ACanvas.Font.Color := clBlue;
end;
end;
procedure TfrmKHList_CX.V1SHStatusCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
id: Integer;
begin
id := TV1.GetColumnByFieldName('SHStatus').Index;
if AViewInfo.GridRecord.Values[id] = '未审核' then
begin
ACanvas.Font.Color := clRed;
end;
end;
procedure TfrmKHList_CX.TaddClick(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
ModalResult := 1;
end;
procedure TfrmKHList_CX.TV3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if CDS_HZ3.IsEmpty = false then
TADD.Click;
end;
end.

461
云翔一码通/U_YMTOrderSel.dfm Normal file
View File

@ -0,0 +1,461 @@
object frmOrderSel: TfrmOrderSel
Left = 603
Top = 319
Width = 1328
Height = 687
Caption = #35745#21010#21333#36873#25321
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1320
AutoSize = True
ButtonHeight = 30
ButtonWidth = 73
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
Images = DataLink_DeliveryApplication.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 24
OnClick = TBRafreshClick
end
object ToolButton1: TToolButton
Left = 77
Top = 0
AutoSize = True
Caption = #30830#35748
ImageIndex = 10
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 154
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1320
Height = 70
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 25
Top = 14
Width = 72
Height = 17
Caption = #19979#21333#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 473
Top = 41
Width = 72
Height = 17
Caption = #25351#31034#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 239
Top = 14
Width = 76
Height = 17
Caption = #23458' '#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 473
Top = 14
Width = 74
Height = 17
Caption = #21512' '#21516' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 613
Top = 119
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 239
Top = 41
Width = 72
Height = 17
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 525
Top = 88
Width = 52
Height = 12
Caption = #23457#26680#29366#24577
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object BegDate: TDateTimePicker
Left = 100
Top = 10
Width = 123
Height = 25
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 100
Top = 37
Width = 123
Height = 25
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object MLOrderNo: TEdit
Tag = 2
Left = 552
Top = 37
Width = 120
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnChange = KHNameHZChange
OnKeyPress = MLOrderNoKeyPress
end
object KHNameHZ: TEdit
Tag = 2
Left = 317
Top = 10
Width = 140
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnChange = KHNameHZChange
end
object MLConNo: TEdit
Tag = 2
Left = 552
Top = 10
Width = 120
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnChange = KHNameHZChange
OnKeyPress = MLConNoKeyPress
end
object MPRTKZ: TEdit
Tag = 2
Left = 654
Top = 99
Width = 56
Height = 20
TabOrder = 5
end
object MLCodeName: TEdit
Tag = 2
Left = 317
Top = 37
Width = 139
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnChange = KHNameHZChange
OnKeyPress = MLCodeNameKeyPress
end
object status: TComboBox
Tag = 2
Left = 581
Top = 87
Width = 103
Height = 20
ItemHeight = 12
TabOrder = 7
Visible = False
Items.Strings = (
#26410#23457#26680
#24050#23457#26680
#24050#23436#25104
'')
end
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 648
Width = 1320
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
Visible = False
end
object cxGrid2: TcxGrid
Left = 0
Top = 102
Width = 1320
Height = 546
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = DataLink_DeliveryApplication.Default
Styles.Inactive = DataLink_DeliveryApplication.SHuangSe
Styles.IncSearch = DataLink_DeliveryApplication.SHuangSe
Styles.Selection = DataLink_DeliveryApplication.SHuangSe
Styles.Header = DataLink_DeliveryApplication.Default
object v1Column2: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object v1Column5: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'KHName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 160
end
object v1Column1: TcxGridDBColumn
Caption = #25351#31034#21333#21495
DataBinding.FieldName = 'MLOrderNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 108
end
object v2Column1: TcxGridDBColumn
Caption = #20013#25991#21517#31216
DataBinding.FieldName = 'MLCodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 101
end
object v2Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'MLColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 95
end
object v1Column4: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'MLHX'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object v1Column7: TcxGridDBColumn
Caption = #36153#29992#21517#31216
DataBinding.FieldName = 'FeeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 98
end
object v1Column8: TcxGridDBColumn
Caption = #36153#29992#37329#39069
DataBinding.FieldName = 'FeeMoney'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
object Tv1Column1: TcxGridDBColumn
Caption = #38144#21806#31867#22411
DataBinding.FieldName = 'CRType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1Column2: TcxGridDBColumn
Caption = #21457#36135#25260#22836
DataBinding.FieldName = 'SYRName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 200
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 493
Top = 249
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DeliveryApplication.ADOLink
Parameters = <>
Left = 393
Top = 240
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DeliveryApplication.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 305
Top = 232
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DeliveryApplication.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 240
Top = 255
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 625
Top = 353
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 573
Top = 352
end
object PopupMenu1: TPopupMenu
Left = 366
Top = 179
object N2: TMenuItem
Caption = #20840#36873
OnClick = N2Click
end
object N1: TMenuItem
Caption = #20840#24323
OnClick = N1Click
end
object N3: TMenuItem
Caption = #25490#21333
end
end
end

314
云翔一码通/U_YMTOrderSel.pas Normal file
View File

@ -0,0 +1,314 @@
unit U_YMTOrderSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxCheckBox, 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
TfrmOrderSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
MLOrderNo: TEdit;
CDS_Main: TClientDataSet;
Label4: TLabel;
KHNameHZ: TEdit;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
Label9: TLabel;
MLConNo: TEdit;
Label12: TLabel;
MPRTKZ: TEdit;
cxSplitter1: TcxSplitter;
MLCodeName: TEdit;
Label5: TLabel;
N1: TMenuItem;
Label7: TLabel;
status: TComboBox;
N3: TMenuItem;
ToolButton1: TToolButton;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure MLCodeNameKeyPress(Sender: TObject; var Key: Char);
procedure MLConNoKeyPress(Sender: TObject; var Key: Char);
procedure MLOrderNoKeyPress(Sender: TObject; var Key: Char);
procedure KHNameHZChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private
DQdate: TDateTime;
procedure InitGrid();
procedure InitForm();
{ Private declarations }
public
FFInt, FCloth: Integer;
canshu1, canshu2, canshu3: string;
fFlileFlag: string;
FKHNo, FTT: string;
{ Public declarations }
end;
var
frmOrderSel: TfrmOrderSel;
implementation
uses
U_DataLink, U_Fun;
{$R *.dfm}
procedure TfrmOrderSel.FormDestroy(Sender: TObject);
begin
frmOrderSel := nil;
end;
procedure TfrmOrderSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmOrderSel.FormCreate(Sender: TObject);
begin
DQdate := SGetServerDate(ADOQueryTemp);
canshu1 := trim(DParameters1);
canshu2 := trim(DdataBase);
end;
procedure TfrmOrderSel.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('生产指示单新YX', Tv1, '生产指示单管理');
end;
procedure TfrmOrderSel.InitGrid();
var
fwhere, Pwhere: string;
begin
Pwhere := SGetFilters(Panel1, 1, 2);
fwhere := ' where OrdDate>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
fwhere := fwhere + ' and OrdDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
if trim(Pwhere) <> '' then
fwhere := fwhere + ' and ' + trim(Pwhere);
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('SELECT AA.* FROM(');
sql.add('select A.* ,CPType=''成品'', C.NewMLID MainId, C. NewSubid SubId,C.MLColor,C.MLColorNo,C.MLHX,C.MLPrice,C.FeeName,C.FeeMoney');
sql.Add(',KHConNo=(select TOP 1 X.KHConNo from ML_ConMain X where X.MLConID=A.ConMainId)');
sql.Add(',CRType=(select TOP 1 X.ConType from ML_ConMain X where X.MLConID=A.ConMainId)');
sql.Add(',SYRName=(select TOP 1 X.SYRName from ML_ConMain X where X.MLConID=A.ConMainId)');
sql.Add(' from ML_OrderMainNew A ');
sql.Add(' inner join ML_OrderSubidNew C on A.NewMLID=C.NewMLID ');
sql.Add(' left join KH_Main KM on KM.KHNO=A.KHNO ');
sql.Add(')AA');
sql.Add(fwhere);
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmOrderSel.InitForm();
begin
ReadCxGrid('生产指示单新YX', Tv1, '生产指示单管理');
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime;
InitGrid();
end;
procedure TfrmOrderSel.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
SelExportData(Tv1, ADOQueryMain, '面料染色计划单');
end;
procedure TfrmOrderSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmOrderSel.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmOrderSel.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmOrderSel.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmOrderSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Main, false);
end;
procedure TfrmOrderSel.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Main, True);
end;
procedure TfrmOrderSel.MLCodeNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
InitGrid();
end;
procedure TfrmOrderSel.MLConNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
InitGrid();
end;
procedure TfrmOrderSel.MLOrderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
InitGrid();
end;
procedure TfrmOrderSel.KHNameHZChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain, CDS_Main);
end;
procedure TfrmOrderSel.ToolButton1Click(Sender: TObject);
var
FFKHName, FFTT: string;
begin
with CDS_Main do
begin
First;
FFKHName := '';
FFTT := '';
while not Eof do
begin
if CDS_Main.fieldbyname('SSel').AsBoolean = True then
begin
if (Trim(FFTT) = '') and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then
begin
FFTT := Trim(CDS_Main.fieldbyname('SYRName').AsString);
end;
if Trim(FFKHName) = '' then
begin
FFKHName := Trim(CDS_Main.fieldbyname('KHName').AsString);
end;
//同时选的生产单不能包含多个抬头
if (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> FFTT) and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then
begin
Application.MessageBox('不能选择多个抬头!', '提示', 0);
exit;
end;
//新选的抬头不能和已经选的抬头不同
if (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> FTT) and (FTT <> '') and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then
begin
Application.MessageBox('不能选择其它抬头!', '提示', 0);
exit;
end;
//同时选的生产单不能包含多个客户
if (Trim(CDS_Main.fieldbyname('KHName').AsString) <> FFKHName) then
begin
Application.MessageBox('不能选择多个客户!', '提示', 0);
exit;
end;
//新选的生产单不能和已经选的客户不同
if (Trim(CDS_Main.fieldbyname('KHNo').AsString) <> FKHNo) and (FKHNo <> '') then
begin
Application.MessageBox('不能选择其它客户!', '提示', 0);
exit;
end;
end;
Next;
end;
end;
ModalResult := 1;
end;
end.

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

@ -1,6 +1,6 @@
object frmYMTRKList: TfrmYMTRKList
Left = 453
Top = 212
Left = 478
Top = 392
Width = 1372
Height = 754
Caption = #38754#26009#22238#20179#30331#35760

2
发货申请(DeliveryApplication.dll)/DeliveryApplication.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\马国钢开发代码\项目代码\D7WMyunxiang\发货申请(DeliveryApplication.dll)\testDll.exe
HostApplication=E:\项目资料\00_重点客户\云翔\D7myYunxiang\发货申请(DeliveryApplication.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

2
发货申请(DeliveryApplication.dll)/DeliveryApplication.dpr
View File

@ -7,7 +7,7 @@ uses
WinTypes,
WinProcs,
U_GetDllForm in 'U_GetDllForm.pas',
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas',
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_DeliveryApplication: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},

79
发货申请(DeliveryApplication.dll)/U_DataLink.pas
View File

@ -4,39 +4,41 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
;
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
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,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
var
DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数}
DCurHandle:hwnd; //当前窗体句柄
DName:string ; //#用户名#//
DCode:string ; //#用户编号#//
Ddatabase:string; //#数据库名称#//
DTitCaption:string; //#主窗体名称#//
UserDataFlag:string;
DParameters1,DParameters2,DParameters3,DParameters4,DParameters5:string;// 外部参数；
DParameters6,DParameters7,DParameters8,DParameters9,DParameters10:string;//外部参数；
OldDllApp:Tapplication; //保存原有句柄
NewDllApp: Tapplication;//当前句柄
MainApplication: Tapplication ;
DFormCode:integer; //当前窗口号
IsDelphiLanguage:integer;
DServerDate:TdateTime; //服务器时间
DCompany:string; //公司
DConString: string; {全局连接字符串}
server, dtbase, user, pswd: string; {数据库连接参数}
DCurHandle: hwnd; //当前窗体句柄
DName: string; //#用户名#//
DCode: string; //#用户编号#//
Ddatabase: string; //#数据库名称#//
DTitCaption: string; //#主窗体名称#//
UserDataFlag: string;
DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // 外部参数；
DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //外部参数；
OldDllApp: Tapplication; //保存原有句柄
NewDllApp: Tapplication; //当前句柄
MainApplication: Tapplication;
DFormCode: integer; //当前窗口号
IsDelphiLanguage: integer;
DServerDate: TdateTime; //服务器时间
DCompany: string; //公司
type
TDataLink_DeliveryApplication = class(TDataModule)
AdoDataLink: TADOQuery;
@ -64,22 +66,21 @@ type
public
{ Public declarations }
end;
TMakebar = procedure(ucData:pchar;nDataLen:integer;nErrLevel:integer;nMask:integer;nBarEdition:integer;szBmpFileName:pchar;nScale:integer);stdcall;
TMixtext = procedure( szSrcBmpFileName:PChar;szDstBmpFileName:PChar;sztext:PChar;fontsize,txtheight,hmargin,vmargin,txtcntoneline:integer);stdcall;
TMakebar = procedure(ucData: pchar; nDataLen: integer; nErrLevel: integer; nMask: integer; nBarEdition: integer; szBmpFileName: pchar; nScale: integer); stdcall;
TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall;
var
DataLink_DeliveryApplication: TDataLink_DeliveryApplication;
implementation
{$R *.dfm}
procedure TDataLink_DeliveryApplication.DataModuleDestroy(Sender: TObject);
begin
DataLink_DeliveryApplication:=nil;
DataLink_DeliveryApplication := nil;
end;
end.

29
发货申请(DeliveryApplication.dll)/U_FHSQInPut.pas
View File

@ -10,20 +10,21 @@ uses
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters,
dxSkinscxPCPainter;
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinDarkRoom,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters, dxSkinscxPCPainter, 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,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmFHSQInPut = class(TForm)

28
发货申请(DeliveryApplication.dll)/U_FHSQList.pas
View File

@ -12,20 +12,20 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
RM_E_llPDF, cxDropDownEdit, cxTextEdit, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
dxSkinscxPCPainter;
cxNavigator, dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinSpringTime, dxSkinsDefaultPainters, dxSkinscxPCPainter,
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, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmFHSQList = class(TForm)

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

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\马国钢开发代码\项目代码\D7WMyunxiang\生产计划单(DyeingFinishingPlan.dll)\testDll.exe
HostApplication=E:\项目资料\00_重点客户\云翔\D7myYunxiang\生产计划单(DyeingFinishingPlan.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

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

@ -26,7 +26,7 @@ uses
U_SCColor in 'U_SCColor.pas' {frmSCColor},
U_ZdyAttachCP_HX_sel in 'U_ZdyAttachCP_HX_sel.pas' {frmZdyAttachCP_HX_Sel},
U_JYOrdColorList in 'U_JYOrdColorList.pas' {frmJYOrdColorList},
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas',
U_BPZdy_LRM in 'U_BPZdy_LRM.pas' {frmBPZDY_LRM};
{$R *.res}

28
生产计划单(DyeingFinishingPlan.dll)/U_DataLink.pas
View File

@ -5,20 +5,20 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
;
dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
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,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
var
DConString: string; {全局连接字符串}

4
生产计划单(DyeingFinishingPlan.dll)/U_GetDllForm.pas
View File

@ -74,7 +74,7 @@ begin
if trim(DataBaseStr) <> '' then
DConString := DataBaseStr;
// DParameters1 := '高权限';
// DParameters3:='1';
// DParameters3:='1';
if not ConnData() then
@ -88,7 +88,7 @@ begin
mstyle := fsMDIChild;
mstate := wsMaximized;
mborderstyle := bsSizeable;
end
end
else
begin
mstyle := fsNormal;

20
生产计划单(DyeingFinishingPlan.dll)/U_JYJT_New.dfm
View File

@ -1,6 +1,6 @@
object frmJYJT_New: TfrmJYJT_New
Left = -61
Top = 3
Left = 426
Top = 157
Width = 1556
Height = 823
Caption = #26816#39564#20449#24687#31649#29702
@ -20,7 +20,7 @@ object frmJYJT_New: TfrmJYJT_New
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1540
Width = 1548
AutoSize = True
ButtonHeight = 30
ButtonWidth = 115
@ -191,7 +191,7 @@ object frmJYJT_New: TfrmJYJT_New
object Panel1: TPanel
Left = 0
Top = 32
Width = 1540
Width = 1548
Height = 60
Align = alTop
BevelInner = bvRaised
@ -678,8 +678,8 @@ object frmJYJT_New: TfrmJYJT_New
object cxGrid1: TcxGrid
Left = 0
Top = 162
Width = 1540
Height = 622
Width = 1548
Height = 630
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@ -1150,13 +1150,13 @@ object frmJYJT_New: TfrmJYJT_New
object Panel6: TPanel
Left = 0
Top = 92
Width = 1540
Width = 1548
Height = 44
Align = alTop
BorderStyle = bsSingle
TabOrder = 5
DesignSize = (
1536
1544
40)
object LBCPAP: TLabel
Left = 398
@ -1344,7 +1344,7 @@ object frmJYJT_New: TfrmJYJT_New
object cxTabControl1: TcxTabControl
Left = 0
Top = 136
Width = 1540
Width = 1548
Height = 26
Align = alTop
Font.Charset = GB2312_CHARSET
@ -1365,7 +1365,7 @@ object frmJYJT_New: TfrmJYJT_New
' '#20840#37096' ')
OnChange = cxTabControl1Change
ClientRectBottom = 28
ClientRectRight = 1540
ClientRectRight = 1548
ClientRectTop = 28
end
object Panel5: TPanel

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

@ -12,7 +12,20 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic,
RM_e_Jpeg, RM_e_txt, RM_e_csv, RM_E_llPDF, Math, cxPC, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu;
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, 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
TfrmJYJT_New = class(TForm)
@ -400,7 +413,7 @@ begin
sql.Add(fwhere + ') temp_row');
sql.Add(' where rownumber> ' + inttostr((CurrentPage - 1) * RecordsNumber));
sql.Add(' order by LBID,Filltime desc');
// ShowMessage(SQL.Text);
ShowMessage(SQL.Text);
Open;
end;

64
生产计划单(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.dfm
View File

@ -21,7 +21,8 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1540
Width = 1548
Height = 62
AutoSize = True
ButtonHeight = 30
ButtonWidth = 112
@ -93,19 +94,20 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
AutoSize = True
Caption = #23548#20986
ImageIndex = 75
Wrap = True
OnClick = TBExportClick
end
object TBPrint: TToolButton
Left = 539
Top = 0
Left = 0
Top = 30
AutoSize = True
Caption = #25171#21360
ImageIndex = 4
OnClick = TBPrintClick
end
object Panel7: TPanel
Left = 616
Top = 0
Left = 77
Top = 30
Width = 76
Height = 30
BevelInner = bvRaised
@ -122,24 +124,24 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
end
end
object ToolButton4: TToolButton
Left = 692
Top = 0
Left = 153
Top = 30
AutoSize = True
Caption = #25171#21360'('#23567')'
ImageIndex = 14
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 808
Top = 0
Left = 269
Top = 30
AutoSize = True
Caption = #25171#21360'2'
ImageIndex = 14
OnClick = ToolButton5Click
end
object Tchk: TToolButton
Left = 895
Top = 0
Left = 356
Top = 30
AutoSize = True
Caption = #23457#26680
ImageIndex = 31
@ -147,8 +149,8 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
OnClick = TchkClick
end
object Tnochk: TToolButton
Left = 972
Top = 0
Left = 433
Top = 30
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 101
@ -156,16 +158,16 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
OnClick = TnochkClick
end
object ToolButton3: TToolButton
Left = 1087
Top = 0
Left = 548
Top = 30
AutoSize = True
Caption = #25490#21333
ImageIndex = 102
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 1164
Top = 0
Left = 625
Top = 30
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
@ -174,8 +176,8 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1540
Top = 62
Width = 1548
Height = 73
Align = alTop
BevelInner = bvRaised
@ -588,8 +590,8 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 781
Width = 1540
Top = 789
Width = 1548
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
@ -598,8 +600,8 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
end
object Panel2: TPanel
Left = 0
Top = 789
Width = 1540
Top = 797
Width = 1548
Height = 50
Align = alBottom
BevelOuter = bvNone
@ -608,7 +610,7 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1540
Width = 1548
Height = 50
Align = alClient
TabOrder = 0
@ -738,10 +740,10 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
end
end
object Panel3: TPanel
Left = 1444
Top = 105
Left = 1452
Top = 135
Width = 96
Height = 676
Height = 654
Align = alRight
Caption = 'Panel3'
TabOrder = 5
@ -773,7 +775,7 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
Left = 1
Top = 62
Width = 94
Height = 613
Height = 591
Align = alClient
PopupMenu = PopupMenu2
TabOrder = 1
@ -1045,9 +1047,9 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New
end
object Cxgrid1: TcxGrid
Left = 0
Top = 105
Width = 1444
Height = 676
Top = 135
Width = 1452
Height = 654
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 6

14
生产计划单(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.pas
View File

@ -26,7 +26,19 @@ uses
dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters,
dxSkinscxPCPainter;
dxSkinscxPCPainter, 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,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmProductOrderNewList_New = class(TForm)