frm_allexportbillinfo.pas

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

unit Frm_AllExportBillInfo;

interface

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

type
  TFrmAllExportBillInfo = class(TFrmCargo)
    PanXS: TPanel;
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn4: TBitBtn;
    BtnQuery: TBitBtn;
    BtnNew: TBitBtn;
    BtnEdit: TBitBtn;
    BtnDelete: TBitBtn;
    Panel4: TPanel;
    BtnImport: TButton;
    BtnExport: TButton;
    LV: TListView;
    QryTrust: TADOQuery;
    Query1: TADOQuery;
    QryTemp: TADOQuery;
    PopCopy: TPopupMenu;
    CopyWt: TMenuItem;
    OPEND: TOpenDialog;
    procedure BtnNewClick(Sender: TObject);
    procedure CopyWtClick(Sender: TObject);
    procedure BtnImportClick(Sender: TObject);
    procedure BtnExportClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnQueryClick(Sender: TObject);
    procedure BtnDeleteClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure LVColumnClick(Sender: TObject; Column: TListColumn);
    procedure LVDblClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    private
    { Private declarations }
      Function InsertRecord(FileName:String):Boolean;
      Function UpdateRecord(FileName,VarCode:String):Boolean;

  public
     VarCode:String;
     IsFirstOpen:Boolean;
    { Public declarations }
  end;
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;

var
  FrmAllExportBillInfo: TFrmAllExportBillInfo;

implementation

uses Frm_Main, Frm_AllExportBillEdit, Frm_AllExportBillSearch;

{$R *.dfm}

function TFrmAllExportBillInfo.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