D6HECHUAN/海运业务/u_op_seae_list_z.pas

unit u_op_seae_list_z;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  bsSkinCtrls, StdCtrls, Grids, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
  dxDBGrid, Menus, bsSkinMenus, DB, RxMemDS, Mask, DBCtrls,ADODB;

type
  Tfra_op_seae_list_z = class(TFrame)
    bsSkinPanel1: TbsSkinPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    bsSkinPanel2: TbsSkinPanel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label24: TLabel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridColumn;
    dxDBGrid1Column4: TdxDBGridColumn;
    bsSkinPopupMenu1: TbsSkinPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    t_op_seae_main: TRxMemoryData;
    t_op_seae_main1: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    t_op_seae_fen1: TDataSource;
    t_op_seae_fen: TRxMemoryData;
    procedure add_data(ado_query1:Tadoquery;ado_query2:Tadoquery);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses u_main;

{$R *.dfm}

procedure Tfra_op_seae_list_z.add_data(ado_query1:Tadoquery;ado_query2:Tadoquery);
begin
  t_op_seae_main.open;
  t_op_seae_main.Insert;
  t_op_seae_main['weituo_no']:=ado_query1['ί<>б<EFBFBD><D0B1><EFBFBD>'];
  t_op_seae_main['tidan']:=ado_query1['<27>ᵥ<EFBFBD><E1B5A5>'];
  t_op_seae_main['zhuangyun']:=ado_query1['װ<>˷<EFBFBD>ʽ'];
  t_op_seae_main['chuan']:=ado_query1['<27><><EFBFBD><EFBFBD>']+','+ado_query1['<27><><EFBFBD><EFBFBD>'];
  t_op_seae_main['chuangong']:=ado_query1['<27><><EFBFBD><EFBFBD>˾'];
  t_op_seae_main['weituo']:=ado_query1['ί<>е<EFBFBD>λ'];
  t_op_seae_main['kaichuan']:=ado_query1['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_op_seae_main['lanhuo']:=ado_query1['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  t_op_seae_main['yewu_no']:=ado_query1['<27><><EFBFBD><EFBFBD>'];
  t_op_seae_main['jizhuang']:=ado_query1['<27><>װ<EFBFBD><D7B0>'];
  t_op_seae_main['chima']:=ado_query1['<27><><EFBFBD><EFBFBD>'];
  t_op_seae_main['xiehuo']:=ado_query1['ж<><D0B6><EFBFBD><EFBFBD>'];
  t_op_seae_main['yewu_sate']:=ado_query1['ҵ<><D2B5>״̬'];
  t_op_seae_main.post;
  if ado_query1.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
  begin
    t_op_seae_main.open;
    ado_query2.First;
    while not ado_query2.eof do
    begin
      t_op_seae_fen.Insert;
      t_op_seae_fen['weituo_no']:=ado_query2['ί<>б<EFBFBD><D0B1><EFBFBD>'];
      t_op_seae_fen['tidan']:=ado_query2['<27>ᵥ<EFBFBD><E1B5A5>'];
      t_op_seae_fen['zhuangyun']:=ado_query2['װ<>˷<EFBFBD>ʽ'];
      t_op_seae_fen['chuan']:=ado_query2['<27><><EFBFBD><EFBFBD>']+','+ado_query2['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_fen['chuangong']:=ado_query2['<27><><EFBFBD><EFBFBD>˾'];
      t_op_seae_fen['weituo']:=ado_query2['ί<>е<EFBFBD>λ'];
      t_op_seae_fen['kaichuan']:=ado_query2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_fen['lanhuo']:=ado_query2['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_op_seae_fen['yewu_no']:=ado_query2['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_fen['jizhuang']:=ado_query2['<27><>װ<EFBFBD><D7B0>'];
      t_op_seae_fen['chima']:=ado_query2['<27><><EFBFBD><EFBFBD>'];
      t_op_seae_fen['xiehuo']:=ado_query2['ж<><D0B6><EFBFBD><EFBFBD>'];
      t_op_seae_fen['yewu_sate']:=ado_query2['ҵ<><D2B5>״̬'];
      t_op_seae_fen.post;
      ado_query2.next;
    end;
    bsSkinPanel1.Visible:=true;
    bsSkinPanel2.Visible:=false;
  end
  else
  begin
    bsSkinPanel1.Visible:=false;
    bsSkinPanel2.Visible:=true;
  end;
end;

end.