unit_rubb_repcardnew.~pas

此代码为企业原料管理代码

unit Unit_Rubb_RepCardNew;

interface

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

type
  TForm_Rubb_RepCard = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    Panel16: TPanel;
    Panel17: TPanel;
    Panel18: TPanel;
    Panel19: TPanel;
    Panel20: TPanel;
    Panel21: TPanel;
    Panel22: TPanel;
    Panel23: TPanel;
    Panel24: TPanel;
    Panel25: TPanel;
    Panel26: TPanel;
    Panel27: TPanel;
    Panel28: TPanel;
    Panel29: TPanel;
    Panel30: TPanel;
    Panel31: TPanel;
    Panel32: TPanel;
    Panel33: TPanel;
    Panel34: TPanel;
    Panel35: TPanel;
    Panel36: TPanel;
    Panel37: TPanel;
    Panel38: TPanel;
    Panel39: TPanel;
    Panel40: TPanel;
    Panel41: TPanel;
    Panel42: TPanel;
    Panel43: TPanel;
    Panel44: TPanel;
    Panel45: TPanel;
    Panel46: TPanel;
    Panel47: TPanel;
    Panel50: TPanel;
    Panel51: TPanel;
    Panel52: TPanel;
    Panel53: TPanel;
    Panel54: TPanel;
    Panel55: TPanel;
    Panel56: TPanel;
    Panel48: TPanel;
    Panel49: TPanel;
    Panel57: TPanel;
    Panel58: TPanel;
    Panel59: TPanel;
    Panel60: TPanel;
    Panel61: TPanel;
    Panel62: TPanel;
    Panel63: TPanel;
    Panel64: TPanel;
    Panel65: TPanel;
    Panel66: TPanel;
    Panel67: TPanel;
    Panel68: TPanel;
    Panel69: TPanel;
    Panel70: TPanel;
    Panel71: TPanel;
    Panel72: TPanel;
    Panel73: TPanel;
    Panel74: TPanel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label20: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Tab_RepCard: TTable;
    DS_RepCard: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel75: TPanel;
    Panel76: TPanel;
    DBEdit_ID: TDBEdit;
    BitBtn3: TBitBtn;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    Panel77: TPanel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit33Enter(Sender: TObject);
    procedure DBEdit33Exit(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit35Enter(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Rubb_RepCard: TForm_Rubb_RepCard;

implementation

uses Unit_Rubb_PrtRepCard, Unit_Rubb_Main, UnitQueryID,
  Unit_Rubb_QryProcCard, Unit_Rubb_ProcCard;

{$R *.DFM}

procedure TForm_Rubb_RepCard.BitBtn1Click(Sender: TObject);
begin
  Tab_RepCard.Post;
  close;
end;

procedure TForm_Rubb_RepCard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Tab_RepCard.cancel;
   Form_Rubb_ProcCard.show;
end;

procedure TForm_Rubb_RepCard.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
  end; //if

end;

procedure TForm_Rubb_RepCard.DBEdit33Enter(Sender: TObject);
begin
  TDBEdit(Sender).color:=claqua;
end;

procedure TForm_Rubb_RepCard.DBEdit33Exit(Sender: TObject);
begin
  TEdit(Sender).color:=clwindow;
end;

procedure TForm_Rubb_RepCard.BitBtn3Click(Sender: TObject);
begin
  if (Tab_RepCard.State=dsinsert) or (Tab_RepCard.State=dsedit) then
  Tab_RepCard.Post;
  Tab_RepCard.Open;
  Form_Rubb_PrtRepCard.QRLabel48.Caption:='';
  Form_Rubb_PrtRepCard.QRLabel49.Caption:='';
  Form_Rubb_PrtRepCard.QRLabel90.Caption:='';
  Form_Rubb_PrtRepCard.QRLabel96.Caption:='';
  Form_Rubb_PrtRepCard.QRLabel97.Caption:='';
  Form_Rubb_PrtRepCard.QRLabel98.Caption:='';
  Form_Rubb_PrtRepCard.QRLabel99.Caption:='';
  Form_Rubb_PrtRepCard.QuickRep1.Preview;
  //close;
 // Form_Rubb_RepCard.Visible:=false;
end;

procedure TForm_Rubb_RepCard.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   try
   if ((Key>57) and (Key<48)) or ((Key<96) and (Key>110)) then
 // exit;
  //if Key=190 then
  exit;
  except
  end;
 end;

procedure TForm_Rubb_RepCard.DBEdit35Enter(Sender: TObject);
begin
  TDBEdit(Sender).color:=claqua;
    FrmcommqueryID.PageControl1.ActivePageIndex:=0;
    FrmcommqueryID.ActiveControl:=FrmcommqueryID.estaffID;
    if  FrmcommqueryID.showmodal=mrok then
    begin
      DBEdit35.text:=FrmcommqueryID.query3.fieldbyname('staffname').asstring;
    end;
    DBEdit1.SetFocus;
 end;
procedure TForm_Rubb_RepCard.FormShow(Sender: TObject);
begin
 DBEdit26.Text:=inttostr(Form_Rubb_Main.Index1);
 DBEdit34.Text:=datetostr(date);
 DBEdit33.text:=Form_Rubb_QryProcCard.Qry_QryProcCard.fieldbyname('配方编号').asstring;
 DBEdit27.text:=Form_Rubb_QryProcCard.Qry_QryProcCard.fieldbyname('制成品名称').asstring;
end;

end.