DS6JIEFENG/铁路运输业务/复件 u_op_railway.pas

unit u_op_railway;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, ExtCtrls, XPMenu, Menus, DB, ADODB, dxExEdtr,
  dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner, RxLookup,
  StdCtrls, Mask, DBCtrls, ComCtrls, bsSkinTabs, u_op_sate, u_fee,
  wwdbdatetimepicker, wwdbedit, Wwdotdot, Wwdbcomb, u_op_letter_free,
  wwdblook, bsdbctrls, Grids, DBGridEh, Wwdbigrd, Wwdbgrid, u_op_card,
  bsSkinBoxCtrls,DateUtils, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, cxDBData, cxMaskEdit, cxCalendar,
  cxTextEdit, cxGridDBTableView, cxGridLevel, cxGridCustomTableView,
  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
  cxClasses, cxControls, cxGridCustomView, cxGrid;

type
  Tfrm_op_railway = class(TForm)
    Panel2: TPanel;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    Notebook1: TNotebook;
    t_op_railway: TADOQuery;
    t_op_railway1: TDataSource;
    PopupMenu1: TPopupMenu;
    N31: TMenuItem;
    t_ch_fee: TADOQuery;
    XPMenu1: TXPMenu;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridDateColumn;
    dxDBGrid1Column5: TdxDBGridDateColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid1Column22: TdxDBGridMaskColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column24: TdxDBGridMaskColumn;
    dxDBGrid1Column25: TdxDBGridDateColumn;
    dxDBGrid1Column26: TdxDBGridMaskColumn;
    dxDBGrid1Column19: TdxDBGridColumn;
    bsSkinPanel1: TbsSkinPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label37: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit4: TDBEdit;
    RxDBLookupCombo1: TRxDBLookupCombo;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    fra_fee1: Tfra_fee;
    fra_op_state1: Tfra_op_state;
    dxDBGrid1Column27: TdxDBGridColumn;
    Label65: TLabel;
    DBEdit18: TDBEdit;
    dxDBGrid1Column28: TdxDBGridColumn;
    bsSkinButton13: TbsSkinButton;
    Label41: TLabel;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    PopupMenu3: TPopupMenu;
    N37: TMenuItem;
    N38: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    RxDBLookupCombo31: TRxDBLookupCombo;
    bsSkinTabSheet4: TbsSkinTabSheet;
    fra_op_letter_free1: Tfra_op_letter_free;
    N8: TMenuItem;
    N9: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    dxDBGrid1Column29: TdxDBGridColumn;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinDBText1: TbsSkinDBText;
    N25: TMenuItem;
    N26: TMenuItem;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinTabSheet7: TbsSkinTabSheet;
    fra_op_card1: Tfra_op_card;
    PopupMenu4: TPopupMenu;
    SA1: TMenuItem;
    N27: TMenuItem;
    CA1: TMenuItem;
    N28: TMenuItem;
    Label7: TLabel;
    RxDBLookupCombo2: TRxDBLookupCombo;
    Label53: TLabel;
    wwDBComboBox7: TwwDBComboBox;
    Label8: TLabel;
    DBEdit5: TDBEdit;
    t_op_railway_detail1: TDataSource;
    t_op_railway_detail: TADOQuery;
    bsSkinScrollBox1: TbsSkinScrollBox;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinPanel17: TbsSkinPanel;
    Label96: TLabel;
    Label97: TLabel;
    Label111: TLabel;
    Label16: TLabel;
    Label55: TLabel;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBMemo19: TDBMemo;
    DBEdit14: TDBEdit;
    DBEdit23: TDBEdit;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinPanel3: TbsSkinPanel;
    Splitter1: TSplitter;
    bsSkinPanel4: TbsSkinPanel;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridColumn;
    dxDBGrid2Column2: TdxDBGridColumn;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton14: TbsSkinButton;
    bsSkinButton15: TbsSkinButton;
    bsSkinButton16: TbsSkinButton;
    bsSkinButton17: TbsSkinButton;
    bsSkinButton18: TbsSkinButton;
    bsSkinButton19: TbsSkinButton;
    bsSkinPageControl2: TbsSkinPageControl;
    tab1: TbsSkinTabSheet;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinGroupBox2: TbsSkinGroupBox;
    Label85: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label6: TLabel;
    Label36: TLabel;
    Label38: TLabel;
    Label40: TLabel;
    Label39: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    wwDBLookupCombo52: TwwDBLookupCombo;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    wwDBLookupCombo2: TwwDBLookupCombo;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    RxDBLookupCombo3: TRxDBLookupCombo;
    RxDBLookupCombo4: TRxDBLookupCombo;
    wwDBComboBox1: TwwDBComboBox;
    DBEdit21: TDBEdit;
    DBEdit81: TDBEdit;
    wwDBLookupCombo61: TwwDBLookupCombo;
    DBEdit82: TDBEdit;
    DBEdit83: TDBEdit;
    RxDBLookupCombo5: TRxDBLookupCombo;
    DBEdit22: TDBEdit;
    bsSkinGroupBox3: TbsSkinGroupBox;
    Label22: TLabel;
    Label15: TLabel;
    Label18: TLabel;
    Label26: TLabel;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    wwDBDateTimePicker6: TwwDBDateTimePicker;
    bsSkinGroupBox4: TbsSkinGroupBox;
    Label14: TLabel;
    Label19: TLabel;
    Label25: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label50: TLabel;
    Label24: TLabel;
    DBEdit11: TDBEdit;
    DBEdit15: TDBEdit;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    DBEdit16: TDBEdit;
    wwDBDateTimePicker11: TwwDBDateTimePicker;
    bsSkinGroupBox9: TbsSkinGroupBox;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    DBEdit17: TDBEdit;
    DBEdit19: TDBEdit;
    wwDBDateTimePicker7: TwwDBDateTimePicker;
    wwDBDateTimePicker8: TwwDBDateTimePicker;
    DBEdit20: TDBEdit;
    wwDBDateTimePicker9: TwwDBDateTimePicker;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker10: TwwDBDateTimePicker;
    tab2: TbsSkinTabSheet;
    bsSkinGroupBox10: TbsSkinGroupBox;
    Label51: TLabel;
    wwDBDateTimePicker12: TwwDBDateTimePicker;
    Label54: TLabel;
    wwDBDateTimePicker13: TwwDBDateTimePicker;
    Label52: TLabel;
    wwDBComboBox2: TwwDBComboBox;
    Label10: TLabel;
    RxDBLookupCombo7: TRxDBLookupCombo;
    Label23: TLabel;
    Label13: TLabel;
    Label27: TLabel;
    Label42: TLabel;
    Label17: TLabel;
    RxDBLookupCombo8: TRxDBLookupCombo;
    wwDBComboBox3: TwwDBComboBox;
    RxDBLookupCombo29: TRxDBLookupCombo;
    RxDBLookupCombo30: TRxDBLookupCombo;
    RxDBLookupCombo13: TRxDBLookupCombo;
    Label95: TLabel;
    wwDBLookupCombo5: TwwDBLookupCombo;
    wwDBLookupCombo6: TwwDBLookupCombo;
    DBEdit44: TDBEdit;
    bsSkinGroupBox5: TbsSkinGroupBox;
    Label104: TLabel;
    DBRichEdit3: TDBRichEdit;
    Label56: TLabel;
    DBMemo1: TDBMemo;
    N29: TMenuItem;
    dxDBGrid1Column20: TdxDBGridColumn;
    cxGrid1: TcxGrid;
    cxGrid1DBBandedTableView1: TcxGridDBBandedTableView;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    cxStyle2: TcxStyle;
    cxStyle3: TcxStyle;
    cxStyle4: TcxStyle;
    cxStyle5: TcxStyle;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn6: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn7: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn8: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn9: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn10: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn11: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn12: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn13: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn14: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn15: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn16: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn17: TcxGridDBColumn;
    cxGrid1Level2: TcxGridLevel;
    cxGrid1DBTableView2: TcxGridDBTableView;
    cxGrid1DBTableView2DBColumn1: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn2: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn3: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn4: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn5: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn6: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn7: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn8: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn9: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn10: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn11: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn12: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn13: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn14: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn15: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn16: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn17: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn18: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn19: TcxGridDBColumn;
    cxGrid1DBTableView2DBColumn20: TcxGridDBColumn;
    v_op_railway_detail: TADOQuery;
    v_op_railway_detail1: TDataSource;
    Label60: TLabel;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    Label61: TLabel;
    wwDBDateTimePicker14: TwwDBDateTimePicker;
    tab3: TbsSkinTabSheet;
    bsSkinTabSheet6: TbsSkinTabSheet;
    bsSkinPanel8: TbsSkinPanel;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinScrollBox2: TbsSkinScrollBox;
    Label34: TLabel;
    Label164: TLabel;
    Label110: TLabel;
    Label35: TLabel;
    Label98: TLabel;
    Label99: TLabel;
    Label100: TLabel;
    Label101: TLabel;
    Label102: TLabel;
    Label103: TLabel;
    Label105: TLabel;
    Label106: TLabel;
    Label107: TLabel;
    Label108: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    RxDBLookupCombo16: TRxDBLookupCombo;
    DBMemo3: TDBMemo;
    RxDBLookupCombo11: TRxDBLookupCombo;
    DBMemo18: TDBMemo;
    RxDBLookupCombo17: TRxDBLookupCombo;
    DBMemo4: TDBMemo;
    DBEdit43: TDBEdit;
    DBRichEdit2: TDBRichEdit;
    DBEdit45: TDBEdit;
    DBMemo6: TDBMemo;
    DBMemo7: TDBMemo;
    DBMemo8: TDBMemo;
    DBRichEdit4: TDBRichEdit;
    DBMemo9: TDBMemo;
    DBEdit46: TDBEdit;
    DBEdit47: TDBEdit;
    DBMemo2: TDBMemo;
    DBRichEdit1: TDBRichEdit;
    DBMemo5: TDBMemo;
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure Panel2Resize(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure t_op_railwayBeforeEdit(DataSet: TDataSet);
    procedure t_op_railwayBeforePost(DataSet: TDataSet);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure dxDBGrid1Column3CustomDraw(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 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 DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo13KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit30KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit31KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2Change(Sender: TObject);
    procedure DBEdit3Change(Sender: TObject);
    procedure RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo8Change(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure dxDBGrid1ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
    procedure N9Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure t_op_railwayBeforeDelete(DataSet: TDataSet);
    procedure t_op_railwayPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure t_op_railwayBeforeCancel(DataSet: TDataSet);
    procedure N21Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure dxDBGrid1Column29CustomDraw(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 N26Click(Sender: TObject);
    procedure RxDBLookupCombo16Change(Sender: TObject);
    procedure RxDBLookupCombo17Change(Sender: TObject);
    procedure RxDBLookupCombo16KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo17KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo16Enter(Sender: TObject);
    procedure RxDBLookupCombo16Exit(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinPageControl1Change(Sender: TObject);
    procedure RxDBLookupCombo11Change(Sender: TObject);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton14Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton15Click(Sender: TObject);
    procedure bsSkinButton17Click(Sender: TObject);
    procedure bsSkinButton18Click(Sender: TObject);
    procedure bsSkinButton19Click(Sender: TObject);
    procedure bsSkinButton16Click(Sender: TObject);
    procedure SA1Click(Sender: TObject);
    procedure CA1Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure wwDBLookupCombo52Change(Sender: TObject);
    procedure wwDBLookupCombo2Change(Sender: TObject);
    procedure wwDBLookupCombo5Change(Sender: TObject);
    procedure wwDBLookupCombo6Change(Sender: TObject);
    procedure RxDBLookupCombo3Change(Sender: TObject);
    procedure t_op_railway_detailAfterPost(DataSet: TDataSet);
    procedure t_op_railway_detailAfterOpen(DataSet: TDataSet);
    procedure cxGrid1DBTableView1CellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    procedure update_railctn(table:Tadoquery);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    procedure t_raildatecharge(Sender:TField);
    procedure t_railkgscharge(Sender:TField);

    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_railway: Tfrm_op_railway;
  railwayopen:boolean;

implementation

uses u_main, my_sys_function, u_data_share, u_sys_progress,
  u_op_date_change, u_op_railway_add,u_op_railwayctn_history;

{$R *.dfm}


procedure Tfrm_op_railway.update_railctn(table:Tadoquery);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
var
  num_ctn:integer;
  ctn_string,str:widestring;
  if_first:boolean;
  bok:Tbookmark;
  pkgs:integer;
  kgs,cbm:double;
  aquery:TAdoQuery;
begin
  pkgs:=0;
  kgs:=0;
  cbm:=0;
  if table.IsEmpty then
  begin
    try
      table.DataSource.DataSet.Edit;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>1']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>2']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>3']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>4']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>5']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>6']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>7']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>8']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>9']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>10']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
      table.DataSource.DataSet['<27><>TEU']:=0;
      table.DataSource.DataSet['<27><>װ<EFBFBD><D7B0>']:='';
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
      table.DataSource.DataSet.post;
    except
      showmessage('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
      abort;
    end;
  end
  else
  begin
    frm_main.t_sum_ctn.close;
    frm_main.t_sum_ctn.open;
    bok:=table.GetBookmark;
    try
      table.DataSource.DataSet.Edit;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>1']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>2']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>3']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>4']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>5']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>6']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>7']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>8']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>9']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>10']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
      table.DataSource.DataSet['<27><>TEU']:=0;
      table.DataSource.DataSet['<27><>װ<EFBFBD><D7B0>']:='';
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
      table.first;
      while not table.eof do
      begin
        if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring<>'' then begin
          if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>1').asstring then
          begin
            table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>1']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>1']+1;
//            table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
          end
          else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>2').asstring then
          begin
            table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>2']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>2']+1;
//            table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
          end
          else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>3').asstring then
          begin
            table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>3']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>3']+1;
//            table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
          end
          else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>4').asstring then
          begin
            table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>4']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>4']+1;
//            table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
          end
          else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>5').asstring then
          begin
            table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>5']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>5']+1;
//            table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
          end
          else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>6').asstring then
          begin
            table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>6']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>6']+1;
//            table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
          end
          else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>7').asstring then
          begin
            table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>7']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>7']+1;
//            table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
          end
          else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>8').asstring then
          begin
            table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>8']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>8']+1;
//            table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
          end
          else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>9').asstring then
          begin
            table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>9']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>9']+1;
//          table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
          end
          else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>10').asstring then
          begin
            table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>10']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>10']+1;
//          table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
            end
            else
            begin
              table.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+1;
//          table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
            end;
            if not frm_main.t_sum_ctn.locate('<27><><EFBFBD><EFBFBD>',table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring,[]) then
            begin
              frm_main.t_sum_ctn.insert;
              frm_main.t_sum_ctn['<27><><EFBFBD><EFBFBD>']:=table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring;
              frm_main.t_sum_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=table.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
              frm_main.t_sum_ctn['<27><><EFBFBD><EFBFBD>']:=1;
              frm_main.t_sum_ctn.post;
            end
            else
            begin
              frm_main.t_sum_ctn.edit;
              frm_main.t_sum_ctn['<27><><EFBFBD><EFBFBD>']:=frm_main.t_sum_ctn['<27><><EFBFBD><EFBFBD>']+1;
              frm_main.t_sum_ctn.post;
            end;
          end;
          pkgs:=pkgs+table.fieldbyname('<27><><EFBFBD><EFBFBD>').AsInteger;
          kgs:=kgs+table.fieldbyname('<27><><EFBFBD><EFBFBD>').Asfloat;
          cbm:=cbm+table.fieldbyname('<27><><EFBFBD><EFBFBD>').Asfloat;
          table.next;
        end;

      ctn_string:='';
      if not frm_main.t_sum_ctn.IsEmpty then begin
      frm_main.t_sum_ctn.first;
      while not frm_main.t_sum_ctn.eof do
      begin
        if ctn_string='' then
        begin
          ctn_string:=frm_main.t_sum_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'*'+frm_main.t_sum_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
        end
        else
        begin
          ctn_string:=ctn_string+' '+frm_main.t_sum_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'*'+frm_main.t_sum_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
        end;
        frm_main.t_sum_ctn.next;
      end;
      end;
      table.DataSource.DataSet['<27><>װ<EFBFBD><D7B0>']:=ctn_string;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=pkgs;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=kgs;
      table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=cbm;
      table.DataSource.DataSet.post;

    except
      showmessage('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
      table.GotoBookmark(bok);
      abort;
    end;
    
    table.GotoBookmark(bok);
  end;
end;

procedure Tfrm_op_railway.bsSkinButton7Click(Sender: TObject);
begin
  table_Prior(t_op_railway);
end;

procedure Tfrm_op_railway.bsSkinButton6Click(Sender: TObject);
begin
  table_next(t_op_railway);
end;

procedure Tfrm_op_railway.bsSkinButton2Click(Sender: TObject);
begin
  table_post(t_op_railway);
end;

procedure Tfrm_op_railway.bsSkinButton4Click(Sender: TObject);
begin
  t_ch_fee.close;
  t_ch_fee.Parameters[0].value:=t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  t_ch_fee.open;
  if not t_ch_fee.IsEmpty then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  table_delete(t_op_railway);
end;

procedure Tfrm_op_railway.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_op_railway);
end;

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

procedure Tfrm_op_railway.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption);
  savewwgrid(fra_fee1.wwDBGrid1,'<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
  savewwgrid(fra_fee1.wwDBGrid2,'<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
  railwayopen:=false;
  frm_op_railway.Hide;
  frm_op_railway.ManualFloat(frm_op_railway.BoundsRect );
  frm_main.freeTabs('frm_op_railway');
  action:=cafree;
  frm_op_railway:=nil;
end;

procedure Tfrm_op_railway.FormShow(Sender: TObject);
begin
  if not ASSIGNED(frm_sys_progress) then
    frm_sys_progress:=tfrm_sys_progress.Create(self);
  frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ򡣡<C8BA><F2A1A3A1><EFBFBD>';
  frm_sys_progress.Show;
  frm_sys_progress.bsSkinGauge1.MaxValue:=16;
  frm_sys_progress.bsSkinGauge1.MinValue:=0;
  frm_sys_progress.bsSkinGauge1.Value:=0;
  frm_sys_progress.Update;

  if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
    DBEdit8.Width:=110;
    bsSkinSpeedButton1.Visible:=false;
    if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
      DBEdit8.ReadOnly:=false;
    end else begin
      DBEdit8.ReadOnly:=true;
    end;
  end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
    DBEdit8.Width:=90;
    bsSkinSpeedButton1.Visible:=true;
    if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
      DBEdit8.ReadOnly:=false;
    end else begin
      DBEdit8.ReadOnly:=true;
    end;
  end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD><D6B6>༭' then begin
    DBEdit8.ReadOnly:=false;
    DBEdit8.Width:=110;
    bsSkinSpeedButton1.Visible:=false;
  end;

  t_op_railway.Close;
  t_op_railway.SQL.clear;
  t_op_railway.SQL.Add('select top 50 * from t_op_railway where '
                   +'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''
                   +' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
                   +' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+')'
                   +' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC');
  t_op_railway.open;

  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  fra_op_letter_free1.op_type.Text:='<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>';
  fra_op_letter_free1.t_op_letter.DataSource:=t_op_railway1;
  fra_op_letter_free1.t_op_letter.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  fra_op_letter_free1.t_op_letter_free_detail.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

  t_op_railway_detail.open;
  v_op_railway_detail.close;
  v_op_railway_detail.sql.text:='select * from t_op_railway_detail where <20><><EFBFBD><EFBFBD> in (select top 50 '
  +' <20><><EFBFBD><EFBFBD> from t_op_railway where '
  +'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''
  +' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
  +' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+'))';
  v_op_railway_detail.open;

  loadreggrid(dxdbgrid1,false,caption);
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

  if if_open('297') or if_open('298') then
  begin
    fra_fee1.edit_type.text:='6';
    fra_fee1.edit_data.text:='0006';
    fra_fee1.edit_report.text:='<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>';
    fra_fee1.t_ch_accept.DataSource:=t_op_railway1;
    if strtobool(get_parameters_value(150,'false')) then
      fra_fee1.bsSkinPanel3.Visible:=true;
    fra_fee1.DBEdit48.DataSource:=t_op_railway1;

    if if_open('297') then
    begin
      fra_fee1.t_ch_accept.DataSource:=t_op_railway1;
      if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('209')=false) then
      begin
        fra_fee1.t_ch_accept.close;
        fra_fee1.t_ch_accept.SQL.Clear;
        fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
        +''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
        +''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
        +' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
      end;
      fra_fee1.t_ch_accept.open;
      fra_fee1.a_shen_delete.open;
      fra_fee1.a_shen_modify_old.open;
      fra_fee1.a_shen_modify_new.open;
      fra_fee1.Panel3.visible:=true;
    end
    else
      fra_fee1.Panel3.visible:=false;
    if if_open('298') then
    begin
      fra_fee1.t_ch_pay.DataSource:=t_op_railway1;
      if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('209')=false) then
      begin
        fra_fee1.t_ch_pay.close;
        fra_fee1.t_ch_pay.SQL.Clear;
        fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
        +''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
        +''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
        +' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
      end;
      fra_fee1.t_ch_pay.open;
      fra_fee1.p_shen_delete.open;
      fra_fee1.p_shen_modify_old.open;
      fra_fee1.p_shen_modify_new.open;
      fra_fee1.Panel1.visible:=true;
    end
    else
      fra_fee1.Panel1.visible:=false;

    if fra_fee1.Panel1.visible and
       fra_fee1.Panel3.visible then
    begin
      if if_open('228') then begin
        fra_fee1.Panel8.Visible:=true;
        fra_fee1.Panel8.Height:=20;
      end else
        fra_fee1.Panel8.Visible:=false;

      fra_fee1.t_op_gain.DataSource:=t_op_railway1;
      fra_fee1.t_op_gain.open;

      fra_fee1.Panel9.Visible:=false;
    end
    else
    begin
      fra_fee1.Panel8.Visible:=false;
    end;
  end
  else
  begin
    fra_fee1.Visible:=false;
  end;

  loadwwgrid(fra_fee1.wwDBGrid1,'<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
  loadwwgrid(fra_fee1.wwDBGrid2,'<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
  

  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

  fra_op_state1.edit_state.text:='6';
  fra_op_state1.t_op_state.DataSource:=t_op_railway1;
  fra_op_state1.t_op_state.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

  fra_op_card1.t_op_card.DataSource:=t_op_railway1;
  fra_op_card1.t_op_card.open;

  frm_data_share.t_crm_client.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_weituo.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_shiper.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_shouhuo.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_source.requery;
  if not frm_data_share.t_code_railport.Active then
    frm_data_share.t_code_railport.open
  else
    frm_data_share.t_code_railport.requery;

  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_sys_employee.requery;

  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_code.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_fee.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  if not frm_data_share.t_code_railwayctnsource.Active then
    frm_data_share.t_code_railwayctnsource.open;
  frm_data_share.t_code_currency.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  bsSkinTabSheet2.TabVisible:=if_open('297') or if_open('298');
  railwayopen:=true;
  frm_sys_progress.close;
  frm_sys_progress:=nil;

end;

procedure Tfrm_op_railway.bsSkinButton11Click(Sender: TObject);
var
  answer:TModalResult;
begin
  if bsSkinButton11.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
  begin
    Notebook1.PageIndex:=1;
    bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
  end
  else
  begin
    if (t_op_railway.State=dsinsert)or(t_op_railway.State=dsedit) then
    BEGIN
      answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
      if answer=mrYes then
      begin
        t_op_railway.post;
      end;
      if answer=mrNo then
      begin
        t_op_railway.cancel;
      end;
      if answer=mrCancel then
      begin
        exit;
      end;
    END;
    Notebook1.PageIndex:=0;
    bsSkinButton11.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
  end;
end;

procedure Tfrm_op_railway.bsSkinButton8Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
  PopupMenu1.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_op_railway.Panel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(Panel2.Width/11);
  bsSkinButton7.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton1.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton13.Left:=Panel2.Width-bsSkinButton13.Width-20;
end;

procedure Tfrm_op_railway.bsSkinButton1Click(Sender: TObject);
begin
  if (t_op_railway.State=dsinsert)or(t_op_railway.State=dsedit) then
    t_op_railway.post;
  try
    frm_op_railway_add:=tfrm_op_railway_add.Create(self);
    frm_op_railway_add.data1.Enabled:=false;
    frm_op_railway_add.data1.DataSet:=t_op_railway;
    frm_op_railway_add.data1.Enabled:=true;
    frm_op_railway_add.ShowModal;
  finally
    frm_op_railway_add.Free;
  end;
end;

procedure Tfrm_op_railway.t_op_railwayBeforeEdit(DataSet: TDataSet);
begin
  op_befor_post(t_op_railway,'0006');
end;

procedure Tfrm_op_railway.t_op_railwayBeforePost(DataSet: TDataSet);
begin
  table_before_post(t_op_railway,'ί<>е<EFBFBD>λ');
  table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD>Ա');
  table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_railway,'<27>ͷ<EFBFBD>Ա');
//  table_before_post(t_op_airtruck,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
//  table_before_post(t_op_airtruck,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
  table_before_post(t_op_railway,'<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_railway,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
  table_before_post(t_op_railway,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
  table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  op_empty('t_op_railway',t_op_railway);

 if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
   if t_op_railway.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>'])='') then
      if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
        t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
      else
        t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_railway['<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>']);


  if t_op_railway.fieldbyname('<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_railway.fieldbyname('<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
  if (t_op_railway.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_railway.fieldbyname('<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
     showmessage('<27>˽ӵ<CBBD><D3B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
     abort;
  end;


  if t_op_railway.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_railway.FieldByName('ί<>е<EFBFBD>λ').asstring then
  begin
    if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_railway.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
    begin
      if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
      begin
        showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
        abort;
      end;
    end;
  end;
  if t_op_railway.State=dsinsert then
  begin
    if t_op_railway.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
    begin
      t_op_railway['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.RailWayBsNo,'RW'));
    end;
    t_op_railway['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
    t_op_railway['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
  end;

  if strtobool(get_parameters_value(45,'false')) then
  begin
    if (trim(t_op_railway.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_railway.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
    begin
      t_op_railway['ί<>б<EFBFBD>׼']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_railway['ί<>б<EFBFBD>׼']:=t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>'];
    end;
  end
  else
  begin
    t_op_railway['ί<>б<EFBFBD>׼']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
  end;

//  t_op_railway['upload']:=1;
end;

procedure Tfrm_op_railway.bsSkinButton10Click(Sender: TObject);
begin
  query_railway(1,'0006');
end;

procedure Tfrm_op_railway.dxDBGrid1Column3CustomDraw(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
  AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_op_railway.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
  AColor:=dxgrid_color('<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_op_railway.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit2);
end;

procedure Tfrm_op_railway.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit3);
end;

procedure Tfrm_op_railway.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit4);
end;

procedure Tfrm_op_railway.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit4);
end;

procedure Tfrm_op_railway.RxDBLookupCombo1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo31);
end;

procedure Tfrm_op_railway.RxDBLookupCombo13KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit8);
end;

procedure Tfrm_op_railway.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
  key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;

procedure Tfrm_op_railway.wwDBDateTimePicker2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
  begin
    Key :=#0;
    Perform(CM_DialogKey,VK_TAB,0);
  end;

end;

procedure Tfrm_op_railway.wwDBDateTimePicker1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo7);
end;

procedure Tfrm_op_railway.RxDBLookupCombo6KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit30);
end;

procedure Tfrm_op_railway.DBEdit30KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit31);
end;

procedure Tfrm_op_railway.DBEdit31KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit14);
end;

procedure Tfrm_op_railway.RxDBLookupCombo11KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo18);
end;

procedure Tfrm_op_railway.RxDBLookupCombo7KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo52);
end;

procedure Tfrm_op_railway.DBEdit18KeyPress(Sender: TObject; var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;

procedure Tfrm_op_railway.DBEdit2Change(Sender: TObject);
begin
  DBEdit2.Color:=dxgrid_color('<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>',DBEdit2.text);
end;

procedure Tfrm_op_railway.DBEdit3Change(Sender: TObject);
begin
  DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
end;

procedure Tfrm_op_railway.RxDBLookupCombo29KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo8);
end;

procedure Tfrm_op_railway.RxDBLookupCombo8KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo30);
end;

procedure Tfrm_op_railway.wwDBComboBox3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit30);  
end;

procedure Tfrm_op_railway.RxDBLookupCombo8Change(Sender: TObject);
begin
  if (t_op_railway.state=dsinsert)or(t_op_railway.state=dsedit)then
  begin
    if RxDBLookupCombo8.DisplayValue='' then
      exit;
    if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo8.DisplayValue,[]) then
      t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  end;
end;

procedure Tfrm_op_railway.N10Click(Sender: TObject);
begin
  update_grid_view_no(dxdbgrid1);
end;

procedure Tfrm_op_railway.N14Click(Sender: TObject);
begin
  update_grid_view_all(dxdbgrid1);
end;

procedure Tfrm_op_railway.N12Click(Sender: TObject);
begin
  update_grid(dxdbgrid1,206);
end;

procedure Tfrm_op_railway.N16Click(Sender: TObject);
begin
  grid_save_xls(dxdbgrid1);
end;

procedure Tfrm_op_railway.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort(Column,t_op_railway,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_railway.bsSkinButton13Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
  PopupMenu3.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_op_railway.N17Click(Sender: TObject);
begin
  t_op_railway.Close;
  t_op_railway.SQL.clear;
  t_op_railway.SQL.Add('select * from t_op_railway where '
                   +open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
                   +''''+'¼<><C2BC>״̬'+''''+') '
                   +' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
  t_op_railway.open;
end;

procedure Tfrm_op_railway.N34Click(Sender: TObject);
begin
  t_op_railway.Close;
  t_op_railway.SQL.clear;
  t_op_railway.SQL.Add('select * from t_op_railway where '
                   +open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
                   +''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+')) '
                   +' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
  t_op_railway.open;
end;

procedure Tfrm_op_railway.N36Click(Sender: TObject);
begin
  t_op_railway.Close;
  t_op_railway.SQL.clear;
  t_op_railway.SQL.Add('select * from t_op_railway where '
                   +open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
                   +''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+')) '
                   +' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
  t_op_railway.open;
end;

procedure Tfrm_op_railway.N37Click(Sender: TObject);
begin
  t_op_railway.Close;
  t_op_railway.SQL.clear;
  t_op_railway.SQL.Add('select * from t_op_railway where '
                   +open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
                   +' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
  t_op_railway.open;
end;

procedure Tfrm_op_railway.RxDBLookupCombo31KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo13);
end;

procedure Tfrm_op_railway.wwDBLookupCombo1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo16);
end;

procedure Tfrm_op_railway.N9Click(Sender: TObject);
begin
  t_op_railway.Close;
  t_op_railway.SQL.clear;
  t_op_railway.SQL.Add('select * from t_op_railway where '
                   +open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
                   +' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
  t_op_railway.open;
end;

procedure Tfrm_op_railway.N20Click(Sender: TObject);
begin
  t_op_railway.Close;
  t_op_railway.SQL.clear;
  t_op_railway.SQL.Add('select * from t_op_railway where '
                   +open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
                   +' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
  t_op_railway.open;
end;

procedure Tfrm_op_railway.t_op_railwayBeforeDelete(DataSet: TDataSet);
begin
  op_befor_post(t_op_railway,'0006');
  if not t_op_railway.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
  delwtno(t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']);

//  delete_add(4,t_op_airi);
end;

procedure Tfrm_op_railway.t_op_railwayPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  str:widestring;
begin

end;

procedure Tfrm_op_railway.t_op_railwayBeforeCancel(DataSet: TDataSet);
begin
  delete_no(t_op_railway);
  if t_op_railway.State=dsinsert then
  if not t_op_railway.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
   delwtno(t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']);

end;

procedure Tfrm_op_railway.N21Click(Sender: TObject);
begin
  t_op_railway.Close;
  t_op_railway.SQL.clear;
  t_op_railway.SQL.Add('select * from t_op_railway where '
                   +open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee )'
                   +' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
  t_op_railway.open;
end;

procedure Tfrm_op_railway.N24Click(Sender: TObject);
begin
  t_op_railway.Close;
  t_op_railway.SQL.clear;
  t_op_railway.SQL.Add('select * from t_op_railway where '
                   +open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD>  in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
                   +' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
  t_op_railway.open;
end;

procedure Tfrm_op_railway.dxDBGrid1Column29CustomDraw(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 Trim(ANode.Strings[dxDBGrid1Column29.Index])='<27><><EFBFBD>ĵ<EFBFBD>' then
    AColor:=clred;
  AFont.Color:=clblack;

end;

procedure Tfrm_op_railway.N26Click(Sender: TObject);
begin
  if t_op_railway.IsEmpty then
    exit;
  if not do_data('0006',t_op_railway.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
                       ,t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
                       ,t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
                       ,t_op_railway.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
                       ,'','') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
    abort;
  end;

  if t_op_railway.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
  begin
    showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊҵ<CEAA><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8>');
    abort;
  end;

  if t_op_railway1=nil then
    exit;
  if (t_op_railway.State=dsinsert)or(t_op_railway.State=dsedit) then
    t_op_railway.post;
  try
    frm_op_date_change:=tfrm_op_date_change.Create (self);
     frm_op_date_change.DataSource1.Enabled:=false;
     frm_op_date_change.DataSource1.DataSet:=t_op_railway1.DataSet;
     frm_op_date_change.DataSource1.Enabled:=true;
    frm_op_date_change.ShowModal;
  finally
    frm_op_date_change.Free;
    frm_op_date_change:=nil;
  end;

end;

procedure Tfrm_op_railway.RxDBLookupCombo16Change(Sender: TObject);
begin
  if t_op_railway_detail1.DataSet=nil then
    exit;
  if (t_op_railway_detail1.DataSet.State=dsinsert)or(t_op_railway_detail1.DataSet.State=dsedit)then
  begin
    if RxDBLookupCombo16.DisplayValue<>'' then
      t_op_railway_detail1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;

end;

procedure Tfrm_op_railway.RxDBLookupCombo17Change(Sender: TObject);
begin
  if t_op_railway_detail1.DataSet=nil then
    exit;
  if (t_op_railway_detail1.DataSet.State=dsinsert)or(t_op_railway_detail1.DataSet.State=dsedit)then
  begin
    if RxDBLookupCombo17.DisplayValue<>'' then
      t_op_railway_detail1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;

end;

procedure Tfrm_op_railway.RxDBLookupCombo16KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
  begin
    Key :=#0;
    Perform(CM_DialogKey,VK_TAB,0);
  end;
end;

procedure Tfrm_op_railway.RxDBLookupCombo17KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo4);
end;

procedure Tfrm_op_railway.DBEdit14KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo19);
end;

procedure Tfrm_op_railway.RxDBLookupCombo12KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo29);

end;

procedure Tfrm_op_railway.RxDBLookupCombo16Enter(Sender: TObject);
begin
  RxLookupComboEnter(TRxDBLookupCombo(Sender));

end;

procedure Tfrm_op_railway.RxDBLookupCombo16Exit(Sender: TObject);
begin
  RxLookupComboExit(TRxDBLookupCombo(Sender));
end;

procedure Tfrm_op_railway.bsSkinSpeedButton1Click(Sender: TObject);
begin
  if t_op_railway1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (t_op_railway1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']='') then begin
    t_op_railway1.DataSet.edit;
    if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
      t_op_railway1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
    else
      t_op_railway1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
   end;
end;

procedure Tfrm_op_railway.bsSkinPageControl1Change(Sender: TObject);
begin
  if not railwayopen then exit;

  if bsSkinPageControl1.ActivePage<>bsSkinTabSheet1 then begin
    if t_op_railway.State in [dsedit,dsinsert] then
      t_op_railway.Post;
  end else begin
    t_op_railway.Refresh;
  end;
end;

procedure Tfrm_op_railway.RxDBLookupCombo11Change(Sender: TObject);
begin
  if t_op_railway_detail1.DataSet=nil then
    exit;
  if (t_op_railway_detail1.DataSet.state=dsinsert)or(t_op_railway_detail1.DataSet.state=dsedit)then
  begin
    if RxDBLookupCombo11.DisplayValue='' then
      exit;
        t_op_railway_detail1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=t_op_railway_detail1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+#13#10+frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
   end;

end;

procedure Tfrm_op_railway.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    Key :=#0;
    Perform(CM_DialogKey,VK_TAB,0);
  end;

end;

procedure Tfrm_op_railway.bsSkinButton12Click(Sender: TObject);
begin
  table_Prior(t_op_railway_detail);

end;

procedure Tfrm_op_railway.bsSkinButton14Click(Sender: TObject);
begin
  table_next(t_op_railway_detail);
end;

procedure Tfrm_op_railway.bsSkinButton9Click(Sender: TObject);
begin
 sys_print('<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>',2,t_op_railway1,nil,nil,nil,t_op_railway_detail1,nil,nil,nil,nil,nil,nil);

end;

procedure Tfrm_op_railway.bsSkinButton15Click(Sender: TObject);
begin
 sys_print('<27><>·<EFBFBD><C2B7><EFBFBD>伯װ<E4BCAF>䵥<EFBFBD><E4B5A5>',2,t_op_railway1,nil,nil,nil,t_op_railway_detail1,nil,nil,nil,nil,nil,nil);

end;

procedure Tfrm_op_railway.bsSkinButton17Click(Sender: TObject);
begin
  table_post(t_op_railway_detail);

end;

procedure Tfrm_op_railway.bsSkinButton18Click(Sender: TObject);
begin
  table_delete(t_op_railway_detail);

end;

procedure Tfrm_op_railway.bsSkinButton19Click(Sender: TObject);
begin
  table_cancel(t_op_railway_detail);

end;

procedure Tfrm_op_railway.bsSkinButton16Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton16.ClientToScreen(Point(0,bsSkinButton16.Height));
  PopupMenu4.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_op_railway.SA1Click(Sender: TObject);
begin
  if t_op_railway_detail.State in [dsedit,dsinsert] then t_op_railway_detail.post;
  t_op_railway_detail.Append;

end;

procedure Tfrm_op_railway.CA1Click(Sender: TObject);
var
  afield : variant;
  i:integer;
begin
  if t_op_railway_detail.IsEmpty then begin
    if t_op_railway_detail.State in [dsedit,dsinsert] then t_op_railway_detail.post;
     t_op_railway_detail.Append;
  end else begin
    afield := vararraycreate([0,t_op_railway_detail.fieldcount-1],varvariant);
    for i := 0 to (t_op_railway_detail.fieldcount-1) do
    begin
      afield[i] :=t_op_railway_detail.fields[i].value ;
    end;
    t_op_railway_detail.append;
    for i := 0 to (t_op_railway_detail.fieldcount-1) do begin
      if uppercase(t_op_railway_detail.fields[i].fieldname)<>'RD_ID' then
        t_op_railway_detail.fields[i].value := afield[i] ;
    end;
    t_op_railway_detail.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:='';
    t_op_railway_detail.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:='';
    t_op_railway_detail.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:='';
    t_op_railway_detail.fieldbyname('<27>·<EFBFBD><C2B7><EFBFBD>').AsString:='';
  end;
end;

procedure Tfrm_op_railway.N29Click(Sender: TObject);
begin
  try
    if not assigned(frm_op_railwayctn_history) then
      frm_op_railwayctn_history:=tfrm_op_railwayctn_history.Create (self);
    frm_op_railwayctn_history.t_do_railwayctn.Enabled:=false;
    frm_op_railwayctn_history.t_do_railwayctn.DataSet:=t_op_railway_detail;
    frm_op_railwayctn_history.t_do_railwayctn.Enabled:=true;

    frm_op_railwayctn_history.ShowModal;
  finally
    frm_op_railwayctn_history.free;
    frm_op_railwayctn_history:=nil;
  end;
end;

procedure Tfrm_op_railway.wwDBLookupCombo52Change(Sender: TObject);
begin
  if (t_op_railway_detail.state=dsinsert)or(t_op_railway_detail.state=dsedit)then
  begin
    if wwDBLookupCombo52.text='' then
      exit;
    if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then begin
      t_op_railway_detail['<27><>վ']:=frm_data_share.t_code_railport['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
    end;
  end;
end;

procedure Tfrm_op_railway.wwDBLookupCombo2Change(Sender: TObject);
begin
  if (t_op_railway_detail.state=dsinsert)or(t_op_railway_detail.state=dsedit)then
  begin
    if wwDBLookupCombo2.text='' then
      exit;
    if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then begin
      t_op_railway_detail['<27><><EFBFBD><EFBFBD>վ']:=frm_data_share.t_code_railport['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
    end;
  end;
end;

procedure Tfrm_op_railway.wwDBLookupCombo5Change(Sender: TObject);
begin
  if (t_op_railway_detail.state=dsinsert)or(t_op_railway_detail.state=dsedit)then
  begin
    if wwDBLookupCombo5.text='' then
      exit;
    if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo5.text,[]) then begin
      t_op_railway_detail['<27><><EFBFBD>ڿڰ<DABF>']:=frm_data_share.t_code_railport['<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>'];
    end;
  end;
end;

procedure Tfrm_op_railway.wwDBLookupCombo6Change(Sender: TObject);
begin
  if (t_op_railway_detail.state=dsinsert)or(t_op_railway_detail.state=dsedit)then
  begin
    if wwDBLookupCombo6.text='' then
      exit;
    if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then begin
      t_op_railway_detail['<27><>תվ']:=frm_data_share.t_code_railport['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
    end;
  end;
end;

procedure Tfrm_op_railway.RxDBLookupCombo3Change(Sender: TObject);
begin
  if (t_op_railway_detail.state=dsinsert)or(t_op_railway_detail.state=dsedit)then
  begin
    if RxDBLookupCombo3.DisplayValue='' then
      exit;
      t_op_railway_detail['<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
      t_op_railway_detail['<27><>Ƥ<EFBFBD><C6A4>']:=frm_data_share.t_code_ctn['<27><>Ƥ<EFBFBD><C6A4>'];
      t_op_railway_detail['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>'];
      t_op_railway_detail['<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['Ӣ<><D3A2>˵<EFBFBD><CBB5>'];
  end;

end;

procedure Tfrm_op_railway.t_op_railway_detailAfterPost(DataSet: TDataSet);
begin
  update_railctn(t_op_railway_detail);
  v_op_railway_detail.Requery();
end;

procedure Tfrm_op_railway.t_raildatecharge(Sender: TField);
begin
  if sender.DataSet.State in [dsedit,dsinsert] then begin
    if (not sender.DataSet.fieldbyname('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').IsNull) and (not sender.DataSet.fieldbyname('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').IsNull) then begin
      sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=DaysBetween(sender.DataSet.fieldbyname('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').asdatetime,sender.DataSet.fieldbyname('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').asdatetime);
    end;
  end;
end;
procedure Tfrm_op_railway.t_railkgscharge(Sender: TField);
var
  sl:tstringlist;
begin
  if sender.DataSet.State in [dsedit,dsinsert] then begin
    if (sender.DataSet.fieldbyname('<27><>Ƥ<EFBFBD><C6A4>').asfloat<>0) and (sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0) then begin
      sl:=TStringList.Create;
      try
        sl.Add(sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
        sl.Add(sender.DataSet.fieldbyname('<27><>Ƥ<EFBFBD><C6A4>').asstring);
        sl.Add('==========');
        sl.Add(floattostr(sender.DataSet.fieldbyname('<27><>Ƥ<EFBFBD><C6A4>').asfloat+sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat)+'KGS');
        sender.DataSet.fieldbyname('ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring:=sl.Text;
        sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').Asstring:=change(sender.DataSet.fieldbyname('<27><>Ƥ<EFBFBD><C6A4>').asfloat+sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat,false,true)+' <20><><EFBFBD><EFBFBD>';
      finally
        freeandnil(sl);
      end;
    end;
  end;
end;
procedure Tfrm_op_railway.t_op_railway_detailAfterOpen(DataSet: TDataSet);
begin
  dataset.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_railkgscharge;
  dataset.FieldByName('<27><>Ƥ<EFBFBD><C6A4>').OnChange:=t_railkgscharge;
  dataset.FieldByName('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').OnChange:=t_raildatecharge;
  dataset.FieldByName('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').OnChange:=t_raildatecharge;
  DBRichEdit3.DefAttributes.Size:=9;
  DBRichEdit1.DefAttributes.Size:=9;
  DBRichEdit2.DefAttributes.Size:=9;
  DBRichEdit4.DefAttributes.Size:=9;
  
end;

procedure Tfrm_op_railway.cxGrid1DBTableView1CellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
//  bsSkinButton11.OnClick(sender);
end;

end.