hanxuntao
/
D6HECHUAN
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
D6HECHUAN/费用模块/u_ch_fee_sea_sales.~pas

973 lines
30 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_ch_fee_sea_sales;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, u_fee, bsSkinCtrls, ComCtrls, bsSkinTabs, dxExEdtr, dxDBTLCl,
dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, DB, ADODB, RxLookup,
StdCtrls, Mask, DBCtrls, wwdblook, wwdbdatetimepicker, wwdbedit,Registry,
Wwdotdot, Wwdbcomb, u_fee_zhu, bsdbctrls, Menus, XPMenu, ExtCtrls;
type
Tfrm_ch_fee_seae_sales = class(TForm)
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinTabSheet4: TbsSkinTabSheet;
t_op_seae1: TDataSource;
t_op_state: TADOQuery;
t_op_state1: TDataSource;
fra_fee1: Tfra_fee;
bsSkinPanel4: TbsSkinPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label19: TLabel;
Label17: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
bsSkinPanel1: TbsSkinPanel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit10: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
Label122: TLabel;
DBMemo33: TDBMemo;
Label121: TLabel;
DBMemo34: TDBMemo;
Label123: TLabel;
DBMemo35: TDBMemo;
Label16: TLabel;
DBMemo1: TDBMemo;
Label163: TLabel;
DBMemo38: TDBMemo;
Label158: TLabel;
DBMemo37: TDBMemo;
Label164: TLabel;
DBMemo39: TDBMemo;
Label165: TLabel;
DBMemo40: TDBMemo;
Label166: TLabel;
DBMemo41: TDBMemo;
Label167: TLabel;
DBMemo42: TDBMemo;
Label170: TLabel;
DBEdit83: TDBEdit;
Label169: TLabel;
DBEdit82: TDBEdit;
DBEdit81: TDBEdit;
DBEdit80: TDBEdit;
Label168: TLabel;
Label125: TLabel;
Label18: TLabel;
Label20: TLabel;
Label124: TLabel;
Label146: TLabel;
Label145: TLabel;
Label32: TLabel;
Label21: TLabel;
Label27: TLabel;
Label30: TLabel;
Label31: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label40: TLabel;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit27: TDBEdit;
DBEdit25: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
Label126: TLabel;
Label25: TLabel;
Label34: TLabel;
Label39: TLabel;
Label26: TLabel;
Label73: TLabel;
Label28: TLabel;
Label35: TLabel;
Label29: TLabel;
Label33: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
DBEdit26: TDBEdit;
DBEdit63: TDBEdit;
bsSkinTabSheet5: TbsSkinTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridDateColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridMaskColumn;
dxDBGrid1Column26: TdxDBGridMaskColumn;
dxDBGrid1Column27: TdxDBGridMaskColumn;
dxDBGrid1Column28: TdxDBGridMaskColumn;
dxDBGrid1Column29: TdxDBGridMaskColumn;
dxDBGrid1Column30: TdxDBGridMaskColumn;
dxDBGrid1Column31: TdxDBGridDateColumn;
dxDBGrid1Column32: TdxDBGridMaskColumn;
dxDBGrid1Column33: TdxDBGridMaskColumn;
dxDBGrid1Column34: TdxDBGridMaskColumn;
dxDBGrid1Column35: TdxDBGridMaskColumn;
dxDBGrid1Column36: TdxDBGridMaskColumn;
dxDBGrid1Column37: TdxDBGridMaskColumn;
dxDBGrid1Column38: TdxDBGridMaskColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid1Column61: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridDateColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridMaskColumn;
dxDBGrid1Column72: TdxDBGridMaskColumn;
dxDBGrid1Column68: TdxDBGridMaskColumn;
dxDBGrid1Column69: TdxDBGridMaskColumn;
dxDBGrid1Column70: TdxDBGridMaskColumn;
dxDBGrid1Column74: TdxDBGridMaskColumn;
dxDBGrid1Column75: TdxDBGridMaskColumn;
dxDBGrid1Column39: TdxDBGridColumn;
dxDBGrid1Column40: TdxDBGridColumn;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridCheckColumn;
dxDBGrid2Column3: TdxDBGridDateColumn;
dxDBGrid2Column4: TdxDBGridMaskColumn;
dxDBGrid2Column5: TdxDBGridMaskColumn;
bsSkinPanel3: TbsSkinPanel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
Label62: TLabel;
Label63: TLabel;
Label64: TLabel;
Label65: TLabel;
Label66: TLabel;
Label67: TLabel;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
bsSkinPanel5: TbsSkinPanel;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label78: TLabel;
DBEdit33: TDBEdit;
DBEdit34: TDBEdit;
DBEdit35: TDBEdit;
DBEdit36: TDBEdit;
DBEdit37: TDBEdit;
DBEdit38: TDBEdit;
DBEdit39: TDBEdit;
dxDBGrid2Column6: TdxDBGridColumn;
dxDBGrid2Column7: TdxDBGridColumn;
dxDBGrid1Column73: TdxDBGridColumn;
DBEdit11: TDBEdit;
Label79: TLabel;
DBEdit40: TDBEdit;
XPMenu1: TXPMenu;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
bsSkinGroupBox1: TbsSkinGroupBox;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
DBEdit19: TDBEdit;
bsSkinGroupBox5: TbsSkinGroupBox;
bsSkinGroupBox2: TbsSkinGroupBox;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Label80: TLabel;
Label81: TLabel;
Label82: TLabel;
Label83: TLabel;
wwDBDateTimePicker5: TwwDBDateTimePicker;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
wwDBDateTimePicker9: TwwDBDateTimePicker;
bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
wwDBDateTimePicker10: TwwDBDateTimePicker;
DBEdit41: TDBEdit;
bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
DBEdit42: TDBEdit;
DBEdit43: TDBEdit;
DBEdit44: TDBEdit;
DBMemo11: TDBMemo;
DBMemo12: TDBMemo;
bsSkinGroupBox3: TbsSkinGroupBox;
t_op_card: TADOQuery;
t_op_card1: TDataSource;
dxDBGrid3: TdxDBGrid;
dxDBGridButtonColumn1: TdxDBGridButtonColumn;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridCheckColumn1: TdxDBGridCheckColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGridCheckColumn2: TdxDBGridCheckColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
DBEdit45: TDBEdit;
DBEdit46: TDBEdit;
DBEdit48: TDBEdit;
DBEdit49: TDBEdit;
DBEdit50: TDBEdit;
DBEdit51: TDBEdit;
DBEdit52: TDBEdit;
DBEdit53: TDBEdit;
DBEdit54: TDBEdit;
DBEdit55: TDBEdit;
DBEdit56: TDBEdit;
DBEdit57: TDBEdit;
DBEdit58: TDBEdit;
DBEdit59: TDBEdit;
DBEdit60: TDBEdit;
DBEdit61: TDBEdit;
DBEdit62: TDBEdit;
DBEdit64: TDBEdit;
DBEdit65: TDBEdit;
DBEdit66: TDBEdit;
DBEdit67: TDBEdit;
DBEdit68: TDBEdit;
DBEdit69: TDBEdit;
DBEdit70: TDBEdit;
DBEdit71: TDBEdit;
DBEdit72: TDBEdit;
DBEdit73: TDBEdit;
DBEdit74: TDBEdit;
DBEdit75: TDBEdit;
DBEdit76: TDBEdit;
DBEdit77: TDBEdit;
DBEdit78: TDBEdit;
DBEdit79: TDBEdit;
DBEdit84: TDBEdit;
DBEdit85: TDBEdit;
DBEdit86: TDBEdit;
DBEdit87: TDBEdit;
DBEdit88: TDBEdit;
DBEdit89: TDBEdit;
DBEdit90: TDBEdit;
DBEdit91: TDBEdit;
DBEdit92: TDBEdit;
t_op_seae: TADOStoredProc;
PopupMenu3: TPopupMenu;
N37: TMenuItem;
N38: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
t_op_letter: TADOQuery;
t_op_letter1: TDataSource;
t_op_letter_pc: TADOQuery;
t_op_letter_pc1: TDataSource;
bskntbsht1: TbsSkinTabSheet;
dxDBGrid4: TdxDBGrid;
dxDBGrid1HEAD_TO: TdxDBGridMaskColumn;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
bsSkinPanel6: TbsSkinPanel;
Label84: TLabel;
Label85: TLabel;
Label86: TLabel;
Label87: TLabel;
Label88: TLabel;
Label89: TLabel;
Label90: TLabel;
Label91: TLabel;
Label92: TLabel;
Label93: TLabel;
Label94: TLabel;
Label95: TLabel;
Label96: TLabel;
Label97: TLabel;
bsSkinPanel8: TbsSkinPanel;
Label98: TLabel;
Label99: TLabel;
DBEdit93: TDBEdit;
DBEdit94: TDBEdit;
Button5: TButton;
DBEdit95: TDBEdit;
DBEdit96: TDBEdit;
DBEdit97: TDBEdit;
Button2: TButton;
DBEdit98: TDBEdit;
DBEdit99: TDBEdit;
DBEdit100: TDBEdit;
DBEdit101: TDBEdit;
DBEdit102: TDBEdit;
Button1: TButton;
DBEdit103: TDBEdit;
DBEdit104: TDBEdit;
DBEdit105: TDBEdit;
Button3: TButton;
DBEdit106: TDBEdit;
DBEdit107: TDBEdit;
DBMemo13: TDBMemo;
Panel1: TPanel;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
DBEdit108: TDBEdit;
Label100: TLabel;
dxDBGrid1Column71: TdxDBGridColumn;
Label101: TLabel;
DBEdit109: TDBEdit;
Label102: TLabel;
DBEdit110: TDBEdit;
Label103: TLabel;
DBEdit111: TDBEdit;
N9: TMenuItem;
N19: TMenuItem;
dxDBGrid1Column76: TdxDBGridColumn;
Label110: TLabel;
DBEdit112: TDBEdit;
Label111: TLabel;
DBEdit113: TDBEdit;
Label15: TLabel;
DBEdit47: TDBEdit;
Label112: TLabel;
DBEdit114: TDBEdit;
dxDBGrid1Column77: TdxDBGridColumn;
dxDBGrid1Column78: TdxDBGridColumn;
dxDBGrid1Column79: TdxDBGridColumn;
dxDBGrid1Column80: TdxDBGridColumn;
DBEdit115: TDBEdit;
Label155: TLabel;
Label104: TLabel;
DBEdit116: TDBEdit;
Label105: TLabel;
DBEdit117: TDBEdit;
Label106: TLabel;
DBEdit118: TDBEdit;
Label107: TLabel;
DBEdit119: TDBEdit;
Label108: TLabel;
DBEdit120: TDBEdit;
wwDBComboBox14: TwwDBComboBox;
Label159: TLabel;
Label160: TLabel;
DBEdit121: TDBEdit;
dxDBGrid1Column81: TdxDBGridColumn;
dxDBGrid1Column82: TdxDBGridColumn;
RxDBLookupCombo40: TRxDBLookupCombo;
Label116: TLabel;
Label199: TLabel;
DBEdit122: TDBEdit;
DBEdit123: TDBEdit;
Label109: TLabel;
Label156: TLabel;
DBEdit124: TDBEdit;
DBEdit125: TDBEdit;
Label193: TLabel;
dxDBGrid1Column83: TdxDBGridColumn;
dxDBGrid1Column84: TdxDBGridColumn;
dxDBGrid1Column85: TdxDBGridColumn;
dxDBGrid1Column86: TdxDBGridColumn;
bsSkinButton87: TbsSkinButton;
DBEdit126: TDBEdit;
Label200: TLabel;
Label113: TLabel;
dxDBGrid1Column87: TdxDBGridColumn;
dxDBGrid1Column88: TdxDBGridColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure dxDBGrid1DblClick(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure dxDBGrid1Column3CustomDraw(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 dxDBGrid1Column2CustomDraw(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 N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure bsSkinButton1Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure Panel1Resize(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure bsSkinButton87Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_ch_fee_seae_sales: Tfrm_ch_fee_seae_sales;
implementation
uses u_main, my_sys_function, u_data_share, u_op_delnote, u_op_seae_trace;
{$R *.dfm}
procedure Tfrm_ch_fee_seae_sales.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption);
savewwgrid(fra_fee1.wwDBGrid1);
savewwgrid(fra_fee1.wwDBGrid2);
frm_ch_fee_seae_sales.Hide;
frm_ch_fee_seae_sales.ManualFloat(frm_ch_fee_seae_sales.BoundsRect );
frm_main.freeTabs('frm_ch_fee_seae_sales');
action:=cafree;
frm_ch_fee_seae_sales:=nil;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_fee_seae_sales.FormShow(Sender: TObject);
var
ExeFileName,Str:String;
i:integer;
yjstr:string;
begin
ExeFileName:='\SoftWare\DongSheng\<5C><>ʤ<EFBFBD><CAA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ϵͳ\Grid';
t_op_state.close;
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select top 100 * from t_op_seae where '
+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+employee+''''
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
t_op_state.open;
t_op_card.open;
t_op_letter.open;
t_op_letter_pc.Open;
loadreggrid(dxdbgrid1,true,caption);
{
bsSkinButton7.Width:=round(frm_ch_fee_seae_sales.Width/6);
bsSkinButton6.Width:=round(frm_ch_fee_seae_sales.Width/6);
bsSkinButton1.Width:=round(frm_ch_fee_seae_sales.Width/6);
bsSkinButton10.Width:=round(frm_ch_fee_seae_sales.Width/6);
bsSkinButton11.Width:=round(frm_ch_fee_seae_sales.Width/6);
}
loadwwgrid(fra_fee1.wwDBGrid1);
loadwwgrid(fra_fee1.wwDBGrid2);
fra_fee1.edit_type.text:='1';
fra_fee1.edit_data.text:='0021';
fra_fee1.edit_report.text:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
fra_fee1.t_ch_accept.DataSource:=t_op_seae1;
if if_open('216') then
begin
fra_fee1.t_ch_accept.DataSource:=t_op_seae1;
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
fra_fee1.t_ch_accept.close;
fra_fee1.t_ch_accept.SQL.Clear;
fra_fee1.t_ch_accept.SQL.Add('select *,(select top 1 ˳<><CBB3> FROM t_code_fee WHERE <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=T_CH_FEE.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by <20><><EFBFBD><EFBFBD>,˳<><CBB3>,CH_ID');
end ELSE begin
fra_fee1.t_ch_accept.close;
fra_fee1.t_ch_accept.SQL.Clear;
fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> order by (select top 1 ˳<><CBB3> FROM t_code_fee WHERE <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=T_CH_FEE.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>),˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_accept.open;
fra_fee1.a_shen_delete.open;
fra_fee1.a_shen_modify_old.open;
fra_fee1.a_shen_modify_new.open;
fra_fee1.Panel3.visible:=true;
end
else
begin
fra_fee1.Panel3.visible:=false;
end;
if if_open('217') then
begin
yjstr:=getyjstr;
fra_fee1.t_ch_pay.DataSource:=t_op_seae1;
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
fra_fee1.t_ch_pay.close;
fra_fee1.t_ch_pay.SQL.Clear;
fra_fee1.t_ch_pay.SQL.Add('select *,(select top 1 ˳<><CBB3> FROM t_code_fee WHERE <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=T_CH_FEE.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by <20><><EFBFBD><EFBFBD>,˳<><CBB3>,CH_ID');
end
else if (yjstr<>'') then begin
fra_fee1.t_ch_pay.close;
fra_fee1.t_ch_pay.SQL.Clear;
fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and '+yjstr
+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> order by (select top 1 ˳<><CBB3> FROM t_code_fee WHERE <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=T_CH_FEE.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>),˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_pay.open;
fra_fee1.p_shen_delete.open;
fra_fee1.p_shen_modify_old.open;
fra_fee1.p_shen_modify_new.open;
fra_fee1.Panel1.visible:=true;
end
else
begin
fra_fee1.Panel1.visible:=false;
end;
if frm_data_share.t_load_employee.FieldByName('<27><><EFBFBD><EFBFBD>').asboolean then begin
fra_fee1.Panel8.Visible:=true;
fra_fee1.Panel8.Height:=20;
fra_fee1.t_op_gain.DataSource:=t_op_seae1;
fra_fee1.t_op_gain.open;
fra_fee1.Panel9.Visible:=false;
end else begin
if fra_fee1.Panel1.visible and
fra_fee1.Panel3.visible then
begin
fra_fee1.Panel8.Visible:=true;
fra_fee1.Panel8.Height:=20;
fra_fee1.t_op_gain.DataSource:=t_op_seae1;
fra_fee1.t_op_gain.open;
fra_fee1.Panel9.Visible:=false;
end
else
begin
fra_fee1.Panel8.Visible:=false;
end;
end;
if not if_open('267') then begin
fra_fee1.wwDBGrid1.RemoveField('<27><><EFBFBD><EFBFBD>״̬',true);
fra_fee1.wwDBGrid1.RemoveField('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',true);
fra_fee1.wwDBGrid1.RemoveField('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',true);
fra_fee1.wwDBGrid1.RemoveField('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',true);
fra_fee1.wwDBGrid2.RemoveField('<27><><EFBFBD><EFBFBD>״̬',true);
fra_fee1.wwDBGrid2.RemoveField('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',true);
fra_fee1.wwDBGrid2.RemoveField('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',true);
fra_fee1.wwDBGrid2.RemoveField('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',true);
end;
try
t_op_seae.DisableControls;
for i:=0 to dxdbgrid1.ColumnCount-1 do
begin
dxdbgrid1.Columns[i].Sorted:=csNone;
end;
with TRegIniFile.Create do
try
RootKey:=HKEY_LOCAL_MACHINE;
Str:=readString(ExeFileName,'Sort','');
if Str<>'' then
t_op_seae.Sort:=str;
finally
Free;
end;
finally
t_op_seae.First;
t_op_seae.EnableControls;
end;
frm_data_share.t_crm_client.requery;
frm_data_share.t_code_currency.requery;
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1DblClick(Sender: TObject);
begin
bsSkinTabSheet3.Show;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton11Click(Sender: TObject);
begin
bsSkinTabSheet2.Show;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton7Click(Sender: TObject);
begin
if not t_op_seae.Bof then
t_op_seae.Prior;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton6Click(Sender: TObject);
begin
if not t_op_seae.eof then
t_op_seae.next;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton10Click(Sender: TObject);
begin
query_seae(2,'0021');
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1Column3CustomDraw(
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
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1Column2CustomDraw(
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 ANode.Strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>' then begin
AColor:=clBtnFace;
AFont.Color:=clred;
end else if ANode.Strings[dxDBGrid1Column2.Index]='<27><>׼ɾ<D7BC><C9BE>' then begin
AColor:=clBtnFace;
AFont.Color:=clred;
end else begin
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
AFont.Color:=clblack;
end;
end;
procedure Tfrm_ch_fee_seae_sales.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_ch_fee_seae_sales.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_ch_fee_seae_sales.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,11);
end;
procedure Tfrm_ch_fee_seae_sales.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton1Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_ch_fee_seae_sales.N37Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N17Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
+''''+'¼<><C2BC>״̬'+''''+') '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N34Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+')) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N36Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+')) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N1Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N4Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N5Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee )'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N8Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton9Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae1,nil,nil,nil,t_op_seae1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton4Click(Sender: TObject);
var
aQuery:TAdoQuery;
begin
if (t_op_seae.FieldByName('ҵ<><D2B5>״̬').AsString='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') or (t_op_seae.FieldByName('ҵ<><D2B5>״̬').AsString='<27><>׼ɾ<D7BC><C9BE>') then begin
MessageDlg('<27><>״̬<D7B4><CCAC><EFBFBD>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ҵ<EFBFBD><D2B5>!',mtWarning,[mbOk],0);
end else begin
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then begin
frm_op_delnote:=Tfrm_op_delnote.Create(self);
try
frm_op_delnote.DataSource1.DataSet:=t_op_seae;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;sql.clear;
sql.Add('delete from t_op_delnote where <20><><EFBFBD><EFBFBD>='''+t_op_seae['<27><><EFBFBD><EFBFBD>']+'''');
ExecSQL;
end;
finally
freeandnil(aQuery);
end;
frm_op_delnote.t_op_delnote.Requery;
frm_op_delnote.t_op_delnote.open;
frm_op_delnote.t_op_delnote.Insert;
if frm_op_delnote.ShowModal=mrOk then begin
t_op_seae.edit;
t_op_seae.FieldByName('ҵ<><D2B5>״̬').AsString:='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>';
t_op_seae.post;
end;
finally
FreeAndNil(frm_op_delnote);
end;
end;
end;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton2Click(Sender: TObject);
begin
if (t_op_seae.FieldByName('ҵ<><D2B5>״̬').AsString='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then begin
t_op_seae.edit;
t_op_seae.FieldByName('ҵ<><D2B5>״̬').AsString:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_seae.post;
end;
end;
procedure Tfrm_ch_fee_seae_sales.Panel1Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel1.Width/10);
bsSkinButton7.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton9.Width:=i;
// bsSkinButton5.Width:=i;
bsSkinButton11.Width:=i;
bsSkinButton87.Width:=i;
end;
procedure Tfrm_ch_fee_seae_sales.N19Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>=''<27><>'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''Ӷ<><D3B6>'' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton87Click(Sender: TObject);
begin
if not assigned(frm_op_seae_trace) then
frm_op_seae_trace:=tfrm_op_seae_trace.Create (self);
frm_op_seae_trace.mblno:=t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
frm_op_seae_trace.GetData;
frm_op_seae_trace.ManualDock(frm_main.SearchTabs('frm_op_seae_trace',frm_op_seae_trace.caption),nil,alClient);
frm_op_seae_trace.show;
end;
end.