456 lines
12 KiB
ObjectPascal
456 lines
12 KiB
ObjectPascal
|
unit U_WXJL;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
|||
|
|
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
|||
|
|
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
|||
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
|||
|
|
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
|||
|
|
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
|||
|
|
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
|||
|
|
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
|||
|
|
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, TeEngine,
|
|||
|
|
Series, TeeProcs, Chart, DbChart, cxLookAndFeels, cxLookAndFeelPainters,
|
|||
|
|
cxNavigator, dxBarBuiltInMenu;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmWXJL = class(TForm)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TBRafresh: TToolButton;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
ADOQueryTemp: TADOQuery;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
ToolButton2: TToolButton;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
ToolButton1: TToolButton;
|
|||
|
|
RM1: TRMGridReport;
|
|||
|
|
RMDB_Main: TRMDBDataSet;
|
|||
|
|
cxGrid2: TcxGrid;
|
|||
|
|
Tv2: TcxGridDBTableView;
|
|||
|
|
cxGridLevel1: TcxGridLevel;
|
|||
|
|
cxGridPopupMenu2: TcxGridPopupMenu;
|
|||
|
|
DS_HZ: TDataSource;
|
|||
|
|
CDS_HZ: TClientDataSet;
|
|||
|
|
PopupMenu1: TPopupMenu;
|
|||
|
|
N1: TMenuItem;
|
|||
|
|
N2: TMenuItem;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
MachineNo: TEdit;
|
|||
|
|
RMXLSExport2: TRMXLSExport;
|
|||
|
|
v2Column8: TcxGridDBColumn;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
v2Column12: TcxGridDBColumn;
|
|||
|
|
ToolButton3: TToolButton;
|
|||
|
|
ADOQueryPrt: TADOQuery;
|
|||
|
|
ToolButton4: TToolButton;
|
|||
|
|
ToolButton5: TToolButton;
|
|||
|
|
Tv2Column2: TcxGridDBColumn;
|
|||
|
|
CDS_DB: TClientDataSet;
|
|||
|
|
DS_DB: TDataSource;
|
|||
|
|
ADOQuerySub: TADOQuery;
|
|||
|
|
ToolButton6: TToolButton;
|
|||
|
|
Tv2Column3: TcxGridDBColumn;
|
|||
|
|
Tv2Column4: TcxGridDBColumn;
|
|||
|
|
Tv2Column5: TcxGridDBColumn;
|
|||
|
|
Tv2Column6: TcxGridDBColumn;
|
|||
|
|
Tv2Column1: TcxGridDBColumn;
|
|||
|
|
Tv2Column7: TcxGridDBColumn;
|
|||
|
|
cxTabControl1: TcxTabControl;
|
|||
|
|
Tv2Column8: TcxGridDBColumn;
|
|||
|
|
Tv2Column9: TcxGridDBColumn;
|
|||
|
|
Tv2Column10: TcxGridDBColumn;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
Fault: TEdit;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
Filler: TEdit;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
repairMan: TEdit;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
Label6: TLabel;
|
|||
|
|
BegDate: TDateTimePicker;
|
|||
|
|
EndDate: TDateTimePicker;
|
|||
|
|
Tv2Column11: TcxGridDBColumn;
|
|||
|
|
Tv2Column12: TcxGridDBColumn;
|
|||
|
|
procedure FormDestroy(Sender: TObject);
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
procedure TBCloseClick(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure TBRafreshClick(Sender: TObject);
|
|||
|
|
procedure ToolButton2Click(Sender: TObject);
|
|||
|
|
procedure ToolButton1Click(Sender: TObject);
|
|||
|
|
procedure cxTabControl1Change(Sender: TObject);
|
|||
|
|
procedure N1Click(Sender: TObject);
|
|||
|
|
procedure N2Click(Sender: TObject);
|
|||
|
|
procedure CustomerChange(Sender: TObject);
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure v2Column8PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure ToolButton3Click(Sender: TObject);
|
|||
|
|
procedure ToolButton4Click(Sender: TObject);
|
|||
|
|
procedure ToolButton5Click(Sender: TObject);
|
|||
|
|
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
private
|
|||
|
|
{ Private declarations }
|
|||
|
|
procedure PrintReport(FZDYNo: string);
|
|||
|
|
procedure InitGrid();
|
|||
|
|
procedure InitGridDB();
|
|||
|
|
public
|
|||
|
|
fFlag: integer;
|
|||
|
|
{ Public declarations }
|
|||
|
|
RKFlag, FCYID, fmanage: string;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmWXJL: TfrmWXJL;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_Fun, U_ZDYHelp;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.PrintReport(FZDYNo: string);
|
|||
|
|
var
|
|||
|
|
fPrintFile, FFCYID: string;
|
|||
|
|
i, j: Integer;
|
|||
|
|
Txt, fImagePath: string;
|
|||
|
|
Moudle: THandle;
|
|||
|
|
Makebar: TMakebar;
|
|||
|
|
Mixtext: TMixtext;
|
|||
|
|
begin
|
|||
|
|
if CDS_HZ.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
|
|||
|
|
ExportFtErpFile('<27><><EFBFBD>̱<EFBFBD>ǩ.rmf', ADOQueryTemp);
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD>̱<EFBFBD>ǩ.rmf';
|
|||
|
|
with ADOQueryPrt do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add(' select * from BS_Tray where TYId=''' + Trim(FZDYNo) + '''');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
|||
|
|
@Makebar := GetProcAddress(Moudle, 'Make');
|
|||
|
|
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
|||
|
|
Txt := Trim(FZDYNo);
|
|||
|
|
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
|
|||
|
|
CDS_HZ.EnableControls;
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
RMVariables['QRBARCODE'] := fImagePath;
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
RM1.LoadFromFile(fPrintFile);
|
|||
|
|
RM1.PrintReport;
|
|||
|
|
// RM1.ShowReport;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile + '!'), '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.InitGrid();
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOQueryMain.DisableControls;
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add(' select A.* ');
|
|||
|
|
sql.Add(' ,CASE WHEN(BegTime is not null and FillTime is not null ) THEN DATEDIFF(mi, FillTime, BegTime) ELSE '''' END AS YDLong ');
|
|||
|
|
sql.Add(' ,CASE WHEN(BegTime is not null and endTime is not null ) THEN DATEDIFF(mi, BegTime, endTime) ELSE '''' END AS WXLong ');
|
|||
|
|
sql.Add(' ,CASE WHEN(DATEDIFF(mi, Filltime, GETDATE())>10 and isnull(status,0)=0 ) THEN 1 ELSE 0 END AS yellow ');
|
|||
|
|
sql.Add(' ,CASE WHEN(DATEDIFF(mi, Filltime, GETDATE())>30 and isnull(status,0)=0 ) THEN 1 ELSE 0 END AS red ');
|
|||
|
|
sql.Add(' from MachineBy_History A ');
|
|||
|
|
sql.Add(' where ByType =''ά<><CEAC>'' ');
|
|||
|
|
sql.add(' and Filltime>=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
|
|||
|
|
sql.Add(' and Filltime<=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
|
|||
|
|
case cxTabControl1.TabIndex of
|
|||
|
|
0:
|
|||
|
|
begin
|
|||
|
|
sql.Add(' and isnull(A.status,''0'')=''0''');
|
|||
|
|
end;
|
|||
|
|
1:
|
|||
|
|
begin
|
|||
|
|
sql.Add(' and isnull(A.status,''0'')=''1''');
|
|||
|
|
end;
|
|||
|
|
2:
|
|||
|
|
begin
|
|||
|
|
sql.Add(' and isnull(A.status,''0'')=''2''');
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
sql.Add(' order by MachineNo ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
|||
|
|
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
|||
|
|
finally
|
|||
|
|
ADOQueryMain.EnableControls;
|
|||
|
|
ToolButton2.Click;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.InitGridDB();
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOQuerySub.DisableControls;
|
|||
|
|
with ADOQuerySub do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add(' select A.*,NextDayS=DateDiff(day, GetDate(),NextTime) ');
|
|||
|
|
sql.Add(' from DB_Thing A ORDER BY isnull(DateDiff(day, GetDate(),NextTime),9999) ');
|
|||
|
|
// ShowMessage(SQL.text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQuerySub, CDS_DB);
|
|||
|
|
SInitCDSData20(ADOQuerySub, CDS_DB);
|
|||
|
|
finally
|
|||
|
|
ADOQuerySub.EnableControls;
|
|||
|
|
ToolButton2.Click;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.FormDestroy(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmWXJL := nil;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
Action := caFree;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
WriteCxGrid(Trim(Self.Caption) + '11', Tv2, '<27><>̨<EFBFBD><CCA8><EFBFBD><EFBFBD>');
|
|||
|
|
Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ReadCxGrid(Trim(Self.Caption) + '11', Tv2, '<27><>̨<EFBFBD><CCA8><EFBFBD><EFBFBD>');
|
|||
|
|
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
|
|||
|
|
begdate.DateTime := Enddate.DateTime - 30;
|
|||
|
|
InitGrid();
|
|||
|
|
// InitGridDB();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.TBRafreshClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
// InitGridDB();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.ToolButton2Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
sql: string;
|
|||
|
|
begin
|
|||
|
|
if ADOQueryMain.Active then
|
|||
|
|
begin
|
|||
|
|
sql := SGetFilters(Panel1, 1, 2);
|
|||
|
|
SDofilter(ADOQueryMain, sql);
|
|||
|
|
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
|||
|
|
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.ToolButton1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if ADOQueryMain.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
SelExportData(Tv2, ADOQueryMain, trim(Self.Caption));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.cxTabControl1Change(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitGrid;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.N1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_HZ.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
with CDS_HZ do
|
|||
|
|
begin
|
|||
|
|
DisableControls;
|
|||
|
|
first;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
fieldbyname('ssel').Value := true;
|
|||
|
|
post;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
First;
|
|||
|
|
EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.N2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_HZ.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
with CDS_HZ do
|
|||
|
|
begin
|
|||
|
|
DisableControls;
|
|||
|
|
first;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
fieldbyname('ssel').Value := false;
|
|||
|
|
post;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
First;
|
|||
|
|
EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.CustomerChange(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ToolButton2.Click;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
fmanage := Trim(DParameters1);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.v2Column8PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalue, FFieldName: string;
|
|||
|
|
begin
|
|||
|
|
mvalue := TcxTextEdit(Sender).EditingText;
|
|||
|
|
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
|||
|
|
try
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
with CDS_HZ do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName(FFieldName).Value := Trim(mvalue);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('UPdate BS_Tray ');
|
|||
|
|
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
|
|||
|
|
sql.Add(' , Editer=''' + Trim(DName) + '''');
|
|||
|
|
sql.Add(' , Edittime=getdate()');
|
|||
|
|
sql.Add(' where TYId=' + quotedstr(CDS_HZ.fieldbyname('TYId').AsString));
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
tv2.Controller.EditingController.ShowEdit();
|
|||
|
|
except
|
|||
|
|
tv2.Controller.EditingController.ShowEdit();
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
end
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.ToolButton3Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('update BS_Tray set EditFlag=0 where TYID=' + QuotedStr(CDS_HZ.FieldByName('TYID').AsString));
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
PrintReport(Trim(CDS_HZ.fieldbyname('TYId').AsString));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.ToolButton4Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
maxId: string;
|
|||
|
|
begin
|
|||
|
|
// KWNo.SetFocus;
|
|||
|
|
if GetLSNo(ADOQueryCmd, maxId, 'DB', 'DB_Thing', 4, 1) = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('insert into DB_Thing(DBID) values(' + quotedstr(Trim(maxId)) + ')');
|
|||
|
|
// ShowMessage(sql.text);
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
// InitGridDB();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.ToolButton5Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_DB.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
|||
|
|
Exit;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete DB_Thing where DBID=' + QuotedStr(CDS_DB.FieldByName('DBID').AsString));
|
|||
|
|
// ShowMessage(sql.text);
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
CDS_DB.Delete;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
var
|
|||
|
|
i: Integer;
|
|||
|
|
begin
|
|||
|
|
if not CDS_HZ.fieldbyname('EditFlag').AsBoolean then
|
|||
|
|
begin
|
|||
|
|
for i := 0 to tv2.ColumnCount - 1 do
|
|||
|
|
begin
|
|||
|
|
if uppercase(tv2.Columns[i].DataBinding.FieldName) <> 'SSEL' then
|
|||
|
|
tv2.Columns[i].Options.Editing := false;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
for i := 0 to tv2.ColumnCount - 1 do
|
|||
|
|
begin
|
|||
|
|
if uppercase(tv2.Columns[i].DataBinding.FieldName) <> 'SSEL' then
|
|||
|
|
tv2.Columns[i].Options.Editing := True;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmWXJL.Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
begin
|
|||
|
|
if AViewInfo.GridRecord.Values[Tv2Column8.Index] = 1 then
|
|||
|
|
ACanvas.Brush.Color := $33ffff;
|
|||
|
|
if AViewInfo.GridRecord.Values[Tv2Column9.Index] = 1 then
|
|||
|
|
ACanvas.Brush.Color := $0000ff;
|
|||
|
|
if AViewInfo.GridRecord.Values[Tv2Column10.Index] = 1 then
|
|||
|
|
ACanvas.Brush.Color := $66ff66;
|
|||
|
|
if AViewInfo.GridRecord.Values[Tv2Column10.Index] = 2 then
|
|||
|
|
ACanvas.Brush.Color := $66ff66;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|