📄 trn160.pas
字号:
unit trn160;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables, ExtCtrls, Grids, DBGrids;
type
Ttrn160Form = 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;
Table1ar_code: TStringField;
Table1ar_slip_no: TStringField;
Table1ar_seq: TSmallintField;
Table1ar_slip_date: TStringField;
Table1cust_no: TStringField;
Table1acct_no: TStringField;
Table1slip_date: TStringField;
Table1slip_no: TStringField;
Table1slip_seq_no: TSmallintField;
Table1invoice_no: TStringField;
Table1item_no: TStringField;
Table1item_desc: TStringField;
Table1currency: TStringField;
Table1exchange_rate: TFloatField;
Table1currency_amt: TFloatField;
Table1slip_amt: TFloatField;
Table1ctrl_num: TSmallintField;
Table1tran_code: TStringField;
Table1remark: TStringField;
procedure RunBtnClick(Sender: TObject);
function TextToDatabase(vTable : TTable; {戈
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -