contractadjfm.pas

库房管理系统

unit contractAdjFM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FR_E_HTML2, FR_E_CSV, FR_E_RTF, frexpimg, frOLEExl, FR_Class,
  FR_E_TXT, FR_DSet, FR_DBSet, DB, ADODB, StdCtrls, DBCtrls, DBCtrlsEh,
  Mask, Buttons, Grids, DBGrids;

type
  TcontractAdjust = class(TForm)
    grp1: TGroupBox;
    grp2: TGroupBox;
    dbgrd1: TDBGrid;
    grp3: TGroupBox;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    savebtn: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    grp4: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label15: TLabel;
    DBEdit1: TDBEdit;
    DBEdit5: TDBEdit;
    dbqty: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    dbdate: TDBDateTimeEditEh;
    DBEdit10: TDBEdit;
    DBEdit15: TDBEdit;
    comb_product: TDBComboBox;
    product_name: TDBEdit;
    dbmoney: TDBComboBox;
    dbunit: TDBComboBox;
    AdoconstractAdjust: TADOQuery;
    constractAdj_ds: TDataSource;
    frDBDataSet1: TfrDBDataSet;
    frTextExport1: TfrTextExport;
    frOLEExcelExport1: TfrOLEExcelExport;
    frJPEGExport1: TfrJPEGExport;
    frRTFExport1: TfrRTFExport;
    frCSVExport1: TfrCSVExport;
    frHTML2Export1: TfrHTML2Export;
    ADO_Product: TADOTable;
    ADO_ProductfProductID: TWideStringField;
    ADO_ProductfResName: TWideStringField;
    ADO_money: TADOTable;
    ADO_unit: TADOTable;
    ado_temp: TADOQuery;
    refUnit: TDBComboBox;
    ADO_moneyfMoneyCode: TWideStringField;
    ADO_unitfUnitCode: TWideStringField;
    ADO_unitfbaseUnits: TWideStringField;
    measureUnit: TDBEdit;
    weightUnit: TDBEdit;
    Ado_Mtr_Updt_BOM: TADOQuery;
    Mtr_check: TADOQuery;
    Ado_Mtr_updt: TADOQuery;
    adjust_rpt: TfrReport;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure savebtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure comb_productChange(Sender: TObject);
    procedure AdoconstractAdjustAfterPost(DataSet: TDataSet);
    procedure BitBtn10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  contractAdjust: TcontractAdjust;

implementation

{$R *.dfm}

procedure TcontractAdjust.BitBtn1Click(Sender: TObject);
begin
   AdoconstractAdjust.Append;
   savebtn.Enabled:=true;
   dbdate.Value:=now();
end;

procedure TcontractAdjust.BitBtn2Click(Sender: TObject);
begin
    if messagebox(Handle,PChar('sure to delete?'),'warning',mb_iconwarning+mb_yesno)=IDYES then
     AdoconstractAdjust.Delete;
end;

procedure TcontractAdjust.BitBtn3Click(Sender: TObject);
begin
  AdoconstractAdjust.Edit;
  savebtn.Enabled:=true;
end;

procedure TcontractAdjust.savebtnClick(Sender: TObject);
begin
//   with ado_temp do
//     begin
//     ado_temp.Close;
//     ado_temp.SQL.Clear;
 //    ado_temp.SQL.Add('select * from tContractstock')
   if (trim(comb_product.Text)<>'') and (trim(product_name.text)<>'') and (trim(dbqty.text)<>'') and (trim(measureUnit.text)<>'') then
 begin
   if messagebox(Handle,PChar('sure to save?'),'warning',mb_iconwarning+mb_yesno)=IDYES then
    AdoconstractAdjust.Post;
    savebtn.Enabled:=false;
  end
  else
  begin
   showmessage('please check the information if intact');
   end;
end;

procedure TcontractAdjust.FormCreate(Sender: TObject);
 var i:integer;
begin
 with ado_product do
   if ado_product.RecordCount>0 then
   begin
    ado_product.first;
    for i:=0 to ado_product.RecordCount-1 do
     begin
     comb_product.Items.Add(ado_product.fieldbyname('fproductid').AsString);
     ado_product.Next;
     end;
   end;
    with ado_unit do
    if ado_unit.RecordCount>0 then
    begin
     ado_unit.First;
    for i:=0 to ado_unit.RecordCount-1 do
     begin
    dbunit.Items.Add(ado_unit.fieldbyname('fUnitCode').AsString);
    refUnit.Items.Add(ado_Unit.fieldbyname('fbaseUnits').AsString);
    ado_unit.Next;
     end;
    end;
     with ado_money do
    if ado_money.RecordCount>0 then
    begin
     ado_money.First;
    for i:=0 to ado_money.RecordCount-1 do
     begin
    dbmoney.Items.Add(ado_money.fieldbyname('fMoneyCode').AsString);
    ado_money.Next;
     end;
    end;
end;

procedure TcontractAdjust.comb_productChange(Sender: TObject);
begin
       with ado_temp do
   ado_temp.Close;
   ado_temp.SQL.Clear;         //check the product from the tcontractstock then ok
   ado_temp.SQL.Add('select fParentName,fMeasureUnit,fWeightUnit from tProductCode where fParentID like '''+'%'+comb_product.Text+'%'+'''');
   ado_temp.open;
  // edit1.Text:=ado_temp.SQL.text;
 //  product_name.Text:=ado_temp.fieldbyname('fResName').AsString;
   product_name.Text:=ado_temp.fieldbyname('fParentName').AsString;
//   dbunit.Items.Text:=ado_temp.fieldbyname('fMeasureUnit').AsString;
 //  RefUnit.Items.Text:=ado_temp.fieldbyname('fWeightUnit').AsString;
   measureunit.Text:=ado_temp.fieldbyname('fMeasureUnit').AsString;
   weightUnit.Text:=ado_temp.fieldbyname('fWeightUnit').AsString;
 
//end;
end;

procedure TcontractAdjust.AdoconstractAdjustAfterPost(DataSet: TDataSet);
begin
    with ado_temp do
     begin
      ado_temp.Close;
      ado_temp.Prepared:=false;  //just update the tContractstock qty
      ado_temp.SQL.Text:='updtStockQtybyAdjust'+ ''''+AdoconstractAdjust.fieldbyname('fProductID').AsString+'''';
   //   QStorage.Close;
   //   QStorage.Prepared:=False;
  //    QStorage.SQL.Text:='updtStockQtybyInput'+ ''''+adoconstractinput.fieldbyname('fProductID').AsString+'''';
//      QStorage.Parameters.ParamByName('@fProduct').Value:=
 //     AdoconstractInput.fieldbyname('fProductID').AsString;
      ado_temp.Prepared:=True;
      ado_temp.ExecSQL;
      end;
      
  // with Ado_Mtr_Updt_BOM do
//      begin
   //  Ado_Mtr_Updt_BOM.Close;               //this is very important that must the tMaterialoutput and Bom out then ok
  //   Ado_Mtr_Updt_BOM.Prepared:=false;
  //   Ado_Mtr_Updt_BOM.SQL.Text:='updtMtrQtybyBOM' +''''+AdoconstractAdjust.fieldbyname('fProductID').AsString+'''';
  //   Ado_Mtr_Updt_BOM.Prepared:=True;
  //   Ado_Mtr_Updt_BOM.ExecSQL;
 //    end;
 //  with Mtr_check do
 //    begin          //p_checkbyMtr  'hp025001'
   //    Mtr_check.Close;
   //     Mtr_check.Prepared:=false;
   //     Mtr_check.SQL.Text:='p_checkbyMtr' + ''''+AdoconstractAdjust.fieldbyname('fProductID').AsString+'''';
   //     Mtr_check.Prepared:=True;
   //     Mtr_check.Open;
 //    end;
     
  // with Ado_Mtr_updt do       //if the tMaterialstock not exists the material information then message wrong...
 //    begin
  //   Ado_Mtr_updt.Close;               //this is very important that must the tMaterialoutput and Bom out then ok
 //    Ado_Mtr_updt.Prepared:=false;
   //  Ado_Mtr_updt.SQL.Text:='updtMtrQtybyOutput' +''''+Mtr_check.fieldbyname('fMtrCode').AsString+'''';
 //    Ado_Mtr_updt.Prepared:=True;
  //   Ado_Mtr_updt.ExecSQL;
//     end;

end;

procedure TcontractAdjust.BitBtn10Click(Sender: TObject);
begin
  adjust_rpt.ShowReport;
end;

end.