frm_allimportbillinfo.pas

这是一个基于delphi平台的物流空运管理系统！

unit Frm_AllImportBillInfo;

interface

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

type
  TFrmAllImportBillInfo = class(TFrmCargo)
    Panel3: TPanel;
    Label2: TLabel;
    LblTs: TLabel;
    LV: TListView;
    PanXs: TPanel;
    Panel2: TPanel;
    BitBtn4: TBitBtn;
    BtnQuery: TBitBtn;
    BtnNew: TBitBtn;
    BtnEdit: TBitBtn;
    BtnDelete: TBitBtn;
    Panel4: TPanel;
    BtnImport: TButton;
    BtnExport: TButton;
    QryTemp: TADOQuery;
    OPEND: TOpenDialog;
    Query1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure BtnNewClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnQueryClick(Sender: TObject);
    procedure BtnDeleteClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnImportClick(Sender: TObject);
    procedure BtnExportClick(Sender: TObject);
  private
    CargoAllow: Boolean;
    { Private declarations }
  public
    IsFirstOpen: Boolean;
    VarCode: string;
    SearchStr: string; //查询字符串 如果为''则使用缺省查询字符串
    procedure Search(value: string); //查询后的刷新界面
    procedure AddItem(string1, string2, string3, string4, string5, string6:
      string); //增加数据行

    procedure EditItem(string1, string2, string3, string4, string5, string6:
      string); //增加数据行
    procedure Reopen; //刷新屏幕数据
    function InsertRecord(FileName: string): Boolean;
    function UpdateRecord(FileName, VarCode: string): Boolean;
    { Public declarations }
  end;

var
  FrmAllImportBillInfo: TFrmAllImportBillInfo;

implementation

uses Frm_Main, Frm_AllImportBillEdit, Frm_AllImportBillSearch;

{$R *.dfm}

type
  TZTrustFile = record
    FileCode: string[20];
    FileNo: string[20];
    Hawb: string[20];
    MAWB: string[20];
    Finish: integer;
    Discard: integer;
    ZhiDan: Integer;
    KeyDown: integer;
    jjcode: string[10];
    trusttype: string[10];
    trustsource: string[20];
    DjNumber: string[4];
    Kjkm: string[20];
    ZCDjNumber: string[4];
    ZCKjkm: string[20];
    CusCode: string[20];
    CusCodename: string[20];
    ConsignCode: string[100];
    ConsignName: string[100];
    Agentcode: string[20];
    ShipComCode: string[20];
    Shipper: string[250];
    Consignee: string[250];
    Inform: string[250];
    Receport: string[20];
    loadport: string[20];
    Unloadport: string[20];
    Dest: string[20];
    YcVoyage: string[20];
    YcPort: string[20];
    YcVoyageDate: string[10];
    EcVoyage: string[20];
    EcPort: string[20];
    EcVoyageDate: string[10];
    ScVoyage: string[20];
    ScPort: string[20];
    ScVoyageDate: string[10];
    MaiTou: string[250];
    AIC: string[200];
    HI: string[250];
    AN: string[250];
    AI: string[100];
    Currency: string[10];
    CHGS: string[10];
    ppd: string[10];
    COLL: string[10];
    OPPD: string[10];
    OCOLL: string[10];
    DVC: string[10];
    ODVC: string[10];
    BillPlace: string[20];
    BillDate: string[10];
    Bussiness: string[20];
    OperCode: string[20];
    ModiOper: string[250];
    RelaCode: string[20];

    HawbNumber: integer;
    GoodsNumber: Integer;
    JCPCNumber: Integer;
    BgNumber: integer;
    FareNumber: Integer;
    {2650个字节}
  end;

type
  TGoods = record
    GoodsNumber: integer;
    GoodsWeight: real48; {6}
    GoodsUnit: string[10];
    GoodsSize: real48;
    GoodsGrade: string[20];
    Formul: string[30];
    ChargeWeight: real48;
    UnitPrice: real48;
    Total: real48;
    GoodsDesc: string[255];
    GoodsCode: string[10];
    FileCode: string[10];
    {379各字节}
  end;

type
  TJCPC = record
    GoodsHW: string[30];
    IfNative: string[10];
    IfPc: string[10];
    Station: string[20];
    StationRela: string[100];
    StationAddr: string[250];
    StationStyle: string[200];
    JcNo: string[20];
    JcDate: string[10];
    JcTime: string[20];
    CCDate: string[10];
    CCTime: string[20];
    CarName: string[20];
    CarRela: string[200];
    CarAddr: string[250];
    GoodsRela: string[200];
    GoodsPlace: string[200];
    GoodsRelaStyle: string[100];
    ThDate: string[10];
    RecordDate: string[10];
    Remark: string[200];
    {1890}
  end;
type
  TBG = record
    Hawb: string[20];
    FileNo: string[20];
    Mawb: string[20];
    BgHName: string[200];
    JyName: string[250];
    FileName: string[100];
    FileNameNo: string[30];
    CusReceDate: string[10];
    CusRetuDate: string[10];
    CiqReceDate: string[10];
    CiqRetuDate: string[10];
    RecordDate: string[10];
    Remark: string[250];
    OperCode: string[50];
    {990个字节}
  end;

type
  TFare = record
    FareFl: string[20];
    CusCode: string[20];
    CusCodeName: string[255];
    FareType: string[20];
    CurrencyType: string[20];
    Rate: string[5];
    FareName: string[20];
    FareAcount: real48;
    UnitPrice: string[255];
    RecordDate: string[10];
    PayToDate: string[200];
    InvoiceNo: string[30];
    BxNo: string[20];
    BillNo: string[20];
    OperCode: string[20];
    OperCwmark: string[20];
    Recedeal: integer;

    {945个字节}
  end;

function TFrmAllImportBillInfo.InsertRecord(FileName: string): Boolean;
var
  ZTrustFile: TZtrustFile;
  GoodsFile: TGoods;
  JCPCFile: Tjcpc;
  BGFile: TBG;
  FareFile: TFare;
  MyFileHandle: Integer;
  context: integer;
  SqlStr: string;
  CodeGet: string;
  ValueArray: array[0..20] of string;
  ArrayCount: integer;
  I, j: Integer;
  HawbNumber: Integer;
  VarMain: string;
  VarHawb: string;
begin
  inherited;
  try
    MyFilehandle := FileOpen(Filename, fmOpenRead);
    if myfilehandle > 0 then
    else
    begin
      ShowMessage('创建文件失败,请检查!');
      exit;
    end;
    {读取主单记录}
    context := fileread(myfilehandle, ztrustfile, sizeof(ztrustfile));
    sqlstr := 'insert into FileTable(FileCode,MainCode,hawb,' +
      'Fileno,Trusttype,trustsource,quotecode,djnumber,kjkm,zcdjnumber,zckjkm,' +
      'Cuscode,CusCodeName,shouhuoren,consignname,AgentCode,Shipper,' +
      'Consignee,Agent,' +
      'CuscomPany,Reciplace,' +
      'AirPort,AirPortTo,Destination,' +
      'Carrier,BY1,TO1,Fdate,DFdate,Fdate1,' +
      'BY2,TO2,Fdate2,By3,TO3,Fdate3,' +
      'Accinfo,Handling,Curr,CHGS,' +
      'PPD,COLL,OPPD,OCOLL,DVC,DVCus,' +
      'AccInsurance,aic,' +
      'Execdate,Dexecdate,Execplace,bussiness,' +
      'befinish,keydown,Ifdiscard,ifzhidan,' +
      'inout,ModiOper,relacode,operate) values(';
    {FileCode}
    Varmain := FrmMain.GetCode('K');
    FrmMain.InsStr(SqlStr, Varmain, ',');
    {Maincode}
    FrmMain.InsStr(sqlstr, Ztrustfile.mawb, ',');
    {hawb}
    FrmMain.InsStr(sqlstr, Ztrustfile.hawb, ',');
    {FileNo}
    FrmMain.InsStr(sqlstr, Ztrustfile.fileno, ',');
    {trusttype}
    FrmMain.InsStr(sqlstr, Ztrustfile.trusttype, ',');
    {trustsource}
    FrmMain.InsStr(sqlstr, Ztrustfile.trustsource, ',');
    {quotecode}
    if Ztrustfile.jjcode = '' then
      FrmMain.InsStr(sqlstr, 'null', ',')
    else
      FrmMain.InsStr(sqlstr, Ztrustfile.jjcode, ',');
    {djnumber}
    FrmMain.InsStr(sqlstr, Ztrustfile.djnumber, ',');
    {kjkm}
    FrmMain.InsStr(sqlstr, Ztrustfile.kjkm, ',');
    {zcdjnumber}
    FrmMain.InsStr(sqlstr, Ztrustfile.zcdjnumber, ',');
    {zckjkm}
    FrmMain.InsStr(sqlstr, Ztrustfile.zckjkm, ',');

    {cuscode}
    if Ztrustfile.cuscode = '' then
      FrmMain.InsStr(sqlstr, 'null', ',')
    else
      FrmMain.InsStr(sqlstr, Ztrustfile.cuscode, ',');
    {发货人名称}
    FrmMain.InsStr(sqlstr, Ztrustfile.cuscodename, ',');
    {收货人}
    FrmMain.InsStr(sqlstr, Ztrustfile.consigncode, ',');
    {收货人名称}
    FrmMain.InsStr(sqlstr, Ztrustfile.consignname, ',');
    {代理商}
    FrmMain.InsStr(sqlstr, Ztrustfile.agentcode, ',');
    {Shipper}
    FrmMain.InsStr(sqlstr, Ztrustfile.shipper, ',');
    {Consignee}
    FrmMain.InsStr(sqlstr, Ztrustfile.consignee, ',');
    {Agent 通知方}
    FrmMain.InsStr(sqlstr, Ztrustfile.inform, ',');

    {cuscompany运费对象}
    FrmMain.InsStr(sqlstr, '', ',');
    {Reciplace  收货地}
    FrmMain.InsStr(sqlstr, Ztrustfile.receport, ',');
    {AirPort 装货港}
    FrmMain.InsStr(sqlstr, Ztrustfile.loadport, ',');
    {AirPortTo 卸货港}
    FrmMain.InsStr(sqlstr, Ztrustfile.unloadport, ',');
    {destination 目的地}
    FrmMain.InsStr(sqlstr, Ztrustfile.dest, ',');

    {Carrier 航空公司}
    FrmMain.InsStr(sqlstr, Ztrustfile.shipcomcode, ',');
    {一乘航班，经停，出运日期}
    FrmMain.InsStr(sqlstr, Ztrustfile.ycvoyage, ',');
    FrmMain.InsStr(sqlstr, Ztrustfile.ycport, ',');
    FrmMain.InsStr(sqlstr, Ztrustfile.ycvoyagedate, ',');
    FrmMain.InsStr(sqlstr, Ztrustfile.ycvoyagedate, ',');
    FrmMain.InsStr(sqlstr, Ztrustfile.ycvoyagedate, ',');
    {二乘航班，经停，出运日期}
    FrmMain.InsStr(sqlstr, Ztrustfile.ecvoyage, ',');
    FrmMain.InsStr(sqlstr, Ztrustfile.ecport, ',');
    FrmMain.InsStr(sqlstr, Ztrustfile.ecvoyagedate, ',');
    {三乘航班，经停，出运日期}
    FrmMain.InsStr(sqlstr, Ztrustfile.scvoyage, ',');
    FrmMain.InsStr(sqlstr, Ztrustfile.scport, ',');
    FrmMain.InsStr(sqlstr, Ztrustfile.scvoyagedate, ',');

    {Accinfo  麦头}
    FrmMain.InsStr(sqlstr, Ztrustfile.maitou, ',');
    {Handing}
    FrmMain.InsStr(sqlstr, Ztrustfile.hi, ',');
    {Curr}
    FrmMain.InsStr(sqlstr, Ztrustfile.currency, ',');
    {CHGS}
    FrmMain.InsStr(sqlstr, Ztrustfile.chgs, ',');
    {PPD}
    FrmMain.InsStr(sqlstr, Ztrustfile.ppd, ',');