frm_ciqdata.~pas

站长您好

unit Frm_ciqdata;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Frm_Cargo, DB, ADODB, Grids, StdCtrls, Buttons, ExtCtrls,
  ComCtrls, EnterAsTab, XPMenu;

type
  TFrmciqdata = class(TFrmCargo)
    EnterAsTab1: TEnterAsTab;
    Shape2: TShape;
    GroupBox4: TGroupBox;
    Label8: TLabel;
    Label16: TLabel;
    Label15: TLabel;
    Label14: TLabel;
    Label13: TLabel;
    Label9: TLabel;
    Label32: TLabel;
    Label36: TLabel;
    Label58: TLabel;
    Label42: TLabel;
    Label38: TLabel;
    Label60: TLabel;
    Label59: TLabel;
    Comchengjiao: TComboBox;
    Edthetong: TEdit;
    Edtpizhun: TEdit;
    Edtxuke: TEdit;
    Edtbeian: TEdit;
    Commaoyi: TComboBox;
    Edtyundg: TEdit;
    Edtshuifu: TEdit;
    OrderDate: TDateTimePicker;
    EdtPort: TEdit;
    EdtShouH: TEdit;
    EdtJy: TEdit;
    ComZm: TComboBox;
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    SG2: TStringGrid;
    BtnAdd: TBitBtn;
    BtnDel: TBitBtn;
    BtnSave: TBitBtn;
    QryTemp: TADOQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   VarHawb:String;
    { Public declarations }
  end;

var
  Frmciqdata: TFrmciqdata;

implementation

uses Frm_Main;

{$R *.dfm}

procedure TFrmciqdata.FormCreate(Sender: TObject);
begin
  inherited;
 {商品编号，货物描述，数量，单位，原产国，净重，单价，总价，币种，征免}
  SG2.ColWidths[0]:=50;{商品编号}
  SG2.ColWidths[1]:=150; {货物描述}
  SG2.ColWidths[2]:=50; {数量}
  SG2.ColWidths[3]:=80; {单位}
  SG2.ColWidths[4]:=100; {原产国}
  SG2.ColWidths[5]:=75; {体积}
  SG2.ColWidths[6]:=80;  {单价}
  SG2.ColWidths[7]:=80; {费用}
  SG2.ColWidths[8]:=90;  {币种}
  SG2.ColWidths[9]:=100;  {征免}
  SG2.ColWidths[10]:=1;
  SG2.ColWidths[11]:=1;

  SG2.Cells[0,0]:='商品编号';
  SG2.Cells[1,0]:='货物描述';
  SG2.Cells[2,0]:='数量';
  SG2.Cells[3,0]:='单位';
  SG2.Cells[4,0]:='原产国';
  SG2.Cells[5,0]:='净重';
  SG2.Cells[6,0]:='单价';
  SG2.Cells[7,0]:='总价';
  SG2.Cells[8,0]:='币种';
  SG2.Cells[9,0]:='征免';
  SG2.Cells[10,0]:='';   {记录货物自动编号}
  SG2.Cells[11,0]:='';  {记录FileCode号}
end;

end.