Group_99/D7szYidui
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-10-18 14:10:28 +08:00
parent b5f091af83
commit eae38d4fd4
88 changed files with 89680 additions and 69010 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

307
Z99Dependency/RTFunAndForm/Form/U_LabelAdd.dfm Normal file
View File

@ -0,0 +1,307 @@
object frmLabelAdd: TfrmLabelAdd
Left = 191
Top = 109
Width = 997
Height = 612
BorderIcons = [biMaximize]
Caption = #26631#31614#32534#36753
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 28
Width = 413
Height = 513
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 40
Top = 404
Width = 60
Height = 12
Caption = #23458#25143#21517#31216#65306
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Visible = False
end
object Label2: TLabel
Left = 31
Top = 69
Width = 60
Height = 12
Caption = #26631#31614#25991#20214#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 31
Top = 95
Width = 60
Height = 12
Caption = #22791' '#27880#65306
end
object Label9: TLabel
Left = 32
Top = 16
Width = 60
Height = 12
Caption = #26631#31614#21517#31216#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 32
Top = 44
Width = 60
Height = 12
Caption = #26631#31614#31867#22411#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object customerNo: TBtnEditA
Left = 104
Top = 400
Width = 295
Height = 20
Enabled = False
ReadOnly = True
TabOrder = 0
Visible = False
OnBtnClick = customerNoBtnClick
end
object LabelFileName: TBtnEditA
Left = 92
Top = 65
Width = 260
Height = 20
ReadOnly = True
TabOrder = 1
OnBtnClick = LabelFileNameBtnClick
end
object beizhu: TMemo
Left = 92
Top = 92
Width = 257
Height = 149
ScrollBars = ssBoth
TabOrder = 2
end
object BtOpen: TBitBtn
Left = 353
Top = 64
Width = 36
Height = 19
Caption = #25171#24320
TabOrder = 3
OnClick = BtOpenClick
end
object LabelCaption: TEdit
Left = 92
Top = 12
Width = 260
Height = 20
TabOrder = 4
end
object LabelType: TFTComboBox
Tag = 99
Left = 92
Top = 37
Width = 260
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 5
Text = #20013#25991#26631#31614
Items.Strings = (
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 981
Height = 20
AutoSize = True
ButtonHeight = 18
ButtonWidth = 60
Caption = 'ToolBar2'
Color = clBtnFace
Flat = True
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 1
Transparent = False
object Tsave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384#26631#31614
ImageIndex = 5
OnClick = TsaveClick
end
object Tclose: TToolButton
Left = 64
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 10
OnClick = TcloseClick
end
end
object RMPreview1: TRMPreview
Left = 428
Top = 20
Width = 553
Height = 553
Align = alRight
BevelOuter = bvLowered
Caption = #26631#31614#39044#35272
TabOrder = 2
OnDblClick = RMPreview1DblClick
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
object ADOQueryCmd: TADOQuery
Connection = LabelSet_DataLink.ADOLink
CommandTimeout = 300
Parameters = <>
Left = 512
Top = 208
end
object OpenDialog1: TOpenDialog
Filter = 'RMFl(*.rmf)|*.rmf'
InitialDir = '.'
Left = 200
Top = 4
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
Preview = RMPreview1
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 336
Top = 8
ReportData = {}
end
object ADOQueryTmp: TADOQuery
Connection = LabelSet_DataLink.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 528
Top = 184
end
object RMGridReportDesigner1: TRMGridReportDesigner
Left = 376
Top = 8
end
object RMBarCodeObject1: TRMBarCodeObject
Left = 280
Top = 4
end
object RMBMPExport1: TRMBMPExport
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
Left = 408
Top = 8
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 10
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 440
Top = 8
end
object RMDS_Main: TRMDBDataSet
Visible = True
AliasName = #26631#31614#25968#25454
Left = 498
Top = 72
end
object RMDataDictionary1: TRMDataDictionary
FieldFieldNames.TableName = 'TableName'
FieldFieldNames.FieldName = 'FieldName'
FieldFieldNames.FieldAlias = 'FieldAlias'
Left = 562
Top = 72
end
object ADOQuery1: TADOQuery
Connection = LabelSet_DataLink.ADOLink
Parameters = <>
Left = 352
Top = 480
end
object RMGridReport2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDS_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 432
Top = 368
ReportData = {}
end
end

344
Z99Dependency/RTFunAndForm/Form/U_LabelAdd.pas Normal file
View File

@ -0,0 +1,344 @@
unit U_LabelAdd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB,
RM_System, RM_Common, RM_Class, RM_GridReport, Buttons, FTComboBox,
RM_Preview, RM_e_Xls, RM_e_Graphic, RM_e_bmp, RM_BarCode,
RM_DsgGridReport, RM_Dataset, cxStyles, cxCustomData, cxGraphics,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid;
type
TfrmLabelAdd = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
customerNo: TBtnEditA;
LabelFileName: TBtnEditA;
beizhu: TMemo;
ToolBar1: TToolBar;
Tsave: TToolButton;
Tclose: TToolButton;
ADOQueryCmd: TADOQuery;
OpenDialog1: TOpenDialog;
RMGridReport1: TRMGridReport;
BtOpen: TBitBtn;
Label9: TLabel;
LabelCaption: TEdit;
Label10: TLabel;
LabelType: TFTComboBox;
ADOQueryTmp: TADOQuery;
RMPreview1: TRMPreview;
RMGridReportDesigner1: TRMGridReportDesigner;
RMBarCodeObject1: TRMBarCodeObject;
RMBMPExport1: TRMBMPExport;
RMXLSExport1: TRMXLSExport;
RMDS_Main: TRMDBDataSet;
RMDataDictionary1: TRMDataDictionary;
ADOQuery1: TADOQuery;
RMGridReport2: TRMGridReport;
procedure TcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TsaveClick(Sender: TObject);
procedure LabelFileNameBtnClick(Sender: TObject);
procedure customerNoBtnClick(Sender: TObject);
procedure BtOpenClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure RMPreview1DblClick(Sender: TObject);
private
fIsChg:Boolean;
function SaveData():Boolean;
function EditData():Boolean;
procedure InitWinData();
procedure InitVarDictionary();
procedure InitDataSetDictionary();
public
fcustomNo:string;
fKeyNo:string;
fWinStatus:integer;
end;
var
frmLabelAdd: TfrmLabelAdd;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmLabelAdd.TcloseClick(Sender: TObject);
begin
if fIsChg then
begin
if application.MessageBox('标签设计过，是否要保存?','提示信息',1)=1 then
begin
Tsave.Click ;
end
else
close;
end
else
close;
end;
procedure TfrmLabelAdd.FormCreate(Sender: TObject);
begin
panel1.Align :=alClient;
fIsChg:=false;
// ClearWinData(panel1);
// InitVarDictionary();
end;
procedure TfrmLabelAdd.TsaveClick(Sender: TObject);
begin
if trim(labelCaption.Text)='' then
begin
application.MessageBox('标签名称不能为空！','提示');
labelCaption.SetFocus;
exit;
end;
if trim(LabelFileName.Text)='' then
begin
application.MessageBox('标签文件不能为空，请选择标签！','提示');
LabelFileName.SetFocus;
exit;
end;
if fWinStatus=0 then
begin
if SaveData() then
begin
ModalResult:=1;
end;
end
else
begin
if EditData() then
begin
ModalResult:=1;
end;
end;
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelAdd.SaveData():Boolean;
begin
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from P_Label');
sql.Add('where 1<>1');
Open;
Append;
fieldByName('CustomerNO').value:=trim(customerno.txtCode);
fieldByName('filler').value:=DName;
fieldByName('filltime').value:=DServerDate;
fieldByName('beizhu').value:= trim(beizhu.text);
fieldByName('LabelCaption').value:=trim(LabelCaption.text);
fieldByName('LabelType').value:=trim(LabelType.text);
fieldByName('LabelFileName').value:= trim(LabelFileName.text);
//TBlobField(FieldByName('LabelFile')).LoadFromStream(fStream);
RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
Post;
end;
result:=true;
except
Result:=false;
application.MessageBox('保存标签模板出错!','警告信息',0);
end;
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelAdd.EditData():Boolean;
begin
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from P_Label');
sql.Add('where labelId='+fkeyNo);
Open;
Edit;
fieldByName('LabelCaption').value:=trim(LabelCaption.text);
fieldByName('LabelType').value:=trim(LabelType.text);
fieldByName('LabelFileName').value:= trim(LabelFileName.text);
RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
fieldByName('Editer').value:=DName;
fieldByName('EditTime').value:=DServerDate;
fieldByName('beizhu').value:= trim(beizhu.text);
Post;
end;
result:=true;
except
Result:=false;
application.MessageBox('保存标签模板出错!','警告信息',0);
end;
end;
procedure TfrmLabelAdd.LabelFileNameBtnClick(Sender: TObject);
begin
if OpenDialog1.Execute() then
begin
LabelFileName.Text:=OpenDialog1.FileName;
RMGridReport1.LoadFromFile(LabelFileName.Text);
RMGridReport1.Preview :=RMPreview1;
RMGridReport1.ShowReport ;
end;
end;
procedure TfrmLabelAdd.customerNoBtnClick(Sender: TObject);
begin
{
FormGetCust:=TFormGetCust.Create(self);
if FormGetCust.ShowModal=mrok then
begin
customNo.TxtCode:=trim(FormGetCust.ADOQuery1.Fieldbyname('customno').AsString);
customNo.Text:=trim(FormGetCust.ADOQuery1.Fieldbyname('shortname').AsString);
end;
FormGetCust.Free;
}
{ frmCustHelp:=TfrmCustHelp.create(self);
with frmCustHelp do
begin
if showModal=1 then
begin
customNo.TxtCode:=trim(ADOQueryHelp.Fieldbyname('customno').AsString);
customNo.Text:=trim(ADOQueryHelp.Fieldbyname('shortname').AsString);
end;
free;
end; }
end;
procedure TfrmLabelAdd.BtOpenClick(Sender: TObject);
begin
with RMGridReport2 do
begin
if trim(LabelFileName.Text)='' then
LoadFromFile(ExtractFilePath(Application.ExeName)+'report/标签模板.rmf');
InitDataSetDictionary();
RMDS_Main.DataSet :=ADOQuery1;
application.ProcessMessages;
DesignReport() ;
fIsChg:=true;
RMDS_Main.DataSet :=nil;
RMGridReport1.NewReport;
RMGridReport1.LoadFromFile(LabelFileName.Text);
RMGridReport1.ShowReport ;
end;
end;
////////////////////////////////////////////////////////////
//初始化窗口数据
////////////////////////////////////////////////////////////
procedure TfrmLabelAdd.InitWinData();
begin
try
with ADOQueryTmp do
begin
close;
sql.Clear ;
sql.Add('select A.*');
// sql.Add('customNoName=isnull((select customName from BC_customer where customNO=A.customNo),A.customNo)');
sql.Add('from P_Label A');
sql.Add('WHERE LabelId='+fkeyNo);
Open;
if isEmpty then
begin
close;
exit;
end;
SSetWinData(ADOQueryTmp,panel1);
RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
RMGridReport2.FileName:=trim(fieldByName('labelFileName').AsString);
RMGridReport2.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
RMGridReport1.Preview :=RMPreview1;
//RMGridReport1.PrepareReport;
RMGridReport1.ShowReport ;
end;
except
end;
end;
procedure TfrmLabelAdd.FormShow(Sender: TObject);
begin
if fWinStatus>0 then
InitWinData();
end;
procedure TfrmLabelAdd.RMPreview1DblClick(Sender: TObject);
begin
//btOpen.Click ;
end;
////////////////////////////////////////////////////////////
//
////////////////////////////////////////////////////////////
procedure TfrmLabelAdd.InitVarDictionary();
var
i:integer;
begin
{ try
with RMGridReport2 do
begin
Dictionary.Variables.Clear ;
Dictionary.Variables.AddCategory('客户单位信息');
with ADOQueryTmp do
begin
close;
sql.clear;
sql.Add('exec P_Label_CustPrintData');
sql.Add(quotedStr(fCustomNo));
Open;
for i:=0 to FieldCount-1 do
begin
Dictionary.Variables.Add(trim(fields[i].FieldName)
,'');
Dictionary.Variables.AsString[trim(fields[i].FieldName)]:=trim(fields[i].AsString);
end;
end;
end;
finally
end; }
end;
/////////////////////////////////////////////////
//
/////////////////////////////////////////////////
procedure TfrmLabelAdd.InitDataSetDictionary();
begin
{ with ADOQuery1 do
begin
close;
sql.Clear ;
sql.Add('exec P_Label_PrintSet');
sql.Add(quotedStr(''));
//sql.Add(','+quotedStr(''));
//sql.Add(','+quotedStr(''));
//sql.Add(','+quotedStr(''));
//sql.Add(','+quotedStr(''));
OPen;
end;
with RMGridReport2 do
begin
Dictionary.FieldAliases.Clear;
Dictionary.FieldAliases['RMDS_Main']:= '标签数据';
Dictionary.FieldAliases['RMDS_Main."barcode"']:='标签条码';
end; }
end;
end.

428
Z99Dependency/RTFunAndForm/Form/U_LabelList.dfm Normal file
View File

@ -0,0 +1,428 @@
object frmLabelList: TfrmLabelList
Left = 192
Top = 29
Width = 1057
Height = 705
BorderIcons = [biMaximize]
Caption = #26631#31614#20449#24687
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 12
Top = 80
Width = 452
Height = 561
BevelOuter = bvNone
TabOrder = 0
object Panel2: TPanel
Left = 0
Top = 3
Width = 452
Height = 558
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object cxGrid1: TcxGrid
Left = 2
Top = 2
Width = 448
Height = 554
Align = alClient
TabOrder = 0
object tv1: TcxGridDBTableView
OnDblClick = tv1DblClick
NavigatorButtons.ConfirmDelete = False
OnFocusedRecordChanged = tv1FocusedRecordChanged
DataController.DataSource = DS_Label
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object tv1labelId: TcxGridDBColumn
Caption = #26631#31614'ID'
DataBinding.FieldName = 'labelId'
Width = 53
end
object tv1labeltype: TcxGridDBColumn
Caption = #26631#31614#31867#22411
DataBinding.FieldName = 'labeltype'
HeaderAlignmentHorz = taCenter
HeaderAlignmentVert = vaCenter
Width = 90
end
object tv1labelCaption: TcxGridDBColumn
Caption = #26631#31614#26631#39064
DataBinding.FieldName = 'labelCaption'
HeaderAlignmentHorz = taCenter
HeaderAlignmentVert = vaCenter
Width = 120
end
object tv1labelFile: TcxGridDBColumn
Caption = #25991#20214#21517
DataBinding.FieldName = 'labelFile'
HeaderAlignmentHorz = taCenter
HeaderAlignmentVert = vaCenter
Width = 167
end
end
object cxGrid1Level1: TcxGridLevel
GridView = tv1
end
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 452
Height = 3
Align = alTop
Caption = 'Panel3'
TabOrder = 1
Visible = False
object Label1: TLabel
Left = 40
Top = 13
Width = 60
Height = 12
Caption = #23458#25143#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 52
Top = 35
Width = 48
Height = 12
Caption = #19994#21153#21592#65306
Visible = False
end
object Label4: TLabel
Left = 40
Top = 61
Width = 60
Height = 12
Caption = #30005#35805#21495#30721#65306
end
object Label5: TLabel
Left = 39
Top = 86
Width = 60
Height = 12
Caption = #20844#21496#21517#31216#65306
end
object Label6: TLabel
Left = 14
Top = 108
Width = 84
Height = 12
Caption = #20844#21496#33521#25991#21517#31216#65306
end
object Label7: TLabel
Left = 61
Top = 133
Width = 36
Height = 12
Caption = #22320#22336#65306
end
object Label8: TLabel
Left = 37
Top = 157
Width = 60
Height = 12
Caption = #33521#25991#22320#22336#65306
end
object Label3: TLabel
Left = 61
Top = 192
Width = 36
Height = 12
Caption = #22791#27880#65306
end
object Note: TMemo
Left = 120
Top = 175
Width = 293
Height = 63
ScrollBars = ssBoth
TabOrder = 0
end
object EngAddress: TEdit
Left = 120
Top = 151
Width = 294
Height = 20
Enabled = False
TabOrder = 1
end
object ChnAddress: TEdit
Left = 120
Top = 127
Width = 293
Height = 20
TabOrder = 2
end
object engFactory: TEdit
Left = 119
Top = 104
Width = 295
Height = 20
TabOrder = 3
end
object ChnFactory: TEdit
Left = 119
Top = 81
Width = 294
Height = 20
TabOrder = 4
end
object TelePhone: TEdit
Left = 119
Top = 58
Width = 294
Height = 20
TabOrder = 5
end
object ywy: TEdit
Tag = 99
Left = 119
Top = 31
Width = 295
Height = 20
ReadOnly = True
TabOrder = 6
Text = 'ywy'
Visible = False
end
object customNo: TBtnEditA
Tag = 1
Left = 120
Top = 7
Width = 295
Height = 20
Enabled = False
ReadOnly = True
TabOrder = 7
OnBtnClick = customNoBtnClick
end
end
end
object RMPreview1: TRMPreview
Left = 488
Top = 85
Width = 553
Height = 581
Align = alRight
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 1
OnDblClick = RMPreview1DblClick
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
object ToolBar2: TToolBar
Left = 0
Top = 0
Width = 1041
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar2'
Color = clBtnFace
Flat = True
Images = LabelSet_DataLink.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 2
Transparent = False
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26597#35810
ImageIndex = 21
OnClick = ToolButton1Click
end
object TOK: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #30830#23450
ImageIndex = 41
OnClick = TOkClick
end
object Tadd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686#26631#31614
ImageIndex = 44
OnClick = TaddClick
end
object Tupd: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913#26631#31614
ImageIndex = 54
OnClick = TupdClick
end
object Tdel: TToolButton
Left = 300
Top = 0
AutoSize = True
Caption = #21024#38500#26631#31614
ImageIndex = 48
OnClick = TdelClick
end
object Tclose: TToolButton
Left = 387
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TcloseClick
end
end
object Panel4: TPanel
Left = 0
Top = 32
Width = 1041
Height = 53
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
object Label9: TLabel
Left = 36
Top = 20
Width = 48
Height = 12
Caption = #26631#31614#31867#22411
end
object Label10: TLabel
Left = 280
Top = 20
Width = 48
Height = 12
Caption = #26631#31614#26631#39064
end
object LabelCaption: TEdit
Left = 332
Top = 16
Width = 100
Height = 20
TabOrder = 0
OnChange = LabelTypeChange
end
object LabelType: TFTComboBox
Tag = 99
Left = 88
Top = 17
Width = 100
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 1
OnChange = LabelTypeChange
Items.Strings = (
''
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
object ADOQueryCmd: TADOQuery
Connection = LabelSet_DataLink.ADOLink
CommandTimeout = 300
Parameters = <>
Left = 508
Top = 208
end
object OpenDialog1: TOpenDialog
Filter = 'RMFl(*.rmf)|*.rmf'
InitialDir = '.'
Left = 316
Top = 148
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
ModalPreview = False
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
Preview = RMPreview1
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 436
Top = 152
ReportData = {}
end
object ADOQueryTmp: TADOQuery
Connection = LabelSet_DataLink.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 528
Top = 184
end
object ADOQuery1: TADOQuery
Connection = LabelSet_DataLink.ADOLink
Parameters = <>
Left = 392
Top = 228
end
object DS_Label: TDataSource
DataSet = ADOQueryLabel
Left = 66
Top = 456
end
object ADOQueryLabel: TADOQuery
Connection = LabelSet_DataLink.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 114
Top = 464
end
end

612
Z99Dependency/RTFunAndForm/Form/U_LabelList.pas Normal file
View File

@ -0,0 +1,612 @@
unit U_LabelList;
interface
uses
Windows, Messages, SysUtils, StrUtils,Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB,
RM_System, RM_Common, RM_Class, RM_GridReport, Buttons, FTComboBox,
RM_Preview, RM_e_Xls, RM_e_Graphic, RM_e_bmp, RM_BarCode,
RM_DsgGridReport, RM_Dataset, cxStyles, cxCustomData, cxGraphics,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid;
type
TfrmLabelList = class(TForm)
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
OpenDialog1: TOpenDialog;
RMGridReport1: TRMGridReport;
ADOQueryTmp: TADOQuery;
RMPreview1: TRMPreview;
ADOQuery1: TADOQuery;
Panel2: TPanel;
cxGrid1: TcxGrid;
tv1: TcxGridDBTableView;
tv1labeltype: TcxGridDBColumn;
tv1labelCaption: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
tv1labelFile: TcxGridDBColumn;
DS_Label: TDataSource;
ADOQueryLabel: TADOQuery;
Panel3: TPanel;
Note: TMemo;
EngAddress: TEdit;
ChnAddress: TEdit;
engFactory: TEdit;
ChnFactory: TEdit;
TelePhone: TEdit;
ywy: TEdit;
customNo: TBtnEditA;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label3: TLabel;
tv1labelId: TcxGridDBColumn;
ToolBar2: TToolBar;
Tadd: TToolButton;
Tupd: TToolButton;
Tdel: TToolButton;
TOK: TToolButton;
Tclose: TToolButton;
Panel4: TPanel;
ToolButton1: TToolButton;
Label9: TLabel;
Label10: TLabel;
LabelCaption: TEdit;
LabelType: TFTComboBox;
procedure TcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TsaveClick(Sender: TObject);
procedure customNoBtnClick(Sender: TObject);
procedure BtOpenClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure RMPreview1DblClick(Sender: TObject);
procedure TaddClick(Sender: TObject);
procedure TupdClick(Sender: TObject);
procedure tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure TdelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure TOkClick(Sender: TObject);
procedure tv1DblClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure LabelTypeChange(Sender: TObject);
private
isLoad:Boolean;
function SaveData():Boolean;
function EditData():Boolean;
function IsCheckCustOk():Boolean;
function DeleteData():Boolean;
procedure InitWinData();
procedure InitVarDictionary();
procedure InitDataSetDictionary();
procedure InitGrid();
procedure OpenLabel();
procedure SetWinStatus();
procedure DoFilter();
public
fSelLabelId:String;
fKeyNo:string;
fchg:Boolean;
fIsShowModal:Boolean;
fWinStatus:integer;
end;
var
frmLabelList: TfrmLabelList;
implementation
uses
U_DataLink, U_LabelAdd;
{$R *.dfm}
procedure TfrmLabelList.DoFilter();
var
filterStr:string;
begin
filterStr:='';
//计划单号
if trim(LabelType.Text) <>'' then
begin
filterStr:=' and LabelType like '+quotedStr('%'+trim(LabelType.Text)+'%');
end;
//名称
if trim(LabelCaption.Text)<>'' then
begin
filterStr:=filterStr+' and LabelCaption like '+quotedStr('%'+trim(LabelCaption.Text)+'%');
end;
try
ADOQueryLabel.DisableControls ;
if trim(filterStr)='' then
begin
ADOQueryLabel.Filtered:=false;
ADOQueryLabel.EnableControls;
exit;
end;
filterStr:=trim(RightBStr(filterStr,length(filterStr)-4));
with ADOQueryLabel do
begin
filtered:=false;
filter:=filterStr;
filtered:=true;
end;
finally
ADOQueryLabel.EnableControls;
end;
end;
procedure TfrmLabelList.TcloseClick(Sender: TObject);
begin
close;
end;
procedure TfrmLabelList.FormCreate(Sender: TObject);
begin
panel1.Align :=alClient;
// ClearWinData(panel3);
fSelLabelId := '';
end;
procedure TfrmLabelList.TsaveClick(Sender: TObject);
begin
if trim(customNO.Text)='' then
begin
application.MessageBox('客户名称不能为空,请选择客户！','提示');
customNo.SetFocus;
exit;
end;
if application.MessageBox('确定要保存吗?','提示信息',1)=2 then exit;
if fWinStatus=0 then
begin
if not IsCheckCustOk() then exit;
if SaveData() then
begin
fWinStatus:=1;
fchg:=true;
SetWinStatus();
end;
end
else
begin
if EditData() then
begin
fchg:=true;
application.MessageBox('保存成功!','提示信息',0)
end;
end;
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelList.SaveData():Boolean;
begin
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from JD_Label');
sql.Add('where 1<>1');
Open;
Append;
fieldByName('customno').value:=trim(customno.txtCode);
fieldByName('ChnFactory').value:=trim(ChnFactory.text);
fieldByName('engFactory').value:=trim(engFactory.text);
fieldByName('TelePhone').value:=trim(TelePhone.text);
fieldByName('ChnAddress').value:=trim(ChnAddress.text);
fieldByName('EngAddress').value:=trim(EngAddress.text);
fieldByName('filler').value:=Dname;
fieldByName('filltime').value:=DServerDate;
fieldByName('note').value:= trim(Note.text);
Post;
end;
result:=true;
except
Result:=false;
application.MessageBox('保存标签模板出错!','警告信息',0);
end;
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelList.EditData():Boolean;
begin
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from JD_Label');
sql.Add('where customNo='+fKeyNo);
Open;
Edit;
fieldByName('customno').value:=trim(customno.txtCode);
fieldByName('ChnFactory').value:=trim(ChnFactory.text);
fieldByName('engFactory').value:=trim(engFactory.text);
fieldByName('TelePhone').value:=trim(TelePhone.text);
fieldByName('ChnAddress').value:=trim(ChnAddress.text);
fieldByName('EngAddress').value:=trim(EngAddress.text);
fieldByName('note').value:= trim(Note.text);
Post;
end;
result:=true;
except
Result:=false;
application.MessageBox('保存标签模板出错!','警告信息',0);
end;
end;
procedure TfrmLabelList.customNoBtnClick(Sender: TObject);
begin
{ FormGetCust:=TFormGetCust.Create(self);
if FormGetCust.ShowModal=mrok then
begin
customNo.TxtCode:=trim(FormGetCust.ADOQuery1.Fieldbyname('customno').AsString);
customNo.Text:=trim(FormGetCust.ADOQuery1.Fieldbyname('shortname').AsString);
end;
FormGetCust.Free; }
{ frmCustHelp:=TfrmCustHelp.create(self);
with frmCustHelp do
begin
if showModal=1 then
begin
customNo.TxtCode:=trim(ADOQueryHelp.Fieldbyname('customno').AsString);
customNo.Text:=trim(ADOQueryHelp.Fieldbyname('shortname').AsString);
end;
free;
end;
}
end;
procedure TfrmLabelList.BtOpenClick(Sender: TObject);
begin
end;
////////////////////////////////////////////////////////////
//初始化窗口数据
////////////////////////////////////////////////////////////
procedure TfrmLabelList.InitWinData();
begin
try
with ADOQueryTmp do
begin
close;
sql.Clear ;
sql.Add('select A.* ,B.customName as customNoName');
sql.Add('from JD_Label A');
sql.Add('INNER JOIN BC_customer B ON A.customNO=B.customNo');
sql.Add('WHERE B.customNo='''+fkeyNo+'''');
Open;
if isEmpty then
begin
close;
exit;
end;
// SetWinData(ADOQueryTmp,panel3);
{
RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
RMGridReport1.Preview :=RMPreview1;
RMGridReport1.PrepareReport;
RMGridReport1.ShowReport ;
}
end;
except
end;
end;
procedure TfrmLabelList.FormShow(Sender: TObject);
begin
{ with ADOquerytmp do
begin
close;
sql.Clear ;
sql.Add('select count(A.customNo) as cnt');
sql.Add('from jd_label A');
sql.Add('where A.customNo='''+fKeyNO+'''');
Open;
fWinStatus:=fieldByName('cnt').AsInteger ;
///
if fWinStatus=0 then
begin
close;
sql.Clear ;
sql.Add('select customNo,shortName from bc_customer');
sql.Add('where customNo='''+fKeyNO+'''');
Open;
if RecordCount>0 then
begin
customNo.TxtCode :=trim(fieldByName('customNo').AsString);
customNo.Text :=trim(fieldByName('shortName').AsString);
end;
end;
end;
SetWinStatus();
if fWinStatus>0 then
InitWinData();
}
if fWinStatus=1 then tok.Visible:=false;
InitGrid();
end;
procedure TfrmLabelList.RMPreview1DblClick(Sender: TObject);
begin
//btOpen.Click ;
end;
////////////////////////////////////////////////////////////
//
////////////////////////////////////////////////////////////
procedure TfrmLabelList.InitVarDictionary();
var
TmpList:Tstrings;
mm:string;
i:integer;
begin
try
TmpList:=TstringList.Create();
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select distinct ItemType from JC_LabelSetItems ');
sql.Add('where valid=''Y''');
Open;
TmpList.Clear ;
while not Eof do
begin
TmpList.Add(trim(fieldByName('ItemType').AsString));
Next;
end;
end;
finally
TmpList.Free ;
end;
end;
/////////////////////////////////////////////////
//
/////////////////////////////////////////////////
procedure TfrmLabelList.InitDataSetDictionary();
begin
{ with ADOQuery1 do
begin
close;
sql.Clear ;
sql.Add('exec P_Get_LabelPrintData');
sql.Add(quotedStr(''));
sql.Add(','+quotedStr(''));
sql.Add(','+quotedStr(''));
OPen;
end; }
end;
procedure TfrmLabelList.TaddClick(Sender: TObject);
begin
{ if trim(customNo.text)='' then
begin
application.MessageBox('请先选择客户?','提示信息',0);
exit;
end;
}
frmLabelAdd:=TfrmLabelAdd.create(self);
with frmLabelAdd do
begin
// fCustomNo:=trim(customNo.TxtCode);
// customNO.TxtCode:=trim(self.customNo.TxtCode) ;
// customNO.text:=trim(self.customNo.text) ;
if showModal =1 then
begin
fchg:=true;
InitGrid();
end;
free;
end;
end;
procedure TfrmLabelList.TupdClick(Sender: TObject);
begin
if ADOQueryLabel.IsEmpty then exit;
frmLabelAdd:=TfrmLabelAdd.create(self);
with frmLabelAdd do
begin
// fCustomNo:=trim(customNo.TxtCode);
// customNO.TxtCode:=trim(self.customNo.TxtCode) ;
// customNO.text:=trim(self.customNo.text) ;
fKeyNo:=ADOQueryLabel.fieldByName('LabelId').AsString ;
fWinstatus:=1;
if showModal =1 then
begin
fchg:=true;
InitGrid();
end;
free;
end;
end;
/////////////////////////////////////////////
//
/////////////////////////////////////////////
procedure TfrmLabelList.InitGrid();
begin
try
isLoad:=false;
ADOQuerylabel.DisableControls ;
with ADOQuerylabel do
begin
close;
sql.Clear ;
sql.Add('select * from P_Label');
// sql.Add('where customNO='''+trim(fKeyNo)+'''');
sql.Add('where valid=''Y''');
Open;
//if trim(fSelLabelId)<>'' then
// locate('labelId',(fSelLabelId),[]) ;
end;
finally
ADOQuerylabel.EnableControls;
isLoad:=true;
DoFilter();
OpenLabel();
end;
end;
////////////////////////////////////////////////////////
//函数功能：打开标签文件
////////////////////////////////////////////////////////
procedure TfrmLabelList.OpenLabel();
begin
if ADOQueryLabel.IsEmpty then exit;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport ;
end;
end;
procedure TfrmLabelList.tv1FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
begin
if isLoad then
OpenLabel();
end;
//////////////////////////////////////////////////////////
//函数功能：检查该客户的标签是否已存在
/////////////////////////////////////////////////////////
function TfrmLabelList.IsCheckCustOk():Boolean;
begin
try
with ADOQueryTmp do
begin
close;
sql.Clear ;
sql.Add('select count(customNO)as cnt from P_Label');
sql.Add('where customNO='''+trim(customNO.TxtCode)+'''');
Open;
if fieldByName('cnt').AsInteger>0 then
begin
Result:=false ;
application.MessageBox('该客户标签信息已存!','警告信息',0);
end
else
Result:=true;
end;
except
result:=false;
application.MessageBox('检查该客户标签信息是否已存在时发生错误!','警告信息',0);
end;
end;
/////////////////////////////////////////////////////////////
//
/////////////////////////////////////////////////////////////
function TfrmLabelList.DeleteData():Boolean;
begin
try
with ADOQueryCmd do
begin
close;
sql.clear;
sql.Add('delete P_Label');
sql.Add('where labelId='+ADOQueryLabel.fieldByName('LabelID').asString);
execSql;
end;
result:=true;
except
result:=false;
application.MessageBox('删除失败!','警告信息',0);
end;
end;
procedure TfrmLabelList.TdelClick(Sender: TObject);
begin
if ADOQueryLabel.IsEmpty then exit;
if application.MessageBox('确定要删除此标签吗？','警告信息',1)=2 then exit;
if DeleteData() then
begin
fchg:=true;
InitGrid();
end;
end;
//////////////////////////////////////////////////////////
//
/////////////////////////////////////////////////////////
procedure TfrmLabelList.SetWinStatus();
begin
case fWinStatus of
0:
begin
// ToolBar2.Visible :=false;
// tsave.Visible :=true;
customNo.Enabled :=true;
panel3.Enabled :=true;
end;
1:
begin
// ToolBar2.Visible :=true;
// tsave.Visible :=false;
customNo.Enabled :=false;
panel3.Enabled :=false;
TOK.Visible:=false;
end;
5:
begin
// ToolBar2.Visible :=false;
// tsave.Visible :=false;
panel1.Enabled :=false;
panel3.Enabled :=false;
end;
end ;
end;
procedure TfrmLabelList.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if fIsShowModal then
Application:=MainApplication ;
Action:=caFree;
end;
procedure TfrmLabelList.FormDestroy(Sender: TObject);
begin
frmLabelList:=nil;
end;
procedure TfrmLabelList.TOkClick(Sender: TObject);
begin
if fWinstatus=1 then exit;
if ADOQueryLabel.IsEmpty then exit;
fSelLabelId:=trim(ADOQueryLabel.fieldByName('labelId').asString)
//+'|'+trim(ADOQueryLabel.fieldByName('labeltype').asString);
+'|'+trim(ADOQueryLabel.fieldByName('labelCaption').asString);
SetLength( fSelLabelId,32);
close;
end;
procedure TfrmLabelList.tv1DblClick(Sender: TObject);
begin
// TOk.Click ;
end;
procedure TfrmLabelList.ToolButton1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmLabelList.LabelTypeChange(Sender: TObject);
begin
DoFilter();
end;
end.

18746
Z99Dependency/ThreeFun/Form/U_ZDYHelpSM.dfm → Z99Dependency/RTFunAndForm/Form/U_RTZDYHelp.dfm
View File

File diff suppressed because it is too large Load Diff

13
Z99Dependency/ThreeFun/Form/U_RTZDYHelp.pas → Z99Dependency/RTFunAndForm/Form/U_RTZDYHelp.pas
View File

@ -8,9 +8,7 @@ uses
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu;
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu;
type
TfrmRTZDYHelp = class(TForm)
@ -41,6 +39,7 @@ type
cxGridPopupMenu1: TcxGridPopupMenu;
V1ZdyFlag: TcxGridDBColumn;
V1HelpType: TcxGridDBColumn;
ThreeImgList: TImageList;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
@ -130,8 +129,8 @@ begin
end;
Open;
end;
SCreateCDS(ADOQueryMain,ClientDataSet1);
SInitCDSData(ADOQueryMain,ClientDataSet1);
SCreateCDS20(ADOQueryMain,ClientDataSet1);
SInitCDSData20(ADOQueryMain,ClientDataSet1);
finally
ADOQueryMain.EnableControls;
end;
@ -418,8 +417,8 @@ begin
finally
ADOQueryMain.EnableControls;
end;
SCreateCDS(ADOQueryMain,ClientDataSet1);
SInitCDSData(ADOQueryMain,ClientDataSet1);
SCreateCDS20(ADOQueryMain,ClientDataSet1);
SInitCDSData20(ADOQueryMain,ClientDataSet1);
end;
end;

3394
Z99Dependency/RTFunAndForm/Fun/U_Fun10.pas Normal file
View File

File diff suppressed because it is too large Load Diff

214
Z99Dependency/RTFunAndForm/Fun/U_MyClassHelpers.pas Normal file
View File

@ -0,0 +1,214 @@
unit U_MyClassHelpers;
interface
Uses
SysUtils,Windows,Classes,Graphics, Controls,Forms,Dialogs, Math,typinfo;
// uMySysUtils;
Const //记录设计时的屏幕分辨率
OriWidth=1366;
OriHeight=768;
{var
OriWidth,OriHeight:Integer; }
Type
TfmForm=Class(TForm) //实现窗体屏幕分辨率的自动调整
Private
fScrResolutionRateW: Double;
fScrResolutionRateH: Double;
fIsFitDeviceDone: Boolean;
procedure FitDeviceResolution;
Protected
Property IsFitDeviceDone:Boolean Read fIsFitDeviceDone;
Property ScrResolutionRateH:Double Read fScrResolutionRateH;
Property ScrResolutionRateW:Double Read fScrResolutionRateW;
Public
Constructor Create(AOwner: TComponent); Override;
End;
TfdForm=Class(TfmForm) //增加对话框窗体的修改确认
Protected
fIsDlgChange:Boolean;
Public
Constructor Create(AOwner: TComponent); Override;
Property IsDlgChange:Boolean Read fIsDlgChange default false;
End;
implementation
//uses UMain;
constructor TfmForm.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
fScrResolutionRateH:=1;
fScrResolutionRateW:=1;
Try
if Not fIsFitDeviceDone then
Begin
FitDeviceResolution;
fIsFitDeviceDone:=True;
End;
Except
fIsFitDeviceDone:=False;
End;
end;
procedure TfmForm.FitDeviceResolution;
Var
LocList:TList;
LocFontRate:Double;
LocFontSize:Integer;
LocFont:TFont;
locK:Integer;
//计算尺度调整的基本参数
Procedure CalBasicScalePars;
Begin
try
Self.Scaled:=False;
fScrResolutionRateH:=screen.height/OriHeight;
fScrResolutionRateW:=screen.Width/OriWidth;
LocFontRate:=Min(fScrResolutionRateH,fScrResolutionRateW);
except
Raise;
end;
End;
function PropertyExists(const AObject: TObject;const APropName:String):Boolean;
//判断一个属性是否存在
var
PropInfo:PPropInfo;
begin
PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
Result:=Assigned(PropInfo);
end;
function GetObjectProperty(
const AObject : TObject;
const APropName : string
):TObject;
var
PropInfo:PPropInfo;
begin
Result := nil;
PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
if Assigned(PropInfo) and
(PropInfo^.PropType^.Kind = tkClass) then
Result := GetObjectProp(AObject,PropInfo);
end;
//保存原有坐标位置：利用递归法遍历各级容器里的控件，直到最后一级
Procedure ControlsPostoList(vCtl:TControl;vList:TList);
Var
locPRect:^TRect;
i:Integer;
locCtl:TControl;
locFontp:^Integer;
Begin
try
New(locPRect);
locPRect^:=vCtl.BoundsRect;
vList.Add(locPRect);
If PropertyExists(vCtl,'FONT') Then
Begin
LocFont:=TFont(GetObjectProperty(vCtl,'FONT'));
New(locFontp);
locFontP^:=LocFont.Size;
vList.Add(locFontP);
// ShowMessage(vCtl.Name+'Ori:='+InttoStr(LocFont.Size));
End;
If vCtl Is TWinControl Then
For i:=0 to TWinControl(vCtl).ControlCount-1 Do
begin
locCtl:=TWinControl(vCtl).Controls[i];
ControlsPosToList(locCtl,vList);
end;
except
Raise;
end;
End;
//计算新的坐标位置：利用递归法遍历各级容器里的控件，直到最后一层。
// 计算坐标时先计算顶级容器级的，然后逐级递进
Procedure AdjustControlsScale(vCtl:TControl;vList:TList;Var vK:Integer);
Var
locOriRect,LocNewRect:TRect;
i:Integer;
locCtl:TControl;
Begin
try
If vCtl.Align<>alClient Then
Begin
locOriRect:=TRect(vList.Items[vK]^);
With locNewRect Do
begin
Left:=Round(locOriRect.Left*fScrResolutionRateW);
Right:=Round(locOriRect.Right*fScrResolutionRateW);
Top:=Round(locOriRect.Top*fScrResolutionRateH);
Bottom:=Round(locOriRect.Bottom*fScrResolutionRateH);
vCtl.SetBounds(Left,Top,Right-Left,Bottom-Top);
end;
End;
If PropertyExists(vCtl,'FONT') Then
Begin
Inc(vK);
LocFont:=TFont(GetObjectProperty(vCtl,'FONT'));
locFontSize:=Integer(vList.Items[vK]^);
LocFont.Size := Round(LocFontRate*locFontSize);
// ShowMessage(vCtl.Name+'New:='+InttoStr(LocFont.Size));
End;
Inc(vK);
If vCtl Is TWinControl Then
For i:=0 to TwinControl(vCtl).ControlCount-1 Do
begin
locCtl:=TWinControl(vCtl).Controls[i];
AdjustControlsScale(locCtl,vList,vK);
end;
except
Raise;
end;
End;
//释放坐标位置指针和列表对象
Procedure FreeListItem(vList:TList);
Var
i:Integer;
Begin
For i:=0 to vList.Count-1 Do
Dispose(vList.Items[i]);
vList.Free;
End;
begin
LocList:=TList.Create;
Try
Try
if (Screen.width<>OriWidth)OR(Screen.Height<>OriHeight) then
begin
CalBasicScalePars;
// AdjustComponentFont(Self);
ControlsPostoList(Self,locList);
locK:=0;
AdjustControlsScale(Self,locList,locK);
End;
Except on E:Exception Do
Raise Exception.Create('进行屏幕分辨率自适应调整时出现错误'+E.Message);
End;
Finally
FreeListItem(locList);
End;
end;
{ TfdForm }
constructor TfdForm.Create(AOwner: TComponent);
begin
inherited;
fIsDlgChange:=False;
end;
end.

4221
Z99Dependency/RTFunAndForm/Fun/U_RTFun.pas Normal file
View File

File diff suppressed because it is too large Load Diff

402
Z99Dependency/ThreeFun/Form/U_ClList.dfm Normal file
View File

@ -0,0 +1,402 @@
object frmClList: TfrmClList
Left = 141
Top = 134
Width = 889
Height = 528
Caption = #25104#21697#27979#35797#25253#21578
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 873
Height = 20
AutoSize = True
ButtonHeight = 18
ButtonWidth = 66
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object tbselect: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26597#35810
ImageIndex = 2
OnClick = tbselectClick
end
object tbadd: TToolButton
Left = 40
Top = 0
AutoSize = True
Caption = #22686#21152
ImageIndex = 3
OnClick = tbaddClick
end
object tbupdate: TToolButton
Left = 80
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 54
OnClick = tbupdateClick
end
object tbdelete: TToolButton
Left = 120
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 48
OnClick = tbdeleteClick
end
object tbLook: TToolButton
Left = 160
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 77
OnClick = tbLookClick
end
object ToolButton1: TToolButton
Left = 200
Top = 0
Caption = #23548#20986'Excel'
ImageIndex = 75
OnClick = ToolButton1Click
end
object tbPrintlb: TToolButton
Left = 266
Top = 0
Caption = #25171#21360#21015#34920
ImageIndex = 12
Visible = False
OnClick = tbPrintlbClick
end
object tbclose: TToolButton
Left = 332
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = tbcloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 20
Width = 873
Height = 49
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 20
Width = 48
Height = 12
Caption = #29983#20135#26085#26399
end
object Label2: TLabel
Left = 160
Top = 20
Width = 6
Height = 12
Caption = '-'
end
object Label3: TLabel
Left = 456
Top = 64
Width = 24
Height = 12
Caption = #23458#25143
end
object Label4: TLabel
Left = 608
Top = 64
Width = 24
Height = 12
Caption = #20135#21697
end
object Label5: TLabel
Left = 284
Top = 68
Width = 36
Height = 12
Caption = #35745#21010#21333
end
object Label6: TLabel
Left = 308
Top = 20
Width = 48
Height = 12
Caption = #21592#24037#32534#21495
end
object Label7: TLabel
Left = 500
Top = 20
Width = 48
Height = 12
Caption = #21592#24037#21517#31216
end
object begdate: TDateTimePicker
Left = 68
Top = 16
Width = 90
Height = 20
Date = 40533.591564594910000000
Format = 'yyyy-MM-dd'
Time = 40533.591564594910000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
end
object enddate: TDateTimePicker
Left = 168
Top = 16
Width = 90
Height = 20
Date = 40533.591593796290000000
Format = 'yyyy-MM-dd'
Time = 40533.591593796290000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
end
object customName: TEdit
Left = 480
Top = 60
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 2
end
object ChnName: TEdit
Left = 636
Top = 60
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 3
end
object planNo: TEdit
Left = 320
Top = 64
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 4
end
object userID: TEdit
Left = 360
Top = 16
Width = 121
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 5
end
object userName: TEdit
Left = 552
Top = 16
Width = 121
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 6
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 69
Width = 873
Height = 328
Align = alTop
TabOrder = 2
object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = V1P_Num
end
item
Kind = skSum
Column = V1packs
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object V1operTime: TcxGridDBColumn
Caption = #27979#35797#26085#26399
DataBinding.FieldName = 'operTime'
HeaderAlignmentHorz = taCenter
Width = 75
end
object V1planNo: TcxGridDBColumn
Caption = #35745#21010#21333
DataBinding.FieldName = 'planNo'
HeaderAlignmentHorz = taCenter
Width = 75
end
object V1customname: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'customname'
HeaderAlignmentHorz = taCenter
Width = 75
end
object V1P_Code: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'P_Code'
HeaderAlignmentHorz = taCenter
Width = 80
end
object V1P_ChnName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'P_ChnName'
HeaderAlignmentHorz = taCenter
Width = 120
end
object V1P_Spec: TcxGridDBColumn
Caption = #20135#21697#35268#26684
DataBinding.FieldName = 'P_Spec'
HeaderAlignmentHorz = taCenter
Width = 80
end
object V1colorname: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'colorname'
HeaderAlignmentHorz = taCenter
Width = 60
end
object V1P_YHNO: TcxGridDBColumn
Caption = #33457#21495
DataBinding.FieldName = 'P_YHNO'
HeaderAlignmentHorz = taCenter
Width = 60
end
object V1P_Colstd: TcxGridDBColumn
Caption = #33394#20301
DataBinding.FieldName = 'P_Colstd'
HeaderAlignmentHorz = taCenter
Width = 60
end
object V1packs: TcxGridDBColumn
Caption = #20214#25968
DataBinding.FieldName = 'packs'
HeaderAlignmentHorz = taCenter
Width = 60
end
object V1P_Num: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'P_Num'
HeaderAlignmentHorz = taCenter
Width = 60
end
object V1P_unit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'P_unit'
HeaderAlignmentHorz = taCenter
Width = 75
end
object V1operatorName: TcxGridDBColumn
Caption = #27979#35797#20154#21592
DataBinding.FieldName = 'operatorName'
HeaderAlignmentHorz = taCenter
Width = 75
end
object V1note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
HeaderAlignmentHorz = taCenter
Width = 120
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TV1
end
end
object Panetime: TPanel
Left = 308
Top = 120
Width = 191
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31561#24453'...'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Visible = False
end
object ADOQueryTmp: TADOQuery
AutoCalcFields = False
LockType = ltPessimistic
CommandTimeout = 600
Parameters = <>
Left = 392
Top = 180
end
object DataSource1: TDataSource
DataSet = ADOQueryTmp
Left = 428
Top = 60
end
object ADOQueryCmd: TADOQuery
Parameters = <>
Left = 492
Top = 68
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 568
Top = 4
end
object dxComponentPrinter1: TdxComponentPrinter
CurrentLink = dxComponentPrinter1Link1
DateFormat = 4
TimeFormat = 2
Version = 0
Left = 464
Top = 236
object dxComponentPrinter1Link1: TdxGridReportLink
Component = cxGrid1
PrinterPage.DMPaper = 1
PrinterPage.Footer = 6350
PrinterPage.Header = 6350
PrinterPage.Margins.Bottom = 12700
PrinterPage.Margins.Left = 12700
PrinterPage.Margins.Right = 12700
PrinterPage.Margins.Top = 12700
PrinterPage.PageSize.X = 215900
PrinterPage.PageSize.Y = 279400
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
BuiltInReportLink = True
end
end
end

337
Z99Dependency/ThreeFun/Form/U_ClList.pas Normal file
View File

@ -0,0 +1,337 @@
unit U_ClList;
interface
uses
Windows, Messages, SysUtils, StrUtils,Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridLevel, cxClasses, cxControls, cxGridCustomView,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk;
type
TfrmClList = class(TForm)
ToolBar1: TToolBar;
tbselect: TToolButton;
tbadd: TToolButton;
tbupdate: TToolButton;
tbdelete: TToolButton;
tbclose: TToolButton;
Panel1: TPanel;
Label1: TLabel;
begdate: TDateTimePicker;
enddate: TDateTimePicker;
Label2: TLabel;
Label3: TLabel;
customName: TEdit;
Label4: TLabel;
ChnName: TEdit;
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ADOQueryTmp: TADOQuery;
DataSource1: TDataSource;
V1operTime: TcxGridDBColumn;
V1customname: TcxGridDBColumn;
V1P_Code: TcxGridDBColumn;
V1P_ChnName: TcxGridDBColumn;
V1P_Spec: TcxGridDBColumn;
V1packs: TcxGridDBColumn;
V1P_Num: TcxGridDBColumn;
V1P_unit: TcxGridDBColumn;
V1operatorName: TcxGridDBColumn;
V1note: TcxGridDBColumn;
Panetime: TPanel;
ADOQueryCmd: TADOQuery;
V1planNo: TcxGridDBColumn;
Label5: TLabel;
planNo: TEdit;
tbLook: TToolButton;
V1colorname: TcxGridDBColumn;
V1P_YHNO: TcxGridDBColumn;
V1P_Colstd: TcxGridDBColumn;
cxGridPopupMenu1: TcxGridPopupMenu;
Label6: TLabel;
userID: TEdit;
userName: TEdit;
Label7: TLabel;
tbPrintlb: TToolButton;
ToolButton1: TToolButton;
dxComponentPrinter1: TdxComponentPrinter;
dxComponentPrinter1Link1: TdxGridReportLink;
procedure tbcloseClick(Sender: TObject);
procedure tbaddClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure tbselectClick(Sender: TObject);
procedure tbupdateClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure tbdeleteClick(Sender: TObject);
procedure tbLookClick(Sender: TObject);
procedure TV1DblClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure tbPrintlbClick(Sender: TObject);
private
procedure DoQuery();
procedure FilterData();
function DeleteData():boolean; //删除数据
procedure initGrid();
{ Private declarations }
public
FType:string;
{ Public declarations }
end;
var
frmClList: TfrmClList;
implementation
uses
U_DataLink,U_Fun; //, U_ClEdit
{$R *.dfm}
procedure TfrmClList.initGrid();
var
i:integer;
begin
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add(' select * from BD_ColumnConfig ');
sql.Add(' where tableName=''WS_Register'' ');
sql.Add(' and Type='''+trim(fType)+''' ');
sql.Add(' and isVisibleLB=1 ');
sql.Add(' order by orderNo ');
open;
end;
TV1.ClearItems;
if not adoqueryCmd.IsEmpty then
begin
for i:=0 to adoqueryCmd.RecordCount-1 do
begin
tv1.CreateColumn;
tv1.Columns[i].DataBinding.FieldName:=trim(adoqueryCmd.fieldbyname('col').AsString);
tv1.Columns[i].Caption:=trim(adoqueryCmd.fieldbyname('colName').AsString);
tv1.Columns[i].Name:='tv1'+trim(adoqueryCmd.fieldbyname('col').AsString);
tv1.Columns[i].HeaderAlignmentHorz:=tacenter;
tv1.Columns[i].Width:=90;
if LeftBStr(trim(adoqueryCmd.fieldbyname('col').AsString),2) ='fd' then
tv1.Columns[i].Summary.FooterKind:=sksum;
// if adoqueryCmd.fieldbyname('isreadonly').AsBoolean then
// tv1.Columns[i].Options.Editing:=false;
adoqueryCmd.Next;
end;
end;
//TV1.ApplyBestFit();
end;
//////////////////////////////////////////////
//////删除数据
//////////////////////////////////////////////
function TfrmClList.DeleteData():boolean;
begin
result:=false;
try
with adoqueryCmd do
begin
close;
sql.Clear;
// sql.Add('delete from JD_Inspect where InspectNo='+quotedstr(trim(ADOQueryTmp.fieldbyname('InspectNo').AsString)));
sql.Add('delete from WS_Register where WRNo='+quotedstr(trim(ADOQueryTmp.fieldbyname('WRNo').AsString)));
sql.Add('and WRID='+quotedstr(trim(ADOQueryTmp.fieldbyname('WRID').AsString)));
execsql;
end;
result:=true;
except
end;
end;
procedure TfrmClList.DoQuery();
var
strsql,sqlwhere:string;
begin
begdate.SetFocus;
screen.Cursor:=crsqlwait;
Panetime.Visible:=true;
Panetime.Left:=(Width-Panetime.Width) div 2;
Panetime.top:=(Height-Panetime.Height-400) div 2;
Application.ProcessMessages;
sqlwhere:=' where WRDate>='''+formatdatetime('yyyy-MM-dd',begdate.Date)+''' '+
' and WRDate<'''+formatdatetime('yyyy-MM-dd',enddate.Date+1)+''' ';
sqlwhere:=sqlwhere+' and Type='''+trim(FType)+''' ';
try
with ADOQueryTmp do
begin
close;
sql.Clear;
filtered:=false;
sql.Add('select * from WS_Register A');
sql.Add(sqlwhere);
open;
end;
FilterData();
finally
Panetime.Visible:=false;
screen.Cursor:=crdefault;
end;
end;
procedure TfrmClList.FilterData();
var
filterStr:string;
begin
filterStr:='';
if trim(userID.Text)<>'' then
filterStr:=filterStr+' and userID like '+quotedstr('%'+trim(userID.Text)+'%');
if trim(USERName.Text)<>'' then
filterStr:=filterStr+' and USERName like '+quotedstr('%'+trim(USERName.Text)+'%');
if trim(planNo.Text)<>'' then
filterStr:=filterStr+' and planNo like '+quotedstr('%'+trim(planNo.Text)+'%');
try
ADOQueryTmp.DisableControls ;
if trim(filterStr)='' then
begin
ADOQueryTmp.Filtered:=false;
ADOQueryTmp.EnableControls;
exit;
end;
filterStr:=trim(Copy(filterStr,5,length(filterStr)-4));
with ADOQueryTmp do
begin
filtered:=false;
filter:=filterStr;
filtered:=true;
end;
finally
ADOQueryTmp.EnableControls;
end;
end;
procedure TfrmClList.tbcloseClick(Sender: TObject);
begin
close;
end;
procedure TfrmClList.tbaddClick(Sender: TObject);
begin
// frmclEdit:=TfrmclEdit.create(self);
// with frmclEdit do
// begin
// fromid:=0;
// fType:=trim(self.FType);
// caption:=trim(self.Caption);
// if showmodal=1 then
// begin
// // DoQuery();
// // self.ADOQueryTmp.Locate('inspectNo',fkeyNO,[]);
// end;
// DoQuery();
// Release;
// end;
end;
procedure TfrmClList.FormDestroy(Sender: TObject);
begin
frmClList:=nil;
end;
procedure TfrmClList.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
writeCxGrid(self.Name+tv1.Name+Self.FType,tv1,'产量登记');
action:=cafree;
end;
procedure TfrmClList.FormCreate(Sender: TObject);
begin
begdate.Date:=dServerDate-6;
enddate.Date:=dServerDate;
cxgrid1.Align:=alClient;
end;
procedure TfrmClList.tbselectClick(Sender: TObject);
begin
DoQuery();
end;
procedure TfrmClList.tbupdateClick(Sender: TObject);
begin
// if ADOQueryTmp.IsEmpty then exit;
// frmclEdit:=TfrmclEdit.create(self);
// with frmclEdit do
// begin
// fromid:=1;
// fType:=trim(self.FType);
// caption:=trim(self.Caption);
// fkeyNO:=trim(self.ADOQueryTmp.fieldbyname('WRNO').AsString);
// if showmodal=1 then
// begin
// DoQuery();
// self.ADOQueryTmp.Locate('WRNO',fkeyNO,[]);
// end;
// Release;
// end;
end;
procedure TfrmClList.FormShow(Sender: TObject);
begin
initGrid();
readCxGrid(self.Name+tv1.Name+Self.FType,tv1,'产量登记');
DoQuery();
end;
procedure TfrmClList.tbdeleteClick(Sender: TObject);
begin
if adoqueryTmp.IsEmpty then exit;
if application.MessageBox('是否删除此信息？','提示信息',MB_YesNo+MB_DefButton2+MB_IconQuestion)=IdYes then
begin
if not DeleteData() then
begin
application.MessageBox('删除数据失败！','提示信息');
exit;
end;
DoQuery();
end;
end;
procedure TfrmClList.tbLookClick(Sender: TObject);
begin
// if ADOQueryTmp.IsEmpty then exit;
// frmclEdit:=TfrmclEdit.create(self);
// with frmclEdit do
// begin
// fromid:=10;
// fType:=trim(self.FType);
// fkeyNO:=trim(self.ADOQueryTmp.fieldbyname('WRNO').AsString);
// caption:=trim(self.Caption);
// if showmodal=1 then
// begin
// DoQuery();
// self.ADOQueryTmp.Locate('inspectNo',fkeyNO,[]);
// end;
// Release;
// end;
end;
procedure TfrmClList.TV1DblClick(Sender: TObject);
begin
tbLook.Click;
end;
procedure TfrmClList.ToolButton1Click(Sender: TObject);
begin
if ADOQueryTmp.IsEmpty then exit;
TcxGridToExcel(self.Caption,cxGrid1);
end;
procedure TfrmClList.tbPrintlbClick(Sender: TObject);
begin
if ADOQueryTmp.IsEmpty then exit;
dxComponentPrinter1.ReportLink[0].Preview;
end;
end.

7814
Z99Dependency/ThreeFun/Form/U_ColumnBandSet.dfm
View File

File diff suppressed because it is too large Load Diff

3
Z99Dependency/ThreeFun/Form/U_ColumnBandSet.pas
View File

@ -8,8 +8,7 @@ uses
cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, ADODB, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin,
ImgList, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, System.ImageList;
ImgList;
type
TfrmColumnBandSet = class(TForm)

7825
Z99Dependency/ThreeFun/Form/U_ColumnSet.dfm
View File

File diff suppressed because it is too large Load Diff

3
Z99Dependency/ThreeFun/Form/U_ColumnSet.pas
View File

@ -8,8 +8,7 @@ uses
cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, ADODB, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin,
ImgList, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, System.ImageList;
ImgList;
type
TfrmColumnSet = class(TForm)

7800
Z99Dependency/ThreeFun/Form/U_DxZDYHelp.dfm
View File

File diff suppressed because it is too large Load Diff

4
Z99Dependency/ThreeFun/Form/U_DxZDYHelp.pas
View File

@ -8,9 +8,7 @@ uses
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxCheckBox, cxDropDownEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, System.ImageList;
StdCtrls, ExtCtrls, cxCheckBox, cxDropDownEdit;
type
TfrmDxZDYHelp = class(TForm)

23
Z99Dependency/ThreeFun/Form/U_FjList.dfm
View File

@ -1,10 +1,10 @@
object frmFjList: TfrmFjList
Left = 237
Top = 203
Width = 707
Height = 456
BorderIcons = [biSystemMenu, biMinimize]
Caption = #38468#20214#20449#24687
ClientHeight = 417
ClientWidth = 691
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -23,7 +23,7 @@ object frmFjList: TfrmFjList
Left = 0
Top = 0
Width = 540
Height = 417
Height = 418
Align = alClient
Columns = <>
TabOrder = 0
@ -33,7 +33,7 @@ object frmFjList: TfrmFjList
Left = 540
Top = 0
Width = 151
Height = 417
Height = 418
Align = alRight
TabOrder = 1
object FileName: TcxButton
@ -43,9 +43,9 @@ object frmFjList: TfrmFjList
Height = 25
Hint = 'Filesother'
Caption = #28155#21152
LookAndFeel.Kind = lfOffice11
TabOrder = 0
OnClick = FileNameClick
LookAndFeel.Kind = lfOffice11
end
object cxButton1: TcxButton
Left = 30
@ -54,9 +54,9 @@ object frmFjList: TfrmFjList
Height = 25
Hint = 'Filesother'
Caption = #21024#38500
LookAndFeel.Kind = lfOffice11
TabOrder = 1
OnClick = cxButton1Click
LookAndFeel.Kind = lfOffice11
end
object cxButton2: TcxButton
Left = 30
@ -65,9 +65,9 @@ object frmFjList: TfrmFjList
Height = 25
Hint = 'Filesother'
Caption = #20445#23384
LookAndFeel.Kind = lfOffice11
TabOrder = 2
OnClick = cxButton2Click
LookAndFeel.Kind = lfOffice11
end
object cxButton3: TcxButton
Left = 30
@ -76,10 +76,10 @@ object frmFjList: TfrmFjList
Height = 25
Hint = 'Filesother'
Caption = #20851#38381
LookAndFeel.Kind = lfOffice11
TabOrder = 3
Visible = False
OnClick = cxButton3Click
LookAndFeel.Kind = lfOffice11
end
end
object Panel2: TPanel
@ -117,13 +117,10 @@ object frmFjList: TfrmFjList
Top = 228
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
MaxLineAction = maException
ReadTimeout = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 500
Top = 198
end

8
Z99Dependency/ThreeFun/Form/U_FjList.pas
View File

@ -6,9 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls,
cxButtons, DB, ADODB, ImgList,shellapi, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdFTP,strutils, cxGraphics, cxLookAndFeels,
IdExplicitTLSClientServerBase,
System.ImageList;
IdTCPConnection, IdTCPClient, IdFTP,strutils;
type
TfrmFjList = class(TForm)
@ -58,7 +56,7 @@ procedure TfrmFjList.InitData();
var
ListItem: TListItem;
Flag: Cardinal;
info: TSHFileInfo;//SHFILEINFOA;
info: SHFILEINFOA;
Icon: TIcon;
begin
ListView1.Items.Clear;
@ -84,7 +82,7 @@ begin
Listitem.Caption := trim(fieldbyname('fileName').AsString);
// Listitem.SubItems.Add(OpenDiaLog.FileName);
Flag := (SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
SHGetFileInfo(Pwidechar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), Flag);
SHGetFileInfo(Pchar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), Flag);
Icon.Handle := info.hIcon;
ImageList1.AddIcon(Icon);
ListItem.ImageIndex := ImageList1.Count - 1;

39
Z99Dependency/ThreeFun/Form/U_FjList10.dfm
View File

@ -1,10 +1,10 @@
object frmFjList10: TfrmFjList10
Left = 237
Top = 203
Left = 417
Top = 362
Width = 798
Height = 502
BorderIcons = [biSystemMenu, biMinimize]
Caption = #38468#20214#20449#24687
ClientHeight = 463
ClientWidth = 782
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -23,29 +23,21 @@ object frmFjList10: TfrmFjList10
Left = 0
Top = 0
Width = 631
Height = 463
Height = 464
Align = alClient
Columns = <
item
end>
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnDblClick = ListView1DblClick
ExplicitHeight = 464
end
object Panel1: TPanel
Left = 631
Top = 0
Width = 151
Height = 463
Height = 464
Align = alRight
TabOrder = 1
ExplicitHeight = 464
object FileName: TcxButton
Left = 30
Top = 60
@ -53,9 +45,9 @@ object frmFjList10: TfrmFjList10
Height = 25
Hint = 'Filesother'
Caption = #28155#21152
LookAndFeel.Kind = lfOffice11
TabOrder = 0
OnClick = FileNameClick
LookAndFeel.Kind = lfOffice11
end
object cxButton1: TcxButton
Left = 30
@ -64,9 +56,9 @@ object frmFjList10: TfrmFjList10
Height = 25
Hint = 'Filesother'
Caption = #21024#38500
LookAndFeel.Kind = lfOffice11
TabOrder = 1
OnClick = cxButton1Click
LookAndFeel.Kind = lfOffice11
end
object cxButton2: TcxButton
Left = 30
@ -75,9 +67,9 @@ object frmFjList10: TfrmFjList10
Height = 25
Hint = 'Filesother'
Caption = #21478#23384#20026'...'
LookAndFeel.Kind = lfOffice11
TabOrder = 2
OnClick = cxButton2Click
LookAndFeel.Kind = lfOffice11
end
object cxButton3: TcxButton
Left = 30
@ -86,10 +78,10 @@ object frmFjList10: TfrmFjList10
Height = 25
Hint = 'Filesother'
Caption = #20851#38381
LookAndFeel.Kind = lfOffice11
TabOrder = 3
Visible = False
OnClick = cxButton3Click
LookAndFeel.Kind = lfOffice11
end
end
object Panel2: TPanel
@ -123,25 +115,20 @@ object frmFjList10: TfrmFjList10
Top = 32
end
object ImageList1: TImageList
Height = 32
Width = 32
Left = 536
Top = 228
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
MaxLineAction = maException
ReadTimeout = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 500
Top = 198
end
object ADOConnection1: TADOConnection
LoginPrompt = False
Left = 532
Top = 276
Top = 240
end
end

288
Z99Dependency/ThreeFun/Form/U_FjList10.pas
View File

@ -4,11 +4,9 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls,
cxButtons, DB, ADODB, ImgList,shellapi, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdFTP,strutils, cxGraphics, cxLookAndFeels,
IdExplicitTLSClientServerBase,
System.ImageList;
Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons,
DB, ADODB, ImgList, shellapi, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, strutils;
type
TfrmFjList10 = class(TForm)
@ -38,62 +36,62 @@ type
procedure InitData();
{ Private declarations }
public
fkeyNO:string;
fType:string;
fId:integer;
fstatus:integer;
fkeyNO: string;
fType: string;
fId: integer;
fstatus: integer;
{ Public declarations }
end;
var
frmFjList10: TfrmFjList10;
frmFjList10: TfrmFjList10;
implementation
uses
U_DataLink,U_RTFun,U_CompressionFun;
uses
U_DataLink, U_Fun10, U_CompressionFun;
{$R *.dfm}
procedure TfrmFjList10.InitData();
var
ListItem: TListItem;
Flag: Cardinal;
info:TSHFileInfo;// SHFILEINFOA;
Icon: TIcon;
ListItem: TListItem;
Flag: Cardinal;
info: SHFILEINFOA;
Icon: TIcon;
begin
ListView1.Items.Clear;
try
with adoqueryTmp do
begin
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
open;
if not IsEmpty then
with adoqueryTmp do
begin
while not eof do
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where WBID=' + quotedstr(trim(fkeyNO)));
sql.Add('and TFType=' + quotedstr(trim(fType)));
open;
if not IsEmpty then
begin
with ListView1 do
while not eof do
begin
LargeImages := ImageList1;
Icon := TIcon.Create;
ListItem := Items.Add;
Listitem.Caption := trim(fieldbyname('fileName').AsString);
with ListView1 do
begin
LargeImages := ImageList1;
Icon := TIcon.Create;
ListItem := Items.Add;
ListItem.Caption := trim(fieldbyname('fileName').AsString);
// Listitem.SubItems.Add(OpenDiaLog.FileName);
// Flag := (SHGFI_LARGEICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES); //大图标， 改imagelist里面的宽度高度 32*32
Flag := (SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES); //小图标， 16*16
SHGetFileInfo(Pwidechar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), flag);
Icon.Handle := info.hIcon;
ImageList1.AddIcon(Icon);
ListItem.ImageIndex := ImageList1.Count - 1;
Flag := (SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
SHGetFileInfo(Pchar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), Flag);
Icon.Handle := info.hIcon;
ImageList1.AddIcon(Icon);
ListItem.ImageIndex := ImageList1.Count - 1;
end;
next;
end;
next;
end;
end;
end;
except
end;
end;
@ -103,95 +101,93 @@ begin
ADOQueryTmp.Close;
ADOQuerycmd.Close;
ListView1.Items.Free;
ModalResult:=-1;
ModalResult := -1;
end;
procedure TfrmFjList10.FormDestroy(Sender: TObject);
begin
frmFjList10:=nil;
frmFjList10 := nil;
end;
procedure TfrmFjList10.FileNameClick(Sender: TObject);
var
OpenDiaLog: TOpenDialog;
fFileName:string;
fFilePath:string;
maxNo:string;
fFileName: string;
fFilePath: string;
maxNo: string;
// myStream: TADOBlobStream;
// FJStream : TMemoryStream;
FJStream : TMemoryStream;
mfileSize:integer;
mCreationTime:TdateTime;
mWriteTime:TdateTime;
FJStream: TMemoryStream;
mfileSize: integer;
mCreationTime: TdateTime;
mWriteTime: TdateTime;
begin
try
OpenDiaLog := TOpenDialog.Create(Self);
if OpenDiaLog.Execute then
begin
fFilePath:=OpenDiaLog.FileName;
fFileName:=ExtractFileName(OpenDiaLog.FileName);
fFilePath := OpenDiaLog.FileName;
fFileName := ExtractFileName(OpenDiaLog.FileName);
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select TFId from TP_File ');
sql.Add('where WBID<>'+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
sql.Add('where WBID<>' + quotedstr(trim(fkeyNO)));
sql.Add('and TFType=' + quotedstr(trim(fType)));
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
open;
IF not adoqueryCmd.IsEmpty then
if not adoqueryCmd.IsEmpty then
begin
application.MessageBox('此附件名称已存在，请修改文件名，继续上传！','提示信息',MB_ICONERROR);
application.MessageBox('此附件名称已存在，请修改文件名，继续上传！', '提示信息', MB_ICONERROR);
exit;
end;
end;
Panel2.Caption:='正在上传数据，请稍等...';
Panel2.Visible:=true;
Panel2.Caption := '正在上传数据，请稍等...';
Panel2.Visible := true;
application.ProcessMessages;
if GetLSNo(ADOQueryCmd,maxNo,'FJ','TP_File',4,1)=False then
if GetLSNo(ADOQueryCmd, maxNo, 'FJ', 'TP_File', 4, 1) = False then
begin
Application.MessageBox('取最大号失败！','提示',0);
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
//»ñÈ¡ÎļþÐÅÏ¢
// GetFileInfo(fFilePath,mfileSize,mCreationTime,mWriteTime);
GetFileInfo(fFilePath, mfileSize, mCreationTime, mWriteTime);
adoqueryCmd.Connection.BeginTrans;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
sql.Add('where WBID=' + quotedstr(trim(fkeyNO)));
sql.Add('and TFType=' + quotedstr(trim(fType)));
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
execsql;
end;
try
FJStream:=TMemoryStream.Create;
FJStream := TMemoryStream.Create;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
sql.Add('where WBID=' + quotedstr(trim(fkeyNO)));
sql.Add('and TFType=' + quotedstr(trim(fType)));
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
open;
append;
fieldbyname('TFID').Value:=trim(maxNO);
fieldbyname('WBID').Value:=trim(fkeyNO);
fieldbyname('TFType').Value:=trim(fType);
fieldbyname('FileName').Value:=trim(fFileName);
fieldbyname('TFID').Value := trim(maxNo);
fieldbyname('WBID').Value := trim(fkeyNO);
fieldbyname('TFType').Value := trim(fType);
fieldbyname('FileName').Value := trim(fFileName);
FJStream.LoadFromFile(fFilePath);
CompressionStream(FJStream);
tblobfield(FieldByName('Filesother')).LoadFromStream(FJStream);
@ -215,7 +211,7 @@ begin
end;
IdFTP1.Quit; }
Panel2.Visible:=false;
Panel2.Visible := false;
initdata();
finally
// FJStream.Free;
@ -225,48 +221,52 @@ begin
except
adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('附件保存失败！','提示信息',0);
application.MessageBox('附件保存失败！', '提示信息', 0);
end;
end;
procedure TfrmFjList10.FormCreate(Sender: TObject);
begin
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
//ConnectionString:='';
Connected:=true;
end;
ListView1.Align:=alclient;
fstatus:=0;
Connected := true;
end;
ListView1.Align := alclient;
fstatus := 0;
end;
procedure TfrmFjList10.FormShow(Sender: TObject);
begin
IF fstatus=0 then Panel1.Visible:=true
else Panel1.Visible:=false;
if fstatus = 0 then
Panel1.Visible := true
else
Panel1.Visible := false;
initdata();
end;
procedure TfrmFjList10.ListView1DblClick(Sender: TObject);
var
sFieldName:string;
fileName:string;
ff: TADOBlobStream;
FJStream : TMemoryStream;
sFieldName: string;
fileName: string;
ff: TADOBlobStream;
FJStream: TMemoryStream;
begin
if ListView1.Items.Count<1 THEN EXIT;
if ListView1.Items.Count < 1 then
EXIT;
if listView1.SelCount<1 then exit;
sFieldName:=leftbstr(ExtractFilePath(Application.ExeName),1)+':\图片查看';
if listView1.SelCount < 1 then
exit;
sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\图片查看';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName),nil);
CreateDirectory(pchar(sFieldName), nil);
fileName:=ListView1.Selected.Caption;
fileName := ListView1.Selected.Caption;
sFieldName:=sFieldName+'\'+trim(fileName);
sFieldName := sFieldName + '\' + trim(fileName);
{ try
IdFTP1.Host := PicSvr;
@ -305,41 +305,42 @@ begin
}
try
adoqueryTmp.Locate('FileName',fileName,[]);
adoqueryTmp.Locate('FileName', fileName, []);
ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
fjStream:= TMemoryStream.Create ;
ff.SaveToStream(fjStream);
UnCompressionStream(fjStream);
fjStream.SaveToFile(sFieldName);
ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL);
FJStream := TMemoryStream.Create;
ff.SaveToStream(FJStream);
UnCompressionStream(FJStream);
FJStream.SaveToFile(sFieldName);
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
finally
fjStream.free;
FJStream.free;
ff.Free;
end;
end;
procedure TfrmFjList10.cxButton1Click(Sender: TObject);
var
fFileName:string;
fFilePath:string;
fFileName: string;
fFilePath: string;
begin
if listView1.SelCount<1 then exit;
if listView1.SelCount < 1 then
exit;
try
fFileName:=ListView1.Selected.Caption;
fFileName := ListView1.Selected.Caption;
// ADOQueryTmp.Locate('fileName',fFileName,[]);
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID='+quotedstr(trim(fkeyNO)));
sql.Add('and TFType='+quotedstr(trim(fType)));
sql.Add('and FileName='+quotedstr(trim(fFileName)));
execsql;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID=' + quotedstr(trim(fkeyNO)));
sql.Add('and TFType=' + quotedstr(trim(fType)));
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
execsql;
end;
initData();
@ -351,39 +352,40 @@ end;
procedure TfrmFjList10.cxButton2Click(Sender: TObject);
var
SaveDialog: TSaveDialog;
fFileName:string;
fFilePath:string;
ff: TADOBlobStream;
FJStream : TMemoryStream;
fFileName: string;
fFilePath: string;
ff: TADOBlobStream;
FJStream: TMemoryStream;
begin
if listView1.SelCount<1 then exit;
if listView1.SelCount < 1 then
exit;
try
fFileName:=ListView1.Selected.Caption;
adoqueryTmp.Locate('FileName',fFileName,[]);
fFileName := ListView1.Selected.Caption;
adoqueryTmp.Locate('FileName', fFileName, []);
SaveDialog := TSaveDialog.Create(Self);
SaveDialog.FileName:=fFileName;
SaveDialog.FileName := fFileName;
if SaveDialog.Execute then
begin
Panel2.Caption:='正在保存数据，请稍等...';
Panel2.Visible:=true;
Panel2.Caption := '正在保存数据，请稍等...';
Panel2.Visible := true;
application.ProcessMessages;
fFilePath:=SaveDialog.FileName;
try
ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
fFilePath := SaveDialog.FileName;
try
ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
fjStream:= TMemoryStream.Create ;
ff.SaveToStream(fjStream);
UnCompressionStream(fjStream);
fjStream.SaveToFile(fFilePath);
FJStream := TMemoryStream.Create;
ff.SaveToStream(FJStream);
UnCompressionStream(FJStream);
FJStream.SaveToFile(fFilePath);
// ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL);
finally
fjStream.free;
ff.Free;
Panel2.Visible:=false;
FJStream.free;
ff.Free;
Panel2.Visible := false;
end;
end;
@ -422,20 +424,22 @@ begin
if IdFTP1.Connected then IdFTP1.Quit;
end; }
except
Panel2.Visible:=false;
Panel2.Visible := false;
end;
end;
procedure TfrmFjList10.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if fId=10 then Action:=cafree
if fId = 10 then
Action := cafree
else
Action:=cahide;
Action := cahide;
end;
procedure TfrmFjList10.Panel2DblClick(Sender: TObject);
begin
Panel2.Visible:=false;
Panel2.Visible := false;
end;
end.

152
Z99Dependency/ThreeFun/Form/U_ItemManageNew.dfm
View File

@ -1,9 +1,9 @@
object frmItemManageNew: TfrmItemManageNew
Left = 410
Top = 202
Width = 432
Height = 528
Caption = #39033#30446#32500#25252
ClientHeight = 489
ClientWidth = 416
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -24,7 +24,7 @@ object frmItemManageNew: TfrmItemManageNew
Height = 200
TabOrder = 0
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
NavigatorButtons.ConfirmDelete = False
OnCellDblClick = TV1CellDblClick
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
@ -70,17 +70,18 @@ object frmItemManageNew: TfrmItemManageNew
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 416
Width = 424
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
Images = DataLink_OrderManage.ThreeImgList
List = True
ParentFont = False
ShowCaptions = True
@ -131,13 +132,12 @@ object frmItemManageNew: TfrmItemManageNew
object Panel1: TPanel
Left = 0
Top = 29
Width = 416
Width = 424
Height = 52
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
ExplicitWidth = 424
object Label1: TLabel
Left = 21
Top = 17
@ -194,7 +194,7 @@ object frmItemManageNew: TfrmItemManageNew
Top = 32
Bitmap = {
494C010163006800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000009001000001002000000000000090
000000000000360000002800000040000000A0010000010020000000000000A0
0100000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@ -205,6 +205,134 @@ object frmItemManageNew: TfrmItemManageNew
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
2100000021000000210000002100000000000000000000000000000000000000
0000CEEBF900C6E5F700BEE0F400B5DAF000ABD3ED00A1CDE90097C6E6008EC0
E30085BBDF000000000000000000000000000000000000000000000000000000
@ -3396,8 +3524,12 @@ object frmItemManageNew: TfrmItemManageNew
00000000000000000000000000000000000000000000319CCE00005A8C00005A
8C00005A8C00005A8C00005A8C00005A8C00005A8C00005A8C00737373000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000900100000100010000000000800C00000000000000000000
000000000000000000000000FFFFFF00FFFFF007F0000000FFE1C003F0000000
2800000040000000A00100000100010000000000000D00000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000FFFFF007F0000000FFE1C003F0000000
FFE18003F0000000FF618003C000000004218003C000000007618003C0000000
07E180030000000007E180030000000007E18003000000000761800300030000
0421800300030000FF61800300030000FFE18003000F0000FFE18007000F0000

3
Z99Dependency/ThreeFun/Form/U_ItemManageNew.pas
View File

@ -8,8 +8,7 @@ uses
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, System.ImageList;
StdCtrls, ExtCtrls;
type
TfrmItemManageNew = class(TForm)

7806
Z99Dependency/ThreeFun/Form/U_KHHelp.dfm
View File

File diff suppressed because it is too large Load Diff

4
Z99Dependency/ThreeFun/Form/U_KHHelp.pas
View File

@ -8,9 +8,7 @@ uses
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList;
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu;
type
TfrmKHHelp = class(TForm)

3962
Z99Dependency/ThreeFun/Form/U_LbaelMap.dfm
View File

File diff suppressed because it is too large Load Diff

279
Z99Dependency/ThreeFun/Form/U_LbaelMap.pas
View File

@ -1,279 +0,0 @@
unit U_LbaelMap;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList,
Vcl.ImgList;
type
TfrmLbaelMap = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Panel1: TPanel;
LMName: TEdit;
v2Column8: TcxGridDBColumn;
Label1: TLabel;
v2Column12: TcxGridDBColumn;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
Label2: TLabel;
LMType: TEdit;
v2Column1: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
ADOConnection1: TADOConnection;
ImageList_new32: TImageList;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure CustomerChange(Sender: TObject);
procedure v2Column8PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
public
FLMType: string;
{ Public declarations }
end;
var
frmLbaelMap: TfrmLbaelMap;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmLbaelMap.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select A.* from Lbael_Map A ');
sql.Add(' where LMType= ' + QuotedStr(trim(FLMType)));
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
finally
ADOQueryMain.EnableControls;
ToolButton2.Click;
end;
end;
procedure TfrmLbaelMap.FormDestroy(Sender: TObject);
begin
frmLbaelMap := nil;
end;
procedure TfrmLbaelMap.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmLbaelMap.FormCreate(Sender: TObject);
begin
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
//ConnectionString:='';
Connected := true;
end;
except
frmLbaelMap.Free;
end;
end;
procedure TfrmLbaelMap.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(Trim(Self.Caption), Tv2, '标签管理');
Close;
end;
procedure TfrmLbaelMap.FormShow(Sender: TObject);
begin
ReadCxGrid(Trim(Self.Caption), Tv2, '标签管理');
InitGrid();
end;
procedure TfrmLbaelMap.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmLbaelMap.ToolButton2Click(Sender: TObject);
var
sql: string;
begin
if ADOQueryMain.Active then
begin
sql := SGetFilters(Panel1, 1, 2);
SDofilter(ADOQueryMain, sql);
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
end;
end;
procedure TfrmLbaelMap.cxTabControl1Change(Sender: TObject);
begin
InitGrid;
end;
procedure TfrmLbaelMap.N1Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
with CDS_HZ do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := true;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmLbaelMap.N2Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
with CDS_HZ do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := false;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmLbaelMap.CustomerChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmLbaelMap.v2Column8PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_HZ do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate Lbael_Map ');
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
sql.Add(' , Editer=''' + Trim(DName) + '''');
sql.Add(' , Edittime=getdate()');
sql.Add(' where LMID=' + quotedstr(CDS_HZ.fieldbyname('LMID').AsString));
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
tv2.Controller.EditingController.ShowEdit();
except
tv2.Controller.EditingController.ShowEdit();
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
end
end;
procedure TfrmLbaelMap.ToolButton4Click(Sender: TObject);
var
maxId: string;
begin
if GetLSNo(ADOQueryCmd, maxId, 'M', 'Lbael_Map', 4, 1) = False then
begin
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into Lbael_Map(LMType,Filler) values(' + quotedstr(Trim(FLMType)) + ',' + quotedstr(Trim(dname)) + ')');
ExecSQL;
end;
InitGrid();
end;
procedure TfrmLbaelMap.ToolButton5Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
Exit;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Lbael_Map where LMID=' + QuotedStr(CDS_HZ.FieldByName('LMID').AsString));
ExecSQL;
end;
CDS_HZ.Delete;
end;
end.

182
Z99Dependency/ThreeFun/Form/U_ModulePromptList.dfm
View File

@ -1,182 +0,0 @@
object frmModulePromptList: TfrmModulePromptList
Left = 126
Top = 142
Caption = #25105#30340#31649#23478
ClientHeight = 508
ClientWidth = 1049
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1049
Height = 29
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 9
OnClick = TBRafreshClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 29
Width = 1049
Height = 41
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 32
object Panel2: TPanel
Left = 664
Top = 2
Width = 383
Height = 37
Align = alRight
BevelOuter = bvNone
Caption = #25552#31034#65306#21452#20987#25171#24320#22788#29702#20449#24687#30028#38754
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 70
Width = 1049
Height = 438
Align = alClient
TabOrder = 2
ExplicitTop = 73
ExplicitHeight = 436
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = DataLink_TradeManage.FontBlue
object v1Column5: TcxGridDBColumn
Caption = #24453#22788#29702#20107#39033
DataBinding.FieldName = 'ModuleName'
HeaderAlignmentHorz = taCenter
Width = 235
end
object v1Column1: TcxGridDBColumn
Caption = #22788#29702#20154
DataBinding.FieldName = 'DName'
HeaderAlignmentHorz = taCenter
Width = 107
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 1128
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 936
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1000
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1040
Top = 8
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 1168
Top = 8
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 815
Top = 7
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 506
Top = 195
end
end

224
Z99Dependency/ThreeFun/Form/U_ModulePromptList.pas
View File

@ -1,224 +0,0 @@
unit U_ModulePromptList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu;
type
TfrmModulePromptList = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Order_Main: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column5: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
v1Column1: TcxGridDBColumn;
Panel2: TPanel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
private
fDConString_link1:string;
procedure InitGrid();
procedure InitForm();
procedure InitDllEvt(FromFile:String;FormID:Integer;Para:String;FormType:Integer; Title: String;
Def1: String; Def2: String; Def3: String; Def4: String; Def5: String;
Def6: String; Def7: String; Def8: String; Def9: String; Def10: string);
{ Private declarations }
public
{ Public declarations }
userID,username:string;
end;
var
frmModulePromptList: TfrmModulePromptList;
implementation
uses
U_DataLink,U_Fun;
type
TMyF = function(
App: TApplication; //主应用程序 (对Delphi而言)
FormH: HWND; //创建窗口的父窗口句柄 (对PB而言)
FormID: Integer; //要调用dll中功能窗体的Id号; 如果只有一个功能窗口，FormID默认为0
Language: Integer; //0=Delphi; 1=PB
WinStyle: Integer; //0=子窗口; 1：普通窗口 (PB中都为普通窗口)
UID: PChar; //用户Id
UName: PChar; //用户名
Para: PChar;
Title: PChar;
Defstr1: PChar;
Defstr2: PChar;
Defstr3: PChar;
Defstr4: PChar;
Defstr5: PChar;
Defstr6: PChar;
Defstr7: PChar;
Defstr8: PChar;
Defstr9: PChar;
Defstr10: PChar;
Datalink: PChar
): HWND; stdcall;
var
TP: FARPROC;
Tf: TMyF;
{$R *.dfm}
procedure TfrmModulePromptList.FormDestroy(Sender: TObject);
begin
frmModulePromptList:=nil;
end;
procedure TfrmModulePromptList.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmModulePromptList.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('工作列表',Tv1,'我的管家');
end;
procedure TfrmModulePromptList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
SQL.Add(' exec P_Chk_Tishi :DName,:DCode');
Parameters.ParamByName('DName').Value:=Trim(DName);
Parameters.ParamByName('DCode').Value:=Trim(DCode);
ExecSQL;
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmModulePromptList.InitForm();
begin
fDConString_link1:=Trim(DConString);
ReadCxGrid('工作列表',Tv1,'我的管家');
InitGrid();
end;
procedure TfrmModulePromptList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmModulePromptList.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmModulePromptList.cxPageControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmModulePromptList.InitDllEvt(FromFile:String;FormID:Integer;Para:String;FormType:Integer; Title: String;
Def1: String; Def2: String; Def3: String; Def4: String; Def5: String;
Def6: String; Def7: String; Def8: String; Def9: String; Def10: string);
var
Th: HMODULE;
begin
Th := LoadLibrary(PChar(FromFile));
if Th > 0 then
begin
TP := GetProcAddress(Th, 'GetDllForm');
if TP <> nil then
begin
Tf := TMyF(Tp);
Tf(Application, 0, FormID, 0, FormType, PChar(DCode), PChar(DName), PChar(Para), PChar(Title),
PChar(Def1), PChar(Def2),PChar(Def3),PChar(Def4),PChar(Def5),
PChar(Def6),PChar(Def7),PChar(Def8),PChar(Def9),PChar(Def10),
pchar(fDConString_link1));
end;
end
else
begin
Application.MessageBox(PChar('打不开文件' + FromFile + '！'), '错误', MB_ICONERROR);
end;
end;
procedure TfrmModulePromptList.Tv1CellDblClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_ModuleSub where ModuleId='''+Trim(Order_Main.fieldbyname('ModuleId').AsString)+'''');
sql.Add(' and ModuleSubId='''+Trim(Order_Main.fieldbyname('ModuleSubId').AsString)+'''');
Open;
end;
IF (trim(Order_Main.FieldByName('ModuleId').AsString)='05' ) and (trim(Order_Main.FieldByName('ModuleSubId').AsString)='04' ) then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update JYOrder_Sub_AnPai SET Aordflag10=1 where Aordflag10=0 ');
execsql;
end;
end;
IF not ADOQueryTemp.IsEmpty then
begin
InitDllEvt(Trim(ADOQueryTemp.FieldByName('formFile').AsString),
ADOQueryTemp.FieldByName('FormID').AsInteger,
Trim(ADOQueryTemp.FieldByName('FormPara').AsString),
ADOQueryTemp.FieldByName('FormType').AsInteger,
Trim(ADOQueryTemp.FieldByName('Formname').AsString),
Trim(ADOQueryTemp.FieldByName('FormPara1').AsString),
Trim(ADOQueryTemp.FieldByName('FormPara2').AsString),
Trim(ADOQueryTemp.FieldByName('FormPara3').AsString),
Trim(ADOQueryTemp.FieldByName('FormPara4').AsString),
Trim(ADOQueryTemp.FieldByName('FormPara5').AsString),
Trim(ADOQueryTemp.FieldByName('FormPara6').AsString),
Trim(ADOQueryTemp.FieldByName('FormPara7').AsString),
Trim(ADOQueryTemp.FieldByName('FormPara8').AsString),
Trim(ADOQueryTemp.FieldByName('FormPara9').AsString),
Trim(ADOQueryTemp.FieldByName('FormPara10').AsString),
);
end;
end;
end.

245
Z99Dependency/ThreeFun/Form/U_RTZDYHelp.dfm
View File

@ -1,245 +0,0 @@
object frmRTZDYHelp: TfrmRTZDYHelp
Left = 466
Top = 188
Caption = #39033#30446#32500#25252
ClientHeight = 489
ClientWidth = 479
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object cxGrid1: TcxGrid
Left = 8
Top = 88
Width = 417
Height = 200
TabOrder = 0
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = TV1CellDblClick
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
Styles.Footer = DataLink_ProductWarehouse.Default
Styles.Header = DataLink_ProductWarehouse.Default
object V1Code: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'ZDYNo'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 97
end
object V1OrderNo: TcxGridDBColumn
Caption = #39034#24207#21495
DataBinding.FieldName = 'OrderNo'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 57
end
object V1Name: TcxGridDBColumn
Tag = 2
Caption = #21517#31216
DataBinding.FieldName = 'ZDYName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 146
end
object V1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1NotePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 113
end
object V1ZdyFlag: TcxGridDBColumn
Caption = #26631#24535
DataBinding.FieldName = 'ZdyFlag'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1Column1PropertiesEditValueChanged
Visible = False
HeaderAlignmentHorz = taCenter
Width = 57
end
object V1HelpType: TcxGridDBColumn
Caption = #24110#21161#31867#27604
DataBinding.FieldName = 'HelpType'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1HelpTypePropertiesEditValueChanged
Visible = False
HeaderAlignmentHorz = taCenter
Width = 55
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TV1
end
end
object ToolBar1: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 479
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
DisabledImages = DataLink_ProductWarehouse.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ProductWarehouse.ImageList_new32
List = True
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton1: TToolButton
Left = 0
Top = 0
Caption = #36873#25321
ImageIndex = 12
OnClick = ToolButton1Click
end
object TBAdd: TToolButton
Left = 75
Top = 0
Caption = #22686#34892
ImageIndex = 2
OnClick = TBAddClick
end
object TBDel: TToolButton
Left = 150
Top = 0
Caption = #21024#34892
ImageIndex = 6
OnClick = TBDelClick
end
object TBEdit: TToolButton
Left = 225
Top = 0
Caption = #20462#25913
ImageIndex = 3
OnClick = TBEditClick
end
object TBSave: TToolButton
Left = 300
Top = 0
Caption = #20445#23384
ImageIndex = 16
Visible = False
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 375
Top = 0
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 38
Width = 479
Height = 44
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
ExplicitTop = 18
object Label1: TLabel
Left = 18
Top = 17
Width = 24
Height = 12
Caption = #21517#31216
end
object Label2: TLabel
Left = 240
Top = 11
Width = 120
Height = 24
Caption = #27880#65306#28966#28857#31163#24320#24403#21069#32534#36753#13#10' '#21333#20803#26684#20445#23384#25968#25454#12290
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
end
object ZDYName: TEdit
Tag = 2
Left = 53
Top = 12
Width = 169
Height = 20
TabOrder = 0
OnChange = ZDYNameChange
end
end
object ADOQueryMain: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 48
Top = 136
end
object ADOQueryTemp: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 80
Top = 144
end
object ADOQueryCmd: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 112
Top = 152
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 280
Top = 144
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
Left = 208
Top = 144
end
object ADOConnection1: TADOConnection
LoginPrompt = False
Left = 80
Top = 232
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 168
Top = 152
end
end

2
Z99Dependency/ThreeFun/Form/U_SelExportField.dfm
View File

@ -44,7 +44,7 @@ object frmSelExportField: TfrmSelExportField
TabOrder = 2
Visible = False
object ExpGrid: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = ExportDataSource
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>

7
Z99Dependency/ThreeFun/Form/U_SelExportField.pas
View File

@ -14,9 +14,10 @@ uses
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit,DBGrids, DB, cxDBData,
cxGridLevel, cxClasses, cxControls, cxGridCustomView, ADODB,StrUtils,
Midas,cxGridCustomTableView, cxGridTableView, cxGridDBTableView,cxTimeEdit,
cxTreeView, cxGrid,cxDBLookupComboBox,cxCalendar, cxCurrencyEdit,cxExportGrid4Link,
cxTreeView, cxGrid,cxDBLookupComboBox,cxCalendar, cxCurrencyEdit,cxGridExportLink,
ExtCtrls, Buttons,DBClient,FTComboBox,cxDropDownEdit,cxGridBandedTableView,
cxGridDBBandedTableView,cxRichEdit,cxButtonEdit,IniFiles,WinSock;
cxGridDBBandedTableView,cxRichEdit,cxButtonEdit,IniFiles,WinSock,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
type
TfrmSelExportField = class(TForm)
@ -103,7 +104,7 @@ begin
begin
try
ExportGrid4ToExcel(saveDialog.FileName,gridName);
ExportGridToExcel(saveDialog.FileName,gridName);
except
application.MessageBox('创建失败,源文件可能处于编辑状态!','提示信息',0);
exit;

11
Z99Dependency/ThreeFun/Form/U_SelPrintField.dfm
View File

@ -1,9 +1,9 @@
object frmSelPrintField: TfrmSelPrintField
Left = 329
Top = 100
Width = 427
Height = 530
Caption = #23383#27573#25171#21360#36873#25321
ClientHeight = 492
ClientWidth = 411
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
@ -79,19 +79,14 @@ object frmSelPrintField: TfrmSelPrintField
end
object RMPrintDBGrid1: TRMPrintDBGrid
ReportOptions = [rmgoStretch, rmgoWordWrap, rmgoGridLines]
PageLayout.ColumnCount = 1
PageLayout.ColumnGap = 0
PageLayout.PageSize = 9
PageLayout.LeftMargin = 38
PageLayout.TopMargin = 38
PageLayout.RightMargin = 38
PageLayout.BottomMargin = 38
PageLayout.Height = 2970
PageLayout.Width = 2100
PageLayout.PageOrientation = rmpoPortrait
PageLayout.PageBin = 0
PageLayout.PrinterName = #40664#35748#25171#21360#26426
PageLayout.DoublePass = False
PageLayout.ColorPrint = False
PageHeaderMsg.Font.Charset = GB2312_CHARSET
PageHeaderMsg.Font.Color = clWindowText
@ -121,7 +116,7 @@ object frmSelPrintField: TfrmSelPrintField
GridFontOptions.Font.Name = #23435#20307
GridFontOptions.Font.Style = []
ReportSettings.InitialZoom = pzDefault
ReportSettings.PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
ReportSettings.PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS]
DBGrid = PrnGrid
Left = 339
Top = 449

11
Z99Dependency/ThreeFun/Form/U_SelPrintFieldNew.dfm
View File

@ -22,7 +22,7 @@ object frmSelPrintFieldNew: TfrmSelPrintFieldNew
Left = 94
Top = 456
Width = 75
Height = 25
Height = 21
Caption = #30830#23450
TabOrder = 0
OnClick = Button1Click
@ -31,7 +31,7 @@ object frmSelPrintFieldNew: TfrmSelPrintFieldNew
Left = 243
Top = 456
Width = 75
Height = 25
Height = 21
Caption = #20851#38381
TabOrder = 1
OnClick = Button2Click
@ -108,19 +108,14 @@ object frmSelPrintFieldNew: TfrmSelPrintFieldNew
end
object RMPrintDBGrid1: TRMPrintDBGrid
ReportOptions = [rmgoStretch, rmgoWordWrap, rmgoGridLines]
PageLayout.ColumnCount = 1
PageLayout.ColumnGap = 0
PageLayout.PageSize = 9
PageLayout.LeftMargin = 38
PageLayout.TopMargin = 38
PageLayout.RightMargin = 38
PageLayout.BottomMargin = 38
PageLayout.Height = 2970
PageLayout.Width = 2100
PageLayout.PageOrientation = rmpoPortrait
PageLayout.PageBin = 0
PageLayout.PrinterName = #40664#35748#25171#21360#26426
PageLayout.DoublePass = False
PageLayout.ColorPrint = False
PageHeaderMsg.Font.Charset = GB2312_CHARSET
PageHeaderMsg.Font.Color = clWindowText
@ -150,7 +145,7 @@ object frmSelPrintFieldNew: TfrmSelPrintFieldNew
GridFontOptions.Font.Name = #23435#20307
GridFontOptions.Font.Style = []
ReportSettings.InitialZoom = pzDefault
ReportSettings.PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
ReportSettings.PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS]
DBGrid = PrnGrid
Left = 339
Top = 449

11771
Z99Dependency/ThreeFun/Form/U_SysLogHelp.dfm
View File

File diff suppressed because it is too large Load Diff

66
Z99Dependency/ThreeFun/Form/U_SysLogHelp.pas
View File

@ -8,8 +8,21 @@ uses
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, strUtils,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, ADODB, StdCtrls, ExtCtrls, ImgList,
cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, System.ImageList, dxScrollbarAnnotations;
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinscxPCPainter, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type
TfrmSysLogHelp = class(TForm)
@ -30,36 +43,21 @@ type
tv1Result: TcxGridDBColumn;
Panel1: TPanel;
Label2: TLabel;
Label1: TLabel;
begDate: TDateTimePicker;
endDate: TDateTimePicker;
Label3: TLabel;
edt_model: TEdit;
CheckBox1: TCheckBox;
Label4: TLabel;
Opevent: TEdit;
edt_nr: TEdit;
ThreeImgList: TImageList;
ImageList_new32: TImageList;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
procedure TcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TQryClick(Sender: TObject);
procedure edt_modelChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure OpeventKeyPress(Sender: TObject; var Key: Char);
private
procedure DoQuery();
procedure DoFilter();
@ -74,7 +72,7 @@ var
implementation
uses
U_DataLink, U_RTFun;
U_DataLink;
{$R *.dfm}
procedure TfrmSysLogHelp.TcloseClick(Sender: TObject);
@ -102,7 +100,7 @@ procedure TfrmSysLogHelp.DoQuery();
var
mbegdate, menddate: string;
begin
mbegdate := formatDatetime('yyyy-MM-dd', begDate.Date);
mbegdate := formatDatetime('yyyy-MM-dd', begDate.Date); //
menddate := formatDatetime('yyyy-MM-dd', endDate.Date + 1);
try
with ADOQueryLog do
@ -121,10 +119,6 @@ begin
begin
sql.Add('where 1=1');
end;
if trim(Opevent.Text) <> '' then
sql.add('and Opevent LIKE ' + quotedStr('%' + Opevent.Text + '%'));
if trim(fModel) <> '' then
sql.add('and Model=' + quotedStr(fModel));
if trim(facction) <> '' then
@ -148,13 +142,14 @@ var
filterStr: string;
begin
filterStr := '';
//
if trim(edt_model.text) <> '' then
begin
filterStr := ' and model =' + quotedStr(trim(edt_model.text));
end;
if trim(Opevent.text) <> '' then
if trim(edt_nr.text) <> '' then
begin
filterStr := ' and OpEvent like ' + quotedStr('%' + trim(Opevent.text) + '%');
filterStr := ' and OpEvent like ' + quotedStr('%' + trim(edt_nr.text) + '%');
end;
try
@ -164,7 +159,7 @@ begin
ADOQueryLog.Filtered := false;
exit;
end;
filterStr := trim(RightBStr(filterStr, length(filterStr) - 3));
filterStr := trim(RightBStr(filterStr, length(filterStr) - 4));
with ADOQueryLog do
begin
filtered := false;
@ -182,19 +177,16 @@ begin
DoQuery();
end;
procedure TfrmSysLogHelp.OpeventKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
DoQuery();
end;
end;
procedure TfrmSysLogHelp.TQryClick(Sender: TObject);
begin
DoQuery();
end;
procedure TfrmSysLogHelp.edt_modelChange(Sender: TObject);
begin
DoFilter();
end;
procedure TfrmSysLogHelp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;

7830
Z99Dependency/ThreeFun/Form/U_UserHelp.dfm
View File

File diff suppressed because it is too large Load Diff

4
Z99Dependency/ThreeFun/Form/U_UserHelp.pas
View File

@ -8,9 +8,7 @@ uses
cxData, cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, cxInplaceContainer, cxDBTL,
cxTLData, ComCtrls, ToolWin, ADODB, ImgList,StrUtils, ExtCtrls,
cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu,
cxNavigator, dxDateRanges, System.ImageList;
cxTLData, ComCtrls, ToolWin, ADODB, ImgList,StrUtils, ExtCtrls;
type
TfrmUserHelp = class(TForm)

17
Z99Dependency/ThreeFun/Form/U_YPTypeHelp.pas
View File

@ -27,20 +27,21 @@ var
frmYPTypeHelp: TfrmYPTypeHelp;
implementation
uses
U_DataLink;
{$R *.dfm}
procedure TfrmYPTypeHelp.FormCreate(Sender: TObject);
begin
cxDBTreeList1.Align:=alclient;
cxDBTreeList1.Align := alclient;
try
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
Connected := false;
ConnectionString := DConString;
//ConnectionString:='';
Connected:=true;
Connected := true;
end;
except
end;
@ -52,7 +53,7 @@ begin
begin
Close;
SQL.Clear;
SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName');
SQL.Add('select * from CP_Type where FLType=''ÑùÆ·Àà±ð'' order by CPlevel,CPOrder,CPName');
Open;
end;
cxDBTreeList1.Items[0].Expand(false);
@ -60,8 +61,10 @@ end;
procedure TfrmYPTypeHelp.cxDBTreeList1DblClick(Sender: TObject);
begin
IF ADOQueryHelp.IsEmpty then exit;
ModalResult:=1;
if ADOQueryHelp.IsEmpty then
exit;
ModalResult := 1;
end;
end.

11635
Z99Dependency/ThreeFun/Form/U_ZDYHelp.dfm
View File

File diff suppressed because it is too large Load Diff

110
Z99Dependency/ThreeFun/Form/U_ZDYHelp.pas
View File

@ -5,15 +5,14 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseInput, cxGridCustomTableView,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList;
cxLookAndFeelPainters, cxNavigator;
type
TfrmZDYHelp = class(TfrmBaseInput)
TfrmZDYHelp = class(TForm)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
@ -43,7 +42,6 @@ type
V1ZdyFlag: TcxGridDBColumn;
V1HelpType: TcxGridDBColumn;
V1note1: TcxGridDBColumn;
ImageList1: TImageList;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
@ -60,13 +58,13 @@ type
procedure V1NotePropertiesEditValueChanged(Sender: TObject);
procedure V1Column1PropertiesEditValueChanged(Sender: TObject);
procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure V1note1PropertiesEditValueChanged(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
flag, flagname, snote, MainType: string;
fnote, forderno, fZdyFlag, ViewFlag, fnote1, FHelpType: Boolean;
fnote, forderno, fZdyFlag, ViewFlag, fnote1, fHelpType, FZDYStr1: Boolean;
PPSTE: integer;
{ Public declarations }
end;
@ -77,31 +75,44 @@ var
implementation
uses
U_DataLink, U_RTFun;
U_DataLink, U_Fun10;
{$R *.dfm}
procedure TfrmZDYHelp.FormCreate(Sender: TObject);
begin
inherited;
try
cxGrid1.Align := alClient;
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
//ConnectionString:='';
Connected := true;
end;
except
{if Application.MessageBox('网络连接失败,是否要再次连接?','提示',32+4)=IDYES then
begin
try
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
//ConnectionString:='23242';
Connected:=true;
end;
except
end;
end; }
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
frmZDYHelp.Free;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
end;
procedure TfrmZDYHelp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ZDYName.SetFocus;
Action := cahide;
Action := caFree;
end;
procedure TfrmZDYHelp.InitGrid();
@ -119,8 +130,8 @@ begin
end;
Open;
end;
SCreateCDS(ADOQueryMain, ClientDataSet1);
SInitCDSData(ADOQueryMain, ClientDataSet1);
SCreateCDS20(ADOQueryMain, ClientDataSet1);
SInitCDSData20(ADOQueryMain, ClientDataSet1);
finally
ADOQueryMain.EnableControls;
end;
@ -305,7 +316,7 @@ begin
if application.MessageBox('确定要删除吗?', '提示信息', 1) = 2 then
exit;
with ADOQueryCmd do
begin
begin
Close;
sql.Clear;
sql.Add('delete KH_ZDY where ZDYNo=''' + Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString) + '''');
@ -320,7 +331,7 @@ procedure TfrmZDYHelp.TBCloseClick(Sender: TObject);
begin
ModalResult := 2;
ZDYName.SetFocus;
WriteCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
Close;
end;
@ -328,19 +339,17 @@ procedure TfrmZDYHelp.FormShow(Sender: TObject);
var
fsj, fsj1: string;
begin
inherited;
InitGrid();
fsj := Trim(flag) + '01';
fsj1 := Trim(flagname) + '01';
ReadCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
frmZDYHelp.Caption := Trim(flagname);
V1Note.Visible := fnote;
V1ZdyFlag.Visible := fZdyFlag;
V1OrderNo.Visible := forderno;
v1note1.Visible := fnote1;
V1HelpType.Visible := fhelpType;
V1HelpType.Visible := fHelpType;
if ViewFlag = True then
begin
TBAdd.Visible := False;
@ -383,8 +392,8 @@ begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, fsj);
SCreateCDS(ADOQueryMain, ClientDataSet1);
SInitCDSData(ADOQueryMain, ClientDataSet1);
SCreateCDS20(ADOQueryMain, ClientDataSet1);
SInitCDSData20(ADOQueryMain, ClientDataSet1);
end;
end;
@ -467,7 +476,7 @@ begin
if ADOQueryTemp.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
@ -575,7 +584,7 @@ begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '';
mvalue := '0';
end;
with ClientDataSet1 do
begin
@ -605,18 +614,22 @@ begin
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with ClientDataSet1 do
begin
Edit;
FieldByName(fieldname).Value := mvalue;
FieldByName(fieldname).Value := StrToInt(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set ' + fieldname + '=''' + Trim(mvalue) + ''' ');
sql.Add('where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
sql.Add('Update KH_Zdy Set ' + fieldname + '=' + Trim(mvalue));
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
@ -651,12 +664,33 @@ begin
end;
end;
procedure TfrmZDYHelp.FormDestroy(Sender: TObject);
procedure TfrmZDYHelp.V1note1PropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
fieldname: string;
begin
inherited;
WriteCxGrid('×Ô¶¨Òå' + Trim(flag), TV1, '×Ô¶¨ÒåÊý¾Ý');
frmZDYHelp := nil;
fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
with ClientDataSet1 do
begin
Edit;
FieldByName(fieldname).Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set ' + fieldname + '=' + quotedstr(Trim(mvalue)));
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
end.

99
Z99Dependency/ThreeFun/Form/U_ZDYHelp.vlb
View File

@ -1,99 +0,0 @@
[TBDel]
Coordinates=374,214,50,36
[Label2]
Coordinates=298,146,53,58
[ToolButton1]
Coordinates=280,214,84,36
[cxGrid1Level1]
Coordinates=361,155,97,36
[V1HelpType]
Coordinates=361,210,85,36
[TBEdit]
Coordinates=217,214,53,36
[V1Note]
Coordinates=342,251,57,36
[ADOQueryCmd]
Coordinates=121,146,104,58
[TBAdd]
Coordinates=153,214,54,36
[V1OrderNo]
Coordinates=194,251,79,36
[V1note1]
Coordinates=125,251,62,36
[TV1]
Coordinates=76,251,40,36
[TBClose]
Coordinates=79,214,64,36
[Panel1]
Coordinates=333,78,55,58
[cxGrid1]
Coordinates=10,214,59,36
[ZDYName]
Coordinates=249,78,74,58
[V1Name]
Coordinates=504,133,64,36
[ADOQueryTemp]
Coordinates=233,10,109,58
[cxGridPopupMenu1]
Coordinates=504,188,128,36
[ADOConnection1]
Coordinates=504,243,114,36
[ThreeImgList]
Coordinates=504,298,90,36
[V1Code]
Coordinates=435,325,61,36
[ClientDataSet1]
Coordinates=10,146,101,58
[V1ZdyFlag]
Coordinates=356,325,77,36
[DataSource1]
Coordinates=219,78,89,36
[Label1]
Coordinates=235,146,53,58
[TBSave]
Coordinates=438,146,60,36
[ADOQueryMain]
Coordinates=398,78,105,58
[DataLink_TradeManage.AdoDataLink]
Coordinates=10,78,229,58
[ToolBar1]
Coordinates=361,146,67,36
[frmBaseInput.ADOQueryBaseTemp]
Coordinates=352,10,219,58
[frmBaseInput.ADOQueryBaseCmd]
Coordinates=10,10,213,58
[]
Coordinates=405,251,91,36

14363
Z99Dependency/ThreeFun/Form/U_ZDYHelpFZSel.dfm
View File

File diff suppressed because it is too large Load Diff

397
Z99Dependency/ThreeFun/Form/U_ZDYHelpFZSel.pas
View File

@ -1,397 +0,0 @@
unit U_ZDYHelpFZSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxCheckBox, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, System.ImageList,
System.Types, cxDropDownEdit, cxButtonEdit, dxBarBuiltInMenu,
cxGridCustomPopupMenu, cxGridPopupMenu, U_BaseHelp, BtnEdit, Vcl.Menus;
type
TfrmZDYHelpFZSel = class(TForm)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
V1Name: TcxGridDBColumn;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
TBAdd: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
TBEdit: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ZDYName: TEdit;
ThreeImgList: TImageList;
V1Column1: TcxGridDBColumn;
Label2: TLabel;
TV1Column1: TcxGridDBColumn;
cxgrdpmn1: TcxGridPopupMenu;
BZType: TBtnEditC;
Label3: TLabel;
ImageList_new32: TImageList;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ZDYNameChange(Sender: TObject);
procedure V1NamePropertiesEditValueChanged(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TV1Column1PropertiesEditValueChanged(Sender: TObject);
procedure BZTypeBtnDnClick(Sender: TObject);
procedure BZTypeBtnUpClick(Sender: TObject);
procedure N2Click(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
flag, flagname, snote, MainType, ReturnStr, FGStr, FChkStr: string;
fnote, forderno: Boolean;
PPSTE, JiangeStr: integer;
{ Public declarations }
end;
var
frmZDYHelpFZSel: TfrmZDYHelpFZSel;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmZDYHelpFZSel.TBAddClick(Sender: TObject);
var
maxno: string;
begin
if Trim(BZType.Text) = '' then
begin
Application.MessageBox('类型不能为空！', '提示', 0);
Exit;
end;
ZDYName.SetFocus;
TV1.OptionsData.Editing := True;
TV1.OptionsSelection.CellSelect := True;
if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then
begin
Application.MessageBox('取最大编号失败！', '提示', 0);
Exit;
end;
with ClientDataSet1 do
begin
Append;
fieldbyname('ZDYNo').Value := maxno;
fieldbyname('Note').Value := BZType.Text;
Post;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('insert into KH_ZDY(Type,MainType,ZDYNo,Note) ');
sql.Add('values(' + quotedstr(Trim(flag)));
sql.Add(',' + quotedstr(Trim(MainType)));
sql.Add(',' + quotedstr(Trim(maxno)));
sql.Add(',' + quotedstr(Trim(BZType.Text)) + ') ');
ExecSQL;
end;
end;
procedure TfrmZDYHelpFZSel.FormCreate(Sender: TObject);
begin
try
cxGrid1.Align := alClient;
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
//ConnectionString:='';
Connected := true;
end;
except
frmZDYHelpFZSel.Free;
end;
end;
procedure TfrmZDYHelpFZSel.BZTypeBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmZDYHelpFZSel.BZTypeBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Trim(self.flag) + 'MX';
flagname := '类型';
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmZDYHelpFZSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
writeCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
ZDYName.SetFocus;
Action := caFree;
end;
procedure TfrmZDYHelpFZSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where Type=''' + flag + '''');
if Trim(MainType) <> '' then
begin
sql.Add(' and MainType=''' + Trim(MainType) + '''');
end;
Open;
end;
SCreateCDS(ADOQueryMain, ClientDataSet1);
SInitCDSData(ADOQueryMain, ClientDataSet1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmZDYHelpFZSel.N2Click(Sender: TObject);
var
MNote: string;
begin
with ClientDataSet1 do
begin
DisableControls;
MNote := Trim(ClientDataSet1.fieldbyname('Note').AsString);
First;
while not EOF do
begin
ClientDataSet1.Edit;
if MNote = Trim(ClientDataSet1.fieldbyname('Note').AsString) then
begin
ClientDataSet1.fieldbyname('ssel').Value := TRUE;
end
else
begin
ClientDataSet1.fieldbyname('ssel').Value := False;
end;
ClientDataSet1.Post;
ClientDataSet1.Next;
end;
EnableControls;
end;
end;
procedure TfrmZDYHelpFZSel.TBDelClick(Sender: TObject);
begin
if ClientDataSet1.IsEmpty then
Exit;
if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString) <> '') or (Trim(ClientDataSet1.FieldByName('ZDYname').AsString) <> '') then
begin
if application.MessageBox('确定要删除吗?', '提示信息', 1) = 2 then
exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete KH_ZDY where ZDYNo=''' + Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString) + '''');
SQL.Add('and Type=''' + Trim(flag) + '''');
ExecSQL;
end;
end;
ClientDataSet1.Delete;
end;
procedure TfrmZDYHelpFZSel.TBCloseClick(Sender: TObject);
begin
ModalResult := 2;
ZDYName.SetFocus;
WriteCxGrid('自定义包装要求1', TV1, '自定义数据');
Close;
end;
procedure TfrmZDYHelpFZSel.FormShow(Sender: TObject);
var
fsj, fsj1: string;
FStrs: TStringList;
i: integer;
begin
ReadCxGrid('自定义包装要求1', TV1, '自定义数据');
InitGrid();
fsj := Trim(flag) + '01';
fsj1 := Trim(flagname) + '01';
if Trim(FChkStr) <> '' then
begin
FStrs := TStringList.Create();
ExtractStrings(['|'], [' '], PChar(FChkStr), FStrs);
frmZDYHelpFZSel.Caption := Trim(flagname);
// for i := 0 to FStrs.Count-1 do
// showmessage(FStrs[i]);
with ClientDataSet1 do
begin
First;
while not eof do
begin
if FStrs.IndexOf(Trim(FieldByName('ZDYName').AsString)) >= 0 then
begin
Edit;
FieldByName('SSel').Value := true;
Post;
end;
Next;
end;
end;
FStrs.Free;
end;
end;
procedure TfrmZDYHelpFZSel.ToolButton1Click(Sender: TObject);
begin
ReturnStr := '';
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
if JiangeStr <> 99 then
begin
if FGStr <> '' then
ReturnStr := ReturnStr + Trim(fieldbyname('ZDYName').AsString) + FGStr
else
ReturnStr := ReturnStr + Trim(fieldbyname('ZDYName').AsString) + ';'
end
else
ReturnStr := ReturnStr + Trim(fieldbyname('ZDYName').AsString);
end;
Next;
end;
end;
if JiangeStr <> 99 then
ReturnStr := Copy(ReturnStr, 1, Length(ReturnStr) - 1);
ModalResult := 1;
end;
procedure TfrmZDYHelpFZSel.TBEditClick(Sender: TObject);
begin
TV1.OptionsData.Editing := True;
end;
procedure TfrmZDYHelpFZSel.TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if TV1.OptionsData.Editing = False then
begin
ModalResult := 1;
end;
end;
procedure TfrmZDYHelpFZSel.TV1Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with ClientDataSet1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set ' + FFieldName + '=' + quotedstr(Trim(mvalue)));
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmZDYHelpFZSel.ZDYNameChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, ClientDataSet1);
SInitCDSData(ADOQueryMain, ClientDataSet1);
end;
end;
procedure TfrmZDYHelpFZSel.V1NamePropertiesEditValueChanged(Sender: TObject);
var
maxno, mvalue: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
with ClientDataSet1 do
begin
Edit;
FieldByName('ZDYName').Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set ZDYName=''' + Trim(mvalue) + '''');
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmZDYHelpFZSel.FormDestroy(Sender: TObject);
begin
frmZDYHelpFZSel := nil;
end;
end.

539
Z99Dependency/ThreeFun/Form/U_ZDYHelpSM.pas
View File

@ -1,539 +0,0 @@
unit U_ZDYHelpSM;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu;
type
TfrmZDYHelpSM = class(TForm)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
V1Code: TcxGridDBColumn;
V1Name: TcxGridDBColumn;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
TBAdd: TToolButton;
TBSave: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
TBEdit: TToolButton;
V1Note: TcxGridDBColumn;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ZDYName: TEdit;
ThreeImgList: TImageList;
Label2: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
V1ZdyFlag: TcxGridDBColumn;
V1HelpType: TcxGridDBColumn;
V1note1: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure ZDYNameChange(Sender: TObject);
procedure V1NamePropertiesEditValueChanged(Sender: TObject);
procedure V1Column1PropertiesEditValueChanged(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
flag,flagname,snote,MainType:string;
fnote,forderno,fZdyFlag,ViewFlag,fnote1:Boolean;
PPSTE:integer;
{ Public declarations }
end;
var
frmZDYHelpSM: TfrmZDYHelpSM;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmZDYHelpSM.FormCreate(Sender: TObject);
begin
try
cxGrid1.Align:=alClient;
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=DConString;
Connected:=true;
end;
except
frmZDYHelpSM.Free;
end;
end;
procedure TfrmZDYHelpSM.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ZDYName.SetFocus;
Action:=cahide;
end;
procedure TfrmZDYHelpSM.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) ');
sql.Add('from KH_ZDY'+DSMFlag+' A ');
sql.Add('where A.Type='''+flag+'''');
if Trim(MainType)<>'' then
begin
sql.Add(' and A.MainType='''+Trim(MainType)+'''');
end;
Open;
end;
SCreateCDS20(ADOQueryMain,ClientDataSet1);
SInitCDSData20(ADOQueryMain,ClientDataSet1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmZDYHelpSM.TBAddClick(Sender: TObject);
var
i:Integer;
begin
ZDYName.SetFocus;
TV1.OptionsData.Editing:=True;
TV1.OptionsSelection.CellSelect:=True;
for i:=0 to 5 do
begin
with ClientDataSet1 do
begin
Append;
Post;
end;
end;
end;
procedure TfrmZDYHelpSM.TBSaveClick(Sender: TObject);
var
maxno:string;
begin
if ClientDataSet1.IsEmpty then Exit;
ZDYName.SetFocus;
if ClientDataSet1.Locate('ZDYName',null,[]) then
begin
Application.MessageBox('名称不能为空！','提示',0);
Exit;
end;
if ClientDataSet1.Locate('ZDYName','',[]) then
begin
Application.MessageBox('名称不能为空！','提示',0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1=2');
open;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(flag);
ADOQueryCmd.FieldByName('ZDYName').Value:=trim(flagname);
ADOQueryCmd.FieldByName('Type').Value:='Main';
ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
ADOQueryCmd.Post;
end;
end;
with ADOQueryCmd do
begin
ClientDataSet1.DisableControls;
with ClientDataSet1 do
begin
First;
while not eof do
begin
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
begin
if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('取最大编号失败！','提示',0);
Exit;
end;
end else
begin
maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('select * from KH_Zdy where Type='''+Trim(flag)+'''');
if Trim(MainType)<>'' then
SQL.Add(' and MainType='''+Trim(MainType)+'''');
sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
begin
if ADOQueryTemp.RecordCount>1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！','提示',0);
Exit;
end;
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！','提示',0);
Exit;
end else
begin
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！','提示',0);
Exit;
end;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1<>1');
Open;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').Value;
ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
ADOQueryCmd.FieldByName('Type').Value:=flag;
ADOQueryCmd.FieldByName('valid').Value:='Y';
if Trim(MainType)<>'' then
ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
//ADOQueryCmd.FieldByName('sel').Value:=0;
ADOQueryCmd.Post;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
ClientDataSet1.Post;
Next;
end;
end;
ClientDataSet1.EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功！','提示',0);
TV1.OptionsData.Editing:=False;
TV1.OptionsSelection.CellSelect:=False;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！','提示',0);
end;
end;
procedure TfrmZDYHelpSM.TBDelClick(Sender: TObject);
begin
if ClientDataSet1.IsEmpty then Exit;
if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString)<>'') or
(Trim(ClientDataSet1.FieldByName('ZDYname').AsString)<>'') then
begin
if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete KH_ZDY'+DSMFlag+' where ZDYNo='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+'''');
SQL.Add(' and Type='''+Trim(flag)+'''');
ExecSQL;
end;
end;
ClientDataSet1.Delete;
end;
procedure TfrmZDYHelpSM.TBCloseClick(Sender: TObject);
begin
ModalResult:=2;
ZDYName.SetFocus;
Close;
end;
procedure TfrmZDYHelpSM.FormShow(Sender: TObject);
var
fsj,fsj1:string;
begin
InitGrid();
fsj:=Trim(flag)+'01';
fsj1:=Trim(flagname)+'01';
ReadCxGrid('自定义'+Trim(flag),TV1);
frmZDYHelpSM.Caption:=Trim(flagname);
V1Note.Visible:=fnote;
v1note1.Visible:=fnote1;
if ViewFlag=True then
begin
TBAdd.Visible:=False;
TBSave.Visible:=False;
TBDel.Visible:=False;
TBEdit.Visible:=False;
Label2.Visible:=False;
end;
end;
procedure TfrmZDYHelpSM.ToolButton1Click(Sender: TObject);
begin
ZDYName.SetFocus;
ModalResult:=1;
end;
procedure TfrmZDYHelpSM.TBEditClick(Sender: TObject);
begin
TV1.OptionsData.Editing:=True;
TV1.OptionsSelection.CellSelect:=True;
end;
procedure TfrmZDYHelpSM.TV1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
if TV1.OptionsData.Editing=False then
begin
ModalResult:=1;
end;
end;
procedure TfrmZDYHelpSM.ZDYNameChange(Sender: TObject);
var
fsj:String;
begin
if Trim(ZDYName.Text)<>'' then
begin
fsj:=' zdyname like '''+'%'+Trim(ZDYName.Text)+'%'+''''
+' or Note like '''+'%'+Trim(ZDYName.Text)+'%'+''''
+' or ZJM like '''+'%'+Trim(ZDYName.Text)+'%'+'''';
end;
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,fsj);
SCreateCDS20(ADOQueryMain,ClientDataSet1);
SInitCDSData20(ADOQueryMain,ClientDataSet1);
end;
end;
procedure TfrmZDYHelpSM.V1NamePropertiesEditValueChanged(Sender: TObject);
var
maxno,mvalue:string;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
if Trim(mvalue)='' then Exit;
with ClientDataSet1 do
begin
Edit;
FieldByName('ZdyName').Value:=Trim(mvalue);
//Post;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from KH_ZDY'+DSMFlag+' where ZdyNo='''+Trim(flag)+'''');
open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from KH_ZDY'+DSMFlag+' where 1=2');
open;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(flag);
ADOQueryCmd.FieldByName('ZDYName').Value:=trim(flagname);
ADOQueryCmd.FieldByName('Type').Value:='Main';
ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
ADOQueryCmd.FieldByName('SMFlag').Value:=trim(DSmflag);
ADOQueryCmd.Post;
end;
end;
with ADOQueryCmd do
begin
//ClientDataSet1.DisableControls;
//with ClientDataSet1 do
//begin
//First;
//while not eof do
//begin
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
begin
if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY'+trim(DSMFlag),3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('取最大编号失败！','提示',0);
Exit;
end;
end else
begin
maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('select * from KH_Zdy'+DSMFlag+' ');
sql.add('where Type='''+Trim(flag)+'''');
if Trim(MainType)<>'' then
SQL.Add(' and MainType='''+Trim(MainType)+'''');
sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
sql.Add(' and note='''+Trim(ClientDataSet1.fieldbyname('note').AsString)+'''');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
begin
if ADOQueryTemp.RecordCount>1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('名称重复！','提示',0);
Exit;
end;
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('名称重复！','提示',0);
Exit;
end else
begin
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('名称重复！','提示',0);
Exit;
end;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('delete KH_ZDY'+DSMFlag+' where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY'+DSMFlag+' where 1=2 ');
Open;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString;
ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
ADOQueryCmd.FieldByName('Type').Value:=flag;
ADOQueryCmd.FieldByName('valid').Value:='Y';
ADOQueryCmd.FieldByName('SMFlag').Value:=trim(DSmflag);
if Trim(MainType)<>'' then
ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
//ADOQueryCmd.FieldByName('sel').Value:=0;
ADOQueryCmd.Post;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！','提示',0);
end;
end;
procedure TfrmZDYHelpSM.V1Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue:String;
fieldname:string;
begin
fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
begin
Application.MessageBox('名称不能为空!','提示',0);
Exit;
end;
mvalue:=TcxTextEdit(Sender).EditingText;
with ClientDataSet1 do
begin
Edit;
FieldByName(fieldname).Value:=mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy'+DSMFlag+' Set '+fieldname+'='''+Trim(mvalue)+''' ');
sql.Add('where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
ExecSQL;
end;
end;
procedure TfrmZDYHelpSM.FormDestroy(Sender: TObject);
begin
frmZDYHelpSM:=nil;
WriteCxGrid('自定义'+Trim(flag),TV1);
end;
end.

11597
Z99Dependency/ThreeFun/Form/U_ZDYHelpSel.dfm
View File

File diff suppressed because it is too large Load Diff

433
Z99Dependency/ThreeFun/Form/U_ZDYHelpSel.pas
View File

@ -4,13 +4,12 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxCheckBox, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, System.ImageList,
System.Types, dxBarBuiltInMenu, cxGridCustomPopupMenu, cxGridPopupMenu;
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxCheckBox, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator;
type
TfrmZDYHelpSel = class(TForm)
@ -40,8 +39,8 @@ type
ThreeImgList: TImageList;
V1Column1: TcxGridDBColumn;
Label2: TLabel;
ImageList_new32: TImageList;
cxGridPopupMenu1: TcxGridPopupMenu;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
@ -51,18 +50,18 @@ type
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure ZDYNameChange(Sender: TObject);
procedure V1NamePropertiesEditValueChanged(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure V1NotePropertiesEditValueChanged(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
flag, flagname, FChkStr, snote, MainType, ReturnStr, FGStr: string;
fnote, forderno: Boolean;
PPSTE, JiangeStr: integer;
flag,flagname,snote,MainType,ReturnStr,FGStr:string;
fnote,forderno:Boolean;
PPSTE,JiangeStr:integer;
{ Public declarations }
end;
@ -70,23 +69,21 @@ var
frmZDYHelpSel: TfrmZDYHelpSel;
implementation
uses
U_DataLink, U_RTFun;
U_DataLink,U_Fun10;
{$R *.dfm}
procedure TfrmZDYHelpSel.FormCreate(Sender: TObject);
begin
try
cxGrid1.Align := alClient;
cxGrid1.Align:=alClient;
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected:=false;
ConnectionString:=DConString;
//ConnectionString:='';
Connected := true;
Connected:=true;
end;
except
{if Application.MessageBox('网络连接失败,是否要再次连接?','提示',32+4)=IDYES then
@ -102,16 +99,16 @@ begin
except
end;
end; }
frmZDYHelpSel.Free;
end;
end;
procedure TfrmZDYHelpSel.FormClose(Sender: TObject; var Action: TCloseAction);
procedure TfrmZDYHelpSel.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
writeCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
ZDYName.SetFocus;
Action := caFree;
Action:=caFree;
end;
procedure TfrmZDYHelpSel.InitGrid();
@ -122,15 +119,15 @@ begin
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where Type=''' + flag + '''');
if Trim(MainType) <> '' then
sql.Add('select * from KH_ZDY where Type='''+flag+'''');
if Trim(MainType)<>'' then
begin
sql.Add(' and MainType=''' + Trim(MainType) + '''');
sql.Add(' and MainType='''+Trim(MainType)+'''');
end;
Open;
end;
SCreateCDS(ADOQueryMain, ClientDataSet1);
SInitCDSData(ADOQueryMain, ClientDataSet1);
SCreateCDS20(ADOQueryMain,ClientDataSet1);
SInitCDSData20(ADOQueryMain,ClientDataSet1);
finally
ADOQueryMain.EnableControls;
end;
@ -138,17 +135,12 @@ end;
procedure TfrmZDYHelpSel.TBAddClick(Sender: TObject);
var
i: Integer;
i:Integer;
begin
ZDYName.SetFocus;
TV1.OptionsData.Editing := True;
TV1.OptionsSelection.CellSelect := True;
for i := 0 to TV1.ColumnCount - 1 do
begin
if uppercase(TV1.Columns[i].DataBinding.FieldName) <> 'SSEL' then
TV1.Columns[i].Options.Editing := True;
end;
for i := 0 to 5 do
TV1.OptionsData.Editing:=True;
TV1.OptionsSelection.CellSelect:=True;
for i:=0 to 5 do
begin
with ClientDataSet1 do
begin
@ -161,17 +153,16 @@ end;
procedure TfrmZDYHelpSel.TBSaveClick(Sender: TObject);
var
maxno: string;
maxno:string;
begin
if ClientDataSet1.IsEmpty then
Exit;
if ClientDataSet1.IsEmpty then Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + '''');
SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
open;
end;
if ADOQueryTemp.IsEmpty then
@ -181,10 +172,10 @@ begin
close;
sql.Clear;
sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
Parameters.ParamByName('ZDYNo').Value := Trim(flag);
Parameters.ParamByName('ZDYName').Value := Trim(flagname);
Parameters.ParamByName('Type').Value := 'Main';
Parameters.ParamByName('MainType').Value := Trim(MainType);
Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
Parameters.ParamByName('Type').Value:='Main';
Parameters.ParamByName('MainType').Value:=Trim(MainType);
ExecSQL;
end;
end;
@ -195,24 +186,23 @@ begin
First;
while not eof do
begin
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
begin
if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then
if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大编号失败！', '提示', 0);
Application.MessageBox('取最大编号失败！','提示',0);
Exit;
end;
end
else
end else
begin
maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + '''');
SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
@ -222,53 +212,52 @@ begin
sql.Add('select * from KH_ZDY where 1<>1');
Open;
end;
if Trim(ClientDataSet1.FieldByName('ZDYName').AsString) = '' then
if Trim(ClientDataSet1.FieldByName('ZDYName').AsString)='' then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('名称不能为空！', '提示', 0);
Application.MessageBox('名称不能为空！','提示',0);
Exit;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').AsString;
ADOQueryCmd.FieldByName('note').Value := Trim(snote);
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString;
ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
ADOQueryCmd.FieldByName('Type').Value := flag;
ADOQueryCmd.FieldByName('valid').Value := 'Y';
if Trim(MainType) <> '' then
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
ADOQueryCmd.FieldByName('Type').Value:=flag;
ADOQueryCmd.FieldByName('valid').Value:='Y';
if Trim(MainType)<>'' then
ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
//ADOQueryCmd.FieldByName('sel').Value:=0;
ADOQueryCmd.Post;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno);
ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
ClientDataSet1.Post;
Next;
end;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功！', '提示', 0);
Application.MessageBox('保存成功！','提示',0);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
Application.MessageBox('保存失败！','提示',0);
end;
// TV1.OptionsData.Editing:=False;
end;
procedure TfrmZDYHelpSel.TBDelClick(Sender: TObject);
begin
if ClientDataSet1.IsEmpty then
Exit;
if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString) <> '') or (Trim(ClientDataSet1.FieldByName('ZDYname').AsString) <> '') then
if ClientDataSet1.IsEmpty then Exit;
if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString)<>'') or
(Trim(ClientDataSet1.FieldByName('ZDYname').AsString)<>'') then
begin
if application.MessageBox('确定要删除吗?', '提示信息', 1) = 2 then
exit;
if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete KH_ZDY where ZDYNo=''' + Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString) + '''');
SQL.Add('and Type=''' + Trim(flag) + '''');
sql.Add('delete KH_ZDY where ZDYNo='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+'''');
SQL.Add(' and Type='''+Trim(flag)+'''');
ExecSQL;
end;
end;
@ -277,101 +266,82 @@ end;
procedure TfrmZDYHelpSel.TBCloseClick(Sender: TObject);
begin
ModalResult := 2;
ModalResult:=2;
ZDYName.SetFocus;
Close;
end;
procedure TfrmZDYHelpSel.FormShow(Sender: TObject);
var
fsj, fsj1: string;
FStrs: TStringList;
i: Integer;
fsj,fsj1:string;
begin
{if PPSTE=1 then
begin
Application.Terminate;
Exit;
end; }
for i := 0 to TV1.ColumnCount - 1 do
begin
if uppercase(TV1.Columns[i].DataBinding.FieldName) <> 'SSEL' then
TV1.Columns[i].Options.Editing := false;
end;
ReadCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
InitGrid();
fsj := Trim(flag) + '01';
fsj1 := Trim(flagname) + '01';
if Trim(FChkStr) <> '' then
fsj:=Trim(flag)+'01';
fsj1:=Trim(flagname)+'01';
{if ClientDataSet1.IsEmpty then
begin
FStrs := TStringList.Create();
ExtractStrings(['|'], [' '], PChar(FChkStr), FStrs);
frmZDYHelpSel.Caption := Trim(flagname);
with ClientDataSet1 do
with ADOQueryCmd do
begin
First;
while not eof do
begin
if FStrs.IndexOf(Trim(FieldByName('ZDYName').AsString)) >= 0 then
begin
Edit;
FieldByName('SSel').Value := true;
Post;
end;
Next;
end;
Close;
sql.Clear;
sql.Add('insert into KH_ZDY(ZDYNo,ZDYname,Type,note)');
sql.Add('select '''+Trim(fsj)+'''');
sql.Add(','''+Trim(fsj1)+'''');
SQL.Add(','''+Trim(flag)+'''');
sql.Add(','''+Trim(snote)+'''');
ExecSQL;
end;
FStrs.Free;
end;
InitGrid();
end;}
//frmZDYHelp.Caption:=Trim(flagname)+'<'+Trim(flag)+'>';
frmZDYHelpSel.Caption:=Trim(flagname);
end;
procedure TfrmZDYHelpSel.ToolButton1Click(Sender: TObject);
begin
ReturnStr := '';
ReturnStr:='';
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
if FieldByName('SSel').AsBoolean=True then
begin
if JiangeStr <> 99 then
if JiangeStr<>99 then
begin
if FGStr <> '' then
ReturnStr := ReturnStr + Trim(fieldbyname('ZDYName').AsString) + FGStr
if FGStr<>'' then
ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString)+FGStr
else
ReturnStr := ReturnStr + Trim(fieldbyname('ZDYName').AsString) + ';'
ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString)+';'
end
else
ReturnStr := ReturnStr + Trim(fieldbyname('ZDYName').AsString);
ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString);
end;
Next;
end;
end;
if JiangeStr <> 99 then
ReturnStr := Copy(ReturnStr, 1, Length(ReturnStr) - 1);
ModalResult := 1;
if JiangeStr<>99 then
ReturnStr:=Copy(ReturnStr,1,Length(ReturnStr)-1);
ModalResult:=1;
end;
procedure TfrmZDYHelpSel.TBEditClick(Sender: TObject);
var
i: Integer;
begin
for i := 0 to TV1.ColumnCount - 1 do
begin
if uppercase(TV1.Columns[i].DataBinding.FieldName) <> 'SSEL' then
TV1.Columns[i].Options.Editing := True;
end;
TV1.OptionsData.Editing:=True;
end;
procedure TfrmZDYHelpSel.TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TfrmZDYHelpSel.TV1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
if TV1.OptionsData.Editing = False then
if TV1.OptionsData.Editing=False then
begin
ModalResult := 1;
ModalResult:=1;
end;
end;
@ -379,18 +349,18 @@ procedure TfrmZDYHelpSel.ZDYNameChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, ClientDataSet1);
SInitCDSData(ADOQueryMain, ClientDataSet1);
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,ClientDataSet1);
SInitCDSData20(ADOQueryMain,ClientDataSet1);
end;
end;
procedure TfrmZDYHelpSel.V1NamePropertiesEditValueChanged(Sender: TObject);
var
maxno, mvalue: string;
maxno,mvalue:string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
mvalue:=TcxTextEdit(Sender).EditingText;
if Trim(mvalue)='' then
begin
//Application.MessageBox('名称不能为空！','提示',0);
Exit;
@ -398,7 +368,7 @@ begin
with ClientDataSet1 do
begin
Edit;
FieldByName('ZdyName').Value := Trim(mvalue);
FieldByName('ZdyName').Value:=Trim(mvalue);
//Post;
end;
try
@ -407,7 +377,7 @@ begin
begin
Close;
SQL.Clear;
SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + '''');
SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
open;
end;
if ADOQueryTemp.IsEmpty then
@ -417,10 +387,10 @@ begin
close;
sql.Clear;
sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
Parameters.ParamByName('ZDYNo').Value := Trim(flag);
Parameters.ParamByName('ZDYName').Value := Trim(flagname);
Parameters.ParamByName('Type').Value := 'Main';
Parameters.ParamByName('MainType').Value := Trim(MainType);
Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
Parameters.ParamByName('Type').Value:='Main';
Parameters.ParamByName('MainType').Value:=Trim(MainType);
ExecSQL;
end;
end;
@ -432,84 +402,82 @@ begin
//First;
//while not eof do
//begin
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('取最大编号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('select * from KH_Zdy where Type=''' + Trim(flag) + '''');
if Trim(MainType) <> '' then
SQL.Add(' and MainType=''' + Trim(MainType) + '''');
sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
if ADOQueryTemp.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end;
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) = '' then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end
else
begin
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString) <> Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('取最大编号失败！','提示',0);
Exit;
end;
end else
begin
maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1<>1');
Open;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').AsString;
ADOQueryCmd.FieldByName('note').Value := Trim(snote);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('select * from KH_Zdy where Type='''+Trim(flag)+'''');
if Trim(MainType)<>'' then
SQL.Add(' and MainType='''+Trim(MainType)+'''');
sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
begin
if ADOQueryTemp.RecordCount>1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！','提示',0);
Exit;
end;
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！','提示',0);
Exit;
end else
begin
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！','提示',0);
Exit;
end;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1<>1');
Open;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString;
ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
ADOQueryCmd.FieldByName('Type').Value := flag;
ADOQueryCmd.FieldByName('valid').Value := 'Y';
if Trim(MainType) <> '' then
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
ADOQueryCmd.FieldByName('Type').Value:=flag;
ADOQueryCmd.FieldByName('valid').Value:='Y';
if Trim(MainType)<>'' then
ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
//ADOQueryCmd.FieldByName('sel').Value:=0;
ADOQueryCmd.Post;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno);
ADOQueryCmd.Post;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
//ClientDataSet1.Post;
// Next;
//end;
@ -522,45 +490,8 @@ begin
//TV1.OptionsSelection.CellSelect:=False;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
Application.MessageBox('保存失败！','提示',0);
end;
end;
procedure TfrmZDYHelpSel.V1NotePropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '';
end;
with ClientDataSet1 do
begin
Edit;
FieldByName('Note').Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set Note=''' + Trim(mvalue) + '''');
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmZDYHelpSel.FormDestroy(Sender: TObject);
begin
frmZDYHelpSel := nil;
end;
end.

22
Z99Dependency/ThreeFun/Form/U_ZdyAttachGYSHelp.dfm
View File

@ -1,9 +1,9 @@
object frmZdyAttachGYSHelp: TfrmZdyAttachGYSHelp
Left = 173
Top = 121
Width = 1038
Height = 618
Caption = #20379#24212#21830#36164#26009#31649#29702
ClientHeight = 579
ClientWidth = 1022
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -26,6 +26,7 @@ object frmZdyAttachGYSHelp: TfrmZdyAttachGYSHelp
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TradeManage.ThreeImgList
Flat = True
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
@ -79,6 +80,7 @@ object frmZdyAttachGYSHelp: TfrmZdyAttachGYSHelp
AutoSize = True
Caption = #23548#20986
ImageIndex = 53
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 374
@ -145,6 +147,7 @@ object frmZdyAttachGYSHelp: TfrmZdyAttachGYSHelp
Width = 81
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 2
OnChange = ZdyNameChange
Items.Strings = (
@ -156,15 +159,14 @@ object frmZdyAttachGYSHelp: TfrmZdyAttachGYSHelp
Left = 0
Top = 70
Width = 1022
Height = 509
Height = 510
Align = alClient
TabOrder = 2
ExplicitHeight = 510
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False
DataController.DataSource = DS_HZ
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@ -185,10 +187,10 @@ object frmZdyAttachGYSHelp: TfrmZdyAttachGYSHelp
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Header = DataLink_TradeManage.handBlack
Styles.Inactive = DataLink_TradeManage.SHuangSe
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Selection = DataLink_TradeManage.SHuangSe
Styles.Header = DataLink_TradeManage.handBlack
object v2Column6: TcxGridDBColumn
Caption = #20379#24212#21830#21517#31216
DataBinding.FieldName = 'ZdyName'
@ -286,7 +288,7 @@ object frmZdyAttachGYSHelp: TfrmZdyAttachGYSHelp
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels

24
Z99Dependency/ThreeFun/Form/U_ZdyAttachGYSHelp.pas
View File

@ -10,8 +10,7 @@ uses
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, dxDateRanges, dxBarBuiltInMenu;
cxButtonEdit, cxTextEdit;
type
TfrmZdyAttachGYSHelp = class(TForm)
@ -58,6 +57,7 @@ type
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ZdyNameChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Tv2DblClick(Sender: TObject);
@ -66,7 +66,7 @@ type
procedure InitGrid();
public
fkhType:string;
end;
var
@ -74,7 +74,7 @@ var
implementation
uses
U_DataLink,U_RTFun,U_ZDYHelp;
U_DataLink,U_Fun,U_ZDYHelp;
{$R *.dfm}
@ -89,11 +89,11 @@ begin
Filtered:=False;
Close;
SQL.Clear;
sql.Add(' select * from KH_Zdy_Attachment where Type=''GYS'' and isnull(KHType,'''')='''+trim(fkhType)+'''');
sql.Add(' select * from KH_Zdy_Attachment where Type=''GYS'' ');
Open;
end;
SCreateCDS(ADOQueryMain,CDS_HZ);
SInitCDSData(ADOQueryMain,CDS_HZ);
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
finally
ADOQueryMain.EnableControls;
end;
@ -149,8 +149,8 @@ begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,CDS_HZ);
SInitCDSData(ADOQueryMain,CDS_HZ);
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
end;
end;
@ -160,6 +160,12 @@ begin
end;
procedure TfrmZdyAttachGYSHelp.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
SelExportData(Tv2,ADOQueryMain,'客户资料列表');
end;
procedure TfrmZdyAttachGYSHelp.ToolButton4Click(Sender: TObject);
begin
{ try

21
Z99Dependency/ThreeFun/Form/U_ZdyAttachmentHelp.dfm
View File

@ -1,9 +1,9 @@
object frmZdyAttachmentHelp: TfrmZdyAttachmentHelp
Left = 157
Top = 76
Width = 1064
Height = 652
Caption = #23458#25143#36164#26009#31649#29702
ClientHeight = 613
ClientWidth = 1048
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -26,6 +26,7 @@ object frmZdyAttachmentHelp: TfrmZdyAttachmentHelp
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TradeManage.ThreeImgList
Flat = True
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
@ -79,6 +80,7 @@ object frmZdyAttachmentHelp: TfrmZdyAttachmentHelp
Caption = #23548#20986
ImageIndex = 53
Visible = False
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 374
@ -152,14 +154,13 @@ object frmZdyAttachmentHelp: TfrmZdyAttachmentHelp
Left = 0
Top = 70
Width = 1048
Height = 543
Height = 544
Align = alClient
TabOrder = 2
ExplicitHeight = 544
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False
OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DS_HZ
DataController.Summary.DefaultGroupSummaryItems = <>
@ -181,10 +182,10 @@ object frmZdyAttachmentHelp: TfrmZdyAttachmentHelp
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Header = DataLink_TradeManage.handBlack
Styles.Inactive = DataLink_TradeManage.SHuangSe
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Selection = DataLink_TradeManage.SHuangSe
Styles.Header = DataLink_TradeManage.handBlack
object v2Column2: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'ZdyCode'
@ -289,7 +290,7 @@ object frmZdyAttachmentHelp: TfrmZdyAttachmentHelp
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels

20
Z99Dependency/ThreeFun/Form/U_ZdyAttachmentHelp.pas
View File

@ -12,8 +12,7 @@ uses
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, dxDateRanges, dxBarBuiltInMenu;
cxButtonEdit, cxTextEdit;
type
TfrmZdyAttachmentHelp = class(TForm)
@ -61,6 +60,7 @@ type
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ZdyNameChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
@ -78,7 +78,7 @@ var
implementation
uses
U_DataLink,U_RTFun,U_ZDYHelp;
U_DataLink,U_Fun,U_ZDYHelp;
{$R *.dfm}
@ -97,8 +97,8 @@ begin
sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType)));
Open;
end;
SCreateCDS(ADOQueryMain,CDS_HZ);
SInitCDSData(ADOQueryMain,CDS_HZ);
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
finally
ADOQueryMain.EnableControls;
end;
@ -154,8 +154,8 @@ begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,CDS_HZ);
SInitCDSData(ADOQueryMain,CDS_HZ);
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
end;
end;
@ -165,6 +165,12 @@ begin
end;
procedure TfrmZdyAttachmentHelp.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
SelExportData(Tv2,ADOQueryMain,'客户资料列表');
end;
procedure TfrmZdyAttachmentHelp.ToolButton4Click(Sender: TObject);
begin
{ try

633
Z99Dependency/ThreeFun/Fun/U_CPBCKKCSel.dfm Normal file
View File

@ -0,0 +1,633 @@
object frmCPBCKKCSel: TfrmCPBCKKCSel
Left = 506
Top = 220
Width = 1181
Height = 511
Align = alClient
Caption = #25104#21697#24067#24211#23384#36873#25321
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1165
Height = 33
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_PBMDDJ.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = TBFindClick
end
object ToolButton1: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #30830#23450
ImageIndex = 31
Visible = False
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 1165
Height = 60
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label3: TLabel
Left = 199
Top = 12
Width = 24
Height = 12
Caption = #21697#21517
end
object Label4: TLabel
Left = 340
Top = 12
Width = 36
Height = 12
Caption = #21152#24037#21378
end
object Label5: TLabel
Left = 26
Top = 12
Width = 48
Height = 12
Caption = #20837#24211#21333#21495
end
object Label8: TLabel
Left = 199
Top = 36
Width = 24
Height = 12
Caption = #35268#26684
end
object Label12: TLabel
Left = 27
Top = 36
Width = 48
Height = 12
Caption = #20837#24211#31867#22411
end
object Label6: TLabel
Left = 340
Top = 36
Width = 36
Height = 12
Caption = #25104' '#20998
end
object Label7: TLabel
Left = 470
Top = 12
Width = 48
Height = 12
Caption = #35746' '#21333' '#21495
end
object Label1: TLabel
Left = 470
Top = 36
Width = 48
Height = 12
Caption = #23384#25918#24037#21378
end
object Label2: TLabel
Left = 646
Top = 36
Width = 48
Height = 12
Caption = #24211' '#20301
end
object Label9: TLabel
Left = 646
Top = 12
Width = 48
Height = 12
Caption = #26579#21378#32568#21495
end
object Label10: TLabel
Left = 774
Top = 36
Width = 24
Height = 12
Caption = #39068#33394
end
object SPName: TEdit
Tag = 2
Left = 226
Top = 9
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
OnChange = TBFindClick
end
object FactoryName: TEdit
Tag = 2
Left = 378
Top = 9
Width = 78
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
OnChange = FactoryNameChange
end
object SPID: TEdit
Tag = 2
Left = 76
Top = 9
Width = 109
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 2
OnChange = TBFindClick
end
object SPSpec: TEdit
Tag = 2
Left = 226
Top = 32
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 3
OnChange = TBFindClick
end
object CRType: TComboBox
Tag = 2
Left = 76
Top = 32
Width = 109
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
TabOrder = 4
OnChange = TBFindClick
Items.Strings = (
#21152#24037#23436#25104
#22238#20462#23436#25104
#26816#39564#36864#22238
#26399#21021#20837#24211
'')
end
object SPCF: TEdit
Tag = 2
Left = 378
Top = 32
Width = 78
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 5
OnChange = FactoryNameChange
end
object OrderNo: TEdit
Tag = 2
Left = 519
Top = 9
Width = 108
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 6
OnChange = FactoryNameChange
end
object ToFactoryName: TEdit
Tag = 2
Left = 519
Top = 33
Width = 108
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 7
OnChange = FactoryNameChange
end
object KuWei: TEdit
Tag = 2
Left = 694
Top = 32
Width = 65
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 8
OnChange = FactoryNameChange
end
object RCGangNo: TEdit
Tag = 2
Left = 694
Top = 8
Width = 65
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 9
OnChange = FactoryNameChange
end
object SPColor: TEdit
Tag = 2
Left = 799
Top = 32
Width = 65
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 10
OnChange = FactoryNameChange
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 93
Width = 1165
Height = 380
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column9
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_PBMDDJ.SHuangSe
Styles.IncSearch = DataLink_PBMDDJ.SHuangSe
Styles.Selection = DataLink_PBMDDJ.SHuangSe
Styles.Header = DataLink_PBMDDJ.Default
object v1Column20: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 44
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'SPID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1Column2: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'CRTime'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object v1Column4: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'CRType'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#27491#24120#20837#24211
#29983#20135#36864#22238
#26399#21021#20837#24211)
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object v1Column13: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'OrderNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #21152#24037#21378
DataBinding.FieldName = 'FactoryName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 103
end
object v1Column15: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'SPColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 116
end
object v1Column22: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Width = 83
end
object v1Column21: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'spcode'
HeaderAlignmentHorz = taCenter
Width = 82
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'SPName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 97
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'SPSpec'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v1Column7: TcxGridDBColumn
Tag = 2
Caption = #25104#20998
DataBinding.FieldName = 'SPCF'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column1: TcxGridDBColumn
Tag = 2
Caption = #38376#24133
DataBinding.FieldName = 'SPMF'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column10: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'SPKZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object v1Column16: TcxGridDBColumn
Caption = #26469#33258#24037#21378
DataBinding.FieldName = 'FromFactoryName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column11: TcxGridDBColumn
Tag = 2
Caption = #23384#25918#24037#21378
DataBinding.FieldName = 'ToFactoryName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object v1Column18: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'KuWei'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object v1Column19: TcxGridDBColumn
Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'RCGangNo'
Options.Editing = False
Width = 67
end
object v1Column9: TcxGridDBColumn
Tag = 2
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'MXKCPiQty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'MXKCQty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
Options.Editing = False
Width = 79
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_PBMDDJ.ADOLink
Parameters = <>
Left = 792
end
object ADOQueryMain: TADOQuery
Connection = DataLink_PBMDDJ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 824
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_PBMDDJ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 760
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 920
Top = 152
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 888
Top = 152
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 952
Top = 152
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMain
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 360
Top = 232
ReportData = {}
end
object RMDBMain: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 424
Top = 232
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 100
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 392
Top = 232
end
object RMDBHZ: TRMDBDataSet
Visible = True
DataSet = CDS_HZ
Left = 520
Top = 232
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 488
Top = 232
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 456
Top = 232
end
object PopupMenu1: TPopupMenu
Left = 328
Top = 232
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

227
Z99Dependency/ThreeFun/Fun/U_CPBCKKCSel.pas Normal file
View File

@ -0,0 +1,227 @@
unit U_CPBCKKCSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit;
type
TfrmCPBCKKCSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
CDS_Main: TClientDataSet;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
RMDBHZ: TRMDBDataSet;
CDS_HZ: TClientDataSet;
CDS_PRT: TClientDataSet;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton1: TToolButton;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label8: TLabel;
Label12: TLabel;
Label6: TLabel;
Label7: TLabel;
SPName: TEdit;
FactoryName: TEdit;
SPID: TEdit;
SPSpec: TEdit;
CRType: TComboBox;
SPCF: TEdit;
OrderNo: TEdit;
Label1: TLabel;
ToFactoryName: TEdit;
v1Column16: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
Label2: TLabel;
KuWei: TEdit;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
Label9: TLabel;
RCGangNo: TEdit;
Label10: TLabel;
SPColor: TEdit;
v1Column20: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v1Column22: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure SXBatchNOChange(Sender: TObject);
procedure FactoryNameChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private
procedure InitGrid();
{ Private declarations }
public
{ Public declarations }
end;
var
frmCPBCKKCSel: TfrmCPBCKKCSel;
implementation
uses
U_DataLink, U_RTFun, U_SXCKInPut;
{$R *.dfm}
procedure TfrmCPBCKKCSel.FormDestroy(Sender: TObject);
begin
frmDJBCKKCSelList := nil;
end;
procedure TfrmCPBCKKCSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmCPBCKKCSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )');
sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')=''成品布'' ');
SQL.Add(' and A.CRFlag=''入库'' and MXKCQty>0');
Open;
//ShowMessage(SQL.Text);
end;
SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmCPBCKKCSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmCPBCKKCSel.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmCPBCKKCSel.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('待检布库存选择列表', Tv1, '待检布仓库');
Close;
end;
procedure TfrmCPBCKKCSel.FormShow(Sender: TObject);
begin
ReadCxGrid('待检布库存选择列表', Tv1, '待检布仓库');
//InitGrid();
end;
procedure TfrmCPBCKKCSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmCPBCKKCSel.MPRTCodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmCPBCKKCSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Main, True);
end;
procedure TfrmCPBCKKCSel.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Main, False);
end;
procedure TfrmCPBCKKCSel.SXBatchNOChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmCPBCKKCSel.FactoryNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmCPBCKKCSel.ToolButton1Click(Sender: TObject);
begin
if CDS_Main.IsEmpty then
Exit;
if CDS_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
ModalResult := 1;
end;
procedure TfrmCPBCKKCSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
ModalResult := 1;
end;
end.

4963
Z99Dependency/ThreeFun/Fun/U_Fun.pas
View File

File diff suppressed because it is too large Load Diff

3299
Z99Dependency/ThreeFun/Fun/U_Fun10.pas
View File

File diff suppressed because it is too large Load Diff

2
Z99Dependency/ThreeFun/Fun/U_PublicFunction.pas
View File

@ -7,7 +7,7 @@ uses
cxGridLevel, cxClasses, cxControls, cxGridCustomView, ADODB,StrUtils,
Midas,cxGridCustomTableView, cxGridTableView, cxGridDBTableView,cxTimeEdit,
cxGrid,cxDBLookupComboBox,cxCalendar, cxCurrencyEdit,cxGridExportLink,
ExtCtrls, Buttons,DBClient,RTComboBox,cxDropDownEdit,CXmemo;
ExtCtrls, Buttons,DBClient,FTComboBox,cxDropDownEdit,CXmemo;
function GetMaxBh(ADOQueryTmp:TADOQuery;
var mMaxBh:string;

84
Z99Dependency/ThreeFun/Fun/U_RPFun.pas
View File

@ -1,84 +0,0 @@
unit U_RPFun;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DBGrids, DB, cxDBData,
cxGridLevel, cxClasses, cxControls, cxGridCustomView, ADODB, StrUtils, Midas,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxTimeEdit,
cxTreeView, cxGrid, cxDBLookupComboBox, cxCalendar, cxCurrencyEdit,
cxGridExportLink, ExtCtrls, Buttons, DBClient, RTComboBox, cxDropDownEdit,
cxGridBandedTableView, cxGridDBBandedTableView, cxRichEdit, cxButtonEdit,
IniFiles, WinSock, IdHTTP, dxcore, cxTextEdit, FireDAC.Comp.Client, cxCheckBox,
Vcl.Clipbrd, cxMemo, dxLayoutControl;
function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
function FunPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
implementation
function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
type
TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
var
Tf: TMyFunc;
Tp: TFarProc;
Th: Thandle;
JsonResult: PChar;
begin
Th := LoadLibrary('ReportPrint.dll');
if Th > 0 then
begin
Tp := GetProcAddress(Th, 'GetDllForm');
if Tp <> nil then
begin
Tf := TMyFunc(Tp);
JsonResult := Tf(Application, 11, 'FR3报表', DataBaseStr, JsonArgs);
end
else
begin
JsonResult := '{"succsee":false,"message": "读取调用号异常"}';
end;
end
else
begin
JsonResult := '{"succsee":false,"message": "找不到ReportPrint.dll"}';
end;
Result := JsonResult;
end;
function FunPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
type
TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
var
Tf: TMyFunc;
Tp: TFarProc;
Th: Thandle;
JsonResult: PChar;
begin
Th := LoadLibrary('ReportPrint.dll');
if Th > 0 then
begin
Tp := GetProcAddress(Th, 'GetDllForm');
if Tp <> nil then
begin
Tf := TMyFunc(Tp);
JsonResult := Tf(Application, 12, 'FR3报表', DataBaseStr, JsonArgs);
end
else
begin
JsonResult := '{"succsee":false,"message": "读取调用号异常"}';
end;
end
else
begin
JsonResult := '{"succsee":false,"message": "找不到ReportPrint.dll"}';
end;
Result := JsonResult;
end;
end.

5116
Z99Dependency/ThreeFun/Fun/U_RTFun.pas
View File

File diff suppressed because it is too large Load Diff

2038
Z99Dependency/ThreeFun/Fun/U_RTFun1024.pas
View File

File diff suppressed because it is too large Load Diff

2131
Z99Dependency/ThreeFun/Fun/U_RTFun1112.pas
View File

File diff suppressed because it is too large Load Diff

12
Z99Dependency/ThreeFun/Fun/U_SelExportField.dfm
View File

@ -1,10 +1,10 @@
object frmSelExportField: TfrmSelExportField
Left = 206
Top = 131
Left = 473
Top = 162
BorderStyle = bsDialog
Caption = #23383#27573#23548#20986#36873#25321
ClientHeight = 491
ClientWidth = 423
ClientHeight = 502
ClientWidth = 422
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
@ -22,7 +22,7 @@ object frmSelExportField: TfrmSelExportField
Left = 94
Top = 456
Width = 75
Height = 25
Height = 21
Caption = #30830#23450
TabOrder = 0
OnClick = Button1Click
@ -31,7 +31,7 @@ object frmSelExportField: TfrmSelExportField
Left = 243
Top = 456
Width = 75
Height = 25
Height = 21
Caption = #20851#38381
TabOrder = 1
OnClick = Button2Click

3
Z99Dependency/ThreeFun/Fun/U_SelExportField.pas
View File

@ -9,8 +9,7 @@ uses
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
cxGridLevel, cxClasses, cxControls, cxGridCustomView,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges;
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
type
TfrmSelExportField = class(TForm)

150
Z99Dependency/ThreeFun/Fun/uFomat_JSON.pas
View File

@ -1,150 +0,0 @@
{格式化 JSON 单元
}
unit uFomat_JSON;
interface
uses
system.JSON, System.SysUtils, System.Variants, System.Classes;
const
Level_indent = 2;
//格式化 JSON 字符串
// JSONStr : 表示需要格式化的 JSON字符串
// lv : 表示缩进层级
function JSON_Format(JSONStr: string; lv: Word = 0): string;
//格式化数组, 缩进
function JSON_Fromat_Array(ja: TJSONArray; lv: word = 0): string;
//跨过的indent
function LI(lv: Word): string;
implementation
//格式化 JSON 字符串
// JSONStr : 表示需要格式化的 JSON字符串
// Left_Space : 表示左边统一留多少个空格
// Level_index ：表示每级缩进多个个空格
function JSON_Format(JSONStr: string; lv: Word = 0): string;
var
S: string;
jo: TJSONObject;
jo1: TJSONObject;
jp: TJSONPair;
js: TJSONString;
jn: TJSONNumber;
jb: TJSONBool;
ja: TJSONArray;
jpe: TJSONObject.TEnumerator;
begin
//1. 解析 JSONStr
jo := TJSONObject.ParseJSONValue(JSONStr) as TJSONObject;
if jo = nil then
Exit(JSONStr);
Result := '{' + #13#10;
try
jpe := jo.GetEnumerator;
if jpe = nil then
Exit(JSONStr);
while jpe.MoveNext do
begin
jp := jpe.Current;
if jp.JsonValue.TryGetValue(jo1) then
begin
Result := Result + LI(lv + 1) + '"' + jp.JsonString.Value + '":'#13#10;
Result := Result + LI(lv + 1) + JSON_Format(jo1.ToJSON, lv + 2);
Continue;
end
else if jp.JsonValue.TryGetValue(jn) then //数字
Result := Result + LI(lv + 1) + '"' + jp.JsonString.Value + '": ' + jn.Value + ','#13#10
else if jp.JsonValue.TryGetValue(jb) then //Boolean
Result := Result + LI(lv + 1) + '"' + jp.JsonString.Value + '": ' + jb.Value + ','#13#10
else if jp.JsonValue.TryGetValue(ja) then //字符串
begin
Result := Result + LI(lv + 1) + '"' + jp.JsonString.Value + '": '#13#10;
Result := Result + LI(lv + 1) + JSON_Fromat_Array(ja, lv + 1);
end
else if jp.JsonValue.TryGetValue(js) then //字符串
Result := Result + LI(lv + 1) + '"' + jp.JsonString.Value + '": "' + js.Value + '",'#13#10
end;
//去掉最后一行的 ,
S := Result.Substring(Length(Result) - 3, 3);
if S = ','#13#10 then
Result := Result.Substring(0, Length(Result) - 3) + #13#10;
//最后结果的 }
if lv > 0 then
begin
lv := lv - 1;
Result := Result + LI(lv) + '},'#13#10;
end
else
Result := Result + LI(0) + '}'#13#10;
finally
if jo <> nil then
jo.Free;
if jpe <> nil then
jpe.Free;
end;
end;
//格式化数组, 缩进
function JSON_Fromat_Array(ja: TJSONArray; lv: word = 0): string;
var
jae: TJSONArray.TEnumerator;
jv: TJSONValue;
js: TJSONString;
jn: TJSONNumber;
jb: TJSONBool;
jo: TJSONObject;
ja1: TJSONArray;
S: string;
begin
//
Result := '['#13#10;
jae := ja.GetEnumerator;
if jae = nil then
Exit('');
while jae.MoveNext do
begin
jv := jae.Current;
//进行数据处理
if jv.TryGetValue(jn) then //Number
Result := Result + LI(lv + 1) + jn.Value + ','#13#10
else if jv.TryGetValue(jb) then //Boolean
Result := Result + LI(lv + 1) + jb.Value + ','#13#10
else if jv.TryGetValue(jo) then //JSONObject
begin
Result := Result + LI(lv + 1) + JSON_Format(jo.ToString, lv + 2);
end
else if jv.TryGetValue(ja1) then //JSONArray
Result := Result + LI(lv + 1) + JSON_Fromat_Array(ja1, lv + 1)
else if jv.TryGetValue(js) then //string
Result := Result + LI(lv + 1) + '"' + js.Value + '",'#13#10;
end;
//去掉最后一行的 ,
S := Result.Substring(Length(Result) - 3, 3);
if S = ','#13#10 then
Result := Result.Substring(0, Length(Result) - 3) + #13#10;
Result := Result + LI(lv) + '],'#13#10;
if jae <> nil then
jae.Free;
end;
//跨过的indent
function LI(lv: Word): string;
begin
Result := StringOfChar(' ', lv * Level_indent);
end;
end.

248
Z99Dependency/ThreeFun/Fun/uSZHN_JSON.pas
View File

@ -1,248 +0,0 @@
{**************************************
时间：2021-06-18
功能：1 实现delphi原生的JSON操作为 S[] 操作方式
作者：sensor QQ:910731685
}
unit uSZHN_JSON;
interface
uses
//System.Classes,
//System.Types,
//System.DateUtil,
//System.Generics.Collections,
System.SysUtils,
System.JSON;
type
TJSONObjectHelper = class helper for TJSONObject
private
function Get_ValueS(PairName : string) : string;
procedure Set_ValueS(PairName,PairValue : string);
function Get_ValueI(PairName : string) : Integer;
procedure Set_ValueI(PairName : string; PairValue : Integer);
function Get_ValueI64(PairName : string) : Int64;
procedure Set_ValueI64(PairName : string; PairValue : Int64);
function Get_ValueD(PairName : string) : TDateTime;
procedure Set_ValueD(PairName : string; PairValue : TDateTime);
function Get_ValueB(PairName : string) : Boolean;
procedure Set_ValueB(PairName : string; PairValue : Boolean);
function Get_ValueA(PairName : string) : TJSONArray;
procedure Set_ValueA(PairName : string; PairValue : TJSONArray);
function Get_ValueO(PairName : string) : TJSONObject;
procedure Set_ValueO(PairName : string; PairValue : TJSONObject);
public
//判断某个字段是否存在
function PairExists(PairName : string) : Boolean;
procedure Remove(PairName : string);
//定义字段读取函数
property S[PairName : string] : string read Get_ValueS write Set_ValueS;
property I[PairName : string] : integer read Get_ValueI write Set_ValueI;
property I64[PairName : string] : Int64 read Get_ValueI64 write Set_ValueI64;
property D[PairName : string] : TDateTime read Get_ValueD write Set_ValueD;
property B[PairName : string] : Boolean read Get_ValueB write Set_ValueB;
property A[PairName : string] : TJSONArray read Get_ValueA write Set_ValueA;
property O[PairName : string] : TJSONObject read Get_ValueO write Set_ValueO;
end;
implementation
{ TJSONObjectHelper }
function TJSONObjectHelper.Get_ValueS(PairName: string): string;
var
js : TJSONString;
begin
if PairName = '' then Exit;
if Self.TryGetValue(PairName,js) then
Result := js.Value
else
Result := '';
end;
function TJSONObjectHelper.PairExists(PairName: string): Boolean;
begin
Result := Self.Values[PairName] <> nil;
end;
procedure TJSONObjectHelper.Remove(PairName: string);
begin
Self.RemovePair(PairName).Free;
end;
procedure TJSONObjectHelper.Set_ValueS(PairName, PairValue: string);
var
js : TJSONString;
begin
//1. 首先查找有没有该字段, 如果有，则直接删除
if Self.TryGetValue(PairName,js) then
begin
Self.RemovePair(PairName).Free; //如果没有free，就会产生内存泄露
end;
//2. 然后在增加
Self.AddPair(PairName, PairValue);
end;
function TJSONObjectHelper.Get_ValueI(PairName: string): Integer;
var
ji : TJSONNumber;
begin
if PairName = '' then Exit(0);
if Self.TryGetValue(PairName,ji) then
Result := ji.AsInt
else
Result := 0;
end;
procedure TJSONObjectHelper.Set_ValueI(PairName: string; PairValue: Integer);
var
jn : TJSONNumber;
begin
//1. 首先查找有没有该字段, 如果有，则直接删除
if Self.TryGetValue(PairName,jn) then
Self.RemovePair(PairName).Free;
//2. 然后在增加
Self.AddPair(PairName, TJSONNumber.Create(PairValue));
end;
function TJSONObjectHelper.Get_ValueD(PairName: string): TDateTime;
var
ji : TJSONNumber;
begin
if PairName = '' then Exit(0);
if Self.TryGetValue(PairName,ji) then
Result := ji.AsDouble
else
Result := 0;
end;
procedure TJSONObjectHelper.Set_ValueD(PairName: string; PairValue: TDateTime);
var
jn : TJSONNumber;
begin
//1. 首先查找有没有该字段, 如果有，则直接删除
if Self.TryGetValue(PairName,jn) then
Self.RemovePair(PairName).Free;
Self.AddPair(PairName, TJSONNumber.Create(PairValue));
end;
function TJSONObjectHelper.Get_ValueB(PairName: string): Boolean;
var
jb : TJSONBool;
begin
if PairName = '' then Exit(False);
if Self.TryGetValue(PairName,jb) then
Result := jb.AsBoolean
else
Result := False;
end;
procedure TJSONObjectHelper.Set_ValueB(PairName: string; PairValue: Boolean);
var
jb : TJSONBool;
begin
//1. 首先查找有没有该字段, 如果有，则直接删除
if Self.TryGetValue(PairName,jb) then
Self.RemovePair(PairName).Free;
Self.AddPair(PairName, TJSONBool.Create(PairValue));
end;
function TJSONObjectHelper.Get_ValueI64(PairName: string): Int64;
var
ji : TJSONNumber;
begin
if PairName = '' then Exit(0);
if Self.TryGetValue(PairName,ji) then
Result := ji.AsInt64
else
Result := 0;
end;
procedure TJSONObjectHelper.Set_ValueI64(PairName: string; PairValue: Int64);
var
jn : TJSONNumber;
begin
//1. 首先查找有没有该字段, 如果有，则直接删除
if Self.TryGetValue(PairName,jn) then
Self.RemovePair(PairName).Free;
Self.AddPair(PairName, TJSONNumber.Create(PairValue));
end;
function TJSONObjectHelper.Get_ValueA(PairName: string): TJSONArray;
var
ja : TJSONArray;
begin
if PairName = '' then Exit(nil);
Self.TryGetValue(PairName,Result);
end;
procedure TJSONObjectHelper.Set_ValueA(PairName: string; PairValue: TJSONArray);
var
ja : TJSONArray;
begin
//1. 首先查找有没有该字段, 如果有，则直接删除
if Self.TryGetValue(PairName,ja) then
Self.RemovePair(PairName).Free;
Self.AddPair(PairName, PairValue);
end;
function TJSONObjectHelper.Get_ValueO(PairName: string): TJSONObject;
var
jo : TJSONObject;
begin
if PairName = '' then Exit(nil);
if Self.TryGetValue(PairName,jo) then
Result := jo
else
Result := nil;
end;
procedure TJSONObjectHelper.Set_ValueO(PairName: string; PairValue: TJSONObject);
var
jo : TJSONObject;
begin
//1. 首先查找有没有该字段, 如果有，则直接删除
if Self.TryGetValue(PairName,jo) then
Self.RemovePair(PairName).Free;
Self.AddPair(PairName, PairValue as TJSONObject);
end;
end.

23
Z99Dependency/design/Project1.dpr
View File

@ -1,23 +0,0 @@
program Project1;
uses
Vcl.Forms,
U_BaseInput in 'U_BaseInput.pas' {frmBaseInput},
Unit1 in 'E:\test\xx\Unit1.pas' {frmBaseInput1},
U_WindowFormdesign in 'U_WindowFormdesign.pas',
U_cxGridCustomCss in 'U_cxGridCustomCss.pas',
U_globalVar in 'U_globalVar.pas',
U_DataLink in 'E:\test\xx\U_DataLink.pas' {DataLink_Company: TDataModule},
U_Fun10 in '..\..\public2\ThreeFun\Fun\U_Fun10.pas',
U_Fun in '..\..\public2\ThreeFun\Fun\U_Fun.pas';
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TfrmBaseInput, frmBaseInput);
Application.CreateForm(TfrmBaseInput1, frmBaseInput1);
Application.CreateForm(TDataLink_Company, DataLink_Company);
Application.Run;
end.

928
Z99Dependency/design/Project1.dproj
View File

@ -1,928 +0,0 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{4A13C1D8-92BC-4103-8B79-6191678CC58B}</ProjectGuid>
<ProjectVersion>19.2</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
<MainSource>Project1.dpr</MainSource>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
<DCC_E>false</DCC_E>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
<SanitizedProjectName>Project1</SanitizedProjectName>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>DBXSqliteDriver;RESTComponents;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;bindcompvclsmp;emsclientfiredac;DataSnapFireDAC;tethering;svnui;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;SysCoreEditor;RaizeComponentsVcl;FmxTeeUI;emsedge;RaizeComponentsVclDb;FireDACIBDriver;fmx;fmxdae;vcledge;vclib;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;DataSnapCommon;emsclient;FireDACCommon;RESTBackendComponents;DataSnapConnectors;FlatVcls;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;bindcompdbx;IndyIPCommon;vcl;DBXSybaseASEDriver;IndyIPServer;IndySystem;FireDACDb2Driver;bindcompvclwinx;dsnapcon;FireDACMSAccDriver;FireDACInfxDriver;fmxFireDAC;vclimg;SysCorePrint;TeeDB;FireDAC;SysCoreEx;SysCore;emshosting;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;soaprtl;DbxCommonDriver;ibxpress;Tee;SysCoreOther;DataSnapServer;xmlrtl;DataSnapNativeClient;ibxbindings;fmxobj;vclwinx;FireDACDSDriver;rtl;emsserverresource;DbxClientDriver;soapmidas;DBXSybaseASADriver;RTComboBoxPac;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;dclusr;TeeUI;FlatStyle;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;dsnapxml;dbrtl;FireDACMongoDBDriver;IndyProtocols;inetdbxpress;btneditpac;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_UsePackage>DBXSqliteDriver;RESTComponents;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;bindcompvclsmp;emsclientfiredac;DataSnapFireDAC;tethering;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;FireDACIBDriver;fmx;fmxdae;vcledge;vclib;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;DataSnapCommon;emsclient;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;bindcompdbx;IndyIPCommon;vcl;DBXSybaseASEDriver;IndyIPServer;IndySystem;FireDACDb2Driver;bindcompvclwinx;dsnapcon;FireDACMSAccDriver;FireDACInfxDriver;fmxFireDAC;vclimg;TeeDB;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;soaprtl;DbxCommonDriver;ibxpress;Tee;DataSnapServer;xmlrtl;DataSnapNativeClient;ibxbindings;fmxobj;vclwinx;FireDACDSDriver;rtl;emsserverresource;DbxClientDriver;soapmidas;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;TeeUI;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;dsnapxml;dbrtl;FireDACMongoDBDriver;IndyProtocols;inetdbxpress;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<DCC_RemoteDebug>false</DCC_RemoteDebug>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>0</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="U_BaseInput.pas">
<Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="E:\test\xx\Unit1.pas">
<Form>frmBaseInput1</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_WindowFormdesign.pas"/>
<DCCReference Include="U_cxGridCustomCss.pas"/>
<DCCReference Include="U_globalVar.pas"/>
<DCCReference Include="E:\test\xx\U_DataLink.pas">
<Form>DataLink_Company</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\..\public2\ThreeFun\Fun\U_Fun10.pas"/>
<DCCReference Include="..\..\public2\ThreeFun\Fun\U_Fun.pas"/>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Application</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">Project1.dpr</Source>
</Source>
</Delphi.Personality>
<Deployment Version="3">
<DeployFile LocalName="Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>Project1.exe</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClassesDexFile">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidFileProvider">
<Platform Name="Android">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiv7aFile">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV21">
<Platform Name="Android">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon192">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon24">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Strings">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="Android64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iOS_AppStore1024">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon152">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon167">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_SpotLight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon180">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification60">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting87">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements">
<Platform Name="iOSDevice32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSInfoPList">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSLaunchScreen">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
<Operation>64</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir>
<Operation>64</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXDebug">
<Platform Name="OSX64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXEntitlements">
<Platform Name="OSX32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXInfoPList">
<Platform Name="OSX32">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

BIN
Z99Dependency/design/Project1.res
View File

Binary file not shown.

5724
Z99Dependency/design/U_BaseDataLink.dfm
View File

File diff suppressed because it is too large Load Diff

53
Z99Dependency/design/U_BaseDataLink.pas
View File

@ -1,53 +0,0 @@
unit U_BaseDataLink;
interface
uses
System.SysUtils, windows, forms, System.Classes, dxCore, cxClasses,
cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit, System.ImageList,
Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles, cxLocalization,
dxSkinsCore, dxSkinsDefaultPainters;
type
TBaseDataLink = class(TDataModule)
dxSkinController1: TdxSkinController;
cxImageList_bar: TcxImageList;
cxLocalizer1: TcxLocalizer;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
BaseDataLink: TBaseDataLink;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
procedure TBaseDataLink.DataModuleCreate(Sender: TObject);
var
str: string;
pathStr: string;
begin
RootLookAndFeel.NativeStyle := False;
// pathStr := ExtractFilePath(Application.ExeName) + '\AllSkins.skinres';
// if FileExists(pathStr) then
// begin
// dxSkinsUserSkinLoadFromFile(pathStr, 'WXI');
// RootLookAndFeel.SkinName := sdxSkinsUserSkinName;
// end;
if (fileexists(ExtractFilePath(Application.ExeName) + 'devchs.ini') = true) then
begin
cxLocalizer1.FileName := ExtractFilePath(Application.ExeName) + 'devchs.ini';
cxLocalizer1.Active := true;
cxLocalizer1.LanguageIndex := 1;
end;
end;
end.

3212
Z99Dependency/design/U_BaseHelp.dfm
View File

File diff suppressed because it is too large Load Diff

47
Z99Dependency/design/U_BaseHelp.pas
View File

@ -1,47 +0,0 @@
unit U_BaseHelp;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList, Data.DB,
Data.Win.ADODB,U_WindowFormdesign;
type
TfrmBaseHelp = class(TForm)
ADOQueryBaseCmd: TADOQuery;
ADOQueryBaseTemp: TADOQuery;
ImageList_new32: TImageList;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
private
fWindowDesign:TWindowFormdesign;
public
{ Public declarations }
end;
var
frmBaseHelp: TfrmBaseHelp;
implementation
uses
U_RTFun ,U_globalVar;
{$R *.dfm}
procedure TfrmBaseHelp.FormCreate(Sender: TObject);
begin
fWindowDesign:=TWindowFormDeSign.Create();
end;
procedure TfrmBaseHelp.FormDestroy(Sender: TObject);
begin
fWindowDesign.free;
end;
procedure TfrmBaseHelp.FormShow(Sender: TObject);
begin
fWindowDesign.FormStyleInit(self,0,ADOQueryBaseTemp,ADOQueryBaseCmd);
end;
end.

3212
Z99Dependency/design/U_BaseInput.dfm
View File

File diff suppressed because it is too large Load Diff

48
Z99Dependency/design/U_BaseInput.pas
View File

@ -1,48 +0,0 @@
unit U_BaseInput;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs,U_WindowFormdesign, Data.DB,
Data.Win.ADODB, System.ImageList, Vcl.ImgList, Vcl.ToolWin, Vcl.ComCtrls;
type
TfrmBaseInput = class(TForm)
ADOQueryBaseCmd: TADOQuery;
ADOQueryBaseTemp: TADOQuery;
ImageList_new32: TImageList;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
private
fWindowDesign:TWindowFormdesign;
public
{ Public declarations }
end;
var
frmBaseInput: TfrmBaseInput;
implementation
uses
U_RTFun ,U_globalVar;
{$R *.dfm}
procedure TfrmBaseInput.FormCreate(Sender: TObject);
begin
fWindowDesign:=TWindowFormDeSign.Create();
end;
procedure TfrmBaseInput.FormDestroy(Sender: TObject);
begin
fWindowDesign.free;
end;
procedure TfrmBaseInput.FormShow(Sender: TObject);
begin
fWindowDesign.FormStyleInit(self,0,ADOQueryBaseTemp,ADOQueryBaseCmd);
end;
end.

31
Z99Dependency/design/U_BaseList.dfm
View File

@ -1,31 +0,0 @@
object frmBaseList: TfrmBaseList
Left = 0
Top = 0
Caption = 'frmBaseList'
ClientHeight = 286
ClientWidth = 565
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ADOQueryBaseCmd: TADOQuery
Parameters = <>
Left = 273
Top = 120
end
object ADOQueryBaseTemp: TADOQuery
LockType = ltReadOnly
Parameters = <>
Left = 233
Top = 65
end
end

81
Z99Dependency/design/U_BaseList.pas
View File

@ -1,81 +0,0 @@
unit U_BaseList;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,
Data.Win.ADODB, U_WindowFormdesign;
type
TfrmBaseList = class(TForm)
ADOQueryBaseCmd: TADOQuery;
ADOQueryBaseTemp: TADOQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
fWindowDesign: TWindowFormdesign;
protected
fParameters1: string;
fParameters2: string;
fParameters3: string;
fParameters4: string;
fParameters5: string;
fParameters10: string;
public
fFormId: integer;
constructor Create(AOwner: TComponent; ACaption: string; Parameters1: string; Parameters2: string; Parameters3: string; Parameters4: string; Parameters5: string; Parameters10: string);
end;
var
frmBaseList: TfrmBaseList;
implementation
uses
U_RTFun, U_globalVar, U_dataLink;
{$R *.dfm}
constructor TfrmBaseList.Create(AOwner: TComponent; ACaption: string; Parameters1: string; Parameters2: string; Parameters3: string; Parameters4: string; Parameters5: string; Parameters10: string);
begin
inherited Create(AOwner);
if ACaption <> '' then
Caption := ACaption;
fParameters1 := Parameters1;
fParameters2 := Parameters2;
fParameters3 := Parameters3;
fParameters4 := Parameters4;
fParameters5 := Parameters5;
fParameters10 := Parameters10;
end;
procedure TfrmBaseList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if WriteCloseWin(ADOQueryBaseCmd, self.Caption, fFormId, gDllFileName) then
begin
Sendmessage(application.MainForm.Handle, WM_CloseForm, 4, 0);
end;
end;
procedure TfrmBaseList.FormCreate(Sender: TObject);
begin
fWindowDesign := TWindowFormdesign.Create();
end;
procedure TfrmBaseList.FormDestroy(Sender: TObject);
begin
fWindowDesign.free;
end;
procedure TfrmBaseList.FormShow(Sender: TObject);
begin
fWindowDesign.FormStyleInit(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10);
end;
end.

1453
Z99Dependency/design/U_WindowFormdesign.pas
View File

File diff suppressed because it is too large Load Diff

135
Z99Dependency/design/U_cxGridCustomCss.pas
View File

@ -1,135 +0,0 @@
unit U_cxGridCustomCss;
//{$I ..\cxVer.inc}
interface
uses
{$IFDEF DELPHI6}Types,{$ENDIF} Windows, Graphics, DB;
type
TCustomDrawingStyle = (cdsBkImage, cdsGradient, cdsDependOnData, cdsDefaultDrawing);
TCustomDrawArea = (cdaCell, cdaColumnHeader, cdaFooterCell, cdaGroupCell, cdaIndicatorCell, cdaPartBackGround);
TViewType = (vtMaster, vtDetail);
TColorScheme = (csGrey, csGold, csBlue, csGreen);
TBkImage = (bkiTile, bkiSky, bkiEgypt, bkiMyFace, bkiUserDefined);
TBkImages = array [0..1, 0..5] of TBkImage;
TColorSchemes = array [0..1, 0..5] of TColorScheme;
TColorSchemeArr = array [0..3, 0..2] of TColor;
TCustomDrawingStyleArr = array [0..1, 0..5] of TCustomDrawingStyle;
TUserDefinedBitMaps = array [0..1, 0..5] of TBitmap;
TFonts = array [0..1, 0..5] of TFont;
TCustomDrawItem = class
ViewType: TViewType;
CustomDrawArea: TCustomDrawArea;
end;
const
clBlueDark = TColor($00C56A31);
clBlueLight = TColor($00F7EAD9);
clBlueBright = TColor($00FF953D);
clBlueSky = TColor($00EBC4A4);
clGold = TColor($0047D5FE);
clGoldDark = TColor($0001BDF3);
clGreyLight = TColor($00E2EFF1);
clBlueZdy = TColor($f7f7f7); //00F8E4D8
clBlueZdy1 = TColor($00F0E7E0); //00F8E4D8
clBlueZdy2 = TColor($00EABE84);
clBlueZdy3 = TColor($00F4DFC4);
clBlueZdy4 = TColor($00F9EDDF);
clGreyDark = TColor($00B9D9DD);
clYellowLight = TColor($00E1FFFF);
clGreenBright = TColor($0082E887);
clGreenLight = TColor($00C9F5CB);
clGreenObscured = TColor($00ACF0AF);
clGreenDark = TColor($0044DD4B);
clSilverDark = TColor($00A6A6A6); //clGreyLight clGold
ColorScheme : TColorSchemeArr = ((clSilver, clWhite, clGray),(clBlueZdy, clBlueZdy3 , clGoldDark),(clBlueDark, clBlueLight, clBlueDark),(clGreenDark, clGreenLight, clGreen));
procedure DrawGradient(Canvas: TCanvas; const ARect: TRect;
FromColor, ToColor: TColor; AStepCount: Integer; IsVertical: Boolean = False);
procedure LoadImageFromRes(ABitmap: TBitMap; AResName: String);
procedure SetStringFieldValue(AField: TStringField; AValue: string);
implementation
uses
SysUtils, Classes, cxEditPaintUtils;
procedure DrawGradient(Canvas: TCanvas; const ARect: TRect;
FromColor, ToColor: TColor; AStepCount: Integer; IsVertical: Boolean = False);
var
SR: TRect;
H, I: Integer;
R, G, B: Byte;
FromR, ToR, FromG, ToG, FromB, ToB: Byte;
begin
FromR := GetRValue(FromColor);
FromG := GetGValue(FromColor);
FromB := GetBValue(FromColor);
ToR := GetRValue(ToColor);
ToG := GetGValue(ToColor);
ToB := GetBValue(ToColor);
SR := ARect;
with ARect do
if IsVertical then
H := Bottom - Top
else
H := Right - Left;
for I := 0 to AStepCount - 1 do
begin
if IsVertical then
SR.Bottom := ARect.Top + MulDiv(I + 1, H, AStepCount)
else
SR.Right := ARect.Left + MulDiv(I + 1, H, AStepCount);
with Canvas do
begin
R := FromR + MulDiv(I, ToR - FromR, AStepCount - 1);
G := FromG + MulDiv(I, ToG - FromG, AStepCount - 1);
B := FromB + MulDiv(I, ToB - FromB, AStepCount - 1);
Brush.Color := RGB(R, G, B);
FillRect(SR);
end;
if IsVertical then
SR.Top := SR.Bottom
else
SR.Left := SR.Right;
end;
end;
procedure LoadImageFromRes(ABitmap: TBitMap; AResName: String);
var
Rs: TResourceStream;
BitMap: TBitMap;
begin
BitMap := TBitMap.Create;
Rs := TResourceStream.Create(hInstance, AResName, RT_RCDATA);
try
BitMap.LoadFromStream(Rs);
ABitMap.Assign(BitMap);
finally
BitMap.Free;
Rs.Free;
end;
end;
procedure SetStringFieldValue(AField: TStringField; AValue: string);
begin
AField.Value := AValue;
end;
end.

17
Z99Dependency/design/U_globalVar.pas
View File

@ -1,17 +0,0 @@
unit U_globalVar;
interface
uses
Messages;
var
gUserName:string;
gUserId:string;
gDllFileName :string;
const
WM_CloseForm = WM_USER + 100 ;
implementation
end.

2
成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Dp7Repo\项目代码\乙对\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
HostApplication=E:\项目资料\02_梭织厂\乙对\D7szYidui\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

3
成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dpr
View File

@ -21,8 +21,7 @@ uses
U_SysLogHelp in '..\Z99Dependency\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp},
U_ContractListNXSel in 'U_ContractListNXSel.pas' {frmContractListNXSel},
U_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment},
U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas',
U_CPCKMdList in 'U_CPCKMdList.pas' {frmCPCKMdList};
U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas';
{$R *.res}

18
成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.dfm
View File

@ -1,8 +1,8 @@
object frmCPCKMdList: TfrmCPCKMdList
Left = 411
Top = 204
Width = 1624
Height = 968
Left = 248
Top = 179
Width = 1128
Height = 516
Caption = #30721#21333#25171#21360
Color = clBtnFace
Font.Charset = GB2312_CHARSET
@ -20,7 +20,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1616
Width = 1112
AutoSize = True
ButtonHeight = 30
ButtonWidth = 95
@ -112,7 +112,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object Panel1: TPanel
Left = 0
Top = 32
Width = 1616
Width = 1112
Height = 93
Align = alTop
BevelInner = bvRaised
@ -322,8 +322,8 @@ object frmCPCKMdList: TfrmCPCKMdList
object cxGrid1: TcxGrid
Left = 0
Top = 147
Width = 1616
Height = 790
Width = 1112
Height = 330
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -685,7 +685,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object cxTabControl1: TcxTabControl
Left = 0
Top = 125
Width = 1616
Width = 1112
Height = 22
Align = alTop
Font.Charset = GB2312_CHARSET

4
成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.pas
View File

@ -139,7 +139,7 @@ var
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_FinishedClothOutList_MX;
U_DataLink, U_Fun, U_ZDYHelp, U_FinishedClothOutList_MX;
{$R *.dfm}
@ -830,7 +830,7 @@ begin
// SInitCDSData20(ADOQueryTemp, CDS_JuanPRT);
// end;
if (trim(ComboBox1.Text) = '成品码单2') or (trim(ComboBox1.Text) = '成品码单1' or (trim(ComboBox1.Text) = '无抬头成品码单1') then
if (trim(ComboBox1.Text) = '成品码单2') or (trim(ComboBox1.Text) = '成品码单1') or (trim(ComboBox1.Text) = '无抬头成品码单1') then
begin
with ADOQueryTemp do
begin

28
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQInPut.pas
View File

@ -10,20 +10,20 @@ uses
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
dxSkinscxPCPainter;
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, 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
TfrmPBFHSQInPut = class(TForm)

28
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQList.pas
View File

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

28
成品仓库(FinishedClothWarehouse.dll)/U_CPSQSMCK.pas
View File

@ -10,20 +10,20 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
dxSkinscxPCPainter;
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
TfrmCPSQSMCK = class(TForm)

30
成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas
View File

@ -5,30 +5,20 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
dxSkinsDefaultPainters,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinsDefaultPainters, 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, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
var
DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数}

16
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothOutList.pas
View File

@ -11,7 +11,21 @@ uses
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System,
RM_GridReport, cxCheckBox, Menus, MovePanel, BtnEdit, cxPC, cxLookAndFeels,
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator;
cxLookAndFeelPainters, dxBarBuiltInMenu, 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
TfrmFinishedClothOutList = class(TForm)

2
成品仓库(FinishedClothWarehouse.dll)/U_GetDllForm.pas
View File

@ -890,7 +890,7 @@ begin
try
with DataLink_FinishedClothWarehouse.ADOLink do
begin
//if not Connected then
if not Connected then
begin
Connected := false;
ConnectionString := DConString;