unit u_op_seae_trace;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, RxMemDS, DB, ADODB, Menus, XPMenu, bsSkinCtrls,
dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner, ComCtrls,DateUtils,
bsSkinTabs, ExtCtrls, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
kbmMemTable, kbmMemBinaryStreamFormat, wwdbdatetimepicker, RxLookup,IniFiles,
cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, cxDBData, cxGridBandedTableView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid;
type
Tfrm_op_seae_trace = class(TForm)
Panel1: TPanel;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
XPMenu2: TXPMenu;
bsSkinPanel1: TbsSkinPanel;
t_op_seae_trace1: TDataSource;
t_op_seae_trace: TADOQuery;
dxdbgrid1: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
dxdbgrid1Column18: TdxDBGridColumn;
dxdbgrid1Column19: TdxDBGridColumn;
dxdbgrid1Column20: TdxDBGridColumn;
dxdbgrid1Column21: TdxDBGridColumn;
dxdbgrid1Column22: TdxDBGridColumn;
dxdbgrid1Column23: TdxDBGridColumn;
dxdbgrid1Column24: TdxDBGridColumn;
dxdbgrid1Column25: TdxDBGridColumn;
dxdbgrid1Column26: TdxDBGridColumn;
dxdbgrid1Column27: TdxDBGridColumn;
dxdbgrid1Column28: TdxDBGridColumn;
dxdbgrid1Column29: TdxDBGridColumn;
dxdbgrid1Column30: TdxDBGridColumn;
bsSkinButton10: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
Label131: TLabel;
Edit2: TEdit;
Label210: TLabel;
wwDBDateTimePicker18: TwwDBDateTimePicker;
wwDBDateTimePicker19: TwwDBDateTimePicker;
RxDBLookupCombo57: TRxDBLookupCombo;
Label213: TLabel;
Label1: TLabel;
Label2: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
Label3: TLabel;
wwDBDateTimePicker2: TwwDBDateTimePicker;
bsSkinButton1: TbsSkinButton;
Edit1: TEdit;
Label4: TLabel;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
cxGrid1Level2: TcxGridLevel;
cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn6: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn7: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn8: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn9: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn10: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn11: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn12: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn13: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn14: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn15: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn16: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn17: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn18: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn19: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn20: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn21: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn22: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn23: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn24: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn25: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn26: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn27: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn28: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn29: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn30: TcxGridDBColumn;
cxGrid1BandedTableView1: TcxGridBandedTableView;
cxGrid1BandedTableView1BandedColumn1: TcxGridBandedColumn;
t_op_seae_trace_ctn: TADOQuery;
t_op_seae_trace_ctn1: TDataSource;
cxGrid1DBTableView2: TcxGridDBTableView;
cxGrid1DBTableView2DBColumn1: TcxGridDBColumn;
cxGrid1DBTableView2DBColumn2: TcxGridDBColumn;
cxGrid1DBTableView2DBColumn3: TcxGridDBColumn;
cxGrid1DBTableView2DBColumn4: TcxGridDBColumn;
cxGrid1DBTableView2DBColumn5: TcxGridDBColumn;
cxGrid1DBTableView2DBColumn6: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn31: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn32: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn33: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn34: TcxGridDBColumn;
Button1: TButton;
btn1: TButton;
bsSkinButton9: TbsSkinButton;
cxGrid1DBTableView1DBColumn35: TcxGridDBColumn;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure t_op_seae_traceBeforePost(DataSet: TDataSet);
procedure t_op_seae_traceBeforeDelete(DataSet: TDataSet);
procedure Button1Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
function GetBetwMonth(aBe, aEe: TDate): Integer;
procedure Getcq;
procedure Getlx;
procedure GetProfit;
procedure GetProfitSum;
function GetSALEprofit(SALE: string; aMonth: Integer; profit: Double;
tuo: boolean): Double;
function gettotalprofit(sale: string): double;
function issameMonth(aBe, aEe: TDate): Boolean;
{ Private declarations }
public
sqlstr:WideString;
mblno:string;
procedure GetData;
{ Public declarations }
end;
var
frm_op_seae_trace: Tfrm_op_seae_trace;
rp_rp_total_open:boolean;
implementation
uses u_main, my_sys_function, u_rp_query, u_sys_progress,
u_data_share, u_op_seae;
{$R *.dfm}
procedure Tfrm_op_seae_trace.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
function Tfrm_op_seae_trace.GetSALEprofit(SALE:string;aMonth:Integer;profit:Double;tuo:boolean):Double;
begin
end;
procedure Tfrm_op_seae_trace.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
// savecxgridview(cxGrid1DBTableView1,'cx'+caption+'1');
// savecxgridview(cxGrid1DBTableView3,'cx'+caption+'3');
// savereggrid(dxdbgrid1,caption+'1');
savecxgridview(cxGrid1DBTableView1,'cx'+caption+'1111');
frm_op_seae_trace.Hide;
frm_op_seae_trace.ManualFloat(frm_op_seae_trace.BoundsRect );
frm_main.freeTabs('frm_op_seae_trace');
action:=cafree;
frm_op_seae_trace:=nil;
end;
procedure Tfrm_op_seae_trace.FormShow(Sender: TObject);
begin
// loadreggrid(dxdbgrid1,false,caption+'1');
loadcxgridview(cxGrid1DBTableView1,'cx'+caption+'1111');
end;
procedure Tfrm_op_seae_trace.bsSkinButton9Click(Sender: TObject);
begin
sys_print('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ',2,nil,nil,nil,t_op_seae_trace1,t_op_seae_trace_ctn1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_seae_trace.N10Click(Sender: TObject);
begin
{
update_grid_view_no(dxdbgrid1);
exit;
}
cxGrid1DBTableView1.Columns[cxGrid1DBTableView1.DataController.FocusedRowIndex].Visible:=false;
end;
procedure Tfrm_op_seae_trace.N14Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to cxGrid1DBTableView1.ColumnCount-1 do begin
cxGrid1DBTableView1.Columns[i].Visible:=true;
end;
{
update_grid_view_all(dxdbgrid1);
exit;
}
end;
procedure Tfrm_op_seae_trace.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,211);
exit;
end;
procedure Tfrm_op_seae_trace.N16Click(Sender: TObject);
begin
cxgrid_save_xls(cxGrid1);
// grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_op_seae_trace.GetProfit;
begin
end;
procedure Tfrm_op_seae_trace.GetProfitSum;
begin
end;
procedure Tfrm_op_seae_trace.Getlx;
begin
end;
function Tfrm_op_seae_trace.GetBetwMonth(aBe, aEe: TDate): Integer;
begin
end;
function Tfrm_op_seae_trace.issameMonth(aBe, aEe: TDate): Boolean;
begin
end;
procedure Tfrm_op_seae_trace.Getcq;
begin
end;
function Tfrm_op_seae_trace.gettotalprofit(sale: string): double;
begin
end;
procedure Tfrm_op_seae_trace.bsSkinButton1Click(Sender: TObject);
var
str,ctnstr: widestring;
begin
str := '';
str := query_tiaojian(1, str, 't_op_seae.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ', 'ģ<> <C4A3> ', Edit2.text);
str := query_tiaojian(1, str, 't_op_seae.<2E> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ', '<27> <> <EFBFBD> <EFBFBD> ', wwDBDateTimePicker18.text);
str := query_tiaojian(1, str, 't_op_seae.<2E> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ', 'С <> <D0A1> ', wwDBDateTimePicker19.text);
str := query_tiaojian(1, str, 't_op_seae.ί<> е <EFBFBD> λ', '<27> <> <EFBFBD> <EFBFBD> ', RxDBLookupCombo57.DisplayValues[1]);
str := query_tiaojian(1, str, 't_op_seae.Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ', '<27> <> <EFBFBD> <EFBFBD> ', wwDBDateTimePicker1.text);
str := query_tiaojian(1, str, 't_op_seae.Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ', 'С <> <D0A1> ', wwDBDateTimePicker2.text);
str := query_tiaojian(1, str, 't_op_seae.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ', 'ģ<> <C4A3> ', Edit1.text);
if trim(str)='' then
begin
str:='where ('+open_data('0001','t_op_seae.¼<> <C2BC> <EFBFBD> <EFBFBD> ','t_op_seae.<2E> <> <EFBFBD> <EFBFBD> Ա','t_op_seae.<2E> ͷ<EFBFBD> Ա','t_op_seae.<2E> <> ֤Ա','no','no')+' or t_op_seae.<2E> <> <EFBFBD> ߲<EFBFBD> <DFB2> <EFBFBD> ='''+employee+''' or '+open_data('0021','t_op_seae.<2E> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ','no','no','no','no')+')';
end
else
begin
str:=str+' and ('+open_data('0001','t_op_seae.¼<> <C2BC> <EFBFBD> <EFBFBD> ','t_op_seae.<2E> <> <EFBFBD> <EFBFBD> Ա','t_op_seae.<2E> ͷ<EFBFBD> Ա','t_op_seae.<2E> <> ֤Ա','no','no')+' or t_op_seae.<2E> <> <EFBFBD> ߲<EFBFBD> <DFB2> <EFBFBD> ='''+employee+''' or '+open_data('0021','t_op_seae.<2E> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ','no','no','no','no')+')';
end;
ctnstr:='select t_op_seae_trace_ctn.* from t_op_seae_trace_ctn left join t_op_seae on (t_op_seae_trace_ctn.<2E> <> <EFBFBD> <EFBFBD> =t_op_seae.<2E> <> <EFBFBD> <EFBFBD> ) ' + str + default_sort(53, 't_op_seae', '', 'desc');
str := 'select t_op_seae_trace.*,t_op_seae.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ,t_op_seae.<2E> <> <EFBFBD> <EFBFBD> ˾,t_op_seae.ί<> е <EFBFBD> λ,t_op_seae.<2E> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ,t_op_seae.<2E> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ,t_op_seae.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ,t_op_seae.Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ,t_op_seae.ж<> <D0B6> <EFBFBD> <EFBFBD> ,t_op_seae.Ŀ<> ĵ<EFBFBD> ,t_op_seae.ETD,t_op_seae.<2E> <> װ<EFBFBD> <D7B0> '
+' from t_op_seae left join t_op_seae_trace on (t_op_seae_trace.<2E> <> <EFBFBD> <EFBFBD> =t_op_seae.<2E> <> <EFBFBD> <EFBFBD> ) '
+ str + default_sort(53, 't_op_seae', '', 'desc');
t_op_seae_trace.close;
t_op_seae_trace.sql.clear;
t_op_seae_trace.sql.add(str);
t_op_seae_trace.Open;
if t_op_seae_trace.IsEmpty then
begin
showmessage('û<> м<EFBFBD> <D0BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ݣ<EFBFBD> <DDA3> <EFBFBD> ');
exit;
end;
t_op_seae_trace_ctn.Close;
t_op_seae_trace_ctn.SQL.Clear;
t_op_seae_trace_ctn.SQL.Add(ctnstr);
t_op_seae_trace_ctn.Open;
end;
procedure Tfrm_op_seae_trace.bsSkinButton10Click(Sender: TObject);
begin
query_seae(101,'0001');
end;
procedure Tfrm_op_seae_trace.GetData;
begin
Edit2.text:='';
Edit1.text:='';
wwDBDateTimePicker1.Clear;
wwDBDateTimePicker2.Clear;
wwDBDateTimePicker18.Clear;
wwDBDateTimePicker19.Clear;
RxDBLookupCombo57.ClearValue;
Edit2.text:=mblno;
bsSkinButton1.OnClick(nil);
end;
procedure Tfrm_op_seae_trace.t_op_seae_traceBeforePost(DataSet: TDataSet);
begin
abort;
end;
procedure Tfrm_op_seae_trace.t_op_seae_traceBeforeDelete(
DataSet: TDataSet);
begin
abort;
end;
procedure Tfrm_op_seae_trace.Button1Click(Sender: TObject);
begin
if assigned(frm_op_seae) then begin
frm_op_seae.t_op_seae.close;
frm_op_seae.t_op_seae.sql.clear;
frm_op_seae.t_op_seae.sql.add('select * from t_op_seae where <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> =<3D> <> <EFBFBD> <EFBFBD> and <20> <> <EFBFBD> <EFBFBD> in (select <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> from t_op_seae where <20> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ='''+t_op_seae_trace.fieldbyname('<27> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ').AsString+''') order by <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> DESC,<2C> <> <EFBFBD> <EFBFBD> ,<2C> <> <EFBFBD> <EFBFBD> ,<2C> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ');
frm_op_seae.t_op_seae.Open;
frm_op_seae.ManualDock(frm_main.SearchTabs('frm_op_seae',frm_op_seae.caption),nil,alClient);
frm_op_seae.show;
end;
end;
procedure Tfrm_op_seae_trace.btn1Click(Sender: TObject);
begin
cxGrid1DBTableView1.ViewData.Expand(True);
end;
end.
