~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
b4b5840f18
commit
f4eb7f81bc
|
|
@ -4,7 +4,21 @@ interface
|
|||
|
||||
uses
|
||||
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
|
||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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;
|
||||
var
|
||||
DConString:String; {全局连接字符串}
|
||||
server, dtbase, user, pswd: String; {数据库连接参数}
|
||||
|
|
|
|||
|
|
@ -82,6 +82,7 @@ begin
|
|||
// DParameters1:='1';
|
||||
// DataBase:='¼Ó¹¤³§';
|
||||
//DataBase:='¹ð»ª·ÄÖ¯';
|
||||
// DParameters4:='µÍȨÏÞ';
|
||||
if not ConnData() then
|
||||
begin
|
||||
result:=0;
|
||||
|
|
@ -114,6 +115,7 @@ begin
|
|||
caption:=Trim(Title);
|
||||
fkhType:=trim(DataBase);
|
||||
canshu1:=trim(DParameters1);
|
||||
FParameters4:=trim(DParameters4);
|
||||
FormStyle := mstyle ;
|
||||
windowState := mstate ;
|
||||
BorderStyle := mborderstyle;
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmZdyAttInput: TfrmZdyAttInput
|
||||
Left = -8
|
||||
Top = -8
|
||||
Left = 269
|
||||
Top = 229
|
||||
Width = 1382
|
||||
Height = 754
|
||||
Caption = #23458#25143#36164#26009#24405#20837
|
||||
|
|
@ -53,13 +53,13 @@ object frmZdyAttInput: TfrmZdyAttInput
|
|||
Left = 0
|
||||
Top = 31
|
||||
Width = 1366
|
||||
Height = 685
|
||||
Height = 684
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
object Tv2: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
NavigatorButtons.Delete.Enabled = False
|
||||
NavigatorButtons.Delete.Visible = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
DataController.DataSource = DS_HZ
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
|
|
|
|||
|
|
@ -5,14 +5,27 @@ 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,
|
||||
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;
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack,
|
||||
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||
dxSkinscxPCPainter, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmZdyAttInput = class(TForm)
|
||||
|
|
@ -54,31 +67,28 @@ type
|
|||
procedure FormShow(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure v2Column14PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
private
|
||||
{ Private declarations }
|
||||
procedure InitGrid();
|
||||
function SaveData(): Boolean;
|
||||
|
||||
public
|
||||
fkhType: string;
|
||||
{ Public declarations }
|
||||
RKFlag,FCYID:String;
|
||||
|
||||
RKFlag, FCYID: string;
|
||||
canshu1, canshu2,FParameters4: string;
|
||||
end;
|
||||
|
||||
var
|
||||
frmZdyAttInput: TfrmZdyAttInput;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun, U_ZDYHelp, U_WeiXinHelp;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
|
||||
procedure TfrmZdyAttInput.InitGrid();
|
||||
begin
|
||||
try
|
||||
|
|
@ -99,7 +109,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmZdyAttInput.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
//frmZdyAttInput:=nil;
|
||||
|
|
@ -115,6 +124,7 @@ begin
|
|||
WriteCxGrid('客户资料录入1', Tv2, '客户自定义');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmZdyAttInput.FormShow(Sender: TObject);
|
||||
begin
|
||||
ReadCxGrid('客户资料录入1', Tv2, '客户自定义');
|
||||
|
|
@ -122,6 +132,11 @@ begin
|
|||
if Trim(FCYID) = '' then
|
||||
begin
|
||||
CDS_HZ.Append;
|
||||
if trim(FParameters4) = '低权限' then
|
||||
begin
|
||||
CDS_HZ.FieldByName('DEFstr5').Value := Trim(DName);
|
||||
|
||||
end;
|
||||
CDS_HZ.Post;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -133,7 +148,7 @@ end;
|
|||
|
||||
function TfrmZdyAttInput.SaveData(): Boolean;
|
||||
var
|
||||
maxId,CRID:String;
|
||||
maxId, CRID: string;
|
||||
fzdyCode: string;
|
||||
begin
|
||||
try
|
||||
|
|
@ -147,7 +162,7 @@ begin
|
|||
Application.MessageBox('取最大号失败！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
IF trim(fkhType)='广东客户' then
|
||||
if trim(fkhType) = '广东客户' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, fzdyCode, 'KH', 'KH_Zdy_Attachment', 4, 0) = False then
|
||||
begin
|
||||
|
|
@ -157,8 +172,7 @@ begin
|
|||
Exit;
|
||||
end;
|
||||
end
|
||||
else
|
||||
IF trim(fkhType)='湖州客户' then
|
||||
else if trim(fkhType) = '湖州客户' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, fzdyCode, 'HZ', 'KH_Zdy_Attachment', 4, 0) = False then
|
||||
begin
|
||||
|
|
@ -198,7 +212,8 @@ begin
|
|||
Append;
|
||||
FieldByName('Filler').Value := Trim(DName);
|
||||
FieldByName('zdyCode').Value := Trim(fzdyCode);
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('Editer').Value := Trim(DName);
|
||||
|
|
@ -225,7 +240,8 @@ begin
|
|||
if Trim(FCYID) = '' then
|
||||
begin
|
||||
Append;
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
Edit;
|
||||
end;
|
||||
|
|
@ -288,7 +304,8 @@ begin
|
|||
Application.MessageBox('客户名称不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要保存数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
if Application.MessageBox('确定要保存数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
|
||||
if SaveData() then
|
||||
begin
|
||||
|
|
@ -297,9 +314,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
frmWeiXinHelp := TfrmWeiXinHelp.create(self);
|
||||
with frmWeiXinHelp do
|
||||
|
|
@ -317,3 +332,4 @@ begin
|
|||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -13,7 +13,20 @@ uses
|
|||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxDropDownEdit, strutils, cxCurrencyEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator;
|
||||
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||
dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmZdyAttInputCP = class(TForm)
|
||||
|
|
@ -392,7 +405,7 @@ begin
|
|||
begin
|
||||
mvalue := trim(mvalue) + '#';
|
||||
end;
|
||||
|
||||
// mvalue := trim(mvalue);
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Edit;
|
||||
|
|
@ -440,7 +453,7 @@ begin
|
|||
begin
|
||||
mvalue := trim(mvalue) + '#';
|
||||
end;
|
||||
|
||||
// mvalue := trim(mvalue) ;
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Edit;
|
||||
|
|
|
|||
|
|
@ -11,6 +11,7 @@ object frmZdyAttInputGYS: TfrmZdyAttInputGYS
|
|||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
|
|
|
|||
|
|
@ -12,7 +12,21 @@ uses
|
|||
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
||||
cxTextEdit, cxDropDownEdit, 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
|
||||
TfrmZdyAttInputGYS = class(TForm)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmZdyAttachment: TfrmZdyAttachment
|
||||
Left = -8
|
||||
Top = 0
|
||||
Left = 293
|
||||
Top = 214
|
||||
Width = 1378
|
||||
Height = 754
|
||||
Caption = #23458#25143#36164#26009#31649#29702
|
||||
|
|
@ -167,13 +167,13 @@ object frmZdyAttachment: TfrmZdyAttachment
|
|||
Left = 0
|
||||
Top = 70
|
||||
Width = 1362
|
||||
Height = 646
|
||||
Height = 645
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv2: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
NavigatorButtons.Delete.Enabled = False
|
||||
NavigatorButtons.Delete.Visible = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
DataController.DataSource = DS_HZ
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
|
|||
|
|
@ -5,14 +5,27 @@ 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,
|
||||
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, cxDBLookupComboBox;
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxDBLookupComboBox, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
|
||||
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
|
||||
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
||||
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
|
||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||||
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||||
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue, dxSkinscxPCPainter, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmZdyAttachment = class(TForm)
|
||||
|
|
@ -78,23 +91,21 @@ type
|
|||
|
||||
{ Private declarations }
|
||||
procedure InitGrid();
|
||||
|
||||
public
|
||||
fkhType: string;
|
||||
canshu1,canshu2:string;
|
||||
canshu1, canshu2,FParameters4: string;
|
||||
end;
|
||||
|
||||
var
|
||||
frmZdyAttachment: TfrmZdyAttachment;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttInput, U_ZdyInput;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
|
||||
procedure TfrmZdyAttachment.InitGrid();
|
||||
begin
|
||||
try
|
||||
|
|
@ -116,7 +127,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmZdyAttachment.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmZdyAttachment := nil;
|
||||
|
|
@ -132,10 +142,13 @@ begin
|
|||
WriteCxGrid('客户资料', Tv2, '客户自定义');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmZdyAttachment.TDelClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
if CDS_HZ.IsEmpty then
|
||||
Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
if Trim(CDS_HZ.fieldbyname('ATID').AsString) <> '' then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
|
|
@ -153,12 +166,14 @@ end;
|
|||
procedure TfrmZdyAttachment.FormShow(Sender: TObject);
|
||||
begin
|
||||
ReadCxGrid('客户资料', Tv2, '客户自定义');
|
||||
// DParameters4:=Trim(DParameters4);
|
||||
if trim(canshu1) = '查询' then
|
||||
begin
|
||||
Tadd.Visible := false;
|
||||
tedit.Visible := false;
|
||||
tdel.Visible := false;
|
||||
end;
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
|
|
@ -182,16 +197,25 @@ begin
|
|||
ToolButton2.Click;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmZdyAttachment.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then Exit;
|
||||
if ADOQueryMain.IsEmpty then
|
||||
Exit;
|
||||
TcxGridToExcel(self.Caption, cxgrid2);
|
||||
// SelExportData(Tv2,ADOQueryMain,'客户资料列表');
|
||||
end;
|
||||
|
||||
procedure TfrmZdyAttachment.TeditClick(Sender: TObject);
|
||||
begin
|
||||
if trim(DParameters4) = '低权限' then
|
||||
begin
|
||||
if Trim(CDS_HZ.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||
begin
|
||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
frmZdyAttInput := TfrmZdyAttInput.Create(Application);
|
||||
with frmZdyAttInput do
|
||||
|
|
@ -215,6 +239,8 @@ begin
|
|||
with frmZdyAttInput do
|
||||
begin
|
||||
fkhType := self.fkhType;
|
||||
canshu1 := self.canshu1;
|
||||
FParameters4:=Self.FParameters4;
|
||||
FCYID := '';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
|
@ -229,4 +255,3 @@ end;
|
|||
|
||||
end.
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmSKCR: TfrmSKCR
|
||||
Left = 212
|
||||
Top = 205
|
||||
Left = 442
|
||||
Top = 301
|
||||
Width = 1382
|
||||
Height = 754
|
||||
Caption = #25910#27454#31649#29702
|
||||
|
|
|
|||
217
应收应付/U_SKCR.pas
217
应收应付/U_SKCR.pas
|
|
@ -5,28 +5,27 @@ 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,
|
||||
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, 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;
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, 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
|
||||
TfrmSKCR = class(TForm)
|
||||
|
|
@ -100,27 +99,21 @@ type
|
|||
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
|
||||
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v2Column3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure v2Column4PropertiesEditValueChanged(Sender: TObject);
|
||||
procedure v2Column1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure VBBPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure OrderNoChange(Sender: TObject);
|
||||
procedure v2Column1PropertiesEditValueChanged(Sender: TObject);
|
||||
procedure v2DerateMoneyPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure v2SYRNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v2SYRNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure TsaveClick(Sender: TObject);
|
||||
procedure Panel2DblClick(Sender: TObject);
|
||||
procedure JZdateChange(Sender: TObject);
|
||||
procedure v2Column4PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure CheckBox1Click(Sender: TObject);
|
||||
private
|
||||
|
|
@ -129,7 +122,7 @@ type
|
|||
procedure InitGrid();
|
||||
function SaveData(): Boolean;
|
||||
procedure SetStatus();
|
||||
Procedure JsYe();
|
||||
procedure JsYe();
|
||||
procedure geteditRzhi();
|
||||
function SaveZL(): Boolean;
|
||||
public
|
||||
|
|
@ -137,13 +130,11 @@ type
|
|||
fSYRName: string;
|
||||
fstr2: string;
|
||||
{ Public declarations }
|
||||
RKFlag,FCYID:String;
|
||||
|
||||
RKFlag, FCYID: string;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun, U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList,
|
||||
U_ZdyAttachment, U_SysLogHelp;
|
||||
|
|
@ -160,19 +151,19 @@ begin
|
|||
// showmessage(SQL.text);
|
||||
open;
|
||||
end;
|
||||
IF not ADOQueryTemp.IsEmpty then
|
||||
if not ADOQueryTemp.IsEmpty then
|
||||
begin
|
||||
|
||||
IF formatdateTime('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime)<> formatdateTime('yyyy-MM-dd',ADOQueryTemp.fieldbyName('CRTime').AsDateTime) then
|
||||
if formatdateTime('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime) <> formatdateTime('yyyy-MM-dd', ADOQueryTemp.fieldbyName('CRTime').AsDateTime) then
|
||||
fopevent := fopevent + ' 日期:' + formatdateTime('yyyy-MM-dd', ADOQueryTemp.fieldbyName('CRTime').AsDateTime) + '->' + formatdateTime('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime);
|
||||
|
||||
IF CDS_HZ.fieldbyname('BBMoney').AsFloat<> ADOQueryTemp.fieldbyName('inMoney').AsFloat then
|
||||
if CDS_HZ.fieldbyname('BBMoney').AsFloat <> ADOQueryTemp.fieldbyName('inMoney').AsFloat then
|
||||
fopevent := fopevent + ' 金额:' + ADOQueryTemp.fieldbyName('inMoney').AsString + '->' + CDS_HZ.fieldbyname('BBMoney').AsString;
|
||||
|
||||
IF trim(CDS_HZ.fieldbyname('bankNo').AsString)<> trim(ADOQueryTemp.fieldbyName('factoryName').AsString) then
|
||||
if trim(CDS_HZ.fieldbyname('bankNo').AsString) <> trim(ADOQueryTemp.fieldbyName('factoryName').AsString) then
|
||||
fopevent := fopevent + ' 账户:' + trim(ADOQueryTemp.fieldbyName('factoryName').AsString) + '->' + trim(CDS_HZ.fieldbyname('bankNo').AsString);
|
||||
|
||||
IF fopevent<>'' then
|
||||
if fopevent <> '' then
|
||||
fopevent := '对方单位:' + Trim(CDS_HZ.fieldbyname('factoryName').AsString) + fopevent;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -189,7 +180,7 @@ begin
|
|||
sql.Add('select * from YF_Money_CR where YFID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' ');
|
||||
open;
|
||||
end;
|
||||
IF ADOQueryTemp.IsEmpty then
|
||||
if ADOQueryTemp.IsEmpty then
|
||||
begin
|
||||
ADOQueryCMD.Connection.RollbackTrans;
|
||||
exit;
|
||||
|
|
@ -231,7 +222,7 @@ begin
|
|||
Post;
|
||||
end;
|
||||
|
||||
IF trim(fopevent)<>'' then
|
||||
if trim(fopevent) <> '' then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
|
|
@ -253,7 +244,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
Procedure TfrmSKCR.JsYe();
|
||||
procedure TfrmSKCR.JsYe();
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
|
|
@ -274,15 +265,15 @@ begin
|
|||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.SetStatus();
|
||||
begin
|
||||
TBDel.Visible := true;
|
||||
IF trim(fDParameters1)='管理' then
|
||||
if trim(fDParameters1) = '管理' then
|
||||
begin
|
||||
TBDel.Visible := true;
|
||||
end
|
||||
else
|
||||
IF trim(fDParameters1)='查询' then
|
||||
else if trim(fDParameters1) = '查询' then
|
||||
begin
|
||||
tv2.OptionsData.Editing := false;
|
||||
TBDel.Visible := false;
|
||||
|
|
@ -295,9 +286,6 @@ begin
|
|||
// IF trim(fSYRName)<>'龙运纺织' then Tsave.Visible:=false;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TfrmSKCR.InitGrid();
|
||||
begin
|
||||
try
|
||||
|
|
@ -314,11 +302,17 @@ begin
|
|||
sql.Add('where A.CRTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
|
||||
sql.Add(' and CRTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
|
||||
sql.Add(' and A.CRType=''收款登记'' ');
|
||||
IF trim(fSYRName)<>'' then
|
||||
if trim(fSYRName) <> '' then
|
||||
sql.Add(' and A.SYRName=' + quotedstr(trim(fSyrName)));
|
||||
IF trim(FactoryName.Text)<>'' then
|
||||
if trim(FactoryName.Text) <> '' then
|
||||
sql.Add(' and A.FactoryName like ' + quotedstr('%' + trim(FactoryName.Text) + '%'));
|
||||
sql.Add(' and isnull(A.fstr2,'''')=' + quotedstr(trim(fstr2)));
|
||||
if trim(fDParameters1) = '低权限' then
|
||||
begin
|
||||
sql.Add(' and isnull(A.Filler,'''')=' + quotedstr(trim(Dname)));
|
||||
end;
|
||||
|
||||
|
||||
// ShowMessage(SQL.text);
|
||||
Open;
|
||||
end;
|
||||
|
|
@ -347,12 +341,15 @@ begin
|
|||
end;}
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.TBDelClick(Sender: TObject);
|
||||
var
|
||||
FBBMoney, CRID: string;
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
if CDS_HZ.IsEmpty then
|
||||
Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
if Trim(CDS_HZ.fieldbyname('YFID').AsString) <> '' then
|
||||
begin
|
||||
try
|
||||
|
|
@ -405,7 +402,7 @@ begin
|
|||
VYB.Visible := False;
|
||||
VBB.Caption := '实收金额';
|
||||
end;
|
||||
IF trim(fDParameters3)<>'' then
|
||||
if trim(fDParameters3) <> '' then
|
||||
begin
|
||||
factoryName.Text := trim(fDParameters3);
|
||||
factoryName.Enabled := false;
|
||||
|
|
@ -436,8 +433,10 @@ end;
|
|||
|
||||
procedure TfrmSKCR.Button2Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
if CDS_HZ.IsEmpty then
|
||||
Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
if Trim(CDS_HZ.fieldbyname('SubID').AsString) <> '' then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
|
|
@ -453,7 +452,7 @@ end;
|
|||
|
||||
function TfrmSKCR.SaveData(): Boolean;
|
||||
var
|
||||
maxId,CRID:String;
|
||||
maxId, CRID: string;
|
||||
begin
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
|
|
@ -474,7 +473,8 @@ begin
|
|||
if ADOQueryCmd.IsEmpty = False then
|
||||
begin
|
||||
CRID := ADOQueryCmd.fieldbyname('CRID').AsString;
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
|
|
@ -541,10 +541,9 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.cxGridDBColumn8PropertiesEditValueChanged(
|
||||
Sender: TObject);
|
||||
procedure TfrmSKCR.cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue,FFieldName:String;
|
||||
mvalue, FFieldName: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||||
|
|
@ -562,7 +561,8 @@ begin
|
|||
if Trim(mvalue) <> '' then
|
||||
begin
|
||||
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
sql.Add(' Set ' + FFieldName + '=NULL');
|
||||
end;
|
||||
|
|
@ -573,10 +573,9 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.cxGridDBColumn5PropertiesEditValueChanged(
|
||||
Sender: TObject);
|
||||
procedure TfrmSKCR.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String;
|
||||
mvalue, FQty, FPrice, FMoney, FHuiLv, FBBMoney, FKCBB, FFieldName: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
if Trim(mvalue) = '' then
|
||||
|
|
@ -600,18 +599,23 @@ begin
|
|||
FKCBB := ADOQueryTemp.fieldbyname('BBMoney').AsString;
|
||||
|
||||
FQty := Trim(CDS_HZ.fieldbyname('Qty').AsString);
|
||||
if Trim(FQty)='' then FQty:='0';
|
||||
if Trim(FQty) = '' then
|
||||
FQty := '0';
|
||||
|
||||
FPrice := Trim(CDS_HZ.fieldbyname('Price').AsString);
|
||||
if Trim(FPrice)='' then FPrice:='0';
|
||||
if Trim(FPrice) = '' then
|
||||
FPrice := '0';
|
||||
FQty := Trim(CDS_HZ.fieldbyname('Qty').AsString);
|
||||
if Trim(FQty)='' then FQty:='0';
|
||||
if Trim(FQty) = '' then
|
||||
FQty := '0';
|
||||
|
||||
FMoney := Trim(CDS_HZ.fieldbyname('Money').AsString);
|
||||
if Trim(FMoney)='' then FMoney:='0';
|
||||
if Trim(FMoney) = '' then
|
||||
FMoney := '0';
|
||||
|
||||
FHuiLv := Trim(CDS_HZ.fieldbyname('HuiLv').AsString);
|
||||
if Trim(FHuiLv)='' then FHuiLv:='0';
|
||||
if Trim(FHuiLv) = '' then
|
||||
FHuiLv := '0';
|
||||
|
||||
{FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString);
|
||||
if Trim(FBBMoney)='' then FBBMoney:='0'; }
|
||||
|
|
@ -622,12 +626,14 @@ begin
|
|||
begin
|
||||
FBBMoney := FloatToStr(StrToFloat(FQty) * StrToFloat(FPrice) * StrToFloat(FHuiLv));
|
||||
FMoney := FloatToStr(StrToFloat(FQty) * StrToFloat(FPrice));
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
FBBMoney := FloatToStr(StrToFloat(FMoney) * StrToFloat(FHuiLv));
|
||||
end;
|
||||
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
FBBMoney := FloatToStr(StrToFloat(FMoney) * StrToFloat(FHuiLv));
|
||||
end;
|
||||
|
|
@ -660,10 +666,9 @@ begin
|
|||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.cxGridDBColumn1PropertiesEditValueChanged(
|
||||
Sender: TObject);
|
||||
procedure TfrmSKCR.cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue,FFieldName:String;
|
||||
mvalue, FFieldName: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||||
|
|
@ -734,7 +739,7 @@ begin
|
|||
Post;
|
||||
end;
|
||||
Self.SaveData();
|
||||
IF fsyrName='龙运纺织' then
|
||||
if fsyrName = '龙运纺织' then
|
||||
begin
|
||||
edit1.Text := Self.CDS_HZ.fieldbyname('FactoryName').AsString;
|
||||
JZdate.DateTime := Self.CDS_HZ.fieldbyname('CRTime').AsDateTime;
|
||||
|
|
@ -748,8 +753,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.cxGridDBColumn3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmSKCR.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
|
|
@ -786,8 +790,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.cxGridDBColumn6PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmSKCR.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
|
|
@ -817,8 +820,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.v2Column3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmSKCR.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
|
|
@ -850,13 +852,14 @@ end;
|
|||
|
||||
procedure TfrmSKCR.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then Exit;
|
||||
if ADOQueryMain.IsEmpty then
|
||||
Exit;
|
||||
SelExportData(Tv2, ADOQueryMain, '付款列表');
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.v2Column4PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String;
|
||||
mvalue, FMoney, FHuiLv, FBBMoney, FKCBB, FFieldName: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
if Trim(mvalue) = '' then
|
||||
|
|
@ -880,10 +883,12 @@ begin
|
|||
FKCBB := ADOQueryTemp.fieldbyname('BBMoney').AsString;
|
||||
|
||||
FMoney := Trim(CDS_HZ.fieldbyname('Money').AsString);
|
||||
if Trim(FMoney)='' then FMoney:='0';
|
||||
if Trim(FMoney) = '' then
|
||||
FMoney := '0';
|
||||
|
||||
FHuiLv := Trim(CDS_HZ.fieldbyname('HuiLv').AsString);
|
||||
if Trim(FHuiLv)='' then FHuiLv:='0';
|
||||
if Trim(FHuiLv) = '' then
|
||||
FHuiLv := '0';
|
||||
|
||||
{FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString);
|
||||
if Trim(FBBMoney)='' then FBBMoney:='0'; }
|
||||
|
|
@ -935,8 +940,7 @@ begin
|
|||
end;}
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.v2Column1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmSKCR.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmProductOrderNewList := TfrmProductOrderNewList.Create(Application);
|
||||
|
|
@ -985,7 +989,8 @@ begin
|
|||
Open;
|
||||
end;
|
||||
FKCBB := ADOQueryTemp.fieldbyname('BBMoney').AsString;
|
||||
if Trim(mvalue)='' then mvalue:='0';
|
||||
if Trim(mvalue) = '' then
|
||||
mvalue := '0';
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Edit;
|
||||
|
|
@ -1032,13 +1037,14 @@ end;
|
|||
|
||||
procedure TfrmSKCR.OrderNoChange(Sender: TObject);
|
||||
begin
|
||||
if Length(Trim(OrderNo.Text))<3 then Exit;
|
||||
if Length(Trim(OrderNo.Text)) < 3 then
|
||||
Exit;
|
||||
ToolButton2.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.v2Column1PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue,FFieldName:String;
|
||||
mvalue, FFieldName: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||||
|
|
@ -1058,14 +1064,15 @@ begin
|
|||
ExecSQL;
|
||||
end; }
|
||||
end;
|
||||
procedure TfrmSKCR.v2DerateMoneyPropertiesEditValueChanged(
|
||||
Sender: TObject);
|
||||
|
||||
procedure TfrmSKCR.v2DerateMoneyPropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
|
||||
if Trim(mvalue)='' then mvalue:='0';
|
||||
if Trim(mvalue) = '' then
|
||||
mvalue := '0';
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Edit;
|
||||
|
|
@ -1086,8 +1093,7 @@ begin
|
|||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.v2SYRNamePropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmSKCR.v2SYRNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
|
|
@ -1120,7 +1126,8 @@ end;
|
|||
|
||||
procedure TfrmSKCR.TsaveClick(Sender: TObject);
|
||||
begin
|
||||
IF CDS_HZ.IsEmpty then exit;
|
||||
if CDS_HZ.IsEmpty then
|
||||
exit;
|
||||
begdate.SetFocus;
|
||||
if CDS_HZ.Locate('ssel', true, []) = false then
|
||||
begin
|
||||
|
|
@ -1136,7 +1143,7 @@ begin
|
|||
First;
|
||||
while not eof do
|
||||
begin
|
||||
IF Fieldbyname('ssel').AsBoolean then
|
||||
if Fieldbyname('ssel').AsBoolean then
|
||||
begin
|
||||
{ IF trim(fieldbyName('bankNo').AsString)='' then
|
||||
begin
|
||||
|
|
@ -1166,7 +1173,7 @@ begin
|
|||
end;
|
||||
try
|
||||
geteditRzhi();
|
||||
IF trim(fieldbyName('bankNo').AsString)<>'' then
|
||||
if trim(fieldbyName('bankNo').AsString) <> '' then
|
||||
begin
|
||||
with ADOqueryCmd do
|
||||
begin
|
||||
|
|
@ -1175,10 +1182,9 @@ begin
|
|||
SQL.Add('delete from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' ');
|
||||
execsql;
|
||||
end;
|
||||
IF (CDS_HZ.FieldByName('BBMoney').AsFloat<>0) and
|
||||
(trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then
|
||||
if (CDS_HZ.FieldByName('BBMoney').AsFloat <> 0) and (trim(CDS_HZ.fieldbyname('bankNo').AsString) <> '') then
|
||||
begin
|
||||
IF not saveZL() then
|
||||
if not saveZL() then
|
||||
begin
|
||||
application.MessageBox('生成账户流水信息失败', '提示信息', 0);
|
||||
end;
|
||||
|
|
@ -1221,8 +1227,7 @@ begin
|
|||
jsYe();
|
||||
end;
|
||||
|
||||
procedure TfrmSKCR.v2Column4PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmSKCR.v2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
|
|
@ -1287,7 +1292,8 @@ end;
|
|||
|
||||
procedure TfrmSKCR.CheckBox1Click(Sender: TObject);
|
||||
begin
|
||||
IF CDS_HZ.IsEmpty then exit;
|
||||
if CDS_HZ.IsEmpty then
|
||||
exit;
|
||||
with CDS_HZ do
|
||||
begin
|
||||
DisableControls;
|
||||
|
|
@ -1305,3 +1311,4 @@ begin
|
|||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmClothContractInPut: TfrmClothContractInPut
|
||||
Left = 213
|
||||
Top = 163
|
||||
Left = 404
|
||||
Top = 253
|
||||
Width = 1046
|
||||
Height = 541
|
||||
Caption = #22383#24067#21040#36135
|
||||
|
|
@ -588,6 +588,16 @@ object frmClothContractInPut: TfrmClothContractInPut
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 118
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #24211#23384#35843#25972#21305#25968
|
||||
DataBinding.FieldName = 'kctzps'
|
||||
Width = 90
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #24211#23384#35843#25972#25968#37327
|
||||
DataBinding.FieldName = 'kctzsl'
|
||||
Width = 90
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
|
|||
|
|
@ -10,7 +10,21 @@ uses
|
|||
cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
|
||||
cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
|
||||
ExtCtrls, BtnEdit, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
|
||||
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
|
||||
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
||||
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmClothContractInPut = class(TForm)
|
||||
|
|
@ -78,6 +92,8 @@ type
|
|||
Panel1: TPanel;
|
||||
Label11: TLabel;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user