~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
a66403bfa6
commit
1f7b10316a
|
|
@ -28,7 +28,7 @@ uses
|
|||
U_PurchaseContractSel in '..\T00óÒ×ͨÓô°Ìå\U_PurchaseContractSel.pas' {frmPurchaseContractSel},
|
||||
U_TradeClothOutInspList in 'U_TradeClothOutInspList.pas' {frmTradeClothOutInspList},
|
||||
U_PictureList in '..\A00ͨÓô°Ìå\U_PictureList.pas' {frmPictureList},
|
||||
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
|
||||
U_MachineManageSel in '..\A00通用窗体\U_MachineManageSel.pas' {frmMachineManageSel},
|
||||
U_TradeGreyClothInEdit in 'U_TradeGreyClothInEdit.pas' {frmTradeGreyClothInEdit},
|
||||
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
|
||||
U_TradeGreyClothInList in 'U_TradeGreyClothInList.pas' {frmTradeGreyClothInList},
|
||||
|
|
@ -78,7 +78,7 @@ uses
|
|||
U_TradeRRInPut in 'U_TradeRRInPut.pas' {frmTradeRRInPut},
|
||||
U_RPFun in '..\..\..\public10\ThreeFun\Fun\U_RPFun.pas',
|
||||
U_InputReceiptType in 'U_InputReceiptType.pas' {frmInputReceiptType},
|
||||
U_MachineManageSel in '..\A00通用窗体\U_MachineManageSel.pas' {frmMachineManageSel};
|
||||
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
|
|||
|
|
@ -196,8 +196,8 @@
|
|||
<Form>frmPictureList</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
|
||||
<Form>frmCompanySel</Form>
|
||||
<DCCReference Include="..\A00通用窗体\U_MachineManageSel.pas">
|
||||
<Form>frmMachineManageSel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_TradeGreyClothInEdit.pas">
|
||||
|
|
@ -364,8 +364,8 @@
|
|||
<DCCReference Include="U_InputReceiptType.pas">
|
||||
<Form>frmInputReceiptType</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\A00通用窗体\U_MachineManageSel.pas">
|
||||
<Form>frmMachineManageSel</Form>
|
||||
<DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
|
||||
<Form>frmCompanySel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
|
|
|
|||
|
|
@ -1,30 +1,30 @@
|
|||
inherited frmPlanScanInEdit: TfrmPlanScanInEdit
|
||||
Caption = #24211#23384#24211#20301#25195#25551
|
||||
ClientHeight = 632
|
||||
ClientWidth = 1350
|
||||
ClientHeight = 473
|
||||
ClientWidth = 1172
|
||||
Visible = True
|
||||
ExplicitWidth = 1366
|
||||
ExplicitHeight = 671
|
||||
ExplicitWidth = 1188
|
||||
ExplicitHeight = 512
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 17
|
||||
object Panel1: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1350
|
||||
Width = 1172
|
||||
Height = 145
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 1350
|
||||
object Panel3: TPanel
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1346
|
||||
Width = 1168
|
||||
Height = 141
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = -1
|
||||
ExplicitWidth = 1346
|
||||
object Label6: TLabel
|
||||
Left = 13
|
||||
Top = 68
|
||||
|
|
@ -92,7 +92,7 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
|
|||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1344
|
||||
Width = 1166
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
|
|
@ -110,6 +110,7 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
|
|||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1344
|
||||
object ToolButton3: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -166,13 +167,14 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
|
|||
TabOrder = 1
|
||||
OnKeyPress = edtScanKeyPress
|
||||
end
|
||||
object IOPosition: TBtnEditA
|
||||
object wlCompany: TBtnEditA
|
||||
Tag = 1
|
||||
Left = 535
|
||||
Top = 69
|
||||
Width = 121
|
||||
Height = 30
|
||||
Height = 26
|
||||
TabOrder = 2
|
||||
OnBtnClick = IOPositionBtnClick
|
||||
OnBtnClick = wlCompanyBtnClick
|
||||
end
|
||||
object InNo: TEdit
|
||||
Left = 1070
|
||||
|
|
@ -208,32 +210,44 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
|
|||
#36864#36135#20837#24211)
|
||||
end
|
||||
object carPlate: TBtnEditA
|
||||
Tag = 1
|
||||
Left = 742
|
||||
Top = 69
|
||||
Width = 121
|
||||
Height = 30
|
||||
Height = 26
|
||||
TabOrder = 6
|
||||
OnBtnClick = carPlateBtnClick
|
||||
end
|
||||
object Tqueren: TButton
|
||||
Left = 896
|
||||
Top = 69
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = #30830#23450#32465#23450
|
||||
TabOrder = 7
|
||||
OnClick = TquerenClick
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel [1]
|
||||
Left = 0
|
||||
Top = 145
|
||||
Width = 1350
|
||||
Height = 487
|
||||
Width = 1172
|
||||
Height = 328
|
||||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 3
|
||||
ExplicitWidth = 1350
|
||||
ExplicitHeight = 487
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1348
|
||||
Height = 485
|
||||
Width = 1170
|
||||
Height = 326
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 2
|
||||
ExplicitTop = -2
|
||||
ExplicitWidth = 1348
|
||||
ExplicitHeight = 485
|
||||
object Tv3: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -264,11 +278,49 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
|
|||
OptionsView.GroupByBox = False
|
||||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #20986#24211#21333
|
||||
DataBinding.FieldName = 'PieceNo'
|
||||
DataBinding.FieldName = 'BCIONO'
|
||||
DataBinding.IsNullValueType = True
|
||||
FooterAlignmentHorz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 207
|
||||
Width = 90
|
||||
end
|
||||
object Tv3Column1: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'ToCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
FooterAlignmentHorz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object Tv3Column2: TcxGridDBColumn
|
||||
Caption = #21697#21517
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
FooterAlignmentHorz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object Tv3Column3: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Pieceint'
|
||||
DataBinding.IsNullValueType = True
|
||||
FooterAlignmentHorz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object Tv3Column4: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
FooterAlignmentHorz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
|
|
|
|||
|
|
@ -61,7 +61,7 @@ type
|
|||
Label1: TLabel;
|
||||
ToolButton5: TToolButton;
|
||||
Label2: TLabel;
|
||||
IOPosition: TBtnEditA;
|
||||
wlCompany: TBtnEditA;
|
||||
Label5: TLabel;
|
||||
InNo: TEdit;
|
||||
Label4: TLabel;
|
||||
|
|
@ -69,6 +69,11 @@ type
|
|||
Label11: TLabel;
|
||||
CRType: TComboBox;
|
||||
carPlate: TBtnEditA;
|
||||
Tv3Column1: TcxGridDBColumn;
|
||||
Tv3Column2: TcxGridDBColumn;
|
||||
Tv3Column3: TcxGridDBColumn;
|
||||
Tv3Column4: TcxGridDBColumn;
|
||||
Tqueren: TButton;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
|
@ -78,11 +83,12 @@ type
|
|||
procedure ToolButton8Click(Sender: TObject);
|
||||
procedure edtScanKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure IOPositionBtnClick(Sender: TObject);
|
||||
procedure wlCompanyBtnClick(Sender: TObject);
|
||||
procedure carPlateBtnClick(Sender: TObject);
|
||||
procedure TquerenClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
FScan, FSubIds: string;
|
||||
FScan, FSubIds,FZCID: string;
|
||||
procedure PlayWav(MWav: string);
|
||||
procedure InitKC();
|
||||
procedure ScanKW();
|
||||
|
|
@ -111,20 +117,16 @@ end;
|
|||
procedure TfrmPlanScanInEdit.InitKC();
|
||||
begin
|
||||
|
||||
if IOPosition.Text = '' then
|
||||
if carPlate.Text = '' then
|
||||
exit;
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select A.IOFlag,A.IONo,A.IOID,A.IOPosition,B.* from Trade_Cloth_IO A ');
|
||||
sql.Add('inner join Trade_Cloth_Stock B on A.StkId=B.StkId and A.IOCycles=B.StkCycles ');
|
||||
sql.Add('where A.IOFlag=''Èë¿â'' and B.StkExists=1 ');
|
||||
if IOPosition.Text <> '' then
|
||||
sql.add('and IOPosition =' + QuotedStr(TRIm(IOPosition.Text)))
|
||||
else
|
||||
sql.add('and 1=2');
|
||||
sql.Add('select A.* from Trade_Cloth_IO A ');
|
||||
sql.Add('where A.ioFlag=''出库'' ');
|
||||
sql.add('and VNO =' + QuotedStr(TRIm(FScan)));
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryTemp, CDS_3);
|
||||
|
|
@ -145,7 +147,7 @@ begin
|
|||
open;
|
||||
end;
|
||||
|
||||
IOPosition.Text := ADOQueryTemp.FieldByName('posno').AsString;
|
||||
wlCompany.Text := ADOQueryTemp.FieldByName('posno').AsString;
|
||||
|
||||
btnGetOutNo.Click;
|
||||
except
|
||||
|
|
@ -159,7 +161,7 @@ var
|
|||
MStkIds: string;
|
||||
begin
|
||||
try
|
||||
if Trim(IOPosition.Text) = '' then
|
||||
if Trim(wlCompany.Text) = '' then
|
||||
raise Exception.Create('库位不能为空!');
|
||||
if Trim(InNo.Text) = '' then
|
||||
raise Exception.Create('入库单号不能为空!');
|
||||
|
|
@ -178,7 +180,7 @@ begin
|
|||
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)));
|
||||
Sql.Add(',@IOType=' + Quotedstr(crtype.Text));
|
||||
Sql.Add(',@IONO=' + Quotedstr(InNo.Text));
|
||||
Sql.Add(',@StkPosition=' + Quotedstr(IOPosition.Text));
|
||||
Sql.Add(',@StkPosition=' + Quotedstr(wlCompany.Text));
|
||||
Sql.Add(',@FillId=' + Quotedstr(DCode));
|
||||
Sql.Add(',@Filler=' + Quotedstr(DName));
|
||||
// ShowMessage(sql.Text);
|
||||
|
|
@ -284,7 +286,7 @@ begin
|
|||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.IOPositionBtnClick(Sender: TObject);
|
||||
procedure TfrmPlanScanInEdit.wlCompanyBtnClick(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
|
|
@ -312,7 +314,7 @@ begin
|
|||
begin
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
carPlate.text := Trim(CDS_HZ.fieldbyname('VNO').AsString);
|
||||
carPlate.text := Trim(CDS_1.fieldbyname('VNO').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -346,5 +348,117 @@ begin
|
|||
WriteCxGrid(self.caption + 'Tv3', Tv3, '成品仓库');
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.TquerenClick(Sender: TObject);
|
||||
var
|
||||
MaxMid, MaxSid: string;
|
||||
begin
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
///////////////// 保存主表 /////////////////
|
||||
if Trim(FZCID) = '' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, MaxMid, 'ZC', 'Trade_Market_CarTransport', 4, 1) = False then
|
||||
raise Exception.Create('取最大号失败！');
|
||||
end
|
||||
else
|
||||
begin
|
||||
MaxMid := Trim(FZCID);
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from Trade_Market_CarTransport where ZCID=''' + Trim(MaxMid) + '''');
|
||||
Open;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
if Trim(FZCID) = '' then
|
||||
begin
|
||||
Append;
|
||||
FieldByName('FillID').Value := Trim(DCode);
|
||||
FieldByName('Filler').Value := Trim(DName);
|
||||
end
|
||||
else
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('EditID').Value := Trim(DCode);
|
||||
FieldByName('Editer').Value := Trim(DName);
|
||||
FieldByName('EditTime').Value := SGetServerDateTime(ADOQuerytemp);
|
||||
end;
|
||||
RTSetsavedata(ADOQueryCmd, 'Trade_Market_CarTransport', panel3, 1);
|
||||
|
||||
|
||||
FieldByName('DRMID').Value := Trim(MaxMid);
|
||||
|
||||
Post;
|
||||
end;
|
||||
///////////////// 保存主表 /////////////////
|
||||
///
|
||||
///////////////// 保存子表 /////////////////
|
||||
CDS_3.DisableControls;
|
||||
with CDS_3 do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Trim(CDS_3.fieldbyname('ZCMXID').AsString) = '' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, MaxSid, 'DS', 'Trade_Market_CarTransportSub', 4, 1) = False then
|
||||
raise Exception.Create('取子流水号失败！');
|
||||
end
|
||||
else
|
||||
begin
|
||||
MaxSid := Trim(CDS_3.fieldbyname('DRSID').AsString);
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from Trade_Market_CarTransportSub ');
|
||||
sql.Add(' where DRMID=''' + Trim(MaxMid) + '''');
|
||||
sql.Add(' and DRSID=''' + Trim(MaxSid) + '''');
|
||||
Open;
|
||||
if ADOQueryCmd.IsEmpty then
|
||||
begin
|
||||
Append;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Edit;
|
||||
end;
|
||||
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Trade_Market_CarTransportSub', 0);
|
||||
FieldByName('DRMID').Value := Trim(MaxMid);
|
||||
FieldByName('DRSID').Value := Trim(MaxSid);
|
||||
// FieldByName('QtyUnit').Value := QtyUnit.Text;
|
||||
FieldByName('MainId').Value := CDS_3.fieldbyname('MainId').Value;
|
||||
FieldByName('SubId').Value := CDS_3.fieldbyname('SubId').Value;
|
||||
FieldByName('ConMId').Value := CDS_3.fieldbyname('ConMId').Value;
|
||||
FieldByName('ConSId').Value := CDS_3.fieldbyname('ConSId').Value;
|
||||
|
||||
FieldByName('ToConNo').Value := CDS_3.fieldbyname('ToConNo').Value;
|
||||
FieldByName('ToConMId').Value := CDS_3.fieldbyname('ToConMId').Value;
|
||||
FieldByName('ToConSId').Value := CDS_3.fieldbyname('ToConSId').Value;
|
||||
|
||||
Post;
|
||||
end;
|
||||
CDS_3.Edit;
|
||||
CDS_3.FieldByName('DRSID').Value := Trim(MaxSid);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
CDS_3.EnableControls;
|
||||
///////////////// 保存子表 /////////////////
|
||||
FZCID := Trim(MaxMid);
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
// Result := True;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
// Result := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -16,7 +16,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList,
|
||||
U_TradeMarketList_JD, U_TradeMarketList_XY;
|
||||
U_TradeMarketList_JD, U_TradeMarketList_XY,U_TradeMarketList_JDT;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 功能说明:取Dll中得窗体 //
|
||||
|
|
@ -166,7 +166,18 @@ begin
|
|||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
|
||||
113: //´ó»õµ¥ 2
|
||||
begin
|
||||
with TfrmTradeMarketList_JDT.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
FOrdType := 'Õý³£µ¥';
|
||||
FormStyle := mstyle;
|
||||
WindowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
// 112: //剪样单
|
||||
// begin
|
||||
// with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
|
|
|
|||
|
|
@ -47,6 +47,19 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
|||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 76
|
||||
Height = 30
|
||||
Caption = #28201#23725#21439'W'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -19
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 1
|
||||
|
|
@ -141,11 +154,13 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
|||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 1
|
||||
Top = 401
|
||||
Top = 431
|
||||
Width = 782
|
||||
Height = 232
|
||||
Height = 202
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 401
|
||||
ExplicitHeight = 232
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -225,6 +240,34 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
|||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
object ToolBar4: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 401
|
||||
Width = 782
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 67
|
||||
Caption = 'ToolBar1'
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 3
|
||||
object Label5: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 71
|
||||
Height = 30
|
||||
Caption = #19996#22616#32447'D'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -19
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel [3]
|
||||
Left = 784
|
||||
|
|
@ -247,6 +290,31 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
|||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object Label3: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 68
|
||||
Height = 30
|
||||
Caption = #30707#31896#32447'S'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -19
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 68
|
||||
Top = 0
|
||||
Width = 6
|
||||
Height = 30
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -19
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 1
|
||||
|
|
@ -333,11 +401,13 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
|||
end
|
||||
object cxGrid4: TcxGrid
|
||||
Left = 1
|
||||
Top = 395
|
||||
Top = 425
|
||||
Width = 637
|
||||
Height = 238
|
||||
Height = 208
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 395
|
||||
ExplicitHeight = 238
|
||||
object Tv4: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -414,6 +484,34 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
|||
GridView = Tv4
|
||||
end
|
||||
end
|
||||
object ToolBar3: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 395
|
||||
Width = 637
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 67
|
||||
Caption = 'ToolBar1'
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 3
|
||||
object Label4: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 68
|
||||
Height = 30
|
||||
Caption = #19978#27915#26519'Y'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -19
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
|
|
|
|||
|
|
@ -91,6 +91,13 @@ type
|
|||
ADO_2: TADOQuery;
|
||||
ADO_3: TADOQuery;
|
||||
ADO_4: TADOQuery;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
ToolBar3: TToolBar;
|
||||
Label4: TLabel;
|
||||
ToolBar4: TToolBar;
|
||||
Label5: TLabel;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
|
|
|
|||
681
T05贸易门市管理/U_TradeMarketList_JDT.dfm
Normal file
681
T05贸易门市管理/U_TradeMarketList_JDT.dfm
Normal file
|
|
@ -0,0 +1,681 @@
|
|||
inherited frmTradeMarketList_JDT: TfrmTradeMarketList_JDT
|
||||
Left = 165
|
||||
Top = 13
|
||||
Caption = #22823#23631#26174#31034'2'
|
||||
ClientHeight = 634
|
||||
ClientWidth = 1423
|
||||
Color = clBtnFace
|
||||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitWidth = 1439
|
||||
ExplicitHeight = 673
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
inherited loadProcess: TPanel
|
||||
Left = 720
|
||||
Top = 354
|
||||
ExplicitLeft = 720
|
||||
ExplicitTop = 354
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Left = 720
|
||||
Top = 296
|
||||
ExplicitLeft = 720
|
||||
ExplicitTop = 296
|
||||
ExplicitHeight = 29
|
||||
end
|
||||
object Panel1: TPanel [2]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 784
|
||||
Height = 634
|
||||
Align = alLeft
|
||||
TabOrder = 2
|
||||
object ToolBar1: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 782
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 67
|
||||
Caption = 'ToolBar1'
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 69
|
||||
Height = 30
|
||||
Caption = #28504#37070#32447'P'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -19
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 1
|
||||
Top = 31
|
||||
Width = 782
|
||||
Height = 370
|
||||
Align = alTop
|
||||
TabOrder = 1
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.CellHints = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
object v1Column16: TcxGridDBColumn
|
||||
Caption = #26159#21542#21152#24613
|
||||
DataBinding.FieldName = 'Urgent'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #21333#25454#32534#21495
|
||||
DataBinding.FieldName = 'TMMNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 77
|
||||
end
|
||||
object v1OrdDate: TcxGridDBColumn
|
||||
Caption = #21046#21333#26085#26399
|
||||
DataBinding.FieldName = 'TMMDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #37197#36135#20154
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #21046#21333#20154
|
||||
DataBinding.FieldName = 'FILLER'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'OrdNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 1
|
||||
Top = 431
|
||||
Width = 782
|
||||
Height = 202
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 401
|
||||
ExplicitHeight = 232
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.CellHints = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
object Tv2Column1: TcxGridDBColumn
|
||||
Caption = #26159#21542#21152#24613
|
||||
DataBinding.FieldName = 'Urgent'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column2: TcxGridDBColumn
|
||||
Caption = #21333#25454#32534#21495
|
||||
DataBinding.FieldName = 'TMMNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column3: TcxGridDBColumn
|
||||
Caption = #21046#21333#26085#26399
|
||||
DataBinding.FieldName = 'TMMDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column5: TcxGridDBColumn
|
||||
Caption = #37197#36135#20154
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column6: TcxGridDBColumn
|
||||
Caption = #21046#21333#20154
|
||||
DataBinding.FieldName = 'FILLER'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column7: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'OrdNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
object ToolBar4: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 401
|
||||
Width = 782
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 67
|
||||
Caption = 'ToolBar1'
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 3
|
||||
object Label5: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 89
|
||||
Height = 30
|
||||
Caption = #30707#21050#22836#32447'C'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -19
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel [3]
|
||||
Left = 784
|
||||
Top = 0
|
||||
Width = 639
|
||||
Height = 634
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object ToolBar2: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 637
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 67
|
||||
Caption = 'ToolBar1'
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object Label3: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 76
|
||||
Height = 30
|
||||
Caption = #29287#23679#32447'M'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -19
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 76
|
||||
Top = 0
|
||||
Width = 6
|
||||
Height = 30
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -19
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 1
|
||||
Top = 31
|
||||
Width = 637
|
||||
Height = 364
|
||||
Align = alTop
|
||||
TabOrder = 1
|
||||
object Tv3: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource3
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.CellHints = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
object Tv3Column1: TcxGridDBColumn
|
||||
Caption = #26159#21542#21152#24613
|
||||
DataBinding.FieldName = 'Urgent'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column2: TcxGridDBColumn
|
||||
Caption = #21333#25454#32534#21495
|
||||
DataBinding.FieldName = 'TMMNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column3: TcxGridDBColumn
|
||||
Caption = #21046#21333#26085#26399
|
||||
DataBinding.FieldName = 'TMMDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column5: TcxGridDBColumn
|
||||
Caption = #37197#36135#20154
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column6: TcxGridDBColumn
|
||||
Caption = #21046#21333#20154
|
||||
DataBinding.FieldName = 'FILLER'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column7: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'OrdNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGridLevel2: TcxGridLevel
|
||||
GridView = Tv3
|
||||
end
|
||||
end
|
||||
object cxGrid4: TcxGrid
|
||||
Left = 1
|
||||
Top = 425
|
||||
Width = 637
|
||||
Height = 208
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 395
|
||||
ExplicitHeight = 238
|
||||
object Tv4: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource4
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.CellHints = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
object Tv4Column1: TcxGridDBColumn
|
||||
Caption = #26159#21542#21152#24613
|
||||
DataBinding.FieldName = 'Urgent'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column2: TcxGridDBColumn
|
||||
Caption = #21333#25454#32534#21495
|
||||
DataBinding.FieldName = 'TMMNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column3: TcxGridDBColumn
|
||||
Caption = #21046#21333#26085#26399
|
||||
DataBinding.FieldName = 'TMMDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column5: TcxGridDBColumn
|
||||
Caption = #37197#36135#20154
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column6: TcxGridDBColumn
|
||||
Caption = #21046#21333#20154
|
||||
DataBinding.FieldName = 'FILLER'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column7: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'OrdNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGridLevel3: TcxGridLevel
|
||||
GridView = Tv4
|
||||
end
|
||||
end
|
||||
object ToolBar3: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 395
|
||||
Width = 637
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 67
|
||||
Caption = 'ToolBar1'
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 3
|
||||
object Label4: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 38
|
||||
Height = 30
|
||||
Caption = #26032#20313
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -19
|
||||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Left = 255
|
||||
Top = 314
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Left = 37
|
||||
Top = 280
|
||||
end
|
||||
object cxgrdpmn1: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 220
|
||||
Top = 284
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Parameters = <>
|
||||
Left = 568
|
||||
Top = 240
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 292
|
||||
Top = 128
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 320
|
||||
Top = 224
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 468
|
||||
Top = 112
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 156
|
||||
Top = 144
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = CDS_2
|
||||
Left = 152
|
||||
Top = 476
|
||||
end
|
||||
object ADOQueryImage: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
EnableBCD = False
|
||||
Parameters = <>
|
||||
Left = 316
|
||||
Top = 283
|
||||
end
|
||||
object DSImage: TDataSource
|
||||
DataSet = ADOQueryImage
|
||||
Left = 256
|
||||
Top = 192
|
||||
end
|
||||
object IdFTP1: TIdFTP
|
||||
ConnectTimeout = 0
|
||||
NATKeepAlive.UseKeepAlive = False
|
||||
NATKeepAlive.IdleTimeMS = 0
|
||||
NATKeepAlive.IntervalMS = 0
|
||||
ProxySettings.ProxyType = fpcmNone
|
||||
ProxySettings.Port = 0
|
||||
ReadTimeout = 0
|
||||
Left = 36
|
||||
Top = 170
|
||||
end
|
||||
object PopupMenu2: TPopupMenu
|
||||
Left = 532
|
||||
Top = 636
|
||||
object N3: TMenuItem
|
||||
Caption = #20840#36873
|
||||
end
|
||||
object N4: TMenuItem
|
||||
Caption = #20840#24323
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Caption = #22797#21046
|
||||
end
|
||||
end
|
||||
object cxgrdpmn2: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 660
|
||||
Top = 636
|
||||
end
|
||||
object CDS_WXTS: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 252
|
||||
Top = 240
|
||||
end
|
||||
object GPM_3: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 188
|
||||
Top = 236
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 524
|
||||
Top = 96
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = CDS_3
|
||||
Left = 932
|
||||
Top = 176
|
||||
end
|
||||
object CDS_2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 228
|
||||
Top = 464
|
||||
end
|
||||
object DataSource4: TDataSource
|
||||
DataSet = CDS_4
|
||||
Left = 940
|
||||
Top = 472
|
||||
end
|
||||
object CDS_4: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 996
|
||||
Top = 464
|
||||
end
|
||||
object CDS_3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1012
|
||||
Top = 216
|
||||
end
|
||||
object ADO_1: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 452
|
||||
Top = 176
|
||||
end
|
||||
object ADO_2: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 308
|
||||
Top = 464
|
||||
end
|
||||
object ADO_3: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 884
|
||||
Top = 120
|
||||
end
|
||||
object ADO_4: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 860
|
||||
Top = 464
|
||||
end
|
||||
end
|
||||
229
T05贸易门市管理/U_TradeMarketList_JDT.pas
Normal file
229
T05贸易门市管理/U_TradeMarketList_JDT.pas
Normal file
|
|
@ -0,0 +1,229 @@
|
|||
unit U_TradeMarketList_JDT;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
|
||||
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
|
||||
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
|
||||
cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
|
||||
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
|
||||
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
|
||||
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
|
||||
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
|
||||
dxSkinsDefaultPainters;
|
||||
|
||||
type
|
||||
TfrmTradeMarketList_JDT = class(TfrmBaseList)
|
||||
cxgrdpmn1: TcxGridPopupMenu;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
Order_Main: TClientDataSet;
|
||||
DataSource2: TDataSource;
|
||||
ADOQueryImage: TADOQuery;
|
||||
DSImage: TDataSource;
|
||||
IdFTP1: TIdFTP;
|
||||
PopupMenu2: TPopupMenu;
|
||||
N3: TMenuItem;
|
||||
N4: TMenuItem;
|
||||
cxgrdpmn2: TcxGridPopupMenu;
|
||||
CDS_WXTS: TClientDataSet;
|
||||
N2: TMenuItem;
|
||||
GPM_3: TcxGridPopupMenu;
|
||||
Panel1: TPanel;
|
||||
ToolBar1: TToolBar;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column16: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
v1OrdDate: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv2: TcxGridDBTableView;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
Panel2: TPanel;
|
||||
ToolBar2: TToolBar;
|
||||
cxGrid3: TcxGrid;
|
||||
Tv3: TcxGridDBTableView;
|
||||
cxGridLevel2: TcxGridLevel;
|
||||
cxGrid4: TcxGrid;
|
||||
Tv4: TcxGridDBTableView;
|
||||
cxGridLevel3: TcxGridLevel;
|
||||
CDS_1: TClientDataSet;
|
||||
DataSource3: TDataSource;
|
||||
CDS_2: TClientDataSet;
|
||||
DataSource4: TDataSource;
|
||||
CDS_4: TClientDataSet;
|
||||
CDS_3: TClientDataSet;
|
||||
Tv2Column1: TcxGridDBColumn;
|
||||
Tv2Column2: TcxGridDBColumn;
|
||||
Tv2Column3: TcxGridDBColumn;
|
||||
Tv2Column4: TcxGridDBColumn;
|
||||
Tv2Column5: TcxGridDBColumn;
|
||||
Tv2Column6: TcxGridDBColumn;
|
||||
Tv2Column7: TcxGridDBColumn;
|
||||
Tv3Column1: TcxGridDBColumn;
|
||||
Tv3Column2: TcxGridDBColumn;
|
||||
Tv3Column3: TcxGridDBColumn;
|
||||
Tv3Column4: TcxGridDBColumn;
|
||||
Tv3Column5: TcxGridDBColumn;
|
||||
Tv3Column6: TcxGridDBColumn;
|
||||
Tv4Column1: TcxGridDBColumn;
|
||||
Tv4Column2: TcxGridDBColumn;
|
||||
Tv4Column3: TcxGridDBColumn;
|
||||
Tv4Column4: TcxGridDBColumn;
|
||||
Tv4Column5: TcxGridDBColumn;
|
||||
Tv4Column6: TcxGridDBColumn;
|
||||
Tv4Column7: TcxGridDBColumn;
|
||||
Tv3Column7: TcxGridDBColumn;
|
||||
ADO_1: TADOQuery;
|
||||
ADO_2: TADOQuery;
|
||||
ADO_3: TADOQuery;
|
||||
ADO_4: TADOQuery;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
ToolBar3: TToolBar;
|
||||
Label4: TLabel;
|
||||
ToolBar4: TToolBar;
|
||||
Label5: TLabel;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
DQdate: TDateTime;
|
||||
procedure InitGrid();
|
||||
procedure InitGrid1();
|
||||
procedure InitGrid2();
|
||||
procedure InitGrid3();
|
||||
procedure InitGrid4();
|
||||
// procedure InitForm();
|
||||
|
||||
{ Private declarations }
|
||||
public
|
||||
canshu1, canshu2, canshu4, FOrdType: string;
|
||||
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmTradeMarketList_JDT: TfrmTradeMarketList_JDT;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
|
||||
U_TradeMarketInPut;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmTradeMarketList_JDT.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
inherited;
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JDT.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
InitGrid1();
|
||||
InitGrid2();
|
||||
InitGrid3();
|
||||
InitGrid4();
|
||||
|
||||
// InitForm();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JDT.InitGrid();
|
||||
begin
|
||||
with ADO_1 do
|
||||
begin
|
||||
Close;
|
||||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_1, CDS_1);
|
||||
SInitCDSData(ADO_1, CDS_1);
|
||||
SCreateCDS(ADO_1, CDS_2);
|
||||
SInitCDSData(ADO_1, CDS_2);
|
||||
SCreateCDS(ADO_1, CDS_3);
|
||||
SInitCDSData(ADO_1, CDS_3);
|
||||
SCreateCDS(ADO_1, CDS_4);
|
||||
SInitCDSData(ADO_1, CDS_4);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JDT.InitGrid1();
|
||||
begin
|
||||
with ADO_1 do
|
||||
begin
|
||||
Close;
|
||||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1 ');
|
||||
sql.add('and AddressArea=''潘郎线P'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_1, CDS_1);
|
||||
SInitCDSData(ADO_1, CDS_1);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JDT.InitGrid2();
|
||||
begin
|
||||
with ADO_2 do
|
||||
begin
|
||||
Close;
|
||||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
sql.add('and AddressArea=''石刺头线C'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_2, CDS_2);
|
||||
SInitCDSData(ADO_2, CDS_2);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JDT.InitGrid3();
|
||||
begin
|
||||
with ADO_3 do
|
||||
begin
|
||||
Close;
|
||||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
sql.add('and AddressArea=''牧屿线M'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_3, CDS_3);
|
||||
SInitCDSData(ADO_3, CDS_3);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JDT.InitGrid4();
|
||||
begin
|
||||
with ADO_4 do
|
||||
begin
|
||||
Close;
|
||||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
sql.add('and AddressArea=''新余'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_4, CDS_4);
|
||||
SInitCDSData(ADO_4, CDS_4);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user