trn130.pas

公司ERP系统

unit trn130;

interface

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

type
  Ttrn130Form = class(TForm)
    Table1: 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;
    Table1order_no: TStringField;
    Table1slip_date: TStringField;
    Table1cust_no: TStringField;
    Table1finish_date: TStringField;
    Table1po_no: TStringField;
    Table1export_port: TStringField;
    Table1destination: TStringField;
    Table1currency: TStringField;
    Table1price_term: TStringField;
    Table1payment_term: TStringField;
    Table1pay_way1: TStringField;
    Table1pay_days: TSmallintField;
    Table1shipto_cust: TStringField;
    Table1due_date: TStringField;
    Table1due_days: TSmallintField;
    Table1sale_area: TStringField;
    Table1salesman: TStringField;
    Table1batch_yn: TStringField;
    Table1valid_date: TStringField;
    Table1oem_code: TStringField;
    Table1close_code: TStringField;
    Table1shipment: TStringField;
    Table1user_id: TStringField;
    procedure RunBtnClick(Sender: TObject);
    function  TextToDatabase(vTable   : TTable;  {戈