trn120.pas

公司ERP系统

unit trn120;

interface

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

type
  Ttrn120Form = 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;
    Table1order_seq_no: TSmallintField;
    Table1item_no: TStringField;
    Table1item_desc: TStringField;
    Table1item_spec: TStringField;
    Table1qty_in_bag: TFloatField;
    Table1qty_in_ctn: TFloatField;
    Table1sp: TStringField;
    Table1cust_item_no: TStringField;
    Table1cust_item_desc: TStringField;
    Table1cust_item_spec: TStringField;
    Table1item_desc_type: TStringField;
    Table1price_qty: TFloatField;
    Table1price_um: TStringField;
    Table1transfer_rate: TFloatField;
    Table1qty: TFloatField;
    Table1unit_measure: TStringField;
    Table1unit_price: TFloatField;
    Table1currency: TStringField;
    Table1total_prices: TFloatField;
    Table1inch_yn: TStringField;
    Table1mo_code: TStringField;
    Table1prod_dept: TStringField;
    Table1hide_yn: TStringField;
    Table1last_cnt_out: TFloatField;
    Table1total_cnt_out: TFloatField;
    Table1user_id: TStringField;
    Table1rqslip_no: TStringField;
    Table1rqslip_seq: TSmallintField;
    Table1item_type: TStringField;
    Table1item_class: TStringField;
    Table1item_desc_e: TStringField;
    procedure RunBtnClick(Sender: TObject);
    function  TextToDatabase(vTable   : TTable;  {戈