oe112.pas

公司ERP系统

unit oe112;

interface

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

type
  Toe112Form = class(TForm)
    oe112Query: TQuery;
    CommandQuery: TQuery;
    rptTable: TTable;
    oecodeTable: TTable;
    imshipTable: TTable;
    ivdetlTable: TTable;
    arcustTable: TTable;
    imwareTable: TTable;
    oe112t1Query: TQuery;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    PrintButton: TButton;
    ExitButton: TButton;
    Slip_no1Edit: TEdit;
    PrintComboBox: TComboBox;
    NameEdit: TEdit;
    Slip_no2Edit: TEdit;
    Date_1Edit: TEdit;
    Date_2Edit: TEdit;
    cust_1Edit: TEdit;
    cust_2Edit: TEdit;
    dropQuery: TQuery;
    imclasTable: TTable;
    piprtnoTable: TTable;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    imitemTable: TTable;
    procedure ExitButtonClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    function Checkdate( YearMonthDay: String ) : Boolean;
    procedure PrintButtonClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure nameEditExit(Sender: TObject);
    procedure FindNearestBtnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure print1(vSlip_no: String);

    { Public declarations }
  end;

var
  oe112Form: Toe112Form;

implementation

uses oelib, sqllib, search, oe112a, oe032;
var vMode_no,vDeviceName:String;

{$R *.DFM}
procedure Toe112Form.print1(vSlip_no: String);
begin
   Slip_no1Edit.Text:= vSlip_no;
   ShowModal;
end;
function Toe112Form.Checkdate( YearMonthDay: String ) : Boolean;
var
  i : integer;
  ch : char;
  yy, mm, dd : integer;
  len : integer;
begin
  Result := True;
  len := Length( YearMonthDay );

  //  if (len <> 6) and (len <> 7) then
  if (len <> 6)  then
  begin
    Result := False;
    Exit;
  end;

  for i := 1 to len do
  begin
    ch := YearMonthDay[i];
    if (ch <'0') or (ch > '9') then
       Result := False;
  end;

  if len = 6 then  // 6 絏