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_op_seae_fenzhang_his.pas

215 lines
6.9 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_op_seae_fenzhang_his;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, DB, ADODB, BusinessSkinForm, dxDBGrid, dxDBTLCl,
dxGrClms, dxTL, dxDBCtrl, dxCntner, wwdbdatetimepicker, RxLookup,
StdCtrls, bsSkinCtrls;
type
Tfrm_op_seae_fenzhang_his = class(TForm)
bsSkinPanel1: TbsSkinPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
dxDBGrid1: TdxDBGrid;
bsBusinessSkinForm1: TbsBusinessSkinForm;
t_bill1: TDataSource;
t_bill: TADOQuery;
bsSkinPanel2: TbsSkinPanel;
bsSkinPanel3: TbsSkinPanel;
Label6: TLabel;
Label1: TLabel;
Label9: TLabel;
Label3: TLabel;
Label2: TLabel;
Label10: TLabel;
Edit1: TEdit;
Edit2: TEdit;
RxDBLookupCombo2: TRxDBLookupCombo;
Edit4: TEdit;
Edit3: TEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridDateColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridDateColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridMaskColumn;
t_ch_fee_fenzhang: TADOQuery;
t_ch_fee_fenzhang1: TDataSource;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridColumn;
dxDBGrid1PP: TdxDBGridColumn;
dxDBGrid1CC: TdxDBGridColumn;
dxDBGrid1Column8: TdxDBGridColumn;
dxDBGrid1Column9: TdxDBGridColumn;
dxDBGrid1Column10: TdxDBGridColumn;
dxDBGrid1Column11: TdxDBGridColumn;
dxDBGrid1Column21: TdxDBGridColumn;
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_seae_fenzhang_his: Tfrm_op_seae_fenzhang_his;
implementation
uses u_op_seae_fenzhang, my_sys_function;
{$R *.dfm}
procedure Tfrm_op_seae_fenzhang_his.bsSkinButton10Click(Sender: TObject);
begin
Edit1.text:='';
Edit4.text:='';
RxDBLookupCombo2.ClearValue;
Edit2.text:='';
Edit3.text:='';
wwDBDateTimePicker1.text:='';
end;
procedure Tfrm_op_seae_fenzhang_his.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_fenzhang_his.bsSkinButton2Click(Sender: TObject);
var
str:widestring;
begin
if Edit1.text<>''then
str:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
if Edit4.text<>''then
begin
if str=''then
str:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+''''
else
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
end;
if Edit2.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
end;
if Edit3.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
end;
if RxDBLookupCombo2.DisplayValue<>''then
begin
if str=''then
str:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+''''
else
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
end;
if wwDBDateTimePicker1.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker1.text+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker1.text+'''';
end;
str:='select * from t_op_seae '+str+default_sort(53,'t_op_seae','','');
t_ch_fee_fenzhang.close;
t_bill.close;
t_bill.sql.clear;
t_bill.sql.add(str);
t_bill.open;
t_ch_fee_fenzhang.open;
end;
procedure Tfrm_op_seae_fenzhang_his.bsSkinButton3Click(Sender: TObject);
var
i,k:integer;
begin
if t_ch_fee_fenzhang.IsEmpty then
exit;
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_ch_fee_fenzhang.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
frm_op_seae_fenzhang.t_ch_fee_fenzhang.append;
for k:= 0 to (t_ch_fee_fenzhang.fieldcount-1) do
begin
if (frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName<>'FD_ID')AND(frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD>') then
frm_op_seae_fenzhang.t_ch_fee_fenzhang[frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName]:=t_ch_fee_fenzhang[frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName];
end;
frm_op_seae_fenzhang.t_ch_fee_fenzhang['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.post;
end;
end
else
begin
frm_op_seae_fenzhang.t_ch_fee_fenzhang.append;
for k:= 0 to (t_ch_fee_fenzhang.fieldcount-1) do
begin
if (frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName<>'FD_ID')AND(frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD>') then
frm_op_seae_fenzhang.t_ch_fee_fenzhang[frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName]:=t_ch_fee_fenzhang[frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName];
end;
frm_op_seae_fenzhang.t_ch_fee_fenzhang['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.post;
end;
close;
end;
procedure Tfrm_op_seae_fenzhang_his.bsSkinButton1Click(Sender: TObject);
var
k:integer;
begin
if t_ch_fee_fenzhang.IsEmpty then
exit;
t_ch_fee_fenzhang.first;
while not t_ch_fee_fenzhang.eof do
begin
frm_op_seae_fenzhang.t_ch_fee_fenzhang.append;
for k:= 0 to (t_ch_fee_fenzhang.fieldcount-1) do
begin
if (frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName<>'FD_ID')AND(frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName<>'<27><><EFBFBD><EFBFBD>') then
frm_op_seae_fenzhang.t_ch_fee_fenzhang[frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName]:=t_ch_fee_fenzhang[frm_op_seae_fenzhang.t_ch_fee_fenzhang.fields[k].FieldName];
end;
frm_op_seae_fenzhang.t_ch_fee_fenzhang['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.post;
t_ch_fee_fenzhang.next;
end;
close;
end;
end.