Group_DJD/D7DJbulaikeyi
7
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-25 17:25:56 +08:00
parent aff0855ee9
commit b4038e8864
4 changed files with 135 additions and 125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
打卷检验管理/U_CKProductJYHZList.dfm
View File

@ -384,6 +384,22 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
item item
Kind = skSum Kind = skSum
Column = v1Column12 Column = v1Column12
end
item
Kind = skSum
Column = Tv1Column1
end
item
Kind = skSum
Column = Tv1Column3
end
item
Kind = skSum
Column = Tv1Column2
end
item
Kind = skSum
Column = Tv1Column4
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False

188
打卷检验管理/U_CKProductJYHZList.pas
View File

@ -4,28 +4,26 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit, cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinXmas2008Blue, dxSkinscxPCPainter;
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmCKProductJYHZList = class(TForm) TfrmCKProductJYHZList = class(TForm)
@ -115,19 +113,15 @@ type
procedure TBExportClick(Sender: TObject); procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure PRTCodeNameChange(Sender: TObject); procedure PRTCodeNameChange(Sender: TObject);
procedure v1Column5PropertiesButtonClick(Sender: TObject; procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
procedure PRTColorChange(Sender: TObject); procedure PRTColorChange(Sender: TObject);
procedure Image2Click(Sender: TObject); procedure Image2Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
AShift: TShiftState; var AHandled: Boolean);
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TBPrintClick(Sender: TObject); procedure TBPrintClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
private private
FLeft,FTop:Integer; FLeft, FTop: Integer;
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
public public
@ -138,93 +132,95 @@ var
frmCKProductJYHZList: TfrmCKProductJYHZList; frmCKProductJYHZList: TfrmCKProductJYHZList;
implementation implementation
uses uses
U_DataLink,U_Fun,U_ZDYHelp,U_JYOrderCDOne; U_DataLink, U_Fun, U_ZDYHelp, U_JYOrderCDOne;
{$R *.dfm} {$R *.dfm}
procedure TfrmCKProductJYHZList.FormDestroy(Sender: TObject); procedure TfrmCKProductJYHZList.FormDestroy(Sender: TObject);
begin begin
frmCKProductJYHZList:=nil; frmCKProductJYHZList := nil;
end; end;
procedure TfrmCKProductJYHZList.FormClose(Sender: TObject; procedure TfrmCKProductJYHZList.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmCKProductJYHZList.FormCreate(Sender: TObject); procedure TfrmCKProductJYHZList.FormCreate(Sender: TObject);
begin begin
//cxGrid1.Align:=alClient; //cxGrid1.Align:=alClient;
BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); BegDate.DateTime := SGetServerDateTime(ADOQueryTemp);
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) EndDate.DateTime := SGetServerDateTime(ADOQueryTemp)
end; end;
procedure TfrmCKProductJYHZList.InitGrid(); procedure TfrmCKProductJYHZList.InitGrid();
begin begin
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
sql.Clear; sql.Clear;
Filtered:=False; Filtered := False;
sql.Add('select convert(char(10),A.fillTime,120) as CRTime,A.MJType as CPType,A.MainId,A.MJTypeother as QtyUnit,A.Mjstr4,C.OrderNo,C.CustomerNoName,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.PIH, '); sql.Add('select convert(char(10),A.fillTime,120) as CRTime,A.MJType as CPType,A.MainId,A.MJTypeother as QtyUnit,A.Mjstr4,C.OrderNo,C.CustomerNoName,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.PIH, ');
sql.Add('count(A.MainId) as JQty,SUM(A.MJLen) as Qty,SUM(A.MJMaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,'); sql.Add('count(A.MainId) as JQty,SUM(A.MJLen) as Qty,SUM(A.MJMaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,');
sql.Add('JQty=(select count(*) from WFB_MJJY X where X.SubId=A.SubId),'); // sql.Add('JQty=(select count(*) from WFB_MJJY X where X.SubId=A.SubId),');
sql.Add('SCKROLL=(select sum(mjlen) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''已出库''),'); sql.Add('SUM(CASE WHEN A.ckflag = ''已出库'' THEN A.mjlen ELSE 0 END) AS SCKROLL,');
sql.Add('SkcROLL=(select sum(mjlen) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''未出库''),'); sql.Add('SUM(CASE WHEN A.ckflag = ''未出库'' THEN A.mjlen ELSE 0 END) AS SkcROLL,');
sql.Add('CKROLL=(select count(*) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''已出库''),'); sql.Add(' COUNT(CASE WHEN A.ckflag = ''已出库'' THEN 1 END) AS CKROLL,');
sql.Add('KCROLL=(select count(*) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''未出库''),'); sql.Add(' COUNT(CASE WHEN A.ckflag = ''未出库'' THEN 1 END) AS KCROLL,');
sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)'); sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)');
sql.Add('from WFB_MJJY A '); sql.Add('from WFB_MJJY A ');
sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId '); sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId ');
sql.Add('inner join JYOrder_sub D on D.subID=A.subID '); sql.Add('inner join JYOrder_sub D on D.subID=A.subID ');
Sql.add('where A.fillTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); Sql.add('where A.fillTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
Sql.add('and A.fillTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); Sql.add('and A.fillTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
Sql.add('group by convert(char(10),A.fillTime,120),A.SubId,A.MJType,A.MainId,A.MJTypeother,A.Mjstr4,C.OrderNo,C.CustomerNoName,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.PIH'); Sql.add('group by convert(char(10),A.fillTime,120),A.SubId,A.MJType,A.MainId,A.MJTypeother,A.Mjstr4,C.OrderNo,C.CustomerNoName,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.PIH');
Open; Open;
//ShowMessage(SQL.Text); // ShowMessage(SQL.Text);
end; end;
SCreateCDS20(ADOQueryMain,CDS_Main); SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain,CDS_Main); SInitCDSData20(ADOQueryMain, CDS_Main);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
tbfind.Click;
end; end;
procedure TfrmCKProductJYHZList.TBRafreshClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBRafreshClick(Sender: TObject);
begin begin
//BegDate.SetFocus; //BegDate.SetFocus;
MovePanel2.Visible:=True; MovePanel2.Visible := True;
MovePanel2.Refresh; MovePanel2.Refresh;
InitGrid(); InitGrid();
MovePanel2.Visible:=False; MovePanel2.Visible := False;
end; end;
procedure TfrmCKProductJYHZList.ConNoMChange(Sender: TObject); procedure TfrmCKProductJYHZList.ConNoMChange(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end; end;
end; end;
procedure TfrmCKProductJYHZList.TBCloseClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库'); WriteCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
Close; Close;
end; end;
procedure TfrmCKProductJYHZList.FormShow(Sender: TObject); procedure TfrmCKProductJYHZList.FormShow(Sender: TObject);
begin begin
ReadCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库'); ReadCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
if Trim(DParameters2)='管理' then if Trim(DParameters2) = '管理' then
begin begin
//v1Column5.Options.Focusing:=True; //v1Column5.Options.Focusing:=True;
end else end
else
begin begin
//v1Column5.Options.Focusing:=False; //v1Column5.Options.Focusing:=False;
end; end;
@ -233,17 +229,18 @@ end;
procedure TfrmCKProductJYHZList.TBExportClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then exit; if ADOQueryMain.IsEmpty then
TcxGridToExcel('库存汇总列表',cxGrid2); exit;
TcxGridToExcel('库存汇总列表', cxGrid2);
end; end;
procedure TfrmCKProductJYHZList.TBFindClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain,CDS_Main); SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain,CDS_Main); SInitCDSData20(ADOQueryMain, CDS_Main);
end; end;
end; end;
@ -252,28 +249,27 @@ begin
TBFind.Click; TBFind.Click;
end; end;
procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick( procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='SOrdDefStr10'; flag := 'SOrdDefStr10';
flagname:='库存存放地点'; flagname := '库存存放地点';
if ShowModal=1 then if ShowModal = 1 then
begin begin
with CDS_Main do with CDS_Main do
begin begin
Edit; Edit;
FieldByName('SOrdDefStr10').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); FieldByName('SOrdDefStr10').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update JYOrder_Sub Set SOrdDefStr10='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); sql.Add('Update JYOrder_Sub Set SOrdDefStr10=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
sql.Add(' where SubId='''+Trim(Self.CDS_Main.fieldbyname('SubId').AsString)+''''); sql.Add(' where SubId=''' + Trim(Self.CDS_Main.fieldbyname('SubId').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
end; end;
@ -290,49 +286,47 @@ end;
procedure TfrmCKProductJYHZList.Image2Click(Sender: TObject); procedure TfrmCKProductJYHZList.Image2Click(Sender: TObject);
begin begin
Panel4.Visible:=False; Panel4.Visible := False;
end; end;
procedure TfrmCKProductJYHZList.Tv1CellDblClick( procedure TfrmCKProductJYHZList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin begin
Panel4.Left:=FLeft; Panel4.Left := FLeft;
Panel4.Top:=FTop+110; Panel4.Top := FTop + 110;
Panel4.Visible:=True; Panel4.Visible := True;
Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); Panel10.Caption := Trim(TV1.Controller.FocusedColumn.Caption);
RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; RichEdit1.Text := CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
application.ProcessMessages; application.ProcessMessages;
end; end;
procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject; procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
FLeft:=X; FLeft := X;
FTop:=Y; FTop := Y;
end; end;
procedure TfrmCKProductJYHZList.TBPrintClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBPrintClick(Sender: TObject);
begin begin
RMGridReport1.PreviewButtons:=[pbZoom,pbLoad,pbSave,pbPrint,pbFind,pbPageSetup,pbExit,pbExport,pbNavigator]; RMGridReport1.PreviewButtons := [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator];
end; end;
procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject); procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject);
begin begin
if cds_main.IsEmpty then Exit; if cds_main.IsEmpty then
frmJYOrderCDOne:=TfrmJYOrderCDOne.Create(Application); Exit;
with frmJYOrderCDOne do frmJYOrderCDOne := TfrmJYOrderCDOne.Create(Application);
with frmJYOrderCDOne do
begin
orderno.Text := trim(self.CDS_Main.fieldbyname('orderno').asstring);
gangno.Text := trim(self.CDS_Main.fieldbyname('MJStr4').asstring);
PRTColor.Text := trim(self.CDS_Main.fieldbyname('PRTColor').asstring);
if ShowModal = 1 then
begin begin
orderno.Text:=trim(self.CDS_Main.fieldbyname('orderno').asstring);
gangno.Text:=trim(self.CDS_Main.fieldbyname('MJStr4').asstring);
PRTColor.Text:=trim(self.CDS_Main.fieldbyname('PRTColor').asstring);
if ShowModal=1 then
begin
// InitGrid(); // InitGrid();
end;
free;
end; end;
free;
end;
end; end;
end. end.

47
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -604,7 +604,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = OrderNoKeyPress OnKeyPress = OrderNoKeyPress
end end
object MJFK: TEdit object MJFK: TEdit
Tag = 1 Tag = 2
Left = 350 Left = 350
Top = 11 Top = 11
Width = 76 Width = 76
@ -618,7 +618,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 34 Top = 34
Width = 77 Width = 77
Height = 20 Height = 20
TabOrder = 12 TabOrder = 11
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object CDList: TEdit object CDList: TEdit
@ -647,7 +647,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Height = 20 Height = 20
Style = csDropDownList Style = csDropDownList
ItemHeight = 12 ItemHeight = 12
TabOrder = 13 TabOrder = 12
Visible = False Visible = False
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
Items.Strings = ( Items.Strings = (
@ -683,16 +683,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
OnClick = RadioGroup1Click OnClick = RadioGroup1Click
end end
object PRTColor: TComboBox
Tag = 1
Left = 484
Top = 34
Width = 77
Height = 20
ItemHeight = 12
TabOrder = 11
OnChange = PRTColorChange
end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 697 Left = 697
Top = 107 Top = 107
@ -705,7 +695,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 18 TabOrder = 17
Visible = False Visible = False
end end
object MJType: TEdit object MJType: TEdit
@ -714,7 +704,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Width = 93 Width = 93
Height = 20 Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 17 TabOrder = 16
Visible = False Visible = False
end end
object BAOID: TEdit object BAOID: TEdit
@ -723,7 +713,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 34 Top = 34
Width = 77 Width = 77
Height = 20 Height = 20
TabOrder = 14 TabOrder = 13
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object BAONO: TEdit object BAONO: TEdit
@ -750,7 +740,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 34 Top = 34
Width = 77 Width = 77
Height = 20 Height = 20
TabOrder = 15 TabOrder = 14
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object gangno: TEdit object gangno: TEdit
@ -768,7 +758,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 34 Top = 34
Width = 77 Width = 77
Height = 20 Height = 20
TabOrder = 16 TabOrder = 15
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object CheckBox2: TCheckBox object CheckBox2: TCheckBox
@ -783,7 +773,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 19 TabOrder = 18
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 84 Left = 84
@ -803,7 +793,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Height = 20 Height = 20
Style = csDropDownList Style = csDropDownList
ItemHeight = 12 ItemHeight = 12
TabOrder = 20 TabOrder = 19
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
Items.Strings = ( Items.Strings = (
'' ''
@ -823,7 +813,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 21 TabOrder = 20
OnClick = CheckBox3Click OnClick = CheckBox3Click
end end
object PIH: TEdit object PIH: TEdit
@ -832,16 +822,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 10 Top = 10
Width = 77 Width = 77
Height = 20 Height = 20
TabOrder = 22 TabOrder = 21
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object CustomerNoName: TEdit object CustomerNoName: TEdit
Tag = 1 Tag = 2
Left = 350 Left = 350
Top = 35 Top = 35
Width = 76 Width = 76
Height = 20 Height = 20
TabOrder = 23 TabOrder = 22
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
@ -850,6 +840,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 10 Top = 10
Width = 77 Width = 77
Height = 20 Height = 20
TabOrder = 23
OnChange = PRTCodeNameChange
end
object PRTColor: TEdit
Tag = 2
Left = 485
Top = 33
Width = 75
Height = 20
TabOrder = 24 TabOrder = 24
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end

9
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -94,7 +94,6 @@ type
v1Column24: TcxGridDBColumn; v1Column24: TcxGridDBColumn;
RadioGroup1: TRadioGroup; RadioGroup1: TRadioGroup;
MovePanel2: TMovePanel; MovePanel2: TMovePanel;
PRTColor: TComboBox;
v1Column27: TcxGridDBColumn; v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn; v1Column28: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
@ -233,6 +232,7 @@ type
CDS_12: TClientDataSet; CDS_12: TClientDataSet;
DataSource2: TDataSource; DataSource2: TDataSource;
ADOQuery1: TADOQuery; ADOQuery1: TADOQuery;
PRTColor: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -431,7 +431,7 @@ begin
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
// TV2.EndUpdate(); // TV2.EndUpdate();
end; end;
// tbfind.Click; tbfind.Click;
end; end;
procedure TfrmJYOrderCDOne.InitSum(); procedure TfrmJYOrderCDOne.InitSum();
@ -505,7 +505,7 @@ begin
begin begin
fsj := ' HXFlag=0 '; fsj := ' HXFlag=0 ';
end end
else if RadioGroup1.ItemIndex = 1 then else if RadioGroup1.ItemIndex = 1 then
begin begin
fsj := ' HXFlag=1 '; fsj := ' HXFlag=1 ';
end end
@ -521,6 +521,7 @@ begin
begin begin
fsj := SGetFilters(Panel1, 1, 2) + ' and ' + fsj; fsj := SGetFilters(Panel1, 1, 2) + ' and ' + fsj;
end; end;
// ShowMessage(fsj);
SDofilter(ADOQueryMain, fsj); SDofilter(ADOQueryMain, fsj);
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
@ -927,7 +928,7 @@ procedure TfrmJYOrderCDOne.Tv1CellClick(Sender: TcxCustomGridTableView; ACellVie
begin begin
if Order_Main.IsEmpty = False then if Order_Main.IsEmpty = False then
begin begin
InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp); // InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp);
//InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); //InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
//InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp); //InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp);
end; end;