unit u_op_kuaidi_check;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, bsSkinCtrls, ExtCtrls, dxExEdtr, dxDBTLCl, dxGrClms,
  dxTL, dxDBCtrl, dxDBGrid, dxCntner, StdCtrls, DBCtrls,
  wwdbdatetimepicker, Mask, ComCtrls, bsSkinTabs, wwdbedit, Wwdotdot,
  Wwdbcomb, RxLookup;

type
  Tfrm_op_kuaidi_check = class(TForm)
    t_op_kuaidi: TADOQuery;
    t_op_kuaidi1: TDataSource;
    v_fee_do_seae: TADOQuery;
    v_fee_do_seae1: TDataSource;
    v_fee_do_seai: TADOQuery;
    v_fee_do_seai1: TDataSource;
    v_fee_do_aire: TADOQuery;
    v_fee_do_aire1: TDataSource;
    v_fee_do_airi: TADOQuery;
    v_fee_do_airi1: TDataSource;
    Panel2: TPanel;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    Notebook1: TNotebook;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label12: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    bsSkinGroupBox2: TbsSkinGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    DBEdit9: TDBEdit;
    DBEdit12: TDBEdit;
    DBMemo2: TDBMemo;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    bsSkinGroupBox3: TbsSkinGroupBox;
    DBMemo3: TDBMemo;
    bsSkinGroupBox4: TbsSkinGroupBox;
    DBMemo4: TDBMemo;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinPageControl3: TbsSkinPageControl;
    bsSkinTabSheet7: TbsSkinTabSheet;
    dxDBGrid3: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn16: TdxDBGridMaskColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridDateColumn7: TdxDBGridDateColumn;
    dxDBGrid3Column17: TdxDBGridColumn;
    dxDBGridMaskColumn31: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridColumn;
    dxDBGrid1Column17: TdxDBGridColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid1Column19: TdxDBGridMaskColumn;
    dxDBGrid1Column20: TdxDBGridMaskColumn;
    dxDBGrid1Column21: TdxDBGridMaskColumn;
    bsSkinTabSheet8: TbsSkinTabSheet;
    dxDBGrid4: TdxDBGrid;
    dxDBGridMaskColumn32: TdxDBGridMaskColumn;
    dxDBGridMaskColumn42: TdxDBGridMaskColumn;
    dxDBGridMaskColumn43: TdxDBGridMaskColumn;
    dxDBGrid2Column22: TdxDBGridColumn;
    dxDBGridMaskColumn44: TdxDBGridMaskColumn;
    dxDBGridDateColumn9: TdxDBGridDateColumn;
    dxDBGridDateColumn10: TdxDBGridDateColumn;
    dxDBGridMaskColumn47: TdxDBGridMaskColumn;
    dxDBGridMaskColumn48: TdxDBGridMaskColumn;
    dxDBGridMaskColumn49: TdxDBGridMaskColumn;
    dxDBGridMaskColumn50: TdxDBGridMaskColumn;
    dxDBGridMaskColumn51: TdxDBGridMaskColumn;
    dxDBGridColumn8: TdxDBGridColumn;
    dxDBGridColumn9: TdxDBGridColumn;
    dxDBGridMaskColumn52: TdxDBGridMaskColumn;
    dxDBGridMaskColumn53: TdxDBGridMaskColumn;
    dxDBGridMaskColumn54: TdxDBGridMaskColumn;
    dxDBGridMaskColumn55: TdxDBGridMaskColumn;
    bsSkinTabSheet9: TbsSkinTabSheet;
    dxDBGrid6: TdxDBGrid;
    dxDBGridMaskColumn56: TdxDBGridMaskColumn;
    dxDBGridMaskColumn57: TdxDBGridMaskColumn;
    dxDBGridMaskColumn58: TdxDBGridMaskColumn;
    dxDBGridMaskColumn59: TdxDBGridMaskColumn;
    dxDBGridDateColumn11: TdxDBGridDateColumn;
    dxDBGridDateColumn12: TdxDBGridDateColumn;
    dxDBGridMaskColumn62: TdxDBGridMaskColumn;
    dxDBGridMaskColumn63: TdxDBGridMaskColumn;
    dxDBGridMaskColumn64: TdxDBGridMaskColumn;
    dxDBGridColumn15: TdxDBGridColumn;
    dxDBGridColumn16: TdxDBGridColumn;
    dxDBGridMaskColumn65: TdxDBGridMaskColumn;
    dxDBGridMaskColumn66: TdxDBGridMaskColumn;
    dxDBGridMaskColumn67: TdxDBGridMaskColumn;
    bsSkinTabSheet10: TbsSkinTabSheet;
    dxDBGrid7: TdxDBGrid;
    dxDBGridMaskColumn68: TdxDBGridMaskColumn;
    dxDBGridMaskColumn69: TdxDBGridMaskColumn;
    dxDBGridMaskColumn70: TdxDBGridMaskColumn;
    dxDBGridMaskColumn71: TdxDBGridMaskColumn;
    dxDBGridDateColumn13: TdxDBGridDateColumn;
    dxDBGridDateColumn14: TdxDBGridDateColumn;
    dxDBGridMaskColumn74: TdxDBGridMaskColumn;
    dxDBGridMaskColumn75: TdxDBGridMaskColumn;
    dxDBGridMaskColumn76: TdxDBGridMaskColumn;
    dxDBGridColumn19: TdxDBGridColumn;
    dxDBGridColumn23: TdxDBGridColumn;
    dxDBGridMaskColumn77: TdxDBGridMaskColumn;
    dxDBGridMaskColumn78: TdxDBGridMaskColumn;
    dxDBGridMaskColumn79: TdxDBGridMaskColumn;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column25: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridDateColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column22: TdxDBGridColumn;
    dxDBGrid1Column23: TdxDBGridColumn;
    dxDBGrid1Column24: TdxDBGridColumn;
    dxDBGrid1Column8: TdxDBGridMaskColumn;
    dxDBGrid1Column9: TdxDBGridDateColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridDateColumn;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label53: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label52: TLabel;
    DBEdit16: TDBEdit;
    Label9: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label50: TLabel;
    wwDBComboBox1: TwwDBComboBox;
    Label51: TLabel;
    DBEdit3: TDBEdit;
    DBEdit11: TDBEdit;
    Label11: TLabel;
    DBEdit17: TDBEdit;
    bsSkinButton3: TbsSkinButton;
    dxDBGrid1Column26: TdxDBGridColumn;
    DBEdit18: TDBEdit;
    Label54: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure Panel2Resize(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    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 DBEdit2Change(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_kuaidi_check: Tfrm_op_kuaidi_check;

implementation

uses u_main, my_sys_function, u_op_kuaidi_query, u_op_kuaidi_shen_do;

{$R *.dfm}

procedure Tfrm_op_kuaidi_check.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption);
  frm_op_kuaidi_check.Hide;
  frm_op_kuaidi_check.ManualFloat(frm_op_kuaidi_check.BoundsRect);
  frm_main.freeTabs('frm_op_kuaidi_check');
  action:=cafree;
  frm_op_kuaidi_check:=nil;
end;

procedure Tfrm_op_kuaidi_check.FormShow(Sender: TObject);
begin
  loadreggrid(dxdbgrid1,false,caption);
  t_op_kuaidi.open;
  v_fee_do_seae.open;
  v_fee_do_seai.open;
  v_fee_do_aire.open;
  v_fee_do_airi.open;
end;

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

procedure Tfrm_op_kuaidi_check.bsSkinButton7Click(Sender: TObject);
begin
  if not t_op_kuaidi.Bof then
    t_op_kuaidi.Prior;
end;

procedure Tfrm_op_kuaidi_check.bsSkinButton6Click(Sender: TObject);
begin
  if not t_op_kuaidi.eof then
    t_op_kuaidi.next;
end;

procedure Tfrm_op_kuaidi_check.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('快递发送申请',2,t_op_kuaidi1,nil,nil,nil,v_fee_do_seae1,v_fee_do_seai1,v_fee_do_aire1,v_fee_do_airi1,nil,nil,nil);
end;

procedure Tfrm_op_kuaidi_check.bsSkinButton2Click(Sender: TObject);
begin
  if t_op_kuaidi.IsEmpty then
    exit;
  if (t_op_kuaidi.fieldbyname('申请状态').asstring<>'提交申请')
  and(t_op_kuaidi.fieldbyname('申请状态').asstring<>'驳回申请') then
  begin
    showmessage('当前快递申请状态不能确认发出！！');
    exit;
  end;
  
  try
    frm_op_kuaidi_shen_do:=tfrm_op_kuaidi_shen_do.Create (self);
    frm_op_kuaidi_shen_do.ShowModal;
  finally
    frm_op_kuaidi_shen_do.Free;
    frm_op_kuaidi_shen_do:=nil;
  end;
  t_op_kuaidi.Refresh; 
end;

procedure Tfrm_op_kuaidi_check.bsSkinButton11Click(Sender: TObject);
begin
  if bsSkinButton11.Caption='察看申请' then
  begin
    if t_op_kuaidi.IsEmpty then
      exit;
    Notebook1.PageIndex:=1;
    bsSkinButton11.Caption:='返回列表';
  end
  else
  begin
    Notebook1.PageIndex:=0;
    bsSkinButton11.Caption:='察看申请';
  end;
end;

procedure Tfrm_op_kuaidi_check.Panel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(Panel2.Width/9);
  bsSkinButton7.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton1.Width:=i;
end;

procedure Tfrm_op_kuaidi_check.bsSkinButton1Click(Sender: TObject);
begin
  t_op_kuaidi.close;
  t_op_kuaidi.SQL.clear;
  t_op_kuaidi.sql.add('select * from t_op_kuaidi where 申请状态='
                     +''''+'提交申请'+''''+' order by 发送编号');
  t_op_kuaidi.open;
end;

procedure Tfrm_op_kuaidi_check.bsSkinButton3Click(Sender: TObject);
begin
  if t_op_kuaidi.IsEmpty then
    exit;
  if (t_op_kuaidi.fieldbyname('申请状态').asstring<>'提交申请')then
  begin
    showmessage('当前快递申请状态不能驳回！！');
    exit;
  end;
  t_op_kuaidi.edit;
  t_op_kuaidi['申请状态']:='驳回申请';
  t_op_kuaidi.post;
  t_op_kuaidi.Refresh; 
  Send_invocie_check_check('驳回快递申请,发送编号:'+t_op_kuaidi.fieldbyname('发送编号').asstring
    ,t_op_kuaidi.fieldbyname('申请人').asstring,'36');
end;

procedure Tfrm_op_kuaidi_check.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]='申请发送') then
    AColor :=clwhite
  else if (ANode.strings[dxDBGrid1Column2.Index]='提交申请') then
    AColor :=clyellow
  else  if (ANode.strings[dxDBGrid1Column2.Index]='驳回申请')then
    AColor :=clred
  else  if (ANode.strings[dxDBGrid1Column2.Index]='确认发出') then
    AColor :=$00DDF21C;
  AFont.Color:=clblack;
end;

procedure Tfrm_op_kuaidi_check.DBEdit2Change(Sender: TObject);
begin
  if (DBEdit2.Text='') or (DBEdit2.Text='申请发送')then
    DBEdit2.Color:=clwhite
  else if (DBEdit2.Text='提交申请') then
    DBEdit2.Color:=clyellow
  else if (DBEdit2.Text='驳回申请') then
    DBEdit2.Color:=clred
  else if (DBEdit2.Text='确认发出') then
    DBEdit2.Color:=$00DDF21C;
end;

procedure Tfrm_op_kuaidi_check.bsSkinButton10Click(Sender: TObject);
begin
  try
    frm_op_kuaidi_query:=tfrm_op_kuaidi_query.Create (self);
    kuaidi_query_num:=2;
    frm_op_kuaidi_query.ShowModal;
  finally
    frm_op_kuaidi_query.Free;
    frm_op_kuaidi_query:=nil;
  end;
end;

end.