unit u_sys_noset;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, BusinessSkinForm, DB, ADODB, StdCtrls, Mask,
  DBCtrls, wwdbdatetimepicker, bsdbctrls, ComCtrls, bsSkinTabs;

type
  Tfrm_sys_noset = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label10: TLabel;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinSpeedButton7: TbsSkinSpeedButton;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    bsSkinSpeedButton9: TbsSkinSpeedButton;
    bsSkinSpeedButton10: TbsSkinSpeedButton;
    bsSkinSpeedButton11: TbsSkinSpeedButton;
    bsSkinSpeedButton12: TbsSkinSpeedButton;
    bsSkinSpeedButton13: TbsSkinSpeedButton;
    bsSkinSpeedButton14: TbsSkinSpeedButton;
    bsSkinSpeedButton15: TbsSkinSpeedButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    bsSkinGroupBox2: TbsSkinGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    bsSkinGroupBox3: TbsSkinGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    bsSkinSpeedButton17: TbsSkinSpeedButton;
    bsSkinSpeedButton16: TbsSkinSpeedButton;
    DBComboBox1: TDBComboBox;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    DBEdit5: TDBEdit;
    bsSkinGroupBox4: TbsSkinGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    bsSkinSpeedButton18: TbsSkinSpeedButton;
    bsSkinSpeedButton19: TbsSkinSpeedButton;
    bsSkinSpeedButton20: TbsSkinSpeedButton;
    bsSkinSpeedButton21: TbsSkinSpeedButton;
    bsSkinSpeedButton22: TbsSkinSpeedButton;
    bsSkinSpeedButton23: TbsSkinSpeedButton;
    bsSkinSpeedButton24: TbsSkinSpeedButton;
    bsSkinSpeedButton25: TbsSkinSpeedButton;
    bsSkinSpeedButton26: TbsSkinSpeedButton;
    bsSkinSpeedButton27: TbsSkinSpeedButton;
    bsSkinSpeedButton28: TbsSkinSpeedButton;
    bsSkinSpeedButton29: TbsSkinSpeedButton;
    bsSkinSpeedButton30: TbsSkinSpeedButton;
    bsSkinSpeedButton31: TbsSkinSpeedButton;
    bsSkinSpeedButton32: TbsSkinSpeedButton;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    bsSkinGroupBox5: TbsSkinGroupBox;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    DBComboBox7: TDBComboBox;
    bsSkinGroupBox6: TbsSkinGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    bsSkinSpeedButton33: TbsSkinSpeedButton;
    bsSkinSpeedButton34: TbsSkinSpeedButton;
    DBComboBox8: TDBComboBox;
    bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
    DBEdit12: TDBEdit;
    bsSkinGroupBox7: TbsSkinGroupBox;
    ComboBoxNoType: TComboBox;
    Label21: TLabel;
    dsrNoSet: TDataSource;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinSpeedButton4Click(Sender: TObject);
    procedure bsSkinSpeedButton7Click(Sender: TObject);
    procedure bsSkinSpeedButton10Click(Sender: TObject);
    procedure bsSkinSpeedButton13Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton3Click(Sender: TObject);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
    procedure bsSkinSpeedButton6Click(Sender: TObject);
    procedure bsSkinSpeedButton8Click(Sender: TObject);
    procedure bsSkinSpeedButton9Click(Sender: TObject);
    procedure bsSkinSpeedButton11Click(Sender: TObject);
    procedure bsSkinSpeedButton12Click(Sender: TObject);
    procedure bsSkinSpeedButton14Click(Sender: TObject);
    procedure bsSkinSpeedButton15Click(Sender: TObject);
    procedure bsSkinSpeedButton17Click(Sender: TObject);
    procedure bsSkinSpeedButton16Click(Sender: TObject);
    procedure ComboBoxNoTypeChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_noset: Tfrm_sys_noset;

implementation

uses u_main, u_data_share, u_sys_wtno, u_sys_wtno_empty;

{$R *.dfm}

procedure Tfrm_sys_noset.bsSkinButton2Click(Sender: TObject);
begin
  if dsrNoSet.DataSet.State in [dsedit,dsinsert] then dsrNoSet.DataSet.Cancel;
  close;
end;

procedure Tfrm_sys_noset.bsSkinButton1Click(Sender: TObject);
begin
  if dsrNoSet.DataSet.State in [dsedit,dsinsert] then dsrNoSet.DataSet.post;
  close;
end;

procedure Tfrm_sys_noset.bsSkinSpeedButton1Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('海运出口').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('海运出口').AsString)+'<SUB>';
end;

procedure Tfrm_sys_noset.bsSkinSpeedButton4Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('空运出口').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('空运出口').AsString)+'<SUB>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton7Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('海运进口').AsString:=trim(dsrNoSet.DataSet.fieldbyname('海运进口').AsString)+'<SUB>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton10Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('空运进口').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('空运进口').AsString)+'<SUB>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton13Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('监管车').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('监管车').AsString)+'<SUB>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton2Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('海运出口').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('海运出口').AsString)+'<DEPT>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton3Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('海运出口').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('海运出口').AsString)+'<EMP>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton5Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('空运出口').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('空运出口').AsString)+'<DEPT>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton6Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('空运出口').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('空运出口').AsString)+'<EMP>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton8Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('海运进口').AsString:=trim(dsrNoSet.DataSet.fieldbyname('海运进口').AsString)+'<DEPT>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton9Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('海运进口').AsString:=trim(dsrNoSet.DataSet.fieldbyname('海运进口').AsString)+'<EMP>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton11Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('空运进口').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('空运进口').AsString)+'<DEPT>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton12Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('空运进口').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('空运进口').AsString)+'<EMP>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton14Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('监管车').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('监管车').AsString)+'<DEPT>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton15Click(Sender: TObject);
begin
  dsrNoSet.DataSet.Edit;
  dsrNoSet.DataSet.fieldbyname('监管车').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('监管车').AsString)+'<EMP>';

end;

procedure Tfrm_sys_noset.bsSkinSpeedButton17Click(Sender: TObject);
begin
  frm_sys_wtno:=Tfrm_sys_wtno.Create(self);
  try
    frm_sys_wtno.ShowModal;
  finally
    FreeAndNil(frm_sys_wtno);
  end;
end;

procedure Tfrm_sys_noset.bsSkinSpeedButton16Click(Sender: TObject);
begin
  frm_sys_wtno_empty:=Tfrm_sys_wtno_empty.Create(self);
  try
    frm_sys_wtno_empty.ShowModal;
  finally
    FreeAndNil(frm_sys_wtno_empty);
  end;
end;

procedure Tfrm_sys_noset.ComboBoxNoTypeChange(Sender: TObject);
begin
  if ComboBoxNoType.ItemIndex=0 then begin
    dsrNoSet.DataSet:=frm_data_share.t_sys_noset;
    DBComboBox4.Items.Clear;
    DBComboBox4.Items.Add('业务日期');
    DBComboBox4.Items.Add('会计期间');
  end else if ComboBoxNoType.ItemIndex=1 then begin
    dsrNoSet.DataSet:=frm_data_share.t_AgentDc_no;
    DBComboBox4.Items.Clear;
    DBComboBox4.Items.Add('录入日期');
    DBComboBox4.Items.Add('会计期间');
  end;

end;

end.