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 uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, 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 var
DConString:String; {全局连接字符串} DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: String; {数据库连接参数}

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

@ -78,10 +78,11 @@ begin
IF trim(DataBaseStr)<>''then IF trim(DataBaseStr)<>''then
DConString := DataBaseStr; DConString := DataBaseStr;
// DParameters1:='²éѯ'; // DParameters1:='²éѯ';
// DParameters1:='1'; // DParameters1:='1';
// DataBase:='¼Ó¹¤³§'; // DataBase:='¼Ó¹¤³§';
//DataBase:='¹ð»ª·ÄÖ¯'; //DataBase:='¹ð»ª·ÄÖ¯';
// DParameters4:='µÍȨÏÞ';
if not ConnData() then if not ConnData() then
begin begin
result:=0; result:=0;
@ -114,6 +115,7 @@ begin
caption:=Trim(Title); caption:=Trim(Title);
fkhType:=trim(DataBase); fkhType:=trim(DataBase);
canshu1:=trim(DParameters1); canshu1:=trim(DParameters1);
FParameters4:=trim(DParameters4);
FormStyle := mstyle ; FormStyle := mstyle ;
windowState := mstate ; windowState := mstate ;
BorderStyle := mborderstyle; BorderStyle := mborderstyle;

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

@ -1,6 +1,6 @@
object frmZdyAttInput: TfrmZdyAttInput object frmZdyAttInput: TfrmZdyAttInput
Left = -8 Left = 269
Top = -8 Top = 229
Width = 1382 Width = 1382
Height = 754 Height = 754
Caption = #23458#25143#36164#26009#24405#20837 Caption = #23458#25143#36164#26009#24405#20837
@ -53,13 +53,13 @@ object frmZdyAttInput: TfrmZdyAttInput
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1366 Width = 1366
Height = 685 Height = 684
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
NavigatorButtons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
DataController.DataSource = DS_HZ DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>

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

@ -5,14 +5,27 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxButtonEdit, cxTextEdit; 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 type
TfrmZdyAttInput = class(TForm) TfrmZdyAttInput = class(TForm)
@ -54,31 +67,28 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure v2Column14PropertiesButtonClick(Sender: TObject; procedure v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
function SaveData():Boolean; function SaveData(): Boolean;
public public
fkhType:string; fkhType: string;
{ Public declarations } { Public declarations }
RKFlag,FCYID:String; RKFlag, FCYID: string;
canshu1, canshu2,FParameters4: string;
end; end;
var var
frmZdyAttInput: TfrmZdyAttInput; frmZdyAttInput: TfrmZdyAttInput;
implementation implementation
uses uses
U_DataLink,U_Fun,U_ZDYHelp, U_WeiXinHelp; U_DataLink, U_Fun, U_ZDYHelp, U_WeiXinHelp;
{$R *.dfm} {$R *.dfm}
procedure TfrmZdyAttInput.InitGrid(); procedure TfrmZdyAttInput.InitGrid();
begin begin
try try
@ -86,20 +96,19 @@ begin
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered:=False; Filtered := False;
Close; Close;
SQL.Clear; 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; Open;
end; end;
SCreateCDS20(ADOQueryMain,CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ); SInitCDSData20(ADOQueryMain, CDS_HZ);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
end; end;
procedure TfrmZdyAttInput.FormDestroy(Sender: TObject); procedure TfrmZdyAttInput.FormDestroy(Sender: TObject);
begin begin
//frmZdyAttInput:=nil; //frmZdyAttInput:=nil;
@ -112,16 +121,22 @@ end;
procedure TfrmZdyAttInput.TBCloseClick(Sender: TObject); procedure TfrmZdyAttInput.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('客户资料录入1',Tv2,'客户自定义'); WriteCxGrid('客户资料录入1', Tv2, '客户自定义');
Close; Close;
end; end;
procedure TfrmZdyAttInput.FormShow(Sender: TObject); procedure TfrmZdyAttInput.FormShow(Sender: TObject);
begin begin
ReadCxGrid('客户资料录入1',Tv2,'客户自定义'); ReadCxGrid('客户资料录入1', Tv2, '客户自定义');
InitGrid(); InitGrid();
if Trim(FCYID)='' then if Trim(FCYID) = '' then
begin begin
CDS_HZ.Append; CDS_HZ.Append;
if trim(FParameters4) = '低权限' then
begin
CDS_HZ.FieldByName('DEFstr5').Value := Trim(DName);
end;
CDS_HZ.Post; CDS_HZ.Post;
end; end;
end; end;
@ -131,151 +146,152 @@ begin
InitGrid(); InitGrid();
end; end;
function TfrmZdyAttInput.SaveData():Boolean; function TfrmZdyAttInput.SaveData(): Boolean;
var var
maxId,CRID:String; maxId, CRID: string;
fzdyCode:string; fzdyCode: string;
begin begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
if Trim(FCYID)='' then if Trim(FCYID) = '' then
begin 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 begin
Result:=False; Result := False;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！','提示',0); Application.MessageBox('取最大号失败！', '提示', 0);
Exit; Exit;
end; end;
IF trim(fkhType)='广东客户' then if trim(fkhType) = '广东客户' then
begin 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 begin
Result:=False; Result := False;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！','提示',0); Application.MessageBox('取最大号失败！', '提示', 0);
Exit; Exit;
end; end;
end end
else else if trim(fkhType) = '湖州客户' then
IF trim(fkhType)='湖州客户' then
begin 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 begin
Result:=False; Result := False;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！','提示',0); Application.MessageBox('取最大号失败！', '提示', 0);
Exit; Exit;
end; end;
end end
else else
begin 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 begin
Result:=False; Result := False;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！','提示',0); Application.MessageBox('取最大号失败！', '提示', 0);
Exit; Exit;
end; end;
end end
end end
else else
begin begin
maxId:=Trim(FCYID); maxId := Trim(FCYID);
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
SQL.Clear; 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; Open;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
if Trim(FCYID)='' then if Trim(FCYID) = '' then
begin begin
Append; Append;
FieldByName('Filler').Value:=Trim(DName); FieldByName('Filler').Value := Trim(DName);
FieldByName('zdyCode').Value:=Trim(fzdyCode); FieldByName('zdyCode').Value := Trim(fzdyCode);
end else end
else
begin begin
Edit; Edit;
FieldByName('Editer').Value:=Trim(DName); FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value:=SGetServerDateTime(ADOQueryTemp); FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end; end;
FieldByName('ATID').Value:=Trim(maxId); FieldByName('ATID').Value := Trim(maxId);
FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); FieldByName('ZdyName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'',0); RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_HZ, '', 0);
FieldByName('Type').Value:='KHName'; FieldByName('Type').Value := 'KHName';
FieldByName('khType').Value:=trim(fkhType); FieldByName('khType').Value := trim(fkhType);
FieldByName('DefFlt1').Value:=CDS_HZ.fieldbyname('DefFlt1').AsFloat; FieldByName('DefFlt1').Value := CDS_HZ.fieldbyname('DefFlt1').AsFloat;
FieldByName('Filler').Value:=Trim(DName); FieldByName('Filler').Value := Trim(DName);
Post; Post;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select * from KH_Zdy where ZdyNo='''+Trim(FCYID)+''''); sql.Add('select * from KH_Zdy where ZdyNo=''' + Trim(FCYID) + '''');
Open; Open;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
if Trim(FCYID)='' then if Trim(FCYID) = '' then
begin begin
Append; Append;
end else end
else
begin begin
Edit; Edit;
end; end;
FieldByName('ZdyNo').Value:=Trim(maxId); FieldByName('ZdyNo').Value := Trim(maxId);
FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); FieldByName('ZdyName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
FieldByName('Type').Value:='KHName'; FieldByName('Type').Value := 'KHName';
FieldByName('MainType').Value:=Trim(CDS_HZ.fieldbyname('DEFstr5').AsString); FieldByName('MainType').Value := Trim(CDS_HZ.fieldbyname('DEFstr5').AsString);
Post; Post;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; 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 Type=''KHName'' ');
sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); sql.Add(' and isnull(khType,'''')=' + quotedstr(trim(fkhType)));
Open; Open;
end; end;
if ADOQueryCmd.RecordCount>1 then if ADOQueryCmd.RecordCount > 1 then
begin begin
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('客户名称重复!','提示',0); Application.MessageBox('客户名称重复!', '提示', 0);
Exit; Exit;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; 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'' '); sql.Add(' and Type=''KHName'' ');
Open; Open;
end; end;
if ADOQueryCmd.RecordCount>1 then if ADOQueryCmd.RecordCount > 1 then
begin begin
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('编号重复!','提示',0); Application.MessageBox('编号重复!', '提示', 0);
Exit; Exit;
end; end;
with CDS_HZ do with CDS_HZ do
begin begin
Edit; Edit;
FieldByName('ATID').Value:=Trim(maxId); FieldByName('ATID').Value := Trim(maxId);
Post; Post;
end; end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
Result:=True; Result := True;
except except
Result:=True; Result := True;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存异常!','提示',0); Application.MessageBox('保存异常!', '提示', 0);
end; end;
end; end;
@ -283,32 +299,31 @@ procedure TfrmZdyAttInput.ToolButton3Click(Sender: TObject);
begin begin
cxGrid2.SetFocus; cxGrid2.SetFocus;
if Trim(CDS_HZ.FieldByName('ZdyName').AsString)='' then if Trim(CDS_HZ.FieldByName('ZdyName').AsString) = '' then
begin begin
Application.MessageBox('客户名称不能为空!','提示',0); Application.MessageBox('客户名称不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Application.MessageBox('确定要保存数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要保存数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功!','提示',0); Application.MessageBox('保存成功!', '提示', 0);
ModalResult:=1; ModalResult := 1;
end; end;
end; end;
procedure TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin begin
frmWeiXinHelp:=TfrmWeiXinHelp.create(self); frmWeiXinHelp := TfrmWeiXinHelp.create(self);
with frmWeiXinHelp do with frmWeiXinHelp do
begin begin
if showmodal=1 then if showmodal = 1 then
begin begin
CDS_HZ.Edit; CDS_HZ.Edit;
CDS_HZ.fieldbyName('weixinID').Value:=trim(CDS_Help.fieldbyName('OPENID').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.fieldbyName('weixinName').Value := trim(CDS_Help.fieldbyName('NICKNAME').asstring);
CDS_HZ.Post; CDS_HZ.Post;
end; end;
free; free;
@ -317,3 +332,4 @@ begin
end; end;
end. end.

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

@ -13,7 +13,20 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, strutils, cxCurrencyEdit, cxLookAndFeels, 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 type
TfrmZdyAttInputCP = class(TForm) TfrmZdyAttInputCP = class(TForm)
@ -392,7 +405,7 @@ begin
begin begin
mvalue := trim(mvalue) + '#'; mvalue := trim(mvalue) + '#';
end; end;
// mvalue := trim(mvalue);
with CDS_HZ do with CDS_HZ do
begin begin
Edit; Edit;
@ -440,7 +453,7 @@ begin
begin begin
mvalue := trim(mvalue) + '#'; mvalue := trim(mvalue) + '#';
end; end;
// mvalue := trim(mvalue) ;
with CDS_HZ do with CDS_HZ do
begin begin
Edit; Edit;

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

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

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

@ -12,7 +12,21 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, 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 type
TfrmZdyAttInputGYS = class(TForm) TfrmZdyAttInputGYS = class(TForm)

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

@ -1,6 +1,6 @@
object frmZdyAttachment: TfrmZdyAttachment object frmZdyAttachment: TfrmZdyAttachment
Left = -8 Left = 293
Top = 0 Top = 214
Width = 1378 Width = 1378
Height = 754 Height = 754
Caption = #23458#25143#36164#26009#31649#29702 Caption = #23458#25143#36164#26009#31649#29702
@ -167,13 +167,13 @@ object frmZdyAttachment: TfrmZdyAttachment
Left = 0 Left = 0
Top = 70 Top = 70
Width = 1362 Width = 1362
Height = 646 Height = 645
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
NavigatorButtons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
DataController.DataSource = DS_HZ DataController.DataSource = DS_HZ
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <

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

@ -5,14 +5,27 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxButtonEdit, cxTextEdit, cxDBLookupComboBox; 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 type
TfrmZdyAttachment = class(TForm) TfrmZdyAttachment = class(TForm)
@ -78,23 +91,21 @@ type
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
public public
fkhType:string; fkhType: string;
canshu1,canshu2:string; canshu1, canshu2,FParameters4: string;
end; end;
var var
frmZdyAttachment: TfrmZdyAttachment; frmZdyAttachment: TfrmZdyAttachment;
implementation implementation
uses uses
U_DataLink,U_Fun,U_ZDYHelp,U_ZdyAttInput,U_ZdyInput; U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttInput, U_ZdyInput;
{$R *.dfm} {$R *.dfm}
procedure TfrmZdyAttachment.InitGrid(); procedure TfrmZdyAttachment.InitGrid();
begin begin
try try
@ -102,48 +113,50 @@ begin
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered:=False; Filtered := False;
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select * from KH_Zdy_Attachment where Type=''KHName'' '); 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; Open;
end; end;
SCreateCDS20(ADOQueryMain,CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ); SInitCDSData20(ADOQueryMain, CDS_HZ);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
end; end;
procedure TfrmZdyAttachment.FormDestroy(Sender: TObject); procedure TfrmZdyAttachment.FormDestroy(Sender: TObject);
begin begin
frmZdyAttachment:=nil; frmZdyAttachment := nil;
end; end;
procedure TfrmZdyAttachment.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmZdyAttachment.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmZdyAttachment.TBCloseClick(Sender: TObject); procedure TfrmZdyAttachment.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('客户资料',Tv2,'客户自定义'); WriteCxGrid('客户资料', Tv2, '客户自定义');
Close; Close;
end; end;
procedure TfrmZdyAttachment.TDelClick(Sender: TObject); procedure TfrmZdyAttachment.TDelClick(Sender: TObject);
begin begin
if CDS_HZ.IsEmpty then Exit; if CDS_HZ.IsEmpty then
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; Exit;
if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if Trim(CDS_HZ.fieldbyname('ATID').AsString) <> '' then
begin begin
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('delete KH_Zdy_Attachment where ATID='''+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)+''''); sql.Add('delete KH_Zdy where ZdyNo=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
end; end;
@ -152,13 +165,15 @@ end;
procedure TfrmZdyAttachment.FormShow(Sender: TObject); procedure TfrmZdyAttachment.FormShow(Sender: TObject);
begin begin
ReadCxGrid('客户资料',Tv2,'客户自定义'); ReadCxGrid('客户资料', Tv2, '客户自定义');
if trim(canshu1)='查询'then // DParameters4:=Trim(DParameters4);
if trim(canshu1) = '查询' then
begin begin
Tadd.Visible:=false; Tadd.Visible := false;
tedit.Visible:=false; tedit.Visible := false;
tdel.Visible:=false; tdel.Visible := false;
end; end;
InitGrid(); InitGrid();
end; end;
@ -171,9 +186,9 @@ procedure TfrmZdyAttachment.ToolButton2Click(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain,CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ); SInitCDSData20(ADOQueryMain, CDS_HZ);
end; end;
end; end;
@ -182,23 +197,32 @@ begin
ToolButton2.Click; ToolButton2.Click;
end; end;
procedure TfrmZdyAttachment.ToolButton1Click(Sender: TObject); procedure TfrmZdyAttachment.ToolButton1Click(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then Exit; if ADOQueryMain.IsEmpty then
TcxGridToExcel(self.Caption,cxgrid2); Exit;
TcxGridToExcel(self.Caption, cxgrid2);
// SelExportData(Tv2,ADOQueryMain,'¿Í»§×ÊÁÏÁбí'); // SelExportData(Tv2,ADOQueryMain,'¿Í»§×ÊÁÏÁбí');
end; end;
procedure TfrmZdyAttachment.TeditClick(Sender: TObject); procedure TfrmZdyAttachment.TeditClick(Sender: TObject);
begin begin
if trim(DParameters4) = '低权限' then
begin
if Trim(CDS_HZ.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
try try
frmZdyAttInput:=TfrmZdyAttInput.Create(Application); frmZdyAttInput := TfrmZdyAttInput.Create(Application);
with frmZdyAttInput do with frmZdyAttInput do
begin begin
FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); FCYID := Trim(Self.CDS_HZ.fieldbyname('ATID').AsString);
fkhType:=self.fkhType; fkhType := self.fkhType;
if ShowModal=1 then if ShowModal = 1 then
begin begin
TBRafresh.Click; TBRafresh.Click;
end; end;
@ -211,12 +235,14 @@ end;
procedure TfrmZdyAttachment.TaddClick(Sender: TObject); procedure TfrmZdyAttachment.TaddClick(Sender: TObject);
begin begin
try try
frmZdyAttInput:=TfrmZdyAttInput.Create(Application); frmZdyAttInput := TfrmZdyAttInput.Create(Application);
with frmZdyAttInput do with frmZdyAttInput do
begin begin
fkhType:=self.fkhType; fkhType := self.fkhType;
FCYID:=''; canshu1 := self.canshu1;
if ShowModal=1 then FParameters4:=Self.FParameters4;
FCYID := '';
if ShowModal = 1 then
begin begin
TBRafresh.Click; TBRafresh.Click;
end; end;
@ -229,4 +255,3 @@ end;
end. end.

4
应收应付/U_SKCR.dfm
View File

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

725
应收应付/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 object frmClothContractInPut: TfrmClothContractInPut
Left = 213 Left = 404
Top = 163 Top = 253
Width = 1046 Width = 1046
Height = 541 Height = 541
Caption = #22383#24067#21040#36135 Caption = #22383#24067#21040#36135
@ -588,6 +588,16 @@ object frmClothContractInPut: TfrmClothContractInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 118 Width = 118
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -10,7 +10,21 @@ uses
cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
ExtCtrls, BtnEdit, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, 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 type
TfrmClothContractInPut = class(TForm) TfrmClothContractInPut = class(TForm)
@ -78,6 +92,8 @@ type
Panel1: TPanel; Panel1: TPanel;
Label11: TLabel; Label11: TLabel;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;