trn140.pas

来自「公司ERP系统」· PAS 代码 · 共 45 行

unit trn140;

interface

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

type
  Ttrn140Form = 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;
    Table1Check_accno: TStringField;
    Table1Check_num: TStringField;
    Table1Paying_bank: TStringField;
    Table1Amount: TFloatField;
    Table1Due_date: TStringField;
    Table1Cash_date: TStringField;
    Table1Customer_num: TStringField;
    Table1Entry_date: TStringField;
    Table1Collection_date: TStringField;
    Table1Keeybank_no: TStringField;
    Table1Pass_code: TStringField;
    Table1Tran_code: TStringField;
    Table1Per_comp: TStringField;
    Table1Recite_tran: TStringField;
    Table1Check_code: TStringField;
    Table1Check_seq: TStringField;
    Table1List_no: TStringField;
    Table1Seq_no: TStringField;
    Table1Remark: TStringField;
    procedure RunBtnClick(Sender: TObject);
    function  TextToDatabase(vTable   : TTable;  {戈