D6HECHUAN/费用模块/u_ch_piliang_airi.pas

unit u_ch_piliang_airi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, dxDBGrid, dxDBTLCl, dxGrClms, ADODB, DB,
  BusinessSkinForm, bsSkinCtrls, dxTL, dxDBCtrl, dxCntner;

type
  Tfrm_ch_piliang_airi = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    dxDBGrid2: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridCheckColumn;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    t_op_airi1: TDataSource;
    t_ch_accept: TADOQuery;
    t_ch_accept1: TDataSource;
    t_ch_pay: TADOQuery;
    t_ch_pay1: TDataSource;
    t_sys_report: TADOQuery;
    t_sys_report1: TDataSource;
    t_op_airi: TADOStoredProc;
    t_op_gain: TADOQuery;
    t_op_gain1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridDateColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridMaskColumn;
    dxDBGrid1Column9: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridDateColumn;
    dxDBGrid1Column19: TdxDBGridColumn;
    dxDBGrid1Column20: TdxDBGridMaskColumn;
    dxDBGrid1Column22: TdxDBGridMaskColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column26: TdxDBGridMaskColumn;
    dxDBGrid1Column25: TdxDBGridDateColumn;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ch_piliang_airi: Tfrm_ch_piliang_airi;

implementation

uses my_sys_function;

{$R *.dfm}

procedure Tfrm_ch_piliang_airi.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_ch_piliang_airi.bsSkinButton8Click(Sender: TObject);
begin
  if t_sys_report.IsEmpty then
  begin
    showmessage('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>󵥸<EFBFBD>ʽ<EFBFBD><CABD><EFBFBD>޷<EFBFBD><DEB7><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
    exit;
  end;
  if strtobool(get_parameters_value(2,'false'))then
  begin
    t_op_airi.first;
    while not t_op_airi.eof do
    begin
      t_ch_accept.first;
      while not t_ch_accept.eof do
      begin
        if (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='¼<><C2BC>״̬')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>')
        or(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
        begin
          showmessage('<27><><EFBFBD>ñ<EFBFBD><C3B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD>󷽿<EFBFBD><F3B7BDBF>Դ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD>󵥣<EFBFBD><F3B5A5A3><EFBFBD>');
          exit;
        end;
        t_ch_accept.next;
      end;

      t_ch_pay.first;
      while not t_ch_pay.eof do
      begin
        if (t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='¼<><C2BC>״̬')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>')
        or(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
        begin
          showmessage('<27><><EFBFBD>ñ<EFBFBD><C3B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD>󷽿<EFBFBD><F3B7BDBF>Դ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD>󵥣<EFBFBD><F3B5A5A3><EFBFBD>');
          exit;
        end;
        t_ch_pay.next;
      end;
      t_op_airi.next;
    end;
  end;
  sys_print_piliang('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_sys_report.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,t_op_airi,t_op_airi1,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,nil,nil,nil,nil,nil);
end;

procedure Tfrm_ch_piliang_airi.FormShow(Sender: TObject);
begin
  t_sys_report.Parameters[0].value:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
  t_sys_report.open;
  t_ch_accept.open;
  t_ch_pay.open;
  t_op_gain.open;
end;

end.