oe115.pas

公司ERP系统

unit oe115;

interface

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

type
  Toe115Form = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    FromCust_NoEdit: TEdit;
    EndCust_NoEdit: TEdit;
    FromDateEdit: TEdit;
    EndDateEdit: TEdit;
    FromSlip_noEdit: TEdit;
    EndSlip_noEdit: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    PrintButton: TButton;
    ExitButton: TButton;
    oe115Query: TQuery;
    PrintComboBox: TComboBox;
    Label7: TLabel;
    rptTable: TTable;
    imtmasTable: TTable;
    CommandQuery: TQuery;
    Label9: TLabel;
    FromSource_slip_noEdit: TEdit;
    EndSource_slip_noEdit: TEdit;
    Label10: TLabel;
    oedordTable: TTable;
    arcustTable: TTable;
    Label11: TLabel;
    FromPurEdit: TEdit;
    EndPurEdit: TEdit;
    Label12: TLabel;
    ComboBox1: TComboBox;
    Label13: TLabel;
    Label8: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label18: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label23: TLabel;
    oe115t1Query: TQuery;
    dropQuery: TQuery;
    function GetNowTime:String;
    function GetTodayStr:String;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ExitButtonClick(Sender: TObject);
    procedure PrintButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EndDateEditExit(Sender: TObject);
    procedure FromDateEditExit(Sender: TObject);
    function Checkdate( YearMonthDay: String ) : Boolean;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  oe115Form: Toe115Form;

implementation

uses oe115a, oe115b, oe115c, sqllib;

{$R *.DFM}
function Toe115Form.GetNowTime:String;
var Hour,Min,Sec,Msec:Word;
    vHour,vMin,vSec:String;
begin
  DecodeTime(Time,Hour,Min,Sec,Msec);
  vHour:=IntToStr(Hour);
  vHour:=Copy('0'+vHour,Length(vHour),2);
  vMin:=IntToStr(Min);
  vMin:=Copy('0'+vMin,Length(vMin),2);
  vSec:=IntToStr(Sec);
  vSec:=Copy('0'+vSec,Length(vSec),2);

  Result:=vHour+':'+vMin;
end;

function Toe115Form.GetTodayStr:String;
var yy,mm,dd:Word;
    Sy,Sm,Sd:String;
begin
  DecodeDate(Date,yy,mm,dd);
  Sy:=IntToStr(yy-1911);
  Sy:=Copy('0'+Sy,Length(Sy),2);
  Sm:=IntToStr(mm);
  Sm:=Copy('0'+Sm,Length(Sm),2);
  Sd:=IntToStr(dd);
  Sd:=Copy('0'+Sd,Length(Sd),2);

  Result:=Sy+'/'+Sm+'/'+Sd;
end;

function Toe115Form.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 絏