trn170.pas

公司ERP系统

unit trn170;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, ExtCtrls, Grids, DBGrids;

type
  Ttrn170Form = class(TForm)
    imtmasTable: TTable;
    imitemQuery: TQuery;
    MsgPanel: TPanel;
    Panel1: TPanel;
    Label3: TLabel;
    EditDataBaseName: TEdit;
    Label1: TLabel;
    EditTextFile: TEdit;
    RunBtn: TButton;
    ExitBtn: TButton;
    Panel2: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    MsgLabel: TLabel;
    imshipTable: TTable;
    arcustQuery: TQuery;
    arcustTable: TTable;
    arcustTablecustomer_no: TStringField;
    arcustTablecustomer_desc: TStringField;
    arcustTablecustomer_desc2: TStringField;
    arcustTablecustomer_name: TStringField;
    arcustTablecustomer_name2: TStringField;
    arcustTablecustomer_type: TStringField;
    arcustTablesales_dept: TStringField;
    arcustTablesale_area: TStringField;
    arcustTablearea_no2: TStringField;
    arcustTablesalesman: TStringField;
    arcustTablesale_code: TStringField;
    arcustTablename_cnt: TFloatField;
    arcustTableaddress_invo: TStringField;
    arcustTableaddress_1: TStringField;
    arcustTableaddress_2: TStringField;
    arcustTableaddress_fact: TStringField;
    arcustTablerespon_person: TStringField;
    arcustTablerespon_titl: TStringField;
    arcustTableid_no_respon: TStringField;
    arcustTablecont_person_1: TStringField;
    arcustTablecont_titl: TStringField;
    arcustTablecont_person_2: TStringField;
    arcustTablecont_person_3: TStringField;
    arcustTabletel_no_1: TStringField;
    arcustTabletel_no_2: TStringField;
    arcustTabletel_no_fact: TStringField;
    arcustTablefax_no: TStringField;
    arcustTabletax_no: TStringField;
    arcustTablecustomer_class: TStringField;
    arcustTabletran_date: TStringField;
    arcustTablear_due_date: TStringField;
    arcustTablecredit: TFloatField;
    arcustTableguarantee_amt: TFloatField;
    arcustTablepay_code: TStringField;
    arcustTablebank_name_1: TStringField;
    arcustTableacct_no_1: TStringField;
    arcustTablebank_name_2: TStringField;
    arcustTableacct_no_2: TStringField;
    arcustTableware_no: TStringField;
    arcustTablelist_code: TStringField;
    arcustTableim_due_date: TStringField;
    arcustTableiv_customer_no: TStringField;
    arcustTablear_customer_no: TStringField;
    arcustTablepc_customer_no: TStringField;
    arcustTablecont_address: TStringField;
    arcustTablecred_degree: TStringField;
    arcustTableadd_date: TStringField;
    arcustTablemodify_date: TStringField;
    arcustTablecredit_date: TStringField;
    arcustTabletrade_code: TStringField;
    arcustTabletenable_date: TStringField;
    arcustTablecapital_amt: TStringField;
    arcustTablebusiness_item: TStringField;
    arcustTableemp_qty: TFloatField;
    arcustTablesell_route: TStringField;
    arcustTablecheck_day: TSmallintField;
    arcustTabletax_type: TStringField;
    arcustTablecurrency: TStringField;
    arcustTableprint_invo: TStringField;
    arcustTablepay_date_type: TStringField;
    imtmasTableslip_type: TStringField;
    imtmasTableslip_no: TStringField;
    imtmasTableslip_seq_no: TSmallintField;
    imtmasTableactive_code: TStringField;
    imtmasTableseq_p: TSmallintField;
    imtmasTablesale_code: TStringField;
    imtmasTableslip_date: TStringField;
    imtmasTabletran_code: TStringField;
    imtmasTableio_code: TStringField;
    imtmasTableio_code_to: TStringField;
    imtmasTablectrl_num: TSmallintField;
    imtmasTablectrl_num_to: TSmallintField;
    imtmasTablesource_slip_no: TStringField;
    imtmasTablesource_slip_seq_no: TSmallintField;
    imtmasTabledept_no: TStringField;
    imtmasTablesupp_no: TStringField;
    imtmasTablecust_no: TStringField;
    imtmasTablecust_no_p: TStringField;
    imtmasTablesale_area: TStringField;
    imtmasTablewarehouse: TStringField;
    imtmasTableware_code: TStringField;
    imtmasTablelocation: TStringField;
    imtmasTablewarehouse_to: TStringField;
    imtmasTableware_code_to: TStringField;
    imtmasTablelocation_to: TStringField;
    imtmasTableitem_no: TStringField;
    imtmasTableitem_desc: TStringField;
    imtmasTableitem_spec: TStringField;
    imtmasTableqty_in_bag: TFloatField;
    imtmasTableqty_in_ctn: TFloatField;
    imtmasTablesp: TStringField;
    imtmasTablelot_no: TStringField;
    imtmasTableitem_type: TStringField;
    imtmasTableitem_class: TStringField;
    imtmasTableprice_qty: TFloatField;
    imtmasTableprice_um: TStringField;
    imtmasTableunit_price: TFloatField;
    imtmasTabletotal_prices: TFloatField;
    imtmasTabletransfer_rate: TFloatField;
    imtmasTableqty: TFloatField;
    imtmasTableunit_measure: TStringField;
    imtmasTablecurrency: TStringField;
    imtmasTableexchange_rate: TFloatField;
    imtmasTablepost_mark: TStringField;
    imtmasTableremark: TStringField;
    imtmasTableuser_id: TStringField;
    imtmasTableclose_code: TStringField;
    imtmasTablereason_code: TStringField;
    imtmasTablesalesman: TStringField;
    imshipTableslip_type: TStringField;
    imshipTableslip_no: TStringField;
    imshipTableprint_invo: TStringField;
    imshipTableShip_to: TStringField;
    imshipTabletax_type: TStringField;
    imshipTableinvo_no: TStringField;
    imshipTableTran_code: TStringField;
    imshipTableprint_yn: TStringField;
    imshipTablecancel_yn: TStringField;
    imshipTableUser_id: TStringField;
    procedure RunBtnClick(Sender: TObject);
    function  TextToDatabase(vTable   : TTable;  {戈