DS6JIEFENG/海运业务/u_op_seae_fenzhang_his.pas

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.