Group_01/D7wmguihua
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-04-30 16:15:24 +08:00
parent b4b5840f18
commit f4eb7f81bc
15 changed files with 646 additions and 528 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
基础资料维护(BaseInfo.dll)/U_DataLink.pas
View File

@ -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; {数据库连接参数}

4
基础资料维护(BaseInfo.dll)/U_GetDllForm.pas
View File

@ -78,10 +78,11 @@ begin
IF trim(DataBaseStr)<>''then
DConString := DataBaseStr;
// DParameters1:='²éѯ';
// DParameters1:='²éѯ';
// 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;

12
基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm
View File

@ -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 = <>

188
基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas
View File

@ -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;
function SaveData(): Boolean;
public
fkhType:string;
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;
U_DataLink, U_Fun, U_ZDYHelp, U_WeiXinHelp;
{$R *.dfm}
procedure TfrmZdyAttInput.InitGrid();
begin
try
@ -86,20 +96,19 @@ begin
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from KH_Zdy_Attachment where ATID='''+Trim(FCYID)+'''');
sql.Add(' select * from KH_Zdy_Attachment where ATID=''' + Trim(FCYID) + '''');
Open;
end;
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain, CDS_HZ);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmZdyAttInput.FormDestroy(Sender: TObject);
begin
//frmZdyAttInput:=nil;
@ -112,16 +121,22 @@ end;
procedure TfrmZdyAttInput.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('客户资料录入1',Tv2,'客户自定义');
WriteCxGrid('客户资料录入1', Tv2, '客户自定义');
Close;
end;
procedure TfrmZdyAttInput.FormShow(Sender: TObject);
begin
ReadCxGrid('客户资料录入1',Tv2,'客户自定义');
ReadCxGrid('客户资料录入1', Tv2, '客户自定义');
InitGrid();
if Trim(FCYID)='' then
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;
@ -131,151 +146,152 @@ begin
InitGrid();
end;
function TfrmZdyAttInput.SaveData():Boolean;
function TfrmZdyAttInput.SaveData(): Boolean;
var
maxId,CRID:String;
fzdyCode:string;
maxId, CRID: string;
fzdyCode: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FCYID)='' then
if Trim(FCYID) = '' then
begin
if GetLSNo(ADOQueryCmd,maxId,'AT','KH_Zdy_Attachment',4,1)=False then
if GetLSNo(ADOQueryCmd, maxId, 'AT', 'KH_Zdy_Attachment', 4, 1) = False then
begin
Result:=False;
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！','提示',0);
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
if GetLSNo(ADOQueryCmd, fzdyCode, 'KH', 'KH_Zdy_Attachment', 4, 0) = False then
begin
Result:=False;
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！','提示',0);
Application.MessageBox('取最大号失败！', '提示', 0);
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
if GetLSNo(ADOQueryCmd, fzdyCode, 'HZ', 'KH_Zdy_Attachment', 4, 0) = False then
begin
Result:=False;
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！','提示',0);
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
end
else
begin
if GetLSNo(ADOQueryCmd,fzdyCode,'KF','KH_Zdy_Attachment',4,0)=False then
if GetLSNo(ADOQueryCmd, fzdyCode, 'KF', 'KH_Zdy_Attachment', 4, 0) = False then
begin
Result:=False;
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！','提示',0);
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
end
end
else
begin
maxId:=Trim(FCYID);
maxId := Trim(FCYID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from KH_Zdy_Attachment where ATID='''+Trim(FCYID)+'''');
sql.Add('select * from KH_Zdy_Attachment where ATID=''' + Trim(FCYID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FCYID)='' then
if Trim(FCYID) = '' then
begin
Append;
FieldByName('Filler').Value:=Trim(DName);
FieldByName('zdyCode').Value:=Trim(fzdyCode);
end else
FieldByName('Filler').Value := Trim(DName);
FieldByName('zdyCode').Value := Trim(fzdyCode);
end
else
begin
Edit;
FieldByName('Editer').Value:=Trim(DName);
FieldByName('Edittime').Value:=SGetServerDateTime(ADOQueryTemp);
FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('ATID').Value:=Trim(maxId);
FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'',0);
FieldByName('Type').Value:='KHName';
FieldByName('khType').Value:=trim(fkhType);
FieldByName('DefFlt1').Value:=CDS_HZ.fieldbyname('DefFlt1').AsFloat;
FieldByName('Filler').Value:=Trim(DName);
FieldByName('ATID').Value := Trim(maxId);
FieldByName('ZdyName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_HZ, '', 0);
FieldByName('Type').Value := 'KHName';
FieldByName('khType').Value := trim(fkhType);
FieldByName('DefFlt1').Value := CDS_HZ.fieldbyname('DefFlt1').AsFloat;
FieldByName('Filler').Value := Trim(DName);
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from KH_Zdy where ZdyNo='''+Trim(FCYID)+'''');
sql.Add('select * from KH_Zdy where ZdyNo=''' + Trim(FCYID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FCYID)='' then
if Trim(FCYID) = '' then
begin
Append;
end else
end
else
begin
Edit;
end;
FieldByName('ZdyNo').Value:=Trim(maxId);
FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
FieldByName('Type').Value:='KHName';
FieldByName('MainType').Value:=Trim(CDS_HZ.fieldbyname('DEFstr5').AsString);
FieldByName('ZdyNo').Value := Trim(maxId);
FieldByName('ZdyName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
FieldByName('Type').Value := 'KHName';
FieldByName('MainType').Value := Trim(CDS_HZ.fieldbyname('DEFstr5').AsString);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Zdy_Attachment where ZdyName='''+Trim(CDS_HZ.fieldbyname('ZdyName').AsString)+'''');
sql.Add('select * from KH_Zdy_Attachment where ZdyName=''' + Trim(CDS_HZ.fieldbyname('ZdyName').AsString) + '''');
sql.Add(' and Type=''KHName'' ');
sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType)));
sql.Add(' and isnull(khType,'''')=' + quotedstr(trim(fkhType)));
Open;
end;
if ADOQueryCmd.RecordCount>1 then
if ADOQueryCmd.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('客户名称重复!','提示',0);
Application.MessageBox('客户名称重复!', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Zdy_Attachment where ZdyCode='''+Trim(CDS_HZ.fieldbyname('ZdyCode').AsString)+'''');
sql.Add('select * from KH_Zdy_Attachment where ZdyCode=''' + Trim(CDS_HZ.fieldbyname('ZdyCode').AsString) + '''');
sql.Add(' and Type=''KHName'' ');
Open;
end;
if ADOQueryCmd.RecordCount>1 then
if ADOQueryCmd.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('编号重复!','提示',0);
Application.MessageBox('编号重复!', '提示', 0);
Exit;
end;
with CDS_HZ do
begin
Edit;
FieldByName('ATID').Value:=Trim(maxId);
FieldByName('ATID').Value := Trim(maxId);
Post;
end;
ADOQueryCmd.Connection.CommitTrans;
Result:=True;
Result := True;
except
Result:=True;
Result := True;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存异常!','提示',0);
Application.MessageBox('保存异常!', '提示', 0);
end;
end;
@ -283,32 +299,31 @@ procedure TfrmZdyAttInput.ToolButton3Click(Sender: TObject);
begin
cxGrid2.SetFocus;
if Trim(CDS_HZ.FieldByName('ZdyName').AsString)='' then
if Trim(CDS_HZ.FieldByName('ZdyName').AsString) = '' then
begin
Application.MessageBox('客户名称不能为空!','提示',0);
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
Application.MessageBox('保存成功!','提示',0);
ModalResult:=1;
Application.MessageBox('保存成功!', '提示', 0);
ModalResult := 1;
end;
end;
procedure TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
frmWeiXinHelp:=TfrmWeiXinHelp.create(self);
frmWeiXinHelp := TfrmWeiXinHelp.create(self);
with frmWeiXinHelp do
begin
if showmodal=1 then
if showmodal = 1 then
begin
CDS_HZ.Edit;
CDS_HZ.fieldbyName('weixinID').Value:=trim(CDS_Help.fieldbyName('OPENID').asstring);
CDS_HZ.fieldbyName('weixinName').Value:=trim(CDS_Help.fieldbyName('NICKNAME').asstring);
CDS_HZ.fieldbyName('weixinID').Value := trim(CDS_Help.fieldbyName('OPENID').asstring);
CDS_HZ.fieldbyName('weixinName').Value := trim(CDS_Help.fieldbyName('NICKNAME').asstring);
CDS_HZ.Post;
end;
free;
@ -317,3 +332,4 @@ begin
end;
end.

19
基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas
View File

@ -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;

1
基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.dfm
View File

@ -11,6 +11,7 @@ object frmZdyAttInputGYS: TfrmZdyAttInputGYS
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow

16
基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.pas
View File

@ -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)

12
基础资料维护(BaseInfo.dll)/U_ZdyAttachment.dfm
View File

@ -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 = <

111
基础资料维护(BaseInfo.dll)/U_ZdyAttachment.pas
View File

@ -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;
fkhType: string;
canshu1, canshu2,FParameters4: string;
end;
var
frmZdyAttachment: TfrmZdyAttachment;
implementation
uses
U_DataLink,U_Fun,U_ZDYHelp,U_ZdyAttInput,U_ZdyInput;
U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttInput, U_ZdyInput;
{$R *.dfm}
procedure TfrmZdyAttachment.InitGrid();
begin
try
@ -102,48 +113,50 @@ begin
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from KH_Zdy_Attachment where Type=''KHName'' ');
sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType)));
sql.Add(' and isnull(khType,'''')=' + quotedstr(trim(fkhType)));
Open;
end;
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain, CDS_HZ);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmZdyAttachment.FormDestroy(Sender: TObject);
begin
frmZdyAttachment:=nil;
frmZdyAttachment := nil;
end;
procedure TfrmZdyAttachment.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
Action := caFree;
end;
procedure TfrmZdyAttachment.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('客户资料',Tv2,'客户自定义');
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 Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then
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
begin
Close;
SQL.Clear;
sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
sql.Add('delete KH_Zdy_Attachment where ATID=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + '''');
sql.Add('delete KH_Zdy where ZdyNo=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + '''');
ExecSQL;
end;
end;
@ -152,13 +165,15 @@ end;
procedure TfrmZdyAttachment.FormShow(Sender: TObject);
begin
ReadCxGrid('客户资料',Tv2,'客户自定义');
if trim(canshu1)='查询'then
ReadCxGrid('客户资料', Tv2, '客户自定义');
// DParameters4:=Trim(DParameters4);
if trim(canshu1) = '查询' then
begin
Tadd.Visible:=false;
tedit.Visible:=false;
tdel.Visible:=false;
Tadd.Visible := false;
tedit.Visible := false;
tdel.Visible := false;
end;
InitGrid();
end;
@ -171,9 +186,9 @@ procedure TfrmZdyAttachment.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain, CDS_HZ);
end;
end;
@ -182,23 +197,32 @@ begin
ToolButton2.Click;
end;
procedure TfrmZdyAttachment.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
TcxGridToExcel(self.Caption,cxgrid2);
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);
frmZdyAttInput := TfrmZdyAttInput.Create(Application);
with frmZdyAttInput do
begin
FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString);
fkhType:=self.fkhType;
if ShowModal=1 then
FCYID := Trim(Self.CDS_HZ.fieldbyname('ATID').AsString);
fkhType := self.fkhType;
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
@ -211,12 +235,14 @@ end;
procedure TfrmZdyAttachment.TaddClick(Sender: TObject);
begin
try
frmZdyAttInput:=TfrmZdyAttInput.Create(Application);
frmZdyAttInput := TfrmZdyAttInput.Create(Application);
with frmZdyAttInput do
begin
fkhType:=self.fkhType;
FCYID:='';
if ShowModal=1 then
fkhType := self.fkhType;
canshu1 := self.canshu1;
FParameters4:=Self.FParameters4;
FCYID := '';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
@ -229,4 +255,3 @@ end;
end.

4
应收应付/U_SKCR.dfm
View File

@ -1,6 +1,6 @@
object frmSKCR: TfrmSKCR
Left = 212
Top = 205
Left = 442
Top = 301
Width = 1382
Height = 754
Caption = #25910#27454#31649#29702

721
应收应付/U_SKCR.pas
View File

File diff suppressed because it is too large Load Diff

14
桂华管理系统/U_ClothContractInPut.dfm
View File

@ -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

18
桂华管理系统/U_ClothContractInPut.pas
View File

@ -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;