unit_rubb_main.pas

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

unit Unit_Rubb_Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ToolWin, ComCtrls, Grids, DBGrids, StdCtrls, Buttons, Mask,
  DBCtrls, ExtCtrls, ImgList, Db, DBTables;

type
  TForm_Rubb_Main = class(TForm)
    MainMenu1: TMainMenu;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    Panel1: TPanel;
    ToolButton1: TToolButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    DBGrid1: TDBGrid;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N_NewProcCard: TMenuItem;
    N_ModProcCard: TMenuItem;
    N_QryProcCard: TMenuItem;
    N_NewIgd: TMenuItem;
    N_Take: TMenuItem;
    N_BlankProc: TMenuItem;
    N_Rep: TMenuItem;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    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;
    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;
    dbeMaterWt: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    Panel20: TPanel;
    Panel21: TPanel;
    Panel22: TPanel;
    Panel23: TPanel;
    Panel24: TPanel;
    Panel25: TPanel;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    N_DelProcCard: TMenuItem;
    N6: TMenuItem;
    N_Exit: TMenuItem;
    N_Sum: TMenuItem;
    StatusBar1: TStatusBar;
    Tab_RepCard: TTable;
    DS_RepCard: TDataSource;
    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;
    Panel48: TPanel;
    Panel49: TPanel;
    Panel50: TPanel;
    Panel51: TPanel;
    Panel52: TPanel;
    Panel53: TPanel;
    Panel54: TPanel;
    Panel55: TPanel;
    Panel56: TPanel;
    Panel57: TPanel;
    Panel58: TPanel;
    Panel59: TPanel;
    Panel60: TPanel;
    Panel61: TPanel;
    Panel62: TPanel;
    Panel63: TPanel;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    Panel64: TPanel;
    Panel65: TPanel;
    Panel66: TPanel;
    DBEdit38: TDBEdit;
    Panel67: TPanel;
    Panel68: TPanel;
    Panel69: TPanel;
    DBEdit39: TDBEdit;
    Panel70: TPanel;
    Panel71: TPanel;
    Panel72: TPanel;
    DBEdit40: TDBEdit;
    Panel73: TPanel;
    Panel74: TPanel;
    Panel75: TPanel;
    Panel76: TPanel;
    DBEdit41: TDBEdit;
    DBMemo1: TDBMemo;
    Panel77: TPanel;
    Panel78: TPanel;
    Panel79: TPanel;
    DBEdit42: TDBEdit;
    Panel80: TPanel;
    Panel81: TPanel;
    Panel82: TPanel;
    DBEdit43: TDBEdit;
    Panel83: TPanel;
    Panel84: TPanel;
    Panel85: TPanel;
    DBEdit44: TDBEdit;
    Panel86: TPanel;
    Panel87: TPanel;
    Panel88: TPanel;
    DBEdit45: TDBEdit;
    DBMemo2: TDBMemo;
    Panel89: TPanel;
    Panel90: TPanel;
    Panel91: TPanel;
    DBEdit46: TDBEdit;
    DBEdit47: TDBEdit;
    Panel92: TPanel;
    Panel93: TPanel;
    Panel94: TPanel;
    DBEdit48: TDBEdit;
    DBEdit49: TDBEdit;
    Panel95: TPanel;
    Panel96: TPanel;
    Panel97: TPanel;
    DBEdit50: TDBEdit;
    DBEdit51: TDBEdit;
    Panel98: TPanel;
    Panel99: TPanel;
    Panel100: TPanel;
    DBEdit52: TDBEdit;
    DBEdit53: TDBEdit;
    Panel101: TPanel;
    Panel102: TPanel;
    Panel103: TPanel;
    DBEdit54: TDBEdit;
    DBEdit55: TDBEdit;
    DBNavigator1: TDBNavigator;
    Qry_MaterCard: TQuery;
    DS_MaterCard: TDataSource;
    Panel104: TPanel;
    Qry_Exe: TQuery;
    N5: TMenuItem;
    N8: TMenuItem;
    Image1: TImage;
    BitBtn1: TBitBtn;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    N4: TMenuItem;
    N7: TMenuItem;
    dbePrice: TDBEdit;
    Panel105: TPanel;
    Query1: TQuery;
    BitBtn2: TBitBtn;
    Button1: TButton;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Query2: TQuery;
    Query3: TQuery;
    Table1: TTable;
    procedure N_NewProcCardClick(Sender: TObject);
    procedure N_QryProcCardClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N_NewMaterCardClick(Sender: TObject);
    procedure N_ExitClick(Sender: TObject);
    procedure N_NewIgdClick(Sender: TObject);
    procedure N_TakeClick(Sender: TObject);
    procedure N_RepClick(Sender: TObject);
    procedure N_BlankProcClick(Sender: TObject);
    procedure N_ModProcCardClick(Sender: TObject);
    procedure N_DelProcCardClick(Sender: TObject);
    procedure N_SumClick(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    If_ShowPic:boolean;
    Index,Index1:integer;
  end;

var
  Form_Rubb_Main: TForm_Rubb_Main;

implementation

uses Unit_Rubb_ProcCard, Unit_Rubb_QryProcCard, Unit_Rubb_RepCardNew,
   Unit_Rubb_MaterCard, Unit_Rubb_MixCard1,
  Unit_Rubb_TakeCard, Unit_Rubb_PrtRepCard, Unit_Rubb_PrtBlankProcCard,
  Unit_Rubb_InCard, Unit_Rubb_SumProcCard, Unit_Mater_Main,
  Unit_Rubb_WasSum, Unit_Mater_SumCfg,
  Unit_Rubb_SumCfg, Unit_Rubb_sqljiaoliao, UnitDM;

{$R *.DFM}

procedure TForm_Rubb_Main.N_NewProcCardClick(Sender: TObject);
var
  iCode:integer;  // 工艺卡编号
  sID,sCode:string;
  i:integer;
begin
  Form_Rubb_ProcCard.Tab_ProcCard.open;
  Form_Rubb_ProcCard.Tab_ProcCard.Insert;
  Form_Rubb_ProcCard.Panel7.Caption:='填 写 混 炼 工 艺 卡 ';
  Form_Rubb_ProcCard.sRubbDate:=datetostr(date);
  Form_Rubb_ProcCard.DBedit10.text:=datetostr(date);

  with qry_exe do
  begin
    close;
    sql.Clear;
    sql.add('select * from 炼胶工艺卡 order by 编号 ');
    open;
    last;

    iCode:=fieldbyname('编号').asinteger;
    iCode:=iCode + 1 ;
    Form_Rubb_ProcCard.iCode:=iCode;
    Form_Rubb_ProcCard.DBEdit25.text := inttostr(iCode);

  end; //with

// 填写下拉 配方 列表
  Form_Rubb_ProcCard.ComboBox1.Items.Clear;
  with query1 do
  begin
    close;
    sql.clear;
    sql.add('select distinct 配方编号,制成品名称  from 炼胶配方表  ');
    open;
    while not eof do
    begin
      Form_Rubb_ProcCard.combobox1.Items.add(query1.fields[0].asstring+'  '+query1.fields[1].asstring);
      next;
    end; //while
  end; //with
  Form_Rubb_ProcCard.ComboBox1.ItemIndex:=0;
  if Form_Rubb_ProcCard.combobox1.text=''then
     begin
     showmessage('库内无配方，请先保存配方!');
     exit;
     end;
  i:=1;
  sID:=Form_Rubb_ProcCard.combobox1.text;
  while sID[i] <> ' ' do
  begin
    sCode:=sCode+sID[i];
    i:=i+1;
  end; //while

  Form_Rubb_ProcCard.DBEdit_IgdCode.text:=sCode;
  Form_Rubb_ProcCard.sMixCode:=sCode;

  with query1 do
  begin
    close;
    sql.clear;
    sql.add('select * from 炼胶配方表 where 配方编号 = :mixCode ');
    parambyname('mixcode').asinteger:=strtoint(sCode);
    open;
    Form_Rubb_ProcCard.sRubbName:=fieldbyname('制成品名称').asstring;
    Form_Rubb_ProcCard.DBEdit8.text:=fieldbyname('制成品名称').asstring;
  end; //with

   Form_Rubb_ProcCard.showmodal;
end;

procedure TForm_Rubb_Main.N_QryProcCardClick(Sender: TObject);
begin
  Form_Rubb_QryProcCard.showmodal;
end;

procedure TForm_Rubb_Main.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:='今天 '+formatdatetime('yyyy"年"m"月"d"日" dddd',date);
  button1.Height:=0;
  button1.Width:=0;
end;

procedure TForm_Rubb_Main.N_NewMaterCardClick(Sender: TObject);
begin
  if not Form_Rubb_QryProcCard.Qry_QryProcCard.Active then
  begin
    showmessage('请先调出工艺卡!');
    exit;
  end; // if

  with Form_Rubb_MaterCard.Qry_MaterCard do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 炼胶用料单 where 主表标识号 = :v_mid  ');
    parambyname('v_mid').asinteger:=Form_Rubb_QryProcCard.Qry_QryProcCard.fieldbyname('标识号').asinteger;
    open;
  end;// with

  Form_Rubb_MaterCard.Tab_MaterCard.open;
  Form_Rubb_MaterCard.n_mid:=Form_Rubb_QryProcCard.Qry_QryProcCard.fieldbyname('标识号').asinteger;
  Form_Rubb_MaterCard.showmodal;

end;

procedure TForm_Rubb_Main.N_ExitClick(Sender: TObject);
begin
  close;
end;

procedure TForm_Rubb_Main.N_NewIgdClick(Sender: TObject);