DONGSHENG6/公用模块/业务系统/u_op_kuaidi_check.pas

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;
    bsSkinButton4: TbsSkinButton;
    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);
    procedure bsSkinButton4Click(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,
  my_sys_chat;

{$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('<27><><EFBFBD>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',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('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
  and(t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>ȷ<EFBFBD>Ϸ<EFBFBD><CFB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    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='<27>쿴<EFBFBD><ECBFB4><EFBFBD><EFBFBD>' then
  begin
    if t_op_kuaidi.IsEmpty then
      exit;
    Notebook1.PageIndex:=1;
    bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
  end
  else
  begin
    Notebook1.PageIndex:=0;
    bsSkinButton11.Caption:='<27>쿴<EFBFBD><ECBFB4><EFBFBD><EFBFBD>';
  end;
end;

procedure Tfrm_op_kuaidi_check.Panel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(Panel2.Width/10);
  bsSkinButton7.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton4.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 <20><><EFBFBD><EFBFBD>״̬='
                     +''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+' order by <20><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>');
  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('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2>أ<EFBFBD><D8A3><EFBFBD>');
    exit;
  end;
  t_op_kuaidi.edit;
  t_op_kuaidi['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
  t_op_kuaidi.post;
  t_op_kuaidi.Refresh;
  Send_invocie_check_check('<27><><EFBFBD>ؿ<EFBFBD><D8BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>:'+t_op_kuaidi.fieldbyname('<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>').asstring
    ,t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').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]='<27><><EFBFBD>뷢<EFBFBD><EBB7A2>') then
    AColor :=clwhite
  else if (ANode.strings[dxDBGrid1Column2.Index]='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
    AColor :=clyellow
  else  if (ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')then
    AColor :=clred
  else  if (ANode.strings[dxDBGrid1Column2.Index]='ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>') then
    AColor :=$00DDF21C;
  AFont.Color:=clblack;
end;

procedure Tfrm_op_kuaidi_check.DBEdit2Change(Sender: TObject);
begin
  if (DBEdit2.Text='') or (DBEdit2.Text='<27><><EFBFBD>뷢<EFBFBD><EBB7A2>')then
    DBEdit2.Color:=clwhite
  else if (DBEdit2.Text='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
    DBEdit2.Color:=clyellow
  else if (DBEdit2.Text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
    DBEdit2.Color:=clred
  else if (DBEdit2.Text='ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>') 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;

procedure Tfrm_op_kuaidi_check.bsSkinButton4Click(Sender: TObject);
begin
  if t_op_kuaidi.IsEmpty then
    exit;
  if (t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>')then
  begin
    showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬Ϊ:'+t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring+' <20><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  t_op_kuaidi.edit;
  t_op_kuaidi['<27><><EFBFBD><EFBFBD>״̬']:='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>';
  t_op_kuaidi.post;
  t_op_kuaidi.Refresh;

end;

end.