954 lines
32 KiB
ObjectPascal
954 lines
32 KiB
ObjectPascal
|
unit U_ZGJBMX;
|
|||
|
|
|
|||
|
|
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, cxDBLookupComboBox, cxContainer, cxDropDownEdit, cxPC, Menus,
|
|||
|
|
TeEngine, Series, TeeProcs, Chart, DbChart, GanttCh, cxLookAndFeels,
|
|||
|
|
cxLookAndFeelPainters, cxNavigator, cxGridBandedTableView,
|
|||
|
|
cxGridDBBandedTableView, cxButtons, 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
|
|||
|
|
TfrmZGJBMX = class(TForm)
|
|||
|
|
ADOQueryTemp: TADOQuery;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
cxGridPopupMenu2: TcxGridPopupMenu;
|
|||
|
|
Panel2: TPanel;
|
|||
|
|
Panel3: TPanel;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
Tv1: TcxGridDBTableView;
|
|||
|
|
v2Column12: TcxGridDBColumn;
|
|||
|
|
v2Column7: TcxGridDBColumn;
|
|||
|
|
cxGridLevel1: TcxGridLevel;
|
|||
|
|
SH1: TPanel;
|
|||
|
|
ClientDataSet1: TClientDataSet;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
DataSource2: TDataSource;
|
|||
|
|
ClientDataSet2: TClientDataSet;
|
|||
|
|
v1Column4: TcxGridDBColumn;
|
|||
|
|
cxGrid0: TcxGrid;
|
|||
|
|
Tv0: TcxGridDBTableView;
|
|||
|
|
cxGridDBColumn7: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn8: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn9: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn10: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn11: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn12: TcxGridDBColumn;
|
|||
|
|
cxGridLevel3: TcxGridLevel;
|
|||
|
|
Tv0Column1: TcxGridDBColumn;
|
|||
|
|
Tv0Column2: TcxGridDBColumn;
|
|||
|
|
Tv0Column3: TcxGridDBColumn;
|
|||
|
|
Tv0Column4: TcxGridDBColumn;
|
|||
|
|
Tv0Column5: TcxGridDBColumn;
|
|||
|
|
cxGrid2: TcxGrid;
|
|||
|
|
cxGridLevel2: TcxGridLevel;
|
|||
|
|
Tv2: TcxGridDBBandedTableView;
|
|||
|
|
cxStyleRepository1: TcxStyleRepository;
|
|||
|
|
cxStyle1: TcxStyle;
|
|||
|
|
Tv2Column1: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column2: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column3: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column4: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column5: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column6: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column7: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column8: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column9: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column10: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column11: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column12: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column13: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column14: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column15: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column16: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column17: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column18: TcxGridDBBandedColumn;
|
|||
|
|
Tv0Column6: TcxGridDBColumn;
|
|||
|
|
Tv0Column7: TcxGridDBColumn;
|
|||
|
|
Tv0Column8: TcxGridDBColumn;
|
|||
|
|
Tv0Column9: TcxGridDBColumn;
|
|||
|
|
Tv0Column10: TcxGridDBColumn;
|
|||
|
|
DataSource0: TDataSource;
|
|||
|
|
ClientDataSet0: TClientDataSet;
|
|||
|
|
Tv1Column1: TcxGridDBColumn;
|
|||
|
|
Tv1Column2: TcxGridDBColumn;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
DataSource3: TDataSource;
|
|||
|
|
ClientDataSet3: TClientDataSet;
|
|||
|
|
RM2: TRMGridReport;
|
|||
|
|
RMDB_Main: TRMDBDataSet;
|
|||
|
|
ADOQueryPrint: TADOQuery;
|
|||
|
|
Panel4: TPanel;
|
|||
|
|
ClientDataSet5: TClientDataSet;
|
|||
|
|
RichEdit1: TRichEdit;
|
|||
|
|
Tv2Column19: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column20: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column21: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column22: TcxGridDBBandedColumn;
|
|||
|
|
Panel5: TPanel;
|
|||
|
|
Tv0Column11: TcxGridDBColumn;
|
|||
|
|
Tv0Column12: TcxGridDBColumn;
|
|||
|
|
Tv0Column13: TcxGridDBColumn;
|
|||
|
|
Tv0Column14: TcxGridDBColumn;
|
|||
|
|
Tv0Column15: TcxGridDBColumn;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
Tv2Column23: TcxGridDBBandedColumn;
|
|||
|
|
SaveGS: TcxButton;
|
|||
|
|
Tv0Column16: TcxGridDBColumn;
|
|||
|
|
Tv0Column17: TcxGridDBColumn;
|
|||
|
|
Tv0Column18: TcxGridDBColumn;
|
|||
|
|
Tv0Column19: TcxGridDBColumn;
|
|||
|
|
Tv2Column24: TcxGridDBBandedColumn;
|
|||
|
|
Tv2Column25: TcxGridDBBandedColumn;
|
|||
|
|
Panel6: TPanel;
|
|||
|
|
cxGrid3: TcxGrid;
|
|||
|
|
Tv3: TcxGridDBTableView;
|
|||
|
|
Tv3Column2: TcxGridDBColumn;
|
|||
|
|
Tv3Column3: TcxGridDBColumn;
|
|||
|
|
Tv3Column4: TcxGridDBColumn;
|
|||
|
|
Tv3Column5: TcxGridDBColumn;
|
|||
|
|
Tv3Column6: TcxGridDBColumn;
|
|||
|
|
Tv3Column7: TcxGridDBColumn;
|
|||
|
|
Tv3Column8: TcxGridDBColumn;
|
|||
|
|
Tv3Column9: TcxGridDBColumn;
|
|||
|
|
Tv3Column10: TcxGridDBColumn;
|
|||
|
|
Tv3Column11: TcxGridDBColumn;
|
|||
|
|
Tv3Column12: TcxGridDBColumn;
|
|||
|
|
Tv3Column13: TcxGridDBColumn;
|
|||
|
|
Tv3Column14: TcxGridDBColumn;
|
|||
|
|
Tv3Column15: TcxGridDBColumn;
|
|||
|
|
Tv3Column16: TcxGridDBColumn;
|
|||
|
|
Tv3Column17: TcxGridDBColumn;
|
|||
|
|
Tv3Column18: TcxGridDBColumn;
|
|||
|
|
Tv3Column19: TcxGridDBColumn;
|
|||
|
|
Tv3Column20: TcxGridDBColumn;
|
|||
|
|
Tv3Column21: TcxGridDBColumn;
|
|||
|
|
Tv3Column22: TcxGridDBColumn;
|
|||
|
|
Tv3Column23: TcxGridDBColumn;
|
|||
|
|
Tv3Column24: TcxGridDBColumn;
|
|||
|
|
Tv3Column25: TcxGridDBColumn;
|
|||
|
|
Tv3Column26: TcxGridDBColumn;
|
|||
|
|
Tv3Column27: TcxGridDBColumn;
|
|||
|
|
Tv3Column28: TcxGridDBColumn;
|
|||
|
|
Tv3Column29: TcxGridDBColumn;
|
|||
|
|
Tv3Column30: TcxGridDBColumn;
|
|||
|
|
Tv3Column31: TcxGridDBColumn;
|
|||
|
|
Tv3Column32: TcxGridDBColumn;
|
|||
|
|
Tv3Column33: TcxGridDBColumn;
|
|||
|
|
Tv3Column34: TcxGridDBColumn;
|
|||
|
|
Tv3Column35: TcxGridDBColumn;
|
|||
|
|
Tv3Column36: TcxGridDBColumn;
|
|||
|
|
Tv3Column37: TcxGridDBColumn;
|
|||
|
|
Tv3Column38: TcxGridDBColumn;
|
|||
|
|
Tv3Column39: TcxGridDBColumn;
|
|||
|
|
Tv3Column40: TcxGridDBColumn;
|
|||
|
|
Tv3Column41: TcxGridDBColumn;
|
|||
|
|
Tv3Column42: TcxGridDBColumn;
|
|||
|
|
Tv3Column43: TcxGridDBColumn;
|
|||
|
|
Tv3Column44: TcxGridDBColumn;
|
|||
|
|
Tv3Column45: TcxGridDBColumn;
|
|||
|
|
Tv3Column46: TcxGridDBColumn;
|
|||
|
|
Tv3Column47: TcxGridDBColumn;
|
|||
|
|
Tv3Column48: TcxGridDBColumn;
|
|||
|
|
Tv3Column49: TcxGridDBColumn;
|
|||
|
|
Tv3Column50: TcxGridDBColumn;
|
|||
|
|
Tv3Column51: TcxGridDBColumn;
|
|||
|
|
cxGridLevel4: TcxGridLevel;
|
|||
|
|
cxGrid5: TcxGrid;
|
|||
|
|
Tv5: TcxGridDBTableView;
|
|||
|
|
cxGridDBColumn1: TcxGridDBColumn;
|
|||
|
|
cxGridLevel5: TcxGridLevel;
|
|||
|
|
Tv3Column1: TcxGridDBColumn;
|
|||
|
|
Tv3Column52: TcxGridDBColumn;
|
|||
|
|
Tv3Column53: TcxGridDBColumn;
|
|||
|
|
Tv3Column54: TcxGridDBColumn;
|
|||
|
|
Tv3Column55: TcxGridDBColumn;
|
|||
|
|
Tv3Column56: TcxGridDBColumn;
|
|||
|
|
Tv3Column57: TcxGridDBColumn;
|
|||
|
|
Tv3Column58: TcxGridDBColumn;
|
|||
|
|
Tv3Column59: TcxGridDBColumn;
|
|||
|
|
Tv3Column60: TcxGridDBColumn;
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure FormDestroy(Sender: TObject);
|
|||
|
|
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
procedure Panel4DblClick(Sender: TObject);
|
|||
|
|
procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
procedure Tv2Column21CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
procedure cxGridDBColumn7HeaderClick(Sender: TObject);
|
|||
|
|
procedure Tv0CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
procedure cxGridDBColumn9HeaderClick(Sender: TObject);
|
|||
|
|
procedure SH1DblClick(Sender: TObject);
|
|||
|
|
procedure Label1Click(Sender: TObject);
|
|||
|
|
procedure SaveGSClick(Sender: TObject);
|
|||
|
|
procedure Tv2Column9CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
procedure Tv2Column23CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
procedure Tv2Column4CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
|||
|
|
procedure Tv2Column5CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
|||
|
|
procedure Tv2Column2CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
|||
|
|
procedure Tv2Column22CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
|||
|
|
procedure Tv2Column3CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
|||
|
|
procedure Tv3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
private
|
|||
|
|
|
|||
|
|
{ Private declarations }
|
|||
|
|
procedure InitGrid();
|
|||
|
|
public
|
|||
|
|
FMainid, FConNo, FFlag: string;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmZGJBMX: TfrmZGJBMX;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_RTFun, U_JYDayListGang, U_Fun, U_JYOrderCDList,
|
|||
|
|
U_JYOrderCDGangList;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.InitGrid();
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOQueryMain.DisableControls;
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Filtered := False;
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('exec P_View_JD_Main :MainId');
|
|||
|
|
Parameters.ParamByName('MainId').Value := FMainid;
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryMain, ClientDataSet0);
|
|||
|
|
SInitCDSData20(ADOQueryMain, ClientDataSet0);
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Filtered := False;
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('exec P_View_JD_PB :OrderNO');
|
|||
|
|
Parameters.ParamByName('OrderNO').Value := FConNo;
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryMain, ClientDataSet1);
|
|||
|
|
SInitCDSData20(ADOQueryMain, ClientDataSet1);
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Filtered := False;
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('exec P_View_JD :MainId');
|
|||
|
|
Parameters.ParamByName('MainId').Value := FMainid;
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryMain, ClientDataSet2);
|
|||
|
|
SInitCDSData20(ADOQueryMain, ClientDataSet2);
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Filtered := False;
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('exec P_View_JD_HZ_Lie :MainId');
|
|||
|
|
//sql.Add('exec P_Print_CRJD_HZ :MainId');
|
|||
|
|
Parameters.ParamByName('MainId').Value := FMainid;
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryMain, ClientDataSet3);
|
|||
|
|
SInitCDSData20(ADOQueryMain, ClientDataSet3);
|
|||
|
|
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Filtered := False;
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('exec P_Print_CRJD_CD :MainId');
|
|||
|
|
Parameters.ParamByName('MainId').Value := FMainid;
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryMain, ClientDataSet5);
|
|||
|
|
SInitCDSData20(ADOQueryMain, ClientDataSet5);
|
|||
|
|
RichEdit1.Text := Trim(ClientDataSet5.fieldbyname('HZCD').AsString);
|
|||
|
|
RichEdit1.Text := RichEdit1.Text + #13 + #13 + Trim(ClientDataSet5.fieldbyname('ZJCD1').AsString);
|
|||
|
|
RichEdit1.Text := RichEdit1.Text + #13 + #13 + Trim(ClientDataSet5.fieldbyname('ZJCD2').AsString);
|
|||
|
|
|
|||
|
|
finally
|
|||
|
|
ADOQueryMain.EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
Action := caHide;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Trim(DName) = 'ADMIN' then
|
|||
|
|
SaveGS.Visible := True;
|
|||
|
|
ReadCxGridAll(trim(self.Caption) + '0', Tv0);
|
|||
|
|
ReadCxGridAll(trim(self.Caption) + '1', Tv1);
|
|||
|
|
ReadCxGridAll(trim(self.Caption) + '333', Tv3);
|
|||
|
|
ReadCxBandedGridAll(trim(self.Caption) + '2', Tv2);
|
|||
|
|
InitGrid();
|
|||
|
|
FFlag := '';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.FormDestroy(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmZGJBMX := nil;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
var
|
|||
|
|
fPrintFile: string;
|
|||
|
|
Txt, fImagePath: string;
|
|||
|
|
Moudle: THandle;
|
|||
|
|
Makebar: TMakebar;
|
|||
|
|
Mixtext: TMixtext;
|
|||
|
|
begin
|
|||
|
|
if Tv2.Controller.FocusedColumn.Tag = 1 then
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmJYDayListGang := TfrmJYDayListGang.Create(Application);
|
|||
|
|
with frmJYDayListGang do
|
|||
|
|
begin
|
|||
|
|
FAPID := Trim(Self.ClientDataSet2.fieldbyname('APID').AsString);
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmJYDayListGang.Free;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end
|
|||
|
|
else if Tv2.Controller.FocusedColumn.Tag = 2 then
|
|||
|
|
begin
|
|||
|
|
if ClientDataSet2.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
ExportFtErpFile('<27><><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD><D6BF>뵥.rmf', ADOQueryTemp);
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select TOp 1 * from WFB_MJJY A where A.APID=''' + Trim(ClientDataSet2.fieldbyname('APID').AsString) + ''' and isnull(RKOrdID,'''')<>'''' ');
|
|||
|
|
sql.Add(' and isnull(Mjstr4,'''')=''' + Trim(ClientDataSet2.fieldbyname('Ganghao').AsString) + '''');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
with ClientDataSet2 do
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
with ADOQueryPrint do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add(' exec P_Print_RKMDGangNo2 ');
|
|||
|
|
SQL.Add(' @RKOrdID=''' + Trim(ADOQueryTemp.fieldbyname('RKOrdID').AsString) + '''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
|||
|
|
@Makebar := GetProcAddress(Moudle, 'Make');
|
|||
|
|
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
|||
|
|
Txt := Trim(ADOQueryPrint.fieldbyname('RKOrdID').AsString);
|
|||
|
|
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
|||
|
|
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
|||
|
|
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
|||
|
|
if FileExists(fImagePath) then
|
|||
|
|
DeleteFile(fImagePath);
|
|||
|
|
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
|||
|
|
except
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD><D6BF>뵥.rmf';
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
RMVariables['QRBARCODE'] := fImagePath;
|
|||
|
|
RM2.LoadFromFile(fPrintFile);
|
|||
|
|
//Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
|||
|
|
// RM2.PrintReport;
|
|||
|
|
RM2.ShowReport;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end
|
|||
|
|
else if Tv2.Controller.FocusedColumn.Tag = 3 then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select TOp 1 * from WFB_MJJY A where A.APID=''' + Trim(ClientDataSet2.fieldbyname('APID').AsString) + ''' and isnull(RKOrdID,'''')<>'''' ');
|
|||
|
|
sql.Add(' and isnull(Mjstr4,'''')=''' + Trim(ClientDataSet2.fieldbyname('Ganghao').AsString) + '''');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with ADOQueryPrint do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add(' exec P_Print_RKMDGangNo_CK ');
|
|||
|
|
SQL.Add(' @RKOrdID=''' + Trim(ADOQueryTemp.fieldbyname('RKOrdID').AsString) + '''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
|||
|
|
@Makebar := GetProcAddress(Moudle, 'Make');
|
|||
|
|
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
|||
|
|
Txt := Trim(ADOQueryPrint.fieldbyname('RKOrdID').AsString);
|
|||
|
|
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
|||
|
|
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
|||
|
|
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
|||
|
|
if FileExists(fImagePath) then
|
|||
|
|
DeleteFile(fImagePath);
|
|||
|
|
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
|||
|
|
except
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
ExportFtErpFile('<27><><EFBFBD><EFBFBD><EFBFBD>뵥GJ.rmf', ADOQueryTemp);
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>뵥GJ.rmf';
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
RMVariables['QRBARCODE'] := fImagePath;
|
|||
|
|
RM2.LoadFromFile(fPrintFile);
|
|||
|
|
//Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
|||
|
|
// RM2.PrintReport;
|
|||
|
|
RM2.ShowReport;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else if Tv2.Controller.FocusedColumn.Tag = 4 then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select TOp 1 * from WFB_MJJY A where A.APID=''' + Trim(ClientDataSet2.fieldbyname('APID').AsString) + ''' and isnull(RKOrdID,'''')<>'''' ');
|
|||
|
|
sql.Add(' and isnull(Mjstr4,'''')=''' + Trim(ClientDataSet2.fieldbyname('Ganghao').AsString) + '''');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with ADOQueryPrint do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add(' exec P_Print_RKMDGangNo_KC ');
|
|||
|
|
SQL.Add(' @RKOrdID=''' + Trim(ADOQueryTemp.fieldbyname('RKOrdID').AsString) + '''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
|||
|
|
@Makebar := GetProcAddress(Moudle, 'Make');
|
|||
|
|
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
|||
|
|
Txt := Trim(ADOQueryPrint.fieldbyname('RKOrdID').AsString);
|
|||
|
|
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
|||
|
|
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
|||
|
|
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
|||
|
|
if FileExists(fImagePath) then
|
|||
|
|
DeleteFile(fImagePath);
|
|||
|
|
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
|||
|
|
except
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
ExportFtErpFile('<27><><EFBFBD><EFBFBD><EFBFBD>뵥.rmf', ADOQueryTemp);
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>뵥.rmf';
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
RMVariables['QRBARCODE'] := fImagePath;
|
|||
|
|
RM2.LoadFromFile(fPrintFile);
|
|||
|
|
//Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
|||
|
|
// RM2.PrintReport;
|
|||
|
|
RM2.ShowReport;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Panel4DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ClientDataSet2.Filtered := False;
|
|||
|
|
// ClientDataSet2.Filter:='PRTColor='''+Trim(ClientDataSet3.fieldbyname('PRTColor').AsString)+'''';
|
|||
|
|
//ClientDataSet2.Filtered:=True;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
var
|
|||
|
|
Fsunhao: Double;
|
|||
|
|
begin
|
|||
|
|
Fsunhao := AViewInfo.GridRecord.Values[TcxGridDBBandedTableView(Sender).GetColumnByFieldName('PCBFB').Index];
|
|||
|
|
//if VarToStr(Fsunhao)='' then Exit;
|
|||
|
|
|
|||
|
|
{if Fsunhao >=15 then
|
|||
|
|
ACanvas.Brush.Color := $4763FF
|
|||
|
|
else
|
|||
|
|
if (Fsunhao >=10) and (Fsunhao <15) then
|
|||
|
|
begin
|
|||
|
|
ACanvas.Brush.Color := $00FFFF
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end; }
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv2Column21CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
var
|
|||
|
|
id: Integer;
|
|||
|
|
Fsunhao10: string;
|
|||
|
|
Fsunhao: Double;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
id := TV2.GetColumnByFieldName('PCBFB').Index;
|
|||
|
|
|
|||
|
|
if id < 0 then
|
|||
|
|
Exit;
|
|||
|
|
|
|||
|
|
if AViewInfo.GridRecord.Values[id] = null then
|
|||
|
|
Exit;
|
|||
|
|
|
|||
|
|
Fsunhao10 := AViewInfo.GridRecord.Values[id];
|
|||
|
|
|
|||
|
|
Fsunhao := StrToInt(Fsunhao10);
|
|||
|
|
if Fsunhao >= 15 then
|
|||
|
|
ACanvas.Brush.Color := $4763FF
|
|||
|
|
else if (Fsunhao >= 10) and (Fsunhao < 15) then
|
|||
|
|
begin
|
|||
|
|
ACanvas.Brush.Color := $00FFFF
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.cxGridDBColumn7HeaderClick(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
fPrintFile: string;
|
|||
|
|
EngMoney: string;
|
|||
|
|
FEWMID, Txt, fImagePath: string;
|
|||
|
|
Moudle: THandle;
|
|||
|
|
Makebar: TMakebar;
|
|||
|
|
Mixtext: TMixtext;
|
|||
|
|
begin
|
|||
|
|
if ClientDataSet0.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><>Ⱦ<EFBFBD><C8BE><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>.rmf';
|
|||
|
|
Panel5.Visible := True;
|
|||
|
|
Panel5.Refresh;
|
|||
|
|
ExportFtErpFile('<27><>Ⱦ<EFBFBD><C8BE><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>.rmf', ADOQueryPrint);
|
|||
|
|
with ADOQueryPrint do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.*,B.* ');
|
|||
|
|
sql.Add(',OrderDetail=(select Top 1 OrderDetail from PBOrder_Main B where B.OrderNo=A.ConNo and B.Valid=''Y'')');
|
|||
|
|
sql.Add(' from SalesContract_Main A inner join SalesContract_Sub B on A.MainId=B.MainId ');
|
|||
|
|
sql.Add(' where A.Conno=''' + Trim(ClientDataSet0.fieldbyname('Conno').AsString) + '''');
|
|||
|
|
sql.Add(' order by B.XHNo ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
FEWMID := Trim(ADOQueryPrint.fieldbyname('Mainid').AsString);
|
|||
|
|
|
|||
|
|
try
|
|||
|
|
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
|||
|
|
@Makebar := GetProcAddress(Moudle, 'Make');
|
|||
|
|
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
|||
|
|
Txt := Trim(FEWMID);
|
|||
|
|
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
|||
|
|
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
|||
|
|
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
|||
|
|
if FileExists(fImagePath) then
|
|||
|
|
DeleteFile(fImagePath);
|
|||
|
|
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
|||
|
|
except
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
// RMVariables['EngMoney']:=EngMoney;
|
|||
|
|
//RMVariables['enddate']:=enddate.DateTime;
|
|||
|
|
RMVariables['QRBARCODE'] := fImagePath;
|
|||
|
|
RM2.LoadFromFile(fPrintFile);
|
|||
|
|
RM2.ShowReport;
|
|||
|
|
Panel5.Visible := False;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Panel5.Visible := False;
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv0CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
var
|
|||
|
|
fPrintFile: string;
|
|||
|
|
EngMoney, LBName: string;
|
|||
|
|
FEWMID, Txt, fImagePath: string;
|
|||
|
|
Moudle: THandle;
|
|||
|
|
Makebar: TMakebar;
|
|||
|
|
Mixtext: TMixtext;
|
|||
|
|
begin
|
|||
|
|
if Tv0.Controller.FocusedColumn.Tag = 1 then
|
|||
|
|
begin
|
|||
|
|
if ClientDataSet0.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
|
|||
|
|
LBName := 'Ⱦ<><C8BE>ָʾ<D6B8><CABE>';
|
|||
|
|
Panel5.Visible := True;
|
|||
|
|
Panel5.Refresh;
|
|||
|
|
ExportFtErpFile(Trim(LBName) + '.rmf', ADOQueryTemp);
|
|||
|
|
with ADOQueryPrint do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('exec P_Print_Order');
|
|||
|
|
sql.add('@mainID=' + quotedstr(trim(ClientDataSet0.fieldbyname('MainID').AsString)));
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
FEWMID := Trim(ClientDataSet0.fieldbyname('Mainid').AsString);
|
|||
|
|
|
|||
|
|
try
|
|||
|
|
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
|||
|
|
@Makebar := GetProcAddress(Moudle, 'Make');
|
|||
|
|
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
|||
|
|
Txt := Trim(FEWMID);
|
|||
|
|
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
|||
|
|
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
|||
|
|
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
|||
|
|
if FileExists(fImagePath) then
|
|||
|
|
DeleteFile(fImagePath);
|
|||
|
|
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
|||
|
|
except
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf';
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
RMVariables['QRBARCODE'] := fImagePath;
|
|||
|
|
RM2.LoadFromFile(fPrintFile);
|
|||
|
|
//RMVariables['SYRName'] := Trim(SYRName);
|
|||
|
|
RM2.ShowReport;
|
|||
|
|
Panel5.Visible := False;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Panel5.Visible := False;
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'), '<27><>ʾ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.cxGridDBColumn9HeaderClick(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
fPrintFile: string;
|
|||
|
|
Txt, fImagePath: string;
|
|||
|
|
Moudle: THandle;
|
|||
|
|
Makebar: TMakebar;
|
|||
|
|
Mixtext: TMixtext;
|
|||
|
|
begin
|
|||
|
|
if ClientDataSet0.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
if trim(ClientDataSet0.fieldbyname('LBName').AsString) = '' then
|
|||
|
|
exit;
|
|||
|
|
Panel5.Visible := True;
|
|||
|
|
Panel5.Refresh;
|
|||
|
|
with ADOQueryPrint do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('exec P_Print_Cs_Roll ');
|
|||
|
|
sql.Add('@mainID=''' + trim(ClientDataSet0.fieldbyname('mainID').AsString) + ''' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
|||
|
|
@Makebar := GetProcAddress(Moudle, 'Make');
|
|||
|
|
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
|||
|
|
Txt := Trim(ADOQueryPrint.fieldbyname('MJID').AsString);
|
|||
|
|
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
|||
|
|
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
|||
|
|
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
|||
|
|
if FileExists(fImagePath) then
|
|||
|
|
DeleteFile(fImagePath);
|
|||
|
|
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
|||
|
|
except
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
ExportFtErpFile10(Trim(ClientDataSet0.fieldbyname('LBName').AsString) + '.rmf', ADOQueryTemp);
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report10\' + Trim(ClientDataSet0.fieldbyname('LBName').AsString) + '.rmf';
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
RMVariables['QRBARCODE'] := fImagePath;
|
|||
|
|
RM2.LoadFromFile(fPrintFile);
|
|||
|
|
RM2.ShowReport;
|
|||
|
|
Panel5.Visible := False;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Panel5.Visible := False;
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD>' + trim(fPrintFile)), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.SH1DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmJYOrderCDList := TfrmJYOrderCDList.Create(Application);
|
|||
|
|
with frmJYOrderCDList do
|
|||
|
|
begin
|
|||
|
|
FMainid := Trim(Self.ClientDataSet0.fieldbyname('Mainid').AsString);
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmJYOrderCDList.Free;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Label1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmJYOrderCDGangList := TfrmJYOrderCDGangList.Create(Application);
|
|||
|
|
with frmJYOrderCDGangList do
|
|||
|
|
begin
|
|||
|
|
FMainid := Trim(Self.ClientDataSet0.fieldbyname('Mainid').AsString);
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmJYOrderCDGangList.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.SaveGSClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Trim(DName) = 'ADMIN' then
|
|||
|
|
begin
|
|||
|
|
Panel5.Visible := True;
|
|||
|
|
Panel5.Refresh;
|
|||
|
|
WriteCxGridAll(trim(self.Caption) + '0', Tv0, ADOQueryCmd, ADOQueryTemp);
|
|||
|
|
WriteCxGridAll(trim(self.Caption) + '1', Tv1, ADOQueryCmd, ADOQueryTemp);
|
|||
|
|
WriteCxGridAll(trim(self.Caption) + '333', Tv3, ADOQueryCmd, ADOQueryTemp);
|
|||
|
|
WriteCxBandedGridAll(trim(self.Caption) + '2', Tv2, ADOQueryCmd, ADOQueryTemp);
|
|||
|
|
Panel5.Visible := False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv2Column9CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
var
|
|||
|
|
id: Integer;
|
|||
|
|
Fsunhao10: string;
|
|||
|
|
Fsunhao: Double;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
id := TV2.GetColumnByFieldName('jyshStr').Index;
|
|||
|
|
|
|||
|
|
if id < 0 then
|
|||
|
|
Exit;
|
|||
|
|
|
|||
|
|
if AViewInfo.GridRecord.Values[id] = null then
|
|||
|
|
Exit;
|
|||
|
|
|
|||
|
|
Fsunhao10 := AViewInfo.GridRecord.Values[id];
|
|||
|
|
|
|||
|
|
Fsunhao := StrToFloat(Fsunhao10);
|
|||
|
|
if Fsunhao >= 3 then
|
|||
|
|
ACanvas.Brush.Color := $00FFFF
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv2Column23CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
var
|
|||
|
|
id: Integer;
|
|||
|
|
Fsunhao10: string;
|
|||
|
|
Fsunhao: Double;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
id := TV2.GetColumnByFieldName('KPJSPC').Index;
|
|||
|
|
|
|||
|
|
if id < 0 then
|
|||
|
|
Exit;
|
|||
|
|
|
|||
|
|
if AViewInfo.GridRecord.Values[id] = null then
|
|||
|
|
Exit;
|
|||
|
|
|
|||
|
|
Fsunhao10 := AViewInfo.GridRecord.Values[id];
|
|||
|
|
|
|||
|
|
Fsunhao := StrToFloat(Fsunhao10);
|
|||
|
|
if Fsunhao < 0 then
|
|||
|
|
Fsunhao := Fsunhao * (-1);
|
|||
|
|
if Fsunhao >= 5 then
|
|||
|
|
ACanvas.Brush.Color := $00FFFF
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv2Column4CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
|||
|
|
var
|
|||
|
|
i, j: Integer;
|
|||
|
|
begin
|
|||
|
|
i := tv2.GetColumnByFieldName('RCGangNo').Index;
|
|||
|
|
j := tv2.GetColumnByFieldName('KpPS').Index;
|
|||
|
|
if (ARow1.Values[i] = ARow2.Values[i]) and (ARow1.Values[j] = ARow2.Values[j]) then
|
|||
|
|
begin
|
|||
|
|
AAreEqual := True;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
AAreEqual := False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv2Column5CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
|||
|
|
var
|
|||
|
|
i, j: Integer;
|
|||
|
|
begin
|
|||
|
|
i := tv2.GetColumnByFieldName('RCGangNo').Index;
|
|||
|
|
j := tv2.GetColumnByFieldName('KpQty').Index;
|
|||
|
|
if (ARow1.Values[i] = ARow2.Values[i]) and (ARow1.Values[j] = ARow2.Values[j]) then
|
|||
|
|
begin
|
|||
|
|
AAreEqual := True;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
AAreEqual := False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv2Column2CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
|||
|
|
var
|
|||
|
|
i, j: Integer;
|
|||
|
|
begin
|
|||
|
|
i := tv2.GetColumnByFieldName('PRTEColor').Index;
|
|||
|
|
j := tv2.GetColumnByFieldName('KPDate').Index;
|
|||
|
|
if (ARow1.Values[i] = ARow2.Values[i]) and (ARow1.Values[j] = ARow2.Values[j]) then
|
|||
|
|
begin
|
|||
|
|
AAreEqual := True;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
AAreEqual := False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv2Column22CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
|||
|
|
var
|
|||
|
|
i, j: Integer;
|
|||
|
|
begin
|
|||
|
|
i := tv2.GetColumnByFieldName('PRTColor').Index;
|
|||
|
|
j := tv2.GetColumnByFieldName('PRTEColor').Index;
|
|||
|
|
if (ARow1.Values[i] = ARow2.Values[i]) and (ARow1.Values[j] = ARow2.Values[j]) then
|
|||
|
|
begin
|
|||
|
|
AAreEqual := True;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
AAreEqual := False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv2Column3CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
|||
|
|
var
|
|||
|
|
i, j: Integer;
|
|||
|
|
begin
|
|||
|
|
i := tv2.GetColumnByFieldName('KPDate').Index;
|
|||
|
|
j := tv2.GetColumnByFieldName('RCGangNo').Index;
|
|||
|
|
if (ARow1.Values[i] = ARow2.Values[i]) and (ARow1.Values[j] = ARow2.Values[j]) then
|
|||
|
|
begin
|
|||
|
|
AAreEqual := True;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
AAreEqual := False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZGJBMX.Tv3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
var
|
|||
|
|
FName: string;
|
|||
|
|
begin
|
|||
|
|
FName := Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
|||
|
|
if ClientDataSet3.Fieldbyname('row').AsInteger <> 1 then
|
|||
|
|
Exit;
|
|||
|
|
if Trim(ClientDataSet3.Fieldbyname(FName).AsString) = '' then
|
|||
|
|
Exit;
|
|||
|
|
if Trim(ClientDataSet3.Fieldbyname(FName).AsString) = '<27><>ɫ' then
|
|||
|
|
Exit;
|
|||
|
|
if Trim(ClientDataSet3.Fieldbyname(FName).AsString) <> '<27>ϼ<EFBFBD>' then
|
|||
|
|
begin
|
|||
|
|
ClientDataSet2.Filter := 'PRTColor=''' + Trim(ClientDataSet3.fieldbyname(FName).AsString) + '''';
|
|||
|
|
ClientDataSet2.Filtered := True;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
ClientDataSet2.Filtered := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|