unit u_info_price_ask;

interface

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

type
  Tfrm_info_price_ask = class(TForm)
    Panel1: TPanel;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    Notebook1: TNotebook;
    dxDBGrid1: TdxDBGrid;
    t_price_ask: TADOQuery;
    t_price_ask1: TDataSource;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinGroupBox3: TbsSkinGroupBox;
    RxDBLookupCombo2: TRxDBLookupCombo;
    Label9: TLabel;
    Label1: TLabel;
    wwDBComboBox1: TwwDBComboBox;
    Label14: TLabel;
    DBEdit31: TDBEdit;
    Label2: TLabel;
    wwDBComboBox2: TwwDBComboBox;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    Label6: TLabel;
    RxDBLookupCombo1: TRxDBLookupCombo;
    Label20: TLabel;
    wwDBLookupCombo3: TwwDBLookupCombo;
    DBText1: TDBText;
    DBText5: TDBText;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBText2: TDBText;
    DBText4: TDBText;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBText3: TDBText;
    DBText7: TDBText;
    DBEdit8: TDBEdit;
    DBEdit36: TDBEdit;
    DBText6: TDBText;
    DBText8: TDBText;
    DBEdit9: TDBEdit;
    DBEdit41: TDBEdit;
    Label17: TLabel;
    DBEdit34: TDBEdit;
    DBEdit33: TDBEdit;
    Label16: TLabel;
    DBEdit32: TDBEdit;
    Label15: TLabel;
    Label124: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label21: TLabel;
    RxDBLookupCombo20: TRxDBLookupCombo;
    Label7: TLabel;
    DBEdit10: TDBEdit;
    dxDBGrid2: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn3: TdxDBGridMaskColumn;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridMaskColumn5: TdxDBGridMaskColumn;
    dxDBGridMaskColumn6: TdxDBGridMaskColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGridMaskColumn8: TdxDBGridMaskColumn;
    dxDBGridMaskColumn9: TdxDBGridMaskColumn;
    dxDBGridMaskColumn10: TdxDBGridMaskColumn;
    dxDBGridMaskColumn11: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridMaskColumn;
    dxDBGrid1Column17: TdxDBGridMaskColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid1Column19: TdxDBGridMaskColumn;
    dxDBGridMaskColumn12: TdxDBGridMaskColumn;
    dxDBGridMaskColumn13: TdxDBGridMaskColumn;
    dxDBGridMaskColumn14: TdxDBGridMaskColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column24: TdxDBGridMaskColumn;
    dxDBGrid1Column25: TdxDBGridMaskColumn;
    dxDBGrid1Column26: TdxDBGridMaskColumn;
    dxDBGrid1Column27: TdxDBGridMaskColumn;
    dxDBGrid1Column28: TdxDBGridMaskColumn;
    dxDBGrid1Column29: TdxDBGridMaskColumn;
    dxDBGrid1Column30: TdxDBGridMaskColumn;
    dxDBGrid1Column31: TdxDBGridMaskColumn;
    dxDBGrid1Column32: TdxDBGridMaskColumn;
    dxDBGrid1Column33: TdxDBGridMaskColumn;
    dxDBGrid1Column34: TdxDBGridMaskColumn;
    dxDBGrid1Column35: TdxDBGridMaskColumn;
    dxDBGridMaskColumn15: TdxDBGridMaskColumn;
    dxDBGridMaskColumn16: TdxDBGridMaskColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridMaskColumn18: TdxDBGridMaskColumn;
    dxDBGrid1Column40: TdxDBGridMaskColumn;
    dxDBGridDateColumn1: TdxDBGridDateColumn;
    dxDBGridDateColumn2: TdxDBGridDateColumn;
    dxDBGridMaskColumn19: TdxDBGridMaskColumn;
    dxDBGridDateColumn3: TdxDBGridDateColumn;
    dxDBGrid1Column45: TdxDBGridColumn;
    dxDBGrid1Column46: TdxDBGridColumn;
    dxDBGrid1Column47: TdxDBGridColumn;
    dxDBGrid1Column48: TdxDBGridColumn;
    dxDBGrid1Column49: TdxDBGridColumn;
    dxDBGrid1Column50: TdxDBGridColumn;
    dxDBGrid1Column51: TdxDBGridColumn;
    dxDBGrid1Column52: TdxDBGridColumn;
    dxDBGrid1Column53: TdxDBGridColumn;
    dxDBGrid1Column54: TdxDBGridColumn;
    t_price_ship: TADOQuery;
    t_price_ship1: TDataSource;
    bsSkinPanel1: TbsSkinPanel;
    Label8: TLabel;
    RxDBLookupCombo3: TRxDBLookupCombo;
    Label10: TLabel;
    wwDBLookupCombo2: TwwDBLookupCombo;
    bsSkinButton12: TbsSkinButton;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
    bsSkinButton13: TbsSkinButton;
    wwDBComboBox3: TwwDBComboBox;
    Label25: TLabel;
    DBMemo1: TDBMemo;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid1Column4: TdxDBGridColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    dxDBGrid1Column42: TdxDBGridColumn;
    dxDBGrid1Column41: TdxDBGridColumn;
    dxDBGrid1Column22: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridColumn;
    dxDBGrid1Column5: TdxDBGridColumn;
    dxDBGrid120GP: TdxDBGridColumn;
    dxDBGrid140GP: TdxDBGridColumn;
    dxDBGrid140HQ: TdxDBGridColumn;
    dxDBGrid140RF: TdxDBGridColumn;
    dxDBGrid140RH: TdxDBGridColumn;
    dxDBGrid145HQ: TdxDBGridColumn;
    dxDBGrid1Column20: TdxDBGridColumn;
    dxDBGrid1Column21: TdxDBGridColumn;
    dxDBGrid1Column36: TdxDBGridColumn;
    dxDBGrid1Column37: TdxDBGridColumn;
    dxDBGrid1Column38: TdxDBGridColumn;
    dxDBGrid1Column39: TdxDBGridColumn;
    dxDBGrid1Column43: TdxDBGridColumn;
    dxDBGrid1Column44: TdxDBGridColumn;
    procedure bsSkinButton9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure t_price_askAfterInsert(DataSet: TDataSet);
    procedure t_price_askBeforePost(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
    procedure t_price_askBeforeEdit(DataSet: TDataSet);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure wwDBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit31KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit36KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit41KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit33KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit34KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit32KeyPress(Sender: TObject; var Key: Char);
    procedure dxDBGrid1ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_price_ask: Tfrm_info_price_ask;

implementation

uses u_main, u_data_share, my_sys_function, u_info_price_ask_query;

{$R *.dfm}

procedure Tfrm_info_price_ask.bsSkinButton9Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_info_price_ask.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_info_price_ask.Hide;
  frm_info_price_ask.ManualFloat(frm_info_price_ask.BoundsRect );
  frm_main.freeTabs('frm_info_price_ask');
  action:=cafree;
  frm_info_price_ask:=nil;
end;

procedure Tfrm_info_price_ask.bsSkinButton7Click(Sender: TObject);
begin
  table_Prior(t_price_ask);
end;

procedure Tfrm_info_price_ask.bsSkinButton6Click(Sender: TObject);
begin
  table_next(t_price_ask);
end;

procedure Tfrm_info_price_ask.bsSkinButton11Click(Sender: TObject);
begin
  table_post(t_price_ask);
end;

procedure Tfrm_info_price_ask.bsSkinButton8Click(Sender: TObject);
begin
  table_cancel(t_price_ask);
end;

procedure Tfrm_info_price_ask.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(t_price_ask);
end;

procedure Tfrm_info_price_ask.bsSkinButton10Click(Sender: TObject);
var
  answer:TModalResult;
begin
  if bsSkinButton10.Caption='编辑修改' then
  begin
    Notebook1.PageIndex:=1;
    bsSkinButton10.Caption:='返回列表';
  end
  else
  begin
    if (t_price_ask.State=dsinsert)or(t_price_ask.State=dsedit) then
    BEGIN
      answer:=messagedlg( '数据已经修改，是否保存？',mtWarning,mbYesNoCancel,0);
      if answer=mrYes then
      begin
        t_price_ask.post;
      end;
      if answer=mrNo then
      begin
        t_price_ask.cancel;
      end;
      if answer=mrCancel then
      begin
        exit;
      end;
    END;
    Notebook1.PageIndex:=0;
    bsSkinButton10.Caption:='编辑修改';
  end;
end;

procedure Tfrm_info_price_ask.bsSkinButton2Click(Sender: TObject);
begin
  t_price_ask.insert;
  Notebook1.PageIndex:=1;
  bsSkinButton10.Caption:='返回列表';
end;

procedure Tfrm_info_price_ask.bsSkinButton3Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
begin
  if t_price_ask.IsEmpty then
    exit;
  afield := vararraycreate([0,t_price_ask.fieldcount-1],varvariant);
  for i := 0 to (t_price_ask.fieldcount-1) do
  begin
    afield[i] :=t_price_ask.fields[i].value ;
  end;
  t_price_ask.append;
  for i := 1 to (t_price_ask.fieldcount-1) do
  begin
    if t_price_ask.fields[i].FieldName<>'询价编号' then
      t_price_ask.fields[i].value := afield[i] ;
  end;
  t_price_ask['报价人']:=employee;
  t_price_ask['报价日期']:=date;
  Notebook1.PageIndex:=1;
  bsSkinButton10.Caption:='返回列表';
  showmessage('复制添加成功！！');
end;

procedure Tfrm_info_price_ask.bsSkinButton5Click(Sender: TObject);
begin
  sys_print('商机报价打印',2,t_price_ask1,frm_data_share.t_code_price_ctn1,nil,nil,t_price_ask1,nil,nil,nil,nil,nil,nil);
end;

procedure Tfrm_info_price_ask.t_price_askAfterInsert(DataSet: TDataSet);
begin
  t_price_ask['报价人']:=employee;
  t_price_ask['报价日期']:=date;
end;

procedure Tfrm_info_price_ask.t_price_askBeforePost(DataSet: TDataSet);
begin
  table_before_post(t_price_ask,'客户类型');
  table_before_post(t_price_ask,'询价客户');
  table_before_post(t_price_ask,'启运港');
  table_before_post(t_price_ask,'目的港');
  table_before_post(t_price_ask,'询价人');
end;

procedure Tfrm_info_price_ask.FormShow(Sender: TObject);
begin
  t_price_ask.sql.Clear;
  t_price_ask.sql.add('SELECT top 100 * FROM t_price_ask ');
//  t_price_ask.sql.add('where '+open_data('3005','报价人','no','no','no','no'));
  t_price_ask.sql.add(' order by 报价日期');
  t_price_ask.open;

  frm_data_share.t_code_price_ctn.requery;

  if frm_data_share.t_code_price_ctn.IsEmpty then
    exit;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型1').asstring)<>'' then
  begin
    dxDBGrid120GP.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型1').asstring);
    dxDBGrid120GP.Visible:=true;
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型2').asstring)<>'' then
  begin
    dxDBGrid140GP.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型2').asstring);
    dxDBGrid140GP.Visible:=true;
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型3').asstring)<>'' then
  begin
    dxDBGrid140HQ.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型3').asstring);
    dxDBGrid140HQ.Visible:=true;
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型4').asstring)<>'' then
  begin
    dxDBGrid140RF.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型4').asstring);
    dxDBGrid140RF.Visible:=true;
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型5').asstring)<>'' then
  begin
    dxDBGrid140RH.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型5').asstring);
    dxDBGrid140RH.Visible:=true;
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型6').asstring)<>'' then
  begin
    dxDBGrid145HQ.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型6').asstring);
    dxDBGrid145HQ.Visible:=true;
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型7').asstring)<>'' then
  begin
    dxDBGrid1Column20.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型7').asstring);
    dxDBGrid1Column20.Visible:=true;
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型8').asstring)<>'' then
  begin
    dxDBGrid1Column21.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型8').asstring);
    dxDBGrid1Column21.Visible:=true;
  end;

  bsSkinCheckRadioBox1.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型1').asstring);
  bsSkinCheckRadioBox2.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型2').asstring);
  bsSkinCheckRadioBox3.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型3').asstring);
  bsSkinCheckRadioBox4.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型4').asstring);
  bsSkinCheckRadioBox5.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型5').asstring);
  bsSkinCheckRadioBox6.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型6').asstring);
  bsSkinCheckRadioBox7.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型7').asstring);
  bsSkinCheckRadioBox8.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型8').asstring);

  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型1').asstring)<>'' then
  begin
    dxDBGrid2.Bands[1].Visible:=true;
    dxDBGrid2.Bands[1].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型1').asstring);
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型2').asstring)<>'' then
  begin
    dxDBGrid2.Bands[2].Visible:=true;
    dxDBGrid2.Bands[2].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型2').asstring);
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型3').asstring)<>'' then
  begin
    dxDBGrid2.Bands[3].Visible:=true;
    dxDBGrid2.Bands[3].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型3').asstring);
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型4').asstring)<>'' then
  begin
    dxDBGrid2.Bands[4].Visible:=true;
    dxDBGrid2.Bands[4].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型4').asstring);
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型5').asstring)<>'' then
  begin
    dxDBGrid2.Bands[5].Visible:=true;
    dxDBGrid2.Bands[5].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型5').asstring);
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型6').asstring)<>'' then
  begin
    dxDBGrid2.Bands[6].Visible:=true;
    dxDBGrid2.Bands[6].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型6').asstring);
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型7').asstring)<>'' then
  begin
    dxDBGrid2.Bands[7].Visible:=true;
    dxDBGrid2.Bands[7].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型7').asstring);
  end;
  if trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型8').asstring)<>'' then
  begin
    dxDBGrid2.Bands[8].Visible:=true;
    dxDBGrid2.Bands[8].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('运价箱型8').asstring);
  end;
  wwDBComboBox3.Items.Clear;
  frm_data_share.t_sys_code_data.Filtered:=false;
  frm_data_share.t_sys_code_data.Filter:='属性='+''''+'3006'+'''';  
  frm_data_share.t_sys_code_data.Filtered:=true;
  if frm_data_share.t_sys_code_data.IsEmpty then
    exit;
  if frm_data_share.t_sys_code_data.Locate('职员','全包底价',[])then
  begin
    if frm_data_share.t_sys_code_data.fieldbyname('是否可视').asboolean then
    begin
      dxDBGridMaskColumn6.Visible:=true;
      dxDBGridMaskColumn7.Visible:=true;
      dxDBGridMaskColumn8.Visible:=true;
      dxDBGridMaskColumn9.Visible:=true;
      dxDBGridMaskColumn10.Visible:=true;
      dxDBGridMaskColumn11.Visible:=true;
      dxDBGrid1Column45.Visible:=true;
      dxDBGrid1Column50.Visible:=true;
    end;
  end;
  if frm_data_share.t_sys_code_data.Locate('职员','底价构成',[])then
  begin
    if frm_data_share.t_sys_code_data.fieldbyname('是否可视').asboolean then
    begin
      dxDBGrid1Column12.Visible:=true;
      dxDBGrid1Column13.Visible:=true;
      dxDBGrid1Column14.Visible:=true;
      dxDBGrid1Column15.Visible:=true;
      dxDBGrid1Column16.Visible:=true;
      dxDBGrid1Column17.Visible:=true;
      dxDBGrid1Column46.Visible:=true;
      dxDBGrid1Column51.Visible:=true;
    end;  
  end;
  if frm_data_share.t_sys_code_data.Locate('职员','一级售价',[])then
  begin
    if frm_data_share.t_sys_code_data.fieldbyname('是否可视').asboolean then
    begin
      dxDBGrid1Column18.Visible:=true;
      dxDBGrid1Column19.Visible:=true;
      dxDBGridMaskColumn12.Visible:=true;
      dxDBGridMaskColumn13.Visible:=true;
      dxDBGridMaskColumn14.Visible:=true;
      dxDBGrid1Column23.Visible:=true;
      dxDBGrid1Column47.Visible:=true;
      dxDBGrid1Column52.Visible:=true;
      wwDBComboBox3.Items.Add('一级售价');
    end;  
  end;
  if frm_data_share.t_sys_code_data.Locate('职员','二级售价',[])then
  begin
    if frm_data_share.t_sys_code_data.fieldbyname('是否可视').asboolean then
    begin
      dxDBGrid1Column24.Visible:=true;
      dxDBGrid1Column25.Visible:=true;
      dxDBGrid1Column26.Visible:=true;
      dxDBGrid1Column27.Visible:=true;
      dxDBGrid1Column28.Visible:=true;
      dxDBGrid1Column29.Visible:=true;
      dxDBGrid1Column48.Visible:=true;
      dxDBGrid1Column53.Visible:=true;
      wwDBComboBox3.Items.Add('二级售价');
    end;  
  end;
  if frm_data_share.t_sys_code_data.Locate('职员','三级售价',[])then
  begin
    if frm_data_share.t_sys_code_data.fieldbyname('是否可视').asboolean then
    begin
      dxDBGrid1Column30.Visible:=true;
      dxDBGrid1Column31.Visible:=true;
      dxDBGrid1Column32.Visible:=true;
      dxDBGrid1Column33.Visible:=true;
      dxDBGrid1Column34.Visible:=true;
      dxDBGrid1Column35.Visible:=true;
      dxDBGrid1Column49.Visible:=true;
      dxDBGrid1Column54.Visible:=true;
      wwDBComboBox3.Items.Add('三级售价');
    end;  
  end;
end;

procedure Tfrm_info_price_ask.Panel1Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(Panel1.Width/11);
  bsSkinButton5.Width:=i;
  bsSkinButton7.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton1.Width:=i;
end;

procedure Tfrm_info_price_ask.t_price_askBeforeEdit(DataSet: TDataSet);
begin
{  if do_data('3005',t_price_ask.fieldbyname('报价人').asstring,'','','','','')=false then
  begin
    showmessage('对不起你无权修改此数据！！');
    abort;
  end;
}
end;

procedure Tfrm_info_price_ask.bsSkinButton12Click(Sender: TObject);
begin
  t_price_ship.close;
  t_price_ship.sql.clear;
  t_price_ship.sql.add('SELECT * FROM t_price_ship where 有效日期>=getdate()');
  if wwDBLookupCombo2.text<>''then
    t_price_ship.sql.add(' and 目的港 like '+''''+'%'+wwDBLookupCombo2.text+'%'+'''');
  if RxDBLookupCombo3.DisplayValue<>''then
    t_price_ship.sql.add(' and 船公司='+''''+RxDBLookupCombo3.DisplayValue+'''');
  t_price_ship.sql.add('order by 运价编号');
  t_price_ship.open;
end;

procedure Tfrm_info_price_ask.bsSkinButton13Click(Sender: TObject);
begin
  if t_price_ship.Active=false then
    exit;
  if t_price_ship.IsEmpty then
    exit;
  if wwDBComboBox3.ItemIndex=-1 then
    exit;
  if t_price_ask.IsEmpty then
    exit;
  if bsSkinCheckRadioBox1.Checked then
  begin
    t_price_ask.edit;
    t_price_ask['箱型1']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'1').asstring;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    t_price_ask.edit;
    t_price_ask['箱型2']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'2').asstring;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    t_price_ask.edit;
    t_price_ask['箱型3']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'3').asstring;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    t_price_ask.edit;
    t_price_ask['箱型4']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'4').asstring;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    t_price_ask.edit;
    t_price_ask['箱型5']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'5').asstring;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    t_price_ask.edit;
    t_price_ask['箱型6']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'6').asstring;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    t_price_ask.edit;
    t_price_ask['箱型7']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'7').asstring;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    t_price_ask.edit;
    t_price_ask['箱型8']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'8').asstring;
  end;
end;

procedure Tfrm_info_price_ask.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=frm_close_query(t_price_ask);
end;

procedure Tfrm_info_price_ask.bsSkinButton1Click(Sender: TObject);
begin
  try
    frm_info_price_ask_query:=tfrm_info_price_ask_query.Create (self);
    frm_info_price_ask_query.ShowModal;
  finally
    frm_info_price_ask_query.Free;
  end;
end;

procedure Tfrm_info_price_ask.wwDBComboBox2KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBComboBox(Key,wwDBComboBox1);
end;

procedure Tfrm_info_price_ask.wwDBComboBox1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;

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

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

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

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

procedure Tfrm_info_price_ask.DBEdit3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo1);
end;

procedure Tfrm_info_price_ask.RxDBLookupCombo1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo3);
end;

procedure Tfrm_info_price_ask.wwDBLookupCombo3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo1);
end;

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

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

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

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

procedure Tfrm_info_price_ask.DBEdit8KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit9);
end;

procedure Tfrm_info_price_ask.DBEdit9KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit5);
end;

procedure Tfrm_info_price_ask.DBEdit5KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit7);
end;

procedure Tfrm_info_price_ask.DBEdit7KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit36);
end;

procedure Tfrm_info_price_ask.DBEdit36KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit41);
end;

procedure Tfrm_info_price_ask.DBEdit41KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit33);
end;

procedure Tfrm_info_price_ask.DBEdit33KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit34);
end;

procedure Tfrm_info_price_ask.DBEdit34KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit32);
end;

procedure Tfrm_info_price_ask.DBEdit32KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit10);
end;

procedure Tfrm_info_price_ask.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort(Column,t_price_ask,'询价编号');
end;

end.