|
|
unit u_op_seae_list;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, ExtCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
|
|
|
dxDBGrid, Grids, Wwdbigrd, Wwdbgrid, StdCtrls, DB,
|
|
|
ADODB, dxDBTLCl, dxGrClms, ComCtrls, bsSkinTabs, DBCtrls, wwdblook,
|
|
|
wwdbdatetimepicker, RxLookup, Menus, XPMenu, Mask, wwdbedit, Wwdotdot,
|
|
|
Wwdbcomb,inifiles;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_seae_list = class(TForm)
|
|
|
Panel2: TPanel;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
t_op_seae: TADOQuery;
|
|
|
t_op_seae1: TDataSource;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
XPMenu1: TXPMenu;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
Label10: TLabel;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
Label5: TLabel;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
Label9: TLabel;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
Label125: TLabel;
|
|
|
wwDBLookupCombo49: TwwDBLookupCombo;
|
|
|
Label30: TLabel;
|
|
|
Edit7: TEdit;
|
|
|
Label6: TLabel;
|
|
|
Edit1: TEdit;
|
|
|
Label3: TLabel;
|
|
|
Edit4: TEdit;
|
|
|
Label1: TLabel;
|
|
|
Edit2: TEdit;
|
|
|
Label4: TLabel;
|
|
|
Label7: TLabel;
|
|
|
ComboBox1: TComboBox;
|
|
|
Label2: TLabel;
|
|
|
Edit3: TEdit;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column27: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column28: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column29: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column31: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column32: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column33: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column34: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column35: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column36: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column37: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column38: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column39: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column40: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column41: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column42: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column43: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column44: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column45: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column46: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column47: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column48: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column49: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column50: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column51: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column52: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column53: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column54: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column55: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column56: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column57: TdxDBGridColumn;
|
|
|
dxDBGrid1Column58: TdxDBGridColumn;
|
|
|
dxDBGrid1Column59: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column60: TdxDBGridMaskColumn;
|
|
|
dxDBGrid11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid110: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column71: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1TEU: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column73: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column74: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column75: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column76: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column77: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column78: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column79: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column80: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column81: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column82: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column83: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column84: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column85: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column86: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column87: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column88: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column89: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column90: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column91: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column92: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column93: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column94: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column95: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column96: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column97: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column98: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column99: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column100: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column101: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column102: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column103: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column104: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column105: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column106: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column107: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column108: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column109: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column110: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column111: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column112: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column113: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column114: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column115: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column116: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column117: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column118: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column119: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column120: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column121: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column122: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column123: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column124: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column125: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column126: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column127: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column128: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column129: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column130: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column131: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column132: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column133: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column134: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column135: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column136: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column137: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column138: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column139: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column140: TdxDBGridColumn;
|
|
|
dxDBGrid1Column141: TdxDBGridColumn;
|
|
|
dxDBGrid1Column142: TdxDBGridColumn;
|
|
|
dxDBGrid1Column143: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column144: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column145: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column146: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column147: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column148: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column149: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column150: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column151: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column152: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column153: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column154: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column155: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column156: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column157: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column158: TdxDBGridColumn;
|
|
|
dxDBGrid1Column159: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column160: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column161: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column162: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column163: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column164: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column165: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column166: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column167: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column168: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column169: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column170: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column171: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column172: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column173: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column174: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column175: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column176: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column177: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column178: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column179: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column180: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column181: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column182: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column183: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column184: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column185: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column186: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column187: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column189: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column190: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column191: TdxDBGridColumn;
|
|
|
dxDBGrid1Column192: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column193: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column206: TdxDBGridMaskColumn;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
lblcount: TLabel;
|
|
|
qryseae_delbunk: TADOQuery;
|
|
|
Label8: TLabel;
|
|
|
RxDBLookupCombo6: TRxDBLookupCombo;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
Label11: TLabel;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
Label12: TLabel;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
|
Label13: TLabel;
|
|
|
ComboBox2: TComboBox;
|
|
|
Label14: TLabel;
|
|
|
ComboBox3: TComboBox;
|
|
|
dxDBGrid1Column194: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column195: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column196: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column197: TdxDBGridColumn;
|
|
|
dxDBGrid1Column198: TdxDBGridColumn;
|
|
|
Label15: TLabel;
|
|
|
wwDBDateTimePicker5: TwwDBDateTimePicker;
|
|
|
Label16: TLabel;
|
|
|
wwDBDateTimePicker6: TwwDBDateTimePicker;
|
|
|
Label17: TLabel;
|
|
|
dxDBGrid1Column199: TdxDBGridColumn;
|
|
|
dxDBGrid1Column200: TdxDBGridColumn;
|
|
|
RxDBLookupCombo12: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure dxDBGrid2Column3CustomDrawCell(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxTreeListColumn; ASelected, AFocused,
|
|
|
ANewItemRow: Boolean; var AText: String; var AColor: TColor;
|
|
|
AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure dxDBGrid1Column4CustomDrawCell(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxTreeListColumn; ASelected, AFocused,
|
|
|
ANewItemRow: Boolean; var AText: String; var AColor: TColor;
|
|
|
AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
|
|
|
procedure dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure dxDBGrid1Column200CustomDrawCell(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxTreeListColumn; ASelected, AFocused,
|
|
|
ANewItemRow: Boolean; var AText: String; var AColor: TColor;
|
|
|
AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
|
|
|
procedure RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo12Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo12Exit(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
seaestr,seaedelstr:string ;
|
|
|
function findstr:string ;
|
|
|
procedure setFootermsg;
|
|
|
procedure loadFindIni ;
|
|
|
procedure writeFindIni ;
|
|
|
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_seae_list: Tfrm_op_seae_list;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
{$R *.dfm}
|
|
|
uses u_main,my_sys_function,u_data_share ;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
writeFindIni;
|
|
|
savereggrid(dxdbgrid1,caption+'1');
|
|
|
frm_op_seae_list.Hide;
|
|
|
frm_op_seae_list.ManualFloat(frm_op_seae_list.BoundsRect );
|
|
|
frm_main.freeTabs('frm_op_seae_list');
|
|
|
action:=cafree;
|
|
|
frm_op_seae_list:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><>λ<EFBFBD><CEBB>',2,nil,nil,nil,nil,t_op_seae1,Nil,nil,nil,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,210);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.FormShow(Sender: TObject);
|
|
|
var i:integer ;
|
|
|
begin
|
|
|
loadFindIni;
|
|
|
loadreggrid(dxdbgrid1,true,caption+'1');
|
|
|
|
|
|
seaestr:='select ' ;
|
|
|
seaedelstr:='select ' ;
|
|
|
|
|
|
qryseae_delbunk.open ;
|
|
|
for i:=0 to qryseae_delbunk.fieldcount-1 do
|
|
|
begin
|
|
|
if i=0 then begin
|
|
|
if (qryseae_delbunk.fields[i].FieldName='<27>Ƿ<EFBFBD><C7B7>ƺ<EFBFBD><C6BA><EFBFBD>') or (qryseae_delbunk.fields[i].FieldName='<27>Ƿ<EFBFBD><C7B7>ĸ<EFBFBD>') then
|
|
|
seaestr:=seaestr+' cast(0 as bit) as '+qryseae_delbunk.Fields[i].FieldName
|
|
|
else if (qryseae_delbunk.fields[i].FieldName='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
seaestr:=seaestr+' ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
else if (qryseae_delbunk.fields[i].FieldName='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
seaestr:=seaestr+' ¼<><C2BC><EFBFBD><EFBFBD> as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
else
|
|
|
seaestr:=seaestr+' '+qryseae_delbunk.Fields[i].FieldName ;
|
|
|
seaedelstr:=seaedelstr+' '+qryseae_delbunk.Fields[i].FieldName ;
|
|
|
end else begin
|
|
|
if (qryseae_delbunk.fields[i].FieldName='<27>Ƿ<EFBFBD><C7B7>ƺ<EFBFBD><C6BA><EFBFBD>') or (qryseae_delbunk.fields[i].FieldName='<27>Ƿ<EFBFBD><C7B7>ĸ<EFBFBD>') then
|
|
|
seaestr:=seaestr+', cast(0 as bit) as '+qryseae_delbunk.Fields[i].FieldName
|
|
|
else if (qryseae_delbunk.fields[i].FieldName='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
seaestr:=seaestr+',¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
else if (qryseae_delbunk.fields[i].FieldName='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
seaestr:=seaestr+',¼<><C2BC><EFBFBD><EFBFBD> as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
else
|
|
|
seaestr:=seaestr+','+qryseae_delbunk.Fields[i].FieldName ;
|
|
|
seaedelstr:=seaedelstr+','+qryseae_delbunk.Fields[i].FieldName ;
|
|
|
end;
|
|
|
end ;
|
|
|
seaestr:=seaestr+' from t_op_seae ' ;
|
|
|
seaedelstr:=seaedelstr+' from t_op_seae_delbunk ' ;
|
|
|
lblcount.Caption:='' ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.dxDBGrid2Column3CustomDrawCell(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
|
|
|
var AText: String; var AColor: TColor; AFont: TFont;
|
|
|
var AAlignment: TAlignment; var ADone: Boolean);
|
|
|
begin
|
|
|
if frm_data_share.t_code_state.Locate('ҵ<><D2B5>״̬',backstate,[])then
|
|
|
AColor:=stringtocolor(frm_data_share.t_code_state.fieldbyname('<27><>ɫ').asstring)
|
|
|
else AColor:=clwhite ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
edit1.Text:='' ;
|
|
|
edit2.text:='' ;
|
|
|
edit4.text:='' ;
|
|
|
edit7.Text:='' ;
|
|
|
wwDBDateTimePicker1.Clear ;
|
|
|
wwDBDateTimePicker2.Clear ;
|
|
|
RxDBLookupCombo12.ClearValue;
|
|
|
RxDBLookupCombo1.ClearValue;
|
|
|
RxDBLookupCombo6.ClearValue ;
|
|
|
RxDBLookupCombo2.ClearValue ;
|
|
|
ComboBox1.ItemIndex:=-1 ;
|
|
|
ComboBox2.ItemIndex:=-1 ;
|
|
|
ComboBox3.ItemIndex:=-1 ;
|
|
|
wwDBLookupCombo49.clear ;
|
|
|
wwDBDateTimePicker3.Clear ;
|
|
|
wwDBDateTimePicker4.Clear ;
|
|
|
wwDBDateTimePicker5.Clear ;
|
|
|
wwDBDateTimePicker6.Clear ;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae_list.findstr: string;
|
|
|
begin
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.bsSkinButton1Click(Sender: TObject);
|
|
|
var str,delstr:string ;
|
|
|
begin
|
|
|
|
|
|
str:='where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><>ͨ<EFBFBD><CDA8>'' and '+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') ;
|
|
|
if edit1.Text<>'' then str:=str+' and <20><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
|
|
|
if edit4.text<>'' then str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
|
|
|
if edit2.text<>'' then str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
|
|
|
if edit7.text<>'' then str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit7.text+'%'+'''';
|
|
|
if edit3.text<>'' then str:=str+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit3.text+'%'+'''';
|
|
|
|
|
|
if wwDBLookupCombo49.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+wwDBLookupCombo49.text+'%'+'''';
|
|
|
if RxDBLookupCombo12.DisplayValue<>'' then str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo12.DisplayValue+'''';
|
|
|
if RxDBLookupCombo1.DisplayValue<>'' then str:=str+' and <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo1.DisplayValue+'''';
|
|
|
if wwDBDateTimePicker1.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
|
|
|
if wwDBDateTimePicker2.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
|
|
|
if wwDBDateTimePicker3.text<>''then
|
|
|
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker3.text+'''';
|
|
|
if wwDBDateTimePicker4.text<>''then
|
|
|
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker4.text+'''';
|
|
|
|
|
|
if ComboBox1.ItemIndex=0 then
|
|
|
str:=str+' and <20>Ƿ<EFBFBD><C7B7>˲<EFBFBD>=1 ';
|
|
|
if ComboBox1.ItemIndex=1 then
|
|
|
str:=str+' and (<28>Ƿ<EFBFBD><C7B7>˲<EFBFBD>=0 or <20>Ƿ<EFBFBD><C7B7>˲<EFBFBD> is null)';
|
|
|
|
|
|
if RxDBLookupCombo2.DisplayValues[1]<>'' then str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
|
|
|
if RxDBLookupCombo6.DisplayValues[1]<>'' then str:=str+' and <20><><EFBFBD><EFBFBD>˾='+''''+RxDBLookupCombo6.DisplayValues[1]+'''';
|
|
|
|
|
|
delstr:=str;
|
|
|
|
|
|
if ComboBox2.ItemIndex=0 then begin
|
|
|
str:=str+' and 2=1 ';
|
|
|
delstr:=delstr+' and <20>Ƿ<EFBFBD><C7B7>ĸ<EFBFBD>=1 ';
|
|
|
end;
|
|
|
if ComboBox2.ItemIndex=1 then begin
|
|
|
str:=str+' and 1=1 ';
|
|
|
delstr:=delstr+' and (<28>Ƿ<EFBFBD><C7B7>ĸ<EFBFBD>=0 or <20>Ƿ<EFBFBD><C7B7>ĸ<EFBFBD> is null) ';
|
|
|
end;
|
|
|
|
|
|
if ComboBox3.ItemIndex=0 then begin
|
|
|
str:=str+' and 2=1 ';
|
|
|
delstr:=delstr+' and <20>Ƿ<EFBFBD><C7B7>ƺ<EFBFBD><C6BA><EFBFBD>=1 ';
|
|
|
end;
|
|
|
if ComboBox3.ItemIndex=1 then begin
|
|
|
str:=str+' and 1=1 ';
|
|
|
delstr:=delstr+' and (<28>Ƿ<EFBFBD><C7B7>ƺ<EFBFBD><C6BA><EFBFBD>=0 or <20>Ƿ<EFBFBD><C7B7>ƺ<EFBFBD><C6BA><EFBFBD> is null) ';
|
|
|
end;
|
|
|
|
|
|
if wwDBDateTimePicker5.text<>''then begin
|
|
|
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker5.text+'''';
|
|
|
delstr:=delstr+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker5.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker6.text<>''then begin
|
|
|
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker6.text+'''';
|
|
|
delstr:=delstr+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker6.text+'''';
|
|
|
end;
|
|
|
delstr:=delstr+' and (<28>Ƿ<EFBFBD><C7B7>˲<EFBFBD>=1 or <20>Ƿ<EFBFBD><C7B7>ƺ<EFBFBD><C6BA><EFBFBD>=1 or <20>Ƿ<EFBFBD><C7B7>ĸ<EFBFBD>=1)';
|
|
|
screen.Cursor:=crSQLwait ;
|
|
|
try
|
|
|
str:=findstr ;
|
|
|
with t_op_seae,SQL do
|
|
|
begin
|
|
|
close ; Clear ;
|
|
|
add(seaedelstr);
|
|
|
add(delstr);
|
|
|
add(' union ');
|
|
|
add(seaestr);
|
|
|
add(str);
|
|
|
open ;
|
|
|
end ;
|
|
|
setfootermsg ;
|
|
|
finally
|
|
|
screen.Cursor:=crDefault ;
|
|
|
end ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.setFootermsg;
|
|
|
var backteu,ggteu,thcteu:integer ;
|
|
|
i,teu1,teu2,teu3,teu4,teu5,teu6,teu7,teu8,teu9,teu10,teuot,teuall:integer;
|
|
|
steu:string;
|
|
|
teu:Array [1..10] of integer;
|
|
|
begin
|
|
|
lblcount.Caption:='Ʊ<><C6B1> <20><>: '+inttostr(t_op_seae.recordcount) ;
|
|
|
ggteu:=0 ; backteu:=0 ;thcteu:=0 ;
|
|
|
teu[1]:=0;
|
|
|
teu[2]:=0;
|
|
|
teu[3]:=0;
|
|
|
teu[4]:=0;
|
|
|
teu[5]:=0;
|
|
|
teu[6]:=0;
|
|
|
teu[7]:=0;
|
|
|
teu[8]:=0;
|
|
|
teu[9]:=0;
|
|
|
teu[10]:=0;
|
|
|
teuot:=0;
|
|
|
teuall:=0;
|
|
|
|
|
|
with t_op_seae do
|
|
|
begin
|
|
|
disablecontrols ;
|
|
|
first ;
|
|
|
while not eof do
|
|
|
begin
|
|
|
if fieldbyname('<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>').asboolean then backteu:=backteu+1;
|
|
|
if fieldbyname('<27>Ƿ<EFBFBD><C7B7>ĸ<EFBFBD>').asboolean then ggteu:=ggteu+1;
|
|
|
if fieldbyname('<27>Ƿ<EFBFBD><C7B7>ƺ<EFBFBD><C6BA><EFBFBD>').asboolean then thcteu:=thcteu+1;
|
|
|
if not fieldbyname('<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>').asboolean then begin
|
|
|
teu[1]:=teu[1]+fieldbyname('<27><><EFBFBD><EFBFBD>1').AsInteger;
|
|
|
teu[2]:=teu[2]+fieldbyname('<27><><EFBFBD><EFBFBD>2').AsInteger;
|
|
|
teu[3]:=teu[3]+fieldbyname('<27><><EFBFBD><EFBFBD>3').AsInteger;
|
|
|
teu[4]:=teu[4]+fieldbyname('<27><><EFBFBD><EFBFBD>4').AsInteger;
|
|
|
teu[5]:=teu[5]+fieldbyname('<27><><EFBFBD><EFBFBD>5').AsInteger;
|
|
|
teu[6]:=teu[6]+fieldbyname('<27><><EFBFBD><EFBFBD>6').AsInteger;
|
|
|
teu[7]:=teu[7]+fieldbyname('<27><><EFBFBD><EFBFBD>7').AsInteger;
|
|
|
teu[8]:=teu[8]+fieldbyname('<27><><EFBFBD><EFBFBD>8').AsInteger;
|
|
|
teu[9]:=teu[9]+fieldbyname('<27><><EFBFBD><EFBFBD>9').AsInteger;
|
|
|
teu[10]:=teu[10]+fieldbyname('<27><><EFBFBD><EFBFBD>10').AsInteger;
|
|
|
teuot:=teuot+fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger;
|
|
|
teuall:=teuall+fieldbyname('<27><>TEU').AsInteger;
|
|
|
end;
|
|
|
next ;
|
|
|
end ;
|
|
|
enablecontrols ;
|
|
|
steu:='<27><>װ<EFBFBD><D7B0>(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD>):';
|
|
|
for i:=1 to 10 do
|
|
|
begin
|
|
|
try
|
|
|
if trim(frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>'+inttostr(i)).asstring)<>'' then
|
|
|
begin
|
|
|
if frm_data_share.t_code_ctn.locate('<27><><EFBFBD><EFBFBD>',trim(frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>'+inttostr(i)).asstring),[]) then
|
|
|
begin
|
|
|
steu:=steu+' '+trim(frm_data_share.t_code_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring)+': '+inttostr(teu[i]);
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
end;
|
|
|
except
|
|
|
;
|
|
|
end;
|
|
|
end;
|
|
|
steu:=steu+' '+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+inttostr(teuot);
|
|
|
steu:=steu+' '+'<27>ϼ<EFBFBD>TEU: '+inttostr(teuall);
|
|
|
|
|
|
lblcount.Caption:='Ʊ<><C6B1><EFBFBD><EFBFBD>: '+inttostr(t_op_seae.recordcount) ;
|
|
|
lblcount.Caption:=lblcount.Caption+' <20>˲<EFBFBD>: '+inttostr(backteu);
|
|
|
lblcount.Caption:=lblcount.Caption+' <20>ĸ<EFBFBD>: '+inttostr(ggteu);
|
|
|
lblcount.Caption:=lblcount.Caption+' <20>ƺ<EFBFBD><C6BA><EFBFBD>: '+inttostr(thcteu);
|
|
|
lblcount.Caption:=lblcount.Caption+' '+steu;
|
|
|
end ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.dxDBGrid1Column4CustomDrawCell(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
|
|
|
var AText: String; var AColor: TColor; AFont: TFont;
|
|
|
var AAlignment: TAlignment; var ADone: Boolean);
|
|
|
begin
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column4.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort(Column,t_op_seae,'<27><><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.loadFindIni;
|
|
|
var
|
|
|
findini:tinifile ;
|
|
|
mysec,tmpname:string;
|
|
|
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|
|
i:integer ;
|
|
|
begin
|
|
|
mysec:='1';
|
|
|
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bunkquery.ini');
|
|
|
try
|
|
|
canload:=findini.ReadBool(mysec,mysec,false);
|
|
|
bsSkinCheckRadioBox1.Checked:=canload ;
|
|
|
if canload then
|
|
|
begin
|
|
|
with bsSkinPanel1 do
|
|
|
for i:=0 to ControlCount-1 do
|
|
|
begin
|
|
|
tmpname:=Controls[i].Name ;
|
|
|
if Controls[i] is TComboBox then
|
|
|
(Controls[i] as TComboBox).Text:=findini.ReadString(mysec,TmpName,'') else
|
|
|
if Controls[i] is TwwDBLookupCombo then
|
|
|
(Controls[i] as TwwDBLookupCombo).Text:=findini.ReadString(mysec,TmpName,'') else
|
|
|
if Controls[i] is TEdit then
|
|
|
(Controls[i] as TEdit).Text:=findini.ReadString(mysec,TmpName,'') else
|
|
|
if Controls[i] is TwwDBDateTimePicker then
|
|
|
(Controls[i] as TwwDBDateTimePicker).Date:=strtodate(findini.ReadString(mysec,TmpName,'')) else
|
|
|
if Controls[i] is TRxDBLookupCombo then
|
|
|
(Controls[i] as TRxDBLookupCombo).Value:=findini.ReadString(mysec,TmpName,'') ;
|
|
|
end ;
|
|
|
end else
|
|
|
begin
|
|
|
end ;
|
|
|
finally
|
|
|
findini.free;
|
|
|
end ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.writeFindIni;
|
|
|
var
|
|
|
findini:tinifile ;
|
|
|
mysec,tmpname:string;
|
|
|
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|
|
i:integer ;
|
|
|
begin
|
|
|
canload:=bsSkinCheckRadioBox1.Checked ;
|
|
|
mysec:='1';
|
|
|
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bunkquery.ini');
|
|
|
try
|
|
|
findini.WriteBool(mysec,mysec,canload);
|
|
|
|
|
|
if canload then
|
|
|
begin
|
|
|
with bsSkinPanel1 do
|
|
|
for i:=0 to ControlCount-1 do
|
|
|
begin
|
|
|
tmpname:=Controls[i].Name ;
|
|
|
if Controls[i] is TComboBox then
|
|
|
findini.WriteString(mysec,TmpName,(Controls[i] as TComboBox).Text) else
|
|
|
if Controls[i] is TwwDBLookupCombo then
|
|
|
findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBLookupCombo).Text) else
|
|
|
if Controls[i] is TEdit then
|
|
|
findini.WriteString(mysec,TmpName,(Controls[i] as TEdit).Text) else
|
|
|
if Controls[i] is TwwDBDateTimePicker then
|
|
|
findini.WriteString(mysec,TmpName,datetostr((Controls[i] as TwwDBDateTimePicker).Date)) else
|
|
|
if Controls[i] is TRxDBLookupCombo then
|
|
|
findini.writeString(mysec,TmpName,(Controls[i] as TRxDBLookupCombo).Value) ;
|
|
|
end ;
|
|
|
end ;
|
|
|
finally
|
|
|
findini.free;
|
|
|
end ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.dxDBGrid1CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if uppercase(ANode.Strings[dxDBGrid1Column196.Index])='TRUE' then begin
|
|
|
AFont.Style:=AFont.Style+[fsStrikeOut];
|
|
|
AFont.Color:=clred;
|
|
|
AColor:=clBtnFace;
|
|
|
exit;
|
|
|
end;
|
|
|
if uppercase(ANode.Strings[dxDBGrid1Column194.Index])='TRUE' then begin
|
|
|
AFont.Style:=AFont.Style+[fsStrikeOut];
|
|
|
AColor:=clYellow;
|
|
|
exit;
|
|
|
end;
|
|
|
if uppercase(ANode.Strings[dxDBGrid1Column195.Index])='TRUE' then begin
|
|
|
AFont.Style:=AFont.Style+[fsStrikeOut];
|
|
|
AColor:=clFuchsia;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.dxDBGrid1Column200CustomDrawCell(
|
|
|
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
|
|
|
var AText: String; var AColor: TColor; AFont: TFont;
|
|
|
var AAlignment: TAlignment; var ADone: Boolean);
|
|
|
begin
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column200.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
begin
|
|
|
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
begin
|
|
|
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.RxDBLookupCombo12Enter(Sender: TObject);
|
|
|
begin
|
|
|
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_list.RxDBLookupCombo12Exit(Sender: TObject);
|
|
|
begin
|
|
|
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
end.
|